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