圖書借閱管理系統(tǒng)實驗報告

1、湘南學(xué)院經(jīng)濟(jì)與管理系信息系統(tǒng)課程設(shè)計實驗報告設(shè)計題目： 圖書借閱管理系統(tǒng) 專 業(yè)： 信息管理與信息系統(tǒng) 年級班級： 2021 姓 名： 楊青 指導(dǎo)教師： 唐小剛 小組成員： 楊青、劉益鳴、尹增輝、郝劉棟、郭夢妮、楊蕓、胡志鵬 指導(dǎo)教師評閱：指導(dǎo)教師簽字 成績：二O一二年 月 日目錄第一章：系統(tǒng)分析311需求分析31.2 系統(tǒng)可行性分析3組織結(jié)構(gòu)與功能分析4第二章 系統(tǒng)設(shè)計52.1 數(shù)據(jù)流圖簡稱為DFD52.2 數(shù)據(jù)字典簡稱為DD6第三章系統(tǒng)詳細(xì)設(shè)計103.1 軟件模塊結(jié)構(gòu)設(shè)計103.2 數(shù)據(jù)庫設(shè)計11計算機(jī)系統(tǒng)的配置方案17第四章 圖書借閱系統(tǒng)的實現(xiàn)174.1 建立公共模塊174.2 登錄窗體

2、184.3 系統(tǒng)運行主界面如下圖。205.4 讀者信息管理菜單如下圖。215.5 借書主界面如下圖。224.6 系統(tǒng)調(diào)試及體會29第五章 感謝32第一章：系統(tǒng)分析11需求分析絕大多數(shù)管理人員已經(jīng)認(rèn)識到采用圖書借閱管理系統(tǒng)的必要性，紛紛開發(fā)或選購適合本企業(yè)特點的圖書借閱管理系統(tǒng)。圖書借閱管理系統(tǒng)具體以下優(yōu)點：采用圖書借閱管理系統(tǒng)，可以用集中的數(shù)據(jù)庫將與圖書借閱管理相關(guān)的信息全面、有機(jī)地聯(lián)系起來，有效地減少了信息更新和查找中的重復(fù)勞動，保證了信息的相容性，從而大大地提高了工作效率。圖書借閱管理系統(tǒng)有著易訪問、易查詢的信息庫。在沒有采用和實施圖書借閱管理系統(tǒng)之前，當(dāng)管理人員要統(tǒng)計數(shù)字時，往往依賴于某

3、個人或某些人來獲取。這種依賴于人的過程往往會因為花費的時間較長或某個人不在辦公室而不能及時完成。在采用和實施圖書借閱管理系統(tǒng)之后，就會將依賴于人的過程改為依賴于計算機(jī)系統(tǒng)的過程。管理人員只要獲取了相應(yīng)的權(quán)限，就可以隨時進(jìn)入系統(tǒng)，直接查閱相應(yīng)的信息。實施了圖書借閱管理系統(tǒng)之后，不僅可以得到較為全面的、詳細(xì)的、未經(jīng)過過濾的第一手圖書借閱信息，還可以從這些信息中得到某些有用的決策信息及靈感和啟發(fā)，從而改良圖書館的管理及經(jīng)營效率，防止或減少經(jīng)營風(fēng)險。采用和實施圖書借閱管理系統(tǒng)不僅僅是為了提高工作效率。應(yīng)該看到，在實施圖書借閱管理系統(tǒng)之后，可提高單位的形象。1.2 系統(tǒng)可行性分析技術(shù)上可行：該系統(tǒng)所需硬

4、件設(shè)備，市場上銷售且價格較低，甚至可以使用原有的設(shè)備，軟件上，操作系統(tǒng)采用Windows系列操作系統(tǒng)，數(shù)據(jù)庫管理系統(tǒng)采用Visual Basic，這些軟件在MIS開發(fā)中已被大量應(yīng)用，技術(shù)上都比擬成熟。因此在技術(shù)上是可行的。經(jīng)濟(jì)上可行：由于學(xué)校急需采用計算機(jī)來進(jìn)行圖書館的管理，因此對開發(fā)圖書管理系統(tǒng)大力支持，開發(fā)經(jīng)費沒有問題。管理上可行：該學(xué)校的圖書館有很多的管理體制，每位借書人均有借書證，同時圖書館還為每位借書人建立了檔案。因此管理上可行。另外，圖書館管理人員對開發(fā)該系統(tǒng)也是大力支持的，同時制定了培訓(xùn)方案，并進(jìn)行了實施MIS的物質(zhì)準(zhǔn)備和工作準(zhǔn)備。綜上所述，開發(fā)圖書管理系統(tǒng)在技術(shù)上、經(jīng)濟(jì)上、管理

5、上都是可行的。組織結(jié)構(gòu)與功能分析總務(wù)處工作人員學(xué)生教職工讀者館長通過調(diào)研了解到，該圖書館各個部門負(fù)責(zé)的主要業(yè)務(wù)如下：圖書采編工作，包括購置新書、打印編目、增加數(shù)量。讀者查詢工作，包括可借圖書按圖書類別、圖書名稱或圖書作者查詢；新書目錄按圖書類別、日期查詢；借書情況按讀者借書證號查詢圖書流通、查詢統(tǒng)計、借閱查詢等工作。讀者閱覽工作，包括：閱覽各種雜志、報紙、閱覽各種工具書。下面繪制出圖書館流通業(yè)務(wù)中借書的流程圖。首先是人工操作的5個步驟：讀者在目錄廳查閱索引卡；讀者寫出所借圖書的分類號、種次號、交給圖書管理員，并出示本人的借書證；圖書管理員根據(jù)圖書的分類號、種次號到書庫找書；將圖書交給讀者，并由

6、讀者填寫所借圖書的借書卡。圖書管理員把借書卡保存到寫有該讀者借書證號的口袋里。得出該圖書館業(yè)務(wù)流程圖如下所示：第二章 系統(tǒng)設(shè)計系統(tǒng)分析的主要成果是系統(tǒng)的邏輯模型。本系統(tǒng)的邏輯模型主要是以系統(tǒng)的數(shù)據(jù)流圖和數(shù)據(jù)字典為主要描述工具。即在圖書管理方式和業(yè)務(wù)流程進(jìn)行認(rèn)真分析和研究的根底上，排除現(xiàn)有組織機(jī)構(gòu)和業(yè)務(wù)分工所造成的信息障礙。完全從業(yè)務(wù)管理功能和管理對象出發(fā)，按照信息系統(tǒng)中應(yīng)有的數(shù)據(jù)流和數(shù)據(jù)結(jié)構(gòu)來勾畫系統(tǒng)的概貌。2.1 數(shù)據(jù)流圖簡稱為DFD數(shù)據(jù)流圖是組織中信息運動的抽象。是在調(diào)研的根底上，從系統(tǒng)的科學(xué)性、管理的合理性、實際運動的可行性角度出發(fā)。將信息處理功能和彼此之間的聯(lián)系自頂向下，逐層分解，從邏

7、輯上精確地描述系統(tǒng)應(yīng)具有的數(shù)據(jù)加工功能、數(shù)據(jù)輸入、數(shù)據(jù)輸出、數(shù)據(jù)存儲及數(shù)據(jù)來源和去向外部實體等工程。首先，分析管理系統(tǒng)的總體情況，劃分系統(tǒng)邊界，識別系統(tǒng)的數(shù)據(jù)來源和去處，確定外部實體，得出系統(tǒng)的頂層數(shù)據(jù)流程圖；然后劃分出幾個主要的信息管理功能，并明確各功能之間的聯(lián)系，繪制出數(shù)據(jù)流程圖。數(shù)據(jù)流程圖的符號說明如下圖。 外部實體 處理 數(shù)據(jù)流 數(shù)據(jù)存儲 圖2.1 數(shù)據(jù)流程圖的符號圖書借閱管理系統(tǒng)的頂層數(shù)據(jù)流程圖如下圖。圖2.2 借書業(yè)務(wù)第一層DFD圖書借閱管理系統(tǒng)的數(shù)據(jù)流程圖如下圖圖2.3 借書業(yè)務(wù)第二層DFD2.2 數(shù)據(jù)字典簡稱為DD繪制DFD,只是對數(shù)據(jù)處理和彼此之間的聯(lián)系進(jìn)行了說明。為進(jìn)一步明

8、確數(shù)據(jù)的詳細(xì)內(nèi)容和數(shù)據(jù)加工過程,應(yīng)將數(shù)據(jù)流圖中的全部數(shù)據(jù)流及其組成局部的數(shù)據(jù)元素，數(shù)據(jù)存儲，數(shù)據(jù)加工，通過數(shù)據(jù)字典描述清楚,以便于此后系統(tǒng)設(shè)計的進(jìn)行。這就需要開發(fā)人員編寫詳細(xì)的數(shù)據(jù)字典,來描述系統(tǒng)開發(fā)過程的細(xì)節(jié)。下面列出本系統(tǒng)中的數(shù)據(jù)項、數(shù)據(jù)流、數(shù)據(jù)存儲、加工處理和數(shù)據(jù)結(jié)構(gòu)的數(shù)據(jù)字典。數(shù)據(jù)字典可采用圖表格式或較緊湊的記錄格式描述，本文采用的是圖表格式。1 據(jù)項的DD表列舉如下限于篇幅，僅列舉局部：表2.1 書籍編號的數(shù)據(jù)字典 數(shù) 據(jù) 項系統(tǒng)名：圖書借閱系統(tǒng) 編號：I001 名稱：書籍編號 別名： 圖書編號數(shù)據(jù)項值： 類型：字符型 長度：10個字節(jié) 取值范圍：簡述：每部書籍都具有唯一的編號，它是

9、某本書籍的唯一標(biāo)識符，如“Tp0460000通常用前兩位字符表示分類號，中間破折號，最后四位表示該書在該類書中的序號。修改記錄：編寫日期審核日期表2.2 類別名稱的數(shù)據(jù)字典 數(shù) 據(jù) 項系統(tǒng)名：圖書借閱系統(tǒng) 編號：I002 名稱：類別編號 別名： 數(shù)據(jù)項值： 類型：字符型 長度：10個字節(jié) 取值范圍：簡述：圖書類別有社會、人文、數(shù)理等每個類別都有一個編號修改記錄：編寫日期審核日期表2.3 用戶名的數(shù)據(jù)字典 數(shù) 據(jù) 項系統(tǒng)名：圖書借閱系統(tǒng) 編號：I003 名稱：用戶名 別名： 數(shù)據(jù)項值： 類型：字符型 長度：10個字節(jié) 取值范圍：簡述：使用本系統(tǒng)的圖書管理員名稱，可以是英文字母數(shù)字或漢字修改記錄：

10、編寫日期審核日期表2.4 讀者編號的數(shù)據(jù)字典 數(shù) 據(jù) 項系統(tǒng)名：圖書借閱系統(tǒng) 編號：I004 名稱：讀者編號 別名： 數(shù)據(jù)項值： 類型：字符型 長度：10個字節(jié) 取值范圍：簡述：借閱圖書的學(xué)生或教職工的編號 修改記錄：編寫日期審核日期2 據(jù)流的DD表列舉如下限于篇幅，僅列舉一個：表2.5 數(shù)據(jù)流的DD表數(shù) 據(jù) 流系統(tǒng)名：圖書借閱系統(tǒng) 編號：F1 條目名稱：借書來源：讀者 去處：圖書借閱管理員數(shù)據(jù)流組成：借書借閱編號讀者編號讀者姓名書籍編號書籍名稱借出日期還書日期簡要說明： 修改記錄：編寫日期審核日期3 據(jù)存儲的DD表列舉如下限于篇幅，僅列舉一個：表2.6 數(shù)據(jù)存儲的DD表數(shù) 據(jù) 存 儲系統(tǒng)名：

11、圖書借閱系統(tǒng) 編號：D1 條目名稱：借書情況主關(guān)鍵字：借閱編號 數(shù)據(jù)量： 記錄數(shù)： 相關(guān)處理：數(shù)據(jù)存儲組成：借書證號藏書號借書日期 簡要說明：按借書的先后順序排列修改記錄：編寫日期審核日期4 據(jù)處理加工的DD表列舉如下：表2.7 數(shù)據(jù)處理加工的DD表 數(shù)據(jù)處理加工系統(tǒng)名：圖書借閱系統(tǒng) 編號： 條目名稱：查詢圖書輸入：借書信息 輸出：查詢結(jié)果處理邏輯：進(jìn)行圖書的查詢簡要說明： 當(dāng)查詢圖書時發(fā)生，根據(jù)讀者的圖書的分類號和類別號查詢修改記錄：編寫日期審核日期2.3 系統(tǒng)邏輯模型的提出根據(jù)前面的分析與評價結(jié)果，提出新系統(tǒng)邏輯模型如下圖。讀者類別數(shù)據(jù)編輯讀者類別信息文件借閱信息書籍信息圖書類別圖書類別讀

