【正文】 擁有者負(fù)責(zé)其顯示，而且它們還能觸發(fā)一些和鼠標(biāo)活動相關(guān)的事件。由此可以看出圖形組件的功能很弱，圖形組件的用處何在呢？其實(shí)使用圖形組件的最大好處在于節(jié)省資源，正是因?yàn)樗鼈兊墓δ茌^弱，所以使用的系統(tǒng)資源就要少。 非可視組件是與可視組件相并列的另一類組件，非可視組件在程序運(yùn)行中是不 可見的（除各種對話框組件之外，事實(shí)上有人認(rèn)為對話框組件不能歸入非可視組件，應(yīng)該是另一種介于可視與非可視之間的組件）。也就是說組件這個(gè)概念要大于控件，控件在內(nèi)涵上包含于組件中。 數(shù)據(jù)庫組件介紹 用 Delphi6開發(fā)數(shù)據(jù)庫應(yīng)用，重點(diǎn)是和各種數(shù)據(jù)庫組件打交道，能和數(shù)據(jù)庫掛鉤的組件對象有 5種， 它們是： Session（數(shù)據(jù)庫會話）、 Database（數(shù)據(jù)庫）、 Dataset（數(shù)據(jù)集）、DataSource（數(shù)據(jù)源）、 Data control（數(shù)據(jù)控制組件，也叫 datacontrols即數(shù)據(jù)感知組件）。 ADO組件 Microsoft公司的 ActiveX Data Objects（ ADO）格式數(shù)據(jù)庫的組件。 ADO的對象模型是所有數(shù)據(jù)訪問接口對象模型中最簡單的一種。 OLE DB是一種底層編程接口，用來訪問許多不同類型的數(shù)據(jù)源，其中包括消息、文件系統(tǒng)以及其他一些非傳統(tǒng)的數(shù)據(jù)源。 OLEDB提供了訪問任何數(shù)據(jù)資源的方法，包括相互關(guān)聯(lián)的數(shù)據(jù)庫和相互不關(guān)聯(lián)的數(shù)據(jù)庫、 Email和文件系統(tǒng)、文本和圖形以及用戶定義的數(shù)據(jù) 對象。唯一的要求是在使用 ADO組件時(shí)必須運(yùn)行 ADO/OLE－ DB。 數(shù)據(jù)模塊設(shè)計(jì)窗口 數(shù)據(jù)模塊設(shè)計(jì)窗口是用來設(shè)計(jì)和維護(hù)數(shù)據(jù)模塊的。 DTI文件在編譯時(shí)不起任何作用?？梢栽?Tquery或 TADOquery組件的 SQL屬性中設(shè)置 SQL語句。還可以使用 Delphi的 SQL Builder來自動生成 SQL語句，這樣可以避免手工編寫 SQL而可能造成的語法錯(cuò)誤。動態(tài) SQL語句，也被稱作參數(shù)化的語句，在其中間包含著表示字段名或表名的參數(shù)，例如下面的語句是一條動態(tài) SQL語句： Select * From username Where password=:passCode。為參數(shù)賦值有三種方法： ①根據(jù)參數(shù)在 SQL語句中出現(xiàn)的順序，設(shè)置 TADOQuery組件的 parameters屬性值為參數(shù) 賦值。 ③將 TADOQuery組件的 DataSource屬性設(shè)置為另一個(gè)數(shù)據(jù)源，這樣將另一個(gè)數(shù)據(jù)源中與當(dāng)前TADOQuery組件的 SQL語句中的參數(shù)名相匹配的字段值賦給其對應(yīng)的參數(shù)。 在使用動態(tài) SQL語句編程時(shí)，常常用到一個(gè)很重要的方法 Prepare，調(diào)用 Prepare 方法之后， Delphi會將帶參數(shù)的 SQL語句傳送給與其對應(yīng)的數(shù)據(jù)庫引擎，對動態(tài) SQL語句進(jìn)行 語法分析和優(yōu)化。 如果在應(yīng)用程序中執(zhí)行一條 SQL語句之前并沒有顯式地調(diào)用Prepare方法，每次在執(zhí)行 SQL 語句時(shí)， Delphi會隱含地調(diào)用 Prepare方法以準(zhǔn)備這個(gè)查詢。 江蘇大學(xué)本科生畢業(yè)論文 第 19 頁 共 55 頁 19 當(dāng) SQL語句執(zhí)行完之后，要想準(zhǔn)備下一個(gè)查詢，首先必須調(diào)用 Close方法，然后才能調(diào)用Prepare方法準(zhǔn)備下一個(gè)查詢。 當(dāng)然在調(diào)用 Prepare方法準(zhǔn)備好一個(gè)查詢時(shí)，會消耗一些數(shù)據(jù)庫資源， 因而每當(dāng)一個(gè)查詢執(zhí)行完畢之后，要養(yǎng)成調(diào)用 UnPrepare方法以撤消查詢的好習(xí)慣。 在程序運(yùn)行過程中，要想設(shè)置 Tquery或 TADOquery部件的 SQL屬性，必須首先調(diào)用 Close方法，關(guān)閉 TQuery或 TADOquery部 件，然后再調(diào)用 Clear方法清除 SQL屬性中現(xiàn)存的 SQL命令語句， 最后再調(diào)用 Add方法為 SQL屬性設(shè)置新的 SQL命令語句。在應(yīng)用程序中為 SQL屬性設(shè)置新的 SQL 命令語句時(shí)，必須要調(diào)用 Clear方法以清除 SQL屬性中現(xiàn)存的 SQL命令語句，如果不調(diào)用 Clear方法，便調(diào)用 Add方法向 SQL屬性中設(shè)置 SQL命令語句，那么新設(shè)置的 SQL命令語句會追加在現(xiàn)存 SQL命令語句后面， 在程序運(yùn)行時(shí)常常會出現(xiàn)出乎意料的查詢結(jié)果甚至程序無法運(yùn)行下去。當(dāng)然有些數(shù)據(jù)庫服務(wù)器也支持在 TQuery或TADOquery部件的 SQL屬性中設(shè)置多條 SQL語句，只要數(shù)據(jù)庫服務(wù)器允許這樣，我們在編程時(shí)可以為 SQL 屬性設(shè)置多條 SQL語句。在設(shè)計(jì)過程中，設(shè)置完 TQuery或 TADOquery部件的 SQL屬性之后將其 Active屬性的值置為 True， 這樣便可以執(zhí)行SQL屬性中的 SQL程序，如果應(yīng)用中有與 TQuery或 TADOquery部件相連的數(shù)據(jù)瀏覽部件 ( 如TDDGrid TDBEdit等 )那么在這些數(shù)據(jù)瀏覽部件中會顯示 SQL程序的執(zhí)行結(jié)果。 Open方 法和 ExecSQL方法是不一樣的。此時(shí)應(yīng)該調(diào)用 ExecSQL 方法來代替 Open方法。對于這種情況應(yīng)當(dāng)用 Try? Except模塊來設(shè)計(jì)程序。 例如： Try Except End 通過 Tquery或 TADOquery組件可以獲得兩種類型的數(shù)據(jù)： (1) “ 活動 ” 的數(shù)據(jù) 這種數(shù)據(jù)就跟通過 TTable部件獲得的數(shù)據(jù)一樣，用戶可以通過數(shù)據(jù)瀏覽部件來編輯修改這些數(shù)據(jù)，并且當(dāng)調(diào)用 Post方法或當(dāng)焦點(diǎn)離開當(dāng)前的數(shù)據(jù)瀏覽部件時(shí)，用戶對數(shù)據(jù)的修改自動地被寫回到數(shù)據(jù)庫中。在缺省情況下，通過 TQuery部件獲得的查詢結(jié)果數(shù)據(jù)是只讀數(shù)據(jù)，要想獲得 “ 活動 ” 的數(shù)據(jù)，在應(yīng)用程序中必須要設(shè)置 Tquery或TADOquery組件的 RequestLive屬性值為 True，然而并不是在任何情況下 (通過設(shè)置RequestLive的屬值 True)都可以獲得 “ 活動 ” 的數(shù)據(jù)的，要想獲得 “ 活動 ” 的數(shù)據(jù)，除了將TQuery部件的 RequestLive屬性設(shè)置為 True外，相應(yīng)的 SQL命令還要滿足以下條件。各比較運(yùn)算之間可以有并和交運(yùn)算： AND和 OR 當(dāng)通過 SQL語句查詢數(shù)據(jù)庫服務(wù)器 中的數(shù)據(jù)庫表： * 查詢只能涉及到一個(gè)單獨(dú)的表 * SQL語句中不能包含 ORDER BY命令 江蘇大學(xué)本科生畢業(yè)論文 第 21 頁 共 55 頁 21 * SQL語句中不能含聚集運(yùn)算符 SUM或 AVG運(yùn)算 另外，如果是查詢 Sybase數(shù)據(jù)庫中的表，那么被查詢的表中只能有一個(gè)索引。對于數(shù)據(jù)庫服務(wù)器中的 SQL查詢，只能返回錯(cuò)誤的代碼。 MS Access簡介 Access是 office自帶的數(shù)據(jù)庫工具，具有基本的數(shù)據(jù)庫功能，也是一個(gè)很好的管理工具。利用它可很方便地建立日常的管理數(shù)據(jù)庫。 Access屬于 Microsoft Office的套件。在 Windows操作系統(tǒng)中運(yùn)行。 Access的功能 1. 數(shù)據(jù)庫中包含多個(gè)表，每個(gè)表可以分別表示和存儲不同類型的信息。 3. 用戶可以通過創(chuàng)建查詢在一個(gè)表或多個(gè)數(shù)據(jù)表中檢索、更新和刪除記錄，并且可以對數(shù)據(jù)庫中的數(shù)據(jù)進(jìn)行各種計(jì)算。 5. 通過創(chuàng)建報(bào)表，用戶可以將數(shù)據(jù)以特定的方式加以組織，從而達(dá)到分析可打印的目的。每一個(gè)表都包含了體現(xiàn)同一主題的同類信息。表中的每一列都包都包含特定主題下的某一實(shí)例的所有信息數(shù)據(jù)，稱為 “ 字段 ” ；表中每一行所包含的是特定主題下的某一實(shí)例的所有信息數(shù)據(jù)，稱為 “ 記錄 ” 。 3. 窗體：用戶可以通過創(chuàng)建窗體逐條顯示記錄，便于詳細(xì)的查 看和編輯，還可以對窗體進(jìn)行編程。 5. 頁：功能上類似于典型的窗體和報(bào)表，但數(shù)據(jù)訪問頁是允許用戶查看、編輯和匯報(bào)駐留在瀏覽器中的數(shù)據(jù)和 HTML頁。 7. 模塊：可以保存 VB應(yīng)用程序的聲明和過程。病人的需求是持相關(guān)證明 （掛號單，收據(jù)等）到 醫(yī)院藥庫 領(lǐng)藥，推藥，查詢。 醫(yī)院藥庫 管理人員的功能最為復(fù)雜 ,包括對工作人員、藥庫的藥物資料進(jìn)行管理和維護(hù)，及系統(tǒng)狀態(tài)的查看、維護(hù)并生成各類報(bào)表。 ? 對醫(yī)院藥庫的藥品數(shù)據(jù)進(jìn)行維護(hù)。 ? 醫(yī)院藥庫 發(fā)藥模塊：直接與病人有 業(yè)務(wù)往來的模塊。 醫(yī)院藥庫業(yè)務(wù)管理系統(tǒng) 江蘇大學(xué)本科生畢業(yè)論文 第 23 頁 共 55 頁 23 圖 數(shù)據(jù)流程圖 根據(jù)以上所做的分析，并略掉一些細(xì)節(jié)（如不考慮用戶的登錄；對記錄的維護(hù)），得出以下的數(shù)據(jù)流圖。然后再把概念模式轉(zhuǎn)換成邏輯模式。 利用 ER方法進(jìn)行數(shù)據(jù)庫的概念設(shè)計(jì)，可分成三步進(jìn)行：首先設(shè)計(jì)局部 ER模式，然后把各局部 ER模式綜合成一個(gè)全局模式，最后對全局 ER模式進(jìn)行優(yōu)化，得到最終的模式，即概念模式。 藥品資料（ 編號 ,名稱 , 規(guī)格 , ?? , 上限 , 下限 , 庫存量） 處方 （ 處方單號 ） //由 HIS的其他系統(tǒng)生成，本系統(tǒng)沒有用到！ fayao (處方單號 , 編號 , 是否發(fā)藥，數(shù)量 ) ER模型的 “聯(lián)系 ”用于刻畫實(shí)體之間的關(guān)聯(lián)。若有聯(lián)系，進(jìn)一步確定是 1:N， M:N，還是 1:1等。 聯(lián)系定義 :如圖 醫(yī)院藥庫退藥子系統(tǒng) 藥品出庫子系統(tǒng) 處方 fayao 藥品資 料 江蘇大學(xué)本科生畢業(yè)論文 第 25 頁 共 55 頁 25 m n 圖 解釋如下：一個(gè)處方可以有多個(gè)治療藥物，一個(gè)藥物可對應(yīng)于多個(gè)處方。 數(shù)據(jù)庫的實(shí)現(xiàn) 我選用 Microsoft Access 2021來進(jìn)行數(shù)據(jù)庫的邏輯設(shè)計(jì)。那么，能不能將這些數(shù)據(jù)源集中管理，最好是做成一個(gè)統(tǒng)一的模塊，需要時(shí)就將該模塊引入而不必直接 操作數(shù)據(jù)源本身呢？數(shù)據(jù)模塊（ DataModule）是解決這個(gè)問題最好的答案。但本人在開發(fā)這個(gè)系統(tǒng)時(shí)，只有少量的幾個(gè)窗體，并沒有使用數(shù)據(jù)模塊窗體，但它是十分重要的！ 啟動畫面的實(shí)現(xiàn) 啟動畫面是為了給用戶一個(gè)良好的印像，加深軟件的親和力，沒有實(shí)際的功能，在splash窗體中加入了 Image組件。 splash:=(application)。 for i:=0 to 90000000 do 。 //系統(tǒng)主界面的顯示 江蘇大學(xué)本科生畢業(yè)論文 第 27 頁 共 55 頁 27 ?? 系統(tǒng)管理模塊組成 用戶登錄窗體的的實(shí)現(xiàn) 本窗體是為了讓工作人員或藥房管理員按照用戶名 和密碼進(jìn)行登錄，然后才能使用系統(tǒng)功能。 var sql:string。 sql:=39。 +39。39。++39。39。+39。+39。39。++39。39。 (sql)。 if ( and ) then begin showmessage(39。)。39。39。 :=true。 :=true。 :=true。 江蘇大學(xué)本科生畢業(yè)論文 第 28 頁 共 55 頁 28 :=true。 :=true。 close。 end。界面圖如：圖 圖 “ 確認(rèn)發(fā)藥 ” 按鈕源代碼如下 ： procedure (Sender: TObject)。 totalnum:integer。 bianhao:string。 while not() do begin totalnum:=(39。).AsInteger。數(shù)量 39。 //找到此藥品發(fā)出的數(shù)量 totalnum:=totalnumoutnum。編號為： 39。編號 39。 藥品名稱為： 39。名稱 39。 庫存不足，請入庫藥品！本次操作不成功！期待重新發(fā)藥！ 39。 。 end else begin bianhao:=(39。).asstring。update 藥品資料 ,fayao 39。 set 庫存量 =39。, =true where =39。 and 藥品資料 .編號 =39。 and =39。39。39。39。39。 (sql)。 //修改發(fā)藥后庫存量 修改 faoyao表中的是否發(fā)藥記錄！ showmessage(39。)。 。 end。select fayao.*,藥品資料 .庫存量 ,藥品資料 .名稱 ,藥品資料 .規(guī)格 ,藥品資料 .分類 ,藥品資料 .醫(yī)保分類 39。from fayao, 藥品資料 39。 where fayao. 編號 = 藥 品 資 料 . 編號 39。and fayao. 處 方 單 號=39。39。39。39。39。 (sql)。 :=true。