module1.bas

vb模拟 图书管理系统

Attribute VB_Name = "Module1"
Public userlevel As String '保存用户级别
Public userlevel1 As String '保存用户级别：用于调用edlev窗体
Public flag As Integer '记录操作标记
Public tna As String '保存表名：用于调用edrecl窗体
Public cap As String '保存标题名：用于调用edrecl窗体
Public recs As Integer '保存记录集中记录个数
Public xnum As String '保存用户借书证号
Public xbnum As String '保存图书编号
Public press1 As String '保存出版社
Public user As String '保存用户名
Public aaa As String
Sub main()
登陆.Show vbModal
End Sub

Public Function exesql(ByVal sql As String) As ADODB.Recordset
sql = Trim$(sql)
Dim strpath As String
strpath = App.Path
If Right(strpath, 1) <> "/" Then
strpath = strpath & "/"
End If
strpath = strpath & "lib.mdb"
Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset
conn.Open "driver={Microsoft Access Driver (*.mdb)};pwd=;dbq=" & strpath
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(conn)
'删除指定表中的所有记录，对于oper表添加一个系统用户
Dim strpath As String
strpath = App.Path
If Right(strpath, 1) <> "/" Then
strpath = strpath & "/"
End If
strpath = strpath & "lib.mdb"
Set conn = New ADODB.Connection
conn.Open "driver={Microsoft Access Driver (*.mdb)};pwd=;dbq=" & strpath
sql = "delete * from oper"
'sql = "delete " & Trim$(tn)
conn.Execute sql
'If Trim(tn) = "oper" Then
sql = "insert into oper values('1234','1234','系统管理员')"
conn.Execute sql
sql = "insert into oper values('guest','guest','访客')"
conn.Execute sql
'conn.Close
End Sub

Public Sub endata(keyasc As Integer)
If keyasc = 13 Then
SendKeys "{TAB}" '将回车键转Tab换成键
End If
End Sub