12、者信息借閱信息讀者信息文件數(shù)據(jù)編輯數(shù)據(jù)編輯數(shù)據(jù)編輯書籍信息數(shù)據(jù)編輯用戶信息數(shù)據(jù)編輯用戶信息讀者信息管理系統(tǒng)管理借閱管理圖書管理圖2.4 系統(tǒng)邏輯模型系統(tǒng)邊界輸入邊界讀者類別信息、讀者信息、借閱信息和書籍信息、圖書類別信息、系統(tǒng)管理信息。輸出邊界讀者類別信息、讀者信息、借閱信息和書籍信息、圖書類別信息、系統(tǒng)管理信息等。第三章系統(tǒng)詳細(xì)設(shè)計3.1 軟件模塊結(jié)構(gòu)設(shè)計3.1.1 系統(tǒng)方案確定通過對系統(tǒng)調(diào)研與分析，系統(tǒng)主要應(yīng)完成的功能如下：書庫信息管理、讀者檔案管理、借閱管理、還書管理、圖書檢索、系統(tǒng)維護(hù)。3.1.2 系統(tǒng)結(jié)構(gòu)設(shè)計圖書館管理系統(tǒng)包含圖書采編、讀者管理、流通、查詢等功能。該系統(tǒng)執(zhí)行時，先輸入

13、數(shù)據(jù)，然后根據(jù)輸入的數(shù)據(jù)選擇執(zhí)行路徑；購入圖書進(jìn)行登記、編目調(diào)用圖書采編功能，借書、還書調(diào)用功能，查詢調(diào)用查詢功能。圖書館借閱管理系統(tǒng)屬于事務(wù)型系統(tǒng)，其系統(tǒng)示意圖如下列圖所示：接受數(shù)據(jù)事務(wù)中心圖書采編讀者管理圖書流通查詢圖3.1 圖書館管理系統(tǒng)示意圖系統(tǒng)結(jié)構(gòu)圖示意如下：圖書館管理系統(tǒng)圖書采編讀者管理圖書流通 查詢輸入圖書信息 借書 還書圖3.2 圖書館管理系統(tǒng)結(jié)構(gòu)圖系統(tǒng)功能圖如下：圖書館管理系統(tǒng)系統(tǒng)登陸系統(tǒng)管理圖書管理借書證管理借 書添加管理員修改密碼退 出圖書類別管理圖書信息管理新開借書證借書證查詢借 書還 書讀者管理讀者類別管理讀者信息管理圖3.3 系統(tǒng)功能模塊圖3.2 數(shù)據(jù)庫設(shè)計數(shù)據(jù)庫(

14、Database)，是按照數(shù)據(jù)結(jié)構(gòu)來組織、存儲和管理數(shù)據(jù)的倉庫，是用于查詢的大量數(shù)據(jù)的存儲區(qū)域。使用數(shù)據(jù)庫可以帶來許多好處：如減少了數(shù)據(jù)的冗余度，從而大大地節(jié)省了數(shù)據(jù)的存儲空間，實現(xiàn)數(shù)據(jù)資源的充分共享等等。此外，數(shù)據(jù)庫技術(shù)還為用戶提供了非常簡便的使用手段，使用戶易于編寫有關(guān)數(shù)據(jù)庫應(yīng)用程序。特別是近年來推出的計算機(jī)關(guān)系數(shù)據(jù)庫管理系統(tǒng)，操作直觀，使用靈活，編程方便，功能強(qiáng)大，環(huán)境適應(yīng)廣泛，數(shù)據(jù)處理能力極強(qiáng)。數(shù)據(jù)庫的設(shè)計是指對一個給定的應(yīng)用環(huán)境，構(gòu)造數(shù)據(jù)庫模式，建立數(shù)據(jù)庫及其應(yīng)用系統(tǒng)，滿足各種用戶需求。作為信息資源開發(fā)、管理和效勞的一種有效的手段，數(shù)據(jù)庫技術(shù)的應(yīng)用已越來越廣泛，從小型的單項事務(wù)處理系

