VB公司合同管理系统开发与设计(15)
时间:2017-03-31 18:46 来源:毕业论文 作者:毕业论文 点击:次
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 (责任编辑：qin) |