机房收费系统之三

最新推荐文章于 2021-05-18 08:59:18 发布

原创最新推荐文章于 2021-05-18 08:59:18 发布 · 324 阅读

0 ·

CC 4.0 BY-SA版权

VB学习专栏收录该内容

14 篇文章

订阅专栏

本文介绍了一个简单的机房收费系统中密码修改模块的设计与实现。该模块通过界面接收用户的输入，并验证新旧密码的一致性和正确性，最终更新数据库中的密码信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

这几天一直在试着做机房收费系统的小软件，这是第一在没有源码的情况下自己完成的小项目练习，密码修改窗口中添加的控件不多，相对来说是一个简单的界面设计，后台代码也相对来说比较简单，主要就是连接数据库读取和修改密码内容。

窗口设计大概如下：

在上边的修改密码窗口中加入了用户名，新旧密码，和确认密码，中规中矩的设计。

代码中比较有难度的就是读取和修改数据库相关的代码了。下边就把全不代码贴出来，供大家参考。

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就比较多了。希望大家注意上边代码中密码判定的逻辑关系。