Attribute VB_Name = "main_modele"
Option Explicit
Public fMainForm As frmMain
Public login_user As user ' 整個系統運行user變量
Public db As database '全局數據庫連接





Sub main()
    Dim fLogin As New frmLogin
    
    If App.PrevInstance Then '一次只能運行一個實例
    MsgBox ("程序已經運行，不能再次裝載。"), vbExclamation
    End
    End If
    
    
    Set db = New database
    Set login_user = New user
    
    
    
    fLogin.Show vbModal
    If Not fLogin.OK Then
     'Login Failed so exit app
        End
    End If
    Unload fLogin
 

    Set fMainForm = New frmMain
    fMainForm.Show
    
    
End Sub