圖書信息管理畢業(yè)設(shè)計(jì)（含外文翻譯）

1、<p><b>　　1 導(dǎo)論</b></p><p>　　一直以來人們使用傳統(tǒng)的人工方式管理圖書館的日常工作，對于圖書館的借書和還書過程，想必大家都已很熟悉。在計(jì)算機(jī)尚未在圖書館廣泛使用之前，借書和還書過程主要依靠手工。一個(gè)最典型的手工處理還書過程就是：讀者將要借的書和借閱證交給工作人員，工作人員將每本書上附帶的描述書的信息的卡片和讀者的借閱證放在一個(gè)小格欄里，并在借閱證和每本書貼

2、的借閱條上填寫借閱信息。這樣借書過程就完成了。還書時(shí)，讀者將要還的書交給工作人員，工作人員根據(jù)圖書信息找到相應(yīng)的書卡和借閱證，并填好相應(yīng)的還書信息，這樣還書過程就完成了。</p><p>　　以上所描述的手工過程的不足之處顯而易見，首先處理借書、還書業(yè)務(wù)流程的效率很低，其次處理能力比較低，一段時(shí)間內(nèi)，所能服務(wù)的讀者人數(shù)是有限的。利用計(jì)算機(jī)來處理這些流程無疑會(huì)極大程度地提高效率和處理能力。我們將會(huì)看到排隊(duì)等候借書、

3、還書的隊(duì)伍不再那么長，工作人員出錯(cuò)的概率也小了，讀者可以花更多的時(shí)間在選擇書和看書上。</p><p>　　為方便對圖書館書籍、讀者資料、借還書等進(jìn)行高效的管理，特編寫該程序以提高圖書館的管理效率。使用該程序之后，工作人員可以查詢某位讀者、某種圖書的借閱情況，還可以對當(dāng)前圖書借閱情況進(jìn)行一些統(tǒng)計(jì)，給出統(tǒng)計(jì)表格，以便全面掌握圖書的流通情況。</p><p>　　本次畢業(yè)設(shè)計(jì)題目：“圖書管理系

4、統(tǒng)”主要目的是利用數(shù)據(jù)庫軟件編制一個(gè)管理軟件，用以實(shí)現(xiàn)圖書、讀者以及日常工作等多項(xiàng)管理。同時(shí)對整個(gè)系統(tǒng)的分析、設(shè)計(jì)過程給出一個(gè)完整論證。</p><p>　　圖書管理系統(tǒng)是一種基于集中統(tǒng)一規(guī)劃的數(shù)據(jù)庫數(shù)據(jù)管理新模式。在對圖書、讀者的管理，其實(shí)是對圖書、讀者數(shù)據(jù)的管理。本系統(tǒng)的建成無疑會(huì)為管理者對圖書管理系統(tǒng)提供極大的幫助。</p><p>　　本系統(tǒng)的設(shè)計(jì)主要從以下幾方面做起：系統(tǒng)業(yè)務(wù)流程

5、分析、系統(tǒng)的功能設(shè)計(jì)、系統(tǒng)的數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)、系統(tǒng)輸入/輸出設(shè)計(jì)等。作這些工作需對數(shù)據(jù)庫知識(shí)有足夠認(rèn)識(shí)，并深入的了解Delphi7.0的使用和管理系統(tǒng)的相關(guān)知識(shí)。</p><p>　　在信息時(shí)代的今天，人類需要對在政治、經(jīng)濟(jì)、軍事、文化、科研、教育等領(lǐng)域產(chǎn)生的大量信息進(jìn)行管理，并對數(shù)據(jù)進(jìn)行加工處理，數(shù)據(jù)庫技術(shù)則是信息管理與數(shù)據(jù)處理的先進(jìn)技術(shù)。隨著信息量的不斷增加，作為計(jì)算機(jī)的三大主要應(yīng)用（科學(xué)計(jì)算、過程控制和數(shù)據(jù)處

6、理）之一的數(shù)據(jù)處理，已迅速上升為計(jì)算機(jī)應(yīng)用的主要方面，數(shù)據(jù)庫技術(shù)則成為人們?nèi)粘Ｉ钪刑幚頂?shù)據(jù)不可缺少的有力工具，并且現(xiàn)代的信息管理系統(tǒng)幾乎都以數(shù)據(jù)庫技術(shù)作為核心。</p><p>　　1.1 SQL Server 關(guān)系數(shù)據(jù)庫簡介</p><p>　　SQL Server是由Microsoft開發(fā)和推廣的關(guān)系數(shù)據(jù)庫管理系統(tǒng)（DBMS）,它最初是由Microsoft、Sybase和Ashton

7、-Tate三家公司共同開發(fā)的，并于1988年推出了第一個(gè)OS/2版本。 SQL Server近年來不斷更新版本，1996年，Microsoft 推出了SQL Server 6.5版本；1998年，SQL Server 7.0版本和用戶見面；SQL Server 2000是Microsoft公司于2000年推出的最新版本[1]。</p><p>　　1. SQL Server 特點(diǎn)</p><p

8、>　?。?）．真正的客戶機(jī)/服務(wù)器體系結(jié)構(gòu)。</p><p>　?。?）．圖形化用戶界面，使系統(tǒng)管理和數(shù)據(jù)庫管理更加直觀、簡單。</p><p>　?。?）．豐富的編程接口工具，為用戶進(jìn)行程序設(shè)計(jì)提供了更大的選擇余地。</p><p>　?。?）．SQL Server與Windows NT完全集成，利用了NT的許多功能，如發(fā)送和接受消息，管理登錄安全性等。SQ

9、L Server也可以很好地與Microsoft BackOffice產(chǎn)品集成。</p><p>　?。?）．具有很好的伸縮性，可跨越從運(yùn)行Windows 95/98的膝上型電腦到運(yùn)行Windows 2000的大型多處理器等多種平臺(tái)使用。</p><p>　?。?）．對Web技術(shù)的支持，使用戶能夠很容易地將數(shù)據(jù)庫中的數(shù)據(jù)發(fā)布到Web頁面上。 </p><p>　?。?/p>

10、7）．SQL Server提供數(shù)據(jù)倉庫功能，這個(gè)功能只在Oracle和其他更昂貴的DBMS中才有。</p><p>　　2. SQL Server 2000與以前版本相比較又具有以下新特性 </p><p>　?。?）．支持XML(Extensive Markup Language，擴(kuò)展標(biāo)記語言)。</p><p>　?。?）．強(qiáng)大的基于Web的分析。</p&

