【正文】 On Error Resume Next = For Counter = LBound(workarea) To UBound(workarea) If = 1 And = 0 Then If = like Then = select * from dzxxtb where dzxxtb. amp。 Chr(35) amp。 + 39。 圖 .(2) 借書管理 (1) 利用 ADO 控件來實現(xiàn)查詢讀者信息。 amp。 amp。 amp。借 39。編寫 sql 語句 (hs1) End If End If MsgBox 借出完畢！ , vbOKOnly, 提示！ Set rs = Nothing End If = select * from dzjstb where 借 =39。 amp。 amp。 amp。 amp。 + + 39。 + + 39。 Chr(35) amp。 Chr(35) amp。 amp。 amp。 amp。 amp。 圖 .(1) 讀者信息管理 技術(shù)分析： 該框體通過 SSTab 控件實現(xiàn)讀者信息添加、修改、查詢等選項。用戶單擊左側(cè)的樹狀導(dǎo)航菜單中的節(jié)點，可以在右側(cè)的窗格中顯示出該主菜單下的子菜單。使數(shù)據(jù)庫的物理存儲情況變壞，降低了數(shù)據(jù)的存取效率，數(shù)據(jù)庫性能下降，這時要對數(shù)據(jù)庫進(jìn)行重組織，或部分重組織（只對頻繁增、刪的表進(jìn)行重組織），按原設(shè)計要求重新 安排存儲位置、回收垃圾、減少指針鏈等，提高系統(tǒng)性能。圖書信息實體的 ER 圖如圖 （ 1）。 Access 一種關(guān)系式數(shù)據(jù)庫，關(guān)系式數(shù)據(jù)庫由一系列表組成，表又由一系列行和列組成，每一行是一個記錄，每一列是一個字段，每個字段有一個字段名，字段名在一個表中不能重復(fù)。數(shù)據(jù)處理工作量大，容易出錯。面對如此龐大的信息量，開發(fā)并使用一套合理的、有效、規(guī)范、實用的圖書管理系統(tǒng)，對學(xué)校的圖書資料進(jìn)行集中的管理必不可少。 任務(wù)：針對學(xué)校目前的圖書館圖書的管理情況，設(shè)計出適合一般學(xué)校的計算機(jī)輔助圖書管理系統(tǒng)。 圖書管理系統(tǒng) (Visual Basic + Access ) 7 / 95 (1)需求分析階段 (2)流程設(shè)計階段 (3)程序?qū)崿F(xiàn)階段 (4)運行調(diào)試階段 (5)維護(hù)擴(kuò)展階段 數(shù)據(jù)庫的需求分析 在設(shè)計圖書管理系統(tǒng)之前，我們應(yīng)當(dāng)知道什么是數(shù)據(jù)庫以及 的開發(fā)環(huán)境。 Books（圖書信息表）用于存儲圖書館中的圖書信息，其結(jié)構(gòu)如表 （ 1）。 系統(tǒng)的功能概 述 用戶的需求可分為三個方面：一方面是圖書館工作人員通過圖書管理系統(tǒng)來管理各類圖書，使得圖書館的各項工作能夠有序地進(jìn)行，從而滿足學(xué)生的需求；二方面是學(xué)生們能通過該系統(tǒng)來查詢圖書館中的各類圖書，來確定自已需要的書籍的借閱情況，為借閱做好準(zhǔn)備；三方面是對圖書館數(shù)據(jù)庫管理的需求，數(shù)據(jù)庫在系統(tǒng)中扮演著極其重要的角色，所以能對系統(tǒng)數(shù)據(jù)庫進(jìn)行安全和全面地管理也成為了圖書管理者的一個重要需求。在程序運行時，當(dāng)單擊 TreeView 控件中的節(jié)點時，通過TreeView 控件的 NodeClick 事件將該節(jié)點下的子菜單顯示在 ListView 控件圖書管理系統(tǒng) (Visual Basic + Access ) 15 / 95 中。 (1) 添加讀者時自動生成讀者編號。 DTPicker2 amp。 Text8 amp。 Text13 amp。 amp。 End If If = 1 And = 1 Then If = like Then = select * from dzxxtb where( amp。 + + 39。 Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then = select * from dzxxtb where 讀者編號 =39。 Text1 amp。 Text4 amp。 Text6 amp。)) x = Val((復(fù)本數(shù) )) Val() 39。借 39。where 條碼號 =39。,39。,39。,39。 Private Sub Command1_Click() Dim x, y As Integer Dim hs1 If = Or = Or = Or = Or = Then MsgBox 輸入的借書信息不完全！ , vbCritical, 提示！ Else select sum(借書數(shù)量 ) from dzjstb where 讀者編號=39。 Private Sub Text15_KeyDown(KeyCode As Integer, Shif As Integer) If KeyCode = vbKeyReturn Then Dim rs As New select * from dzxxtb where 讀者編號 =39。 amp。 amp。,39。,39。,39。,39。如圖 .(1)。Presist Security Info=False” End Function 主窗體的設(shè)計 主窗體用于調(diào)用程序的所有功能，該主窗體主要有菜單欄，帶圖片的工具欄、左側(cè)的樹狀導(dǎo)航菜單、右側(cè)的功能列表以及底部的狀態(tài)欄組成。 （ 3） .數(shù)據(jù)庫的重組及重構(gòu)造 數(shù)據(jù)庫運行一段時間后，由于記錄不斷增、刪、改，增添、修改的數(shù)據(jù)不能為空，否則不能保存到數(shù)據(jù)庫中。 圖書管理系統(tǒng)中很重要的問題是圖書信息的管理，因此，需要規(guī)劃出圖書信息的實體，該實體包括書籍名稱、類別代碼、作者、出版社、條碼號等屬性。數(shù)據(jù)庫用來存儲圖書的基本信息、讀者信息、讀者借書信息、讀者還書信息等。根據(jù)調(diào)查得知，他們以前對信息管理的主要方式是基于文本，表格等紙介質(zhì)的手工處理，對于圖書借閱情況（如借書天數(shù)，超過限定借書時間的天數(shù)）的統(tǒng)計和核實等往往采用對借書卡的人工檢查進(jìn)行，對借閱者的借閱權(quán)限，以及借閱天數(shù)等用人工計算，手抄進(jìn)行。圖書管理系統(tǒng)是典型的信息管理系統(tǒng)，其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個方面。實現(xiàn)對圖書基本信息、讀者基本信息進(jìn)行計算機(jī)輔助管理，完成借書和還書有關(guān)信息的記錄、修改、查詢、刪除，以及圖書信息的管理等一系列任務(wù)的計算機(jī)管理與實現(xiàn) .要求界面友好美觀，數(shù)據(jù)庫安全可靠，查詢功能強(qiáng)大靈活，系統(tǒng)操作簡單易用，功能完備可以擴(kuò)展，具備權(quán)限設(shè)置功能，模塊清晰穩(wěn)定，占 用資源少。所謂數(shù)據(jù)庫是指以一定的組織方式存儲在一起的，能為多個用戶所 共享的，與應(yīng)用程序彼此獨立的相關(guān)聯(lián)的數(shù)據(jù)集合。 字段名稱 數(shù)據(jù)類型 字段大小 書籍名稱 文本 50 類別代碼 文本 20 作者 文本 20 出版社 文本 30 訂購價格 貨幣 復(fù)本數(shù) 數(shù)字（小數(shù)） 附件 文本 10 條碼號 文本 30 規(guī)定天數(shù) 數(shù)字（小數(shù)） ISBN 文本 30 借書數(shù)量 數(shù)字（長整型） 表 （ 1） books 表的結(jié)構(gòu) dzxxtb（讀者信息表）用于存儲圖書館中所有讀者的相關(guān)信息，其結(jié)構(gòu)如表 （ 2）。 系統(tǒng)功能分析 圖書信息管理模塊： 訂購新書；驗收入庫；圖書信息檢索；修改、刪除圖書信息； 圖書管理系統(tǒng) (Visual Basic + Access ) 13 / 95 讀者信息管 理模塊： 登記讀者信息；修改讀者信息；刪除讀者信息；查詢讀者信息； 讀者借閱管理模塊： 借書管理；還書管理；超提提醒；丟失管理；續(xù)借管理； 用戶管理維護(hù)模塊： 用戶管理；口令更改；系統(tǒng)設(shè)置； 第五章 系統(tǒng)的模塊設(shè)計 公共模塊設(shè)計 通過使用模塊可以減少程序的代碼量。在主窗體 TreeView 控件和 ListView 控件中添加一個 Picture 控件，通過它對應(yīng)的鼠 標(biāo)時間來調(diào)節(jié)控件的大小。 Private Sub Command1_Click() Dim temp1 temp1 = 100000 = select * from dzxxtb order by 讀者編號 If 0 Then = Val((讀者編號 )) + 1 Else = temp1 + 000001 End If = select * from dzxxtb order by 讀者編號 clear1 = True End Sub (2) 保存讀者信息。 39。 39。 39。 like + 39。 amp。 and 登記日期 between amp。 amp。 圖書管理系統(tǒng) (Visual Basic + Access ) 23 / 95 39。 39。 39。計算庫存復(fù)本數(shù) y = Val((借書數(shù)量 )) + Val() 39。 39。 39。 39。 39。 39。