畢業(yè)設(shè)計(jì)-----圖書(shū)管理系統(tǒng)

1、<p><b>　　畢業(yè)論文(設(shè)計(jì))</b></p><p><b>　　目錄</b></p><p><b>　　第1章 緒論4</b></p><p><b>　　1.1軟件概述4</b></p><p><b>　　1.2系統(tǒng)

2、介紹4</b></p><p>　　1.3開(kāi)發(fā)工具簡(jiǎn)介4</p><p>　　第2章 總體設(shè)計(jì)分析5</p><p><b>　　2.1解決方案5</b></p><p>　　2.2業(yè)務(wù)流程分析6</p><p>　　2.3數(shù)據(jù)流程圖分析6</p><p

3、><b>　　2.4數(shù)據(jù)字典7</b></p><p><b>　　2.5處理描述8</b></p><p>　　2.6系統(tǒng)功能結(jié)構(gòu)9</p><p>　　2.7數(shù)據(jù)庫(kù)的設(shè)計(jì)9</p><p>　　第3章 圖書(shū)管理系統(tǒng)詳細(xì)設(shè)計(jì)12</p><p>　　3.1主

4、窗體的設(shè)計(jì)12</p><p>　　3.2登陸窗體設(shè)計(jì)13</p><p>　　3.3添加記錄窗體設(shè)計(jì)13</p><p>　　3.3.1讀者數(shù)據(jù)增加14</p><p>　　3.3.2讀者類(lèi)型管理16</p><p>　　3.3.3圖書(shū)信息增加18</p><p>　　3.3.4圖

5、書(shū)類(lèi)型管理20</p><p>　　3.3.5圖書(shū)借閱歸還窗體21</p><p>　　3.4數(shù)據(jù)更新窗體設(shè)計(jì)27</p><p>　　3.4.1圖書(shū)數(shù)據(jù)更新27</p><p>　　3.4.2讀者數(shù)據(jù)更新29</p><p>　　3.5數(shù)據(jù)查詢(xún)窗體設(shè)計(jì)32</p><p>　　3.

6、5.1圖書(shū)查詢(xún)?cè)O(shè)計(jì)32</p><p>　　3.5.2讀者信息查詢(xún)?cè)O(shè)計(jì)34</p><p>　　第4章 結(jié)束語(yǔ)37</p><p><b>　　參考文獻(xiàn)37</b></p><p><b>　　圖書(shū)管理系統(tǒng)的設(shè)計(jì)</b></p><p>　　摘 要：圖書(shū)管理系統(tǒng)是典

7、型的信息管理系統(tǒng)(MIS),其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。 </p><p>　　因此本人結(jié)合開(kāi)入式圖書(shū)館的要求，對(duì)MS SQL Server2000數(shù)據(jù)庫(kù)管理系統(tǒng)、SQL語(yǔ)言原理、Delphi應(yīng)用程序設(shè)計(jì)，Delphi數(shù)據(jù)庫(kù)技術(shù)進(jìn)行了較深入的學(xué)習(xí)和應(yīng)用，主要完成對(duì)圖書(shū)管

8、理系統(tǒng)的需求分析、功能模塊劃分、數(shù)據(jù)庫(kù)模式分析，并由此設(shè)計(jì)了數(shù)據(jù)庫(kù)結(jié)構(gòu)和應(yīng)用程序。系統(tǒng)運(yùn)行結(jié)果證明，本文所設(shè)計(jì)的圖書(shū)管理系統(tǒng)可以滿(mǎn)足借閱者、圖書(shū)館工作人員和高級(jí)管理員三方面的需要。 實(shí)現(xiàn)了數(shù)據(jù)庫(kù)表的瀏覽，記錄的添加、刪除和修改，報(bào)表的生成，實(shí)現(xiàn)了多數(shù)據(jù)庫(kù)表的連接操作，實(shí)現(xiàn)了多條件查詢(xún)和模糊查詢(xún)，并靈活實(shí)現(xiàn)了對(duì)不可更新查詢(xún)結(jié)果集的更新操作，實(shí)現(xiàn)了主從表操作，實(shí)現(xiàn)了密碼維護(hù)功能，最后，系統(tǒng)還可以導(dǎo)入數(shù)據(jù)庫(kù)以對(duì)任意同結(jié)構(gòu)的數(shù)據(jù)庫(kù)進(jìn)行操作。 設(shè)

9、計(jì)充分利用Delphi7.0、數(shù)據(jù)庫(kù)技術(shù)的強(qiáng)大力量，提高了編程效率和可靠性。 </p><p>　　關(guān)鍵詞：數(shù)據(jù)庫(kù)；Delphi7.0；數(shù)據(jù)庫(kù)組件；圖書(shū)管理；窗體</p><p><b>　　第1章 緒論</b></p><p><b>　　1.1軟件概述</b></p><p>　　此軟件是運(yùn)行在

10、Windows下的用與對(duì)圖書(shū)館圖書(shū)信息，以及用戶(hù)借閱信息進(jìn)行記錄的和管理的軟件。利用delphi進(jìn)行開(kāi)發(fā)，數(shù)據(jù)通過(guò)附帶的database desktop工具以表的方式錄入保存，運(yùn)用sql語(yǔ)句進(jìn)行查詢(xún)</p><p>　　該系統(tǒng)擁有漂亮的圖形化界面，操作簡(jiǎn)便，能完成添加圖書(shū)信息，修改圖書(shū)信息，查詢(xún)圖書(shū)信息，添加讀者類(lèi)別，修改讀者類(lèi)別，查詢(xún)讀者信息，修改讀者信息等一系列圖書(shū)管理功能，開(kāi)發(fā)本系統(tǒng)的總體任務(wù)是實(shí)現(xiàn)圖書(shū)管理

11、的系統(tǒng)化和自動(dòng)化，幫助管理人員更好更高效地完成圖書(shū)管理工作。</p><p><b>　　1.2系統(tǒng)介紹</b></p><p>　　隨著圖書(shū)館規(guī)模的不斷擴(kuò)大，圖書(shū)數(shù)量也相應(yīng)的增加，有關(guān)圖書(shū)的各種信息量也成倍增加，面對(duì)這龐大的信息量，傳統(tǒng)的人工方式管理會(huì)導(dǎo)致圖書(shū)館管理上的混亂，由于是用手工進(jìn)行抄寫(xiě)，且數(shù)據(jù)處理工作量大，容易出錯(cuò)。并且數(shù)據(jù)繁多，容易造成丟失，不易查找。人

