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