VB+access商品信息管理系统设计+源码 第8页

5.2 界面设计
5.2.1 登陆界面设计
    登陆界面设计如图所示：
用户信息在user数据表中，输入用户名、密码，登陆系统。
本界面代码设计如下：

Option Explicit

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdOK_Click()
    Dim rs As New ADODB.Recordset
    Dim sql As String
    Dim msgstr As String
    Dim grade As Boolean
   
    sql = "select * from users where username = '" & txtUserName.Text & "'"
    Set rs = GoSql(sql, msgstr)
    If Not rs.EOF Then
        If txtPassword.Text = rs.Fields(1) Then
            '设置用户全局变量,该变量声明在标准模块内
            G_UserName = rs.Fields(0)
            '设置用户等级全局变量，该变量声明在标准模块内
            grade = rs.Fields(2)
            '如果登录用户等级不是管理员，则禁止某些功能
            If Not grade Then
                '设置菜单项不可用
                frmMain.mnuSysAdd.Enabled = False
                frmMain.mnuSysDele.Enabled = False
                frmMain.mnuProductTypeDel.Enabled = False
                frmMain.mnuProductInfoDel.Enabled = False
            End If
            '显示主窗体，并卸载自己
            frmMain.Show
            Unload Me
        Else
            MsgBox "密码错误，请重新录入！", , "登陆"
            txtPassword.Text = ""
            txtPassword.SetFocus
        End If
    Else
        MsgBox "无此用户，请重新录入！", , "登陆"
        txtUserName.SetFocus
    End If
    Set rs = Nothing
End Sub

5.2.2 主窗体界面设计
    主窗体设计如下：
 
登陆系统后，进入如上界面，系统主要设有【系统】、【订单管理】、【商品管理】、【结算管理】、【帮助】5个功能模块。并设有添加订单、修改订单、查询订单、添加类型、修改类型、添加商品、修改商品、删除商品、查询商品、结算添加、结算查询、密码修改等快捷按钮。
本界面代码设计如下：

Option Explicit本文来自辣.文,论-文·网原文请找腾讯752018766

Private Sub mnuDillAdd_Click()
    frmOrderAdd.Show
End Sub

Private Sub mnuDillFind_Click()
    frmOrderFind.Show

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页