圖書管理系統(tǒng)報告

1、摘 要二十一世紀(jì)是信息的社會，信息作為社會最主要的資源，將成為戰(zhàn)略資源引起人們廣泛的關(guān)注。圖書是我們最好的獲取信息的方式，但由于圖書館圖書收藏量大大增加，使傳統(tǒng)的圖書管理員的工作日益繁重起來。迫使人們起用新的管理方法來管理圖書?？茖W(xué)技術(shù)日新月異的進步，讓人類生活發(fā)生了巨大的變化，計算機技術(shù)的飛速發(fā)展，使各行各業(yè)在計算機技術(shù)應(yīng)用方面得到了廣泛的普及和使用。信息化時代的到來成為不可抗拒的潮流，人類文明正在進入一個嶄新的時代。因此，圖書管理系統(tǒng)也以方便、快捷、費用低的優(yōu)點正慢慢地進入人們的生活，將傳統(tǒng)的圖書管理方式徹底的解脫出來，提高效率，減輕工人人員以往繁忙的工作，減小出錯的概率，使讀者可以花更多

2、的時間在選擇書和看書上。從而使人們有更多時間來獲取信息、了解信息、掌握信息 。圖書管理系統(tǒng)為圖書管理者提供圖書管理、讀者管理以及借閱管理，查詢報表的一系列日常功能提供方便快捷的實現(xiàn)平臺。其開發(fā)內(nèi)容主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應(yīng)用程序的開發(fā)兩個方面。利用 delphi 7.0 軟件、sql 語言、ibm db2 及其提供的各種面向?qū)ο蟮拈_發(fā)工具，建立完整性強、安全性好的數(shù)據(jù)庫，開發(fā)出功能完備、易使用的應(yīng)用程序。經(jīng)過調(diào)試、編譯與實現(xiàn)，該程序界面友好、程序設(shè)計風(fēng)格樸素，使用起來美觀大方、方便易用。尤其是系統(tǒng)的“借閱管理”的功能極大的減輕工作人員的工作量，并以快速、準(zhǔn)確等優(yōu)點取代人工操作，提

3、高了圖書管理工作效率。關(guān)鍵詞：關(guān)鍵詞：sql 語言；ibm db2；數(shù)據(jù)庫設(shè)計；圖書管理系統(tǒng)目 錄一、 緒論.11.1. 課題簡介課題簡介.1 12 2設(shè)計目的設(shè)計目的.1 13 3設(shè)計內(nèi)容設(shè)計內(nèi)容.1 1二、 需求分析.21 1需求分析的任務(wù)需求分析的任務(wù).2 22 2需求分析的過程需求分析的過程.2 23 3業(yè)務(wù)流程業(yè)務(wù)流程.3 3三、 概念結(jié)構(gòu)設(shè)計.61 1概念結(jié)構(gòu)設(shè)計的方法與步驟概念結(jié)構(gòu)設(shè)計的方法與步驟.6 62 2數(shù)據(jù)抽象與局部視圖設(shè)計數(shù)據(jù)抽象與局部視圖設(shè)計.7 73 3視圖的集成視圖的集成.1010四、 邏輯結(jié)構(gòu)設(shè)計.111 1erer 圖向關(guān)系模型的轉(zhuǎn)換圖向關(guān)系模型的轉(zhuǎn)換 .11

4、112 2數(shù)據(jù)模型的優(yōu)化數(shù)據(jù)模型的優(yōu)化.11113 3數(shù)據(jù)庫的結(jié)構(gòu)數(shù)據(jù)庫的結(jié)構(gòu).1111五、 數(shù)據(jù)庫的實施與運行.121.1. 數(shù)據(jù)庫數(shù)據(jù)庫.12122.2. 登錄登錄.14143.3. 主界面主界面.15154.4. 圖書信息管理圖書信息管理.15155.5. 圖書查詢圖書查詢.21216.6. 圖書借閱管理圖書借閱管理.23237.7. 圖書歸還管理圖書歸還管理.26268.8. 讀者管理讀者管理.2828總 結(jié).31參考文獻.321一、 緒論1. 課題簡介隨著科學(xué)技術(shù)的飛速發(fā)展，人們對知識的渴望越來越大。本系統(tǒng)開發(fā)的目的是為了減輕圖書管理工作的負擔(dān)，將那些原來需要用手工完成的事情讓計算機

