Attribute VB_Name = "Module1"
Option Explicit

Public dbConn As New ADODB.Connection
Public loginUser As String
Public loginOK As Boolean
Public cmdType As String
Public tUser_id As String
Public tDept_id As Integer
Public tEmp_id As Integer
Public tCheck_ym As String
Public tQx As String

Sub Main()
    If ConnectToDatabase = False Then
        MsgBox "連接數據庫出錯！"
        End
    End If
    

    
    loginOK = False
    cmdType = ""

    frmLogin.Show vbModal
    Unload frmLogin

    If loginOK Then
        MDIForm1.Show
    End If
End Sub

'連接到數據庫
Function ConnectToDatabase() As Boolean
    On Error GoTo ERR_CONN
  
    '設置服務器名稱，數據庫名稱，登錄名（此時假設密碼為空）
   dbConn.ConnectionString = "dsn=rsgl;Database=man;uid=sa;pwd="
   'dbConn.ConnectionString = "Provider=msdasql;Database=man;server=computer;uid=sa;pwd="
    dbConn.Open
  
    ConnectToDatabase = True
    Exit Function

ERR_CONN:
    ConnectToDatabase = False
End Function