vb--醫(yī)藥藥房管理系統(tǒng)(編輯修改稿)
2025-09-05 21:49 本頁面
【文章內容簡介】 用高科技手段來提高醫(yī)藥庫房管理無疑是一條行之有效的途徑。在某種意義上，信息與科技在企業(yè)管理與現(xiàn)代化建設中顯現(xiàn)出越來越重要的地位。企業(yè)方面的信息化與科學化，已成為現(xiàn)代化生活水平步入高臺階的重要標志。利用計算機實現(xiàn)醫(yī)藥行業(yè)的醫(yī)藥庫房管理勢在必行。醫(yī)藥庫房管理是一項瑣碎、復雜而又十分細致的工作，藥品的出/入庫，調貨管理，庫房管理等，一般不允許出錯，如果實行手工操作，須手工填制大量的表格，這就會耗費工作人員大量的時間和精力，計算機進行工作的管理，不僅能夠保證各項信息準確無誤、快速輸出，同時計算機具有手工管理所無法比擬的優(yōu)點。例如：檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高醫(yī)藥庫房管理的效率，也是企業(yè)的科學化、正規(guī)化管理,與世界接軌的重要條件。管理信息系統(tǒng)（Management Information System，簡稱MIS）是一個由管理人員和計算機組成的用以進行信息的收集、傳輸、加工、存儲、維護和使用的系統(tǒng)。它是一門綜合了管理科學，系統(tǒng)理論，計算機科學的系統(tǒng)性邊緣科學。管理信息系統(tǒng)的物理組成：(1) 計算機硬件系統(tǒng)：包括主機、外部存儲器、輸入輸出設備等。(2) 計算機軟件系統(tǒng)：包括系統(tǒng)軟件和應用軟件兩大部分。(3) 通信系統(tǒng)：包括線路等通信設施和與計算機網(wǎng)絡、數(shù)據(jù)通信有關的軟件等。(4) 工作人員：包括系統(tǒng)分析員、程序設計員、維護人員、管理員、操作人員等。一、硬件要求:1 PIII以上CPU2 內存256M以上3 硬盤容量40GB以上4 EGA以上分辨率的顯示器.5 鼠標或其它定點設備二、軟件要求 操作系統(tǒng)應使用Microsoft Windows2000版本，或者使用Microsoft Windows xp 或者更高版本。3系統(tǒng)的規(guī)劃與分析 安全系統(tǒng)的需求定義：1） 系統(tǒng)提供用戶登錄功能（進行用戶身份驗證），并且用戶名和用戶編號是唯一的。用戶在登錄界面上填寫任意的用戶名和用戶密碼（中文或英文）；系統(tǒng)提供登錄過程中的出錯處理機制和操作成功處理機制。2） 系統(tǒng)對非法用戶具有警告功能，例：單用戶表中不存在的用戶企圖登錄系統(tǒng)，系統(tǒng)應該要求用戶輸入合法用戶名和用戶密碼，并警告用戶的操作。 本系統(tǒng)主要是以數(shù)據(jù)流圖、數(shù)據(jù)字典和ER圖為主要描述工具來勾畫系統(tǒng)的概貌。數(shù)據(jù)流圖的基本圖形元素有4種：數(shù)據(jù)存儲文件數(shù)據(jù)流。被加工的數(shù)據(jù)與流向，箭頭會給出數(shù)據(jù)流的名字加工。輸入數(shù)據(jù)在此進行變換產(chǎn)生輸出數(shù)據(jù)數(shù)據(jù)輸入的源點或數(shù)據(jù)輸出的匯點。其中會注明源點或匯點的名字 4數(shù)據(jù)庫的設計通過對該系統(tǒng)的研究,將系統(tǒng)數(shù)據(jù)庫分為以下幾個表。如下表。現(xiàn)將各表的具體設計結構舉例描述如下： Itabdhdj表 入庫登記表 5詳細設計藥 房管 理系 統(tǒng)進貨管 理庫房管 理調貨管 理基礎信息管 理系統(tǒng)管 理系統(tǒng)幫 助入庫退貨入庫報表客戶資料登記客戶資料查詢調貨登記調貨查詢數(shù)據(jù)庫備份數(shù)據(jù)庫恢復關于系統(tǒng)員工信息客戶信息藥房基本信息供應商信息藥品信息入庫登記其系統(tǒng)主界面設計運行效果圖如下： 登錄窗體的設計軟件運行輸入操作員和相對應的密碼就可以進入系統(tǒng)。其運行效果圖如下：進貨管理模塊的設計入庫登記 輸入運行商，經(jīng)手人，和計算方式，系統(tǒng)自動生成票號和日期，操作員。然后輸入藥品簡稱和存儲倉庫，藥品數(shù)量和單價等各種要求。然后根據(jù)情況入庫。入庫管理的設計運行圖如下：分析按鈕源碼如下：登記按鈕的源碼為=39。ltabrkdj39。 amp。amp。賦數(shù)據(jù)源*自動票號select tabrkdjlmonth=padl(alltrim(str(month(date()),2)),2,39。039。)lday=padl(alltrim(str(day(date()),2)),2,39。039。)if empty(入庫票號) set cent on =alltrim(str(year(date()),4)+39。39。+lmonth+39。39。+lday+39。rkd000139。)else select max(入庫票
公司管理相關推薦
鄂ICP備17016276號-1