15、統(tǒng)到大型的信息系統(tǒng)大都用先進(jìn)的數(shù)據(jù)庫技術(shù)來保持系統(tǒng)數(shù)據(jù)的平安性、完整性和共享性。對一個實際的系統(tǒng)來說，數(shù)據(jù)庫表的設(shè)計在遵循數(shù)據(jù)庫理論的同時，必須能用開發(fā)工具來實現(xiàn)用戶在各方面提出的功能要求。3.2.1 概念結(jié)構(gòu)設(shè)計 在系統(tǒng)的數(shù)據(jù)庫設(shè)計中，先要對系統(tǒng)分析得到的數(shù)據(jù)字典中的數(shù)據(jù)存儲進(jìn)行分析，分析各數(shù)據(jù)存儲之間的關(guān)系，然后才能得出系統(tǒng)的關(guān)系模式。可以采用ER圖的方法來進(jìn)行數(shù)據(jù)結(jié)構(gòu)分析，ER設(shè)計方法是一種通過ER圖來描述現(xiàn)實世界信息結(jié)構(gòu)的DB設(shè)計方法。ER圖由實體、屬性、聯(lián)系三局部組成。ER圖的符號說明如圖44所示。 實體 屬性 實體間的聯(lián)系圖3.4 ER圖圖例各分E-R圖說明如下：1 讀者類別E-R

16、圖如下圖：讀者類別種類名稱借書數(shù)量借書期限有效期限 圖3.5 讀者類別E-R圖讀者E-R圖如下圖：讀者編號類別工作單位家庭住址 號碼登記日期已借書數(shù)量性別圖3.6 讀者E-R圖借閱E-R圖如下圖： 借閱信息借閱編號讀者姓名書籍編號書籍名稱借出日期還書日期讀者編號圖3.7 借閱E-R圖書籍信息書籍編號類別作者出版社出版日期登記日期是否被借出書名書籍信息的E-R圖如下圖： 圖3.8 書籍信息E-R圖圖書類別類別名稱類別編號圖書類別的E-R圖如下圖：圖3.9 圖書類別E-R圖系統(tǒng)管理的E-R圖如下圖：系統(tǒng)管理員用戶名密碼權(quán)限圖3.10 系統(tǒng)管理E-R圖3.2.2 本系統(tǒng)中所涉及到的主要實體及其屬性有

17、讀者類別：類別名稱,借書數(shù)量,借書期限,有效期限讀者信息：讀者編號,性別,讀者類別,工作單位,家庭住址, 號碼,登記日期,已借書數(shù)量借閱信息：借閱編號,讀者編號,讀者姓名,書籍編號,書籍名稱，借出日期，還書日期書籍信息：書籍編號,書名,類別,作者，出版社，出版日期，登記日期，是否被借出圖書類別：類別名稱,類別名稱系統(tǒng)管理：用戶名,密碼，權(quán)限3.2.3 本系統(tǒng)的實體聯(lián)系E-R圖為了使E-R圖表示得更加清晰，現(xiàn)將分E-R圖組合成實體及其屬性圖和實體及其聯(lián)系圖。如下圖實體的屬性沒有標(biāo)出：讀者書籍圖書館工作人員mn借閱借閱還書nm登記維護(hù)nmnm還書圖3.11 實體聯(lián)系E-R圖E-R圖向關(guān)系模型轉(zhuǎn)換的

18、結(jié)果如下帶下劃線的字段為此關(guān)系的碼：讀者類別表：類別名稱,借書數(shù)量,借書期限,有效期限讀者信息表：讀者編號,性別,讀者類別,工作單位,家庭住址, 號碼,登記日期,已借書數(shù)量借閱信息表：借閱編號,讀者編號,讀者姓名,書籍編號,書籍名稱，借出日期，還書日期書籍信息表：書籍編號,書名,類別,作者，出版社，出版日期，登記日期，是否被借出圖書類別表：類別編號,類別名稱系統(tǒng)管理表：用戶名,密碼，權(quán)限3.2.4 各表的物理結(jié)構(gòu)如下讀者類別表結(jié)構(gòu)如表所示：字段名稱類型寬度小數(shù)位數(shù)類別名稱文本型10借書數(shù)量數(shù)字5借書期限數(shù)字5有效期限數(shù)字5表3.1 讀者類別表讀者信息表結(jié)構(gòu)如表所示：表3.2 讀者信息表字段名稱