5、來完成。不但使得圖書管理工作的效率大大提高，同時也大大地降低了出錯概率。本系統(tǒng)利用插件的形式組成，方便隨時升級，實現(xiàn)軟件開發(fā)的延續(xù)性。2設(shè)計目的在當(dāng)今社會，計算機占據(jù)了非常重要的位置，這些大部分都是通過使用軟件而提高生產(chǎn)、管理效率來體現(xiàn)的。本文研究的圖書管理系統(tǒng)正好就是這樣性質(zhì)的一個軟件。圖書是我們最好的獲取信息的方式，但由于圖書館圖書收藏量大大增加，使傳統(tǒng)的圖書管理員的工作日益繁重起來。迫使人們起用新的管理方法來管理圖書?？茖W(xué)技術(shù)日新月異的進步，讓人類生活發(fā)生了巨大的變化，計算機技術(shù)的飛速發(fā)展，使各行各業(yè)在計算機技術(shù)應(yīng)用方面得到了廣泛的普及和使用。信息化時代的到來成為不可抗拒的潮流，人類文明

6、正在進入一個嶄新的時代。因此，圖書管理系統(tǒng)也以方便、快捷、費用低的優(yōu)點正慢慢地進入人們的生活，將傳統(tǒng)的圖書管理方式徹底的解脫出來，提高效率，減輕工人人員以往繁忙的工作，減小出錯的概率，使讀者可以花更多的時間在選擇書和看書上。從而使人們有更多時間來獲取信息、了解信息、掌握信息 。3設(shè)計內(nèi)容（1）需求分析需求分析的任務(wù)是準(zhǔn)確了解并分析圖書管理系統(tǒng)的需要和要求，弄清圖書借閱管理系統(tǒng)要達到的目標(biāo)和實現(xiàn)的功能，得到數(shù)據(jù)字典和數(shù)據(jù)流圖。（2）概念結(jié)設(shè)計將需求分析得到的用戶需求抽象為信息結(jié)構(gòu)即概念模型（er 圖）。先逐一設(shè)計 er圖，然后集成得到的 er 圖，最后通過消除不必要的冗余，設(shè)計基本 er 圖。

7、（3）邏輯設(shè)計邏輯設(shè)計的任務(wù)就是把概念設(shè)計階段設(shè)計好的基本 er 圖轉(zhuǎn)換為與選用的 dbms 產(chǎn)2品所支持的數(shù)據(jù)模型相符合的邏輯結(jié)構(gòu)。首先按照 er 圖向數(shù)據(jù)模型轉(zhuǎn)換的規(guī)則，將概念結(jié)構(gòu)轉(zhuǎn)換為 dbms 所支持的數(shù)據(jù)模型；然后對數(shù)據(jù)模型進行優(yōu)化，得到至少 5 個關(guān)系模式。（4）數(shù)據(jù)庫的實施表的建立 需要明確數(shù)據(jù)庫需要建立多少表，以及每個表中所要包括的內(nèi)容。在建立表的過程中。要對每個表進行字段屬性的設(shè)置。表之間關(guān)系的設(shè)置 為數(shù)據(jù)庫設(shè)置了不同的表之后必須告訴 dbms 如何將這些信息合并在一起，因此要定義表之間的關(guān)系。完成相關(guān)查詢 包括圖書信息、借閱、歸還、圖書查詢、圖書管理功能，可以新增圖書，修改

8、圖書和刪除圖書等功能。二、 需求分析1需求分析的任務(wù) 圖書管理系統(tǒng)是一種基于集中統(tǒng)一規(guī)劃的數(shù)據(jù)庫數(shù)據(jù)管理新模式，立足于當(dāng)今社會信息的發(fā)達，著眼于未來發(fā)展，建成符合標(biāo)準(zhǔn)化協(xié)議、通用性較強、實用的系統(tǒng)，以提高圖書信息的現(xiàn)代化管理水平，實現(xiàn)信息資源的共享。在對圖書、讀者的管理，其實是對圖書、讀者數(shù)據(jù)的管理。本系統(tǒng)的建成無疑會為管理者對圖書管理系統(tǒng)提供極大的幫助。使用該系統(tǒng)之后，圖書館管理人員可以管理讀者的登記、圖書的輸入、借出、歸還以及刪除等；還可以查詢某位讀者、某本圖書的借閱情況，對當(dāng)前借閱情況給出一些統(tǒng)計，給出統(tǒng)計表格，以全面掌握圖書的流通情況。本系統(tǒng)的宗旨是提高圖書管理工作的效率，減少相關(guān)人員

