Attribute VB_Name = "Module1"
Public fMainForm As frmMain
Public flagPedit As Boolean
Public gintPmode As Integer
Public flagCedit As Boolean
Public gintCmode As Integer
Public flagGedit As Boolean
Public gintGmode As Integer
Public flagSedit As Boolean
Public gintSmode As Integer
Public flagOedit As Boolean
Public gintOmode As Integer
Public UserName As String



Sub Main()
    Dim fLogin As New frmLogin
    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

Public Function ConnectString() _
   As String
'返回一個數據庫連接
   ConnectString = "FileDSN=trade.dsn;UID=sa;PWD=kk"
End Function
Public Function ExecuteSQL(ByVal SQL _
   As String, MsgString As String) _
   As ADODB.Recordset
'執行SQL語句，并返回記錄集對象
   '聲明一個連接
   Dim cnn As ADODB.Connection
     '聲明一個數據集對象
   Dim rst As ADODB.Recordset
   Dim sTokens() As String
'異常處理
   On Error GoTo ExecuteSQL_Error
   '用Split函數產生一個包含各個子串的數組
   
   sTokens = Split(SQL)
     '創建一個連接
   Set cnn = New ADODB.Connection
   '打開連接
   cnn.Open ConnectString
   If InStr("INSERT,DELETE,UPDATE", _
      UCase$(sTokens(0))) Then
         '執行查詢語句
      cnn.Execute SQL
      MsgString = sTokens(0) & _
         " query successful"
   Else
      Set rst = New ADODB.Recordset
      rst.Open Trim$(SQL), cnn, _
         adOpenKeyset, _
         adLockOptimistic
     'rst.MoveLast     'get RecordCount
'返回記錄集對象
      Set ExecuteSQL = rst
      MsgString = "查詢到" & rst.RecordCount & _
         " 條記錄 "
   End If
ExecuteSQL_Exit:
   Set rst = Nothing
   Set cnn = Nothing
   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
Public Function GetRkno() As String
    GetRkno = Format(Now, "yymmddhhmmss")
    Randomize
    GetRkno = GetRkno & Int((99 - 10 + 1) * Rnd + 10)
End Function