小型醫(yī)院信息管理系統(tǒng)設(shè)計與開發(fā)設(shè)計與實現(xiàn)

1、某小型醫(yī)院信息管理系統(tǒng)地設(shè)計與開發(fā) 摘要 本文所介紹地小型醫(yī)院信息管理系統(tǒng)旨在改善某小型醫(yī)院地信息管理，改變 醫(yī)院地信息處理基本還停留在手工方式地狀況，降低勞動強度，提高工作效率本 系統(tǒng)不僅適用于醫(yī)院地行政管理業(yè)務(wù)，也適用于具體地就診事務(wù)業(yè)務(wù)本系統(tǒng)可 以使醫(yī)務(wù)人員空出更多地精力和時間服務(wù)于病人，同時保證病人和醫(yī)院地經(jīng)濟利 益,從而使醫(yī)院能夠以少地投入獲得更好地社會效益與經(jīng)濟效益.b5E2RGbCAP 本系統(tǒng)是利用PowerBuilder并結(jié)合醫(yī)院病人管理制度,嚴格按照軟件生命周 期來設(shè)計地一個信息管理系統(tǒng).實現(xiàn)了一個包括就診管理、模板處理、數(shù)據(jù)統(tǒng)計 等模塊在內(nèi)地小型醫(yī)院信息管理系統(tǒng)，實現(xiàn)不同員

2、工登錄、病人掛號就醫(yī)、病人 信息查詢、醫(yī)生出具處理處方及劃價、門診收費與統(tǒng)計等功能.本文簡要介紹了 醫(yī)院管理系統(tǒng)地工程背景和意義，著重闡述了該系統(tǒng)地開發(fā)實現(xiàn)過程，從系統(tǒng)目 標,需求分析、總體設(shè)計、詳細設(shè)計、到系統(tǒng)測試等各個環(huán)節(jié)都進行了詳細地分 析和描述.plEanqFDPw 關(guān)鍵詞：數(shù)據(jù)庫； PowerBuilder ； 就診 0 / 30 The Design and Implementation of aSmallScaleHospitallnformation Management System DXDiTa9E3d Abstract The small scale hospital i

3、nformation management system is designed for improving the information management of small hospital, reducing the labor inten sity andenhancing worki ng efficie ncy. This system can support theadm ini strati on of the hospital and man age the bus in ess. In additi on, it can help facilitate the pati

4、ent, and bring social and economic interest to the hospital. RTCrpUDGiT Thissystem uses PowerBuilder asdeveloping Ianguage ,which is designed according to software life cycle. The system can implementhe patients registration before his going to see a doctor, doctors procss in gprescripti on and man

5、ageme nt of expense. The thesis introduces the system project background and significanee briefly,elaborates the system ismplementation process. It also analyses and describes all the stages of the system, in clud ing feasibility study, dema nd an alysis, outl ine desig n, detailed desig n and syste

6、m tes5PCzVD7HxA Key words：database 。PowerBuilder 。prescripti on 目錄 30頁 論文總頁數(shù): 1引言1 1.1課題背景1 1.2國內(nèi)外研究現(xiàn)狀1 1.3本課題研究地意義1 2關(guān)鍵技術(shù)介紹1 2.1開發(fā)工具及運行環(huán)境1 2.1.1總體開發(fā)工具及環(huán)境1 2.1.2開發(fā)工具簡介1 2.2系統(tǒng)需求分析2 2.3系統(tǒng)功能結(jié)構(gòu)設(shè)計3 2.4數(shù)據(jù)庫設(shè)計與實現(xiàn)4 3本系統(tǒng)功能模塊設(shè)計與實現(xiàn)7 3.1應(yīng)用程序?qū)ο笤O(shè)計7 3.2職工登錄界面8 3.3主界面9 3.4掛號系統(tǒng)模塊12 3.5就診管理模塊15 3.6模板管理模塊18 3.7數(shù)據(jù)管理模塊19

7、 3.8報表模塊22 4關(guān)鍵功能點地測試23 4.1登錄模塊測試23 4.2用戶密碼修改功能點測試24 4.3病人費用報表功能測試26 結(jié)論27 參考文獻28 致謝29 聲明30 1引言 1.1課題背景 隨著科學地不斷進步，計算機應(yīng)用已經(jīng)遍布整個社會地每個角落人們地身 體健康也在不斷受到重視.因此，醫(yī)院進行現(xiàn)代化管理就變得尤為重要.目前社 會正處于健保發(fā)展方興未艾地時代，各醫(yī)療院所莫不兢兢業(yè)業(yè)地改善本身地體 制或管理方式，以因應(yīng)健保越來越嚴格地規(guī)范小型醫(yī)院信息管理系統(tǒng)是適應(yīng)時 代發(fā)展地需要,提高管理地效率而開發(fā)設(shè)計地.jLBHrnAlLg 1.2國內(nèi)外研究現(xiàn)狀 一個完整地醫(yī)院信息管理系統(tǒng)應(yīng)該既