12、力與物力過(guò)多浪費(fèi)，圖書(shū)館管理費(fèi)用也會(huì)增加，從而使圖書(shū)館的負(fù)擔(dān)過(guò)重，影響整個(gè)圖書(shū)館的運(yùn)作和控制管理，因此，必須制定一套合理、有效，規(guī)范和實(shí)用的圖書(shū)管理系統(tǒng)，對(duì)圖書(shū)資料進(jìn)行集中統(tǒng)一的管理。</p><p><b>　　1.3開(kāi)發(fā)工具簡(jiǎn)介</b></p><p>　　本系統(tǒng)采用Delphi 7.0作為開(kāi)發(fā)平臺(tái)，它是操作系統(tǒng)中快速應(yīng)用開(kāi)發(fā)環(huán)境的最新版本。它也是當(dāng)前Window

13、s平臺(tái)上第一個(gè)全面支持最新Web服務(wù)的快速開(kāi)發(fā)工具。無(wú)論是企業(yè)級(jí)用戶(hù)，還是個(gè)人開(kāi)發(fā)者，都能夠利用Delphi 7.0輕松、快捷地構(gòu)建新一代電子商務(wù)應(yīng)用。Delphi 7.0 是惟一支持所有新出現(xiàn)的工業(yè)標(biāo)準(zhǔn)的RAD環(huán)境，包括XML（擴(kuò)展標(biāo)記語(yǔ)言）/XSL（可擴(kuò)展樣式語(yǔ)言），SOAP（簡(jiǎn)單對(duì)象存取協(xié)議）和WSDL（Web服務(wù)器描述語(yǔ)言）等。</p><p>　　Delphi 7.0 是可視化的快速應(yīng)用程序開(kāi)發(fā)語(yǔ)言，它

14、提供了可視化的集成開(kāi)發(fā)環(huán)境，這一環(huán)境為應(yīng)用程序設(shè)計(jì)人員提供了一系列靈活而先進(jìn)的工具，可以廣泛地用于種類(lèi)應(yīng)用程序設(shè)計(jì)。在Delphi 7.0 的集成開(kāi)發(fā)環(huán)境中，用戶(hù)可以設(shè)計(jì)程序代碼、運(yùn)行程序、進(jìn)行程序錯(cuò)誤的調(diào)試等，可視化的開(kāi)發(fā)方法降低了應(yīng)用程序開(kāi)發(fā)的難度。Delphi 7.0的基礎(chǔ)編程語(yǔ)言是具有面向?qū)ο筇匦缘腜ascal語(yǔ)言，即Object Pascal 。Object Pascal具有代碼穩(wěn)定、可讀性好、編譯速度快等優(yōu)點(diǎn)，并將面向?qū)ο蟮?/p>

15、概念移使用Delph 7.0 ，我們幾乎可以作任何事情，還可以撰寫(xiě)種各種類(lèi)型的應(yīng)用程序，動(dòng)態(tài)鏈接庫(kù)（DLL）、CON、或CORBA對(duì)象，CGI/ISAPI程序，Microsoft Back Office應(yīng)用程序。程序的規(guī)模小到簡(jiǎn)單的個(gè)人數(shù)據(jù)庫(kù)應(yīng)用，大到復(fù)雜的企業(yè)的多層次分布式系統(tǒng)，都可以使用Delphi進(jìn)行開(kāi)發(fā)，其友好的集成開(kāi)發(fā)界面，可視化的雙向開(kāi)發(fā)模式，良好的數(shù)據(jù)庫(kù)應(yīng)用支持高效的程序開(kāi)發(fā)和程序運(yùn)行，備受廣大程序開(kāi)發(fā)人員的好評(píng)。尤其是D

16、elphi7.0對(duì)數(shù)據(jù)庫(kù)應(yīng)用的強(qiáng)大支持，大大提高了數(shù)據(jù)庫(kù)應(yīng)用軟件</p><p>　　第2章 總體設(shè)計(jì)分析</p><p>　　此軟件的開(kāi)發(fā)將根據(jù)用戶(hù)的需求，按照用戶(hù)的意圖以及應(yīng)用目標(biāo)和范圍進(jìn)行設(shè)計(jì)。從權(quán)限角度考慮，在登陸窗體中，我們就必須設(shè)置系統(tǒng)管理員，來(lái)賓用戶(hù)，一般用戶(hù)等選項(xiàng)，并對(duì)系統(tǒng)管理員選項(xiàng)要設(shè)置口令密碼，才能登陸。框架上來(lái)講，一個(gè)系統(tǒng)要對(duì)圖書(shū)進(jìn)行管理，就必須要有圖書(shū)類(lèi)別，名稱(chēng)，編

17、號(hào)等各項(xiàng)目進(jìn)行統(tǒng)計(jì)，這樣新書(shū)上架，圖書(shū)的借閱歸還的狀態(tài)，我們都能清除的了解到。從讀者角度來(lái)考慮，我們必須能添加新的讀者，并對(duì)讀者的具體情況，進(jìn)行管理。解決了這些問(wèn)題這就給我們以后模塊的設(shè)計(jì)提供了思路。</p><p><b>　　2.1解決方案</b></p><p>　　通過(guò)對(duì)圖書(shū)館工作流程的研究和詳細(xì)地詢(xún)問(wèn)有關(guān)人員，對(duì)圖書(shū)館的各個(gè)方面的工作流程有了具體的了解，經(jīng)過(guò)

18、和圖書(shū)館的相關(guān)人員協(xié)商后，最終確定在圖書(shū)管理系統(tǒng)中要具有以下幾方面的內(nèi)容：</p><p>　　1.具有信息錄入功能</p><p>　　※圖書(shū)庫(kù)的錄入（入庫(kù)功能）包括的內(nèi)容是圖書(shū)編號(hào)，分類(lèi)號(hào)，種類(lèi)號(hào)，圖書(shū)名稱(chēng)，圖書(shū)作者，出版社，單價(jià)，開(kāi)本，進(jìn)庫(kù)日期。</p><p>　　※ 讀者庫(kù)的錄入包括的內(nèi)容是借書(shū)證號(hào)，姓名，性別，單位，辦證日期，讀者類(lèi)型。</p>

19、;<p>　　2.具有圖書(shū)流通功能</p><p><b>　　※ 讀者借閱圖書(shū)。</b></p><p>　　※ 讀者能夠歸還讀書(shū)，如果圖書(shū)超期，提示超期的天數(shù)和應(yīng)罰款金額。</p><p>　　3.具有信息的存儲(chǔ)功能</p><p>　　對(duì)系統(tǒng)的所有操作功能能夠存儲(chǔ)。也就是系統(tǒng)可以存諸圖書(shū)信息，讀者信息

20、，借書(shū)、還書(shū)信息等。</p><p><b>　　4.具有瀏覽功能</b></p><p>　　※能夠濟(jì)覽圖書(shū)的詳細(xì)信息。</p><p>　　※能夠?yàn)g覽讀者的詳細(xì)信息。</p><p>　　※能夠?yàn)g覽圖書(shū)的清單，以及圖書(shū)流通情況。</p><p><b>　　5.具有查詢(xún)功能</

21、b></p><p>　　※能夠按照讀者的借書(shū)證號(hào)查詢(xún)讀者的相關(guān)信息。</p><p>　　※能夠按照讀者的借書(shū)證號(hào)查詢(xún)讀者的借況情況。</p><p>　　※能夠按照?qǐng)D書(shū)的關(guān)鍵字（圖書(shū)編號(hào)，書(shū)名，作者等）查詢(xún)相關(guān)信息。</p><p><b>　　6.具有特殊功能</b></p><p>

22、　　※進(jìn)入系統(tǒng)時(shí)要求提供操作者姓名和密碼。</p><p>　　※可以設(shè)置讀者類(lèi)型的借閱期限和借閱冊(cè)數(shù)。</p><p><b>　　2.2業(yè)務(wù)流程分析</b></p><p><b>　　圖1 業(yè)務(wù)流程圖</b></p><p>　　2.3數(shù)據(jù)流程圖分析</p><p>

23、　　數(shù)據(jù)流程圖（Data Flow DFD）是描述實(shí)際業(yè)務(wù)管理系統(tǒng)工作流程的一種圖形表示法。它描繪系統(tǒng)的邏輯模型圖，其中沒(méi)有任何具體的物理元素，只是描繪信息在系統(tǒng)中流動(dòng)和處理的情況。因?yàn)閿?shù)據(jù)流圖是邏輯系統(tǒng)的圖形表示，即使不是專(zhuān)業(yè)的計(jì)算機(jī)技術(shù)人員也容易理解，所以是極好的通信工具。此外，設(shè)計(jì)數(shù)據(jù)流圖只需考慮系統(tǒng)必須完成的基本邏輯功能，完全不需要考慮如何具體地實(shí)現(xiàn)這些功能，所以它也是軟件設(shè)計(jì)的很好的出發(fā)點(diǎn)?！秷D書(shū)管理系統(tǒng)》主要是為了對(duì)圖書(shū)、讀

24、者基本信息等進(jìn)行計(jì)算機(jī)管理。下面就是對(duì)各個(gè)步驟的流程分析：（1）登陸窗體，選擇用戶(hù)類(lèi)型；（2）輸入密碼口令；（3）進(jìn)入系統(tǒng)；（4）實(shí)現(xiàn)各種操作；（5退出系統(tǒng)）。綜合上面的介紹，下面講總體的流程圖分析如圖2：</p><p>　　圖2 系統(tǒng)數(shù)據(jù)流程圖</p><p><b>　　2.4數(shù)據(jù)字典</b></p><p><b>　?。?

25、）數(shù)據(jù)流字典</b></p><p>　?、?數(shù)據(jù)流名稱(chēng)：新書(shū)入庫(kù)單 標(biāo)識(shí)符：TS1</p><p><b>　　數(shù)據(jù)結(jié)構(gòu)：</b></p><p><b>　　01新書(shū)入庫(kù)單</b></p><p>　　02日期（RQ）

26、 TS1(10)</p><p>　　02圖書(shū)代碼（CPDM） TS1(12)</p><p>　　02圖書(shū)名稱(chēng)（CPMC） TS1（18）</p><p>　　02出版社名稱(chēng)（CBCMC） TS1(15)</p><p>　　02單位（DW）

27、 TS1（4）</p><p>　　02規(guī)格（GG） TS1（10）</p><p>　　02入庫(kù)數(shù)量（RKSL） TS1（6）</p><p>　　排列方式：按圖書(shū)類(lèi)型，分架子排列</p><p>　　流量：最大 5000本／次</p><

28、;p><b>　　來(lái)源：圖書(shū)供應(yīng)商</b></p><p>　　去向：流通，借出給學(xué)生，老師，其它人員</p><p>　?、?數(shù)據(jù)流名稱(chēng)：圖書(shū)出庫(kù)單 標(biāo)識(shí)符：TS2</p><p><b>　　數(shù)據(jù)結(jié)構(gòu)：</b></p><p><b>　　01

29、產(chǎn)品出庫(kù)單</b></p><p>　　02日期（RQ） TS1(10)</p><p>　　02圖書(shū)代碼（CPDM） TS1(12)</p><p>　　02圖書(shū)名稱(chēng)（CPMC） TS1（18）</p><p>　　02出版社名稱(chēng)（CBCMC）

30、 TS1(15)</p><p>　　02單位（DW） TS1（4）</p><p>　　02規(guī)格（GG） TS1（10）</p><p>　　02入庫(kù)數(shù)量（RKSL） TS1（6）</p><p>　　流量：平均：2000本／次</p>

31、<p>　　去向：流通，借出給學(xué)生，老師，其它人員</p><p><b>　　2.5處理描述</b></p><p>　?、?處理名：錄入入庫(kù)圖書(shū) 標(biāo)識(shí)符：TS1</p><p><b>　　輸入：數(shù)據(jù)流A1</b></p><p><b>　　輸出：數(shù)據(jù)流 A2&

32、lt;/b></p><p><b>　　處理定義：</b></p><p>　　當(dāng)輸入的圖書(shū)編號(hào)不為空且不為非法字符，日期代碼都正確，并且新的圖書(shū)實(shí)物入庫(kù)后，立即將這張入庫(kù)單上的數(shù)據(jù)登入數(shù)據(jù)庫(kù)，并記入賬本。</p><p>　　激發(fā)條件：圖書(shū)入庫(kù)發(fā)生時(shí) </p><p>　?、?處理名：登記借出圖書(shū) 標(biāo)

33、識(shí)符：TS2</p><p>　　輸入：輸入圖書(shū)的條碼編號(hào)</p><p>　　輸出：掃描記錄圖書(shū)的各種信息，并登記記錄</p><p><b>　　處理定義：</b></p><p>　　當(dāng)某人借書(shū)，且圖書(shū)的是已經(jīng)存在在圖書(shū)管的，并做了入庫(kù)登記的，借出日期與當(dāng)日日期相符。把圖書(shū)的相關(guān)信息登記處理</p>

34、<p>　　激發(fā)條件：每日借出處理</p><p><b>　　2.6系統(tǒng)功能結(jié)構(gòu)</b></p><p>　　概念設(shè)計(jì)階段主要任務(wù)和目標(biāo)是根據(jù)需求分析的結(jié)果，包括一般聯(lián)系實(shí)體，畫(huà)出對(duì)應(yīng)的結(jié)構(gòu)圖。對(duì)于復(fù)雜的系統(tǒng)，通常首先要對(duì)它的各功能模進(jìn)行分析，模塊化是指解決一個(gè)復(fù)雜問(wèn)題時(shí)自項(xiàng)向下逐層把軟件系統(tǒng)劃分成若干個(gè)模塊的過(guò)程。每個(gè)模塊完成一個(gè)特定的功能，所有的模塊

35、按某種方法組織起來(lái)，成為一個(gè)整體，完成整個(gè)系統(tǒng)所要求的功能。本系統(tǒng)的主界面包括讀者管理，圖書(shū)維護(hù)，圖書(shū)流通，系統(tǒng)設(shè)置，幫助，以及狀態(tài)欄等六大部分。</p><p>　　結(jié)合上面的系統(tǒng)功能模塊分析，下面將本系統(tǒng)的各大功能分別用圖的結(jié)構(gòu)形式分析如下設(shè)計(jì)新系統(tǒng)功能結(jié)構(gòu)如圖3所示。</p><p>　　圖3 系統(tǒng)功能結(jié)構(gòu)圖</p><p><b>　　2.7數(shù)據(jù)庫(kù)

36、的設(shè)計(jì)</b></p><p>　　利用delphi 7.0附帶databasedesktop 工具，各種數(shù)據(jù)信息，都以表的形式保存。在上面的實(shí)體以及實(shí)體之間關(guān)系的基礎(chǔ)上，形成數(shù)據(jù)庫(kù)中的表格以及各個(gè)表格之間的關(guān)系。圖書(shū)管理信息系統(tǒng)數(shù)據(jù)庫(kù)中各個(gè)表格的設(shè)計(jì)結(jié)果如下面的幾個(gè)表格所示，每個(gè)表格表示在數(shù)據(jù)庫(kù)中的一個(gè)表。</p><p><b>　　1.讀者庫(kù)</b>

37、</p><p>　　作用：存放讀者的基本信息表，如表1所示</p><p><b>　　表1 讀者信息表</b></p><p><b>　　2.讀者類(lèi)型庫(kù)</b></p><p>　　作用：存放讀者類(lèi)型及相關(guān)信息，如表2所示。</p><p>　　表2 讀者類(lèi)型信息表

38、</p><p><b>　　借閱記錄</b></p><p>　　作用：存放所有的借書(shū)信息，如表3所示。</p><p><b>　　表3 借閱記錄表</b></p><p><b>　　圖書(shū)庫(kù)</b></p><p>　　作用：存放圖書(shū)的基本信息，

39、如表4所示。</p><p><b>　　表4 圖書(shū)信息表</b></p><p><b>　　5.圖書(shū)類(lèi)型</b></p><p>　　作用：存放圖書(shū)的類(lèi)型信息，如表5所示。</p><p>　　表5 圖書(shū)類(lèi)型信息表</p><p><b>　　用戶(hù)庫(kù)<

40、/b></p><p>　　作用：存放系統(tǒng)操作員信息，如表6所示。</p><p><b>　　表6 用戶(hù)信息表</b></p><p>　　第3章 圖書(shū)管理系統(tǒng)詳細(xì)設(shè)計(jì)</p><p><b>　　3.1主窗體的設(shè)計(jì)</b></p><p>　　窗體的制作MDI窗體

41、，一般采用系統(tǒng)自動(dòng)生成的方法。這種方法簡(jiǎn)單但是產(chǎn)生很多用不到的信息。所以在此采用非自動(dòng)生成的方法。在delphi7中，新建一個(gè)Application菜單。這樣系統(tǒng)就有了一個(gè)普通窗體。通過(guò)修改窗體的”FormStyle”屬性為”fsMDIForm”,這樣就可以把這個(gè)窗體改為MDI父窗體了。</p><p>　　在這個(gè)系統(tǒng)中，進(jìn)入系統(tǒng)后顯示的是一個(gè)主窗體，主窗體的背景圖片是一副圖片，同時(shí)在主窗體的任務(wù)欄中顯示當(dāng)前的操

42、作者，用戶(hù)角色，當(dāng)前日期和當(dāng)前時(shí)間，并且日期和時(shí)間會(huì)隨著系統(tǒng)時(shí)間的變化而變化。未了操作上的方便，需要在主窗體中增加工具欄，在這里要實(shí)現(xiàn)像辦公軟件中類(lèi)似的工具欄，為了上述目的，在主窗體中增加了一個(gè)Timage組件和一個(gè)TcoolBar組件，4個(gè)Ttoolbar組件，和8個(gè)Ttoolbutton組件，一個(gè)Ttimer組件和一個(gè)TStatusbar組件。系統(tǒng)主界面如圖4：</p><p><b>　　圖4

43、主窗體圖</b></p><p>　　事件分析及主要代碼設(shè)置完成各個(gè)組件的屬性后，就可以測(cè)試運(yùn)行程序了。運(yùn)行程序時(shí)，發(fā)現(xiàn)各個(gè)菜單沒(méi)有實(shí)現(xiàn)任何功能，這是因?yàn)闆](méi)有給組件編寫(xiě)事件代碼。</p><p>　　1.實(shí)現(xiàn)的功能是在任務(wù)欄中，顯示當(dāng)前日期和時(shí)間。雙擊界面中的TTimer組件，出現(xiàn)的代碼窗體中輸入下面代碼：</p><p>　　statusbar1.Pa

44、nels[3].Text:=datetostr(date);</p><p>　　statusbar1.Panels[4].Text:=timetostr(time);</p><p>　　2.背景圖片的顯示和隱藏</p><p>　　N_xtsz_back.Checked:=not N_xtsz_back.Checked;</p><p>

45、　　Image1.Visible:=N_xtsz_back.Checked;</p><p><b>　　4.系統(tǒng)退出代碼</b></p><p>　　Application.terminate;//結(jié)束應(yīng)用程序</p><p>　　3.2 登陸窗體設(shè)計(jì)</p><p>　　為了防止其他人員故意或者非故意修改信息。要求系

46、統(tǒng)有一個(gè)用戶(hù)登陸界面，這也是系統(tǒng)安全性的一個(gè)方面。在該界面中，用戶(hù)的名稱(chēng)在一個(gè)下拉列表框中，用戶(hù)主要選擇操作員名稱(chēng)就可以了，然后再輸入密碼，當(dāng)密碼輸入正確時(shí)，單擊確定按鈕即可進(jìn)入系統(tǒng)否則不讓登陸，密碼三次輸入不正確，系統(tǒng)自動(dòng)退出。界面如圖4：</p><p><b>　　圖4 登陸界面圖</b></p><p><b>　　主要代碼分析如下：</b&g

47、t;</p><p>　　if not query1.Locate('用戶(hù)名;密碼',Vararrayof([combobox_name.Text,</p><p>　　password.Text]),[]) then</p><p><b>　　begin</b></p><p>　　Showmessa

48、ge('密碼不正確，請(qǐng)重新輸入！');</p><p>　　Li_Login:=Li_Login+1;</p><p>　　password.SetFocus;</p><p>　　password.SelectAll;</p><p>　　//有3次輸入機(jī)會(huì)，3次不正確系統(tǒng)退出//</p><p>　

49、　if Li_Login >=3 then</p><p><b>　　begin</b></p><p>　　Showmessage('你是非法用戶(hù)，系統(tǒng)退出');</p><p><b>　　Close;</b></p><p>　　Application.Terminat

50、e;</p><p><b>　　end;</b></p><p>　　3.3添加記錄窗體設(shè)計(jì)</p><p>　　3.3.1讀者數(shù)據(jù)增加</p><p>　　該窗體的作用就是增加讀者信息.讀者信息包括了借書(shū)證號(hào)、姓名、性別單位、辦證日期、讀者類(lèi)型。界面如圖5：</p><p>　　圖5：讀者信息

51、增加圖</p><p><b>　　主要程序代碼如下：</b></p><p>　　procedure TForm_dz_input.BitBtn1Click(Sender: TObject);</p><p><b>　　var</b></p><p>　　S_sql:string;</p&

52、gt;<p><b>　　begin</b></p><p>　　if dbedit1.Text='' then</p><p><b>　　begin</b></p><p>　　showmessage('借書(shū)證號(hào)不能為空');</p><p><

53、;b>　　exit;</b></p><p><b>　　end ;</b></p><p>　　if(length(dbedit1.Text)<>8)then</p><p><b>　　begin</b></p><p>　　showmessage('你輸入

54、的借書(shū)證號(hào)格式不對(duì)');</p><p><b>　　exit;</b></p><p><b>　　end;</b></p><p><b>　　try</b></p><p>　　strtoint(dbedit1.Text);</p><p>

55、;<b>　　except</b></p><p>　　showmessage('借書(shū)證號(hào)只能輸入數(shù)字。');</p><p><b>　　exit;</b></p><p><b>　　end ;</b></p><p>　　query3.Close;<

56、/p><p>　　query3.SQL.Clear;</p><p>　　S_sql:='select *from 讀者庫(kù) where 借書(shū)證號(hào)='''+dbedit1.Text+'''';</p><p>　　query3.SQL.Add(S_sql);</p><p>　　que

57、ry3.Open;</p><p>　　if query3.RecordCount<>0 then</p><p><b>　　begin</b></p><p>　　showmessage('該借書(shū)證號(hào)已經(jīng)存在。');</p><p><b>　　exit;</b>&l

58、t;/p><p><b>　　end ;</b></p><p>　　if dbedit2.Text='' then</p><p><b>　　begin</b></p><p>　　showmessage('讀者姓名不能為空。');</p><p&

59、gt;<b>　　exit;</b></p><p><b>　　end;</b></p><p>　　if dbedit4.Text='' then</p><p><b>　　begin</b></p><p>　　showmessage('讀者單位

60、不能為空。');</p><p><b>　　exit;</b></p><p><b>　　end;</b></p><p>　　query1.ApplyUpdates;</p><p>　　showmessage('添加讀者'''+dbedit2.Text

61、+'''成功');</p><p>　　query1.Append;</p><p><b>　　end;</b></p><p><b>　　end.</b></p><p>　　3.3.2讀者類(lèi)型管理</p><p>　　該窗體主要是編輻讀

62、者類(lèi)型的。讀者類(lèi)型信息包括了類(lèi)型號(hào)（主鍵），類(lèi)型名稱(chēng)（在讀者增加窗體中顯示）、借閱期限和借閱的冊(cè)數(shù)。要求可以增加，刪除，修改讀者類(lèi)型就可以了。界面如圖6：</p><p>　　圖6：讀者類(lèi)型管理圖</p><p><b>　　主要程序代碼如下：</b></p><p>　　procedure Tform_edit_dzlx.BitBtn1Cli

63、ck(Sender: TObject);</p><p><b>　　begin</b></p><p>　　table1.Append;</p><p><b>　　end;</b></p><p>　　procedure Tform_edit_dzlx.BitBtn2Click(Sender:

64、TObject);</p><p><b>　　begin</b></p><p>　　table1.Delete;</p><p><b>　　end;</b></p><p>　　procedure Tform_edit_dzlx.BitBtn3Click(Sender: TObject);&l

65、t;/p><p><b>　　begin</b></p><p>　　table1.Append;</p><p><b>　　end;</b></p><p>　　procedure Tform_edit_dzlx.BitBtn4Click(Sender: TObject);</p>&

66、lt;p><b>　　begin</b></p><p><b>　　Close;</b></p><p><b>　　end;</b></p><p>　　procedure Tform_edit_dzlx.FormCreate(Sender: TObject);</p><

67、;p><b>　　begin</b></p><p>　　table1.CachedUpdates:=true;</p><p><b>　　end;</b></p><p><b>　　end.</b></p><p>　　3.3.3 圖書(shū)信息增加</p>

68、<p>　　建窗體的作用就是增加圖書(shū)信息民。圖書(shū)信息包括了圖書(shū)編號(hào)、圖書(shū)類(lèi)型、圖書(shū)名稱(chēng)、圖書(shū)作者、出版社、單價(jià)、開(kāi)本、和進(jìn)庫(kù)日期等信息。圖書(shū)類(lèi)型是通過(guò)類(lèi)型窗估編輯得到的。根據(jù)需要可以在圖書(shū)類(lèi)型編輯窗體中增加和刪除圖書(shū)類(lèi)型。界面如圖7：</p><p>　　圖7：圖書(shū)信息增加圖</p><p><b>　　主要程序代碼如下：</b></p>&

69、lt;p>　　procedure Tform_input_book.BitBtn1Click(Sender: TObject);</p><p><b>　　var</b></p><p>　　S_sql:string;</p><p><b>　　begin</b></p><p>　　if

70、 dbedit1.Text='' then</p><p><b>　　begin</b></p><p>　　showmessage('圖書(shū)編號(hào)不能為空');</p><p><b>　　exit;</b></p><p><b>　　end;</b

71、></p><p>　　if (length(dbedit1.Text)<>13) then</p><p><b>　　begin</b></p><p>　　showmessage('你輸入的圖書(shū)編號(hào)格式不對(duì)');</p><p><b>　　exit;</b>

72、</p><p><b>　　end;</b></p><p><b>　　Try</b></p><p>　　StrToInt64(dbedit1.Text);</p><p><b>　　except</b></p><p>　　showmessag

73、e('休想蒙混過(guò)關(guān)！圖書(shū)編號(hào)只能輸入數(shù)字。');</p><p><b>　　exit;</b></p><p><b>　　end;</b></p><p>　　Query1.Close;</p><p>　　query1.SQL.Clear;</p><p&g

74、t;　　S_sql:='select *from 圖書(shū)信息表 where 圖書(shū)編號(hào)='+""+dbedit1.Text+"";</p><p>　　query1.SQL.Add(S_sql);</p><p>　　Query1.Open;</p><p>　　if query1.RecordCount<&

75、gt;0 then</p><p><b>　　begin</b></p><p>　　showmessage('該圖書(shū)編號(hào)已經(jīng)存在。');</p><p><b>　　exit;</b></p><p><b>　　end;</b></p>&l

76、t;p>　　if dbedit3.Text='' then</p><p><b>　　begin</b></p><p>　　showmessage('圖書(shū)名不能為空。');</p><p><b>　　exit;</b></p><p><b>　

77、　end;</b></p><p>　　if dbedit4.Text='' then</p><p><b>　　begin</b></p><p>　　showmessage('圖書(shū)作者不能為空。');</p><p><b>　　exit;</b>&

78、lt;/p><p><b>　　end;</b></p><p>　　if dbedit5.Text='' then</p><p><b>　　begin</b></p><p>　　showmessage('圖書(shū)出版社不能為空。');</p><p

79、><b>　　exit;</b></p><p><b>　　end;</b></p><p>　　if dbedit6.Text='' then</p><p><b>　　begin</b></p><p>　　showmessage('單價(jià)不

80、能為空。');</p><p><b>　　exit;</b></p><p><b>　　end;</b></p><p>　　if dbedit7.Text='' then</p><p><b>　　begin</b></p><

81、;p>　　showmessage('開(kāi)本不能為空。');</p><p><b>　　exit;</b></p><p><b>　　end;</b></p><p>　　table1.ApplyUpdates;</p><p>　　showmessage('添加圖書(shū)&

82、#39;+''''+dbedit3.text+'''''成功');</p><p>　　table1.Append;</p><p><b>　　end;</b></p><p><b>　　end.</b></p><p&

83、gt;　　3.3.4 圖書(shū)類(lèi)型管理</p><p>　　該窗體用于設(shè)置圖書(shū)的種類(lèi)，包括圖類(lèi)型號(hào)（主鍵）和圖書(shū)類(lèi)型的名稱(chēng)（顯示用）。對(duì)于功的要求比較簡(jiǎn)單，只要可以增加、刪除、修改即可。界面如圖8：</p><p>　　圖8：圖書(shū)類(lèi)型管理圖</p><p><b>　　主要程序代碼如下：</b></p><p>　　proc

84、edure Tform_edit_booltype.BitBtn1Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　table1.Append;</p><p><b>　　end;</b></p><p>　　procedure T

85、form_edit_booltype.FormCreate(Sender: TObject);</p><p><b>　　begin</b></p><p>　　table1.CachedUpdates:=true;</p><p><b>　　end;</b></p><p>　　procedu

86、re Tform_edit_booltype.BitBtn2Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　table1.Delete;</p><p><b>　　end;</b></p><p>　　procedure Tfor

87、m_edit_booltype.BitBtn3Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　table1.AApplyUpdates;</p><p><b>　　end;</b></p><p>　　procedure Tfor

88、m_edit_booltype.BitBtn4Click(Sender: TObject);</p><p><b>　　begin</b></p><p><b>　　close;</b></p><p><b>　　end;</b></p><p><b>　　e

89、nd.</b></p><p>　　3.3.5圖書(shū)借閱歸還窗體</p><p>　　該窗體的作用是進(jìn)行圖書(shū)的借閱和歸還操作。在圖書(shū)館中每本書(shū)都有一個(gè)獨(dú)立的編號(hào)，這個(gè)編號(hào)是不會(huì)重復(fù)的。當(dāng)輸入編號(hào)后，系統(tǒng)會(huì)自動(dòng)判斷圖的狀態(tài)，是在書(shū)庫(kù)還是已經(jīng)外借。界面如圖9：</p><p>　　圖9：圖書(shū)借閱歸還圖</p><p><b>

90、　　主要程序代碼如下：</b></p><p>　　procedure Tform_pass_book.FormCreate(Sender: TObject);</p><p><b>　　begin</b></p><p>　　edit1.MaxLength:=13;</p><p>　　edit2.Max

91、Length:=8;</p><p>　　edit2.Enabled:=false;</p><p>　　bitbtn1.Enabled:=false;</p><p>　　bitbtn2.Enabled:=false;</p><p><b>　　end;</b></p><p>　　proce

92、dure Tform_pass_book.Edit1Change(Sender: TObject);</p><p><b>　　var</b></p><p>　　S_sql:string;</p><p><b>　　begin</b></p><p>　　if length(edit1.Tex

93、t)=13 then</p><p><b>　　begin</b></p><p>　　query1.Close;</p><p>　　query1.SQL.Clear;</p><p>　　S_sql:='select 圖書(shū)信息表.圖書(shū)名稱(chēng),圖書(shū)類(lèi)型信息表.類(lèi)型名稱(chēng),圖書(shū)信息表.圖書(shū)編號(hào),圖書(shū)信息表.圖書(shū)作者

94、,圖書(shū)信息表.出版社'+</p><p>　　' from 圖書(shū)信息表 inner join 圖書(shū)類(lèi)型信息表 on (圖書(shū)信息表.類(lèi)型號(hào)=圖書(shū)類(lèi)型信息表.類(lèi)型號(hào))'+</p><p>　　' where 圖書(shū)編號(hào)='+''''+edit1.Text+ "";</p><p&g

95、t;　　query1.SQL.Add(S_sql);</p><p>　　query1.Open;</p><p>　　if query1.RecordCount=1 then</p><p><b>　　begin</b></p><p>　　query3.Close;</p><p>　　qu

96、ery3.SQL.Clear;</p><p>　　S_sql:='select * from 借閱記錄信息表 where 圖書(shū)編號(hào)='+''''+edit1.Text+"";</p><p>　　query3.SQL.Add(S_sql);</p><p>　　query3.Open;</p

97、><p>　　if query3.RecordCount=1 then</p><p><b>　　begin</b></p><p>　　query2.Close;</p><p>　　query2.SQL.Clear;</p><p>　　S_sql:= 'select 讀者庫(kù).姓名,讀者

98、類(lèi)型信息表.類(lèi)型名稱(chēng), 讀者庫(kù).性別,讀者庫(kù).單位,讀者類(lèi)型信息表.借期'+</p><p>　　' from "讀者庫(kù).DB" 讀者庫(kù) inner join "讀者類(lèi)型信息表.DB" 讀者類(lèi)型信息表 on (讀者庫(kù).類(lèi)型=讀者類(lèi)型信息表.類(lèi)型號(hào))'+</p><p>　　' where 借書(shū)證號(hào)='+'

99、;'''+query3.fieldbyname('借書(shū)證號(hào)').AsString+"";</p><p>　　query2.SQL.Add(S_sql);</p><p>　　query2.Open;</p><p>　　edit2.Text:=query3.fieldbyname('借書(shū)證號(hào)

100、9;).AsStringg;</p><p>　　bitbtn1.Enabled:=false;</p><p>　　bitbtn2.Enabled:=true;</p><p><b>　　end</b></p><p><b>　　else</b></p><p><

101、;b>　　begin</b></p><p>　　edit2.Enabled:=true;</p><p>　　edit2.SetFocus;</p><p><b>　　end</b></p><p><b>　　end</b></p><p><b

102、>　　end</b></p><p><b>　　else</b></p><p><b>　　begin</b></p><p>　　edit2.Enabled:=false;</p><p>　　bitbtn1.Enabled:=false;</p><p&

103、gt;　　bitbtn2.Enabled:=false;</p><p>　　dbedit1.Text:='';</p><p>　　dbedit2.Text:='';</p><p>　　dbedit3.Text:'';</p><p>　　dbedit4.Text:='';&

104、lt;/p><p>　　dbedit5.Text:='';</p><p><b>　　end;</b></p><p>　　if length(edit1.Text)<13 then</p><p><b>　　begin</b></p><p>　　

105、edit2.Text:='';</p><p>　　dbedit6.Text:='';</p><p>　　dbedit7.Text:='';</p><p>　　dbedit8.Text:='';</p><p>　　dbedit9.Text:='';</

106、p><p><b>　　end;</b></p><p><b>　　end;</b></p><p>　　procedure Tform_pass_book.BitBtn1Click(Sender: TObject);</p><p><b>　　var</b></p>

107、;<p>　　S_sql:string;</p><p>　　D_gh:Tdatetime;</p><p><b>　　begin</b></p><p>　　if length(edit1.Text)<>13 then</p><p>　　showmessage('你輸入的圖書(shū)證號(hào)不

108、對(duì)！');</p><p>　　dateseparator:='/';</p><p>　　shortdateformat:='m/d/yyyy';</p><p>　　query3.Close;</p><p>　　query3.SQL.Clear;</p><p>　　s_s

109、ql:=' select * from 借閱記錄信息表 where 借書(shū)證號(hào)='''+Edit2.text+'''and 歸還日期<'''+datetostr(date)+"";</p><p>　　query3.SQL.Add(s_sql);</p><p>　　query3.Ope

110、n;</p><p>　　if query3.RecordCount<>0 then</p><p>　　showmessage('該用戶(hù)有超期未還的書(shū)籍，不能節(jié)約其他書(shū)籍。')</p><p><b>　　else</b></p><p><b>　　begin</b>

111、</p><p>　　query4.Close;</p><p>　　query4.SQL.Clear;</p><p>　　s_sql:='select 讀者類(lèi)型信息表.借期 from 讀者庫(kù) inner join "讀者類(lèi)型信息表.DB" 讀者類(lèi)型信息表 on (讀者庫(kù).類(lèi)型=讀者類(lèi)型信息表.類(lèi)型號(hào)) where 借書(shū)證號(hào)='

112、+''''+edit2.text+"";</p><p>　　query4.SQL.Add(s_sql);</p><p>　　query4.Open;</p><p>　　D_gh:=date+query4.fieldbyname('借期').asinteger;</p><p

113、>　　query3.Close;</p><p>　　query3.SQL.Clear;</p><p>　　S_sql:='insert into 借閱記錄信息表 Values('''+edit2.text+''','''+edit1.text+''',''

114、9;+datetostr(date)+''','''+datetostr(d_gh)+''',0)';</p><p>　　query3.SQL.Add(S_sql);</p><p>　　query3.ExecSQL;</p><p>　　bitbtn1.Enabled:=false;

115、</p><p>　　edit1.Text:='';</p><p>　　showmessage('借書(shū)成功');</p><p><b>　　end;</b></p><p><b>　　end;</b></p><p>　　procedur

116、e Tform_pass_book.BitBtn3Click(Sender: TObject);</p><p><b>　　begin</b></p><p><b>　　close;</b></p><p><b>　　end;</b></p><p>　　procedur

117、e Tform_pass_book.BitBtn2Click(Sender: TObject);</p><p><b>　　var</b></p><p>　　s_tsh,S_sql:string;</p><p>　　I_days:Double;</p><p><b>　　begin</b>&

118、lt;/p><p>　　if query3.FieldByName('歸還日期').AsDateTime>Date then</p><p><b>　　begin</b></p><p>　　query4.Close;</p><p>　　query4.SQL.Clear;</p>&l

119、t;p>　　S_sql:='delete from 借閱記錄信息表 where 圖書(shū)編號(hào)='+''''+edit1.Text+"";</p><p>　　query4.SQL.Add(S_sql);</p><p>　　query4.ExecSQL;</p><p>　　bitbtn2.Ena

120、bled:=false;</p><p>　　edit1.Text:='';</p><p>　　showmessage('歸還成功');</p><p><b>　　end</b></p><p><b>　　else</b></p><p>

121、;<b>　　begin</b></p><p>　　I_days:=date - query3.fieldbyname('歸還日期').AsDateTime;</p><p>　　S_tsh:='該書(shū)超期'+floattostr(I_days)+'天，確定歸還該書(shū)？';</p><p>　　if

122、 messagebox(0,pchar(s_tsh),'圖書(shū)管理系統(tǒng)',MB_OKCANCEL+MB_ICONQUESTION+MB_DEFBUTTON2)=IDok then</p><p><b>　　begin</b></p><p>　　query4.Close;</p><p>　　query4.SQL.Clear;&

123、lt;/p><p>　　S_sql:='delete from 借閱記錄信息表 where 圖書(shū)編號(hào)='+''''+edit1.Text+"";</p><p>　　query4.SQL.Add(s_sql);</p><p>　　query4.ExecSQL;</p><p>

124、　　bitbtn2.Enabled:=false;</p><p><b>　　end</b></p><p><b>　　end</b></p><p><b>　　end;</b></p><p>　　procedure Tform_pass_book.Edit2Chang

125、e(Sender: TObject);</p><p><b>　　var</b></p><p>　　s_sql:string;</p><p><b>　　begin</b></p><p>　　if length(edit2.Text)=8 then</p><p>&

126、lt;b>　　begin</b></p><p>　　query2.Close;</p><p>　　query2.SQL.Clear;</p><p>　　s_sql:='select 讀者庫(kù).姓名, 讀者類(lèi)型信息表.類(lèi)型名稱(chēng),讀者庫(kù).性別,讀者庫(kù).單位,讀者類(lèi)型信息表.借期'+</p><p>　　

127、9; from "讀者庫(kù).DB" 讀者庫(kù) inner join "讀者類(lèi)型信息表.DB" 讀者類(lèi)型信息表 on (讀者庫(kù).類(lèi)型=讀者類(lèi)型信息表.類(lèi)型號(hào))'+</p><p>　　' where 借書(shū)證號(hào)='+''''+edit2.Text+"";</p><p>　　quer

128、y2.SQL.Add(s_sql);</p><p>　　query2.Open;</p><p>　　if query2.RecordCount<>0 then</p><p>　　bitbtn1.Enabled:=true</p><p><b>　　else</b></p><p&g

129、t;　　showmessage('你輸入的借書(shū)證號(hào)有誤！');</p><p><b>　　end</b></p><p><b>　　else</b></p><p><b>　　begin</b></p><p>　　dbedit6.Text:='&

130、#39;;</p><p>　　dbedit7.Text:='';</p><p>　　dbedit8.Text:='';</p><p>　　dbedit9.Text:='';</p><p>　　bitbtn1.Enabled:=false;</p><p><

131、b>　　end;</b></p><p><b>　　end;</b></p><p><b>　　end.</b></p><p>　　3.4數(shù)據(jù)更新窗體設(shè)計(jì)</p><p>　　3.4.1圖書(shū)數(shù)據(jù)更新</p><p>　　該窗體的作用是修改圖書(shū)信息。要修

132、改圖書(shū)首先要找到圖書(shū)，所以要完成圖書(shū)查詢(xún)操作。為了方便批量查詢(xún)圖書(shū)，設(shè)置若干個(gè)條件(圖書(shū)編號(hào)、名稱(chēng)、作者、類(lèi)型)，這幾個(gè)條件之間是獨(dú)立的，也就是說(shuō)可以設(shè)置這幾個(gè)條件中的任何一個(gè)或幾個(gè)。界面如圖11：</p><p>　　圖11：圖書(shū)數(shù)據(jù)更新圖</p><p><b>　　主要程序代碼如下：</b></p><p>　　procedure TFo

133、rm_edit_book.FormCreate(Sender: TObject);</p><p><b>　　begin</b></p><p>　　query1.CachedUpdates:=true;</p><p>　　query1.RequestLive:=true;</p><p>　　combobox1.I

134、tems.Add(' ');</p><p>　　table1.First;</p><p>　　while not table1.Eof do</p><p><b>　　begin</b></p><p>　　combobox1.Items.Add(table1.fieldbyname('類(lèi)型

135、名稱(chēng)').AsString);</p><p>　　table1.Next;</p><p><b>　　end;</b></p><p>　　dbedit8.Enabled:=false;</p><p>　　table1.CachedUpdates:=true;</p><p><

136、;b>　　end;</b></p><p>　　procedure TForm_edit_book.BitBtn1Click(Sender: TObject);</p><p><b>　　var</b></p><p>　　S_sql:string;</p><p><b>　　begin&

137、lt;/b></p><p>　　if length(edit1.Text)<>13 then</p><p>　　showmessage('你輸入的圖書(shū)編號(hào)有誤，請(qǐng)輸入13位圖書(shū)編號(hào)！');</p><p>　　query1.Close;</p><p>　　query1.SQL.Clear;</p&

138、gt;<p>　　s_sql:='select 圖書(shū)編號(hào),類(lèi)型號(hào),圖書(shū)名稱(chēng),圖書(shū)作者,出版社,單價(jià),開(kāi)本,進(jìn)庫(kù)日期 from 圖書(shū)信息表 where 1=1';</p><p>　　if not checkbox1.Checked then</p><p><b>　　begin</b></p><p>　　if