Public Class Main

  Public Shared Sub Main()
    '是否啟用數據庫連接助手，版權：http://www.trfsoft.com
    Dim IsUseConnSupporter As Boolean = True

    If IsUseConnSupporter Then
      Dim strErrMsg As String
      Dim techSupporter As New techSupport.techSupport
      If Not techSupporter.TestConn(DB.DB.ConnStr, strErrMsg, Application.ProductName) Then
        MsgBox(strErrMsg, MsgBoxStyle.Exclamation + MsgBoxStyle.ApplicationModal + MsgBoxStyle.SystemModal + MsgBoxStyle.MsgBoxSetForeground)
        Application.Exit()
        End
      End If
    End If

    '===========================================================
    '連接成功，進行正常的登錄驗證
    '=======================================
    '首先顯示登錄窗體以驗證用戶身份
    Dim myfrm As New frmLogin
    myfrm.txtPwd.Focus()
    myfrm.TopMost = True
    myfrm.ShowDialog()
    '如果成功登錄則記錄下用戶權限并運行主窗體
    If myfrm.blnLoginSucc = True Then
      '      strLogRole = myfrm.strLoginRole
      Dim myfrmMain As New frmMain
      myfrmMain.strLogRole = myfrm.strLoginRole
      Application.Run(myfrmMain)
    End If

  End Sub

End Class