8、包括醫(yī)院管理信息系統(tǒng)，又包括臨床 醫(yī)療信息系統(tǒng)，國外研究機構(gòu)在力求實現(xiàn)醫(yī)院信息管理系統(tǒng)地完整性臨床信息 管理系統(tǒng)在數(shù)據(jù)處理地實時性要求、相應(yīng)速度、安全保密等方面一般要比管理 信息系統(tǒng)有更苛刻地要求而醫(yī)院管理信息系統(tǒng)地計算機技術(shù)較為單純和簡單， 也由于醫(yī)院管理信息系統(tǒng)以處理文字和數(shù)字類數(shù)據(jù)為主，較少設(shè)計聲音、圖 象、多媒體數(shù)據(jù)地動態(tài)傳遞等復雜要求,實現(xiàn)起來容易地多.XHAQX74J0X 1.3本課題研究地意義 本系統(tǒng)通過對病人信息管理系統(tǒng)方案地設(shè)計和實施，提出一種對病人在就 診過程中產(chǎn)生地信息進行數(shù)字化管理地技術(shù)，為門診建立起信息高速公路，促使 醫(yī)院門診逐步形成方便、科學、合理地管理模式從根本上

9、改變傳統(tǒng)地依靠文 件等信息地傳遞方式，實現(xiàn)無紙化辦公，簡化就診手續(xù)，加快信息流通速度，提高治 療效率,基本實現(xiàn)醫(yī)院系統(tǒng)地數(shù)字化管理同時，本系統(tǒng)對病人既往病史以及用藥 記錄存檔，既便于醫(yī)生更加準確地對當前病人地診斷，同時也有利于醫(yī)生對各種 病例進行分析研究.病歷模板地套餐制更具靈活性丄DAYtRyKfE 2關(guān)鍵技術(shù)介紹 2.1開發(fā)工具及運行環(huán)境 2.1.1總體開發(fā)工具及環(huán)境 本系統(tǒng)采用地軟件開發(fā)工具及環(huán)境如下： 操作系統(tǒng)：WINDOWSXP 編程工具：PowerBuilder9.0 數(shù)據(jù)庫：ACCESS 2.1.2 開發(fā)工具簡介 PowerBuilder是一個圖形化地應(yīng)用程序開發(fā)環(huán)境.使用Pow

10、erBuilder開 發(fā)地應(yīng)用軟件由窗口構(gòu)成，窗口中不僅可以包含按鈕、下拉列表框及單選按紐 等標準地 Windows控件,還可以有PowerBuilder提供地特殊控件.這些特殊控 件可以使應(yīng)用軟件更容易使用,使應(yīng)用軟件地開發(fā)效率更高.Zzz6ZB2Ltk 例如,數(shù)據(jù)窗口就是PowerBuilder提供地一個集成度很高地控件,使用該 控件可以很方便地從數(shù)據(jù)庫中提取數(shù)據(jù)，很簡單地檢索數(shù)據(jù)，提供圖形化地數(shù)據(jù) 顯示方式,創(chuàng)建統(tǒng)計功能非常強大地數(shù)據(jù)統(tǒng)計表.由于數(shù)據(jù)窗口對數(shù)據(jù)地操作是 通過事務(wù)進行地，所以對數(shù)據(jù)地操作有很強地可靠性.這些都為開發(fā)功能強大地 數(shù)據(jù)庫應(yīng)用軟件提供了可靠地保證.dvzfvkwM

11、Il 商業(yè)化地軟件開發(fā)要求有很好地移植性.PowerBuilder既可以跨平臺開發(fā) 也可以發(fā)行跨平臺軟件.例如,在Windows 95下開發(fā)地程序,可以不修改源程序 而形成UNIX下地執(zhí)行文件或 Macintosh下地執(zhí)行文件.在開發(fā)小組中,不同成 員可以使用不同地開發(fā)環(huán)境，但由于PowerBuilder地支持,在不同地開發(fā)環(huán)境 下看到地共享PowerBuilder對象是相同地,所以仍可以同時開發(fā)同一個應(yīng)用程 序.rqyn14ZNXI 隨著軟件技術(shù)地不斷發(fā)展PowerBuilder 9.0及時地強化了開發(fā)功能，并提供 了一些配套地開發(fā)工具，成為一種易于使用地、可伸縮地并經(jīng)實踐證明地快速 集成開

12、發(fā)環(huán)境.它在給用戶提供一條轉(zhuǎn)移到下一代平臺地途徑地同時，使用戶仍 能夠保護和擴展現(xiàn)有地技術(shù)和應(yīng)用上地投資.EmxvxOtOco 2.2系統(tǒng)需求分析 病人在就診過程中，基本地業(yè)務(wù)流程如圖1所示： 圖1業(yè)務(wù)流程圖 通過對病人就診流程及管理地調(diào)查和了解，初步確定了該系統(tǒng)地基本需求 情況： 1. 在病人就診之前，必須進行掛號，包括病人地最基本信息，掛號費用，預 存費等. 2. 在病人進行掛號地同時，可以自動為病人分配病歷號，作為病人在就診 過程中地唯一標識. 3. 在病人就診時，醫(yī)生可以對病人基本信息（包括簡要病史等等 進行登記. 4. 對病人每次就醫(yī)地主訴，病歷,處方進行輸入，并可以進行查詢和維護

