【正文】 模塊組成 用戶登錄窗體的的實現(xiàn) 本窗體是為了讓工作人員或藥房管理員按照用戶名 和密碼進行登錄，然后才能使用系統(tǒng)功能。+39。39。界面圖如：圖 圖 “ 確認發(fā)藥 ” 按鈕源代碼如下 ： procedure (Sender: TObject)。編號 39。 set 庫存量 =39。 (sql)。and fayao. 處 方 單 號=39。 :=true。from fayao, 藥品資料 39。39。).asstring。 //找到此藥品發(fā)出的數(shù)量 totalnum:=totalnumoutnum。 close。)。39。 splash:=(application)。然后再把概念模式轉(zhuǎn)換成邏輯模式。 3. 窗體：用戶可以通過創(chuàng)建窗體逐條顯示記錄，便于詳細的查 看和編輯，還可以對窗體進行編程。利用它可很方便地建立日常的管理數(shù)據(jù)庫。 Open方 法和 ExecSQL方法是不一樣的。 在使用動態(tài) SQL語句編程時，常常用到一個很重要的方法 Prepare，調(diào)用 Prepare 方法之后， Delphi會將帶參數(shù)的 SQL語句傳送給與其對應(yīng)的數(shù)據(jù)庫引擎，對動態(tài) SQL語句進行 語法分析和優(yōu)化。唯一的要求是在使用 ADO組件時必須運行 ADO/OLE－ DB。由此可以看出圖形組件的功能很弱，圖形組件的用處何在呢？其實使用圖形組件的最大好處在于節(jié)省資源，正是因為它們的功能較弱，所以使用的系統(tǒng)資源就要少。 江蘇大學本科生畢業(yè)論文 第 16 頁 共 55 頁 16 第三章： 應(yīng)用系統(tǒng)開發(fā)工具 VCL組件的體系結(jié)構(gòu) Delphi類可以粗略地分成兩部分：一部分是組件類，這些組件類通常以某種方式出現(xiàn)在組件面板上，當用戶從組件面板上點取一個類的圖標后，在程序中就自 動生成了該類的對象（非可視組件除外）；另一部分是功能類，這此功能類的對象通常出現(xiàn)在程序代碼中，起著不可代替的作用，但是這些功能類在組件面板上是找不到的。 DDL語句可以用于創(chuàng)建用戶和重建數(shù)據(jù)庫對象。 SQL通常使用于數(shù)據(jù)庫的通訊。 ，列的順序無關(guān)緊要，但不能重復(fù)。 消除這種 M:N情況的辦法也很簡單，只需在二表之間增加一個表，則原來 M:N的關(guān)系就改成了 M:1， 1:N的關(guān)系了。數(shù)據(jù)表設(shè)計不僅要滿足數(shù)據(jù)存儲的要求，還要增加一些如反映有關(guān)信息、操作責任、中間數(shù)據(jù)的字段或臨時數(shù)據(jù)表。 （ 5） 加載測試工作貫穿于程序測試工作的全過程， 整個錄入、修改、查詢、處理工作均可視為對數(shù)據(jù)庫的加載測試工作。系統(tǒng)自動接收 門診 收費處已收的處方單 并打印標有藥品分類 (甲、乙、丙 )的藥品清單，便于病人核對藥品及價格。 數(shù)據(jù)庫模式的最后一個要素是業(yè)務(wù)規(guī)則，它是對需要反映在數(shù)據(jù)庫和數(shù)據(jù)庫應(yīng)用程序中的業(yè)務(wù)活動的約束。 關(guān)系模型和層次、網(wǎng)狀模型的最大判別是用關(guān)鍵碼而不是用指針導(dǎo)航數(shù)據(jù)，表格簡單用戶易懂，編程時并不涉及存儲 結(jié)構(gòu)，訪問技術(shù)等細節(jié)。索引可以用來排序和快速訪問數(shù)據(jù)。把設(shè)計轉(zhuǎn)變?yōu)閷嶋H的數(shù)據(jù)庫，并且這些數(shù)據(jù)庫帶有功能完備、高效能的應(yīng)用。江蘇大學本科生畢業(yè)論文 第 1 頁 共 55 頁 1 目 錄 摘 要 .…………………………………………………………………………………………… .2 第一章 概述 ……………………………………………………………………………… .3 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)簡介 ……… ..… ..………………… …………………………… ..3 醫(yī)院藥庫管理系統(tǒng) 簡介 …………………………………………………………… .… ..6 第二章 數(shù)據(jù)庫理論基礎(chǔ) …………………………………………………………… ..8 數(shù)據(jù)庫系統(tǒng)設(shè)計及范式分析 ………………………………………… ……………… ..8 SQL語言 介紹 ………………………………………………………………………… ...12 SQL基礎(chǔ) ………………………………………………… ……………………1 2 SQL語句 …………………………………………………………………… ...…13 第三章 應(yīng)用系統(tǒng)開發(fā)工具 ……………………………………………………… ...16 VCL組件的體系結(jié)構(gòu) …………………………………………………… .16 數(shù)據(jù)庫組件介紹 ……………………………… …………………………………… .....17 SQL語言在 Delphi中的應(yīng)用 ………………………………………………………… .17 Microsoft Access簡介 ………………………………………………………… .……2 0 第四章 醫(yī)院藥庫管理系統(tǒng) 設(shè)計分析 ………………………………………… ..22 系統(tǒng)功能分析 ………………………………………………………………………… .22 系統(tǒng)功能模塊劃分 ……………………………………………………………………2 2 數(shù)據(jù)流程圖 ……… …………………………………………………… ..………………2 3 系統(tǒng)數(shù)據(jù)庫設(shè)計 …………………………………………………………… .………… .23 第五章 醫(yī)院藥庫管理系統(tǒng) 應(yīng)用程序設(shè)計 ……………………………… ..… ..26 啟動畫面的實現(xiàn) ……………… .……………………………………………………… 26 系統(tǒng)管理模塊組成 … … .……………………………………………………………… 26 醫(yī)院藥庫發(fā)藥模塊的實現(xiàn) …………………… ...…………………………………… ..27 醫(yī)院 藥庫 發(fā)藥窗體 的實現(xiàn) …………………………………………………… 27 發(fā)藥撤消功能窗體的實現(xiàn) …………………………………………………… 30 醫(yī)院藥庫數(shù)據(jù)管理模塊的實現(xiàn) ……………………………………………………… ..32 藥品價格調(diào)整窗體 …………………………………………………………… .32 藥品入庫窗體 …………………………………………………………… .…… 33 藥品出庫窗體 ………………………………………………………………… .33 庫存預(yù)警窗體 ………………………………………………………………… 33 江蘇大學本科生畢業(yè)論文 第 2 頁 共 55 頁 2 有效期預(yù)警窗體 ……………………………………………………………… 34 第六章 總結(jié) …………………………………………………………………………… .35 致 謝 ………………………………………………………………………………………… ...37 參考 文獻 ………………………………………………………… ...………………… ..…… ..38 附錄 ………………………………………………………………………………………… … ...38 摘要 ： 醫(yī)院藥庫管理系統(tǒng)是醫(yī)院信息系統(tǒng)的一個重要部分，它很好地實現(xiàn)了醫(yī)院藥庫所需的各種功能。 數(shù)據(jù)庫技術(shù)在計算機軟件鄰域研究中一直是非常重要的主題，產(chǎn)生于 60年代， 30多年來數(shù)據(jù)庫技術(shù)得到了迅速 發(fā)展，并已形成較為完整的理論體系和一大批實用系統(tǒng)。 應(yīng)用元數(shù)據(jù) 存儲在數(shù)據(jù)庫中的第四種數(shù)據(jù)是應(yīng)用元數(shù)據(jù)，它用來存儲用戶窗體、報表、查詢和其他形式的查詢組件。關(guān)系模型是數(shù)學化模型。業(yè)務(wù)規(guī)則是模式的一個重要部分，因為他們指定了無論什么數(shù) 據(jù)變化到達 DBMS引擎，允許的數(shù)據(jù)值必須滿足的約束。系統(tǒng)根據(jù) 處方 發(fā)藥，根據(jù)作廢發(fā)票退藥。 要設(shè)計出一個好的信息管理系統(tǒng)數(shù)據(jù)庫，除滿足系統(tǒng)所要求的功能外，還必須遵守下列原則： ? 基本表的個數(shù)越少越好。 （ 3） 存儲設(shè)備和存儲空間組織：確定數(shù)據(jù)的存放地點、存儲路徑、存儲設(shè)備等，備份方案，對多版本如何保證一致性和數(shù)據(jù)的完整性。 （ 3）確定數(shù)據(jù)資源的安全保密屬性： 一般 DBMS都提供給我們自己定義數(shù)據(jù)安全保密性的功能。 在對表的形式進行了規(guī)范化定義后，數(shù)據(jù)結(jié)構(gòu)還有五種規(guī)范化定義，定名為規(guī)范化模式，稱為范式。 ANSI（美國國家標準學會）聲稱， SQL是關(guān)系數(shù)據(jù)庫管理系統(tǒng)的標準語言。下面是 DDL命令： 江蘇大學本科生畢業(yè)論文 第 14 頁 共 55 頁 14 CREATE TABLE， ALTER TABLE， DROP TABLE， CREATE INDEX， DROP INDEX 下面是一個簡單 SQL語句的例子： 我們使用 SQL語句來從 user中檢索 ?username?為 ?shijian?的藥房操作者姓名： SELECT username FROM user WHERE username = ?shijian? DDL與 DML 數(shù)據(jù)定義語言 DDL：它是用來創(chuàng)建和修改數(shù)據(jù)庫結(jié)構(gòu)的一種語句，包括 Create、 Alter和 Drop 語句。在 Delphi中，每一個類的祖先都是 Tobject類 ,整個類的層次結(jié)構(gòu)就像一棵倒掛的樹，在最頂層的樹根即為 Tobject類。在一個應(yīng)用程序中，如果能在不影響其功能的前提下合理大量地使用圖形組件，將會大減少程序?qū)ο到y(tǒng)資源的消耗。 ADO組件的使用使得DELPHI在訪問數(shù)據(jù)的類型和采用的技術(shù)方面都有了很大的突破。雖然在用動態(tài) SQL語句編程時，調(diào)用 Prepare方法并不是必須的，但是調(diào)用 Prepare方法后，會極大地提高動態(tài) SQL 語句的執(zhí)行性能，特別是當要反復(fù)多次執(zhí)行同一條動態(tài) SQL語句時，其優(yōu)越性會更加明顯。 Open方法只能用來執(zhí)行 SQL語言的查詢語句 (Select命令 )， 并返回一個查詢結(jié)果集，而 ExecSQL方法還可以用來執(zhí)行其它常用的 SQL語句 (如 INSERT, UPDATE, DELETE等命令 )，例如： (這樣會返回一個查詢結(jié)果集 ) 如果調(diào)用 Open方法，而沒有查詢結(jié)果時，會出錯。Access實際上是一個基于關(guān)系型數(shù)據(jù)庫的數(shù)據(jù)庫管理系統(tǒng)。 江蘇大學本科生畢業(yè)論文 第 22 頁 共 55 頁 22 4. 報表：生成報表目的是進行計算、打印、分組和匯總數(shù)據(jù)。將概念設(shè)計從設(shè)計過程中獨立開來，使各階段的任務(wù)相對單一化，設(shè)計復(fù)雜程度大大降低，不受特定 DBMS的限制。 。39。 :=39。 end。 if totalnum0 then begin showmessage(39。 sql:=39。39。+ 39。 :=true。+39。 江蘇大學本科生畢業(yè)論文 第 30 頁 共 55 頁 30 。+39。+(39。 醫(yī)院藥庫發(fā)藥模塊的實現(xiàn) 醫(yī)院藥庫發(fā)藥 窗體 的實現(xiàn) 醫(yī)院藥房發(fā)藥窗體的功能主要是工作人員對門診收費子系統(tǒng)已經(jīng)收費的藥品信息表格的修改。 :=39。 and password=39。//延時并刷新 ,推遲出現(xiàn) 。由于這個系統(tǒng)的 數(shù)據(jù)比較少，其表之間的關(guān)系也比較簡單，可以簡單扼要地將局部模式看成全局模式，事實上也是正確的！ （ 1） 設(shè)計局部 ER模式 實體和屬性的定義： user（ username,password） //只與登錄系統(tǒng)有關(guān)，與具體業(yè)務(wù)無關(guān)。 6. 宏：可以將數(shù)據(jù)中不同對象聯(lián)在一起，從而形成一個數(shù)據(jù)管理系統(tǒng)。可以為各級別用戶查找、管理和共享數(shù)據(jù)提供一種簡單的方法。如： 江蘇大學本科生畢業(yè)論文 第 20 頁 共 55 頁 20 (沒有返回結(jié)果 ) 當然在設(shè)計應(yīng)用程序時，程序設(shè)計人員是無法確定 TQuery或 TADOquery組件中的 SQL 語句是否會返回一個查詢結(jié)果的。 TadoQuery部件還有一個 Prepare屬性，這是一個布爾型屬性，當其屬性值為 True時， 表明該查詢已被準備好了 ( SQL 語 句已被傳送到數(shù)據(jù)庫引擎中 ) ， 當我們使用參數(shù)編輯器Parameters Editor來為動態(tài) SQL語句中的參數(shù)賦值時，當設(shè)置完相應(yīng)的參數(shù)值并退出參數(shù)編輯器時， Delphi會隱含地調(diào)用 Prepare方法以準備好查詢。數(shù)據(jù)模塊設(shè)計窗江蘇大學本科生畢業(yè)論文 第 18 頁 共 55 頁 18 口中包含了所有以 .DTI作為文件擴展名的 Data D