11、gt;<p>　?。?）．支持OLE DB和多種查詢。</p><p>　?。?）．支持分布式的分區(qū)視圖。</p><p>　　3.Transact-SQL語言主要組成部分 </p><p>　　數(shù)據(jù)定義語言（DDL，Data Definition Language）</p><p>　　數(shù)據(jù)操縱語言（DML，Data Mani

12、pularion Language）</p><p>　　數(shù)據(jù)控制語言（DCL，Data Control Language）</p><p>　　系統(tǒng)存儲(chǔ)過程（System Stored Procedure）</p><p><b>　　一些附加的語言元素</b></p><p>　?。?）數(shù)據(jù)定義語言（DDL）<

13、/p><p>　　數(shù)據(jù)定義語言是指用來定義和管理數(shù)據(jù)庫以及數(shù)據(jù)庫中的各種對象的語句，這些語句包括CREATE、ALTER和DROP等語句。在SQL Server 2000中，數(shù)據(jù)庫對象包括表、視圖、觸發(fā)器、存儲(chǔ)過程、規(guī)則、缺省、用戶自定義的數(shù)據(jù)類型等。這些對象的創(chuàng)建、修改和刪除等都可以通過使用CREATE、ALTER、DROP等語句來完成。</p><p>　?。?）數(shù)據(jù)操縱語言（DML） &

14、lt;/p><p>　　數(shù)據(jù)操縱語言是指用來查詢、添加、修改和刪除數(shù)據(jù)庫中數(shù)據(jù)的語句，這些語句包括SELECT、INSERT、UPDATE、DELETE等。在默認(rèn)情況下，只有sysadmin、dbcreator、db_owner或db_datawriter等角色的成員才有權(quán)利執(zhí)行數(shù)據(jù)操縱語言。</p><p>　　幾種常用語句的用法：</p><p>　　SELECT子

15、句用于指定所選擇的要查詢的特定表中的列，它可以是星號(hào)（*）、表達(dá)式、列表、變量等。</p><p>　　INTO子句用于指定所要生成的新表的名稱。</p><p>　　FROM子句用于指定要查詢的表或者視圖，最多可以指定16個(gè)表或者視圖，用逗號(hào)相互隔開。</p><p>　　WHERE子句用來限定查詢的范圍和條件。</p><p>　　GRO

16、UP BY子句是分組查詢子句。</p><p>　　HAVING子句用于指定分組子句的條件。</p><p>　　GROUP BY子句、HAVING子句和集合函數(shù)一起可以實(shí)現(xiàn)對每個(gè)組生成一行和一個(gè)匯總值。</p><p>　　ORDER BY子句可以根據(jù)一個(gè)列或者多個(gè)列來排序查詢結(jié)果，在該子句中，既可以使用列名，也可以使用相對列號(hào)。</p><p

17、>　　ASC表示升序排列，DESC表示降序排列。</p><p>　　COMPUTE子句使用集合函數(shù)在查詢的結(jié)果集中生成匯總行。</p><p>　　COMPUTE BY子句用于增加各列匯總行。</p><p>　?。?）數(shù)據(jù)控制語言（DCL）</p><p>　　數(shù)據(jù)控制語言（DCL）是用來設(shè)置或者更改數(shù)據(jù)庫用戶或角色權(quán)限的語句，這些

18、語句包括GRANT、DENY、REVOKE等語句，在默認(rèn)狀態(tài)下，只有sysadmin、dbcreator、db_owner或db_securityadmin等角色的成員才有權(quán)利執(zhí)行數(shù)據(jù)控制語言。</p><p>　?、?GRANT語句 </p><p>　　GRANT語句是授權(quán)語句，它可以把語句權(quán)限或者對象權(quán)限授予給其他用戶和角色。</p><p>　　授予語句權(quán)限

19、的語法形式為：</p><p>　　GRANT {ALL | statement[,...n]} TO security_account [ ,...n ] </p><p>　　授予對象權(quán)限的語法形式為： </p><p>　　GRANT    { ALL [ PRIVILEGES ] | permission [ ,.

20、..n ] }    {         [ ( column [ ,...n ] ) ] ON { table | view }        | ON { table | view } [ ( column [ ,...n ] )

21、 ]        | ON { stored_procedure | extended_procedure }        | ON { user_defined_function }    } TO security_

22、account [ ,...n ] [ WITH GRANT OPTION ] [ AS { group | role } ]</p><p><b>　?、?DENY語句 </b></p><p>　　DENY語句用于拒絕給當(dāng)前數(shù)據(jù)庫內(nèi)的用戶或者角色授予權(quán)限，并防止用戶或角色通過其組或角色成員繼承權(quán)限。</p><p>　

23、　否定語句權(quán)限的語法形式為：</p><p>　　DENY { ALL | statement [ ,...n ] } TO security_account [ ,...n ] </p><p>　　否定對象權(quán)限的語法形式為： </p><p>　　DENY    { ALL [ PRIVILEGES ] | permi

24、ssion [ ,...n ] }    {       [ ( column [ ,...n ] ) ] ON { table | view }      | ON { table | view } [ ( column [ ,...n ] ) ]  

25、;    | ON { stored_procedure | extended_procedure }      | ON { user_defined_function }    } TO security_account [ ,...n ] [ CASCADE ] </p>

26、<p>　　③ REVOKE語句 </p><p>　　REVOKE語句是與GRANT語句相反的語句，它能夠?qū)⒁郧霸诋?dāng)前數(shù)據(jù)庫內(nèi)的用戶或者角色上授予或拒絕的權(quán)限刪除，但是該語句并不影響用戶或者角色從其他角色中作為成員繼承過來的權(quán)限。</p><p>　　收回語句權(quán)限的語法形式為：</p><p>　　REVOKE { ALL | statement [

27、,...n ] } FROM security_account [ ,...n ] </p><p>　　收回對象權(quán)限的語法形式為： </p><p>　　REVOKE [ GRANT OPTION FOR ]    { ALL [ PRIVILEGES ] | permission [ ,...n ] }   &

28、#160;{         [ ( column [ ,...n ] ) ] ON { table | view }        | ON { table | view } [ ( column [ ,...n ] ) ]    

29、    | ON { stored_procedure | extended_procedure }        | ON { user_defined_function }     } { TO | FROM }    

