菜单
　　

        frmModiPass.Show 1
    End Sub

    Private Sub mnuLogin_Click()     '重新登录
        gblnPurview = False
        gstrUser = ""
        pubCnn.Close
        Unload Me
        frmLogin.Show
    End Sub

    Private Sub mnuModikh_Click()  '添加修改客户
        frmMan.SSTab1.Tab = 0
        frmMan.Show 1
    End Sub

    Private Sub mnuModiht_Click() '添加修改合同
        frmMan.SSTab1.Tab = 1
        frmMan.Show 1
    End Sub

    Private Sub mnuModigc_Click()  '添加修改工程
        frmMan.SSTab1.Tab = 2
        frmMan.Show 1
    End Sub


    Private Sub mnuQuerygc_Click()
        frmcxxm.Show 1
    End Sub

    Private Sub mnuQueryht_Click()
        frmcxht.Show 1
    End Sub

    Private Sub mnuQuerykh_Click()
        frmcxkh.Show 1
    End Sub
    4.3    系统模块的实现
    （1）添加用户模块的实现
     
    图 4.3 添加用户模块实现
    当单机确定按钮后，通过adoUser用SQL语句查询数据库“用户”表中时候有相同的用户名和密码，若有，提示该用户已存在，重新输入，焦点返回用户名文本框。如果无同名用户，将用户名和密码添加到数据库“用户”表中，并且默认设置权限为“普通”，用MsgBox语句提示添加用户成功。
    添加用户模块的代码实现：
    Private Sub cmdExit_Click()
        Unload Me
    End Sub
    Private Sub cmdOk_Click()  '确认
        '检查各文本框是否为空
        If Trim$(txtUserName.Text) = "" Then
            MsgBox "请输入用户名！", vbExclamation
            txtUserName.SetFocus
            Exit Sub
        End If
        If Trim$(txtPassword1.Text) = "" Then
            MsgBox "请输入密码！", vbExclamation
            txtPassword1.SetFocus
            Exit Sub
        End If
        If Trim$(txtPassword2.Text) = "" Then
            MsgBox "请确认密码！", vbExclamation
            txtPassword2.SetFocus
            Exit Sub
        End If
    '检査两次输入密码是否一致
        If Trim$(txtPassword1.Text) <> Trim$(txtPassword2.Text) Then
            MsgBox "确认密码错误，请重新输入！ ", vbExclamation
            Call FocusBack(txtPassword2)
            Exit Sub
        End If
    'SQL语句作为ADO控件的记录源
    Adodc1.RecordSource = "SELECT * FROM 用户 WHERE 用户名='" & txtUserName.Text & "'"
    Adodc1.Refresh
    With Adodc1.Recordset
        If .BOF Then  '检査是否有同名用户，若无，添加，若有，重新输入
            .AddNew
            .Fields(0).Value = Trim$(txtUserName.Text)
            .Fields(1).Value = Trim$(txtPassword1.Text)
            .Fields(2).Value = "普通" '默认权限为普通用户
  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

关闭返回