module1.bas

图书管理系统

Attribute VB_Name = "Module1"
Public userlevel As String
Public username As String
Public flag, flag2 As Integer

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
  sTokens = Split(SQL)
  Set cnn = New ADODB.Connection
  cnn.ConnectionString = "driver={sql server};server=localhost;database=library_mis;uid=sa;pwd="
  cnn.Open
  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
     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


Sub main()
  login.Show vbModal
End Sub

Public Sub EnterToTab(Keyasc As Integer)
  If Keyasc = 13 Then
    SendKeys "{TAB}"
  End If
End Sub