毕业论文

打赏
当前位置: 毕业论文 > 计算机论文 >

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
'检査两次输入密码是否相同
    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
------分隔线----------------------------
推荐内容