醫(yī)院藥品管理系統(tǒng)數據庫的設計說明

1、.-1醫(yī)院藥品管理系統(tǒng)數據庫的設計1、概述12、需求分析13、數據庫設計23.1 系統(tǒng)構造圖23.2 系統(tǒng)局部流程圖43.3 各個實體關系 E-R圖93.4 各個表的關系圖4、應用程序設計4.1 程序登陸界面的設計4.2 程序主切換面板的設計4.3 程序增刪改界面的設計4.4 程序查詢界面的設計5、編碼與調試5.1 登陸界面窗體程序代碼的設計5.2 主切換面板窗體程序代碼的設計5.3 增刪改界面窗體程序代碼的設計5.4 查詢界面窗體程序代碼的設計6、總結.- 優(yōu)質文檔-.-1、概述隨著醫(yī)藥衛(wèi)生體制改革的深入,醫(yī)藥連鎖經營的推行以及日趨劇烈的商業(yè)角逐,越來越多的醫(yī)藥經營企業(yè)意識到提高企業(yè)管理水平

2、的重要性,也迫切要求加快管理信息化的進程。在醫(yī)藥行業(yè)中,醫(yī)藥經營企業(yè)的物流管理以及相應的財務處理、信息處理,長期以來一直采用手工操作,但隨著產業(yè)構造調整、全新的市場競爭環(huán)境,企業(yè)管理和運營效率已經成為企業(yè)成敗的關鍵所在,手工方式的弊端畢現無遺。這就要求藥品管理擺脫過去人手操作的煩瑣過程,對所有的藥品管理數據實行智能管理,促使藥品管理朝著科學化和規(guī) X 化的方向前進。隨著計算機技術的普及,在醫(yī)藥行業(yè)中,醫(yī)藥經營企業(yè)逐漸借助計算機技術去完善醫(yī)藥的管理和提高自身的工作效率,以贏得市場競爭的勝利。因而藥品管理信息系統(tǒng)已經成為各醫(yī)藥經營企業(yè)實現藥品管理網絡化和信息化的必備工具 ,是醫(yī)藥經營企業(yè)規(guī)模經營管

3、理不可缺少的部件之一。同時 ,軟件開發(fā)環(huán)境的高度集成和數據庫技術的日益成熟成為開發(fā)藥品管理信息系統(tǒng)的技術根底 ,大大降低了系統(tǒng)的開發(fā)本錢。系統(tǒng)開發(fā)工具的智能化、人性化 ,使得所開發(fā)的系統(tǒng)充分滿足了醫(yī)藥經營企業(yè)的各種需求,從醫(yī)藥經營企業(yè)的各個環(huán)節(jié)對人流、物流、資金流、信息流進展統(tǒng)一系統(tǒng)的管理。市場的需求和技術的支持 ,最終會導致越來越多的優(yōu)秀藥品管理軟件的出現,并在競爭中得到不斷的完善和優(yōu)化。2、需求分析.- 優(yōu)質文檔-.們凌亂的工作變得有條理，解脫他們需要記憶大量信息藥品的規(guī)格,價錢,疾病的名稱與編碼等的困難。保證他們遵守某些規(guī)X，減輕他們匯總、統(tǒng)計、報告工作習慣，功能完整，操作簡單，響應迅速

4、，界面友善，易學易用成為這類軟件必須滿足的功能要求。理和藥品管理一目了然。由于是限定醫(yī)院使用，所有只有登錄系統(tǒng)。庫存管理功改庫存，讀取。這個藥品管理系統(tǒng)主要涉及醫(yī)院藥庫的藥品進、出、存等業(yè)務，計計算，為藥品會計提供根底數據，以及包括有效期的報警和下限報警。3、數據庫設計本系統(tǒng)主要由用戶管理、入庫管理模塊，出庫管理模塊，過期藥品管理，供應商管理3.1 系統(tǒng)構造圖出庫管理息報表取藥記錄查詢取藥記錄報表取藥記錄計費醫(yī)院藥品.word.入庫登記庫存查詢修改庫存入庫管理供應商信息查藥庫清理供應商查詢刪除過期過期藥品管理品清理添加用戶修改權限編輯信息用戶管理業(yè)務流程圖：訂單.word.3.2 系統(tǒng)局部流程

5、圖概念設計局部主要包括實體的 E-R 圖、聯(lián)系的E-R 圖和系統(tǒng)總的 E-R圖。由需求分析知，根本實體有藥品、職工、供應商、庫存和用戶登錄信息。（1） 藥品 E-R 圖：.word.藥品信息表有效日期日期/時間2職工 E-R 圖：號.word.職工信息表3供應商 E-R 圖：供應商名供應商編XX性別文本文本地址.word.供應商信息表文本文本所在城市地址文本4庫存 E-R 圖：.word.庫存信息表字段名藥品編碼藥品名稱供應商文本供應商編碼庫存量數子5用戶登錄信息 E-R 圖用戶名用戶登錄信息表.word.字段名用戶名密碼數據類型文本數字3.3 各個實體關系 E-R圖供求供應供應商職工.wor

6、d.3.4 各個表的關系圖.word.4.1 程序登陸界面的設計設計效果如以下圖：.word.4.2 程序主切換面板的設計設計效果如以下圖：.word.word.4.3 程序增刪改界面的設計設計效果如以下圖：.word.4.4 程序查詢界面的設計設計效果如以下圖：.word.Dim lentext As IntegerDim i As Integer.word.Dim d As IntegerPrivate Sub Concel_Click()On Error GoTo Err_Concel_ClickDoCmd.CloseQuitExit_Concel_Click:Exit SubErr_C

7、oncel_Click:MsgBox Err.DescriptionResume Exit_Concel_ClickEnd SubPrivate Sub OK_Click()On Error GoTo Err_OK_ClickIf Nz(password) = Nz(DLookup(密碼, 用戶密碼表, 用戶名= & &username & ) _And Me.username Then驗證用戶和密碼)Me.Visible = False 隱藏窗體DoCmd.OpenForm 主切換面板Else.word.Exit_OK_Click:Exit SubErr_OK_Click:MsgBox Er

8、r.DescriptionResume Exit_OK_ClickEnd Sub5.2 主切換面板窗體程序代碼的設計.word.5.3 增刪改界面窗體程序代碼的設計Private Sub mand17_Click()DoCmd.Runmand acCmdSaveRecord.word.Dim rs As New ADODB.RecordsetDim str_temp As Stringstr_temp = select * from 庫存 Where 產品編號 = & 產品編號 & rs.Open str_temp, CurrentProject.Connection, adOpenDynam

9、ic, adLockOptimisticIf Not IsNull(rs) Thenrs(庫存量) = rs(庫存量) + 入庫數量rs.UpdateEnd Sub5.4 查詢界面窗體程序代碼的設計程序代碼設計如下：Private Sub mand20_Click()Me.Visible = FalseDoCmd.OpenForm 主切換面板End SubPrivate Sub 取消_Click()On Error GoTo Err_btn_clear_ClickDim ctl As ControlFor Each ctl In Me.Controls.word.Select Case ctl.ControlTypeCase acTextBoxIf ctl.Locked = False Then ctl.Value = NullCase acboBoxctl.Value = NullEnd SelectNextExit_btn_clear_Click:Exit S