【正文】 算機(jī)軟件鄰域研究中一直是非常重要的主題，產(chǎn)生于 60年代， 30多年來(lái)數(shù)據(jù)庫(kù)技術(shù)得到了迅速 發(fā)展，并已形成較為完整的理論體系和一大批實(shí)用系統(tǒng)。 第五 章 ：進(jìn)行了具體的程序設(shè)計(jì)，設(shè)計(jì)了一個(gè)操作界面。江蘇大學(xué)本科生畢業(yè)論文 第 1 頁(yè) 共 55 頁(yè) 1 目 錄 摘 要 .…………………………………………………………………………………………… .2 第一章 概述 ……………………………………………………………………………… .3 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開(kāi)發(fā)簡(jiǎn)介 ……… ..… ..………………… …………………………… ..3 醫(yī)院藥庫(kù)管理系統(tǒng) 簡(jiǎn)介 …………………………………………………………… .… ..6 第二章 數(shù)據(jù)庫(kù)理論基礎(chǔ) …………………………………………………………… ..8 數(shù)據(jù)庫(kù)系統(tǒng)設(shè)計(jì)及范式分析 ………………………………………… ……………… ..8 SQL語(yǔ)言 介紹 ………………………………………………………………………… ...12 SQL基礎(chǔ) ………………………………………………… ……………………1 2 SQL語(yǔ)句 …………………………………………………………………… ...…13 第三章 應(yīng)用系統(tǒng)開(kāi)發(fā)工具 ……………………………………………………… ...16 VCL組件的體系結(jié)構(gòu) …………………………………………………… .16 數(shù)據(jù)庫(kù)組件介紹 ……………………………… …………………………………… .....17 SQL語(yǔ)言在 Delphi中的應(yīng)用 ………………………………………………………… .17 Microsoft Access簡(jiǎn)介 ………………………………………………………… .……2 0 第四章 醫(yī)院藥庫(kù)管理系統(tǒng) 設(shè)計(jì)分析 ………………………………………… ..22 系統(tǒng)功能分析 ………………………………………………………………………… .22 系統(tǒng)功能模塊劃分 ……………………………………………………………………2 2 數(shù)據(jù)流程圖 ……… …………………………………………………… ..………………2 3 系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì) …………………………………………………………… .………… .23 第五章 醫(yī)院藥庫(kù)管理系統(tǒng) 應(yīng)用程序設(shè)計(jì) ……………………………… ..… ..26 啟動(dòng)畫面的實(shí)現(xiàn) ……………… .……………………………………………………… 26 系統(tǒng)管理模塊組成 … … .……………………………………………………………… 26 醫(yī)院藥庫(kù)發(fā)藥模塊的實(shí)現(xiàn) …………………… ...…………………………………… ..27 醫(yī)院 藥庫(kù) 發(fā)藥窗體 的實(shí)現(xiàn) …………………………………………………… 27 發(fā)藥撤消功能窗體的實(shí)現(xiàn) …………………………………………………… 30 醫(yī)院藥庫(kù)數(shù)據(jù)管理模塊的實(shí)現(xiàn) ……………………………………………………… ..32 藥品價(jià)格調(diào)整窗體 …………………………………………………………… .32 藥品入庫(kù)窗體 …………………………………………………………… .…… 33 藥品出庫(kù)窗體 ………………………………………………………………… .33 庫(kù)存預(yù)警窗體 ………………………………………………………………… 33 江蘇大學(xué)本科生畢業(yè)論文 第 2 頁(yè) 共 55 頁(yè) 2 有效期預(yù)警窗體 ……………………………………………………………… 34 第六章 總結(jié) …………………………………………………………………………… .35 致 謝 ………………………………………………………………………………………… ...37 參考 文獻(xiàn) ………………………………………………………… ...………………… ..…… ..38 附錄 ………………………………………………………………………………………… … ...38 摘要 ： 醫(yī)院藥庫(kù)管理系統(tǒng)是醫(yī)院信息系統(tǒng)的一個(gè)重要部分，它很好地實(shí)現(xiàn)了醫(yī)院藥庫(kù)所需的各種功能。 第四 章 ：分析了 醫(yī)院藥庫(kù)管理系統(tǒng) 的應(yīng)用需求，按照數(shù)據(jù)庫(kù)設(shè)計(jì)理論一步一步地給 出了系統(tǒng)需求說(shuō)明書、局部 ER圖、全局 ER圖等等 ,利用 MS ACCESS 2021建立了數(shù)據(jù)庫(kù)。把設(shè)計(jì)轉(zhuǎn)變?yōu)閷?shí)際的數(shù)據(jù)庫(kù)，并且這些數(shù)據(jù)庫(kù)帶有功能完備、高效能的應(yīng)用。并非所有的關(guān)系都同樣符合要求，有些關(guān)系比其它關(guān)系更結(jié)構(gòu)化一些。索引可以用來(lái)排序和快速訪問(wèn)數(shù)據(jù)。對(duì)數(shù)據(jù)庫(kù)的一切操作，包括定義、更新及各種控制 ,都是通過(guò) DBMS進(jìn)行的。 關(guān)系模型和層次、網(wǎng)狀模型的最大判別是用關(guān)鍵碼而不是用指針導(dǎo)航數(shù)據(jù)，表格簡(jiǎn)單用戶易懂，編程時(shí)并不涉及存儲(chǔ) 結(jié)構(gòu)，訪問(wèn)技術(shù)等細(xì)節(jié)。它所包含的運(yùn)行處理器用來(lái)處理窗體和數(shù)據(jù)庫(kù)的數(shù)據(jù)交互，以及回答查詢和打印報(bào)表等。 數(shù)據(jù)庫(kù)模式的最后一個(gè)要素是業(yè)務(wù)規(guī)則，它是對(duì)需要反映在數(shù)據(jù)庫(kù)和數(shù)據(jù)庫(kù)應(yīng)用程序中的業(yè)務(wù)活動(dòng)的約束。有利于提高醫(yī)療水平和服務(wù)質(zhì)量，更好的服務(wù)于社會(huì)。系統(tǒng)自動(dòng)接收 門診 收費(fèi)處已收的處方單 并打印標(biāo)有藥品分類 (甲、乙、丙 )的藥品清單，便于病人核對(duì)藥品及價(jià)格。 ? 進(jìn)行任意期間藥庫(kù)藥品庫(kù)存，銷售成本，進(jìn)銷存對(duì)帳以及重點(diǎn)藥品和藥品盤點(diǎn)表的生成、統(tǒng)計(jì)、查詢和打印功能。 （ 5） 加載測(cè)試工作貫穿于程序測(cè)試工作的全過(guò)程， 整個(gè)錄入、修改、查詢、處理工作均可視為對(duì)數(shù)據(jù)庫(kù)的加載測(cè)試工作。 數(shù)據(jù)庫(kù)系統(tǒng)設(shè)計(jì)及范式分析 信息系統(tǒng)的主要任務(wù)是通過(guò)大量的數(shù)據(jù)獲得管理所需要的信息，這就必須存儲(chǔ)和管理大量的數(shù)據(jù)。數(shù)據(jù)表設(shè)計(jì)不僅要滿足數(shù)據(jù)存儲(chǔ)的要求，還要增加一些如反映有關(guān)信息、操作責(zé)任、中間數(shù)據(jù)的字段或臨時(shí)數(shù)據(jù)表。 （ 1）鏈接關(guān)系的確定 在進(jìn)行了上述數(shù)據(jù)規(guī)范化重組后，已經(jīng)可以確保每一個(gè)基本數(shù)據(jù)表 (我們簡(jiǎn)稱為表 )是規(guī)范的，但是這些單獨(dú)的表并不能完整地反映事物，通常需要通過(guò)指標(biāo)體系整體指標(biāo)數(shù)據(jù)才能完整全面地反映問(wèn)題。 消除這種 M:N情況的辦法也很簡(jiǎn)單，只需在二表之間增加一個(gè)表，則原來(lái) M:N的關(guān)系就改成了 M:1， 1:N的關(guān)系了。我們完全可以認(rèn)為所建指標(biāo)體系中的一個(gè)指標(biāo)類就是關(guān)系數(shù)據(jù)庫(kù)中的一個(gè)基本表，而這個(gè)指標(biāo)類下面的一個(gè)個(gè)具體指標(biāo)就是這個(gè)基本表中的一個(gè)字段。 ，列的順序無(wú)關(guān)緊要，但不能重復(fù)。 第二范式 (second normal form，簡(jiǎn)稱 2nd NF)是指每個(gè)表必須有一個(gè) (而且僅一個(gè) )數(shù)據(jù)元素為主關(guān)鍵字 (primary key)，其它數(shù)據(jù)元素與主關(guān)鍵字一一對(duì)應(yīng)。 SQL通常使用于數(shù)據(jù)庫(kù)的通訊。 SQL允許用戶在高層的數(shù)據(jù)結(jié)構(gòu)上工作，而不對(duì)單個(gè)記錄進(jìn)行操作，可操作記錄集，所有 SQL 語(yǔ)句接受集合作為輸入，返回集合作為輸出。 DDL語(yǔ)句可以用于創(chuàng)建用戶和重建數(shù)據(jù)庫(kù)對(duì)象。多行 Insert 語(yǔ)句為拷貝數(shù)據(jù)提供了一種緊湊而高效的方法，但我在自已做的醫(yī)院藥庫(kù)管理系統(tǒng)中沒(méi)有使用這種方法，我在系統(tǒng)中是使用循環(huán)依照上面的用法來(lái)完成多個(gè)記錄的插入。 江蘇大學(xué)本科生畢業(yè)論文 第 16 頁(yè) 共 55 頁(yè) 16 第三章： 應(yīng)用系統(tǒng)開(kāi)發(fā)工具 VCL組件的體系結(jié)構(gòu) Delphi類可以粗略地分成兩部分：一部分是組件類，這些組件類通常以某種方式出現(xiàn)在組件面板上，當(dāng)用戶從組件面板上點(diǎn)取一個(gè)類的圖標(biāo)后，在程序中就自 動(dòng)生成了該類的對(duì)象（非可視組件除外）；另一部分是功能類，這此功能類的對(duì)象通常出現(xiàn)在程序代碼中，起著不可代替的作用，但是這些功能類在組件面板上是找不到的。但 也有一些組件不在組件面板上，例如 Tform和Tapplication（典型的非可視組件）。由此可以看出圖形組件的功能很弱，圖形組件的用處何在呢？其實(shí)使用圖形組件的最大好處在于節(jié)省資源，正是因?yàn)樗鼈兊墓δ茌^弱，所以使用的系統(tǒng)資源就要少。 ADO組件 Microsoft公司的 ActiveX Data Objects（ ADO）格式數(shù)據(jù)庫(kù)的組件。唯一的要求是在使用 ADO組件時(shí)必須運(yùn)行 ADO/OLE－ DB。還可以使用 Delphi的 SQL Builder來(lái)自動(dòng)生成 SQL語(yǔ)句，這樣可以避免手工編寫 SQL而可能造成的語(yǔ)法錯(cuò)誤。 在使用動(dòng)態(tài) SQL語(yǔ)句編程時(shí)，常常用到一個(gè)很重要的方法 Prepare，調(diào)用 Prepare 方法之后， Delphi會(huì)將帶參數(shù)的 SQL語(yǔ)句傳送給與其對(duì)應(yīng)的數(shù)據(jù)庫(kù)引擎，對(duì)動(dòng)態(tài) SQL語(yǔ)句進(jìn)行 語(yǔ)法分析和優(yōu)化。 在程序運(yùn)行過(guò)程中，要想設(shè)置 Tquery或 TADOquery部件的 SQL屬性，必須首先調(diào)用 Close方法，關(guān)閉 TQuery或 TADOquery部 件，然后再調(diào)用 Clear方法清除 SQL屬性中現(xiàn)存的 SQL命令語(yǔ)句， 最后再調(diào)用 Add方法為 SQL屬性設(shè)置新的 SQL命令語(yǔ)句。 Open方 法和 ExecSQL方法是不一樣的。在缺省情況下，通過(guò) TQuery部件獲得的查詢結(jié)果數(shù)據(jù)是只讀數(shù)據(jù)，要想獲得 “ 活動(dòng) ” 的數(shù)據(jù)，在應(yīng)用程序中必須要設(shè)置 Tquery或TADOquery組件的 RequestLive屬性值為 True，然而并不是在任何情況下 (通過(guò)設(shè)置RequestLive的屬值 True)都可以獲得 “ 活動(dòng) ” 的數(shù)據(jù)的，要想獲得 “ 活動(dòng) ” 的數(shù)據(jù)，除了將TQuery部件的 RequestLive屬性設(shè)置為 True外，相應(yīng)的 SQL命令還要滿足以下條件。利用它可很方便地建立日常的管理數(shù)據(jù)庫(kù)。 3. 用戶可以通過(guò)創(chuàng)建查詢?cè)谝粋€(gè)表或多個(gè)數(shù)據(jù)表中檢索、更新和刪除記錄，并且可以對(duì)數(shù)據(jù)庫(kù)中的數(shù)據(jù)進(jìn)行各種計(jì)算。 3. 窗體：用戶可以通過(guò)創(chuàng)建窗體逐條顯示記錄，便于詳細(xì)的查 看和編輯，還可以對(duì)窗體進(jìn)行編程。 醫(yī)院藥庫(kù) 管理人員的功能最為復(fù)雜 ,包括對(duì)工作人員、藥庫(kù)的藥物資料進(jìn)行管理和維護(hù)，及系統(tǒng)狀態(tài)的查看、維護(hù)并生成各類報(bào)表。然后再把概念模式轉(zhuǎn)換成邏輯模式。 聯(lián)系定義 :如圖 醫(yī)院藥庫(kù)退藥子系統(tǒng) 藥品出庫(kù)子系統(tǒng) 處方 fayao 藥品資 料 江蘇大學(xué)本科生畢業(yè)論文 第 25 頁(yè) 共 55 頁(yè) 25 m n 圖 解釋如下：一個(gè)處方可以有多個(gè)治療藥物，一個(gè)藥物可對(duì)應(yīng)于多個(gè)處方。 splash:=(application)。 sql:=39。39。++39。)。 :=true。 close。 bianhao:string。 //找到此藥品發(fā)出的數(shù)量 totalnum:=totalnumoutnum。名稱 39。).asstring。 and 藥品資料 .編號(hào) =39。39。)。from fayao, 藥品資料 39。39。 :=true。39。and fayao. 處 方 單 號(hào)=39。 end。 (sql)。39。 set 庫(kù)存量 =39。 。編號(hào) 39。).AsInteger。界面圖如：圖 圖 “ 確認(rèn)發(fā)藥 ” 按鈕源代碼如下 ： procedure (Sender: TObject)。 江蘇大學(xué)本科生畢業(yè)論文 第 28 頁(yè) 共 55 頁(yè) 28 :=true。39。 (sql)。+39。39。 //系統(tǒng)主界面的顯示 江蘇大學(xué)本科生畢業(yè)論文 第 27 頁(yè) 共 55 頁(yè) 27 ?? 系統(tǒng)管理模塊組成 用戶登錄窗體的的實(shí)現(xiàn) 本窗體是為了讓工作人員或藥房管理員按照用戶名 和密碼進(jìn)行登錄，然后才能使用系統(tǒng)功能。那么，能不能將這些數(shù)據(jù)源集中管理，最好是做成一個(gè)統(tǒng)一的模塊，需要時(shí)就將該模塊引入而不必直接 操作數(shù)據(jù)源本身呢？數(shù)據(jù)模塊（ DataModule）是解決這個(gè)問(wèn)題最好的答案。 藥品資料（ 編號(hào) ,名稱 , 規(guī)格 , ?? , 上限 , 下限 , 庫(kù)存量） 處方 （ 處方單號(hào) ） //由 HIS的其他系統(tǒng)生成，本系統(tǒng)沒(méi)有用到！ fayao (處方單號(hào) , 編號(hào) , 是否發(fā)藥，數(shù)量 ) ER模型的 “聯(lián)系 ”用于刻畫實(shí)體之間的關(guān)聯(lián)。 ? 醫(yī)院藥庫(kù) 發(fā)藥模塊：直接與病人有 業(yè)務(wù)往來(lái)的模塊。 7. 模塊：可以保存 VB應(yīng)用程序的聲明和過(guò)程。每一個(gè)表都包含了體現(xiàn)同一主題的同類信息。在 Windows操作系統(tǒng)中運(yùn)行。對(duì)于數(shù)據(jù)庫(kù)服務(wù)器中的 SQL查詢，只能返回錯(cuò)誤的代碼。對(duì)于這種情況應(yīng)當(dāng)用 Try? Except模塊來(lái)設(shè)計(jì)程序。當(dāng)然有些數(shù)據(jù)庫(kù)服務(wù)器也支持在 TQuery或TADOquery部件的 SQL屬性中設(shè)置多條 SQL語(yǔ)句，只要數(shù)據(jù)庫(kù)服務(wù)器允許這樣，