机房收费系统之二

添加用户界面

今天做了一个添加用户的界面，也是一个挺简单的小程序，目前这个程序还没有进行优化，改变了一下表现形式，之前都是手动去添加用户名的，这次做了一点小小的改进。在数据库中设定用户名ID自动增长，然后在添加用户界面自动读取数据库中的用户名ID，就相当与是申请QQ号码一样，系统会自动给出一个用户名ID。其中数据库的设定比较简单由一张截图来说明：

只要设定好标识规范中的标识种子和标识增量就可以。

设置好了数据库接下来就要写实现这一功能的代码了，其中用到的代码都是之前学习过的代码，现在拿出来重新换一种用法而已，具体的代码如下：

Option Explicit

Private Sub Command1_Click()
      Dim mrc As ADODB.Recordset
      Dim msgtext As String
      Dim txtSQL As String
      Dim admin As String
      '判断内容是否为空
      '用户名数据库编号后给出，用户名栏直接读取出新建的用户名编号（2017.12.22）已完成
      
     If (TxtUserName.Text = "") Then
         MsgBox "姓名不能为空！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
     End If
     
     If (TxtPWD.Text = "") Then
         MsgBox "密码不能为空！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
     End If
     
     If (TxtRPWD.Text = "") Then
         MsgBox "确认密码不能为空！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
     End If
     
     If (ComHead.Text = "") Then
         MsgBox "请选择用户级别！", vbOKOnly + vbExclamation, "警告"
         Exit Sub
     End If
     
     txtSQL = "select*from user_info"
     Set mrc = ExecuteSQL(txtSQL, msgtext)
      '读取用户名编号（2）在添加用户界面当中不退出来的情况下
          mrc.MoveLast
         Label6.Caption = mrc.Fields(0) + 2
    '判断两次输入密码不相同
    If Trim(TxtPWD.Text) <> Trim(TxtRPWD.Text) Then
       MsgBox "两次输入的密码不相同，请确认后重新输入！", vbOKOnly + vbExclamation, "警告"
       TxtRPWD = ""
       Exit Sub
    Else
       '判断密码输入框不能为空
       If TxtPWD.Text = "" Then
       MsgBox "密码不能为空！", vbOKOnly + vbExclamation, "警告"
       Exit Sub
    Else
    
       '添加新的记录
       mrc.AddNew
       'mrc.Fields(0) = Trim(TxtuserID.Text)
       mrc.Fields(3) = Trim(TxtUserName.Text)
       mrc.Fields(1) = Trim(TxtPWD.Text)
       mrc.Fields(2) = Trim(ComHead.Text)
       mrc.Fields(4) = Trim("admin")
       '更新数据库
       mrc.Update
       MsgBox "成功添加用户！", vbOKOnly + vbExclamation, "警告"
                'TxtuserID.Text = ""
         TxtUserName.Text = ""
         TxtPWD.Text = ""
         TxtRPWD.Text = ""
         ComHead.Text = ""
       Exit Sub
    End If
  End If
   
End Sub

Private Sub Command3_Click()
         TxtuserID.Text = ""
         TxtUserName.Text = ""
         TxtPWD.Text = ""
         TxtRPWD.Text = ""
         ComHead.Text = ""
End Sub

Private Sub Form_Load()
          Dim mrc As ADODB.Recordset
          Dim msgtext As String
          Dim txtSQL As String
          txtSQL = "select*from user_info"
          Set mrc = ExecuteSQL(txtSQL, msgtext)
          '读取用户名编号(1)在进入添加界面后
          mrc.MoveLast
         Label6.Caption = mrc.Fields(0) + 1
         
         ComHead.AddItem "管理员"
         ComHead.AddItem "操作员"
         ComHead.AddItem "一般用户"
         
End Sub

同时附上界面控件的设计图