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

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

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

3、高了圖書管理工作效率。關(guān)鍵詞：關(guān)鍵詞：sql 語言；ibm db2；數(shù)據(jù)庫(kù)設(shè)計(jì)；圖書管理系統(tǒng)目 錄一、 緒論.11.1. 課題簡(jiǎn)介課題簡(jiǎn)介.1 12 2設(shè)計(jì)目的設(shè)計(jì)目的.1 13 3設(shè)計(jì)內(nèi)容設(shè)計(jì)內(nèi)容.1 1二、 需求分析.21 1需求分析的任務(wù)需求分析的任務(wù).2 22 2需求分析的過程需求分析的過程.2 23 3業(yè)務(wù)流程業(yè)務(wù)流程.3 3三、 概念結(jié)構(gòu)設(shè)計(jì).61 1概念結(jié)構(gòu)設(shè)計(jì)的方法與步驟概念結(jié)構(gòu)設(shè)計(jì)的方法與步驟.6 62 2數(shù)據(jù)抽象與局部視圖設(shè)計(jì)數(shù)據(jù)抽象與局部視圖設(shè)計(jì).7 73 3視圖的集成視圖的集成.1010四、 邏輯結(jié)構(gòu)設(shè)計(jì).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ù)庫(kù)的結(jié)構(gòu)數(shù)據(jù)庫(kù)的結(jié)構(gòu).1111五、 數(shù)據(jù)庫(kù)的實(shí)施與運(yùn)行.121.1. 數(shù)據(jù)庫(kù)數(shù)據(jù)庫(kù).12122.2. 登錄登錄.14143.3. 主界面主界面.15154.4. 圖書信息管理圖書信息管理.15155.5. 圖書查詢圖書查詢.21216.6. 圖書借閱管理圖書借閱管理.23237.7. 圖書歸還管理圖書歸還管理.26268.8. 讀者管理讀者管理.2828總 結(jié).31參考文獻(xiàn).321一、 緒論1. 課題簡(jiǎn)介隨著科學(xué)技術(shù)的飛速發(fā)展，人們對(duì)知識(shí)的渴望越來越大。本系統(tǒng)開發(fā)的目的是為了減輕圖書管理工作的負(fù)擔(dān)，將那些原來需要用手工完成的事情讓計(jì)算機(jī)

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

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

7、（3）邏輯設(shè)計(jì)邏輯設(shè)計(jì)的任務(wù)就是把概念設(shè)計(jì)階段設(shè)計(jì)好的基本 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ù)模型；然后對(duì)數(shù)據(jù)模型進(jìn)行優(yōu)化，得到至少 5 個(gè)關(guān)系模式。（4）數(shù)據(jù)庫(kù)的實(shí)施表的建立 需要明確數(shù)據(jù)庫(kù)需要建立多少表，以及每個(gè)表中所要包括的內(nèi)容。在建立表的過程中。要對(duì)每個(gè)表進(jìn)行字段屬性的設(shè)置。表之間關(guān)系的設(shè)置 為數(shù)據(jù)庫(kù)設(shè)置了不同的表之后必須告訴 dbms 如何將這些信息合并在一起，因此要定義表之間的關(guān)系。完成相關(guān)查詢 包括圖書信息、借閱、歸還、圖書查詢、圖書管理功能，可以新增圖書，修改

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

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

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

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

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

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

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

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

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

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

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

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

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

21、編號(hào)讀者編號(hào)varchar8不為空讀者編號(hào)圖書編號(hào)varchar8不為空?qǐng)D書編號(hào)歸還日期date8不為空歸還日期超期日期varchar8不為空超期日期表表 7 7：讀者（：讀者（readersreaders）字段名數(shù)據(jù)類型長(zhǎng)度約束描述讀者編號(hào)varchar8主鍵讀者編號(hào)讀者姓名varchar8不為空讀者姓名身份證號(hào)varchar20不為空身份證號(hào)地區(qū)varchar20不為空地區(qū)郵政編碼varchar6不為空郵政編碼地址varchar50不為空地址電話varchar20不為空電話五、 數(shù)據(jù)庫(kù)的實(shí)施與運(yùn)行1. 數(shù)據(jù)庫(kù)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(密碼錯(cuò)誤,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(請(qǐng)輸入序號(hào)！,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、，請(qǐng)重試！,mtwarning,mbok,0); end; end;end;增加編號(hào)為“011”的圖書（藍(lán)色框是顯示記錄，綠色輸入框是添加的記錄）添加成功信息保存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;點(diǎn)擊“修改

27、” ，在“出版社”里輸入“人民出版社”11點(diǎn)擊“修改” ，修改成功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(確定要?jiǎng)h除嗎？,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,請(qǐng)?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,請(qǐng)?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,請(qǐng)?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,請(qǐng)?zhí)睢癱atagory” 。,不能查詢，信息不完整,mb_ok); edit4.setfocus; exit; end;6. 圖書借閱管理（1）增加procedure tform5.speedbutton1click(sender: tobject);begintry if (edit1.text=) then begin messagedlg(請(qǐng)輸入序號(hào)！,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(輸入有誤，請(qǐng)重試！,mtwarning,mbok,0); end; end;end;（2）刪除procedure tform5.speedbutton2click(sender: tobject);beginif table1.recordcount0 thenbeginif messagedlg(確定要?jiǎng)h除嗎？,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(請(qǐng)輸入序號(hào)！,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(輸入有誤，請(qǐng)重試！,mtwarning,mbok,0); end; end;end;20（2）刪除procedure tform5.speedbutton2click(sender: tobject);beginif table1.recordcount0 thenbeginif messagedlg(確定要?jiǎng)h除嗎？,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(請(qǐng)輸入序號(hào)！,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.