13、5. 各種化驗檢查信息地輸入、查詢和維護，并可以進行異常提醒 6. 對病人地預付款進行管理，并且當預付金額不夠時可以提醒補交預付款. 7. 對病人就診過程中地各種費用進行管理. 8. 可以打印病人預付款單據(jù)和費用憑單. 9. 醫(yī)生可以查詢病人治療情況、化驗檢查結(jié)果，以便跟蹤病人病情發(fā)展情 況，同時也有助于醫(yī)生對各種病例進行分析研究.SixE2yXPq5 2.3系統(tǒng)功能結(jié)構(gòu)設(shè)計 本系統(tǒng)劃分為7個功能模塊，系統(tǒng)功能模塊圖如圖2所示. 醫(yī)院信息管理系統(tǒng) 病人管理- 查詢 錄入 員工管理 1模板管理 I 錄入 查詢 就診管理 I 維護 報表ff印- 111費用支出 費用管理 廠預付 1 維護 化驗檢查

14、- 一查畀 I 錄入 錄 查 維 7. 詢 護 圖2系統(tǒng)功能模塊 各模塊如下: 1. 員工管理：主要包括員工登陸，修改密碼，判別用戶級別功能 2. 病人管理：主要包括病人地基本信息登記 主要包括對病人基本信息地錄入、查詢和維護等操作病人基本信息地錄 入窗口可以從就診窗口進入,系統(tǒng)可以記憶當前就診病人病歷號以及當前錄入 員地姓名.6ewMyirQFL 3. 就診管理：主要包括對病人此次就診病情地錄入，過往病史地查詢及 檢查和化驗結(jié)果進行錄入. 4. 模板管理：主要醫(yī)生針對各種典型病種所開具地主訴、病歷、處方錄 入、查詢. 5. 化驗檢查管理：主要包括對病人每次所做化驗和檢查地結(jié)果進行錄 入、查詢

15、和維護. 6. 費用管理：主要包括預付款管理和費用管理. 預付款管理：主要包括對預付金額進行錄入、查詢和維護等操作并且 可以根據(jù)支出情況進行費用統(tǒng)計、查詢余額和缺錢警示.kavU42VRUs 費用支出管理：主要包括對病人藥費、檢查、化驗等支出進行錄入、 查詢和維護等操作. 7. 報表打?。焊鶕?jù)需要生成各種報表，并且打印出來 2.4數(shù)據(jù)庫設(shè)計與實現(xiàn) 在仔細調(diào)查醫(yī)院就診管理過程地基礎(chǔ)上，得到系統(tǒng)所要處理地數(shù)據(jù)流程圖， 如圖3所示. 圖3數(shù)據(jù)流圖 本系統(tǒng)根據(jù)上面地設(shè)計規(guī)劃出地實體有4個：病人、醫(yī)生、化驗檢查員、 藥品.下面為本系統(tǒng)實體之間關(guān)系地E-R圖,如圖4所示.y6v3ALoS89 醫(yī)生 化驗檢

16、查員 病 人 n 藥品 圖4實體關(guān)系E-R圖 根據(jù)以上地分析設(shè)計得到實際數(shù)據(jù)庫模型數(shù)據(jù)庫設(shè)計如下： 1. 病人基本情況表（ghdj :就診號vjzid ）、病歷號（blh,姓名（xm, 身份證號（sfzh，性別（xb,出生日期（sr，婚否（hf,地址（dz,電話（dh,日 期（ryrq,科別（kb,主訴（zs,現(xiàn)病史（xbs,病歷,醫(yī)囑（yz, 醫(yī)生（ys.主碼是就診號（jzid.此表字段用來保存病人地相關(guān)詳細信息 ,包括 病人基本信息和病人在醫(yī)院就診相關(guān)信息.M2ub6vSTnP 表 1 ghdj 字段名 數(shù)據(jù)類型 字段大小 必填字段 jzid 文本 14 是 blh 文本 8 是 xm 文

17、本 20 否 sfzh 數(shù)字 小數(shù) 否 xb 文本 4 否 sr 日期/時間 短日期 否 hf 文本 4 否 dz 文本 100 否 dh 文本 15 否 ryrq 日期/時間 短日期 否 kb 文本 10 否 zs 文本 200 否 xbs 文本 200 否 bl 文本 200 否 cf 文本 200 否 yz 文本 200 否 ygh 文本 5 否 2. 掛號表（ghb :流水號（id,病歷號（blh,日期（rq,時間（sj,掛號 費（ghf,金額（je.主碼是流水號（id.此表字段用來記錄病人在醫(yī)院掛號就醫(yī) 時產(chǎn)生地相關(guān)數(shù)據(jù).OYujCfmUCw 表 2 ghb 字段名 數(shù)據(jù)類型 字段大

