3．添加用户
在Textbox中输入了相应的数据以后，按添加按钮则调用该按钮的Click事件，代码如下
当单击“添加”按钮时，首先检查输入的用户名和密码是否为空，代码如下：
Private Sub Command4_Click()
If Trim(Text1.Text) = "" Then
MsgBox "登陆用户名不允许为空！", vbOKOnly + 48, "提示："
Text1.SetFocus
Exit Sub
End If
If InStr(1, Trim(Text1.Text), "'", vbTextCompare) Then
MsgBox "用户姓名中有特殊字符" + "<'>,请删除。", vbOKOnly + 48, "提示："
Text1.SetFocus
Exit Sub
End If
If Trim(Text2.Text) = "" Then
MsgBox "密码不能为空，请输入密码！", vbOKOnly + 48, "提示："
Text2.Text = ""
Text3.Text = ""
Text2.SetFocus
Exit Sub
End If
End Sub
如果不为空，则检查用户名是否有重复，需要打开系统信息表，
Private Sub Command4_Click()
……
sqlstr = "select * from UserInfo where UserID='" & Text1.Text & "'"
rs.Open sqlstr, con, 1, 1
End Sub
如果当前记录不为空，则逐条记录检查是否有重复
Private Sub Command4_Click()
……
Userid = Trim(Text1.Text)
Userpwd = MD5(Trim(Text2.Text))
Username = Trim(Text4.Text)
Userpower = Trim(Combo1.Text)
DelNO = rs.RecordCount
Do While Not rs.EOF
……
rs.MoveNext
Loop
……
End Sub
如果有重复，则提示已存在这个用户，然后将焦点设置给Text1，并将所有的文本框清空。
Private Sub Command4_Click()
……
Do While Not rs.EOF
If Text1.Text = rs.Fields("UserID") Then
MsgBox "已经存在用户名为 " & Userid & " 的用户帐号", vbInformation
Text1.SetFocus
Exit Sub
End If
rs.MoveNext
Loop
rs.Close: Set rs = Nothing
End Sub
如果没有重复，再检查两次输入的密码是否一致，如果不一致，则提示“两次密码不一致”。
Private Sub Command4_Click()
……
If Trim(Text3.Text) <> Trim(Text2.Text) Then
MsgBox "两次密码不相同，请重输入！", vbOKOnly + 48, "提示："
Text2.Text = ""
Text3.Text = ""
Text2.SetFocus
Exit Sub
End If
End Sub
如果以上全部正确无误的设置好了，则将新用户的信息添加到数据表中，并提示“添加新用户成功”。
Private Sub Command4_Click()
sqlstr = "insert into UserInfo(UserID,UserPWD,UserName,UserPower) "
sqlstr = sqlstr & "values('" & Userid & "','" & Userpwd & "', "
sqlstr = sqlstr & "'" & Username & "','" &Userpower & "')"
con.Execute sqlstr
MsgBox "添加用户" & Text1.Text & "成功", vbOKOnly, "添加系统用户"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
'更新列表
LoadOperator
End Sub
4．删除系统用户
当用户双击ListView中的数据时，则会调用DeleteRecord()函数，如果系统用户只剩一个，则提示用户不能再删除；反之要求输入您想要删除的用户的密码，密码正确时才可以将该用户删除，密码错误时则不采取任何措施；最后调用LoadOperator显示并刷新Listview中的数据。根据以上的设计，DeleteRecord()的代码如下：
Private Sub DeleteRecord()
'删除用户操作
On Error Resume Next
If ListView.SelectedItem.Selected Then
If DelNO <= 1 Then
MsgBox "只剩下一个用户帐号，不允许再删除！", vbInformation
ElseIf MsgBox("确定要删除用户名为"& ListView.SelectedItem.Text & "的用户帐号吗？", vbYesNo + 32 + vbDefaultButton2) = vbYes Then
sqlstr = "select * from UserInfo where UserID='" & ListView.SelectedItem.Text & "'"
rs.Open sqlstr, con, 1, 1
If MD5(InputBox("请输入该用户的密码：")) = rs.Fields("UserPWD") Then
sqlstr = "delete from UserInfo where UserID='" & ListView.SelectedItem.Text & "'"
con.Execute sqlstr
Else
MsgBox "对不起！您输入的密码不正确，删除该用户失败！", vbInformation
End If
LoadOperator
End If
End If
rs.Close: Set rs = Nothing
End Sub
5．菜单设计
在Listview中单击鼠标右键会调用ListView的MouseUp事件，出现右键菜单menuOpertor，
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>