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 = "普通" '默认权限为普通用户 VB公司合同管理系统开发与设计(13):http://www.youerw.com/jisuanji/lunwen_4550.html