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