添加用户界面
今天做了一个添加用户的界面,也是一个挺简单的小程序,目前这个程序还没有进行优化,改变了一下表现形式,之前都是手动去添加用户名的,这次做了一点小小的改进。在数据库中设定用户名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
同时附上界面控件的设计图