【正文】 +Access數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)[M].人民郵電出版社，2004 .[3] 王小茹, 吳財(cái)軍, 蘇振剛等. Visual Basic 實(shí)例解析[M].北京大學(xué)出版社，2000 .[4] 黃志球，李清等. 數(shù)據(jù)庫應(yīng)用技術(shù)基礎(chǔ)[M].機(jī)械工業(yè)出版社，2003 .[5] 劉韜. Visual [M].人民郵電出版社，2003 .[6] 恒揚(yáng)科. Visual [M ].機(jī)械工業(yè)出社，2003 .[7] 劉瑞新，張二峰等. Visual Basic管理信息系統(tǒng)開發(fā)[M].機(jī)械工業(yè)出版社，2005 .[8] 嚴(yán)蔚敏，吳偉民. 數(shù)據(jù)結(jié)構(gòu)[M]．清華大學(xué)出版社，2008 .[9] 姚巍. Visual Basic 數(shù)據(jù)庫開發(fā)及工程實(shí)例[M].北京人民郵電出版社，2003 .[10] Stephen Forte, Kurt Wall等著. access開發(fā)實(shí)用全書[M].電子工業(yè)出版社，2002 .[11] A Blog Mining Framework IT Professional [J]. 卷次：11刊期：1 January 2009 .[12] What39。s with This Blog Thing? IEEE Software [J].卷次：24刊期：5 September 2007 .[13] Steve Walther．:Tips,Tutorials,and Code[M]．電子工業(yè)出版社,200707 .附 錄附錄A: 附加圖、表 數(shù)據(jù)庫系統(tǒng)簡圖附錄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。新建一個(gè)數(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級(jí)管理員，還可以借書和還書 = True = True = False = False = True = True = True = False = False Unload frmLogin Case 3: 39。3級(jí)管理員，可以錄入圖書 = 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 [讀者編號(hào)]= ? If = 添加記錄 Then = 確 定 = False = False = False Else If = Then = True = 讀者編號(hào)不能為空! = 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。檢測讀者編號(hào)是否存在防止主鍵沖突 If 0 Then = True = 此讀者編號(hào)已經(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(確定要?jiǎng)h除此記錄嗎？, 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 = 讀者編號(hào) = 讀者姓名 = 性別 = 電話號(hào)碼 = 家庭地址 = 讀者類別 = 工作單位 = 登記日期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)編譯好只要一個(gè)exe文件和一個(gè)數(shù)據(jù)庫文件。文本里面是不同權(quán)限的用戶名和密碼。如下圖： 　　雙擊exe文件，沒注冊用戶會(huì)有一個(gè)初始化的賬號(hào)密碼，只能瀏覽繪本，其他權(quán)限的賬號(hào)密碼在txt文本中有說明。 I XXXXXXXXX學(xué)院畢業(yè)設(shè)計(jì)（論