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