Attribute VB_Name = "Module1"
Public fMainForm As FrmMain  '定義一個全局對象
Public username As String    '用于記錄當前用戶
Public password As String    '記錄當前密碼
Public flagtoexcel As Integer  '標志當前的導出數據對象
Public gintcMode As Integer
Public gintdMode As Integer
Public gintvMode As Integer
Public gintsMode As Integer
Public gintrMode As Integer
Public gintaMode As Integer
Public flagcEdit As Boolean
Public flagdEdit As Boolean
Public flagvEdit As Boolean
Public flagsEdit As Boolean
Public flagrEdit As Boolean
Public flagaEdit As Boolean            '以下是定義5個模塊的標志，用于標志其處于添加還是修改狀態
Sub Main()
    Dim fLogin As New frmlogin
    Dim fblogin As New Frmblogin
    fblogin.Show vbModal
    fLogin.Show vbModal
    If Not fLogin.OK Then
       
        End                           '失敗則退出
    End If
    Unload fLogin


    Set fMainForm = New FrmMain       '登陸成功轉主界面
    fMainForm.Show
    flagtoexcel = 0
End Sub

'定義一個數據庫連接函數，返回一個連接字符串
Public Function ConnectString() As String
   ConnectString = "FileDSN=myconnection.dsn;UID=sa;PWD=" '連接數據庫
End Function
'執行SQL，返回記錄集合函數
Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset

   Dim cnn As ADODB.Connection
   Dim rst As ADODB.Recordset
   Dim sTokens() As String
   
   On Error GoTo ExecuteSQL_Error                    ' 出錯轉向ExecuteSQL_Error
    
   sTokens = Split(SQL)
  '' sTokens = Split(" ")
   Set cnn = New ADODB.Connection
    cnn.Open ConnectString
   If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then     '比較SQL語句,與三種操作匹配則執行
   'If InStr("ADDNEW,INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then
      cnn.Execute SQL
      ''cnn.Execute "delete from driver where sj_id='" & "968453714'"
     '' cnn.Execute ""
      MsgString = sTokens(0) & " query successful"
     'cnn.Close
   Else                                                          '否則執行查詢記錄集
      Set rst = New ADODB.Recordset
      rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic
      'rst.MoveLast     'get RecordCount
      Set ExecuteSQL = rst
      MsgString = "查詢到" & rst.RecordCount & " 條記錄 "
      'rst.Close
   End If
ExecuteSQL_Exit:
   Set rst = Nothing
   Set cnn = Nothing
  ' cnn.Close
  ' rst.Close
   Exit Function
   
ExecuteSQL_Error:
   MsgString = "查詢錯誤: " & Err.Description
   Resume ExecuteSQL_Exit
End Function
Public Sub EnterToTab(Keyasc As Integer)                   '默認回車后轉下一個文本
    If Keyasc = 13 Then
        SendKeys "{TAB}"
    End If
End Sub