19、類型寬度小數(shù)位數(shù)讀者編號文本10性別文本2讀者類別文本8工作單位文本18家庭住址文本18 號碼文本10登記日期日期/時間已借書數(shù)量數(shù)字5字段名稱類型寬度小數(shù)位數(shù)借閱編號文本10讀者編號文本10讀者姓名文本8借書日期日期/時間書籍編號文本10書籍名稱文本10還書日期日期/時間借閱信息表結(jié)構(gòu)如表所示：表3.3 借閱信息表書籍信息結(jié)構(gòu)如表所示： 表3.4 書籍信息字段名稱類型寬度小數(shù)位數(shù)書籍編號文本10書名文本50類別文本50作者文本50出版社文本50出版日期日期/時間登記日期日期/時間是否被借出邏輯型圖書類別結(jié)構(gòu)如表所示： 字段名稱類型寬度小數(shù)位數(shù)類別編號文本10類別名稱文本10表3.5 圖書類別

20、系統(tǒng)管理結(jié)構(gòu)如表所示：字段名稱類型寬度小數(shù)位數(shù)用戶名文本10密碼文本10權(quán)限文本10表3.6 系統(tǒng)管理計算機(jī)系統(tǒng)的配置方案硬件環(huán)境：表3.7 硬件環(huán)境內(nèi)容最低配置建議配置主機(jī)奔騰二代300M以上內(nèi)存64MBDDR256MB以上硬盤20GB40GB以上顯示器VGA以上操作系統(tǒng)：Windows 2000或Windows XP中文版編程軟件和數(shù)據(jù)庫：中文版+Access2000中文版第四章 圖書借閱系統(tǒng)的實現(xiàn)4.1 建立公共模塊 運行VisualBasic后，選擇“文件“新建工程菜單，然后從工程模板中選擇“標(biāo)準(zhǔn)EXE項，單擊“確定按鈕。VisualBasic就會自動生成一個窗體，這個窗體的屬性采用的

21、都是默認(rèn)設(shè)置。在這個實例中，先刪除這個窗體，然后選擇“文件“保存工程菜單，在出現(xiàn)的“文件另存為對話框中輸入這個工程工程的名稱“book,并且選擇要保存這個工程的目錄，單擊“保存按鈕，保存工程。 為了提高代碼的效率方便維護(hù)，在VisualBasic中可以用公用模塊來存放工程中經(jīng)常使用的函數(shù)、過程和全局變量等。在這個系統(tǒng)中，每個功能模塊都要使用數(shù)據(jù)庫，因此可以使用一個公用有數(shù)據(jù)操作函數(shù)，來執(zhí)行一系列的SQL語句。 在工程資源管理器中為這個工程添加一個模塊，保存為Module1.bas.代碼如下：Option ExplicitPublic conn As New ADODB.Connection &

22、#39;標(biāo)記連接對象Public select_menu As String '標(biāo)記所選擇的菜單Public userID As String '標(biāo)記當(dāng)前用戶IDPublic userpow As String '標(biāo)記用戶權(quán)限Public book_num As String '要借的書的編號4.2 登錄窗體界面及最終運行效果如下圖。圖4.1 登錄界面用戶可輸入系統(tǒng)管理員的用戶名，如“aa，然后輸入密碼，系統(tǒng)對輸入的用戶名及相應(yīng)的密碼進(jìn)行校驗。具體流程圖如下列圖所示：開始提示登錄本程序輸入用戶密碼調(diào)用密碼檢測子程序進(jìn)入圖書借閱管理系統(tǒng)顯示錯誤 圖4.2 密碼驗證

23、流程圖有關(guān)代碼如下：Private Sub Command1_Click()Dim sql As StringIf Trim(txtuser.Text) = "" Then '判斷輸入的用戶名是否為空 MsgBox "沒有這個用戶", vbOKOnly + vbExclamation, ""Else sql = "select * from 系統(tǒng)管理 where 用戶名='" & txtuser.Text & "'" rs_login.Open sql,