9、的工作量，使圖書管理工作真正做到科學(xué)、合理的規(guī)劃，系統(tǒng)、高效的實施。 2需求分析的過程圖書管理是所有圖書館，以及圖書出租機構(gòu)最重要的管理手段。表面上看，它只是把3圖書管理員圖書信息管理查詢管理員登陸讀者借閱歸還圖書狀態(tài)管理輸出信息讀者信息管理一個本來需要很多人做的工作簡單到一個或者幾個人的身上了，但是，對于日漸繁忙的社會生活來看，高效、低耗才是未來發(fā)展的必然方向，勞動力作為社會發(fā)展的主要動力，是不允許無謂的浪費的。因此這個系統(tǒng)的出現(xiàn)并不像看上去那么簡單。過去的圖書管理機構(gòu)，僅僅靠人力管理圖書系統(tǒng)，既耗時又浪費人力資源，隨著社會的更快、更新、更現(xiàn)代化的發(fā)展，亟需一種簡單快捷的方式解決這種無謂的損

10、耗，那么我們的圖書管理系統(tǒng)也就應(yīng)用而生了。通過對當(dāng)前圖書管理機構(gòu)的了解，本系統(tǒng)利用目前最先進、最新型的開發(fā)工具 db2 開發(fā)一個圖書管理信息系統(tǒng)。它能方便快捷地運用在圖書業(yè)務(wù)的運作當(dāng)中。圖書室人類知識的最重要的來源之一，我們可以從中獲得各種需要的信息，為我們的日常學(xué)習(xí)生活提供幫助。同時，隨著網(wǎng)絡(luò)逐漸的深入我們的學(xué)習(xí)生活中，網(wǎng)絡(luò)已經(jīng)成為了日常生活不可或缺的一部分，通過我們的圖書管理系統(tǒng)，我們可以快速的查找到自己需要的知識，俗語有云：“知識就是力量” ， “時間就是生命”我們的圖書館管理系統(tǒng)可以讓你在重視生命的前提下獲得力量，用最短的消耗獲得最高的成效。所以以人工的方式來管理這個龐大的信息庫，那是

11、及繁瑣又費時的，幾乎是不可能完全實現(xiàn)的。一種可行的方案是基于客戶端服務(wù)器的體系結(jié)構(gòu)。服務(wù)器為數(shù)據(jù)庫系統(tǒng)，存儲所有必要的信息。客戶端通過連接到服務(wù)的應(yīng)用程序快速、準(zhǔn)確地完成相應(yīng)的工作。本系統(tǒng)采用最先進的系統(tǒng)設(shè)施，應(yīng)用 delphi 語言編程，完全實現(xiàn)了方便管理的業(yè)務(wù)要求，為整個行業(yè)帶來便利，為人們的生活提供方便。3業(yè)務(wù)流程 以圖書管理系統(tǒng)為對象，經(jīng)過可行性分析和初步需求調(diào)查，抽象出該圖書管理系統(tǒng)的業(yè)務(wù)流程圖，如圖 1 所示。下面，結(jié)合該實例具體情況，給出對讀者、圖書查詢，圖書管理員管理的具體需求。4圖 1 圖書管理業(yè)務(wù)流程圖表 1:業(yè)務(wù)流程輸出信息表項目信息圖書信息管理添加功能：主要用來增加圖書