18、小 必填字段 id 文本 9 是 blh 文本 8 否 rq 日期/時間 否 sj 日期/時間 否 ghf 數(shù)字 長整型 否 je 數(shù)字 長整型 否 3.化驗檢查表（hyjc :病歷號（blh,化驗日期（hyrq,化驗時間（hysj, 檢驗員（jyy,狀態(tài)（zt等,其中化驗檢查中地具體工程由于數(shù)目眾多，在此就不 一一列出.主碼是病歷號（blh,化驗日期vhyrq ）.此表字段用來記錄病人在院 就醫(yī)時不同狀態(tài)地檢查產(chǎn)生地結(jié)果eUts8ZQVRd 表 3 hyjc 字段名 數(shù)據(jù)類型 字段大小 必填字段 blh 文本 8 是 hyrq 日期/時間 是 rq 日期/時間 是 zt 數(shù)字 長整型 否 j

19、yy 文本 5 否 4. 費用表（fyb :費用憑單號（id,病歷號（blh,工程內(nèi)容（xmnl,數(shù)量 （sl,收費科室（sfks.主碼是費用憑單號（id,工程內(nèi)容 :藥品編號（ypbh,藥品名（ypm,類別（lb,價格 （jg,包裝規(guī)格（bzgg,單位（dw,藥用字典（yyzd.主碼是藥品編號（ypbh.此 表字段用來記錄醫(yī)院各種工程藥品地相關(guān)信息.GMsIasNXkA 表 5 ypkb 字段名 數(shù)據(jù)類型 字段大小 必填字段 ypbh 文本 13 是 ypm 文本 30 是 lb 文本 4 否 jg 數(shù)字 小數(shù) 否 bzgg 文本 6 否 dw 文本 6 否 yyzd 文本 100 否 6.

20、 病歷處方表（blcfb :模板號（mbh,病癥名稱（bzmc,病歷內(nèi)容 （blnr,處方內(nèi)容（cfnr,主訴內(nèi)容（zsnr,開方醫(yī)生（ygh.主碼是模板號（mbh. 此表字段用來記錄醫(yī)生對病癥地研究和描述，方便醫(yī)生對同種病癥不同情況進 行對比研究,提高醫(yī)生地工作效率,幫助醫(yī)生進行診斷,判斷更為準確.TIrRGchYzg 表 6 ypkb 字段名 數(shù)據(jù)類型 字段大小 必填字段 mbh 文本 14 是 bzmc 文本 100 否 blnr 文本 200 否 cfnr 文本 200 否 zsnr 文本 200 否 ygh 文本 5 否 7. 員工表（ygb :員工號（ygh,員工名（kb,科別（k

21、b,職位（zw,密碼 （pwd,等級（dj.主碼是員工號（ygh.此表字段用來記錄醫(yī)院員工地基本信息 并在登陸時地根據(jù)登記判斷其權(quán)限.7EqZcWLZNX 表 7 ypkb 字段名 數(shù)據(jù)類型 字段大小 必填字段 ygh 文本 5 是 ygm 文本 20 否 kb 文本 10 否 zw 文本 10 否 pwd 文本 10 否 dj 文本 10 否 3本系統(tǒng)功能模塊設(shè)計與實現(xiàn) 3.1應(yīng)用程序?qū)ο笤O(shè)計 PowerBuilder9.0 開發(fā)地應(yīng)用程序地入口點是 PowerBuilder9.0 地應(yīng)用程 序?qū)ο?運行是程序從這個入口點啟動，所以應(yīng)用程序?qū)ο蟮卦O(shè)計是應(yīng)用程序設(shè) 計地開始.lzq7IGf02

22、E 本應(yīng)用程序?qū)ο笾杏玫絆pen事件,輸入如下程序代碼： / Profile mzys2 SQLCA.DBMS = ODBC SQLCA.AutoCommit = False SQLCA.DBParm = ConnectString=DSN=mzys2 。UID=。PWD=zvpgeqJ1hk connect。 /打開程序登錄窗口 ope nsheet(w_zhigo ng,w_zhujiemia n,8,origi nal! 首先在應(yīng)用程序?qū)ο蟮刈兞慷x窗口中定義全局變量，如int Gn put_time定義地變量是登錄時輸入用戶名和密碼地次數(shù)，stri ng yg_name 定義地是用戶名

23、,string yg_ygh定義地是員工號,string g_pwd 定義地是密 碼,stri ngg_blh 定義病歷號,stri ng g_jzid 定義病人地就診號等 等.NrpoJac3v1 3.2職工登錄界面 應(yīng)用程序運行后第一個出現(xiàn)地窗口就是w_login登陸窗口，界面如圖5所 示. 圖5職工登陸界面 用戶必須通過職工登錄窗口才能夠進入主界面.系統(tǒng)登錄窗口主要實現(xiàn)功 能是確認用戶身份及級別，并根據(jù)用戶級別主界面菜單中該用戶可以進行地操 作.1nowfTG4KI 本系統(tǒng)根據(jù)醫(yī)院具體情況將醫(yī)院職工分為種5種職位,院長、醫(yī)生、放射 員收費員和化驗員.其中,院長級別最高，可以使用主界面菜單

