【正文】 如下圖： 雙擊exe文件，沒注冊用戶會有一個初始化的賬號密碼，只能瀏覽繪本，其他權限的賬號密碼在txt文本中有說明。打開數據庫并對窗體控件賦值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文件說明本系統編譯好只要一個exe文件和一個數據庫文件。上一記錄If Then = True = 已經到達記錄頂端! Exit Sub Else End IfEnd SubPrivate Sub Command4_Click() 39。檢測讀者編號是否存在防止主鍵沖突 If 0 Then = True = 此讀者編號已經存在! = True = True = True = 添加記錄 Exit Sub End If = True = 添加成功！ = True = True = True = 添加記錄End IfEnd SubPrivate Sub Command2_Click() 39。權限分配讀者管理主要代碼：Private Sub Command1_Click() 39。3級管理員，可以錄入圖書 = True = True = True = False = True = True = True = False = False Unload frmLogin Case 4: 39。普通用戶，只能查詢圖書信息和借閱信息 = False = False = False = False = True = True = False = False = False Unload frmLogin Case 2: 39。 39。Persist Security Info=False sqlstr str = select * from amp。連接信息 End SubFunction open_connection(table_name As String)Dim sqlstr As StringDim str As String Set con = New Set rst = New = adUseClient sqlstr = Provider=。新建一個數據庫連接 = adUseClient 39。Persist Security Info=False 39。用戶信息，包括用戶名，密碼和對應的權限 user_id As String pwd As String right As IntegerEnd TypePublic Sub connect_db() constr = Provider=。用戶權限Public rst As 39。s with This Blog Thing? IEEE Software [J].卷次：24刊期：5 September 2007 .[13] Steve Walther．:Tips,Tutorials,and Code[M]．電子工業(yè)出版社,200707 .附 錄附錄A: 附加圖、表 數據庫系統簡圖附錄B: 部分主要源程序權限設置的主要代碼：Option ExplicitPublic constr As String 39。她無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高這對于我以后的工作和學習都有一種巨大的幫助，感謝她耐心的輔導；感謝所有跟我一塊努力、幫助過我的同學。在此向他們致以最衷心的感謝。通過整個設計過程，我在計算機理論和實踐方面都學到了很多東西。而且大大提高了動手的能力，使我充分體會到了在創(chuàng)造過程中探索的艱難和成功時的喜悅。在系統設計開發(fā)過程中楊華老師給予了很大的幫助，幫助解決了很多難題，使得系統能及時開發(fā)完成，在設計過程中，我通過查閱大量有關資料，與同學交流經驗和自學，并向老師請教等方式，使自己學到了不少知識，也經歷了不少艱辛，但收獲同樣巨大。我從指導老師那學到了好多東西。自己要學習的東西還太多，以前老是覺得自己什么東西都會，什么東西都懂，有點眼高手低。畢業(yè)設計不僅是對前面所學知識的一種檢驗，而且也是對自己能力的一種提高。在設計過程中，通過學習了解了數據庫系統的開發(fā)原理和應用，基本掌握了開發(fā)工具Visual Access的使用，為今后的學習和開發(fā)打下了堅實的基礎。但是由于畢業(yè)設計時間較短加上知識的有限，該系統還有許多不足的地方，源程序調試方面的問題還有好多，出錯處理不夠等方面問題。刪除表內記錄第5章 結 論經過將近三個月的設計和開發(fā)，繪本管圖書館管理系統基本開發(fā)完畢。主要代碼如下：If inx = 1 Then = True = 請?zhí)暨x要刪除的項！ ………. (inx) 39。保存所有更改并退出事務…………..3. 刪除賬號 首先，判定是否有選中項，如果選中，則刪除選中項。啟動事務 sql 39。 39。 amp。 amp。 Trim() amp。 SET [登錄名] =39。 sql， con， adOpenDynamic， adLockOptimistic = rst![登錄名] = rst![密碼] = rst![權限]修改信息主要代碼如下：sql = UPDATE amp。 Trim((inx)) amp。如果沒有選中要修改的記錄會彈出窗口如圖所示：顯示選中信息主要代碼如下：Dim sql As Stringinx = sql = select * from user_table where [登錄名] =39。 主要代碼如下： = CStr(LTrim()) = CStr(LTrim()) = LTrim() ans = Msgbox(增加用戶嗎？， vbOKCancel + vbInformation， 提示！) If ans = vbOK Then rst![登錄名] = rst![密碼] = rst![權限] = = = = rst![登錄名] = True2. 修改賬號首先系統會判斷是否已選中要修改的記錄。1. 增加賬號可以直接在空間里面填寫信息，完成后直接點增加賬號即可，首先驗證用戶名是否為空，然后驗證是否已存在，最后檢測權限范圍是否是1到4之間。1. 瀏覽者 權限：1 2. 2級管理員 權限：2 3. 3級管理員 權限：34. 系統管理員 權限：4打開系統時，會有一個默認的瀏覽者賬號密碼，默認用戶名：reader 密碼默認。修改后確定即可完成修改，并保存在數據庫 “worker”表中。 員工管理該窗體同讀者管理窗體一樣可供管理員增加、刪除、顯示上一記錄、下一記錄員工信息等功能。主要方法是打開數據庫并對窗體控件賦值，添加的時候先檢驗reader表里面是否已存在此讀者編號。也同樣向數據庫中添加新的記錄、刪除不需要的記錄、修改錯誤的記錄、對數據庫中的信息進行查詢。設置函數check_privage參數為rightlevel。 權限的具體實現 模塊準備首先，在VB所建工程中添加Database模塊，定義出一個全局變量privilege，如下：Public privilege As Integer在用戶登錄時根據privilege的值決定權限，從而判斷用戶登陸成功后的功能模塊。l 3級管理員 增加功能：圖書錄入。本系統的權限分為4個等級：l 數據瀏覽者 擁有功能：圖書查詢、借閱查詢、讀者信息瀏覽、使用幫助、關于軟件、退出系統。第 1決定用戶能否進入系統。身份認證可以分為以下兩個過程：（