【文章內(nèi)容簡介】 本 10 否zw 文本 10 否pwd 文本 10 否dj 文本 10 否3 本系統(tǒng)功能模塊設(shè)計(jì)與實(shí)現(xiàn) 開發(fā)的應(yīng)用程序的入口點(diǎn)是 的應(yīng)用程序?qū)ο?，運(yùn)行是程序從這個(gè)入口點(diǎn)啟動(dòng)，所以應(yīng)用程序?qū)ο蟮脑O(shè)計(jì)是應(yīng)用程序設(shè)計(jì)的開始。本應(yīng)用程序?qū)ο笾杏玫?Open 事件，輸入如下程序代碼：// Profile mzys2 = ODBC = False = ConnectString=39。DSN=mzys2。UID=。PWD=39。connect。//打開程序登錄窗口opensheet(w_zhigong,w_zhujiemian,8,original!)首先在應(yīng)用程序?qū)ο蟮淖兞慷x窗口中定義全局變量，如 int G_input_time 定義的變量是登錄時(shí)輸入用戶名和密碼的次數(shù),string yg_name定義的是用戶名，string yg_ygh 定義的是員工號(hào)， string g_pwd 定義的是密碼，string g_blh 定義病歷號(hào)，string g_jzid 定義病人的就診號(hào)等等。應(yīng)用程序運(yùn)行后第一個(gè)出現(xiàn)的窗口就是 w_login 登陸窗口，界面如圖 5 所示。8 / 32圖 5 職工登陸界面用戶必須通過職工登錄窗口才能夠進(jìn)入主界面。系統(tǒng)登錄窗口主要實(shí)現(xiàn)功能是確認(rèn)用戶身份及級(jí)別，并根據(jù)用戶級(jí)別主界面菜單中該用戶可以進(jìn)行的操作。本系統(tǒng)根據(jù)醫(yī)院具體情況將醫(yī)院職工分為種 5 種職位，院長、醫(yī)生、放射員收費(fèi)員和化驗(yàn)員。其中，院長級(jí)別最高，可以使用主界面菜單中的任何一種操作，其他各種職位級(jí)別都只能享有各自級(jí)別的權(quán)限。醫(yī)生可以進(jìn)行病人就診的信息錄入、查詢和維護(hù)，定義主訴病歷處方模板的定義和查詢，化驗(yàn)檢驗(yàn)結(jié)果的查詢、費(fèi)用的查詢等；收費(fèi)員可以進(jìn)行掛號(hào)收費(fèi)及統(tǒng)計(jì)，預(yù)付費(fèi)用的收繳和統(tǒng)計(jì)等；放射員可以對(duì)病人的各項(xiàng)檢查結(jié)果進(jìn)行錄入、查詢、維護(hù)等；化驗(yàn)員則是對(duì)病人的各項(xiàng)化驗(yàn)結(jié)果進(jìn)行錄入、查詢、維護(hù)。在登錄界面的 OPEN（）函數(shù)中定義一個(gè)游標(biāo) declare guser cursor，該游標(biāo)在 ygb 表中搜索 ygm 然后添加到員工名的下拉控件中，其代碼如下：string ls_userdeclare guser cursor forselect ygmfrom ygborder by ygh。open guser。if =1 then MessageBox(數(shù)據(jù)錯(cuò)誤,)else do if ls_user39。39。 then (ls_user)fetch guser into :ls_user。loop while =0if =1 then messageBOX(數(shù)據(jù)錯(cuò)誤,)end ifend if 9 / 32close guser。(0)在“確定”按紐中當(dāng)判斷員工登錄條件正確時(shí)則根據(jù)員工的職位判斷那些菜單功能將能被使用。首先設(shè)計(jì)主菜單 m_zhujiemian，根據(jù)各模塊設(shè)計(jì)好菜單項(xiàng)和各菜單項(xiàng)下面的子菜單項(xiàng)，并可添加為用戶登錄和退出以及掛號(hào) Toolbar，提供快捷操作。然后在主窗口 w_zhujiemian 將 menuname 中選擇設(shè)計(jì)好的主菜單m_zhujiemian。應(yīng)用程序的主要功能都是在主窗口 w_zhujiemian 及在其下打開的眾多窗口中完成的。主界面如圖 6 所示。圖 6 醫(yī)院管理系統(tǒng)主界面不同用戶登錄后，由于職位級(jí)別不同，主界面也會(huì)有些差異，不能操作的菜單項(xiàng)為灰色，因此，下面我們選用的都是“院長”級(jí)別登錄后的主界面，將主窗口的 WindowType 屬性設(shè)立為 mdi 型，以便在其下以特定方式打開其他窗口。主界面設(shè)計(jì)中主要是主菜單 m_zhujiemian 的設(shè)計(jì)，該菜單結(jié)構(gòu)及代碼如下：⑴登錄：① 用戶登錄：Clicked 事件程序代碼：opensheet(w_zhigong,w_zhujiemian,8,original!)② 退出：Clicked 事件程序代碼：close(w_zhujiemian)10 / 32⑵掛號(hào)系統(tǒng)：① 掛號(hào)：Clicked 事件程序代碼：opensheet(w_guahao,w_zhujiemian,8,original!)② 預(yù)付：Clicked 事件程序代碼：opensheet(w_yufu,w_zhujiemian,8,original!)⑶就診管理：① 就診入口：Clicked 事件程序代碼：opensheet(w_jiuzhenrukou,w_zhujiemian,8,original!)② 就診歷史：Clicked 事件程序代碼：opensheet(w_lishi,w_zhujiemian,8,original!)③ 檢查報(bào)告：Clicked 事件程序代碼：opensheet(w_hyjc_jcbg,w_zhujiemian,8,original!)④ 化驗(yàn)：? 血常規(guī)報(bào)告：Clicked 事件程序代碼openSheet(w_hyjc_twd,w_main,8,Layered!)? 尿常規(guī)報(bào)告：Clicked 事件程序代碼opensheet(w_hyjc_ncg,w_zhujiemian,8,original!)? 生化檢查報(bào)告：Clicked 事件程序代碼opensheet(w_hyjc_shjc,w_zhujiemian,8,original!)⑷模板管理：① 定義完整模板：Clicked 事件程序代碼：opensheet(w_jb,w_zhujiemian,8,original!)② 定義主訴模板：Clicked 事件程序代碼： opensheet(w_dingyizs,w_zhujiemian,8,original!)③ 定義病歷模板：Clicked 事件程序代碼：opensheet(w_dingyibl,w_zhujiemian,8,original!)④ 定義處方模板：Clicked 事件程序代碼： opensheet(w_dingyicf,w_zhujiemian,8,original!) ⑤ 模板查詢：Clicked 事件程序代碼： opensheet(w_blzsmb,w_zhujiemian,8,original!)⑸數(shù)據(jù)管理：11 / 32① 掛號(hào)人數(shù)統(tǒng)計(jì)：Clicked 事件程序代碼：opensheet(w_ghtongjilb,w_zhujiemian,8,original!)② 病人基本信息查詢：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!)⑤ 尿常規(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_zhu