【正文】 。var PopupItem:TMenuItem。 end。open。**********************************************************************procedure (Sender: TObject)。end。 file://這里相當(dāng)于一個(gè)刷新功能open。:=‘‘。:=‘‘。:=‘‘。 file://給變量s2賦值open。 file://給變量s2賦值if ‘‘ then s5:=‘%‘++‘%‘ else s5:=‘%‘。 file://給變量s2賦值if ‘‘ then s4:=‘%‘++‘%‘ else s4:=‘%‘。 file://給變量s2賦值if ‘‘ then s3:=‘%‘++‘%‘ else s3:=‘%‘。 file://給變量s1賦值if ‘‘ then s2:=‘%‘++‘%‘ else s2:=‘%‘。 file://使用Like語(yǔ)句來(lái)實(shí)現(xiàn)模糊查詢if ‘‘ then s1:=‘%‘++‘%‘ else s1:=‘%‘。(‘select * from BookRecord‘)。 file://設(shè)立5個(gè)變量以方便實(shí)現(xiàn)模糊查詢begin file://主窗口庫(kù)存查詢按鈕事件with dobeginclose。**********************************************************************procedure (Sender: TObject)。 file://重新打開MainQueryend。 file://添加新的SQL語(yǔ)句(‘Pub‘).Value:=(Sender as TMenuItem).Caption。 file://關(guān)閉MainQuery。**********************************************************************procedure (Sender: TObject)。 主窗體功能模塊的實(shí)現(xiàn) file://主窗體程序代碼public file://在程序的起始部分，定義快捷按鈕點(diǎn)擊事件Procedure Popup1Handler(Sender:Tobject)。在Delphi的學(xué)習(xí)中我對(duì)ADO組件了解的更加清楚，使用也較BDE更為熟練，而且，ADO組件的功能也較BDE更為強(qiáng)大，所以在這里大多采用ADO組件來(lái)進(jìn)行數(shù)據(jù)庫(kù)聯(lián)接。其他的數(shù)據(jù)存取組件都是基于此數(shù)據(jù)庫(kù)組件創(chuàng)建的，這樣做的好處是，當(dāng)數(shù)據(jù)庫(kù)的別名或者其他信息改變之后，只需修改Tdatabase組件的AliasName屬性即可。值得一提的是，設(shè)置了數(shù)據(jù)庫(kù)Database組件，該組件引入了系統(tǒng)所需的唯一的數(shù)據(jù)庫(kù)tsxs，Database組件的DatabaseName屬性設(shè)置為tsckgl。簡(jiǎn)單說(shuō)來(lái)，數(shù)據(jù)模塊是用來(lái)集中管理數(shù)據(jù)源的一個(gè)窗體，該窗體可被需要的地方隨時(shí)引入。 數(shù)據(jù)模塊窗體的設(shè)置在編寫數(shù)據(jù)庫(kù)應(yīng)用程序時(shí)，經(jīng)常要遇到這樣的情況，即好多組件、窗體同時(shí)訪問相同的數(shù)據(jù)源，如果為每一個(gè)組件或者窗體都設(shè)置一個(gè)數(shù)據(jù)源將是十分耗時(shí)的工件，而且要保證這些數(shù)據(jù)源的確是相同的也需花一番功夫。第五章 系統(tǒng)應(yīng)用程序設(shè)計(jì)167。由前一階段產(chǎn)生的系統(tǒng)功能模塊圖，我為系統(tǒng)的主要部分設(shè)計(jì)了如下程序流程圖：通過以上步驟，基本上完成了對(duì)整個(gè)系統(tǒng)的總體設(shè)計(jì)，接下來(lái)所要做的就是軟件的編碼工作。為軟件的質(zhì)量，延長(zhǎng)軟件的生存期，軟件的可測(cè)試性、可維護(hù)性提供重要的保障。需要指出的是系統(tǒng)的詳細(xì)設(shè)計(jì)并不是指具體的編程序，而是將概要設(shè)計(jì)階段產(chǎn)生的系統(tǒng)功能模塊圖細(xì)化成很容易產(chǎn)生程序的圖紙。現(xiàn)在所要做的就是確定每個(gè)模塊具體執(zhí)行過程，也可以說(shuō)是“過程設(shè)計(jì)”。167。它是在用戶登陸時(shí)用來(lái)確定用戶和密碼的正確性，以防止非法用戶登陸。比如，系統(tǒng)中通過在入庫(kù)信息表中定義的外鍵 BookID、EmployeeID和ShopkeeperID可以將庫(kù)存信息表、員工信息表和供應(yīng)商信息表聯(lián)系在一起，從而方便地實(shí)現(xiàn)聯(lián)接查詢，而且，引入外鍵的定義是實(shí)體完整性約束的一個(gè)主要方面。無(wú)論您是添加入庫(kù)記錄，還是添加出庫(kù)記錄，系統(tǒng)都將自動(dòng)修改庫(kù)存中圖書的數(shù)量，而且，在您出庫(kù)的數(shù)量大于庫(kù)存數(shù)量時(shí)，系統(tǒng)還會(huì)自動(dòng)提示錯(cuò)誤，這樣就可以防止一定錯(cuò)誤的發(fā)生。出庫(kù)信息表和入庫(kù)信息表一樣，其實(shí)它們都屬于聯(lián)系類型，系統(tǒng)通過這兩個(gè)表可以聯(lián)接上其它的表為用戶提供多種條件的聯(lián)接查詢。InRecord 表（入庫(kù)信息表） 字段名稱 數(shù)據(jù)類型 說(shuō)明K InID 數(shù)字 入庫(kù)編號(hào) BookID 數(shù)字 圖書編號(hào) EmployeeID 數(shù)字 員工編號(hào) ShopkeeperID 數(shù)字 供應(yīng)商編號(hào) Number 數(shù)字 入庫(kù)數(shù)量 BuyDate 日期/時(shí)間 入庫(kù)日期 入庫(kù)信息表OutRecord 表（出庫(kù)信息表） 字段名稱 數(shù)據(jù)類型 說(shuō)明K OutID 數(shù)字 出庫(kù)編號(hào) BookID 數(shù)字 圖書編號(hào) EmployeeID 數(shù)字 員工編號(hào) Number2 數(shù)字 出庫(kù)數(shù)量 OutDate 日期/時(shí)間 出庫(kù)日期 出庫(kù)信息表入庫(kù)信息表主要用于記錄有關(guān)入庫(kù)的詳細(xì)信息，包括入庫(kù)數(shù)量、入庫(kù)日期以及圖書、員工、供應(yīng)商三方的編號(hào)，以便查詢。它主要用來(lái)為系統(tǒng)提供供應(yīng)商的有關(guān)信息，在系統(tǒng)中入庫(kù)記錄是與供應(yīng)商記錄相聯(lián)系的，通過入庫(kù)記錄可以查找相關(guān)的供應(yīng)商信息。另外，作為一個(gè)倉(cāng)庫(kù)也有必要了解其所屬員工的一些基本情況，以便查詢。Employee 表（員工信息表） 字段名稱 數(shù)據(jù)類型 說(shuō)明K EmployeeID 數(shù)字 員工編號(hào) EmployeeName 文本 員工姓名 Sex 文本 性別 BornDate 日期/時(shí)間 出生日期 Grade 文本 職稱 WorkDate 日期/時(shí)間 工作日期 Telephone 文本 聯(lián)系電話 Address 文本 聯(lián)系地址 員工信息表員工信息表主要用于記錄有關(guān)員工的各類信息，包括姓名、職稱、出生日期、聯(lián)系電話、聯(lián)系地址等。此外，庫(kù)存數(shù)量也是一個(gè)比較關(guān)鍵的字段，該字段是在系統(tǒng)初始化時(shí)就給定的，每當(dāng)有圖書入庫(kù)或出庫(kù)操作，系統(tǒng)就會(huì)自動(dòng)修改圖書的庫(kù)存數(shù)量，以保持?jǐn)?shù)據(jù)的一致性。在該表中圖書編號(hào)是主鍵，它按圖書入庫(kù)的先后次序來(lái)編寫，每當(dāng)有圖書入庫(kù)，系統(tǒng)自動(dòng)給出圖書編號(hào)，這樣我們按圖書編號(hào)來(lái)查找圖書是比較方便的。（說(shuō)明：在以下數(shù)據(jù)表中，K代表主鍵，代表外鍵，字段值不為空。根據(jù)系統(tǒng)ER圖，針對(duì)本系統(tǒng)的特點(diǎn)，在對(duì)所搜集的數(shù)據(jù)進(jìn)行規(guī)范化之后，定義了如下六張表格，分別是庫(kù)存信息表，入庫(kù)信息表，出庫(kù)信息表，員工信息表，供應(yīng)商信息表和密碼信息表。其實(shí)在上一節(jié)的ER圖設(shè)計(jì)中，已經(jīng)運(yùn)用了范式的思想，不僅如此，在數(shù)據(jù)庫(kù)的表格設(shè)計(jì)中更離不開范式的思想，它是數(shù)據(jù)庫(kù)設(shè)計(jì)的基礎(chǔ)，如果不注意這個(gè)問題將會(huì)導(dǎo)致一系列問題的出現(xiàn)。因?yàn)殛P(guān)系數(shù)據(jù)庫(kù)中的二維表格可以很清楚地描述數(shù)據(jù)之間的聯(lián)系。下面就是各實(shí)體及聯(lián)系類型的屬性圖：(帶號(hào)的屬性為關(guān)鍵字段) 數(shù)據(jù)庫(kù)表格設(shè)計(jì)在完成系統(tǒng)的ER圖之后，需要將ER模型轉(zhuǎn)化為關(guān)系模型，也就是說(shuō)，要設(shè)計(jì)出數(shù)據(jù)庫(kù)所需要的表格。通過添加供應(yīng)商信息可以比較清楚地了解圖書的進(jìn)貨渠道，從圖書的質(zhì)量到供應(yīng)商的信譽(yù)都可以進(jìn)行了解，同時(shí)可以為以后的圖書進(jìn)購(gòu)提供一定有用的信息。員工記錄的添加是考慮到責(zé)任問題，也就是說(shuō)，在倉(cāng)庫(kù)管理的實(shí)際運(yùn)用中，出現(xiàn)了責(zé)任不清的現(xiàn)象，特別是由于倉(cāng)庫(kù)的進(jìn)出圖書數(shù)量都比較大時(shí)產(chǎn)生了一系列問題，所以在設(shè)計(jì)數(shù)據(jù)庫(kù)時(shí)，我特別考慮到這一點(diǎn)，加入了員工記錄這一實(shí)體。）在該數(shù)據(jù)庫(kù)中，我設(shè)計(jì)了三個(gè)實(shí)體，分別是庫(kù)存、員工和供應(yīng)商以及兩個(gè)聯(lián)系類型入庫(kù)和出庫(kù)。倉(cāng)庫(kù)根據(jù)需要可以查詢圖書供應(yīng)商的信息，同時(shí)還需要了解在入庫(kù)和出庫(kù)中員工的參與情況。◆直線，聯(lián)系類型與其涉及的實(shí)體類型之間以直線連接?！?橢圓形框，表示實(shí)體類型和聯(lián)系類型的屬性。ER圖是直觀表示概念模型的工具，它有四個(gè)基本成分：◆ 矩形框，表示實(shí)體類型（考慮問題的對(duì)象）。它有兩個(gè)明顯的優(yōu)點(diǎn)：接近于人的思維，容易理解；與計(jì)算機(jī)無(wú)關(guān)，用戶容易接受。在本系統(tǒng)中我采用“實(shí)體聯(lián)系模型”（ER模型）來(lái)描述數(shù)據(jù)庫(kù)的結(jié)構(gòu)與語(yǔ)義，以對(duì)現(xiàn)實(shí)世界進(jìn)行第一次抽象。 ER圖設(shè)計(jì)在系統(tǒng)設(shè)計(jì)的開始，我首先考慮的是如何用數(shù)據(jù)模型來(lái)數(shù)據(jù)庫(kù)的結(jié)構(gòu)與語(yǔ)義，以對(duì)現(xiàn)實(shí)世界進(jìn)行抽象。這些信息再進(jìn)一步加工、編碼，然后進(jìn)數(shù)據(jù)世界，而軟件系統(tǒng)的開發(fā)工作需要考慮這兩個(gè)方面的問題，也就是要考慮系統(tǒng)開發(fā)所需要的數(shù)據(jù)，以及如何對(duì)這些數(shù)據(jù)進(jìn)行操作。） 在得到系統(tǒng)的第一層功能模塊圖后，經(jīng)過進(jìn)一步地細(xì)化，得一系統(tǒng)的子功能模塊圖： 數(shù)據(jù)庫(kù)設(shè)計(jì)在信息世界中，信息從客觀事物出發(fā)流經(jīng)數(shù)據(jù)庫(kù)，通過決策機(jī)構(gòu)最后又回到客觀世界，信息的這一循環(huán)經(jīng)歷了三個(gè)領(lǐng)域：信息世界，數(shù)據(jù)世界，現(xiàn)實(shí)世界。比如，用戶管理我又將其分為用戶注冊(cè)、用戶注銷、密碼修改；庫(kù)存管理分為庫(kù)存記錄查詢、庫(kù)存記錄修改、庫(kù)存記錄打印等等。我首先將整個(gè)系統(tǒng)化分為幾個(gè)小問題，小模塊，在系統(tǒng)中，我設(shè)計(jì)了用戶管理、庫(kù)存管理、入庫(kù)管理、出庫(kù)管理、員工管理和供應(yīng)商管理6個(gè)小模塊。也就是說(shuō)，每個(gè)模塊只完成系統(tǒng)要求的獨(dú)立的子功能，并且與其他模塊的聯(lián)系最少且接口簡(jiǎn)單，即盡量做到高內(nèi)聚低耦合，提高模塊的獨(dú)立性，為設(shè)計(jì)高質(zhì)量的軟件結(jié)構(gòu)奠定基礎(chǔ)。每個(gè)模塊完成一個(gè)特定的功能，所有的模塊按某種方法組織起來(lái)，成為一個(gè)整體，完成整個(gè)系統(tǒng)所要求的功能。 系統(tǒng)結(jié)構(gòu)設(shè)計(jì)系統(tǒng)的概要設(shè)計(jì)中最重要的就是系統(tǒng)的模塊化?，F(xiàn)在我們所要做的就是要把軟件“做什么”的邏輯模型變換為“怎么做”的物理模型，即著手實(shí)現(xiàn)軟件的需求。167。在這里只給出有關(guān)入庫(kù)管理和出庫(kù)管理的1層數(shù)據(jù)流圖，它們是系統(tǒng)的關(guān)鍵部分，也是主要的部分。在多層數(shù)據(jù)流圖中，頂層流圖僅包含一個(gè)加工，它代表被開發(fā)系統(tǒng)，它的輸入流是該系統(tǒng)的輸入數(shù)據(jù)了，輸出流是該系統(tǒng)的輸出數(shù)據(jù)；底層流圖是指其加工不需要再做分解的數(shù)據(jù)流圖，中間層流圖表示對(duì)其上層父圖的細(xì)化，它的每一步加工可能繼續(xù)細(xì)化成子圖。為了表達(dá)較為復(fù)雜問題的數(shù)據(jù)處理過程，用一張數(shù)據(jù)流圖是不夠的，要按照問題的層次結(jié)構(gòu)進(jìn)行逐步分解，并以一套分層的數(shù)據(jù)流圖反映這種結(jié)構(gòu)關(guān)系。它是一種功能模型，以圖形的方式描繪數(shù)據(jù)在系統(tǒng)中流動(dòng)和處理的過程，只反映系統(tǒng)必須完成的邏輯功能。軟件需求分析中我采用結(jié)構(gòu)化分析方法（Structured Analysis,簡(jiǎn)稱SA），SA是面向數(shù)據(jù)流進(jìn)行需求分析的方法，像所有的軟件分析方法（如面向?qū)ο蠓治龇椒?、IDEF方法等等）一樣，SA也是一種建?；顒?dòng)，它使用簡(jiǎn)單易讀的符號(hào)，根據(jù)軟件內(nèi)部數(shù)據(jù)傳遞、變換的關(guān)系，自頂向下逐層分解，描繪滿足功能要求的軟件模型。 系統(tǒng)需求分析在經(jīng)過前一階段的分析之后，我確定了我的開發(fā)課題為圖書倉(cāng)庫(kù)管理。編碼過程將在下一節(jié)論述，而測(cè)試和維護(hù)過程不在本文敘及。Access 2000的功能十分強(qiáng)大，利用它可以方便地實(shí)現(xiàn)對(duì)信息保存、維護(hù)、查詢、統(tǒng)計(jì)、打印、交流、發(fā)布，而且它可以十分方便地與Office其他組件交流數(shù)據(jù)，這些功能對(duì)一個(gè)一般用戶而言已經(jīng)足夠了第四章 系統(tǒng)總體設(shè)計(jì)軟件系統(tǒng)的總體設(shè)計(jì)大約要經(jīng)歷可行性分析和項(xiàng)目開發(fā)計(jì)劃，需求分析，概要設(shè)計(jì)，詳細(xì)設(shè)計(jì)，編碼，測(cè)試以及維護(hù)等七個(gè)階段。Access數(shù)據(jù)庫(kù)處理的基本結(jié)構(gòu)，采取關(guān)系型數(shù)據(jù)庫(kù)模式。另外，Microsoft Office中的Access數(shù)據(jù)庫(kù)在計(jì)算機(jī)上的應(yīng)用比較普及，是開發(fā)小型數(shù)據(jù)庫(kù)系統(tǒng)的比較理想的選擇，所以，在本系統(tǒng)中我選擇了Access數(shù)據(jù)庫(kù)。因此，沒有必要使用像SQL Server和Oracle這樣的大型數(shù)據(jù)庫(kù)。 Access 簡(jiǎn)介建立一個(gè)數(shù)據(jù)庫(kù)我們有多種選擇，現(xiàn)在市場(chǎng)上有各種各樣的數(shù)據(jù)庫(kù)，而且每一種數(shù)據(jù)庫(kù)都有其自身的特點(diǎn)，不能說(shuō)哪一種更好，只能在其中尋找一種能更好地適應(yīng)系統(tǒng)需求、更好地滿足用戶的要求以及適應(yīng)開發(fā)人員的習(xí)慣。其它的使用方法與TTQuery有許多的相似之處。值得注意的是，ADOQuery組件只有在激活的情況下才可以被正確地使用，這樣就提出了一個(gè)問題，也就是說(shuō)，在每次修改ADOQuery組件的SQL…屬性時(shí)都必須先行進(jìn)行關(guān)閉，待清除掉SQL…中所有的SQL語(yǔ)句后才可以添加新的SQL語(yǔ)句。在ADOQuery組件中首先通過ConnectionString屬性值來(lái)聯(lián)接數(shù)據(jù)源，然后就通過雙擊SQL…屬性值來(lái)寫入SQL語(yǔ)句。在 Try 部分調(diào)用Open方法，而在Except部分調(diào)用ExceSQL方法，這樣才能保證程序的正確運(yùn)行。如： (沒有返回結(jié)果)當(dāng)然在設(shè)計(jì)應(yīng)用程序時(shí)，程序設(shè)計(jì)人員是無(wú)法確定TQuery部件中的SQL 語(yǔ)句是否會(huì)返回一個(gè)查詢結(jié)果的。Open方法只能用來(lái)執(zhí)行SQL語(yǔ)言的查詢語(yǔ)句(Select命令)， 并返回一個(gè)查詢結(jié)果集，而ExecSQL方法還可以用來(lái)執(zhí)行其它常用的SQL語(yǔ)句(如INSERT, UPDATE, DELETE等命令)，例如： (這樣會(huì)返回一個(gè)查詢結(jié)果集)如果調(diào)用Open方法，而沒有查詢結(jié)果時(shí)，會(huì)出錯(cuò)。在應(yīng)用程序運(yùn)行過程中，通過程序調(diào)用TQuery部件的Open方法或ExecSQL 方法可以執(zhí)行其SQL屬性中的SQL程序。在為TQuery部件設(shè)置完SQL屬性的屬性值之后，也即編寫好適當(dāng)?shù)腟QL程序之后，可以有多種方式來(lái)執(zhí)行SQL程序。在這里要特別注意的，一般情況下TQuery部件的SQL屬性只能包含一條完整的SQL語(yǔ)句，它不允許被設(shè)置成多條SQL語(yǔ)句。在為TQuery部件設(shè)置SQL屬性時(shí)調(diào)用Close方法總是很安全的，如果TQuery部件已經(jīng)被關(guān)閉了，調(diào)用Close方法時(shí)不會(huì)產(chǎn)生任何影響。例如： {關(guān)閉Query1) {清除SQL屬性中的SQL命令語(yǔ)句}(‘Select * From Students‘)