12、及相關(guān)信息修改功能：主要用來修改圖書及相關(guān)信息刪除功能：刪除已經(jīng)不用的圖書信息圖書狀態(tài)管理借閱查詢功能：讀者可按分類、書名、出版社或作者查詢所有書籍，并獲得已借、未借借閱管理功能：管理某圖書的讀者、借閱時間、借閱期限歸還管理功能：管理某圖書的讀者、歸還時間讀者信息管理讀者編號、姓名、身份證號、地址、電話 調(diào)查讀者需求 讀者借閱需求查詢功能：讀者可按分類、書名、出版社或作者查詢所有書籍。借閱功能：讀者可借閱書籍。歸還功能：在一定時間內(nèi)，讀者必須歸還書籍。 圖書信息管理需求添加功能：主要用來增加圖書及相關(guān)信息。修改功能：主要用來修改圖書及相關(guān)信息。刪除功能：刪除已經(jīng)不用的圖書信息。加強圖書信息管理

13、與分析，提高圖書管理效率，為圖書管理工作提供輔助決策支持。 圖書狀態(tài)管理需求借閱查詢功能：讀者可按分類、書名、出版社或作者查詢所有書籍，并獲得已借、未借等信息。借閱管理功能：管理某圖書的讀者、借閱時間、借閱期限等信息。歸還管理功能：管理某圖書的讀者、歸還時間等信息。5 讀者信息管理需求讀者信息管理：顯示輸入的讀者編號、姓名、身份證號、地址、電話等詳細信息。 分析用戶需求在詳細調(diào)查了用戶需求之后，就要開始分析用戶需求。在此，我們采用自頂向下的結(jié)構(gòu)化分析方法。首先，定義全局概念結(jié)構(gòu)的框架，如圖 2 所示。圖書管理系統(tǒng)圖書管理子系統(tǒng)查詢管理子系統(tǒng)借閱管理子系統(tǒng)讀者管理子系統(tǒng)圖 2 圖書管理系統(tǒng)總框架

14、圖對各子系統(tǒng)進行進一步細化。如下各圖所示。圖書管理子系統(tǒng)增加圖書修改圖書刪除圖書圖 3 圖書管理子系統(tǒng)的細化查詢管理子系統(tǒng)按書名查詢按作者查詢按出版社查詢按分類查詢圖 4 圖書查詢管理子系統(tǒng)的細化6借閱管理子系統(tǒng)借閱圖書歸還圖書圖 5 圖書借閱管理子系統(tǒng)的細化讀者管理子系統(tǒng)增加讀者修改讀者刪除讀者圖 6 讀者管理子系統(tǒng)的細化 依此類推，將所有子系統(tǒng)全部細化。將所有用戶需求分析完畢之后，就要開始構(gòu)造數(shù)據(jù)字典了。經(jīng)分析之后，本系統(tǒng)要用到 4 個基本表：圖書信息總表、借閱信息表、歸還信息表、讀者信息表。數(shù)據(jù)結(jié)構(gòu)定義如表 1 所示。表 2：基本表信息三、 概念結(jié)構(gòu)設(shè)計1概念結(jié)構(gòu)設(shè)計的方法與步驟（1）

15、概念結(jié)構(gòu)設(shè)計的方法數(shù)據(jù)結(jié)構(gòu)名含義說明組成圖書信息總表定義了所有圖書的有關(guān)信息圖書編號，書名，作者，出版社，圖書類型，借閱狀態(tài)借閱信息表定義了讀者借閱圖書的有關(guān)信息借閱編號，讀者編號，圖書編號，借閱日期，預(yù)計歸還日期歸還信息表定義了讀者歸還圖書的有關(guān)信息借閱編號，讀者編號，圖書編號，歸還日期，超期時間讀者信息表定義了讀者的有關(guān)信息讀者編號，讀者姓名，身份證號，地區(qū)，郵政編碼，地址，電話7本系統(tǒng)采用自底向上的概念結(jié)構(gòu)設(shè)計方法。即首先定義各局部應(yīng)用的概念結(jié)構(gòu)，然后將它們集成起來得到全局概念模式。（2） 概念結(jié)構(gòu)設(shè)計的步驟概念結(jié)構(gòu)設(shè)計可分為兩個步驟：抽象數(shù)據(jù)并設(shè)計局部視圖。就是對需求分析階段收集到的數(shù)

