【正文】 附錄B: 部分主要源程序權(quán)限設(shè)置的主要代碼：Option ExplicitPublic constr As String 39。數(shù)據(jù)庫連接信息Public privilege As Integer 39。用戶權(quán)限Public rst As 39。數(shù)據(jù)庫內(nèi)的記錄Public rst1 As Public rst2 As Public con As Public tablename As StringType userdata 39。用戶信息，包括用戶名，密碼和對應(yīng)的權(quán)限 user_id As String pwd As String right As IntegerEnd TypePublic Sub connect_db() constr = Provider=。 + Data Source= + + \data\ + 。Persist Security Info=False 39。數(shù)據(jù)庫引擎+路徑 Set con = New 39。新建一個數(shù)據(jù)庫連接 = adUseClient 39。用于客戶端（ADOR）Recordset對象，游標(biāo) 庫屬性必須為adUseClient = constr 39。連接信息 End SubFunction open_connection(table_name As String)Dim sqlstr As StringDim str As String Set con = New Set rst = New = adUseClient sqlstr = Provider=。 + Data Source= + + \data\ + 。Persist Security Info=False sqlstr str = select * from amp。 table_name amp。 39。執(zhí)行SQL查詢 str, con, adOpenDynamic, adLockOptimistic End FunctionPublic Sub check_privage(rightlevel As Integer)Dim right As Integerright = rightlevelSelect Case right Case 1: 39。普通用戶，只能查詢圖書信息和借閱信息 = False = False = False = False = True = True = False = False = False Unload frmLogin Case 2: 39。2級管理員，還可以借書和還書 = True = True = False = False = True = True = True = False = False Unload frmLogin Case 3: 39。3級管理員，可以錄入圖書 = True = True = True = False = True = True = True = False = False Unload frmLogin Case 4: 39。系統(tǒng)管理員 = True = True = True = True = True = True = True = True = True Unload frmLogin End SelectEnd Sub登陸后權(quán)限的分配主要代碼如下：If LCase(Trim(rst![登錄名])) = LCase(Trim()) Then If Trim(rst![密碼]) = Trim() Then privilege = rst![權(quán)限] Call check_privage(privilege) 39。權(quán)限分配讀者管理主要代碼：Private Sub Command1_Click() 39。添加記錄Dim sql As StringDim param As Dim cmd As Set cmd = New Set param = New sql = select * from reader where [讀者編號]= ? If = 添加記錄 Then = 確 定 = False = False = False Else If = Then = True = 讀者編號不能為空! = True = True = True = 添加記錄 Exit Sub End If With param .Direction = adParamInput .Type = adBSTR .Size = 8 .Value = End With param = sql = adCmdText Set = con Set rst1 = 39。檢測讀者編號是否存在防止主鍵沖突 If 0 Then = True = 此讀者編號已經(jīng)存在! = True = True = True = 添加記錄 Exit Sub End If = True = 添加成功！ = True = True = True = 添加記錄End IfEnd SubPrivate Sub Command2_Click() 39。刪除紀(jì)錄Dim ans As Stringans = Msgbox(確定要刪除此記錄嗎？, vbYesNo, 提示)If ans = vbYes Then Else Exit SubEnd IfEnd SubPrivate Sub Command3_Click() 39。上一記錄If Then = True = 已經(jīng)到達(dá)記錄頂端! Exit Sub Else End IfEnd SubPrivate Sub Command4_Click() 39。下一記錄If Then = True = 已經(jīng)到達(dá)記錄底端! Exit Sub Else End IfEnd SubPrivate Sub Command5_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim sql1 As StringSet rst = New sql1 = select * from reader39。打開數(shù)據(jù)庫并對窗體控件賦值Call connect_db sql1, con, adOpenDynamic, adLockOptimisticSet = rstSet = rstSet = rstSet = rstSet = rstSet = rstSet = rstSet = rst = 讀者編號 = 讀者姓名 = 性別 = 電話號碼 = 家庭地址 = 讀者類別 = 工作單位 = 登記日期End SubPrivate Sub xptopbuttons1_Click()Unload MeEnd SubPrivate Sub xptopbuttons2_Click() = 1End SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End Sub附錄C: 使用說明使用說明1文件說明本系統(tǒng)編譯好只要一個exe文件和一個數(shù)據(jù)庫文件。文本里面是不同權(quán)限的用戶名和密碼。如下圖： 雙擊exe文件，沒注冊用戶會有一個初始化的賬號密碼，只能瀏覽繪本，其他權(quán)限的賬號密碼在txt文本中有說明。 55