module1.bas

图书管理系统 内有13个窗体 （附送代码） 功能包括查询 添加删除 修改

Attribute VB_Name = "Module1"
Public userlevel As String
Public flag As Integer
Public recs As Integer

Sub main()
pass.Show vbModal
End Sub

Public Function exesql(ByVal sql As String) As ADODB.Recordset
sql = Trim$(sql)
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" + "data source=" + App.Path + "\library.mdb;"
conn.Open
Set rst.ActiveConnection = conn
rst.CursorType = adOpenStatic
rst.LockType = adLockBatchOptimistic
rst.Open sql
Set exesql = rst
Set rst = Nothing
Set conn = Nothing
End Function

Public Sub deldata(ByVal tn As String)
sql = "delete * from " & Trim$(tn)
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
conn.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;" + "data source=" + App.Path + "\library.mdb;"
conn.Open
conn.Execute sql
If Trim(tn) = "oper" Then
conn.Execute "insert into oper values('admin','8888','管理员')"
End If
conn.Close
End Sub
Public Sub endata(keyasc As Integer)
If keyasc = 13 Then
SendKeys "{tab}"
End If
End Sub