mdlpublic.bas

VB数据库设计的代码。需要根据自己的数据库再作调整

Attribute VB_Name = "mdlPublic"
Option Explicit

Global Const LISTVIEW_MODE0 = "大图标"
Global Const LISTVIEW_MODE1 = "小图标"
Global Const LISTVIEW_MODE2 = "列表"
Global Const LISTVIEW_MODE3 = "详细资料"
Public fMainForm As frmMain

Public Enum ListViewState
    USERLIST = 1
    MEMBERSHOPLIST = 2
    MERCHANDISEKINDLIST = 3
    MERCHANDISELIST = 4
    APPLYLIST = 5
    DAYREPORTLIST = 6
    REPORTDAY = 7
    REPORTMON = 8
End Enum

Public g_currentUser As clsOpuser       '当前操作者
Public g_listViewState As ListViewState '当前列表状态

Sub Main()
    Dim dbstate As clsDbState
    Dim login As clsOpLogin
    
AGAIN:
    Set dbstate = New clsDbState
    If Not dbstate.GetConnState() Then
        'MsgBox "数据库连接失败!", vbExclamation Or vbOKOnly, "错误"
        'End
        frmDatabaseConnInfo.Show vbModal
        GoTo AGAIN
    End If
    
    Set g_currentUser = New clsOpuser
    Set login = New clsOpLogin
    
    If Not login.ValidateUser(g_currentUser) Then
        End
    End If
    
    Set fMainForm = New frmMain
    fMainForm.Show
End Sub