modmain.bas

通用书店管理系统

Attribute VB_Name = "ModMain"
   
Sub Main()

        On Error Resume Next
        
        If Not SetConnect() Then        ' 如果连接失败则调用数据库配置窗口
            frmDBconfirm.Show vbModal
            If Not SetConnect() Then Exit Sub   ' 配置失败退出程序
        End If
           
        frmSysLogin.Show vbModal
        If frmSysLogin.blnLoginOK Then
            strUserName = Trim(frmSysLogin.txtUserName)
            'strusertruename 已经有值
            strUserPasswd = Trim(frmSysLogin.txtPassword)
            Unload frmSysLogin
            
        Load FrmSplash
        FrmSplash.Show
        FrmSplash.ShowPattern 1
            
'        If checkpermission("书店管理系统", strUserName, , "日常管理.日志管理") Then
'            MsgBox "ok"
'        End If
'        Exit Sub
            '根据已经设好的权限判断菜单是否可用
            For Each Control In frmMain.Controls
                If UCase(TypeName(Control)) = "MENU" Then
                    Select Case Control.Caption
                      Case "-", "退出", "窗口", "帮助", "目录", "帮助主题", "关于", "层叠", "横向平铺", "纵向平铺", "排列图标", "系统管理"
                      Case Else
                        If Not checkpermission("书店管理系统", strUserName, , Control.Caption, True) Then
                           Control.Enabled = False
                        Else
                           Control.Enabled = True
                        End If
                    End Select
                End If
            Next Control
            frmMain.Show
            SetToolBar ("0000X00X000X011")
        Else
            Unload frmSysLogin
        End If
    Exit Sub

End Sub