30、 security_account [ ,...n ] [ CASCADE ] [ AS { group | role } ]   </p><p><b>　?。?）系統(tǒng)存儲(chǔ)過程</b></p><p>　　系統(tǒng)存儲(chǔ)過程是SQL Server系統(tǒng)創(chuàng)建的存儲(chǔ)過程，它的目的在于能夠方便地從系統(tǒng)表中查詢信息，或者完成與更新數(shù)據(jù)庫表相關(guān)的管理

31、任務(wù)或其它的系統(tǒng)管理任務(wù)。系統(tǒng)存儲(chǔ)過程可以在任意一個(gè)數(shù)據(jù)庫中執(zhí)行。系統(tǒng)存儲(chǔ)過程創(chuàng)建并存放于系統(tǒng)數(shù)據(jù)庫master中，并且名稱以sp_或者xp_開頭。</p><p>　　系統(tǒng)存儲(chǔ)過程的部分示例如下： </p><p>　　sp_addtype：用于定義一個(gè)用戶定義數(shù)據(jù)類型。</p><p>　　sp_configure：用于管理服務(wù)器配置選項(xiàng)設(shè)置。</p>

32、;<p>　　xp_sendmail：用于發(fā)送電子郵件或?qū)ず粜畔ⅰ?lt;/p><p>　　sp_stored_procedures：用于返回當(dāng)前數(shù)據(jù)庫中的存儲(chǔ)過程的清單。</p><p>　　sp_help：用于顯示參數(shù)清單和其數(shù)據(jù)類型。</p><p>　　sp_depends：用于顯示存儲(chǔ)過程依據(jù)的對象或者依據(jù)存儲(chǔ)過程的對象。</p>

33、<p>　　sp_helptext：用于顯示存儲(chǔ)過程的定義文本。</p><p>　　sp_rename：用于修改當(dāng)前數(shù)據(jù)庫中用戶對象的名稱。</p><p><b>　?。?）流程控制語句</b></p><p>　　流程控制語句是指那些用來控制程序執(zhí)行和流程分支的命令，在SQL Server 2000中，流程控制語句主要用來控制S

34、QL語句、語句塊或者存儲(chǔ)過程的執(zhí)行流程。 </p><p>　　① IF…ELSE語句</p><p>　　IF…ELSE語句是條件判斷語句，其中，ELSE子句是可選的，最簡單的IF語句沒有ELSE子句部分。IF…ELSE語句用來判斷當(dāng)某一條件成立時(shí)執(zhí)行某段程序，條件不成立時(shí)執(zhí)行另一段程序。SQL Server允許嵌套使用IF…ELSE語句，而且嵌套層數(shù)沒有限制。 </p>

35、<p>　　IF…ELSE語句的語法形式</p><p>　　IF Boolean_expression    { sql_statement | statement_block } [ ELSE    { sql_statement | statement_block } ] </p><p>

36、;　?、?BEGIN…END語句</p><p>　　BEGIN…END語句能夠?qū)⒍鄠€(gè)Transact-SQL語句組合成一個(gè)語句塊，并將它們視為一個(gè)單元處理。在條件語句和循環(huán)等控制流程語句中，當(dāng)符合特定條件便要執(zhí)行兩個(gè)或者多個(gè)語句時(shí)，就需要使用BEGIN…END語句，其語法形式為：</p><p>　　BEGIN    { sql_statemen

37、t        | statement_block    } END </p><p><b>　　③ CASE函數(shù) </b></p><p>　　CASE函數(shù)可以計(jì)算多個(gè)條件式，并將其中一個(gè)符合條件的結(jié)果表達(dá)式返回。CASE函數(shù)按照

38、使用形式的不同，可以分為簡單CASE函數(shù)和搜索CASE函數(shù)。 </p><p>　　a. CASE函數(shù)的語法形式 </p><p>　　CASE input_expression     WHEN when_expression THEN result_expression     

39、0; [ ...n ]   [      ELSE else_result_expression     END </p><p>　　b. 搜索 CASE函數(shù)的語法形式</p><p>　　CASE    

40、 WHEN Boolean_expression THEN result_expression        [ ...n ]    [     ELSE else_result_expression    END </p>&

41、lt;p>　?、?WHILE…CONTINUE…BREAK語句 </p><p>　　WHILE…CONTINUE…BREAK語句用于設(shè)置重復(fù)執(zhí)行 SQL 語句或語句塊的條件。只要指定的條件為真，就重復(fù)執(zhí)行語句。其中，CONTINUE語句可以使程序跳過CONTINUE語句后面的語句，回到WHILE循環(huán)的第一行命令。BREAK語句則使程序完全跳出循環(huán)，結(jié)束WHILE語句的執(zhí)行。 </p><

42、;p>　　結(jié)束WHILE語句的語法形式為：</p><p>　　WHILE Boolean_expression    { sql_statement | statement_block }    [ BREAK ]    { sql_statement | statement_bl

43、ock }    [ CONTINUE ] </p><p><b>　　⑤ GOTO語句 </b></p><p>　　GOTO語句可以使程序直接跳到指定的標(biāo)有標(biāo)識(shí)符的位置處繼續(xù)執(zhí)行，而位于GOTO語句和標(biāo)識(shí)符之間的程序?qū)⒉粫?huì)被執(zhí)行。GOTO語句和標(biāo)識(shí)符可以用在語句塊、批處理和存儲(chǔ)過程中，標(biāo)識(shí)符可以為數(shù)字與字符的組合，但必須

44、以“：”結(jié)尾。 </p><p>　　GOTO語句的語法形式 </p><p>　　GOTO label</p><p><b>　　……</b></p><p><b>　　label:</b></p><p>　?、?WAITFOR語句 </p><p

45、>　　WAITFOR語句用于暫時(shí)停止執(zhí)行SQL語句、語句塊或者存儲(chǔ)過程等，直到所設(shè)定的時(shí)間已過或者所設(shè)定的時(shí)間已到才繼續(xù)執(zhí)行。WAITFOR語句的語法形式為：</p><p>　　WAITFOR { DELAY 'time' | TIME 'time' }</p><p>　　其中，DELAY用于指定時(shí)間間隔，TIME用于指定某一時(shí)刻，其數(shù)據(jù)類型為da

46、tetime，格式為‘hh:mm:ss’。</p><p>　　⑦ RETURN語句 </p><p>　　RETURN語句用于無條件地終止一個(gè)查詢、存儲(chǔ)過程或者批處理，此時(shí)位于RETURN語句之后的程序?qū)⒉粫?huì)被執(zhí)行。RETURN語句的語法形式為：</p><p>　　RETURN [ integer_expression ]</p><p>