16、據(jù)按照 er 模型的要求進行分類、組織，形成實體的屬性，標(biāo)識實體的鍵，確定實體之間的聯(lián)系類型，設(shè)計分 er 圖。集成局部視圖，得到全局的概念結(jié)構(gòu)。就是要將所有的分 er 圖綜合成一個系統(tǒng)的總 er 圖。2數(shù)據(jù)抽象與局部視圖設(shè)計按照圖 2.2 圖書管理系統(tǒng)總框架圖，設(shè)計局部 er 圖。圖書管理員圖書借閱圖書編號書名作者出版社圖書類型狀態(tài)圖 7局部 er 圖（1）借閱編號讀者編號借閱時間圖書編號預(yù)計歸還時間借閱編號讀者編號圖書編號歸還時間超期時間姓名密碼權(quán)限姓名密碼權(quán)限8圖書管理員圖書歸還圖書編號書名作者出版社圖書類型狀態(tài)圖 8局部 er 圖（2）1圖書管理員圖書增加圖書編號書名出版社圖書類型狀態(tài)

17、作者圖 9局部 er 圖（3）圖書管理員圖書修改圖書編號書名作者出版社圖書類型狀態(tài)圖 10局部 er 圖（4）圖書管理員圖書查詢圖書編號書名作者出版社圖書類型狀態(tài)圖 11局部 er 圖（5）姓名密碼權(quán)限姓名密碼權(quán)限姓名密碼權(quán)限2圖書管理員增加讀者讀者編號身份證號地區(qū)郵編地址姓名電話圖 12局部 er 圖（6）圖書管理員刪除讀者讀者編號身份證號地區(qū)郵編地址姓名電話圖 13局部 er 圖（7）圖書管理員修改讀者讀者編號身份證號地區(qū)郵編地址姓名電話圖 14局部 er 圖（8）姓名密碼權(quán)限姓名密碼權(quán)限姓名密碼權(quán)限33視圖的集成描述進行視圖集成的具體過程，最后得到圖 8 總體概念結(jié)構(gòu) er 圖。圖書管理

18、員圖書讀者姓名密碼權(quán)限借閱歸還增加查詢修改刪除刪除修改增加借閱編號讀者編號借閱時間圖書編號預(yù)計歸還時間借閱編號讀者編號圖書編號歸還時間超期時間圖書編號作者出版社分類狀態(tài)讀者編號姓名身份證號郵編地區(qū)地址電話圖 15總體概念 er 圖4四、 邏輯結(jié)構(gòu)設(shè)計1er 圖向關(guān)系模型的轉(zhuǎn)換將圖 2.8 總體概念結(jié)構(gòu) er 圖轉(zhuǎn)化成關(guān)系模型如下：圖書管理員 （姓名，密碼）圖書（圖書編號，書名，作者，出版社，分類，狀態(tài)）借閱（借閱編號，圖書編號，讀者編號，借閱時間，預(yù)計歸還時間）歸還（借閱編號，圖書編號，讀者編號，歸還時間，超期時間）讀者（讀者編號，姓名，身份證號，地區(qū)，郵政編碼，地址，電話）2數(shù)據(jù)模型的優(yōu)化將

19、轉(zhuǎn)化的關(guān)系模式進行優(yōu)化，最終達到第三范式。圖書管理員 （姓名，密碼）圖書（圖書編號，書名，作者，出版社，分類，狀態(tài)）借閱（借閱編號，圖書編號，讀者編號，借閱時間，預(yù)計歸還時間）歸還（借閱編號，圖書編號，讀者編號，歸還時間，超期時間）讀者（讀者編號，姓名，身份證號，地區(qū)，郵政編碼，地址，電話）3數(shù)據(jù)庫的結(jié)構(gòu) 各表的結(jié)構(gòu)如下：表表 3 3：管理員登錄（：管理員登錄（usersusers）字段名數(shù)據(jù)類型長度約束描述xmvarchar8主鍵管理員姓名passwordsvarchar6不為空密碼qxvarchar6不為空權(quán)限表表 4 4：圖書（：圖書（booksbooks）字段名數(shù)據(jù)類型長度約束描述nu