24、conn, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then MsgBox "沒有這個用戶", vbOKOnly + vbExclamation, "" Else '檢驗密碼是否正確 If Trim(rs_login.Fields(1) = Trim(txtpwd.Text) Then userpow = rs_login.Fields(2) Unload Me Else MsgBox "密碼不正確", vbOKOnly + vbExclamation, &

25、quot;" End If End IfEnd Ifcnt = cnt + 1If cnt = 3 Then Unload MeEnd IfExit SubEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim connectionstring As Stringconnectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _ "data source=book.mdb"conn.Ope

26、n connectionstringcnt = 0End Sub4.3 系統(tǒng)運行主界面如下圖。系統(tǒng)運行主界面5.4 讀者信息管理菜單如下圖。5.5 借書主界面如下圖。圖 借書主界面 首先進(jìn)行館藏圖書的查詢?nèi)缦聢D。圖館藏圖書查詢界面然后單擊命令按鈕“借這本書，假設(shè)這本書已被借出，那么彈出如下圖的對話框。圖書已借出對話框否那么進(jìn)入到“借書界面如下圖。圖 借書界面有關(guān)代碼如下：a、館藏圖書查詢表單的有關(guān)代碼：Option ExplicitDim panduan As StringPrivate Sub Command1_Click()Dim sql As StringIf Check1.Value

27、= vbChecked Then sql = "書名='" & Trim(Text1.Text & " ") & "'"End IfIf Check2.Value = vbChecked Then If Trim(sql) = "" Then sql = "類別='" & Trim(Combo1.Text & " ") & "'" Else sql = sql & &q

28、uot;and 書名='" & Trim(Combo1.Text & " ") & "'" End IfEnd IfIf Check3.Value = vbChecked Then If Trim(sql) = "" Then sql = "作者='" & Trim(Text2.Text & " ") & "'" Else sql = sql & "and 作者=

29、9;" & Trim(Text2.Text & " ") & "'" End IfEnd IfIf Check4.Value = vbChecked Then If Trim(sql) = "" Then sql = "出版社='" & Trim(Text3.Text & " ") & "'" Else sql = sql & "and 出版社='" &

30、; Trim(Text3.Text & " ") & "'" End IfEnd IfIf Check5.Value = vbChecked Then If Trim(sql) = "" Then sql = "書籍編號='" & Trim(Text4.Text & " ") & "'" Else sql = sql & "and 書籍編號='" & Trim(Text

31、4.Text & " ") & "'" End IfEnd IfIf Trim(sql) = "" Then MsgBox "請選擇查詢方式！", vbOKOnly + vbExclamation Exit SubEnd Ifsql = "select * from 書籍信息 where " & sqlrs_findbook.CursorLocation = adUseClientrs_findbook.Open sql, conn, adOpenKeyset,

32、adLockPessimisticDataGrid1.AllowAddNew = FalseDataGrid1.AllowDelete = FalseDataGrid1.AllowUpdate = FalseSet DataGrid1.DataSource = rs_findbookEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()If Trim(book_num) = "" Then MsgBox "請選擇要借閱的圖書！", vbOKOnly +

33、 vbExclamation Exit SubEnd IfIf panduan = "是" Then MsgBox "此書已被借出！", vbOKOnly + vbExclamation Exit SubEnd IfEnd SubPrivate Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)book_num = DataGrid1.Columns(0).CellValue(DataGrid1.Bookmark)panduan = DataGrid1.Colu

34、mns(7).CellValue(DataGrid1.Bookmark)End SubPrivate Sub Form_Load()Dim sql As Stringsql = "select * from 圖書類別"rs_find.Open sql, conn, adOpenKeyset, adLockPessimisticIf Not rs_find.EOF Then Combo1.AddItem rs_find.Fields(0) Loop Combo1.ListIndex = 0End IfEnd Sub b、借書表單的有關(guān)代碼：Private Sub Comman

35、d1_Click()Dim sql As Stringsql = "select * from 讀者信息 where 讀者編號='" & Combo1.Text & "'"rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimisticleibie = rs_borrowbook.Fields(3)shumu = rs_borrowbook.Fields(8)sql = "select * from 讀者類別 where 種類名稱='"

