module1.bas

这是一个比较实用的图书馆管理系统的源代码。

Attribute VB_Name = "Module1"
Option Explicit



Public userlevel As String    '保存用户级别
Public flag As Integer       '记录操作标记
'Public flag1 As Integer      '记录操作标记
Public tna As String        '保存表名，用于调用frmedrec1窗体
Public cap As String        '保存标题名，用于调用frmedrec1窗体
Public recs As Integer       '保存记录集中记录个数


Public Function exesql(ByVal sql As String) As ADODB.Recordset
  Dim conn As ADODB.Connection
  Dim rst As ADODB.Recordset
  sql = Trim$(sql)
  Set conn = New ADODB.Connection
  Set rst = New ADODB.Recordset
  conn.ConnectionString = "DSN=Library;UID=adminlibrary;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

Public Sub delData(ByVal tn As String)
  '删除指定表中所有记录，对于oper表添加一个系统用户
  Dim sql As String
  sql = "delete " & Trim$(tn)
  Set conn = New ADODB.Connection
  conn.ConnectionString = "DSN=Library;UID=adminlibrary;PWD=;"
  conn.Open
  conn.Execute sql
  If Trim(tn) = "oper" Then
     sql = "insert oper values('1234','1234','系统管理员')"
     conn.Execute sql
  End If
  conn.Close
  
End Sub

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