VB公司合同管理系统开发与设计(15)

        Exit Sub
    End If
'检査两次输入密码是否相同
    If Trim$(txtPassword1.Text) <> Trim$(txtPassword2.Text) Then
        MsgBox "确认密码错误，请重新输入！", vbExclamation
        Call FocusBack(txtPassword2)
        Exit Sub
    End If
    With Adodc1   '修改密码
        .RecordSource = "SELECT * FROM 用户 WHERE 用户名='" & gstrUser & "'"
        .Refresh
        .Recordset("密码").Value = Trim$(txtPassword1.Text)
        .Recordset.Update
    End With
    MsgBox "密码修改成功！ ", vbInformation
End Sub
（5）重新登录与退出系统模块的实现
重新登录的代码实现：
Private Sub mnuLogin_Click()     '重新登录
    gblnPurview = False
    gstrUser = ""
    pubCnn.Close
    Unload Me
    frmLogin.Show
End Sub
退出系统的代码实现：
Private Sub mnuExit_Click() '退出
    Unload Me
End Sub
4.4   信息管理模块的实现
（1）客户信息管理模块

图 4.7 客户信息管理模块实现
若要添加新的客户信息，则用户单击添加按钮，然后在添加或修改框架中输入相关信息。
若要修改已经存在的客户信息，则用户西安需要在DataGrid控件中选择想要修改的对象，然后单击编辑，在添加或修改框架中输入要修改的内容。
若像删除已经存在的客户信息，则需要在在DataGrid控件中选择想要删除的对象，软后单击删除。
如果确认添加、修改、删除操作，那么单击更新，所修改的内容即可保存到数据表中，如果想取消添加、修改、删除操作，单击取消即可。
客户信息管理模块的代码实现如下：
'通用过程：锁定/解锁用于输入和数据操作的控件
Private Sub MyLock(ByVal bLock As Boolean, iTab As Integer)
    fraCmdBtn.Enabled = True
    '文本框
    txtkhbh.Locked = bLock 'True/False
    txtkhxm.Locked = bLock
    txtgsm.Locked = bLock
    txthtbh.Locked = bLock
    txthtmc.Locked = bLock
    txtxmbh.Locked = bLock
    txtxmmc.Locked = bLock
    '按钮
    cmdAdd.Enabled = bLock
    cmdEdit.Enabled = bLock
    cmdDelete.Enabled = bLock
    cmdUpdate.Enabled = Not bLock 'False/True
    cmdCancel.Enabled = Not bLock
    '组合框
    cbokh1.Enabled = bLock
    cbokh2.Enabled = bLock
    cboht.Enabled = bLock
    '数据网格
    dgdkh.Enabled = bLock
    dgdht.Enabled = bLock
    dgdxm.Enabled = bLock
    '选项卡
    Dim i As Integer
    For i = 0 To 2
        If i = iTab And bLock = False Then
            SSTab1.TabEnabled(i) = Not bLock VB公司合同管理系统开发与设计(15):http://www.youerw.com/jisuanji/lunwen_4550.html