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