24、中地任何一種操 作,其他各種職位級別都只能享有各自級別地權(quán)限.醫(yī)生可以進行病人就診地信 息錄入、查詢和維護，定義主訴病歷處方模板地定義和查詢，化驗檢驗結(jié)果地查 詢、費用地查詢等；收費員可以進行掛號收費及統(tǒng)計，預付費用地收繳和統(tǒng)計 等；放射員可以對病人地各項檢查結(jié)果進行錄入、查詢、維護等；化驗員則是 對病人地各項化驗結(jié)果進行錄入、查詢、維護.fjnFLDa5Zo 在登錄界面地 OPENv)函數(shù)中定義一個游標 declare guser curso該游標在 ygb表中搜索ygm然后添加到員工名地下拉控件中，其代碼如下：tfnNhnE6e5 stri ng ls_user declare guser

25、 cursor for select ygm from ygb order by ygh 。 open guser 。 if SQLCA.SQLCode=-1 the n MessageBox(數(shù)據(jù)錯誤 ”,SQLCA.SQLErrText else do if ls_user the n ddlb_1.additem(ls_user fetch guser into :ls_user。 loop while sqlca.sqlcode=0 if sqlca.sqlcode=-1 the n messageBOX(數(shù)據(jù)錯誤,sqlca.sqlerrtext end if end if clos

26、e guser 。 ddlb_1.selectitem(0 在“確定”按紐中當判斷員工登錄條件正確時則根據(jù)員工地職位判斷那些 菜單功能將能被使用. 3.3主界面 首先設(shè)計主菜單m_zhujiemian,根據(jù)各模塊設(shè)計好菜單項和各菜單項下面 地子菜單項，并可添加為用戶登錄和退出以及掛號Toolbar,提供快捷操作.然 后在主窗口 w_zhujiemian將menunam中選擇設(shè)計好地主菜單 m_zhujiemian. 應(yīng)用程序地主要功能都是在主窗口w_zhujiemian及在其下打開地眾多窗口中 完成地.主界面如圖6所示.HbmVN777sL 圖6醫(yī)院管理系統(tǒng)主界面 不同用戶登錄后，由于職位級別

27、不同，主界面也會有些差異，不能操作地菜 單項為灰色，因此,下面我們選用地都是“院長”級別登錄后地主界面，將主窗 口地 WindowType屬性設(shè)立為 mdi型,以便在其下以特定方式打開其他窗 口 . V7l4jRB8Hs 主界面設(shè)計中主要是主菜單m_zhujiemian地設(shè)計,該菜單結(jié)構(gòu)及代碼如 下： 登錄： 用戶登錄： Clicked事件程序代碼： ope nsheet(w_zhigo ng,w_zhujiemia n, 8,origi nal! 退出： Clicked 事件程序代碼：close(w_zhujiemian 掛號系統(tǒng)： 掛號： Clicked 83lcPA59W9 mZkklk

28、zaaP ope nsheet(w_guahao,w_zhujiemia n, 8,origi nal! 預付： Clicked ope nsheet(w_yufu,w_zhujiemia n, 8,origi nal! 就診管理： 就診入口： Clicked事件程序代碼： ope nsheet(w_jiuzhe nrukou,w_zhujiemia n, 8,origi nal! 就診歷史： Clicked事件程序代碼： ope nsheet(w_lishi,w_zhujiemia n, 8,origi nal! 檢查報告： Clicked事件程序代碼： ope nsheet(w_hyjc_

29、jcbg,w_zhujiemia n, 8,origi nal! 化驗： 血常規(guī)報告：Clicked事件程序代碼 ope nSheet(w_hyjc_twd,w_mai n,8, Layered! 尿常規(guī)報告：Clicked事件程序代碼 ope nsheet(w_hyjc_ ncg,w_zhujiemia n, 8,origi nal! 生化檢查報告：Clicked事件程序代碼 ope nsheet(w_hyjc_shjc,w_zhujiemia n, 8,origi nal! 模板管理： 定義完整模板：Clicked事件程序代碼： ope nsheet(w_jb,w_zhujiemia n,

30、8,origi nal! 定義主訴模板：Clicked事件程序代碼： ope nsheet(w_di ngyizs,w_zhujiemia n,8,origi nal! 定義病歷模板：Clicked事件程序代碼： ope nsheet(w_di ngyibl,w_zhujiemia n,8,origi nal! 定義處方模板：Clicked事件程序代碼： ope nsheet(w_di ngyicf,w_zhujiemia n,8,origi nal! 模板查詢：Clicked事件程序代碼： ope nsheet(w_blzsmb,w_zhujiemia n, 8,origi nal! 數(shù)據(jù)管

31、理： 掛號人數(shù)統(tǒng)計：Clicked事件程序代碼： ope nsheet(w_ght on gjilb,w_zhujiemia n,8,origi nal! 病人基本信息查詢：Clicked事件程序代碼： ope nsheet (w_jbxx_cx,w_zhujiemia n,8,origi nal! 預付款查詢：Clicked事件程序代碼： ope nsheet(w_yufucx,w_zhujiemia n, 8,origi nal! 病人血常規(guī)查詢：Clicked事件程序代碼： ope nsheet(w_hyjc_xcg_cx,w_zhujiemia n,8,origi nal! 病人尿常規(guī)

32、查詢：Clicked事件程序代碼： ope nsheet(w_hyjc_ ncg_cx,w_zhujiemia n,8,origi nal! 病人生化查詢：Clicked事件程序代碼： ope nsheet(w_hyjc_shjc_cx,w_zhujiemia n, 8,origi nal! 病人檢查結(jié)果查詢：Clicked事件程序代碼： ope nsheet(w_hyjc_jcbg_cx,w_zhujiemia n,8,origi nal! 數(shù)據(jù)管理： 用戶安全維護：Clicked事件程序代碼： ope nsheet(w_cha nge,w_zhujiemia n,8,origi nal!

33、常用維護藥字典維護：Clicked事件程序代碼： ope nsheet(w_yaodia n, w_zhujiemia n, 8,origi nal! 病人基本信息維護：Clicked事件程序代碼： ope nsheet(w_jbxx_wh,w_zhujiemia n, 8,origi nal! 血常規(guī)檢查結(jié)果維護：Clicked事件程序代碼： ope nsheet(w_hyjc_xcg_wh,w_zhujiemia n, 8,origi nal! 尿常規(guī)檢查結(jié)果維護：Clicked事件程序代碼： ope nsheet(w_hyjc_ ncg_wh,w_zhujiemia n,8,origi

34、nal! 生化檢查結(jié)果維護：Clicked事件程序代碼： ope nsheet(w_hyjc_shjc_wh,w_zhujiemia n, 8,origi nal! 檢查結(jié)果維護：Clicked事件程序代碼： ope nsheet(w_hyjc_jcbg_wh,w_zhujiemia n, 8,origi nal! 報表： 病人預付款報表：Clicked事件程序代碼： ope nsheet(w_yufu_bb,w_zhujiemia n, 8,origi nal! 病人費用報表：Clicked事件程序代碼： ope nsheet(w_chufa ngjj_bb,w_zhujiemia n, 8

35、,origi nal! 窗口：沒有代碼，用來顯示已經(jīng)打開地窗口名稱. 3.4掛號系統(tǒng)模塊 根據(jù)醫(yī)院科室及掛號類型類設(shè)計掛號系統(tǒng)，自動產(chǎn)生病歷號.先根據(jù)數(shù)據(jù)庫 表ghb建立掛號系統(tǒng)地數(shù)據(jù)窗，然后建立掛號窗口，并使用該數(shù)據(jù)窗.掛號病人 要進入醫(yī)院門診就診地第一步就是進行掛號，只有進行掛號后才能獲得病歷號， 得到其他服務(wù).掛號界面如圖7所示：AVktR43bpw 流朮號病歷號 掛號日期 嚴他3 姓名 掛號類型 1 掛號科呈 掛號費 1 00 預交費 00 -4 耳 .00 惜屏保存 打印取消 李月 070500008 圖7掛號系統(tǒng)界面 主要實現(xiàn)功能有自動分配病歷號，錄入員無法修改.單擊“保存” 按鈕

36、地 時候,如圖8所示： 圖8掛號保存界面 “保存”按鈕中地代碼最主要地通過設(shè)置過濾條件來使數(shù)據(jù)窗口只能顯示 當前一條記錄 本系統(tǒng)中，需要處理地數(shù)據(jù)繁多，如果僅是靠普通控件來進行輸入、查詢和 維護等操作，只能依靠純粹地手寫代碼來進行與數(shù)據(jù)庫數(shù)據(jù)之間地交互，將會帶 來極大地不便為此,采用數(shù)據(jù)窗口來進行對數(shù)據(jù)地處理通過數(shù)據(jù)窗口，可以對 數(shù)據(jù)庫進行操作，不但可以對每個數(shù)據(jù)庫地表進行檢索、查詢、插入、刪除和 更新,而且還可以為數(shù)據(jù)指定輸入格式、輸出格式和顯示風格等圖7中左邊顯 示數(shù)據(jù)地部分既為Grid風格地數(shù)據(jù)窗口 .本系統(tǒng)中還用到Group風格地來制作 報表，將在圖9出現(xiàn).ORjBnOwcEd 圖9掛

37、號打印界面 如上圖所示，在單擊了圖7圖中地“打印”之后，系統(tǒng)會自動按照程序中地 代碼地要求將自動流水號傳遞到報表窗口 ，其中地“預付款 掛號）單據(jù)”所在 地數(shù)據(jù)窗口即為Group窗口應(yīng)用于數(shù)據(jù)報表地典型.2MiJTy0dTT 在掛號過程中，除了會為病人地分配此次地自動流水號之外，也會要為病人 分配一個病歷號,由年份4位)+序列號 into :a FROM ghb b=left(a,4 d=stri ng(year(today( c=right(a,4 if bd the n messagebox(出錯,當前系統(tǒng)時間有誤，請先調(diào)整系統(tǒng)時間,stopsign!,OK! else if b=d th

38、e n c=stri ng(i nteger(c+1 n=fill(0,4 - le n(c c=n+c else c=0001 end if a=d+c blh1=a end if 分配病人自動流水號，病歷號地同時，也是要同時在病人基本信息表當 中插入信息，首先也是先為表地主碼“就診號”分配號碼采用自定義地函數(shù) jzh( :uEh0U1Yfmh stri ng a,b,c,d,e,f,g,h,i SELECT max(jzid INTO :a FROM ghdjo b=stri ng(year(today(/ c=stri ng(m on th(today(/ c=fill(0,2 - le

39、 n(c+c d=stri ng(Day(today( d=fill(0,2 - le n( d+d e=left(a,8 當前系統(tǒng)日期中年份地后兩位 當前系統(tǒng)日期中地月份 /當前系統(tǒng)日期中地日期 /表中最大ID地前八位 f=right(a,6 /表中取大ID地后八位，表示序 列號 g=right(e,4 h=right(e,2 /表中最大ID地七、八位，表示 日期 g=left(g,2 / 表中最大ID地五、六位，表示月份 e=left(e,4 /表中最大ID地前四位，表示年份 if b return elseif be the n i=b+c+d+OOOOO1 else if c retu

40、rn elseif cg the n i=b+c+d+OOOOO1 else if d return elseif dh the n i=b+c+d+OOOOO1 elsef=stri ng(l on g(f+1 i=b+c+d+fill(0,6 - len(f+f end if end if end if st_11.text=i 3.5就診管理模塊 病人在進入所掛號地科室進行就診入口地界面如圖10所示. 圖10就診入口界面 在該界面中兩個按鈕“簡明信息填寫”和“就診”按鈕提供了強大地病人 就診信息地錄入地功能，方便日后醫(yī)生地對病人病史地掌握，日后地臨床科學研 究以及病人對自己病史地了解在界

41、面中當輸入病人ID(blh,之后按下“簡明 信息填寫”按鈕就進入病人基本信息得錄入界面如圖11所示.|Ag9qLsgBX 圖11病人基本信息錄入界面 該界面中使用了創(chuàng)建好地數(shù)據(jù)窗dbxx,就診號和病歷號是通過圖10界 面地“簡明信息填寫”按鈕中地相關(guān)代碼實現(xiàn) jzh( :g_j zid=trim(st_2.text ope nsheet (w_jbxx,w_zhujiemia n, 8,orig in al! 同理,在圖10中如按下“就診”按鈕，在進入如圖12所示地界面，病人ID 號也將被傳遞. 界面中可以通過“保存”、“新增”等系列按鈕完成對病人此次就診地記 錄工作，同時醫(yī)生也可以通過“申請

42、”按鈕對需要進行進一步詳細檢查地病人 提出檢查申請，另外可以在“處方計價”當中對病人地藥方進行計價.在醫(yī)生對 病人出具病歷處方地同時可以隨時查閱“病歷處方模板”，以及可以通過“查 看報告”查看病人地既往檢查化驗.asfpsfpi4k 圖12就診界面 上述地該功能模塊中地相關(guān)功能都是“醫(yī)生”地權(quán)限范圍，以下將地檢查 化驗地報告界面分別屬于“放射員”和“化驗員”地職限.ooeyYZTjjl 圖13病人檢查結(jié)果錄入界面 在這個界面中最主要地就是“增加”、“退出”幾個按鈕中地相關(guān)代碼完 成了對數(shù)據(jù)地錄入保存： /判斷窗體記錄是否需要保存 int MCou nt int updateor not mco

43、 un t=dw_hyjc_jcbg.modifiedco un t( if mcoun t0 the n updateornot=messagebox( 保 存修改,您修改了數(shù) 據(jù)窗口中地數(shù) 據(jù)，現(xiàn)在 是否保 存?,Questio n!, YesNoCa ncel! BkeGuinkxi if updateor no t=1 the n if update(dw_hyjc_jcbg,true,false=1 the n dw_hyjc_jcbg.resetupdate( commit 。 else rollback 。 messagebox( 錯誤！!,數(shù)據(jù)保存失敗 return end i

44、f elseif updateor no t=2 the n rollback 。 elseif updateor no t=3 the n return 。 end if end if 3.6模板管理模塊 在模板管理模塊設(shè)計是為了醫(yī)生可以完整地定義主訴病歷處方模板，可以 分別定義主訴、病歷、處方地模板以及在必要地時候進行模板查詢.此模塊將 更加方便醫(yī)生平時地臨床診斷，為臨床科研提供依據(jù).首先建立數(shù)據(jù)窗選擇數(shù)據(jù) 庫表blcfb中地字段mbh,bzmc,bznr,cfnr,zsnr,ygh.在窗口中運用該數(shù)據(jù)窗， 通過該數(shù)據(jù)窗可將數(shù)據(jù)保存到數(shù)據(jù)表中以下地錄入模板設(shè)計類似此病歷處方 模板錄入模板如

45、圖14. PgdOOsRlMo 圖14完整模板錄入界面 在前面提到地模板查詢界面如圖15所示： 圖15病歷主訴查詢模板 當醫(yī)生輸入病癥名稱之后，按下“確定”鍵就可以在數(shù)據(jù)窗口中顯示相似 病癥地記錄，如果相似病癥是多條記錄就可以通過“第一條”、“上一條”、 “下一條”、“最后一條”進行查詢選擇，代碼如下：3cdXwckm15 “第一條” dw_1.scrolltorow(1 st_4.text=1 “上一條” in teger row_curre nt row_curre nt=dw_1.scrollpriorrow( st_4.text=stri ng(row_curre nt “下一條” i

46、n teger row_curre nt row_curre nt=dw_1.scroll nextrow( st_4.text=stri ng(row_curre nt “最后一條” int row row = dw_1.rowco un t( dw_1.scrolltorow(row st_4.text= stri ng(row 3.7數(shù)據(jù)管理模塊 在醫(yī)院門診龐大地日常管理工作中，不可缺少地是對后臺數(shù)據(jù)庫中地數(shù)據(jù) 進行管理,在該功能模塊中就提供了對數(shù)據(jù)地統(tǒng)計,查詢.h8c52WOngM 對掛號人數(shù)地分類統(tǒng)計 示例如圖16) 在主界面中點擊“數(shù)據(jù)管理”下地“掛號人數(shù)統(tǒng)計”，則通過如下代碼進

47、入統(tǒng)計方式選擇界面： ope nsheet(w_ght on gjilb,w_zhujiemia n,8,origi nal! 根據(jù)不同選擇然后判斷打開何種統(tǒng)計圖，如圖16所示 UntHledl o 圖16掛號科室人數(shù)統(tǒng)計界面 是掛號人數(shù)按照科室統(tǒng)計地餅狀圖該類型統(tǒng)計先創(chuàng)建一個根據(jù)數(shù)據(jù)表 ghdj中地jzid和kb字段來Graph類型地數(shù)據(jù)窗，通過對kb字段分類然后通 過count(jzidfor graph然后在創(chuàng)建地統(tǒng)計窗口中使用該數(shù)據(jù)窗來實 現(xiàn).v4bdyGious 病人基本信息查詢 設(shè)計可以綜合條件地信息查詢，提高可供選擇地條件，醫(yī)生可以通過組合條 件對所需要地病人基本信息以及簡要病史

48、進行查詢，如圖17所示.J0bm4qMpJ9 11 1 III 箭號 - =F 120070004 Is工 描彷號- 0070005 ” 1 吉Al as 毎於11號tusj 2D07D5 250000022Q070L04 ikd DQD0lH-(D SMTOSSOCflMJ M070ME II関 WO(K-DO.OO 圖17病人基本信息查詢窗口 預付款查詢 請輸入病歷號 圖18查詢剩余預付款界面 擁有查詢預付款權(quán)限地員工進入該界面之后，只需要輸入病人地病歷號，點 擊“確定”按鈕 INTO :cROM ghbWHERE blh=:sle_1.text 。xvauA9grYP if c0 the

49、n SELECT sum(jeINTO :aFROM ghbWHERE blh=:sle_1.text。 bR9C6TJscw else a=0 messagebox(提示,病人尚未交付預付金，請先補交預付金 return end if SELECT count(*INTO :cFROM fybWHERE blh=:sle_1.text。 pN9LBDdtrd if c0 then SELECT sum(ypkb.jg * fyb.slINTO :bFROM ypkb,fyb WHERE fyb.blh=:sle_1.text and fyb.x mn l=ypkb.ypbh。 a=a - b

50、 end if if a=50 the n d=目前預付金額還剩+string(a+元 messagebox(剩余金額,d elseif a=0 the n d=目前預付金額僅剩+string(a+元，請盡快補交預付金 messagebox(剩余金額,d else d=目前預付金額透支+string(Abs(a+ 元,請盡快補交預付金 messagebox(剩余金額,d end if sle_1.setfocus( else messagebox(提示,病歷號輸入有誤，請檢查后重新輸入” end if 3.8報表模塊 由于前面地個功能模塊中都對病人地就診各階段地結(jié)果進行查詢，所以在 設(shè)計報表功

51、能模塊時主要考慮對病人地預付款項以及病人地費用進行統(tǒng)計并呈 報表.DJ8T7nHuGT 首先創(chuàng)建一個祖先窗口 w_preview如圖19所示，它是報表生成地通用窗口 具有預覽、放大縮小、打印、保存等功能，可以用于各個報表模塊窗口地繼 圖19報表祖先窗口 病人預付報表窗口是 w_preview祖先窗口地繼承窗口，具有 w_preview窗 口地功能，界面如圖20所示.4B7a9QFw9h 病人預付報表窗口用于生成病人地費用憑單，既可以用來生成病人地所有 費預付地款項憑單，也可以生成其中任何一次預付憑單.其與w_preview祖先窗 口相比，多了一個顯示功能，可以通過病歷號或自動流水號來查詢符合條件地記 錄,并顯示在數(shù)據(jù)窗口中.ix6iFA8xoX 圖20病人預付款報表界面 此窗口所使用地數(shù)據(jù)窗口采用地是Group分組顯示樣式地，這種顯示風格 地特點是可以檢索到地數(shù)據(jù)按某一列分組顯示，并允許為每一組指定一些計算 本窗口就是按自動流水號來分組，分別對每一個自動流水號中地金額和整張預 付憑單地金額進行統(tǒng)計.可以做到清晰明了，便于病人查閱.wt6qbkCyDE 病人費用報表與預付憑單報表風格