module1.bas

很好的图书管理系统

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 + "\lib.mdb;"
conn.Open
Set rst.ActiveConnection = conn
rst.CursorType = adOpenDynamic
rst.LockType = adLockOptimistic
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.Recordset
Dim rst As New ADODB.Recordset
conn.ConnectionString = "provide=microsoft.jet.oledb.4.0;" + "data source=" + App.Path + "\lib.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(keyase As Integer)
If keyasc = 13 Then
SendKeys "{tab}"
End If
End Sub