机房系统（一）——【修改密码 登录 】
前言
进行机房也有一段时间了，一直处于走迷宫的状态不知从何入手。从生活中出发，我们在使用某个系统时，一般情况下最先进入该系统的登录页面。现在轮到自己敲系统了，当然也是从登录开始啦。
正文
机房收费系统登录窗体的思路，和有源码的学生系统的思路是大同小异的。这次在之前基础之上加了一个判断为空或错误时的红星号提示。让用户一目了然。
初步流程图如下：
实现上述功能的部分代码如下：
'判断输入用户名或密码是否为空，分为空值和非空值两种情况If Trim(txtUserName.Text = "") Or Trim(txtPassword.Text = "") Then '1、如果用户名或者密码为空，则弹出提示框MsgBox "用户名或密码不能为空，请您重新输入!", vbOKOnly + vbExclamation, "温馨提示"'为空时给予红色星号提示If Trim(txtUserName.Text = "") ThenLabel4.Visible = TruetxtUserName.SetFocus '用户名文本框获得焦点ElseLabel5.Visible = TruetxtPassword.SetFocusEnd If'2、用户名和密码不为空，执行下一步，查询数据库中信息，判断输入信息是否正确Else'查询数据库中的用户名txtSQL = "select * from User_info where userID= '" & txtUserName.Text & "'" '查询指定用户名的记录Set mrc = ExecuteSQL(txtSQL, MsgText)'判断指定用户表里是否有所输入的用户信息If mrc.EOF = True Then '1、如果记录集搜索到了最后一条信息，没有找到该用户信息，则弹出提示框MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "温馨提示"txtUserName.Text = "" '将所输入的用户名清空txtPassword.Text = "" '将所输入的密码清空txtUserName.SetFocus '用户名文本框获得焦点Else '判断输入的密码是否正确If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then '将所输入的密码和数据库中记录信息进行对比，两者相同，执行下一步，判断用户所属级别UserName = Trim(mrc.Fields(1))'判断级别，提示用户If Trim(mrc.Fields(2)) = "管理员" ThenMsgBox "登录成功！您当前身份是管理员。拥有所有使用权限。", 48, "温馨提示："frmMain.Show 'FrmMain窗体显示出来ElseIf Trim(mrc.Fields(2)) = "操作员" ThenMsgBox "登录成功！您当前身份是操作员。", 48, "温馨提示："frmMain.Show 'FrmMain窗体显示出来frmMain.Administrator.Visible = FalseElseMsgBox "登录成功！您当前身份是一般用户。", 48, "温馨提示"frmMain.Show 'FrmMain窗体显示出来frmMain.Administrator.Visible = FalsefrmMain.Operator.Visible = FalseEnd IfEnd If'连接数据库，将登录信息输入到数据表里txtSQLa = "select * from OnWork_Info"Set mra = ExecuteSQL(txtSQLa, Msgtexta)mra.AddNewmra.Fields(0) = UserNamemra.Fields(1) = Trim(mrc.Fields(2))mra.Fields(2) = Datemra.Fields(3) = Timemra.Fields(4) = "LZ"mra.UpdatetxtSQLb = "select * from worklog_Info"Set mrb = ExecuteSQL(txtSQLb, Msgtextb)mrb.AddNewmrb.Fields(1) = UserNamemrb.Fields(2) = Trim(mrc.Fields(2))mrb.Fields(3) = Datemrb.Fields(4) = Timemrb.Fields(7) = "LZ"mrb.Fields(8) = Str(True)mrb.Updatemrc.Close '记录集关闭Me.Hide '登录窗体隐藏frmMain.Show 'FrmMain窗体显示出来
登录成功之后，最直接的操作就是修改密码。所以接下来就进行修改密码的设置。
流程图如下：
实现上述功能的部分代码如下：
'判断原始密码输入框与登录窗体的密码是否一致'分为不一致与一致两种情况If Trim(txtOldWord.Text) <> Trim(frmLogin.txtPassword.Text) Then '情况1，如果不一致，弹出提示框提示用户MsgBox "原始密码输入不正确！", 48, "温馨提示："txtOldWord.SetFocustxtOldWord.Text = ""txtNewWord1.Text = ""txtNewWord2.Text = ""Exit SubElse '情况2，判断一致则执行下一步'判断新密码与原始密码是否相同If Trim(txtNewWord1.Text) = Trim(frmLogin.txtPassword.Text) Then '1、新密码与原始密码相同，弹出提示框提示用户MsgBox "与原始密码相同，请您重新设置！", 48, "温馨提示："txtNewWord1.Text = ""txtNewWord2.Text = ""Exit SubElse '新密码与原始密码不同则执行下一步'判断两次新密码输入是否相同If Trim(txtNewWord1.Text) <> Trim(txtNewWord2.Text) Then '如果两次新密码输入不一致，则弹出提示框提示用户MsgBox "新密码输入不一致，请重新确认！", 48, "温馨提示："txtNewWord1.SetFocustxtNewWord1.Text = ""txtNewWord2.Text = ""Else '如果两次新密码输入一致，则执行下一步，将新密码更新到数据库中txtSQL = "select * from User_Info where UserID='" & Trim(frmLogin.txtUserName.Text) & "'" '查询该条记录信息Set mrc = ExecuteSQL(txtSQL, MsgText) '执行查询语句mrc.Fields(1) = txtNewWord1 '将新设置的密码赋给记录集，更新数据库mrc.Updatemrc.CloseMsgBox "密码修改成功！", 48, "温馨提示："结语
这次接触比较多的就是数据表了，所以，在刚开始的时候，弄清数据库中表的含义是很关键的。要注意连接数据表的问题，把修改后的信息及时更新到相应数据表对应的列中，保持数据库中表中的信息是最新的。
机房系统（一）——【修改密码 登录 】相关推荐
- linux通过文件修改密码,如何通过Linux系统来修改密码
现在使用Linux作为服务器的人越来越多,其实它非常适合中小企业,下面爱站技术频道小编一起教你如何通过Linux系统来修改密码,感兴趣的小伙伴们可以进入下文参考一下. 一. 下载软件 这个自由软件源于 ...
- 首次登陆系统强制修改密码
简要说明: 在最近工作开发ASP.NET WebApi服务中,做了一个需求:实现用户首次登录系统,强制修改 密码操作. 实现方式: 的时候,用户初始注册信息时默认flag为一个起点数值即可).当然这是 ...
- 合肥工业大学宣城校区新教务系统如何修改密码与邮箱
根据官网通知,学生登录的默认密码是学号,下面讲述如何修改密码. (1)首先使用学号与默认密码登录系统. 图1 登录界面 (2)进入系统后,点击右上角的"你好,XXX(XX)",选择 ...
- Unix系统下修改密码
常用UNIX命令及使用方法(二) ----修改密码 成功登录后,用户就可以修改自己的密码了.步骤如下: t 输入命令 passwd,回车: t 依提示分别输入您的旧密码.新的密码,再确认您的新密码就可 ...
- 忘记电脑登录密码怎么办？不用U盘不用做PE系统，修改电脑登录密码。
有时候遇到电脑登录密码忘记了,或者公司员工离职了未交接电脑登录密码,再或者追踪不到原电脑使用者的用户密码了,这时候就需要破解电脑登录密码了.破解或修改.重置电脑密码有一种常用的方法,那就是用U盘,制作 ...
- 机房收费--修改密码
之前在敲学生信息管理系统时曾经做过类似的窗体,下面再总结一下机房收费系统的修改密码.其实这个窗体主要就是需要做一些判定条件:首先是先判断你输入的的原密码是否正确,其次判断新输入的密码与之前的旧密码是否 ...
- 计算机的用户账户无法更改密码,Win7系统无法修改账号密码怎么办？电脑不能修改账号密码解决方法...
我们在使用电脑的时候,设置电脑系统密码是为了不让他人使用自己的计算机,只有知道开机密码的用户才可以顺利进入系统桌面,但是如果你打算修改登录密码的时候,却发现系统无法修改密码.那么Win7系统无法修改账 ...
- linux修改密码最短生存时间,Linux基础命令---修改用户密码
passwd 更改用户密码,超级用户可以修改所有用户密码,普通用户只能修改自己的密码.这个任务是通过调用LinuxPAM和LibuserAPI来完成的.本质上,它使用LinuxPAM将自己初始化为一个 ...
- 查看mysql临时密码_MySQL修改密码,查看MySQL临时密码
一.查看MySQL临时密码 Linux安装好MySQL后,为了增加数据库的安全性,在安装时会为root用户生成一个临时的随机密码,存放在/var/log/mysqld.log 中. [root@loc ...
最新文章
- fetchsize jdbc_MySQL JDBC FetchSize解析
- maven上传本地仓库
- 将格式化的日期字符串转换为Unix时间戳(php)
- Java FlameGraph 火焰图
- android蓝牙通信_Flutter通过BasicMessageChannel实现Flutter 与Android iOS 的双向通信
- java开发项目实例_Alibaba内部出品Java突击手册，大量开发实战项目分享
- 【Elasticsearch】搜索引擎从0到1 有赞 视频笔记
- shell 编程-Expect
- 《Flutter 从0到1构建大前端应用》读后感—第6章【使用网络技术与异步编程】
- 产品经理应具备的能力（初中高级），产品经理岗位细分
- 天梯图excl_Excel版CPU天梯图 方便打印.xls
- 卡塔尔称攻击卡塔尔通讯社黑客来自断交国
- python 工资条_当财务部的人会编程，会发生什么？Python实现自动化群发工资条...
- RHEL8红帽子系统 网卡命令
- PADS9.5如何导出的光绘文件（Gerber），应该检查什么？
- 【2022 CCF BDCI 文心大模型创意项目】乐享词话—诗词意境辅助记忆工具
- Bugku web(1—35)
- Java人才招聘求职管理系统源码前后端带文字搭建教程
- uni-app KeyChain(钥匙串)，保存的信息不会因App被删除而丢失（ios）
- 神经网络之极限学习机（ELM）