module11.bas

随着计算机应用的普及

Attribute VB_Name = "Module1"
Public fMainForm As frmMain
Public UserName As String
Public gintMode As Integer
Public flagEdit As Boolean
Public cnn As ADODB.Connection

Sub Main()
Dim strcn As String
On Error GoTo er

 strcn = "Provider=SQLOLEDB;Data Source=127.0.0.1;initial catalog=Personnel;User ID=sa;Password="
Set cnn = New ADODB.Connection
cnn.Open strcn
If cnn.State <> adStateClosed Then
MsgBox "连接成功"
frmMain.Show
Exit Sub
End If
   ' 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
er:
   MsgBox Err.Description
End Sub
Public Function ConnectString() As String
'returns a DB ConnectString
   ConnectString = "Provider=SQLOLEDB;Data Source=222.28.126.79;initial catalog=StuSMS;User ID=sa;Password=sa"
  ' "user id=sa;data source=localhost;initial catalog=StuSMS;password=sa";
End Function


'Public fMainForm As frmMain
'Public gintMode As Integer
'Public flagEdit As Boolean



'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

'   As String
''returns a DB ConnectString
'   ConnectString = "FileDSN=personnel.dsn;UID=sa;PWD="
'End Function
Public Function ExecuteSQL(ByVal SQL _
   As String, MsgString As String) _
   As ADODB.Recordset
'executes SQL and returns Recordset
   Dim cnn As ADODB.Connection
   Dim rst As ADODB.Recordset
   Dim sTokens() As String
   
   On Error GoTo ExecuteSQL_Error
   
   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
'将enter换成tab
Public Sub EnterToTab(Keyasc As Integer)
    If Keyasc = 13 Then
        SendKeys "{TAB}"
    End If
End Sub