这几天一直在试着做机房收费系统的小软件,这是第一在没有源码的情况下自己完成的小项目练习,密码修改窗口中添加的控件不多,相对来说是一个简单的界面设计,后台代码也相对来说比较简单,主要就是连接数据库读取和修改密码内容。
窗口设计大概如下:
在上边的修改密码窗口中加入了用户名,新旧密码,和确认密码,中规中矩的设计。
代码中比较有难度的就是读取和修改数据库相关的代码了。下边就把全不代码贴出来,供大家参考。
Option Explicit Private Sub Command1_Click() Dim txtSQL, msgtext As String Dim mrc As ADODB.Recordset txtSQL = "select * from User_Info" Set mrc = ExecuteSQL(txtSQL, msgtext) '判断旧密码是否正确 If Trim(Text1.Text) <> Trim(mrc.Fields(1)) Then MsgBox "旧密码错误,请重新输入!", vbOKOnly + vbExclamation, "警告" 'Text1.SetFocus '设置键盘焦点 Text1.Text = "" Exit Sub End If '判断两次密码输入是否一致 If Trim(Text2.Text) <> Trim(Text3.Text) Then MsgBox "两次密码输入不一致!请重新输入!", vbOKOnly + vbExclamation, "警告" Text2.Text = "" Text3.Text = "" Exit Sub Else '判断新密码是否为空 If Text2.Text = "" Then MsgBox "请输入新密码!", vbOKOnly + vbExclamation, "警告" Else '更改数据库列表里的密码值 mrc.Fields(1) = Text3.Text mrc.Update mrc.Close Text1.Text = "" Text2.Text = "" Text3.Text = "" MsgBox "密码修改成功", vbOKOnly + vbExclamation, "警告" Me.Hide End If End If 'Exit Sub End Sub Private Sub Form_Load() Label5.Caption = username End Sub
代码中最值得注意的就是输入密码中的逻辑判断关系,如过逻辑关系出了问题那整个窗口的bug就比较多了。希望大家注意上边代码中密码判定的逻辑关系。