?? 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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -