【正文】 1)在可視化數(shù)據(jù)庫管理器中打開 “ 圖書 管理數(shù)據(jù)庫”數(shù)據(jù)庫。 控件 屬性 設(shè)定值 Form Name frmstartup Caption Form1 Timer Enabled True Interval 1000 自動(dòng)生成代碼如下： Private Sub Form_Click() Unload Me End Sub Private Sub Timer1_Timer() i = i + 1 If i = 2 Then Unload Me End If End Sub 完成操作后的啟動(dòng)畫面的界面： 19 (三 ).用戶登錄窗體的的實(shí)現(xiàn) 本窗體是為三種不同的用戶（一般用戶， 普通管理員 ， 超級 管理員）提供選擇以進(jìn)入不同的模塊，滿足不同用戶的需求。 (五 ).借閱者服務(wù)模塊的實(shí)現(xiàn) 借閱者服務(wù)窗體的功能主要是圖書的查詢，個(gè)人借閱情況查看及個(gè)人部分信息的修改。 If = 出版日期 Then search_item = BOOK_DATE between If = 價(jià)格范圍 Then search_item = BOOK_PRICE like 39。 , myconn, adOpenKeyset, adLockOptimistic, 1 Else select * from 圖書信息 where amp。 本滿足條件 End Sub 自動(dòng)生成代碼如下：（重置） Private Sub Cmd_Book_clear_Click() Call renew If = adStateOpen Then select * from 圖書信息 , myconn, adOpenKeyset, adLockOptimistic, 1 Set = rds_book Call MSHGridset (3) = 共有圖書 amp。O) CommandButtom Name Cmd_Ucheck_exit Caption 退出 (amp。 37 控件 屬性 設(shè)定值 Form Name frmbook_borrow Caption 圖書借閱 Label Name Label1 Caption 借閱日期 AutoSize False Label Name Label2 Caption 圖書編號 1 AutoSize False Label Name Label3 Caption 圖書編號 2 AutoSize False Label Name Label4 Caption 圖書編號 3 AutoSize False Label Name Label6 38 Caption 讀者編號 AutoSize False CommandButtom Name Cmdjieyue Caption 借閱 CommandButtom Name cmdjy_clear Caption 清除 CommandButtom Name cmdjy_exit Caption 退出 CommandButtom Name Cmdjy_search Caption 查詢 TextBox Name txt_bookid(1) Text TextBox Name txt_bookid(2) Text TextBox Name txt_bookid(3) Text TextBox Name txt_bookid(4) Text SSTab Name SSTab1 Caption 借閱 自動(dòng)生成代碼如下：（查詢） Private Sub Cmdjy_search_Click() Dim i As Integer Dim rds_jycount As Recordset Set rds_jycount = New Recordset If txt_userid(0) = Then: MsgBox 請 輸 入 讀 者 編 號 : txt_userid(0).SetFocus: Exit Sub With rds_jycount 39 If .State = adStateOpen Then .Close .Open select USER_ID from 讀 者 信 息 where USER_ID=39。 + txt_bookid(i) + 39。能方面查找讀者的姓名，圖書名稱，借閱時(shí)間。 AND BOOK_ID=39。第三，為了能對整個(gè)系統(tǒng)有一個(gè)整體的管理又設(shè)計(jì)了一個(gè)該系統(tǒng)的菜單，以便于用戶對自己的信息進(jìn)行更改等。 所以我想我還要經(jīng)過不斷的對系統(tǒng)進(jìn)行后期的維護(hù)才能找到更多的讓自己可以學(xué)到更多東西的問題。 張洪明：《 VISUAL BASIC 程序設(shè)計(jì)基礎(chǔ)教程》，科學(xué)出版社， 2020年 。 劉世峰：《 VISUAL BASIC 程序設(shè)計(jì)實(shí)驗(yàn)》，中央電大出版社， 2020 年 7月第 1 版 。 但對于這個(gè)應(yīng)用系統(tǒng)，自己并不是很滿意，和當(dāng)初設(shè)想的設(shè)計(jì)一個(gè)程序簡潔，各個(gè)界面友好且好用還是有一定的距離的。 這個(gè)系統(tǒng)的主要特點(diǎn)：首先界面友好，進(jìn)入各個(gè)功能模塊之前都很簡單，登錄之前又有一個(gè)界面。, myconn, adOpenKeyset, adLockOptimistic, 1 delete * from 借閱信息 where USER_ID=39。 txt_bookid(i).Locked = True txt_bookid(i).ForeColor = vbRed txt_bookid(i).BackColor = txt_bookid(i + 3) = txt_bookid(i) Check1(i).Value = 1 = 1 Call renew Call Cmdjy_search_Click End If Next i MsgBox OK End Sub 自動(dòng)生成代碼如下：（清除） Private Sub Cmdjy_clear_Click() Call renew End Sub 自動(dòng)生成代碼如下：（退出） Private Sub Cmdjy_exit_Click() Unload Me End Sub 43 完成后的圖書借閱的畫面： (六 ).工作人員－圖書借閱 /歸還模塊的實(shí)現(xiàn) 1. 工作人員進(jìn)行圖書借閱功能實(shí)現(xiàn) 在這個(gè)功能中，工作人員 點(diǎn)擊借閱一覽 ， 隨后就跳出上圖所示的所有借閱信息 。 + txt_bookid(i) + 39。 控件 屬性 設(shè)定值 Label Name Label1 Caption 請輸入讀者編號 AutoSize False 36 CommandButtom Name Cmd_User_Check Caption 確認(rèn) CommandButtom Name Cmd_Ucheck_exit Caption 取消 TextBox Name Text Text 完成后的讀者資料維護(hù)的畫面： 4. 借閱者借閱情況功能的實(shí)現(xiàn) 當(dāng)借閱者正確登錄到系統(tǒng)后，此功能將被激活，使用戶能查看到自身的借 閱情況。如果一致，那么用戶就可查看自已的借閱情況并維護(hù)自己的部分信息。 本滿足條件 End Sub Private Sub Cmd_Book_clear_Click() Call renew If = adStateOpen Then 28 select * from 圖書信息 , myconn, adOpenKeyset, adLockOptimistic, 1 Set = rds_book Call MSHGridset (3) = 共有圖書 amp。 and amp。 If = 圖書名稱 Then search_item = BOOK_NAME like 39。 (MANAGER_NAME) = txt_ManagerID Unload frmLogin Else MsgBox 無效的管理員 ID 密碼，請重試 !, vbCritical, 登錄 = 0 = Len(txt_ManagerID) Exit Sub End If End Sub 完成后 用戶登錄的 畫 面： 22 (四 ).用戶密碼認(rèn)證窗體 的實(shí)現(xiàn) 創(chuàng)建一個(gè)系統(tǒng)主控界面 的窗體程序，運(yùn)行界面如下： 創(chuàng)建過程如下： 23 （ 1）添加一個(gè)新窗體為 Form 窗體。簡單說來，數(shù)據(jù)模塊是用來集中管理數(shù)據(jù)源的一個(gè)窗體，該窗體可被需要的地方隨時(shí)引入。 (3)右擊“ 圖書 管理數(shù)據(jù)庫”文件，出現(xiàn)一個(gè)彈出式菜單。 (3)右擊“ 圖書 管理數(shù)據(jù)庫”文件，出現(xiàn)一個(gè)彈出式菜單。利用 ER 方法進(jìn)行數(shù)據(jù)庫的概念設(shè)計(jì)，可分成三步進(jìn)行：首先設(shè)計(jì) 局部 ER 模式，然后把各局部 ER 模式綜合成一個(gè)全局模式，最后對全局 ER 模式進(jìn)行優(yōu)化，得到最終的模式，即概念模式。 圖書館工作人員有修改圖書借閱者借書和還書記錄的權(quán)限，所以需對工作人員登陸本模塊進(jìn)行更多的考慮。提供完善的借書和還書操作，擁有完全獨(dú)立的數(shù)據(jù)庫系統(tǒng)， 使 數(shù)據(jù)安全得到了保障，數(shù)據(jù)管理 能 提供：圖書管理，讀者管理。 （二）開發(fā)設(shè)計(jì)思想 本 人 研究的主要內(nèi)容是 圖書 管理系統(tǒng)的分析和設(shè)計(jì)過程，其目的在于為該 系統(tǒng)的開發(fā)奠定堅(jiān)實(shí)的理論基礎(chǔ)。 系統(tǒng)主要功能是 讀者管理和借書信息管理的實(shí)現(xiàn)，其中，讀者管理又包括讀者信息的添加、修改、刪除和查詢；借書信息管 理包括借書信息的添加、修改、刪除和查詢。盡管有的圖書館有計(jì)算機(jī)，但是尚未用于信息管理，沒有發(fā)揮它的效力，資源閑置比較突出，這就是管理信息系統(tǒng)的開發(fā) 的基本環(huán)境。使用計(jì)算機(jī)進(jìn)行信息控制，不僅提高了工作效率，而且大大的提高了其安全性。圖書管理系統(tǒng)能夠?qū)ψx者信息、書籍信息、借書信息、還書信息進(jìn)行管理。系統(tǒng)的總體任務(wù)是使圖書管理人員可以輕松快捷地完成對圖書管理的任務(wù)。本系統(tǒng)就是為了管理好圖書館信息而設(shè)計(jì)的。如要對很長時(shí)間以前的圖書進(jìn)行更改就更加困難了。該方法主要包括以下幾個(gè)特點(diǎn)： （ 1） 預(yù)先明確用戶需求，根據(jù)需求來設(shè)計(jì) 圖書管理信息 系統(tǒng) 。在計(jì)算機(jī)硬件和軟件快速發(fā)展的今天，計(jì)算機(jī)硬件和軟件已經(jīng)遠(yuǎn)遠(yuǎn)滿足本管理系統(tǒng)的要求。 （五）系統(tǒng)功能模塊設(shè)計(jì) 8 三、數(shù)據(jù)庫設(shè)計(jì) （一）需求分析 圖書管理系統(tǒng)需要滿足來自三方面的需求，這三個(gè)方面分別是圖書借閱者、圖書館工作人員和圖書館管理人員。本功能實(shí)現(xiàn)對圖書信息、借閱者信息、總體借閱情況信息的管理和統(tǒng)計(jì)、工作人員和管理人員信息查看及維護(hù)。 (2)在菜單欄中單擊“外接程序”菜單，然后選擇“可視化數(shù)據(jù)管理 器”菜單項(xiàng)，出現(xiàn)可視化數(shù)據(jù)管理器界面。 14 (2)在數(shù)據(jù)管理器中選擇“ 圖書 管理數(shù)據(jù)庫”文件。 (2)在數(shù)據(jù)管理器中選擇“ 圖書 管理數(shù)據(jù)庫”文件。 控件 屬性 設(shè)定值 Form Name frmLogin Form Caption 登錄 Label Name lbl_managerid Caption 管理員 ID: AutoSize False 20 Label Name lbl_managerpass Caption 密 碼 : AutoSize False TextBox Name txt_ManagerID Text TextBox Name xt_ManagerPass PasswordChar * CommandButtom Name cmdOK Caption 確定 CommandButtom Name cmdCancel Caption 退出 自動(dòng)生成代碼如下： Private Sub txt_ManagerID_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys {ENTER} End Sub Private Sub txt_ManagerPass_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys {ENTER} End Sub Private Sub cmdCancel_Click() End End Sub Private Sub cmdOK_Click() Dim str_manager As String str_manager =