醫(yī)藥GSP管理系統(tǒng)-論文

醫(yī)藥GSP管理系統(tǒng)-論文醫(yī)藥GSP管理系統(tǒng)摘要【摘要】中國加入WTO后，藥品經(jīng)營企業(yè)要與國際接軌，靠的就是GSP認(rèn)證。藥品經(jīng)營企業(yè)通過GSP認(rèn)證，這是藥品管理法制化、科學(xué)化和規(guī)范化的要求，是國家加大對(duì)藥品經(jīng)營結(jié)構(gòu)調(diào)整力度的要求，是藥品經(jīng)營企業(yè)進(jìn)入國際市場、參與市場競爭的先決條件。本章將通過醫(yī)藥GSP管理系統(tǒng)的實(shí)例，分別從醫(yī)藥管理系統(tǒng)和GSP管理系統(tǒng)兩個(gè)方面介紹如何實(shí)現(xiàn)醫(yī)藥GSP管理系統(tǒng)?！娟P(guān)鍵詞】醫(yī)藥GSP管理系統(tǒng)目錄摘要. 2目錄. 30 引言. 11 可行性分析. 12 總體設(shè)計(jì). 12.1 項(xiàng)目規(guī)劃. 12.2 系統(tǒng)功能結(jié)構(gòu). 12.3 設(shè)計(jì)目標(biāo). 23 系統(tǒng)設(shè)計(jì). 23.1 開發(fā)及運(yùn)行環(huán)境. 23.2 數(shù)據(jù)庫設(shè)計(jì). 24 主要功能模塊設(shè)計(jì). 24.1 程序主界面的設(shè)計(jì). 24.2 藥品信息管理. 814.3 入庫登記. 1984.4 銷售開單. 3394.5 操作員權(quán)限的設(shè)置. 424附錄A 參考文獻(xiàn). 539附錄B 數(shù)據(jù)表. 607附錄C 文件架構(gòu). 6930 引言藥品在其生產(chǎn)、經(jīng)營和使用的全過程中，由于內(nèi)外因素的影響，隨時(shí)都有可能發(fā)生質(zhì)量事故，必須在所有這些環(huán)節(jié)上采取嚴(yán)格的措施，才能從根本上保證藥品質(zhì)量。因此，國內(nèi)外為保證藥品質(zhì)量，確保用藥安全有效，均制定了一系列質(zhì)量法規(guī)。其中GSP是一系列質(zhì)量控制中不可缺少的重要一環(huán)。1 可行性分析面對(duì)醫(yī)藥經(jīng)營企業(yè)在日常管理過程中出現(xiàn)的各種情況，醫(yī)藥GSP管理系統(tǒng)在開發(fā)時(shí)，應(yīng)能夠達(dá)到以下目標(biāo)：q 全面、規(guī)范、完善的基礎(chǔ)信息設(shè)置。q 合理的權(quán)限分配。q 全方位的快速查詢，提高工作效率。q 具有強(qiáng)大的報(bào)表打印功能。q 系統(tǒng)具有數(shù)據(jù)備份及數(shù)據(jù)恢復(fù)功能，能夠保證系統(tǒng)數(shù)據(jù)的安全性。q 對(duì)藥品的質(zhì)量、檔案、養(yǎng)護(hù)以及藥品的停售和庫房的溫濕度進(jìn)行系統(tǒng)管理。q 從藥品的采購、入庫、銷售、到庫存形成一套嚴(yán)密、科學(xué)、完善的管理體系。2 總體設(shè)計(jì)2.1 項(xiàng)目規(guī)劃本系統(tǒng)屬于小型的數(shù)據(jù)庫系統(tǒng)，可以對(duì)中小型企業(yè)進(jìn)銷存進(jìn)行有效管理。通過本系統(tǒng)可以達(dá)到以下目標(biāo)：q 靈活的運(yùn)用表格批量錄入數(shù)據(jù)，使信息傳遞更快捷。q 系統(tǒng)采用人機(jī)對(duì)話方式，界面美觀友好，信息查詢靈活、方便，數(shù)據(jù)存儲(chǔ)安全可靠。q 與供應(yīng)商和代理商賬目清晰。q 實(shí)施強(qiáng)大的后臺(tái)監(jiān)控功能。q 功能強(qiáng)大的月營業(yè)分析。q 實(shí)現(xiàn)各種查詢，如定位查詢、模糊查詢等。q 實(shí)現(xiàn)商品進(jìn)貨分析與統(tǒng)計(jì)、銷售分析與統(tǒng)計(jì)、商品銷售成本明細(xì)等功能。q 強(qiáng)大的庫存預(yù)警功能，盡可量地減少商家不必要的損失。q 實(shí)現(xiàn)靈活的打印功能。q 對(duì)用戶輸入的數(shù)據(jù)，系統(tǒng)進(jìn)行嚴(yán)格的數(shù)據(jù)檢驗(yàn)，盡可能排除人為的錯(cuò)誤。q 系統(tǒng)最大限度地實(shí)現(xiàn)了易安裝性、易維護(hù)性和易操作性。2.2 系統(tǒng)功能結(jié)構(gòu)本系統(tǒng)共分9大部分、41個(gè)完整的功能模塊。系統(tǒng)結(jié)構(gòu)圖如圖1所示。1172醫(yī)藥GSP管理系統(tǒng)圖1 醫(yī)藥GSP管理系統(tǒng)2.3 設(shè)計(jì)目標(biāo)本系統(tǒng)是根據(jù)中小企業(yè)的實(shí)際需求而開發(fā)的，完全能夠?qū)崿F(xiàn)企業(yè)的會(huì)議視頻管理，通過本系統(tǒng)可以達(dá)到以下目標(biāo)：q 系統(tǒng)運(yùn)行穩(wěn)定，安全可靠。q 界面設(shè)計(jì)美觀，人機(jī)交互界面友好。q 信息查詢靈活、方便、快捷、準(zhǔn)確，數(shù)據(jù)存儲(chǔ)安全可靠。q 滿足鍵盤和鼠標(biāo)的雙重操作，完全支持回車鍵。q 信息安全保密。3 系統(tǒng)設(shè)計(jì)3.1 開發(fā)及運(yùn)行環(huán)境系統(tǒng)開發(fā)平臺(tái)：Microsoft Visual FoxPro 6.0。運(yùn)行平臺(tái)：Windows XP/ Windows 2000/ Windows 2003分辨率：最佳效果1024768像素3.2 數(shù)據(jù)庫設(shè)計(jì)1數(shù)據(jù)庫概要說明接下來的任務(wù)就是設(shè)計(jì)數(shù)據(jù)庫。數(shù)據(jù)庫在一個(gè)管理系統(tǒng)中占居非常重要的地位，數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)的好壞將直接影響系統(tǒng)的效率和實(shí)現(xiàn)的效果。本系統(tǒng)采用的是Visual FoxPro自帶的數(shù)據(jù)庫，數(shù)據(jù)庫文件名為yygsy。2主要數(shù)據(jù)表的結(jié)構(gòu)數(shù)據(jù)庫中的數(shù)據(jù)表請(qǐng)參見附錄B。4 主要功能模塊設(shè)計(jì)4.1 程序主界面的設(shè)計(jì)軟件界面是人與計(jì)算機(jī)之間的媒介。用戶通過軟件界面來與計(jì)算機(jī)進(jìn)行信息交換。因此，軟件界面的質(zhì)量，直接關(guān)系到應(yīng)用系統(tǒng)的性能能否充分發(fā)揮，尤其是主界面。例如本系統(tǒng)的主界面就改變了用戶比較熟知的Windows傳統(tǒng)風(fēng)格，取而代之的是圖形化的界面風(fēng)格。程序啟動(dòng)后，通過系統(tǒng)登錄界面的用戶身份驗(yàn)證后，即可進(jìn)入到程序主界面，醫(yī)藥GSP管理系統(tǒng)的主界面如圖2所示。 圖2 程序主界面運(yùn)行結(jié)果主界面擔(dān)負(fù)著根據(jù)用戶的權(quán)限執(zhí)行系統(tǒng)所允許的用戶操作的任務(wù)。其中系統(tǒng)的主導(dǎo)航菜單是通過一系列的筆者自定義的按鈕實(shí)現(xiàn)的，功能子菜單是由ListView和ImageList控件實(shí)現(xiàn)的。為了使用戶可以自行控制功能子菜單的顯示或隱藏狀態(tài)，程序中還加入了控制功能子菜單顯示狀態(tài)的按鈕。系統(tǒng)主界面的具體講解如下：1表單設(shè)計(jì)（1）創(chuàng)建一個(gè)標(biāo)準(zhǔn)項(xiàng)目，名稱為“醫(yī)藥GSP管理系統(tǒng)”，在該項(xiàng)目中利用Class_Frm類創(chuàng)建程序主界面表單，名稱為DeskTop。（2）在該表單中添加Button_Y控件、Label控件、Image控件、ImageList控件和ListView控件。（3）設(shè)置表單、控件的屬性，其重要屬性如表1所示。表1 重要屬性及值對(duì)象屬性值Class_Frm12BorderStyle0 無邊框Class_Frm12ShowWindow2 作為頂層表單Class_Frm12TitleBar0 關(guān)閉Class_Frm12WindowState2 最大化ListView1Appearance0 FlatListView1BackColor16777215ListView1BorderStyle0 NoneListView1HideSelection.F. 假2代碼設(shè)計(jì)當(dāng)創(chuàng)建一個(gè)子類時(shí)，子類中的方法自動(dòng)從父類中繼承，但是子類的方法會(huì)重載父類中的同名方法。當(dāng)需要調(diào)用父類中的方法時(shí)，可以在子類中使用：范圍操作符調(diào)用父類中的方法。醫(yī)藥GSP管理系統(tǒng)Class_frm:load &在子類中引用父類的方法程序中應(yīng)用了API函數(shù)時(shí)，應(yīng)在表單的Load事件中進(jìn)行函數(shù)聲明，代碼如下：Declare integer GetSystemMetrics in user32 integer nIndex &API函數(shù)聲明在表單的Init事件中設(shè)置收縮后的功能子菜單的代碼如下：*設(shè)置收縮后的側(cè)菜單Thisform.Img_EB_1.height=Thisform.Height-300Thisform.Img_B_1.Top=THisform.Height-Thisform.Img_b_1.Height-8Thisform.Img_EB_1.visible=.f.Thisform.Img_B_1.visible=.f.Thisform.Img_C_1.visible=.f.Thisform.Img_E_1.visible=.f.在表單Init事件中利用ListView控件顯示操作員的可用功能子菜單的代碼如下：*初始化ListView控件 Thisform.Listview1.BackColor=RGB(239,247,255)This.Listview1.listitems.clearthis.listview1.view=2 &設(shè)置視圖顯示方式 this.listview1.Icons=this.imagelist1.objectthis.listview1.smallicons=this.imagelist1.object&添加列表項(xiàng)-根據(jù)操作員權(quán)限設(shè)置可用的功能項(xiàng)Select Tab_User Locate For 操作員=UserNameSelect * From Tab_Purview Where 操作員編號(hào)=Tab_User.操作員編號(hào) ;Into Cursor Temp_Purview Select 0Select * From Tab_Function Where 上級(jí)編號(hào)=1 Into Cursor Temp_FunctionDo While !EOF() Select Temp_Function key=Alltrim(Temp_Function.名稱) Select Temp_Purview If Temp_Purview.&key.=.T. =ThisForm.listview1.listitems.add(,key,1) Endif Select Temp_Function SKIPEndDo在表單Activate事件中添加如下代碼設(shè)置程序主界面根據(jù)屏幕分辨率自動(dòng)設(shè)置大小。thisform.width=GetSystemMetrics(0) &獲取屏幕的寬度thisform.height=GetSystemMetrics(1)-24 &獲取屏幕的高度Class_frm:Init &在子類中引用父類的方法通過ListView控件調(diào)用相應(yīng)的表單的程序代碼如下：fname=alltrim(thisform.listview1.selecteditem.text)do form form&fname &通過變量調(diào)入表單在“銷售管理”按鈕的Button_Click事件中加入如下代碼顯示銷售管理功能子菜單。Thisform.Left_Title.Caption=銷售管理Thisform.Listview1.listitems.clear &清空ListView控件&添加列表項(xiàng)Select Tab_UserLocat For 操作員=UserNameSelect * From Tab_Purview Where 操作員編號(hào)=Tab_User.操作員編號(hào) Into Cursor Temp_PurviewSelect 0Select * From Tab_Function Where 上級(jí)編號(hào)=3 Into Cursor Temp_FunctionDo While !EOF() Select Temp_Function key=Alltrim(Temp_Function.名稱) Select Temp_Purview If Temp_Purview.&key.=.T. =ThisForm.listview1.listitems.add(,key,1) Endif Select Temp_Function SKIPEndDo4.2 藥品信息管理用戶單擊導(dǎo)航功能按鈕中的“基礎(chǔ)信息管理”按鈕，在功能子菜單中選擇“藥品信息管理”菜單項(xiàng)，進(jìn)入“藥品信息管理”界面，該界面運(yùn)行結(jié)果如圖3所示。 醫(yī)藥GSP管理系統(tǒng)圖3 藥品信息管理運(yùn)行結(jié)果“藥品信息管理”界面主要用于查詢、添加、修改和刪除藥品信息；根據(jù)藥品劑型自動(dòng)生成藥品編號(hào)；根據(jù)藥品的通用名自動(dòng)生成藥品簡稱；可以利用記錄定位按鈕實(shí)現(xiàn)精確記錄定位；支持快速瀏覽藥品信息等功能。1表單設(shè)計(jì)（1）在“醫(yī)藥GSP管理系統(tǒng)”項(xiàng)目中，利用Class_Frm類創(chuàng)建新表單，名稱為“藥品信息管理”。（2）在表單中添加Text控件、Label控件、Pageframe控件、Edit控件、Combo控件、Grid控件和Shape控件（用于修飾界面）和Button_Y控件、Button_F控件。（3）重要控件的重要屬性如表2所示。表2 重要屬性及值對(duì)象屬性值Class_Frm12BorderStyle0 無邊框Class_Frm12TitleBar0 關(guān)閉Combo1RowSourceTab_DoseType.劑型Combo1、Combo2、Combo4RowSourceType6 字段Combo1、Combo2、Combo3、Combo5、Combo6Style2 - 下拉列表框Combo2RowSourceTab_Unit.單位名稱Combo3、Combo6RowSource有,無Combo5RowSource年,月,天Combo5RowSourceType1 值Text11InputMask9999PFPageCount2PFTabStyle1 非兩端（4）為表單創(chuàng)建方法程序List_Sele。2代碼設(shè)計(jì)由于在設(shè)計(jì)數(shù)據(jù)庫時(shí)，遵循數(shù)據(jù)規(guī)范化原則，在藥品信息表中生產(chǎn)廠家是以廠家編號(hào)字段存儲(chǔ)，藥品的庫存上/下限信息保存在庫存上下限表中，所以在顯示藥品信息時(shí)，需要應(yīng)用SQL語句的內(nèi)聯(lián)接查詢出藥品的完整信息并顯示在表格中，程序代碼如下：SELECT Tab_drug.藥品編號(hào), Tab_drug.通用名, Tab_drug.曾用名,Tab_drug.英文名,;Tab_drug.簡稱, Tab_drug.劑型, Tab_drug.規(guī)格,Tab_drug.包裝, Tab_drug.單位,;Tab_drug.成份, Tab_drug.性狀,Tab_drug.藥理毒理, Tab_drug.適應(yīng)癥, Tab_drug.用法用量,;Tab_drug.不良反應(yīng),Tab_drug.禁忌, Tab_drug.注意事項(xiàng), Tab_drug.藥物過量, Tab_drug.貯藏,;Tab_drug.有效期, Tab_drug.有效期單位,Tab_drug.注冊(cè)商標(biāo), Tab_drug.批準(zhǔn)文號(hào),;Tab_wlunit.全稱 AS 生產(chǎn)廠家, Tab_Wlunit.編號(hào) AS 廠家編號(hào),Tab_drug.產(chǎn)地,Tab_drug.備注,; Tab_kc_confine.庫存上限 AS 上限,Tab_kc_confine.庫存下限 AS 下限;FROM yygsp!tab_drug INNER JOIN yygsp!tab_wlunit ; ON Tab_drug.生產(chǎn)廠家 = Tab_wlunit.編號(hào); INNER JOIN yygsp!tab_kc_confine ; ON Tab_drug.藥品編號(hào) = Tab_kc_confine.藥品編號(hào) Into Cursor Temp_DrugThisform.PF.P2.Grid1.ColumnCount=-1 &設(shè)置表格的列數(shù)數(shù)據(jù)表中的字段數(shù)Thisform.PF.P2.Grid1.RecordSource=Temp_Drug在“添加”按鈕的Button_Click事件中添加如下代碼實(shí)現(xiàn)自動(dòng)生成以“PJ”為標(biāo)識(shí)的藥品編號(hào)。Set Procedure To ProcedureUsedPrg &打開過程文件Select Tab_Drug*調(diào)用自定義函數(shù)生成藥品編號(hào)Thisform.PF.P1.text1.Value=AutoNO(Tab_Drug,藥品編號(hào),PJ,7,) 在Combo1的InteractiveChange事件中添加如下代碼實(shí)現(xiàn)根據(jù)用戶選擇的劑型自動(dòng)生成七位的藥品編號(hào)。Set Procedure To ProcedureUsedPrg &打開過程文件Select 劑型標(biāo)識(shí) From Tab_DoseType Where 劑型=This.Value Into Cursor Temp_DThisform.PF.P1.text1.Value=AutoNO(Tab_Drug,藥品編號(hào),Temp_D.劑型標(biāo)識(shí),7,;Left(藥品編號(hào),2)=Alltrim(Temp_D.劑型標(biāo)識(shí)) &調(diào)用自定義函數(shù)生成藥品編號(hào)在“廠家編號(hào)”文本框的LostFocus事件中實(shí)現(xiàn)用戶輸入廠家編號(hào)后，自動(dòng)填入廠家名稱，如果不存在則給予提示。Select 全稱 From Tab_WLUnit Where Alltrim(Tab_WLUnit.編號(hào))=Alltrim(This.Value) ;Into Cursor Temp_WLUnitGo TopIf Eof() Messagebox(無效的單位編號(hào)！,48,系統(tǒng)提示：) This.Value= This.Parent.Combo4.SetfocusElse This.Parent.Combo4.DisplayValue=Temp_WLUnit.全稱Endif在“廠家名稱”下拉列表框的InterActiveChange事件中添加如下代碼實(shí)現(xiàn)自動(dòng)填入廠家編號(hào)的功能。Select Tab_WLUnitSelect 編號(hào),全稱 From Tab_WLUnit Where 全稱=Alltrim(This.Value) Into Cursor Temp_WLUnitIf !Empty(Temp_WLUnit.編號(hào)) This.Parent.Text5.Value=Alltrim(Temp_WLUnit.編號(hào))Endif在“保存”按鈕的Button_Click事件中的代碼主要實(shí)現(xiàn)保存用戶新添加的藥品信息或修改后的藥品信息，關(guān)鍵代碼如下：If Flag=1 &單擊“添加”按鈕后單擊“保存”按鈕 Locat For 通用名=alltrim(Thisform.PF.P1.Text2.Value) And; 規(guī)格=alltrim(Thisform.PF.P1.Text8.Value) And; 劑型=alltrim(Thisform.PF.P1.Combo1.Value) And; 產(chǎn)地=alltrim(Thisform.PF.P1.Text1.Value) If Found() Messagebox(該藥品信息已經(jīng)添加！,48,系統(tǒng)提示：) Else Insert into Tab_Drug Values(NO,TYName,CYName,YWName,JC,JX,GG,BZ,; DW,CF,XZ,YLDL,SYZ,YFYL,BLFY,JJ,ZYSX,YWGL,ZC,YXQ,YXQDW,ZCSB,; PZWH,cCD,SCCJ,Memo) &保存藥品信息 Insert into Tab_KC_confine Values(NO,0,SX,XX) &保存藥品庫存上下限信息 Messagebox(藥品信息添加成功！,48,系統(tǒng)提示：) Flag=0 EndifEndifIf Flag=2 &單擊“修改”按鈕后單擊“保存”按鈕 Update Tab_Drug Set 藥品編號(hào)=NO,通用名=TYName,曾用名=CYName,英文名=YWName,; 簡稱=JC,規(guī)格=GG,包裝=BZ,單位=DW,成份=CF,性狀=XZ,藥理毒理=YLDL,適應(yīng)癥=SYZ,; 用法用量=YFYL,不良反應(yīng)=BLFY,禁忌=JJ,注意事項(xiàng)=ZYSX,藥物過量=YWGL,貯藏=ZC,; 有效期=YXQ,有效期單位=YXQDW,注冊(cè)商標(biāo)=ZCSB,批準(zhǔn)文號(hào)=PZWH,產(chǎn)地=cCD,; 生產(chǎn)廠家=SCCJ,備注=Memo Where 藥品編號(hào)=NO &修改藥品信息 Update Tab_KC_confine Set 庫存上限=SX,庫存下限=XX Where 藥品編號(hào)=NO Messagebox(藥品信息修改成功！,48,系統(tǒng)提示：) Flag=0Endif“刪除”按鈕主要實(shí)現(xiàn)判斷所要?jiǎng)h除的藥品在庫存中是否還有，如果沒有則刪除該藥品信息和該藥品的庫存上下限信息，否則提示該藥品信息不能刪除。在“查詢”按鈕的Button_Click事件中添加如下代碼實(shí)現(xiàn)根據(jù)用戶在控件中選擇的查詢條件進(jìn)行查詢，當(dāng)用戶選擇“Like”操作符時(shí)，執(zhí)行模糊查詢。QFields=Alltrim(Thisform.Combo1.Value)Operate=Alltrim(Thisform.Combo2.Value)QValue=Alltrim(Thisform.Text1.Value)S