47、;　　其中，參數(shù)integer_expression為返回的整型值。存儲(chǔ)過程可以給調(diào)用過程或應(yīng)用程序返回整型值。</p><p>　　1.2 Delphi簡介</p><p>　　Delphi這個(gè)名字源于古希臘的城市名。它集中了第三代語言的優(yōu)點(diǎn)。以O(shè)bject Pascal為基礎(chǔ)，擴(kuò)充了面向?qū)ο蟮哪芰?，并且完美地結(jié)合了可視化的開發(fā)手段。Delphi自1995年3 月一推出就受到了人們的關(guān)注

48、，并在當(dāng)年一舉奪得了多項(xiàng)大獎(jiǎng)[2]。</p><p>　　Delphi是著名的Borland（現(xiàn)在已和Inprise合并）公司開發(fā)的可視化軟件開發(fā)工具?！罢嬲某绦騿T用c，聰明的程序員用Delphi”，這句話是對Delphi最經(jīng)典、最實(shí)在的描述。Delphi被稱為第四代編程語言，它具有簡單、高效、功能強(qiáng)大的特點(diǎn)。和VC相比，Delphi更簡單、更易于掌握，而在功能上卻絲毫不遜色；和VB相比，Delphi則功能更強(qiáng)

49、大、更實(shí)用?？梢哉fDelphi同時(shí)兼?zhèn)淞薞C功能強(qiáng)大和VB簡單易學(xué)的特點(diǎn)。它一直是程序員至愛的編程工具。</p><p>　　Delphi具有以下的特性：基于窗體和面向?qū)ο蟮姆椒ǎ咚俚木幾g器，強(qiáng)大的數(shù)據(jù)庫支持，與Windows編程緊密結(jié)合，強(qiáng)大而成熟的組件技術(shù)。但最重要的還是Object Pascal語言，它才是一切的根本。 Object Pascal語言是在Pascal語言的基礎(chǔ)上發(fā)展起來的，簡單易學(xué)。<

50、;/p><p>　　Delphi提供了各種開發(fā)工具，包括集成環(huán)境、圖像編輯（Image Editor），以及各種開發(fā)數(shù)據(jù)庫的應(yīng)用程序，如DesktopDataBase Expert等。除此之外，還允許用戶掛接其它的應(yīng)用程序開發(fā)工具，如Borland公司的資源編輯器（Resourse Workshop）。</p><p>　　在Delphi眾多的優(yōu)勢當(dāng)中，它在數(shù)據(jù)庫方面的特長顯得尤為突出：適應(yīng)于

51、多種數(shù)據(jù)庫結(jié)構(gòu)，從客戶機(jī)／服務(wù)機(jī)模式到多層數(shù)據(jù)結(jié)構(gòu)模式；高效率的數(shù)據(jù)庫管理系統(tǒng)和新一代更先進(jìn)的數(shù)據(jù)庫引擎；最新的數(shù)據(jù)分析手段和提供大量的企業(yè)組件。</p><p>　　Delphi的出現(xiàn)打破了V承可視化編程領(lǐng)域一統(tǒng)天下的局面。并且Delphi使用了本地編譯器直接生成技術(shù)，使程序的執(zhí)行性能遠(yuǎn)遠(yuǎn)高于其它產(chǎn)品生成的程序。它還是真正的面向?qū)ο蟮木幊陶Z言。PASCAL語言的嚴(yán)謹(jǐn)加上可視化的優(yōu)勢和強(qiáng)大的數(shù)據(jù)庫功能使得它有充分

52、的資本和微軟的VB叫板。許多人當(dāng)時(shí)都認(rèn)為Pascal 是最有前途的程序設(shè)計(jì)語言，并預(yù)測Delphi將會(huì)成為可視化編程的主流環(huán)境[2]?！　elphi在你編好程序后自動(dòng)轉(zhuǎn)換成.EXE文件它運(yùn)行時(shí)速度比VB快，而且編譯后不需要其他的支持庫就能運(yùn)行。它的數(shù)據(jù)庫功能也挺強(qiáng)的，是開發(fā)中型數(shù)據(jù)庫軟件理想的編程工具。 Delphi適用于應(yīng)用軟件、數(shù)據(jù)庫系統(tǒng)、系統(tǒng)軟件等類型的開發(fā)。而且它擁有和VB差不多一樣的功能，而且一樣能應(yīng)用API函數(shù)，這在控制

53、Windows很有用。 　　Delphi是全新的可視化編程環(huán)境，為我們提供了一種方便、快捷的Windows應(yīng)用程序開發(fā)工具。它使用了Microsoft Windows圖形用戶界面的許多先進(jìn)特性和設(shè)計(jì)思想，采用了彈性可重復(fù)利用的完整的面向?qū)ο蟪绦蛘Z言(Object-Oriented Language)、當(dāng)今世界</p><p><b>　　2 系統(tǒng)分析與設(shè)計(jì)</b></p>&

54、lt;p>　　隨著高等院校的規(guī)模不斷擴(kuò)大，高校圖書館的藏書、管理人員、讀者的數(shù)量也越來越多，圖書管理涉及到大量的數(shù)據(jù)處理，一個(gè)現(xiàn)代化的圖書館根本不可能使圖書管理系統(tǒng)需要滿足來自三方面的需求，這三個(gè)方面分別是圖書借閱者、圖書館工作人員和圖書館管理人員。圖書借閱者的需求是查詢圖書館所存的圖書、個(gè)人借閱情況及個(gè)人信息的修改；圖書館工作人員對圖書借閱者的借閱及還書要求進(jìn)行操作，同時(shí)形成借書或還書報(bào)表給借閱者查看確認(rèn)；圖書館管理人員的功能最

55、為復(fù)雜，包括對工作人員、圖書借閱者、圖書進(jìn)行管理和維護(hù)，及系統(tǒng)狀態(tài)的查看、維護(hù)并生成催還圖書報(bào)表。 圖書借閱者可直接查看圖書館圖書情況，如果圖書借閱者根據(jù)本人借書證號(hào)和密碼登錄系統(tǒng)，還可以進(jìn)行本人借書情況的查詢和維護(hù)部分個(gè)人信息。一般情況下，圖書借閱者只應(yīng)該查詢和維護(hù)本人的借書情況和個(gè)人信息，若查詢和維護(hù)其他借閱者的借書情況和個(gè)人信息，就要知道其他圖書借閱者的借書證號(hào)和密碼。這些是很難得到的，特別是密碼，所以不但滿足了圖書借閱者