20、mbervarchar8主鍵圖書編號namevarchar20不為空書名authorvarchar20不為空作者publishvarchar20不為空出版社categoryvarchar20不為空分類statusvarchar8不為空狀態(tài)5表表 5 5：借閱（：借閱（rentrent）字段名數(shù)據(jù)類型長度約束描述借閱編號varchar8主鍵借閱編號讀者編號varchar8不為空讀者編號圖書編號varchar8不為空圖書編號借閱日期date8不為空借閱日期預(yù)計歸還日期date8不為空預(yù)計歸還日期表表 6 6：歸還（：歸還（backback）字段名數(shù)據(jù)類型長度約束描述借閱編號varchar8主鍵借閱

21、編號讀者編號varchar8不為空讀者編號圖書編號varchar8不為空圖書編號歸還日期date8不為空歸還日期超期日期varchar8不為空超期日期表表 7 7：讀者（：讀者（readersreaders）字段名數(shù)據(jù)類型長度約束描述讀者編號varchar8主鍵讀者編號讀者姓名varchar8不為空讀者姓名身份證號varchar20不為空身份證號地區(qū)varchar20不為空地區(qū)郵政編碼varchar6不為空郵政編碼地址varchar50不為空地址電話varchar20不為空電話五、 數(shù)據(jù)庫的實施與運行1. 數(shù)據(jù)庫users.db6books.dbrent.dbback.dbreaders.db

22、72. 登錄（1） “登錄”按鈕procedure tform1.button1click(sender: tobject);varasql:string; begin asql:=select * from users.db where xm=+edit1.text+and passwords=+edit2.text+; query1.sql.text:=asql; query1.open; if query1.recordcount=0 then messagedlg(密碼錯誤,mterror,mbok,0) else begin if query1.fieldbyname(qx).ass

23、tring=管理員 then begin form2.show; form1.hide; end else form2.show; form1.hide; end; query1.close;end;（2） “退出”按鈕procedure tform1.button2click(sender: tobject);beginif messagedlg(確定要退出圖書管理系統(tǒng)嗎？,mtconfirmation,mbyes,mbno,0)=mryesthenapplication.terminateend;83. 主界面4. 圖書信息管理（1）增加procedure tform3.speedbutt

24、on1click(sender: tobject);begintry if (edit1.text=) then begin messagedlg(請輸入序號！,mtwarning,mbok,0); activecontrol:=edit1; abort; end; beginform3.table1.append;form3.table1.fields0.asstring:=edit1.text;form3.table1.fields1.asstring:=edit2.text;form3.table1.fields2.asstring:=edit3.text;form3.table1.fi

25、elds3.asstring:=edit4.text;form3.table1.fields4.asstring:=combobox1.text;form3.table1.fields5.asstring:=combobox2.text;form3.table1.post;form3.table1.refresh;edit1.text:=;edit2.text:=;edit3.text:=;edit4.text:=;combobox1.text:=;combobox2.text:=;end;except9 on ex:econverterror do begin messagedlg(輸入有誤

26、，請重試！,mtwarning,mbok,0); end; end;end;增加編號為“011”的圖書（藍色框是顯示記錄，綠色輸入框是添加的記錄）添加成功信息保存10（2）修改procedure tform3.speedbutton3click(sender: tobject);begin dbedit1.enabled:=true; dbedit2.enabled:=true; dbedit3.enabled:=true; dbedit4.enabled:=true; dbcombobox1.enabled:=true; dbcombobox2.enabled:=true;end;點擊“修改

27、” ，在“出版社”里輸入“人民出版社”11點擊“修改” ，修改成功procedure tform3.button1click(sender: tobject);begin table1.edit; table1.post; dbedit1.enabled:=false; dbedit2.enabled:=false; dbedit3.enabled:=false; dbedit4.enabled:=false; dbcombobox1.enabled:=false; dbcombobox2.enabled:=false;end;（3）刪除procedure tform3.speedbutton

28、2click(sender: tobject);beginif table1.recordcount0 thenbeginif messagedlg(確定要刪除嗎？,mtconfirmation,mbyes,mbno,0)=mryes thenbeginif table1.recno0 then table1.delete;end;endelsemessagedlg(無記錄可刪除,mtwarning,mbyes,0)end;光標(biāo)指向“010”12刪除成功（4）刷新procedure tform3.speedbutton8click(sender: tobject);begindatasourc

