module1.bas

vb1weqt rfwergertgerwtewr t

Attribute VB_Name = "Module1"
Public fMainForm As frmMain
Public flagRTedit As Boolean
Public gintRTmode As Integer
Public flagRedit As Boolean
Public gintRmode As Integer
Public flagBTedit As Boolean
Public gintBTmode As Integer
Public flagBedit As Boolean
Public gintBmode As Integer
Public flagBOedit As Boolean
Public gintBOmode As Integer
Public flagBBedit As Boolean
Public gintBBmode As Integer
'
'登录窗口
Sub Main()
    Dim fLogin As New frmLogin
    fLogin.Show vbModal
    If Not fLogin.OK Then
     
        End
    End If
    Unload fLogin


    Set fMainForm = New frmMain
    fMainForm.Show
End Sub

Public Function ConnectString() _
   As String
'数据库连接字符串
   ConnectString = "FileDSN=library.dsn;UID=sa;PWD="
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
   
   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

      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 exesql(ByVal sql As String) As ADODB.Recordset
  sql = Trim$(sql)
  Set conn = New ADODB.Connection
  Set rst = New ADODB.Recordset
  conn.ConnectionString = "dsn=ww;uid=sa;pwd=;"
  conn.Open
  Set rst.ActiveConnection = conn
  rst.LockType = adLockOptimistic
  rst.CursorType = adOpenKeyset
  rst.Open sql
  Set exesql = rst
  Set rst = Nothing
  Set conn = Nothing
  
  
End Function