56、的要求，還保護(hù)了圖書借閱者的個(gè)人隱私?！　D書館工作人員有修改圖書借閱者借書和還書記錄的權(quán)限，所以需對工作人員登陸本模塊進(jìn)行更多的考慮。在</p><p><b>　　圖書管理系統(tǒng)分析</b></p><p>　　高校的圖書管理涉及圖書信息、系統(tǒng)用戶信息、讀者信息、圖書借閱信息等多種數(shù)據(jù)管理。管理系統(tǒng)開發(fā)的起點(diǎn)是系統(tǒng)設(shè)計(jì)，這也是整個(gè)系統(tǒng)開發(fā)過程中最關(guān)鍵的一不步，它決

57、定著開發(fā)的成敗。系統(tǒng)設(shè)計(jì)主要包括系統(tǒng)功能分析、系統(tǒng)模塊設(shè)計(jì)以及開發(fā)與運(yùn)行環(huán)境的選擇三大任務(wù)。</p><p>　　2.1.1 應(yīng)用需求分析</p><p>　　(1)對所有用戶開放的圖書查詢(2)借閱者維護(hù)借閱者個(gè)人部分信息(3)借閱者查看個(gè)人借閱情況信息(4)維護(hù)借閱者個(gè)人密碼(5)根據(jù)借閱情況對數(shù)據(jù)庫進(jìn)行操作并生成報(bào)表(6)根據(jù)還書情況對數(shù)據(jù)庫進(jìn)行操作并生成報(bào)表(7)查詢各

58、種信息(8)維護(hù)圖書信息 (9)維護(hù)借閱者信息(10)處理信息的完整性(11)對借閱超期的圖書生成報(bào)表</p><p>　　(12)對丟失的圖書生成報(bào)表</p><p>　　(13)對入庫的新書生成報(bào)表 </p><p>　　根據(jù)以上所做的需求分析，并略掉一些細(xì)節(jié)（如不考慮用戶的登錄；對記錄的維護(hù)），得出以下的三層數(shù)據(jù)流圖。 </p>

59、<p>　　管理要求 查詢要求</p><p>　　管理結(jié)果 查詢結(jié)果</p><p>　　圖2-1頂層數(shù)據(jù)流圖</p><p>　　2.1.2 數(shù)據(jù)庫設(shè)計(jì)過程</p><p>　　數(shù)據(jù)庫的設(shè)計(jì)過程如下圖所示。在數(shù)據(jù)庫設(shè)計(jì)過程中，需求分析和概

60、念設(shè)計(jì)可以獨(dú)立于任何數(shù)據(jù)庫管理系統(tǒng)進(jìn)行。邏輯設(shè)計(jì)和物理設(shè)計(jì)與具體的數(shù)據(jù)庫管理系統(tǒng)密切相關(guān)。由于需求分析比較重要[11]。我們在設(shè)計(jì)的時(shí)候，花了比較多的時(shí)間。在獲得這些資料之后，進(jìn)行分析。從中提取有用的部分。分析各種用戶的權(quán)限。</p><p><b>　　需求分析說明書</b></p><p><b>　　概念數(shù)據(jù)庫模式</b></p>

61、;<p>　　獨(dú)立于數(shù)據(jù) （高級數(shù)據(jù)模型）</p><p><b>　　庫管理系統(tǒng)</b></p><p><b>　　與數(shù)據(jù)庫管</b></p><p><b>　　理系統(tǒng)相關(guān)</b></p><p><b>　　邏輯

62、數(shù)據(jù)庫模式</b></p><p><b>　?。ㄌ囟〝?shù)據(jù)模型）</b></p><p><b>　　物理數(shù)據(jù)庫模式</b></p><p>　?。ㄌ囟ǖ奈锢泶鎯?chǔ)結(jié)構(gòu)和存取方式）</p><p>　　圖2-2：數(shù)據(jù)庫設(shè)計(jì)過程</p><p>　　2.1.3 開發(fā)與

63、運(yùn)行環(huán)境的選擇</p><p>　　開發(fā)與運(yùn)行環(huán)境的選擇會(huì)影響到數(shù)據(jù)庫的設(shè)計(jì)，本次畢業(yè)設(shè)計(jì)圖書管理系統(tǒng)開發(fā)與運(yùn)行環(huán)境的選擇如下：</p><p>　　開發(fā)環(huán)境：Windows 2000/XP</p><p>　　開發(fā)工具：Delphi 7.0</p><p>　　數(shù)據(jù)庫管理系統(tǒng)：SQL Server2000</p><p&

64、gt;　　圖書管理系統(tǒng)應(yīng)用程序設(shè)計(jì)</p><p>　　在系統(tǒng)數(shù)據(jù)庫設(shè)計(jì)過程中，先要從設(shè)計(jì)人員的角度看待數(shù)據(jù)以及處理要求和約束，產(chǎn)生一個(gè)反映用戶觀點(diǎn)的概念模式。然后再把概念模式轉(zhuǎn)換成邏輯模式。將概念設(shè)計(jì)從實(shí)際過程中獨(dú)立開來，使各階段的任務(wù)相對單一化，設(shè)計(jì)復(fù)雜程度大大降低，不受特定DBMS的限制[12]。</p><p>　　2.2.1 系統(tǒng)數(shù)據(jù)庫概念設(shè)計(jì)</p><p&

65、gt;　　通過對圖書管理系統(tǒng)的分析，可以得出該系統(tǒng)涉及三個(gè)實(shí)體：讀者、圖書、工作人員。通過對各實(shí)體數(shù)據(jù)關(guān)系的整理，我們可以畫出如下E—R圖: </p><p>　　圖2-3 系統(tǒng)E-R圖</p><p>　　2.2.2 關(guān)系數(shù)據(jù)庫的邏輯設(shè)計(jì)</p><p>　　由于概念設(shè)計(jì)的結(jié)果是ER圖，DBMS一般采用關(guān)系型（本人所使用的MS SQL 