29、e1.dataset:=table1;table1.refresh;end;（5）關(guān)閉procedure tform3.speedbutton7click(sender: tobject);beginclose;end;13（6）打印procedure tform3.button2click(sender: tobject);beginapplication.createform(tform9,form9);form9.quickrep1.preview;end;145. 圖書查詢（1）按書名查詢“書名”中輸入“活著”procedure tform8.speedbutton4click(sen

30、der: tobject);var str:string;beginif(edit1.text =)then begin messagebox(handle,請?zhí)睢皀ame” 。,不能查詢，信息不完整,mb_ok); edit1.setfocus; exit; end;15（2）按作者查詢procedure tform8.speedbutton5click(sender: tobject);var str:string;beginif(edit2.text =)then begin messagebox(handle,請?zhí)睢癮uthor” 。,不能查詢，信息不完整,mb_ok); edit2.

31、setfocus; exit; end;（3）按出版社查詢procedure tform8.speedbutton9click(sender: tobject);var str:string;beginif(edit3.text =)then begin messagebox(handle,請?zhí)睢皃ublish” 。,不能查詢，信息不完整,mb_ok); edit3.setfocus; exit; end;16（4）按分類查詢procedure tform8.speedbutton10click(sender: tobject);var str:string;beginif(edit4.tex

32、t =)then begin messagebox(handle,請?zhí)睢癱atagory” 。,不能查詢，信息不完整,mb_ok); edit4.setfocus; exit; end;6. 圖書借閱管理（1）增加procedure tform5.speedbutton1click(sender: tobject);begintry if (edit1.text=) then begin messagedlg(請輸入序號！,mtwarning,mbok,0); activecontrol:=edit1; abort; end; beginform5.table1.append;form5.ta

33、ble1.fields0.asstring:=edit1.text;form5.table1.fields1.asstring:=edit2.text;form5.table1.fields2.asstring:=edit3.text;form5.table1.fields3.asstring:=edit4.text;form5.table1.fields4.asstring:=edit5.text;form5.table1.post;form5.table1.refresh;edit1.text:=;17edit2.text:=;edit3.text:=;edit4.text:=;edit5

34、.text:=;end;except on ex:econverterror do begin messagedlg(輸入有誤，請重試！,mtwarning,mbok,0); end; end;end;（2）刪除procedure tform5.speedbutton2click(sender: tobject);beginif table1.recordcount0 thenbeginif messagedlg(確定要刪除嗎？,mtconfirmation,18mbyes,mbno,0)=mryes thenbeginif table1.recno0 then table1.delete;e

35、nd;endelsemessagedlg(無記錄可刪除,mtwarning,mbyes,0)end;7. 圖書歸還管理（1）增加procedure tform5.speedbutton1click(sender: tobject);begintry if (edit1.text=) then begin19 messagedlg(請輸入序號！,mtwarning,mbok,0); activecontrol:=edit1; abort; end; beginform5.table1.append;form5.table1.fields0.asstring:=edit1.text;form5.t

36、able1.fields1.asstring:=edit2.text;form5.table1.fields2.asstring:=edit3.text;form5.table1.fields3.asstring:=edit4.text;form5.table1.fields4.asstring:=edit5.text;form5.table1.post;form5.table1.refresh;edit1.text:=;edit2.text:=;edit3.text:=;edit4.text:=;edit5.text:=;end;except on ex:econverterror do b

37、egin messagedlg(輸入有誤，請重試！,mtwarning,mbok,0); end; end;end;20（2）刪除procedure tform5.speedbutton2click(sender: tobject);beginif table1.recordcount0 thenbeginif messagedlg(確定要刪除嗎？,mtconfirmation, mbyes,mbno,0)=mryes thenbeginif table1.recno0 then table1.delete;end;endelsemessagedlg(無記錄可刪除,mtwarning,mbye

38、s,0)end;218. 讀者管理（1）增加procedure tform6.speedbutton1click(sender: tobject);begintry if (edit1.text=) then begin messagedlg(請輸入序號！,mtwarning,mbok,0); activecontrol:=edit1; abort; end; beginform6.table1.append;form6.table1.fields0.asstring:=edit1.text;form6.table1.fields1.asstring:=edit2.text;form6.table1.fields2.asstring:=edit3.text;form6.table1.fields3.asstring:=edit4.text;form6.