36、& leibie & "'"rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimisticqixian = rs_borrowbook.Fields(2)maxnum = rs_borrowbook.Fields(1)If shumu >= maxnum Then MsgBox "該讀者借書數(shù)額已滿！", vbOKOnly + vbExclamation Exit SubEnd Ifsql = "select * from 借閱信息"rs_bor

37、rowbook.Open sql, conn, adOpenKeyset, adLockPessimisticrs_borrowbook.Fields(5) = Daters_borrowbook.Fields(6) = DateAdd("Ww", qixian, Date)sql = "select * from 書籍信息 where 書籍編號='" & book_num & "'"rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimisti

38、crs_borrowbook.Fields(7) = "是"sql = "select * from 讀者信息 where 讀者編號='" & Combo1.Text & "'"rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimisticrs_borrowbook.Fields(8) = rs_borrowbook.Fields(8) + 1MsgBox "本書借閱成功！", vbOKOnly + vbExclamatio

39、nUnload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim sql As Stringsql = "select * from 書籍信息 where 書籍編號='" & book_num & "'"rs_borrow.Open sql, conn, adOpenKeyset, adLockPessimisticLabel8.Caption = rs_borrow.Fields(0)Label9.Caption

40、 = rs_borrow.Fields(1)Label10.Caption = rs_borrow.Fields(2)Label11.Caption = rs_borrow.Fields(3)Label12.Caption = rs_borrow.Fields(4)Label13.Caption = rs_borrow.Fields(5)Label14.Caption = rs_borrow.Fields(6)sql = "select * from 讀者信息"rs_reader.Open sql, conn, adOpenKeyset, adLockPessimistic

41、If Not rs_reader.EOF Then Combo1.AddItem rs_reader.Fields(1) Combo2.AddItem rs_reader.Fields(0) LoopElse MsgBox "請先登記讀者！", vbOKOnly + vbExclamation Exit SubEnd IfEnd Sub 系統(tǒng)調(diào)試及體會4.61 系統(tǒng)開發(fā)環(huán)境系統(tǒng)開發(fā)環(huán)境包括硬件平臺和軟件平臺兩種。硬件平臺是指開發(fā)與運行所需要的硬件環(huán)境，主要包括計算機(jī)機(jī)型及硬件配置。由于本系統(tǒng)是一個小型的MIS管理系統(tǒng)，因此對計算機(jī)硬件的要求不高，比擬經(jīng)濟(jì)，只要配備有PII3

42、00處理器或以上、64M內(nèi)存或以上、20G硬盤或以上的普通微機(jī)即可順利運行。軟件平臺是指系統(tǒng)開發(fā)與運行的軟件環(huán)境。本系統(tǒng)在開發(fā)時選用了穩(wěn)定性較強(qiáng)的Windows XP中文專業(yè)版和作為開發(fā)語言，同時選用了Access數(shù)據(jù)庫，由于這些軟件產(chǎn)品都是Microsoft公司的產(chǎn)品，因此彼此之間的兼容性較好，開發(fā)出的應(yīng)用系統(tǒng)穩(wěn)定性較高。具有可視化的開發(fā)環(huán)境，可以快速完成系統(tǒng)的開發(fā)，內(nèi)部集成的數(shù)據(jù)庫訪問通道，使得可以輕松方便的對數(shù)據(jù)庫管理。數(shù)據(jù)庫采用MICROSOFT ACCESS，由于我們的系統(tǒng)要求，采用它完全可以適合我們的工作需求，并且它所支持的數(shù)據(jù)類型十分豐富，維護(hù)簡便，費用比擬低，人員素質(zhì)要求不是很高，容易升級。本系統(tǒng)在單機(jī)上運行。4.62 系統(tǒng)測試在開發(fā)本系統(tǒng)時，為了使系統(tǒng)能夠穩(wěn)定運行，對本系統(tǒng)進(jìn)行了有針對性的全面測試，采取的方式是：菜單項測試：為了保證每一項下拉菜單能夠正確實現(xiàn)系統(tǒng)設(shè)計的功能，我對每一個菜單項反復(fù)進(jìn)行了增加