66、Server就是關(guān)系型的DBMS），因此數(shù)據(jù)庫的邏輯設(shè)計(jì)過程就是把ER圖轉(zhuǎn)化為關(guān)系模式的過程。由于關(guān)系模型所具有的優(yōu)點(diǎn)，邏輯設(shè)計(jì)可以充分運(yùn)用關(guān)系數(shù)據(jù)庫規(guī)范化理論，使設(shè)計(jì)過程形式化地進(jìn)行[3]。設(shè)計(jì)結(jié)果如下：</p><p>　　系統(tǒng)用戶數(shù)據(jù)：圖書館內(nèi)部人員使用圖書管理系統(tǒng)的身份數(shù)據(jù)，包括的數(shù)據(jù)項(xiàng)有用戶編號(hào)、用戶名、登錄口令、權(quán)限代碼。</p><p>　　讀者類別數(shù)據(jù)：借閱圖書讀者的類別數(shù)

67、據(jù)，包括的數(shù)據(jù)項(xiàng)有讀者類型編號(hào)、</p><p>　　類別名稱、借書數(shù)量、借書期限、有效期。</p><p>　　讀者個(gè)人數(shù)據(jù)：讀者個(gè)人與圖書借閱相關(guān)的身份數(shù)據(jù)，包括的數(shù)據(jù)項(xiàng)有借閱證編號(hào)、借書證號(hào)、讀者類別編號(hào)、姓名、部門名稱、登記日期。</p><p>　　圖書書目數(shù)據(jù)：用于圖書編目使用的書目數(shù)據(jù)，包含的數(shù)據(jù)項(xiàng)有圖書索引號(hào)、圖書條碼、書名、作者、出版社、出版日期、

68、價(jià)格、字?jǐn)?shù)、頁數(shù)、內(nèi)容簡介、關(guān)鍵字、狀態(tài)。</p><p>　　新書書目數(shù)據(jù)：圖書編目產(chǎn)生的書目數(shù)據(jù)，包含的數(shù)據(jù)項(xiàng)與圖書書目數(shù)據(jù)相同。</p><p>　　圖書征訂數(shù)據(jù)：征訂圖書的相關(guān)數(shù)據(jù)，包含的數(shù)據(jù)項(xiàng)有書名、作者、出版社、出版日期、價(jià)格、數(shù)量、訂購日期、狀態(tài)。</p><p>　　圖書借閱數(shù)據(jù)：包含的數(shù)據(jù)項(xiàng)有圖書條碼、借書證號(hào)、借閱日期、還書日期、應(yīng)還日期、圖書所

69、在的庫室編號(hào)。</p><p>　　2.2.3 數(shù)據(jù)庫的結(jié)構(gòu)設(shè)計(jì)</p><p>　　我選用Microsoft SQL Server2000(個(gè)人版)數(shù)據(jù)庫來進(jìn)行數(shù)據(jù)庫的邏輯設(shè)計(jì)。首先創(chuàng)建七個(gè)基本數(shù)據(jù)庫表如表2-1——2-7所示，然后根據(jù)全局ER圖，建立各個(gè)表之間的聯(lián)系，如圖2-4所示。</p><p>　　表2-1 系統(tǒng)用戶數(shù)據(jù)表（t_user

70、）</p><p>　　表2-2 讀者類別數(shù)據(jù)表 (t_lxdm)</p><p>　　表2-3 讀者個(gè)人數(shù)據(jù)表（t_dzb）</p><p>　　表2-4 圖書書目數(shù)據(jù)表(t_tsb)</p><p>　　表2-5 新書書目數(shù)據(jù)表(t_xsb)</p><p>　　表2-6 圖書征訂數(shù)據(jù)表(t_dgb)</p&

71、gt;<p>　　表2-7 圖書借閱數(shù)據(jù)表(t_jyb)</p><p>　　2.2.4 數(shù)據(jù)庫的配置</p><p>　　創(chuàng)建ODBC數(shù)據(jù)源：</p><p>　　那么，什么是ODBC呢?</p><p>　　開放數(shù)據(jù)庫互連（ODBC）是Microsoft引進(jìn)的一種早期數(shù)據(jù)庫接口技術(shù)。Microsoft引進(jìn)這種技術(shù)的一個(gè)主要原

72、因是，以非語言專用的方式，提供給程序員一種訪問數(shù)據(jù)庫內(nèi)容的簡單方法。換句話說，訪問DBF文件或Access Basic以得到MDB文件中的數(shù)據(jù)時(shí)，無需懂得Xbase程序設(shè)計(jì)語言。</p><p>　　ODBC為應(yīng)用程序提供了一種標(biāo)準(zhǔn)方法來操作相關(guān)的數(shù)據(jù)庫：管理器根據(jù)數(shù)據(jù)源提供的數(shù)據(jù)庫的位置、數(shù)據(jù)庫類型及ODBC驅(qū)動(dòng)程序等信息，建立起ODBC與具體數(shù)據(jù)庫的聯(lián)系。這樣，只要應(yīng)用程序?qū)?shù)據(jù)源名提供給ODBC，ODBC就

73、能建立起與相應(yīng)數(shù)據(jù)庫的連接。</p><p>　　本次畢業(yè)設(shè)計(jì)建立一個(gè)名為TSGL的數(shù)據(jù)源讓它與我的數(shù)據(jù)庫相連接。</p><p>　　2.2.4 系統(tǒng)窗體模塊設(shè)計(jì)</p><p>　　除了進(jìn)入系統(tǒng)之前的登錄窗體之外，系統(tǒng)模塊框架圖如下：</p><p>　　圖2-4系統(tǒng)模塊框架圖</p><p><b>　

74、　3 系統(tǒng)詳細(xì)設(shè)計(jì)</b></p><p>　　根據(jù)已有的需求信息和總體設(shè)計(jì)，可以進(jìn)行系統(tǒng)的詳細(xì)設(shè)計(jì)和實(shí)現(xiàn)，為此，我們建立了一個(gè)Delphi工程。系統(tǒng)的設(shè)計(jì)和實(shí)現(xiàn)如下：</p><p>　　3.1 系統(tǒng)項(xiàng)目工程文件(MarLibrary.dpr)</p><p>　　每一個(gè)Delphi工程都有一個(gè)項(xiàng)目文件，在本系統(tǒng)中，項(xiàng)目文件如下所示：</p>

75、;<p>　　program MgrLibrary;</p><p><b>　　uses</b></p><p><b>　　Forms,</b></p><p>　　Main in 'Main.pas' {Mainform}, //主控制平臺(tái)&

76、lt;/p><p>　　login in 'login.pas' {Loginform},　　　　　　　　　　　 //登錄模塊</p><p>　　Edituser in 'Edituser.pas' {Edituserform}, //編輯用戶信息</p><p>　　Editreader in

77、 'Editreader.pas' {Editreaderform}, //編輯讀者信息</p><p>　　Editbmessage in 'Editbmessage.pas' {Editbmessageform}, //編輯圖書信息</p><p>　　Bbook in ' Bbook.pas' {Bb

78、ookform}, //預(yù)約借書模塊</p><p>　　Changeks in ' Changeks.pas' {Changeksform}, //庫室調(diào)換模塊</p><p>　　Chpassword in ' Chpassword.pas' {Chpasswordform},

79、 //修改密碼模塊</p><p>　　dgbook in ' dgbook.pas' {dgbookform}, //訂購圖書模塊</p><p>　　Lend in ' Lend.pas' {Lendform}, //借閱圖書模塊</p>

80、<p>　　Lostfind in ' Lostfind.pas' {Lostfindform}, //圖書掛失模塊</p><p>　　New in ' New.pas' {Newform}, //新書入庫模塊</p><p>　　Relend in 

81、9; Relend.pas' {Relendform}, //續(xù)借圖書模塊</p><p>　　Return in ' Return.pas' {Returnform}, //圖書歸還模塊</p><p>　　Selbmessage in ' Selbmessage.pas

82、' {Selbmessageform}, //查詢圖書信息</p><p>　　Sellend in ' Sellend.pas' {Sellendform}, // 查詢借書信息</p><p>　　Selreader in ' Selreader.pas' {Selreaderform},

83、 //查詢讀者信息</p><p>　　Reportreader in 'Reportreader.pas' {Reportreaderform}, //讀者信息報(bào)表</p><p>　　reportbook in 'reportbook.pas' {reportbookform}, //圖書信息報(bào)

84、表</p><p>　　Reportuser in 'Reportuser.pas' {Reportuserform}, //用戶信息報(bào)表</p><p>　　Reportlostbook in 'Reportlostbook.pas' {Reportlostbookform}, //丟失信息報(bào)表</p><p&

85、gt;　　Reportnewbook in 'Reportnewbook.pas' {Reportnewbookform}, //新書通報(bào)表</p><p>　　Reportpassbook in 'Reportpassbook.pas' {Reportpassbookform}, //超期圖書報(bào)表</p><p>　　relogin in 'rel

86、ogin.pas' {reloginform}, //重新登錄模塊</p><p>　　About in ' About.pas' {Aboutform},</p><p>　　{$R *.res}</p><p><b>　　begin</b></p><p

87、>　　Application.Initialize;</p><p>　　Application.CreateForm(TLoginform, Loginform);</p><p>　　Application.CreateForm(TMainform, Mainform);</p><p>　　Application.CreateForm(TEditread

88、erform, Editreaderform);</p><p>　　Application.CreateForm(TEditbmessageform, Editbmessageform);</p><p>　　Application.CreateForm(TAboutform, Aboutform);</p><p>　　Application.CreateFor

89、m(TBbookform, Bbookform);</p><p>　　Application.CreateForm(TChangeksform, Changeksform);</p><p>　　Application.CreateForm(TChpasswordform, Chpasswordform);</p><p>　　Application.Create

90、Form(Tdgbookform, dgbookform);</p><p>　　Application.CreateForm(TLendform, Lendform);</p><p>　　Application.CreateForm(TLostfindform, Lostfindform);</p><p>　　Application.CreateForm(TN

91、ewform, Newform);</p><p>　　Application.CreateForm(TRelendform, Relendform);</p><p>　　Application.CreateForm(TReturnform, Returnform);</p><p>　　Application.CreateForm(TSelbmessagefor

92、m, Selbmessageform);</p><p>　　Application.CreateForm(TSellendform, Sellendform);</p><p>　　Application.CreateForm(TSelreaderform, Selreaderform);</p><p>　　Application.CreateForm(TEdi

93、tuserform, Edituserform);</p><p>　　Application.CreateForm(TReportreaderform, Reportreaderform);</p><p>　　Application.CreateForm(Treportbookform, reportbookform);</p><p>　　Applicatio

94、n.CreateForm(TReportlostbookform, Reportlostbookform);</p><p>　　Application.CreateForm(TReportnewbookform, Reportnewbookform);</p><p>　　Application.CreateForm(TReportpassbookform, Reportpassbook

95、form);</p><p>　　Application.CreateForm(Treloginform, reloginform);</p><p>　　Application.Run;</p><p><b>　　end.</b></p><p>　　3.2 主控制平臺(tái)的界面效果</p><p&g

96、t;　　圖3-1圖書管理系統(tǒng)主界面</p><p>　　3.3 系統(tǒng)主要功能模塊詳細(xì)介紹</p><p>　　3.3.1 用戶登錄模塊的設(shè)計(jì)與實(shí)現(xiàn)</p><p>　　(1)用戶身份驗(yàn)證IPO圖</p><p>　　功能：本模塊主要用于對用戶身份進(jìn)行鑒別。用戶通過表單提供用戶名和密碼信息，系統(tǒng)根據(jù)用戶提供的登錄信息對用戶進(jìn)行身份查詢鑒別。如果

97、身份合法，則將用戶導(dǎo)向系統(tǒng)的主頁面并記錄用戶的相關(guān)信息，留待以后的系統(tǒng)頁面使用。</p><p>　　輸入：用戶名和密碼。</p><p><b>　　處理：</b></p><p><b>　　用戶登錄窗體啟動(dòng)。</b></p><p>　　從用戶信息表中讀取用戶的名稱信息。</p>

98、<p><b>　　輸入用戶名和密碼。</b></p><p>　　從用戶信息表中檢查是否有相應(yīng)的用戶名和密碼。</p><p>　　如果用戶名重復(fù)或密碼錯(cuò)誤，進(jìn)行提示。</p><p>　　如果輸入的用戶名和相應(yīng)密碼正確則進(jìn)入主控制平臺(tái)。</p><p>　　輸出：圖書管理系統(tǒng)主界面</p>

99、<p>　　(2)用戶登錄模塊的窗體設(shè)計(jì)</p><p>　　圖3-2 用戶登錄界面</p><p>　　(3)用戶登錄模塊的主要代碼（Login.pas）</p><p>　　procedure TLoginform.Button1Click(Sender: TObject);</p><p>　　var result:strin

100、g;</p><p><b>　　begin</b></p><p>　　if Edit1.Text='' then</p><p>　　showmessage('請輸入用戶ID')</p><p><b>　　else</b></p><p>

