module1.bas

一个用VB编写的小型图书管理系统

Attribute VB_Name = "Module1"
Public userlevel As String
Public flag As Integer
Public tna As String
Public cap As String
Public recs As Integer
Sub main()
  pass.Show vbModal
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 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Lib.mdb;Persist Security Info=False;"
   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
Public Sub deldata(ByVal tn As String)
   Dim sql As String
   sql = "delete from " & Trim$(tn)
   Set conn = New ADODB.Connection
   conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Lib.mdb;Persist Security Info=False;"
   conn.Open
   conn.Execute sql
   If Trim(tn) = "oper" Then
      sql = "insert into oper values( '1234', '1234', '系统管理员')"
      conn.Execute sql
   End If
   conn.Close
End Sub
Public Sub endata(keyasc As Integer)
  If keyasc = 13 Then
     SendKeys "{tab}"
  End If
End Sub