【正文】 :=true。 。 。39。+ +39。39。+39。+39。+ 39。+ 39。 sql:=39。 end。 end。發(fā)藥成功，已經(jīng)更改數(shù)據(jù)庫(kù)中的數(shù)據(jù)！??！ 39。 。 江蘇大學(xué)本科生畢業(yè)論文 第 30 頁(yè) 共 55 頁(yè) 30 。39。+ +39。39。+39。+bianhao+ 39。+bianhao +39。+inttostr(totalnum) +39。+39。 sql:=39。編號(hào) 39。 continue。)。).asstring+ 39。+ (39。).asstring+ 39。+(39。 if totalnum0 then begin showmessage(39。).AsInteger。 //找到發(fā)藥前的庫(kù)存量 outnum:=(39。庫(kù)存量 39。 begin if then begin 。 江蘇大學(xué)本科生畢業(yè)論文 第 29 頁(yè) 共 55 頁(yè) 29 outnum:integer。 var sql:string。 醫(yī)院藥庫(kù)發(fā)藥模塊的實(shí)現(xiàn) 醫(yī)院藥庫(kù)發(fā)藥 窗體 的實(shí)現(xiàn) 醫(yī)院藥房發(fā)藥窗體的功能主要是工作人員對(duì)門(mén)診收費(fèi)子系統(tǒng)已經(jīng)收費(fèi)的藥品信息表格的修改。 end。 :=false。 :=true。 :=true。 :=true。 :=true。 end //如果姓名或密碼有錯(cuò)誤，通知用戶檢查！ else begin //如果輸入正確，使菜單和按鈕可用！ :=true。 :=39。 :=39。用戶名或密碼錯(cuò)誤，請(qǐng)檢查！ 39。 。39。39。39。39。 and password=39。39。39。39。39。select * from user where username=39。 begin 。源代碼比較簡(jiǎn)單， procedure (Sender: TObject)。//延時(shí)并刷新 ,推遲出現(xiàn) 。 。啟動(dòng)畫(huà)面的窗體略，主要的源代碼如下 ( za在 中 )：?? 。簡(jiǎn)單說(shuō)來(lái)，數(shù)據(jù)模塊是用來(lái)集中管理數(shù)據(jù)源的一個(gè)窗體，該窗體可被需要的地方隨時(shí)引入。首先創(chuàng)建基本 表： fayao 表和藥品資料 表 如：圖 圖 及 江蘇大學(xué)本科生畢業(yè)論文 第 26 頁(yè) 共 55 頁(yè) 26 圖 兩表之間的關(guān)系：如：圖 圖 第五 章 醫(yī)院藥庫(kù)管理系統(tǒng) 應(yīng)用程序設(shè)計(jì) 在編寫(xiě)數(shù)據(jù)庫(kù)應(yīng)用程序時(shí)，經(jīng)常要遇到這樣的情況，即好多組件、窗體同時(shí)訪問(wèn)相同的數(shù)據(jù)源，如果為每一個(gè)組件或者窗體都設(shè)置一個(gè)數(shù)據(jù)源將是十分耗時(shí)的工件，而且要保證這些數(shù)據(jù)源的確是相同的也需花一番功夫。 其余步驟省略。還要考察一個(gè)實(shí)體類型內(nèi)部是否存在聯(lián)系，兩個(gè)實(shí)體類型之間是否存在聯(lián)系，多個(gè)實(shí)體類型之間是否存在聯(lián)系，等等。一種完整的方式是對(duì)局部結(jié)構(gòu)中任意兩個(gè)實(shí)體類型，依據(jù)需求分析的結(jié)果，考 察局部結(jié)構(gòu)中任意兩個(gè)實(shí)體類型之間是否存在聯(lián)系。由于這個(gè)系統(tǒng)的 數(shù)據(jù)比較少，其表之間的關(guān)系也比較簡(jiǎn)單，可以簡(jiǎn)單扼要地將局部模式看成全局模式，事實(shí)上也是正確的！ （ 1） 設(shè)計(jì)局部 ER模式 實(shí)體和屬性的定義： user（ username,password） //只與登錄系統(tǒng)有關(guān)，與具體業(yè)務(wù)無(wú)關(guān)。將概念設(shè)計(jì)從設(shè)計(jì)過(guò)程中獨(dú)立開(kāi)來(lái)，使各階段的任務(wù)相對(duì)單一化，設(shè)計(jì)復(fù)雜程度大大降低，不受特定 DBMS的限制。 如圖 第 0層 處方單號(hào)（病人） 藥品 藥品 1 藥品 1 圖 第 1層 處方單號(hào) (收費(fèi)憑證 ) 藥品 藥品 醫(yī)院藥庫(kù)發(fā)藥子系統(tǒng) 醫(yī)院藥庫(kù)數(shù)據(jù)庫(kù) 醫(yī)院藥庫(kù)管理系統(tǒng) 調(diào)整價(jià)格子系統(tǒng) 藥品入庫(kù)子系統(tǒng) 系統(tǒng)管理模塊 醫(yī)院藥庫(kù)發(fā)藥模塊 醫(yī)院藥庫(kù)數(shù)據(jù)模塊 其它 登錄功能， 修改密碼功能，權(quán)限管理功 能 發(fā)藥功能，發(fā)藥全部撤消功能，發(fā)藥部分撤消功能 進(jìn) , 出庫(kù) 功能，價(jià)格調(diào)整功能，有效期，庫(kù)存量預(yù)警功能 江蘇大學(xué)本科生畢業(yè)論文 第 24 頁(yè) 共 55 頁(yè) 24 藥品 入庫(kù)單 出庫(kù)單 處方單號(hào) (退費(fèi)憑證 ) 藥品 圖 系 統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì) 在概念設(shè)計(jì)階段中，設(shè)計(jì)人員從用戶的角度看待數(shù)據(jù)及處理要求和約束，產(chǎn)生一個(gè)反映用戶觀點(diǎn)的概念模式。 ? 醫(yī)院藥庫(kù) 數(shù)據(jù)模塊：管理藥庫(kù)的相關(guān)數(shù)據(jù)業(yè)務(wù)。 系統(tǒng) 功能模塊劃分 系統(tǒng)主要功能模塊劃分 :如圖 ? 系統(tǒng)管理模塊：控制工作人員與管理人員的登錄。 醫(yī)院藥庫(kù)管理系統(tǒng)主要有以下幾下功能要求： ? 管理系統(tǒng)用戶的登錄 ? 進(jìn)行發(fā)藥，退藥（全部或部分）業(yè)務(wù)的操作。 醫(yī)院藥庫(kù) 工作人員根據(jù)病人提供的相關(guān)信息通過(guò)系統(tǒng)來(lái)確認(rèn)領(lǐng)藥，推藥，查詢等業(yè)務(wù)。 第四章： 醫(yī)院藥庫(kù)管理 系統(tǒng) 設(shè)計(jì)分析 系統(tǒng)功能分析 醫(yī)院藥庫(kù)管理 系統(tǒng) 需要滿足來(lái)自三方面的需求，這三個(gè)方面分別是病人， 醫(yī)院藥庫(kù) 工作人員和 醫(yī)院藥庫(kù) 管理人員。 6. 宏：可以將數(shù)據(jù)中不同對(duì)象聯(lián)在一起，從而形成一個(gè)數(shù)據(jù)管理系統(tǒng)。 江蘇大學(xué)本科生畢業(yè)論文 第 22 頁(yè) 共 55 頁(yè) 22 4. 報(bào)表：生成報(bào)表目的是進(jìn)行計(jì)算、打印、分組和匯總數(shù)據(jù)。 2. 查詢：用戶通過(guò)查詢可以在表中搜索符合指定條件的數(shù)據(jù)，并可以對(duì)目標(biāo)記錄修改、插入和更新等編輯動(dòng)作。表中信息分行、列存儲(chǔ)。 Access數(shù)據(jù)庫(kù)中的七個(gè)對(duì)象 1. 表：表是用來(lái)保存和組織各種信息的，它是 Access數(shù)據(jù)庫(kù)的基本對(duì)象，其它的數(shù)據(jù)庫(kù)對(duì)象都是以表為基礎(chǔ)來(lái)創(chuàng)建的。 4. 通過(guò)創(chuàng)建聯(lián)機(jī)窗體，用戶可以直接對(duì)數(shù)據(jù)庫(kù)中的記錄執(zhí)行查看和編輯操作。 2. 通過(guò)建立各個(gè)表之間的關(guān)聯(lián)，從而將存儲(chǔ)在不同表中的相關(guān)數(shù)據(jù)有機(jī)地結(jié)合起來(lái)。 Access的數(shù)據(jù)庫(kù)元 素：字段和記錄 數(shù)據(jù)庫(kù)工作表分為行和列，行稱為記錄，列稱為字段?？梢詾楦骷?jí)別用戶查找、管理和共享數(shù)據(jù)提供一種簡(jiǎn)單的方法。Access實(shí)際上是一個(gè)基于關(guān)系型數(shù)據(jù)庫(kù)的數(shù)據(jù)庫(kù)管理系統(tǒng)。我們可以象使用 Excel一樣方便地使用它。當(dāng) Tquery或 TADOquery組件返回一個(gè) “ 活 動(dòng) ” 的查詢結(jié)果數(shù)據(jù)集時(shí)，它的 CanModIfy屬性的值會(huì)被設(shè)置成 True。 如果在應(yīng)用程序中要求 TQuery或 TADOquery組件返回一個(gè) “ 活動(dòng) ” 的查詢結(jié)果數(shù)據(jù)集，但是SQL 命令語(yǔ)句不滿足上述約束條件時(shí)，對(duì)于本地?cái)?shù)據(jù)庫(kù)的 SQL查詢， BDE只能返回只讀的數(shù)據(jù)集。 本地 SQL語(yǔ)句查詢情況下，要得到可更新的數(shù)據(jù)集， SQL語(yǔ)句的限制為： * 查詢只能涉及到一個(gè)單獨(dú)的表 * SQL語(yǔ)句中不能包含 ORDER BY命令 * SQL語(yǔ)句中不能含聚集運(yùn)算符 SUM或 AVG * 在 Select后的字段列表中不能有計(jì)算字段 * 在 Select語(yǔ)句 WHERE部分只能包含字段值與常量的比較運(yùn)算，這些比較運(yùn)算符 是： Like, , , =, =。 (2)非活動(dòng)的數(shù)據(jù) (只讀數(shù)據(jù) ) 用戶通過(guò)數(shù)據(jù)瀏覽部件是不能修改其中的數(shù)據(jù)。在 Try 部分調(diào)用 Open方法，而在 Except部分調(diào)用 ExceSQL方法，這樣才能保證程序的正確運(yùn)行。如： 江蘇大學(xué)本科生畢業(yè)論文 第 20 頁(yè) 共 55 頁(yè) 20 (沒(méi)有返回結(jié)果 ) 當(dāng)然在設(shè)計(jì)應(yīng)用程序時(shí)，程序設(shè)計(jì)人員是無(wú)法確定 TQuery或 TADOquery組件中的 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方法，而沒(méi)有查詢結(jié)果時(shí)，會(huì)出錯(cuò)。 在應(yīng)用程序運(yùn)行過(guò)程中，通過(guò)程序調(diào)用 TQuery或 TADOquery組件的 Open方法或 ExecSQL 方法可以執(zhí)行其 SQL屬性中的 SQL程序。在為 TQuery或 TADOquery部件設(shè)置完 SQL屬性的屬性值之后，也即編寫(xiě)好適當(dāng)?shù)?SQL程序之后，可以有多種方式來(lái)執(zhí)行 SQL程序。 在這里要特別注意的，一般情況下 TQuery或 TADOquery部件的 SQL屬性只能包含一條完整的 SQL語(yǔ)句，它不允許被設(shè)置成多條 SQL語(yǔ)句。在為 TQuery或 TADOquery部件設(shè)置 SQL屬性時(shí)調(diào)用 Close方法總是很安全的，如果 TQuery或 TADOquery部件已經(jīng)被關(guān)閉了，調(diào)用 Close方法時(shí)不會(huì)產(chǎn)生任何影響。在運(yùn)行程序過(guò)程中，通過(guò)程序改變 TQuery或 TADOquery部件的 SQL屬性值時(shí)， Delphi會(huì)自動(dòng)地調(diào)用 Close方法和UnPrepare 方法，以撤消查詢。一般來(lái)說(shuō)，在一個(gè)應(yīng)用程序中應(yīng)該調(diào)用一次 Prepare方法，常常在窗體的 OnCreate事件處理過(guò)程中調(diào)用 Prepare方法， 然后用上述介紹的方法為參數(shù)賦值，最后調(diào)用 Open方法或 ExecSQL方法執(zhí)行 SQL語(yǔ)句，以完成查詢。 TadoQuery部件還有一個(gè) Prepare屬性，這是一個(gè)布爾型屬性，當(dāng)其屬性值為 True時(shí)， 表明該查詢已被準(zhǔn)備好了 ( SQL 語(yǔ) 句已被傳送到數(shù)據(jù)庫(kù)引擎中 ) ， 當(dāng)我們使用參數(shù)編輯器Parameters Editor來(lái)為動(dòng)態(tài) SQL語(yǔ)句中的參數(shù)賦值時(shí)，當(dāng)設(shè)置完相應(yīng)的參數(shù)值并退出參數(shù)編輯器時(shí)， Delphi會(huì)隱含地調(diào)用 Prepare方法以準(zhǔn)備好查詢。雖然在用動(dòng)態(tài) SQL語(yǔ)句編程時(shí)，調(diào)用 Prepare方法并不是必須的，但是調(diào)用 Prepare方法后，會(huì)極大地提高動(dòng)態(tài) SQL 語(yǔ)句的執(zhí)行性能，特別是當(dāng)要反復(fù)多次執(zhí)行同一條動(dòng)態(tài) SQL語(yǔ)句時(shí)，其優(yōu)越性會(huì)更加明顯。利用這種方法也能實(shí)現(xiàn)所謂的連接查詢，創(chuàng)建主要 明細(xì)型數(shù)據(jù)庫(kù)應(yīng)用。 ②直接根據(jù) SQL語(yǔ)句中各參數(shù)的名字，調(diào)用 ParamByName方法來(lái)為各參數(shù)賦值。其中的變量 passCode便是一個(gè)參數(shù)變量，它由一個(gè)冒號(hào)引導(dǎo)，在程序運(yùn)行過(guò)程中，必須要為該參數(shù)賦值，該條 SQL語(yǔ)句才能正確執(zhí)行，每次運(yùn)行應(yīng)用程序時(shí)可以為該參數(shù)變量賦予不同的值。 靜態(tài) SQL語(yǔ)句在程序設(shè)計(jì)時(shí)便已固定下來(lái)，它不包含任何參數(shù)和變量。設(shè)計(jì)程序時(shí)，在該組件的屬性對(duì)話框中選擇 SQL屬性，單擊帶省略號(hào)的按鈕，就可以打開(kāi) String List Editor對(duì)話框，然后我們就可以在對(duì)話框中添加 SQL語(yǔ)句。 SQL語(yǔ)言在 Delphi中的應(yīng)用 在 Delphi中使用 SQL語(yǔ)言非常方便，一般來(lái)說(shuō)，都是通過(guò) Tquery或 TADOquery組件來(lái)使用SQL語(yǔ)言的。數(shù)據(jù)模塊設(shè)計(jì)窗江蘇大學(xué)本科生畢業(yè)論文 第 18 頁(yè) 共 55 頁(yè) 18 口中包含了所有以 .DTI作為文件擴(kuò)展名的 Data Diagram文件的信息。 ADO組件的使用使得DELPHI在訪問(wèn)數(shù)據(jù)的類型和采用的技術(shù)方面都有了很大的突破。 Delphi的 ADO組件無(wú)需依靠 BDE而是使用 ADO技術(shù)，提供了可以通過(guò)數(shù)據(jù)控制組件訪問(wèn)數(shù)據(jù)的新方法。 OLE DB是一個(gè)由 Component Object Model（ COM）接口組成的集合，用來(lái)隱藏創(chuàng)建數(shù)據(jù)訪問(wèn)服務(wù)過(guò)程中的細(xì)節(jié)。 Microsoft公司用來(lái)訪問(wèn) ADO數(shù)據(jù)的應(yīng)用程序界面技術(shù)是 OLE DB。 ADO是 Micrsoft公司關(guān)于各種類型數(shù)據(jù)的高等界面，后來(lái)逐漸演變成滿足所有數(shù)據(jù)訪問(wèn)需要的完整解 決辦法。其中前面 4種統(tǒng)稱為數(shù)據(jù)訪問(wèn)（ Data Access）組件。控件由 Windows系列操作系統(tǒng)提出并使用，而組件是 Borland和其它廠商在對(duì) Windows控件做了必要的擴(kuò)展之后提出來(lái)的概念，它們是在不同時(shí)期由不同的廠商提出的概念。 最后