101、;<b>　　begin</b></p><p>　　with query1 do</p><p><b>　　begin</b></p><p><b>　　close;</b></p><p>　　sql.Clear;</p><p>　　sql.A

102、dd('select passwd from t_user');</p><p>　　sql.Add('where name=:id');</p><p>　　parambyname('id').Asstring:=Edit1.Text;</p><p><b>　　open;</b></p

103、><p><b>　　end;</b></p><p>　　result:=query1.fieldbyname('passwd').AsString;</p><p>　　if trim(result)=trim(Edit2.Text) then</p><p><b>　　begin</b

104、></p><p>　　mainform.ShowModal;</p><p>　　loginform.Close;</p><p><b>　　end</b></p><p>　　else showmessage('密碼錯(cuò)誤');</p><p><b>　　en

105、d;</b></p><p><b>　　end;</b></p><p>　　procedure TLoginform.Edit2KeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);</p><p>　　var result:string;</p>&

106、lt;p><b>　　begin</b></p><p>　　if Edit1.Text='' then</p><p>　　showmessage('請輸入用戶ID')</p><p><b>　　else</b></p><p><b>　　beg

107、in</b></p><p>　　with query1 do</p><p><b>　　begin</b></p><p><b>　　close;</b></p><p>　　sql.Clear;</p><p>　　sql.Add('select

108、passwd from t_user');</p><p>　　sql.Add('where name=:id');</p><p>　　parambyname('id').Asstring:=Edit1.Text;</p><p><b>　　open;</b></p><p>

109、<b>　　end;</b></p><p>　　result:=query1.fieldbyname('passwd').AsString;</p><p>　　if trim(result)=trim(Edit2.Text) then</p><p><b>　　begin</b></p>

110、<p>　　mainform.ShowModal;</p><p>　　loginform.Close;</p><p><b>　　end</b></p><p>　　else showmessage('密碼錯(cuò)誤');</p><p><b>　　end;</b><

111、;/p><p><b>　　end.</b></p><p>　　3.3.2 更改密碼模塊的設(shè)計(jì)與實(shí)現(xiàn)</p><p>　　更改密碼模塊的IPO圖</p><p>　　功能：在主界面的蔡單上點(diǎn)擊“更改密碼”，就會(huì)生成一個(gè)窗體（chpasswordform）。用戶在生成的窗口中輸入新的密碼，提交后程序會(huì)將數(shù)據(jù)表(t_user)

112、中的密碼進(jìn)行修改。</p><p>　　輸入：用戶名和舊密碼，新密碼，并確認(rèn)輸入的新密碼。</p><p><b>　　處理：</b></p><p>　　①首先在t_user表中查詢所輸入的用戶名和密碼是否存在。</p><p>　　②如果判斷不合法，則進(jìn)行提示相關(guān)信息。</p><p>　?、?/p>

113、如果判斷合法后，用新密碼字段值替換用戶信息數(shù)據(jù)表t_user中的舊密碼字段值。</p><p>　　3.3.3 新書入庫模塊的設(shè)計(jì)與實(shí)現(xiàn)</p><p>　　新書入庫模塊的IPO圖</p><p>　　功能：新書入庫模塊負(fù)責(zé)對圖書信息的錄入工作。</p><p>　　輸入：圖書的相關(guān)信息。</p><p><b&

114、gt;　　處理：</b></p><p>　　窗體初始化，讀取已有的圖書信息以列表的形式進(jìn)行顯示供選擇。</p><p>　　用戶輸入正確的圖書條碼。</p><p>　　輸入其他信息，包括書名、索引號(hào)、作者、出版社、出版日期、價(jià)格、數(shù)量、入館日期、庫室名、狀態(tài)、備注等，確認(rèn)入庫操作。</p><p>　　檢查輸入的項(xiàng)目是否有誤，

115、如果一切正確，則完成對圖書信息表的添加操作，同時(shí)顯示相關(guān)提示信息。</p><p>　　輸出：對新書信息表進(jìn)行添加記錄操作。</p><p>　　3.3.4 編輯用戶信息模塊的設(shè)計(jì)與實(shí)現(xiàn)</p><p>　　用戶信息建立和維護(hù)功能IPO圖</p><p>　　功能：用戶信息的建立和維護(hù)，包括用戶信息的添加、修改、刪除。</p>

116、<p>　　輸入：用戶的相關(guān)基本信息。</p><p><b>　　處理：</b></p><p>　?、購挠脩粜畔⒈碇凶x取已有的信息并顯示。</p><p>　?、谶x擇對信息的編輯方式：新增用戶、修改用戶信息、刪除用戶。</p><p>　?、鄹掠脩粜畔⒈恚⑻崾居脩?。</p><p&g

117、t;　　輸出：對用戶信息表進(jìn)行修改或添加記錄。</p><p>　　3.3.5 編輯讀者信息模塊的設(shè)計(jì)與實(shí)現(xiàn)</p><p>　　(1)讀者信息建立和維護(hù)功能IPO圖</p><p>　　功能：讀者信息的建立和維護(hù)，包括讀者信息的添加、修改、刪除。</p><p>　　輸入：讀者的相關(guān)基本信息。</p><p><

118、;b>　　處理：</b></p><p>　?、購淖x者信息表中讀取已有的信息并顯示。</p><p>　?、谟脩暨x擇對信息的編輯方式：新增讀者用戶、修改讀者信息、刪除讀者用戶。</p><p>　　③更新讀者信息表，并提示用戶。</p><p>　　輸出：對讀者信息表進(jìn)行修改或添加記錄。</p><p&g

119、t;　　(2)編輯讀者信息的窗體設(shè)計(jì)</p><p>　　圖3-3編輯讀者信息界面</p><p>　　(3)編輯讀者信息的主要代碼</p><p>　　procedure TEditreaderform.Button3Click(Sender: TObject);</p><p><b>　　begin</b><

120、/p><p>　　if Edit1.Text='' then</p><p>　　showmessage('請輸入你的證號(hào)')</p><p><b>　　else</b></p><p><b>　　begin</b></p><p>　　if

121、radiobutton1.Checked=true then</p><p><b>　　begin</b></p><p>　　with spinsert do</p><p><b>　　begin</b></p><p>　　parambyname('@zh').AsStrin

122、g:=Edit1.Text;</p><p>　　parambyname('@lxdm').AsInteger:=strtoint(combobox2.Text);</p><p>　　parambyname('@xm').AsString:=Edit2.Text;</p><p>　　parambyname('@xb'