【正文】 id 文本 14 是 blh 文本 8 是 xm 文本 20 否 sfzh 數(shù)字 小數(shù) 否 xb 文本 4 否 sr 日期 /時(shí)間 短日期 否 hf 文本 4 否 dz 文本 100 否 dh 文本 15 否 ryrq 日期 /時(shí)間 短日期 否 kb 文本 10 否 zs 文本 200 否 xbs 文本 200 否 bl 文本 200 否 cf 文本 200 否 yz 文本 200 否 ygh 文本 5 否 第 6 頁(yè) 共 30 頁(yè) 2. 掛號(hào)表 (ghb)：流水號(hào) (id)，病歷號(hào) (blh)，日期 (rq)，時(shí)間 (sj)，掛號(hào)費(fèi) (ghf)，金額 (je)。此表字段 用來(lái)記錄病人在醫(yī)院掛號(hào)就醫(yī)時(shí)產(chǎn)生的相關(guān)數(shù)據(jù)。主碼是病歷號(hào) (blh)，化驗(yàn)日期（ hyrq）。主碼是費(fèi)用憑單號(hào) (id)，項(xiàng)目?jī)?nèi)容（ xmnl）。 表 4 fyb 字段名 數(shù)據(jù)類型 字段大小 必填字段 id 文本 14 是 blh 文本 8 是 xmnl 文本 13 是 sfks 文本 20 否 sl 數(shù)字 長(zhǎng)整型 否 5. 藥品庫(kù)表 (ypkb)：藥品編號(hào) (ypbh)，藥品名 (ypm)，類別 (lb)，價(jià)格 (jg)，包裝規(guī)格 (bzgg)，單位 (dw)，藥用字典 (yyzd)。此表字段用來(lái)記錄醫(yī)院各種項(xiàng)目藥品的相關(guān)信息。主碼是模板號(hào) (mbh)。 表 6 ypkb 字段名 數(shù)據(jù)類型 字段大小 必填字段 mbh 文本 14 是 bzmc 文本 100 否 blnr 文本 200 否 cfnr 文本 200 否 zsnr 文本 200 否 ygh 文本 5 否 7. 員工表 (ygb)：?jiǎn)T工號(hào) (ygh)，員工名 (kb)，科別 (kb)，職位 (zw)，密碼 (pwd)，等級(jí) (dj)。此表字段用來(lái)記錄醫(yī)院?jiǎn)T工的基本信息并在登陸時(shí)的根據(jù)登記判斷其權(quán)限。 本應(yīng)用程序?qū)ο笾杏玫?Open 事件，輸入如下程序代碼： // Profile mzys2 = ODBC 第 8 頁(yè) 共 30 頁(yè) = False = ConnectString=39。UID=。 connect。 職工登錄界面 應(yīng)用程序運(yùn)行后第一個(gè)出現(xiàn)的窗口 就是 w_login 登陸窗口，界面如圖 5 所示。系統(tǒng)登錄窗口主要實(shí)現(xiàn)功能是確認(rèn)用戶身份及級(jí)別，并根據(jù)用戶級(jí)別主界面菜單中該用戶可以進(jìn)行的操作。其中，院長(zhǎng)級(jí)別最高，可以使用主界面菜單中的任何一種操作，其他各種職位級(jí)別都只能享有各自級(jí)別的權(quán)限。 在登錄界面的 OPEN（）函數(shù)中定義一個(gè)游標(biāo) declare guser cursor，該游標(biāo)在 ygb 表中搜索 ygm 然后添加到員工名的下拉控件中，其代碼如下： string ls_user 第 9 頁(yè) 共 30 頁(yè) declare guser cursor for select ygm from ygb order by ygh。 if =1 then MessageBox(數(shù)據(jù)錯(cuò)誤 ,) else do if ls_user39。 then (ls_user) fetch guser into :ls_user。 (0) 在“確定”按紐中當(dāng)判斷員工登錄條件正確時(shí)則根據(jù)員工的職位判斷那些菜單功能將能被使用。然后在主窗口 w_zhujiemian將 menuname中選擇設(shè)計(jì)好的主菜單 m_zhujiemian。主界面如圖 6 所示。 主界面設(shè)計(jì)中主要是主菜單 m_zhujiemian 的設(shè)計(jì)，該菜單結(jié)構(gòu)及代碼如下： ⑴登錄： ① 用戶登錄： Clicked 事件程序代碼： opensheet(w_zhigong,w_zhujiemian,8,original!) ② 退出： Clicked 事件程序代碼： close(w_zhujiemian) ⑵掛號(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!) ⑷模板管理： 第 11 頁(yè) 共 30 頁(yè) ① 定義完整模板： 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ù)管理： ① 掛號(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!) 第 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!) ⑻窗口：沒(méi)有代碼，用來(lái)顯示已經(jīng)打開(kāi)的窗口名稱。先根據(jù)數(shù)據(jù)庫(kù)表 ghb 建立掛號(hào)系統(tǒng)的數(shù)據(jù)窗 ,然后建立掛號(hào)窗口，并使用該數(shù)據(jù)窗。掛號(hào)界面如圖 7 所示 ： 圖 7 掛號(hào)系統(tǒng)界面 主要實(shí)現(xiàn)功能有自動(dòng)分配病歷號(hào)，錄入員無(wú)法修改。 本系統(tǒng)中，需要處理的數(shù)據(jù)繁多，如果僅是靠普通控件來(lái)進(jìn)行輸入、查詢和維護(hù)等操作，只能依靠純粹的手寫(xiě)代碼來(lái)進(jìn)行與數(shù)據(jù)庫(kù)數(shù)據(jù)之間的交互，將會(huì)帶來(lái)極大的不便。通過(guò)數(shù)據(jù)窗口，可以對(duì)數(shù)據(jù)庫(kù)進(jìn)行操作，不但可以對(duì)每個(gè)數(shù)據(jù)庫(kù)的表進(jìn)行檢索、查詢、插入、刪除和更新，而且還可以為數(shù)據(jù)指定輸入格式、輸出格式和顯示風(fēng)格等。本系統(tǒng)中還用到 Group 風(fēng)格的來(lái)制作報(bào)表，將在圖 9出現(xiàn)。 第 14 頁(yè) 共 30 頁(yè) 在掛號(hào)過(guò)程中，除了會(huì)為病人的分配此次的自動(dòng)流水號(hào)之外，也會(huì)要為病人分配一個(gè)病歷號(hào)，由年份（ 4位）＋序列號(hào)（ 4位）構(gòu)成。為此 ，每次分配病歷號(hào)時(shí)，從數(shù)據(jù)庫(kù)中掛號(hào)表中提取最大的病歷號(hào)，將其中的年份與當(dāng)前計(jì)算機(jī)上的年份相比較，如果相等，則將后4位的序列號(hào)加 1,如果是新的一年則直接讓序列號(hào)位 0001。 b=left(a,4) d=string(year(today())) c=right(a,4) if bd then messagebox(39。,39。,stopsign!,OK!) else if b=d then c=string(integer(c)+1) n=fill(39。,4 len(c)) c=n+c else c=39。 end if a=d+c blh1=a end if 分配病人自動(dòng)流水號(hào)，病歷號(hào)的同時(shí)，也是要同時(shí)在病人基本信息表當(dāng)中插入信息，首先也是先為表的主碼“就診號(hào)”分配號(hào)碼。 b=string(year(today())) //當(dāng)前系統(tǒng)日期中年份的后兩位 c=string(month(today())) //當(dāng)前系統(tǒng)日期中的月份 c=fill(39。,2 len(c))+c d=string(Day(today())) //當(dāng)前系統(tǒng)日期中的日期 d=fill(39。,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。 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。 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。 else f=string(long(f)+1) i=b+c+d+fill(39。,6 len(f))+f end if end