?? database.bas
字號:
Attribute VB_Name = "Database"
Option Explicit
Public constr As String '數據庫連接信息
Public privilege As Integer '用戶權限
Public rst As ADODB.Recordset '數據庫內的記錄
Public rst1 As ADODB.Recordset
Public con As ADODB.Connection
Public tablename As String
Type userdata '用戶信息,包括用戶名,密碼和對應的權限
user_id As String
pwd As String
right As Integer
End Type
Public Sub connect_db()
constr = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + App.Path + "\book_manage_db.mdb" + ";Persist Security Info=False" '數據庫引擎+路徑
Set con = New ADODB.Connection '新建一個數據庫連接
con.CursorLocation = adUseClient '用于客戶端(ADOR)Recordset對象,游標庫屬性必須為adUseClient
con.ConnectionString = constr '連接信息
con.Open
End Sub
Function open_connection(table_name As String)
Dim sqlstr As String
Dim str As String
Set con = New ADODB.Connection
Set rst = New ADODB.Recordset
con.CursorLocation = adUseClient
sqlstr = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + App.Path + "\book_manage_db.mdb" + ";Persist Security Info=False"
con.Open sqlstr
str = "select * from " & table_name & "" '執行SQL查詢
rst.Open str, con, adOpenDynamic, adLockOptimistic
rst.Requery
End Function
Public Sub check_privage(rightlevel As Integer)
Dim right As Integer
right = rightlevel
Select Case right
Case 1: '普通用戶,只能查詢圖書信息和借閱信息
Form1.xpcmdbutton1.Enabled = False
Form1.xpcmdbutton2.Enabled = False
Form1.xpcmdbutton3.Enabled = False
Form1.xpcmdbutton4.Enabled = False
Form1.xpcmdbutton5.Enabled = True
Form1.xpcmdbutton6.Enabled = True
Form1.xpcmdbutton7.Enabled = False
Form1.xpcmdbutton8.Enabled = False
Form1.xpcmdbutton11.Enabled = False
Form1.Show
Unload frmLogin
Case 2: '借書管理員,還可以借書和打印憑證
Form1.xpcmdbutton1.Enabled = True
Form1.xpcmdbutton2.Enabled = False
Form1.xpcmdbutton3.Enabled = False
Form1.xpcmdbutton4.Enabled = False
Form1.xpcmdbutton5.Enabled = True
Form1.xpcmdbutton6.Enabled = True
Form1.xpcmdbutton7.Enabled = True
Form1.xpcmdbutton8.Enabled = False
Form1.xpcmdbutton11.Enabled = True
Form1.Show
Unload frmLogin
Case 3: '還書管理員,可以還書
Form1.xpcmdbutton1.Enabled = False
Form1.xpcmdbutton2.Enabled = True
Form1.xpcmdbutton3.Enabled = False
Form1.xpcmdbutton4.Enabled = False
Form1.xpcmdbutton5.Enabled = True
Form1.xpcmdbutton6.Enabled = True
Form1.xpcmdbutton7.Enabled = True
Form1.xpcmdbutton8.Enabled = False
Form1.xpcmdbutton11.Enabled = False
Form1.Show
Unload frmLogin
Case 4: '超級用戶
Form1.xpcmdbutton1.Enabled = True
Form1.xpcmdbutton2.Enabled = True
Form1.xpcmdbutton3.Enabled = True
Form1.xpcmdbutton4.Enabled = True
Form1.xpcmdbutton5.Enabled = True
Form1.xpcmdbutton6.Enabled = True
Form1.xpcmdbutton7.Enabled = True
Form1.xpcmdbutton8.Enabled = True
Form1.xpcmdbutton11.Enabled = True
Form1.Show
Unload frmLogin
End Select
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -