【正文】 額流水帳，提供會計(jì)所需全部帳目數(shù)據(jù)。 系統(tǒng)特色： ? 完善的數(shù)據(jù)通訊功能 江蘇大學(xué)本科生畢業(yè)論文 第 8 頁 共 55 頁 8 ? 遵循藥品效期管理原則 ? 完善的藥品庫存管理功能 ? 系統(tǒng)的安全性和容錯(cuò)能力 ? 毒麻貴重藥品的重點(diǎn)管理 ? 簡化藥房會計(jì)事務(wù)，支持醫(yī)院的科室經(jīng)濟(jì)核算 ? 系統(tǒng)的安全性和容錯(cuò)能力 第二 章 ： 數(shù)據(jù)庫理論基礎(chǔ) 一個(gè)成功的信息管理系統(tǒng)，是建立在許多條件之上的，而數(shù)據(jù)庫是其中一個(gè)非常重要的條件和關(guān)鍵技術(shù)。 （ 3） 邏輯設(shè)計(jì)的任務(wù)是從 ER圖與對應(yīng)的綱要表出發(fā)，確定各個(gè)實(shí)體及關(guān)系的表名屬性。 ? 主鍵的個(gè)數(shù)越少越好。 江蘇大學(xué)本科生畢業(yè)論文 第 9 頁 共 55 頁 9 數(shù)據(jù)庫的設(shè)計(jì)中，如何處理多對多的關(guān)系和如何設(shè)計(jì)主鍵，是兩個(gè)有著較大難度、需要重點(diǎn)考慮的問題。 數(shù)據(jù)庫系統(tǒng)設(shè)計(jì) 數(shù)據(jù)庫設(shè)計(jì)主要是進(jìn)行數(shù)據(jù)庫的邏輯設(shè)計(jì)，即將數(shù)據(jù)按一定的分類、分組系統(tǒng)和邏輯層次組織起來，是面向用戶的。 （ 2） 數(shù)據(jù)表定義：數(shù)據(jù)表定義指定義數(shù)據(jù)庫中數(shù)據(jù)表的結(jié)構(gòu)，數(shù)據(jù)表的邏輯結(jié)構(gòu)包括：屬性名稱、類型、表示形式、缺省值、校驗(yàn)規(guī)則、是否關(guān)鍵字、可否為空等。 （ 4） 數(shù)據(jù)使用權(quán)限設(shè)置：針對用戶的不同使用要求，確定數(shù)據(jù)的用戶使用權(quán)限，確保數(shù)據(jù)安全。這一步設(shè)計(jì)完成后數(shù)據(jù)庫和數(shù)據(jù)結(jié)構(gòu)設(shè)計(jì)工作基本完成，只待系統(tǒng)實(shí)現(xiàn)時(shí)將數(shù)據(jù)分析和數(shù)據(jù)字典的內(nèi)容代入到所設(shè)計(jì)的數(shù)據(jù)整體關(guān)系結(jié)構(gòu)中，一個(gè)規(guī)范化數(shù)據(jù)庫系統(tǒng)結(jié)構(gòu)就建立起來了。那么計(jì)算機(jī)系統(tǒng)如何能知道哪些表中的哪些記錄應(yīng)與其它表中的哪些記錄相對應(yīng)，它們表示的是同一個(gè)事物呢 ?這就需要在設(shè)計(jì)數(shù)據(jù)結(jié)構(gòu)時(shí)將這種各表之間的數(shù)據(jù)記錄關(guān)系確定下來。所謂的 “父系 ”就是指表的上一級關(guān)系表。系統(tǒng)所提供的安全保密功能一般有 8個(gè)等級 (07級 )， 4種不同方式 (只讀、只寫、刪除、修改 )，而且允許用戶利用這 8個(gè)等級的 4種方式對每一個(gè)表自由地進(jìn)行定義。 數(shù)據(jù)庫設(shè)計(jì)范式分析 建立起一個(gè)良好的數(shù)據(jù)指標(biāo)體系，是建立數(shù)據(jù)結(jié)構(gòu)和數(shù)據(jù)庫的最重要的一環(huán)。對于指標(biāo)體系中數(shù)據(jù)的結(jié)構(gòu)在建庫前還必須進(jìn)行規(guī)范化的重新組織。 ，不允許有重復(fù)組項(xiàng)出現(xiàn)。在這五種范式中，一般只用前三種，對于常用系統(tǒng)就足夠了。在本文所討論的開發(fā)方法里， 1st NF實(shí)際上是沒有什么意義的。通常我們稱這種關(guān)系為函數(shù)依賴 (functional depEndence)關(guān)系。 為防止數(shù)據(jù)庫出現(xiàn)更新異常、插入異常、刪除異常、數(shù)據(jù)冗余太大等現(xiàn)象，關(guān)系型數(shù)據(jù)庫要盡量按關(guān)系規(guī)范化要求進(jìn)行數(shù)據(jù)庫設(shè)計(jì)。 SQL語句通常用于完成一些數(shù)據(jù)庫的操作任務(wù)，比如在數(shù)據(jù)庫中更新數(shù)據(jù)，或者從數(shù)據(jù)庫中檢索數(shù)據(jù)。 MS SQL Server 就是用的 Transact SQL。 江蘇大學(xué)本科生畢業(yè)論文 第 13 頁 共 55 頁 13 SQL不要求用戶指定對數(shù)據(jù)的存放方法， 這種特性使用戶更易集中精力于要得到的結(jié)果；所有 SQL語句使用查詢優(yōu)化器，它是 RDBMS的一部分，由它決定對指定數(shù)據(jù)存取的最快速度的手段，查詢優(yōu)化器知道存在什么索引，在哪兒使用索引合適，而用戶則從不需要知道表是否有索引、有什么類型的索引。 SQL語句 SQL功能強(qiáng)大，是一種完備的數(shù)據(jù)處理語言，不僅用于數(shù)據(jù)庫查詢，而且用于數(shù)據(jù)庫中的數(shù)據(jù)修改和更新，概 括起來，它可以分成以下幾組： DML（ Data Manipulation Language，數(shù)據(jù)操作語言）：用于檢索或者修改數(shù)據(jù)； DDL（ Data Definition Language，數(shù)據(jù)定義語言）： 用于定義數(shù)據(jù)的結(jié)構(gòu)，比如 創(chuàng)建、修改或者刪除數(shù)據(jù)庫對象； DCL（ Data Control Language，數(shù)據(jù)控制語言）：用于定義數(shù)據(jù)庫用戶的權(quán)限。 數(shù)據(jù)操作語言 DML：包括數(shù)據(jù)查詢與數(shù)據(jù)更新。 用于修改數(shù)據(jù)庫內(nèi)容的 SQL 語句主要有以下三個(gè)： (1) Insert，向一個(gè)表中加入新的數(shù)據(jù)行 (2) Delete，從一個(gè)表中刪除數(shù)據(jù)行 (3) Update，更改數(shù)據(jù)庫中已經(jīng)存在的數(shù)據(jù) Insert標(biāo)準(zhǔn)語法： INSERT INTO table_name (col1, col2...) VALUES(value1, value2...) 下例要將用戶名為 ‘ test’ 作為一個(gè)新的系統(tǒng)用戶加入用戶表 user中 Insert Into user (username,password) values (‘ test’ , ‘ test’) Insert 語句還可以將多行數(shù)據(jù)添加到目標(biāo)表中去，在這種形式的 Insert 語句中，新行的數(shù)據(jù)值不是在語句正文中明確地指定的，而是語句中指定的一個(gè)數(shù)據(jù)庫查詢。要更新的目標(biāo)表在語句中定義，Set子句則指定要更新哪些列并 計(jì)算它們的值。 * 組合條件和布爾運(yùn)算符 以下的 SQL語句中就含有組合條件： SELECT column1, SUM(column2) FROM listoftables WHERE condition1 AND condition2。這樣，按照面向?qū)ο缶幊痰幕舅枷?，就使得用戶可?Tobject類這個(gè)類型代替任何其它類的數(shù)據(jù)類型。組件在Delphi程序的開發(fā)中是最顯眼的角色。 窗口組件類是窗口化的可視化組件類，在 Delphi的類庫中占有最大的份額?？梢钥闯觯瑘D形組件的基類是 TgraphicControl,江蘇大學(xué)本科生畢業(yè)論文 第 17 頁 共 55 頁 17 在實(shí)際編程中，它們必須寄生于它們的宿主 窗口組件類的對象，由它們的擁有者負(fù)責(zé)其顯示，而且它們還能觸發(fā)一些和鼠標(biāo)活動(dòng)相關(guān)的事件。 非可視組件是與可視組件相并列的另一類組件，非可視組件在程序運(yùn)行中是不 可見的（除各種對話框組件之外，事實(shí)上有人認(rèn)為對話框組件不能歸入非可視組件，應(yīng)該是另一種介于可視與非可視之間的組件）。 數(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的對象模型是所有數(shù)據(jù)訪問接口對象模型中最簡單的一種。 OLEDB提供了訪問任何數(shù)據(jù)資源的方法，包括相互關(guān)聯(lián)的數(shù)據(jù)庫和相互不關(guān)聯(lián)的數(shù)據(jù)庫、 Email和文件系統(tǒng)、文本和圖形以及用戶定義的數(shù)據(jù) 對象。 數(shù)據(jù)模塊設(shè)計(jì)窗口 數(shù)據(jù)模塊設(shè)計(jì)窗口是用來設(shè)計(jì)和維護(hù)數(shù)據(jù)模塊的?？梢栽?Tquery或 TADOquery組件的 SQL屬性中設(shè)置 SQL語句。動(dòng)態(tài) SQL語句，也被稱作參數(shù)化的語句，在其中間包含著表示字段名或表名的參數(shù)，例如下面的語句是一條動(dòng)態(tài) SQL語句： Select * From username Where password=:passCode。 ③將 TADOQuery組件的 DataSource屬性設(shè)置為另一個(gè)數(shù)據(jù)源，這樣將另一個(gè)數(shù)據(jù)源中與當(dāng)前TADOQuery組件的 SQL語句中的參數(shù)名相匹配的字段值賦給其對應(yīng)的參數(shù)。 如果在應(yīng)用程序中執(zhí)行一條 SQL語句之前并沒有顯式地調(diào)用Prepare方法，每次在執(zhí)行 SQL 語句時(shí)， Delphi會隱含地調(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ī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)行下去。在設(shè)計(jì)過程中，設(shè)置完 TQuery或 TADOquery部件的 SQL屬性之后將其 Active屬性的值置為 True， 這樣便可以執(zhí)行SQL屬性中的 SQL程序，如果應(yīng)用中有與 TQuery或 TADOquery部件相連的數(shù)據(jù)瀏覽部件 ( 如TDDGrid TDBEdit等 )那么在這些數(shù)據(jù)瀏覽部件中會顯示 SQL程序的執(zhí)行結(jié)果。此時(shí)應(yīng)該調(diào)用 ExecSQL 方法來代替 Open方法。 例如： Try Except End 通過 Tquery或 TADOquery組件可以獲得兩種類型的數(shù)據(jù)： (1) “ 活動(dòng) ” 的數(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ù)的修改自動(dòng)地被寫回到數(shù)據(jù)庫中。各比較運(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è)索引。 MS Access簡介 Access是 office自帶的數(shù)據(jù)庫工具，具有基本的數(shù)據(jù)庫功能，也是一個(gè)很好的管理工具。 Access屬于 Microsoft Office的套件。 Access的功能 1. 數(shù)據(jù)庫中包含多個(gè)表，每個(gè)表可以分別表示和存儲不同類型的信息。 5. 通過創(chuàng)建報(bào)表，用戶可以將數(shù)據(jù)以特定的方式加以組織，從而達(dá)到分析可打印的目的。表中的每一列都包都包含特定主題下的某一實(shí)例的所有信息數(shù)據(jù)，稱為 “ 字段 ” ；表中每一行所包含的是特定主題下的某一實(shí)例的所有信息數(shù)據(jù)，稱為 “ 記錄 ” 。 5. 頁：功能上類似于典型的窗體和報(bào)表，但數(shù)據(jù)訪問頁是允許用戶查看、編輯和匯報(bào)駐留在瀏覽器中的數(shù)據(jù)和 HTML頁。病人的需求是持相關(guān)證明 （掛號單，收據(jù)等）到 醫(yī)院藥庫 領(lǐng)藥，推藥，查詢。 ? 對醫(yī)院藥庫的藥品數(shù)據(jù)進(jìn)行維護(hù)。 醫(yī)院藥庫業(yè)務(wù)管理系統(tǒng) 江蘇大學(xué)本科生畢業(yè)論文 第 23 頁 共 55 頁 23 圖 數(shù)據(jù)流程圖 根據(jù)以上所做的分析，并略掉一些細(xì)節(jié)（如不考慮用戶的登錄；對記錄的維護(hù)），得出以下的數(shù)據(jù)流圖。 利用 ER方法進(jìn)行數(shù)據(jù)庫的概念設(shè)計(jì)，可分成三步進(jìn)行：首先設(shè)計(jì)局部 ER模式，然后把各局部 ER模式綜合成一個(gè)全局模式，最后對全局 ER模式進(jìn)行優(yōu)化，得到最終的模式，即概念模式。若有聯(lián)系，進(jìn)一步確定是 1:N， M:N，還是 1:1等。 數(shù)據(jù)庫的實(shí)現(xiàn) 我選用 Microsoft Access 2021來進(jìn)行數(shù)據(jù)庫的邏輯設(shè)計(jì)。但本人在開發(fā)這個(gè)系統(tǒng)時(shí)，只有少量的幾個(gè)窗體，并沒有使用數(shù)據(jù)模塊窗體，但它是十分重要的！ 啟動(dòng)畫面的實(shí)現(xiàn) 啟動(dòng)畫面是為了給用戶一個(gè)良好的印像，加深軟件的親和力，沒有實(shí)際的功能，在splash窗體中加入了 Image組件。 for i:=0 to 90000000 do 。 var sql:string。 +39。++39。+39。39。39。 if ( and ) then begin showmessage(39。39。 :=true。 :=true。 :=true。 end。 totalnum:integer。 while not() do begin totalnum:=(39。數(shù)量 39。編號為： 39。 藥品名稱為： 39。 庫存不足，請入庫藥品！本次操作不成功！期待重新發(fā)藥！ 39。 end else begin bianhao:=(39。update 藥品資料 ,fayao 39。, =true where =39。 and =39。39。39。 //修改發(fā)藥后庫存量 修改 faoyao表中的是否發(fā)藥記錄！ showmessage(39。 。select fayao.*,藥品資料 .庫存量 ,藥品資料 .名稱 ,藥品資料 .規(guī)格 ,藥品資料 .分類 ,藥品資料 .醫(yī)保分類 39。 where fayao. 編號 = 藥 品 資 料 . 編號 39。39。39。 (sql)。