【正文】 ，我的數(shù)據(jù)庫中備注的數(shù)據(jù)類型是文本，而不是備注類型，主要考慮到該字段的長度并不大，而且在delphi中文本數(shù)據(jù)類型的處理也比較方便一點。employee 表（員工信息表）字段名稱數(shù)據(jù)類型說明kemployeeid數(shù)字員工編號employeename文本員工姓名sex文本性別borndate日期/時間出生日期grade文本職稱workdate日期/時間工作日期telephone文本聯(lián)系電話address文本聯(lián)系地址 員工信息表員工信息表主要用于記錄有關(guān)員工的各類信息，包括姓名、職稱、出生日期、聯(lián)系電話、聯(lián)系地址等。它主要用來為系統(tǒng)提供員工的有關(guān)信息，因為在系統(tǒng)中，入庫和出庫操作均與員工有著一定的聯(lián)系，在查詢?nèi)霂煨畔⒑统鰩煨畔r，有時需要查找有關(guān)此項記錄有關(guān)的員工信息，在系統(tǒng)中我是通過入庫記錄與員工記錄（出庫記錄和員工記錄）之間的聯(lián)接查詢來完成的。另外，作為一個倉庫也有必要了解其所屬員工的一些基本情況，以便查詢。shopkeeper 表（供應(yīng)商信息表）字段名稱數(shù)據(jù)類型說明kshopkeeperid數(shù)字供應(yīng)商編號shopkeepername文本供應(yīng)商姓名address文本地址postno數(shù)字郵編officephone文本辦公電話homephone文本住宅電話文本paytype文本付款方式 供應(yīng)商信息表供應(yīng)商信息表主要用于記錄有關(guān)供應(yīng)商的各類信息，包括姓名、地址、電話、付款方式等。它主要用來為系統(tǒng)提供供應(yīng)商的有關(guān)信息，在系統(tǒng)中入庫記錄是與供應(yīng)商記錄相聯(lián)系的，通過入庫記錄可以查找相關(guān)的供應(yīng)商信息。在供應(yīng)商信息中，考慮當實際情況，我特別加入了和付款方式這兩個字段，因為在當今信息世界中，多種多樣的通訊方式和多種多樣的付款方式是必然的，是數(shù)據(jù)庫中必須與以記錄。inrecord 表（入庫信息表）字段名稱數(shù)據(jù)類型說明kinid數(shù)字入庫編號bookid數(shù)字圖書編號employeeid數(shù)字員工編號shopkeeperid數(shù)字供應(yīng)商編號number數(shù)字入庫數(shù)量buydate日期/時間入庫日期 入庫信息表outrecord 表（出庫信息表）字段名稱數(shù)據(jù)類型說明koutid數(shù)字出庫編號bookid數(shù)字圖書編號employeeid數(shù)字員工編號number2數(shù)字出庫數(shù)量outdate日期/時間出庫日期 出庫信息表入庫信息表主要用于記錄有關(guān)入庫的詳細信息，包括入庫數(shù)量、入庫日期以及圖書、員工、供應(yīng)商三方的編號，以便查詢。出庫信息表主要用于記錄有關(guān)出庫的詳細信息，包括出庫數(shù)量、出庫日期以及圖書、員工的編號。出庫信息表和入庫信息表一樣，其實它們都屬于聯(lián)系類型，系統(tǒng)通過這兩個表可以聯(lián)接上其它的表為用戶提供多種條件的聯(lián)接查詢。值得提出的一點是入庫記錄和出庫記錄的添加不僅僅是單表操作，由于它們都與庫存記錄相聯(lián)系，所以，無論您是添中入庫記錄還是添加出庫記錄，都必須同時修改庫存記錄，以保持數(shù)據(jù)的一致性，否則將引發(fā)系統(tǒng)出錯而這些我都讓其在系統(tǒng)中自動完成。無論您是添加入庫記錄，還是添加出庫記錄，系統(tǒng)都將自動修改庫存中圖書的數(shù)量，而且，在您出庫的數(shù)量大于庫存數(shù)量時，系統(tǒng)還會自動提示錯誤，這樣就可以防止一定錯誤的發(fā)生。在入庫信息表和出庫信息表中我還定義了幾個外鍵，它提供了一種表示幾個關(guān)系聯(lián)系的方法。比如，系統(tǒng)中通過在入庫信息表中定義的外鍵 bookid、employeeid和shopkeeperid可以將庫存信息表、員工信息表和供應(yīng)商信息表聯(lián)系在一起，從而方便地實現(xiàn)聯(lián)接查詢，而且，引入外鍵的定義是實體完整性約束的一個主要方面。key 表（密碼信息表）字段名稱數(shù)據(jù)類型說明kkeyname文本用戶姓名keyno文本用戶密碼 密碼信息表密碼信息表主要用于記錄所有的用戶名和用戶密碼。它是在用戶登陸時用來確定用戶和密碼的正確性，以防止非法用戶登陸。通過以上設(shè)計已經(jīng)完成了系統(tǒng)的概要設(shè)計，當我們有了系統(tǒng)的功能模塊圖和數(shù)據(jù)庫之后，就需要著手去實現(xiàn)每一個模塊，為每一個功能設(shè)計程序流程圖，這也就是系統(tǒng)的詳細設(shè)計。167。 系統(tǒng)詳細設(shè)計在前面的概要設(shè)計中，已將系統(tǒng)劃分為多個模塊，并將它們按照一定的原則組裝起來，同時確定了每個功能及模塊之間的外部接口。現(xiàn)在所要做的就是確定每個模塊具體執(zhí)行過程，也可以說是“過程設(shè)計”。在處理過程設(shè)計時我采用的是結(jié)構(gòu)化程序設(shè)計（簡稱sp）方法。需要指出的是系統(tǒng)的詳細設(shè)計并不是指具體的編程序，而是將概要設(shè)計階段產(chǎn)生的系統(tǒng)功能模塊圖細化成很容易產(chǎn)生程序的圖紙。因此詳細設(shè)計的結(jié)果基本決定了最終程序的質(zhì)量。為軟件的質(zhì)量，延長軟件的生存期，軟件的可測試性、可維護性提供重要的保障。詳細設(shè)計的目標不僅是邏輯上正確地實現(xiàn)每個模塊的功能，還應(yīng)使設(shè)計出的處理過程清晰易讀。由前一階段產(chǎn)生的系統(tǒng)功能模塊圖，我為系統(tǒng)的主要部分設(shè)計了如下程序流程圖：通過以上步驟，基本上完成了對整個系統(tǒng)的總體設(shè)計，接下來所要做的就是軟件的編碼工作。系統(tǒng)總體設(shè)計的好壞直接影響著下一步工作，只有在這一階段設(shè)計出好的模塊圖和程序流程圖，才能更有利于編碼，產(chǎn)生好的軟件系統(tǒng)。第五章 系統(tǒng)應(yīng)用程序設(shè)計167。 系統(tǒng)窗體模塊組成 167。 數(shù)據(jù)模塊窗體的設(shè)置在編寫數(shù)據(jù)庫應(yīng)用程序時，經(jīng)常要遇到這樣的情況，即好多組件、窗體同時訪問相同的數(shù)據(jù)源，如果為每一個組件或者窗體都設(shè)置一個數(shù)據(jù)源將是十分耗時的工件，而且要保證這些數(shù)據(jù)源的確是相同的也需花一番功夫。那么，能不能將這些數(shù)據(jù)源集中管理，最好是做成一個統(tǒng)一的模塊，需要時就將該模塊引入而不必直接操作數(shù)據(jù)源本身呢？數(shù)據(jù)模塊（datamodule）是解決這個問題最好的答案。簡單說來，數(shù)據(jù)模塊是用來集中管理數(shù)據(jù)源的一個窗體，該窗體可被需要的地方隨時引入。（datamoduleform）窗體圖，除報表窗體外所有的數(shù)據(jù)存取組件和數(shù)據(jù)源組件都在此數(shù)據(jù)模塊中進行了定義。值得一提的是，設(shè)置了數(shù)據(jù)庫database組件，該組件引入了系統(tǒng)所需的唯一的數(shù)據(jù)庫tsxs，database組件的databasename屬性設(shè)置為tsckgl。tsxs數(shù)據(jù)庫已在odbc配置程序中進行了設(shè)置。其他的數(shù)據(jù)存取組件都是基于此數(shù)據(jù)庫組件創(chuàng)建的，這樣做的好處是，當數(shù)據(jù)庫的別名或者其他信息改變之后，只需修改tdatabase組件的aliasname屬性即可。另外，在本系統(tǒng)的數(shù)據(jù)模塊窗體圖中，我大多采用的aodquery組件而沒有采用bde組，這主要是基于對ado組件的了解。在delphi的學(xué)習(xí)中我對ado組件了解的更加清楚，使用也較bde更為熟練，而且，ado組件的功能也較bde更為強大，所以在這里大多采用ado組件來進行數(shù)據(jù)庫聯(lián)接。同時我也使用了bde組件中的table，因為在某些時候bde有著其自身特有的優(yōu)越性。 167。 主窗體功能模塊的實現(xiàn) file://主窗體程序代碼public file://在程序的起始部分，定義快捷按鈕點擊事件procedure popup1handler(sender:tobject)。procedure popup2handler(sender:tobject)。**********************************************************************procedure (sender: tobject)。begin file://快捷按鈕1(點“按出版社分類”按鈕產(chǎn)生)的點擊事件with do begin file://打開數(shù)據(jù)模塊窗體的mainquery，對bookrecord表進行操作close。 file://關(guān)閉mainquery。 file://清除sql屬性中的sql命令語句(39。39。select * from bookrecord where publisher=:pub39。39。)。 file://添加新的sql語句(39。39。pub39。39。).value:=(sender as tmenuitem).caption。open。 file://重新打開mainqueryend。end。**********************************************************************procedure (sender: tobject)。var s1,s2,s3,s4,s5 :string。 file://設(shè)立5個變量以方便實現(xiàn)模糊查詢begin file://主窗口庫存查詢按鈕事件with dobeginclose。(39。39。select * from bookrecord39。39。)。(39。39。where bookid like :bookid and bookname like :name and author like :author and publisher like :pub and booktype like :booktype39。39。)。 file://使用like語句來實現(xiàn)模糊查詢if 39。39。39。39。 then s1:=39。39。%39。39。++39。39。%39。39。 else s1:=39。39。%39。39。(39。39。bookid39。39。).value:=s1。 file://給變量s1賦值if 39。39。39。39。 then s2:=39。39。%39。39。++39。39。%39。39。 else s2:=39。39。%39。39。(39。39。name39。39。).value:=s2。 file://給變量s2賦值if 39。39。39。39。 then s3:=39。39。%39。39。++39。39。%39。39。 else s3:=39。39。%39。39。(39。39。author39。39。).value:=s3。 file://給變量s2賦值if 39。39。39。39。 then s4:=39。39。%39。39。++39。39。%39。39。 else s4:=39。39。%39。39。(39。39。pub39。39。).value:=s4。 file://給變量s2賦值if 39。39。39。39。 then s5:=39。39。%39。39。++39。39。%39。39。 else s5:=39。39。%39。39。(39。39。booktype39。39。).value:=s5。 file://給變量s2賦值open。if fieldvalues[39。39。bookid39。39。]=null file://判斷是否找到記錄then beginmessagedlg(39。39。沒有找到你所需要的記錄！39。39。,mtinformation,[mbok],0)。:=39。39。39。39。:=39。39。39。39。:=39。39。39。39。:=39。39。39。39。:=39。39。39。39。close。(39。39。select * from bookrecord39。39。)。 file://這里相當于一個刷新功能open。end。end。end。**********************************************************************procedure (sender: tobject)。begin file://庫存表刷新按鈕事件with dobeginclose。(39。39。select * from bookrecord39。39。)。open。end。 end。**********************************************************************procedure (sender: t