菜单
　　

            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
  1. 上一篇：ASP.net实验室建设与实习基地信息库系统的建设与实施
  2. 下一篇：Flash俄罗斯方块游戏设计+文献综述

  1. JAVA基于安卓平台的医疗护工管理系统设计

  2. java+mysql酒店管理系统设计与实现

  3. Ruby+mysql就业信息管理系统的设计与实现

  4. php进销存管理系统的设计与实现

  5. jsp医药连锁店管理系统的设计与实现

  6. jsp+mysql学生实践创新项目管理系统设计与实现

  7. jsp+mysql停车场车辆管理系统的设计与实现

  8. 十二层带中心支撑钢结构...

  9. 河岸冲刷和泥沙淤积的监测国内外研究现状

  10. 中考体育项目与体育教学合理结合的研究

  11. 大众媒体对公共政策制定的影响

  12. 酸性水汽提装置总汽提塔设计+CAD图纸

  13. 电站锅炉暖风器设计任务书

  14. 乳业同业并购式全产业链...

  15. java+mysql车辆管理系统的设计+源代码

  16. 当代大学生慈善意识研究+文献综述

  17. 杂拟谷盗体内共生菌沃尔...

　　

About

751论文网手机版...

主页：http://www.751com.cn

关闭返回