VB公司合同管理系统开发与设计(13)
frmModiPass.Show 1
End Sub
Private Sub mnuLogin_Click() '重新登录
gblnPurview = False
gstrUser = ""
pubCnn.Close
Unload Me
frmLogin.Show
End Sub
Private Sub mnuModikh_Click() '添加修改客户
frmMan.SSTab1.Tab = 0
frmMan.Show 1
End Sub
Private Sub mnuModiht_Click() '添加修改合同
frmMan.SSTab1.Tab = 1
frmMan.Show 1
End Sub
Private Sub mnuModigc_Click() '添加修改工程
frmMan.SSTab1.Tab = 2
frmMan.Show 1
End Sub
Private Sub mnuQuerygc_Click()
frmcxxm.Show 1
End Sub
Private Sub mnuQueryht_Click()
frmcxht.Show 1
End Sub
Private Sub mnuQuerykh_Click()
frmcxkh.Show 1
End Sub
4.3 系统模块的实现
（1）添加用户模块的实现
图 4.3 添加用户模块实现
当单机确定按钮后，通过adoUser用SQL语句查询数据库“用户”表中时候有相同的用户名和密码，若有，提示该用户已存在，重新输入，焦点返回用户名文本框。如果无同名用户，将用户名和密码添加到数据库“用户”表中，并且默认设置权限为“普通”，用MsgBox语句提示添加用户成功。
添加用户模块的代码实现：
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdOk_Click() '确认
'检查各文本框是否为空
If Trim$(txtUserName.Text) = "" Then
MsgBox "请输入用户名！", vbExclamation
txtUserName.SetFocus
Exit Sub
End If
If Trim$(txtPassword1.Text) = "" Then
MsgBox "请输入密码！", vbExclamation
txtPassword1.SetFocus
Exit Sub
End If
If Trim$(txtPassword2.Text) = "" Then
MsgBox "请确认密码！", vbExclamation
txtPassword2.SetFocus
Exit Sub
End If
'检査两次输入密码是否一致
If Trim$(txtPassword1.Text) <> Trim$(txtPassword2.Text) Then
MsgBox "确认密码错误，请重新输入！ ", vbExclamation
Call FocusBack(txtPassword2)
Exit Sub
End If
'SQL语句作为ADO控件的记录源
Adodc1.RecordSource = "SELECT * FROM 用户 WHERE 用户名='" & txtUserName.Text & "'"
Adodc1.Refresh
With Adodc1.Recordset
If .BOF Then '检査是否有同名用户，若无，添加，若有，重新输入
.AddNew
.Fields(0).Value = Trim$(txtUserName.Text)
.Fields(1).Value = Trim$(txtPassword1.Text)
.Fields(2).Value = "普通" '默认权限为普通用户