【文章內(nèi)容簡(jiǎn)介】 信息查詢： Clicked 事件程序代碼： opensheet (w_jbxx_cx,w_zhujiemian,8,original!) ③ 預(yù)付款查詢： Clicked 事件程序代碼： opensheet(w_yufucx,w_zhujiemian,8,original!) ④ 病人血常規(guī)查詢： Clicked 事件程序代碼： opensheet(w_hyjc_xcg_cx,w_zhujiemian,8,original!) ⑤ 病人尿常規(guī)查詢： Clicked 事件程序代碼： opensheet(w_hyjc_ncg_cx,w_zhujiemian,8,original!) ⑥ 病人生化查詢： Clicked 事件程序代碼： opensheet(w_hyjc_shjc_cx,w_zhujiemian,8,original!) ⑦ 病人檢查結(jié)果查詢： Clicked 事件程序代碼： opensheet(w_hyjc_jcbg_cx,w_zhujiemian,8,original!) ⑹數(shù)據(jù)管理： ① 用戶安全維護(hù)： Clicked 事件程序代碼： opensheet(w_change,w_zhujiemian,8,original!) ② 常用維護(hù)藥字典維護(hù)： Clicked 事件程序代碼： opensheet(w_yaodian,w_zhujiemian,8,original!) ③ 病人基本信息維護(hù)： Clicked 事件程序代碼： opensheet(w_jbxx_wh,w_zhujiemian,8,original!) ④ 血常規(guī)檢查結(jié)果維護(hù)： Clicked 事件程序代碼： opensheet(w_hyjc_xcg_wh,w_zhujiemian,8,original!) 第 12 頁(yè) 共 30 頁(yè) ⑤ 尿常規(guī)檢查結(jié)果維護(hù)： Clicked 事件程序代碼： opensheet(w_hyjc_ncg_wh,w_zhujiemian,8,original!) ⑥ 生化檢查結(jié)果維護(hù)： Clicked 事件程序代碼： opensheet(w_hyjc_shjc_wh,w_zhujiemian,8,original!) ⑦ 檢查結(jié)果維護(hù)： Clicked 事件程序代碼： opensheet(w_hyjc_jcbg_wh,w_zhujiemian,8,original!) ⑺報(bào)表： ① 病人預(yù)付款報(bào)表： Clicked 事件程序代碼： opensheet(w_yufu_bb,w_zhujiemian,8,original!) ② 病人費(fèi)用報(bào)表： Clicked 事件程序代碼： opensheet(w_chufangjj_bb,w_zhujiemian,8,original!) ⑻窗口：沒有代碼，用來顯示已經(jīng)打開的窗口名稱。 掛號(hào)系統(tǒng)模塊 根據(jù)醫(yī)院科室及掛號(hào)類型類設(shè)計(jì)掛號(hào)系統(tǒng)，自動(dòng)產(chǎn)生病歷號(hào)。先根據(jù)數(shù)據(jù)庫(kù)表 ghb 建立掛號(hào)系統(tǒng)的數(shù)據(jù)窗 ,然后建立掛號(hào)窗口，并使用該數(shù)據(jù)窗。掛號(hào)病人要進(jìn)入醫(yī)院門診就診的第一步就是進(jìn)行掛號(hào)，只有進(jìn)行掛號(hào)后才能獲得病歷號(hào)，得到其他服務(wù)。掛號(hào)界面如圖 7 所示 ： 圖 7 掛號(hào)系統(tǒng)界面 主要實(shí)現(xiàn)功能有自動(dòng)分配病歷號(hào)，錄入員無法修改。單擊“保 存” 按鈕的時(shí)候，如圖 8 所示 : 第 13 頁(yè) 共 30 頁(yè) 圖 8 掛號(hào)保存界面 “保存”按鈕中的代碼最主要的通過設(shè)置過濾條件來使數(shù)據(jù)窗口只能顯示當(dāng)前一條記錄。 本系統(tǒng)中，需要處理的數(shù)據(jù)繁多，如果僅是靠普通控件來進(jìn)行輸入、查詢和維護(hù)等操作，只能依靠純粹的手寫代碼來進(jìn)行與數(shù)據(jù)庫(kù)數(shù)據(jù)之間的交互，將會(huì)帶來極大的不便。為此，采用數(shù)據(jù)窗口來進(jìn)行對(duì)數(shù)據(jù)的處理。通過數(shù)據(jù)窗口，可以對(duì)數(shù)據(jù)庫(kù)進(jìn)行操作，不但可以對(duì)每個(gè)數(shù)據(jù)庫(kù)的表進(jìn)行檢索、查詢、插入、刪除和更新，而且還可以為數(shù)據(jù)指定輸入格式、輸出格式和顯示風(fēng)格等。圖 7中左邊顯示數(shù)據(jù)的部分既為 Grid 風(fēng)格 的數(shù)據(jù)窗口。本系統(tǒng)中還用到 Group 風(fēng)格的來制作報(bào)表，將在圖 9出現(xiàn)。 圖 9 掛號(hào)打印界面 如上圖所示，在單擊了圖 7 圖中的“打印”之后，系統(tǒng)會(huì)自動(dòng)按照程序中的代碼的要求將自動(dòng)流水號(hào)傳遞到報(bào)表窗口，其中的“預(yù)付款（掛號(hào)）單據(jù)”所在的數(shù)據(jù)窗口即為 Group 窗口應(yīng)用于數(shù)據(jù)報(bào)表的典型。 第 14 頁(yè) 共 30 頁(yè) 在掛號(hào)過程中，除了會(huì)為病人的分配此次的自動(dòng)流水號(hào)之外，也會(huì)要為病人分配一個(gè)病歷號(hào)，由年份（ 4位）＋序列號(hào)（ 4位）構(gòu)成。每到新的一年，序列號(hào)都是從 0001 開始；如果不是在新的一年，則序列號(hào)是已經(jīng)在醫(yī)院就診的病人的人數(shù)加上 1 構(gòu)成。為此 ，每次分配病歷號(hào)時(shí)，從數(shù)據(jù)庫(kù)中掛號(hào)表中提取最大的病歷號(hào)，將其中的年份與當(dāng)前計(jì)算機(jī)上的年份相比較，如果相等，則將后4位的序列號(hào)加 1,如果是新的一年則直接讓序列號(hào)位 0001。具體實(shí)現(xiàn)是在窗口中定義，代碼如下： //分配病歷號(hào) string a,b,d,c,n SELECT max() into :a FROM ghb。 b=left(a,4) d=string(year(today())) c=right(a,4) if bd then messagebox(39。出錯(cuò) 39。,39。當(dāng)前系統(tǒng)時(shí)間有誤 ,請(qǐng)先調(diào)整系統(tǒng)時(shí)間 39。,stopsign!,OK!) else if b=d then c=string(integer(c)+1) n=fill(39。039。,4 len(c)) c=n+c else c=39。000139。 end if a=d+c blh1=a end if 分配病人自動(dòng)流水號(hào)，病歷號(hào)的同時(shí)，也是要同時(shí)在病人基本信息表當(dāng)中插入信息，首先也是先為表的主碼“就診號(hào)”分配號(hào)碼。采用自定義的函數(shù)jzh(): string a,b,c,d,e,f,g,h,i SELECT max(jzid) INTO :a FROM ghdj。 b=string(year(today())) //當(dāng)前系統(tǒng)日期中年份的后兩位 c=string(month(today())) //當(dāng)前系統(tǒng)日期中的月份 c=fill(39。039。,2 len(c))+c d=string(Day(today())) //當(dāng)前系統(tǒng)日期中的日期 d=fill(39。039。,2 len(d))+d e=left(a,8) //表中最大 ID的前八位 第 15 頁(yè) 共 30 頁(yè) f=right(a,6) //表中最大 ID的后六位 ,表示序列號(hào) g=right(e,4) h=right(e,2) //表中最大 ID的七、八位 ,表示日期 g=left(g,2) //表中最大 ID的五、六位 ,表示月份 e=left(e,4) //表中最大 ID的前四位 ,表示年份 if be then messagebox(出錯(cuò) ,當(dāng)前系統(tǒng)時(shí)間有誤 ,請(qǐng)先調(diào)整系統(tǒng)時(shí)間 ) return elseif be then i=b+c+d+39。00000139。 else if cg then messagebox(出錯(cuò) ,當(dāng)前系統(tǒng)時(shí)間有誤 ,請(qǐng)先調(diào)整系統(tǒng)時(shí)間 ) return elseif cg then i=b+c+d+39。00000139。 else if dh then messagebox(出錯(cuò) ,當(dāng)前系統(tǒng)時(shí)間有誤 ,請(qǐng)先調(diào)整系統(tǒng)時(shí)間 ) return elseif dh then i=b+c+d+39。00000139。 else f=string(long(f)+1) i=b+c+d+fill(39。039。,6 len(f))+f end if end if end if =i 就診管理模塊 病人在進(jìn)入所掛號(hào)的科室進(jìn)行就診入口的界面如圖 10所示。 圖 10 就診入口界面 在該界面中兩個(gè)按鈕“簡(jiǎn)明信息填寫”和“就診”按鈕提供了強(qiáng)大的病人 第 16 頁(yè) 共 30 頁(yè) 就診信息的錄入的功能，方便日后醫(yī)生的對(duì)病人病史的掌握，日后的臨床科學(xué)研究以及病人對(duì)自己病史的了解。在界面中當(dāng)輸入病人 ID(blh)，之后按下“簡(jiǎn)明信息填寫”按鈕就進(jìn)入病人基本信息得錄入界面如圖 11所示。 圖 11 病人 基本信息錄入界面 該界面中使用了創(chuàng)建好的數(shù)據(jù)窗 d_jbxx，就診號(hào)和病歷號(hào)是通過圖 10 界面的“簡(jiǎn)明信息填寫”按鈕中的相關(guān)代碼實(shí)現(xiàn)（主要是利用全局變量來傳遞值）： ::g_blh=trim() jzh() ::g_jzid=trim() opensheet (w_jbxx,w_zhujiemian,8,original!) 同理，在圖 10 中如按下“就診”按鈕，在進(jìn)入如圖 12 所示的界面，病人ID號(hào)也將被傳遞。 界面中可以通過“保存”、“新增”等系列按鈕完成對(duì)病人此次就診的記 錄工作，同時(shí)醫(yī)生也可以通過“申請(qǐng)”按鈕對(duì)需要進(jìn)行進(jìn)一步詳細(xì)檢查的病人提出檢查申請(qǐng)，另外可以在“處方計(jì)價(jià)”當(dāng)中對(duì)病人的藥方進(jìn)行計(jì)價(jià)。在醫(yī)生對(duì)病人出具病歷處方的同時(shí)可以隨時(shí)查閱“病歷處方模板”，以及可以通過“查看報(bào)告”查看病人的既往檢查化驗(yàn)。 第 17 頁(yè) 共 30 頁(yè) 圖 12 就診界面 上述的該功能模塊中的相關(guān)功能都是“醫(yī)生”的權(quán)限范圍，以下將的檢查化驗(yàn)的報(bào)告界面分別屬于“放射員” 和“化驗(yàn)員”的職限。 圖 13 病人檢查結(jié)果錄入界面 在這個(gè)界面中最主要的就是“增加”、“退出”幾個(gè)按鈕中的相關(guān)代碼完成了對(duì)數(shù)據(jù)的錄入保存： //判斷 窗體記錄是否需要保存 int MCount int updateornot mcount=() if mcount0 then updateornot=messagebox(保存修改 ,您修改了數(shù)據(jù)窗口中的數(shù)據(jù) ,現(xiàn)在是否保存 ?,Question!,YesNoCancel! ) if updateornot=1 then if update(dw_hyjc_jcbg,true,false)=1 then () 第 18 頁(yè) 共 30 頁(yè) mit。 else rollback。 messagebox(錯(cuò)誤 !!!,數(shù)據(jù)保存失敗 ) return end if elseif updateornot=2 then rollback。 elseif updateornot=3 then return。 end if end if 模板管理模塊 在模板管理模塊設(shè)計(jì)是為了醫(yī)生可以完整的定義主訴病歷處方模板，可以分別定義主訴、病歷、處方的 模板以及在必要的時(shí)候進(jìn)行模板查詢。此模塊將更加方便醫(yī)生平時(shí)的臨床診斷，為臨床科研提供依據(jù)。首先建立數(shù)據(jù)窗選擇數(shù)據(jù)庫(kù)表 blcfb 中的字段 mbh,bzmc,bznr,cfnr,zsnr,ygh。在窗口中運(yùn)用該數(shù)據(jù)窗，通過該數(shù)據(jù)窗可將數(shù)據(jù)保存到數(shù)據(jù)表中。以下的錄入模板設(shè)計(jì)類似此病歷處方模板錄入模板如圖 14。 圖 14 完整模板錄入界面 在前面提到的模板查詢界面如圖 15所示： 第 19 頁(yè) 共 30 頁(yè) 圖 15 病歷主訴查詢模板 當(dāng)醫(yī)生輸入病癥名稱之后，按下“確定”鍵就可以在數(shù)據(jù)窗口中顯示相似病癥的記錄，如果相似病癥是多條記錄就可以通過 “第一條”、“上一條”、“下一條”、 “ 最后一條 ” 進(jìn)行查詢選擇 ,代碼如下 : ⑴“第一條” (1) =1 ⑵“上一條” integer row_current row_current=() =string(row_current) ⑶“下一條” integer row_current row_current=() =string(row_current) ⑷“最后一條” int row row = () (row) = string(row) 數(shù)據(jù)管理模塊 在醫(yī)院門診龐大的日常管理工作中，不可缺少的是對(duì)后臺(tái)數(shù)據(jù)庫(kù)中的數(shù)據(jù)進(jìn)行管理，在該功能模塊中就提供了對(duì)數(shù)據(jù)的統(tǒng)計(jì)，查詢。 第 20 頁(yè) 共 30 頁(yè) ⑴對(duì)掛號(hào)人數(shù)的分類統(tǒng)計(jì)（示例如圖 16） 在主界面中點(diǎn)擊“數(shù)據(jù)管理”下的“掛號(hào)人數(shù)統(tǒng)計(jì)”，則通過如下代碼進(jìn)入統(tǒng)計(jì)方式選擇界面： opensheet(w_ghtongjilb,w_zhujiemian,8,original!) 根據(jù)不同選擇然后判斷打開何種統(tǒng)計(jì)圖，如圖 16所示 圖 16 掛號(hào)科室人數(shù)統(tǒng)計(jì)界面 是掛號(hào)人數(shù)按照科室統(tǒng)計(jì)的餅狀圖。該類型統(tǒng)計(jì)先創(chuàng)建一個(gè)根據(jù)數(shù)據(jù)表ghdj 中的 jzid 和 kb 字段來 Graph 類型的數(shù)據(jù)窗，通過對(duì) kb 字段分類然后通過 count(jzid for gr