医院信息管理系统的设计与开发 - 图文

opensheet(w_lishi,w_zhujiemian,8,original!) ③ 检查报告：

Clicked事件程序代码：

opensheet(w_hyjc_jcbg,w_zhujiemian,8,original!) ④ 化验：

? 血常规报告：Clicked事件程序代码 openSheet(w_hyjc_twd,w_main,8,Layered!) ? 尿常规报告：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!) ⑸数据管理：

① 挂号人数统计：Clicked事件程序代码：

opensheet(w_ghtongjilb,w_zhujiemian,8,original!) ② 病人基本信息查询：Clicked事件程序代码： opensheet (w_jbxx_cx,w_zhujiemian,8,original!)

③ 预付款查询：Clicked事件程序代码： opensheet(w_yufucx,w_zhujiemian,8,original!) ④ 病人血常规查询：Clicked事件程序代码：

opensheet(w_hyjc_xcg_cx,w_zhujiemian,8,original!)

⑤ 病人尿常规查询：Clicked事件程序代码：

opensheet(w_hyjc_ncg_cx,w_zhujiemian,8,original!) ⑥ 病人生化查询：Clicked事件程序代码：

第 10 页 共 30 页

opensheet(w_hyjc_shjc_cx,w_zhujiemian,8,original!)

⑦ 病人检查结果查询：Clicked事件程序代码： opensheet(w_hyjc_jcbg_cx,w_zhujiemian,8,original!)

⑹数据管理：

① 用户安全维护：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!)

④ 血常规检查结果维护：Clicked事件程序代码： opensheet(w_hyjc_xcg_wh,w_zhujiemian,8,original!)

⑤ 尿常规检查结果维护：Clicked事件程序代码： opensheet(w_hyjc_ncg_wh,w_zhujiemian,8,original!)

⑥ 生化检查结果维护：Clicked事件程序代码： opensheet(w_hyjc_shjc_wh,w_zhujiemian,8,original!) ⑦ 检查结果维护：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!) ⑻窗口：没有代码，用来显示已经打开的窗口名称。

3.4 挂号系统模块

根据医院科室及挂号类型类设计挂号系统，自动产生病历号。先根据数据库表ghb建立挂号系统的数据窗,然后建立挂号窗口，并使用该数据窗。挂号病人要进入医院门诊就诊的第一步就是进行挂号，只有进行挂号后才能获得病历号，得到其他服务。挂号界面如图7所示：

第 11 页 共 30 页

图7 挂号系统界面

主要实现功能有自动分配病历号，录入员无法修改。单击“保存” 按钮的时候，如图8所示:

图8 挂号保存界面

“保存”按钮中的代码最主要的通过设置过滤条件来使数据窗口只能显示当前一条记录。

本系统中，需要处理的数据繁多，如果仅是靠普通控件来进行输入、查询和维护等操作，只能依靠纯粹的手写代码来进行与数据库数据之间的交互，将会带来极大的不便。为此，采用数据窗口来进行对数据的处理。通过数据窗口，可以对数据库进行操作，不但可以对每个数据库的表进行检索、查询、插入、删除和更新，而且还可以为数据指定输入格式、输出格式和显示风格等。图7中左边显示数据的部分既为Grid风格的数据窗口。本系统中还用到Group风格的来制作报表，将在图9出现。

第 12 页 共 30 页

图9 挂号打印界面

如上图所示，在单击了图7图中的“打印”之后，系统会自动按照程序中的代码的要求将自动流水号传递到报表窗口，其中的“预付款（挂号）单据”所在的数据窗口即为Group窗口应用于数据报表的典型。

在挂号过程中，除了会为病人的分配此次的自动流水号之外，也会要为病人分配一个病历号，由年份（4位）＋序列号（4位）构成。每到新的一年，序列号都是从0001开始；如果不是在新的一年，则序列号是已经在医院就诊的病人的人数加上1构成。为此，每次分配病历号时，从数据库中挂号表中提取最大的病历号，将其中的年份与当前计算机上的年份相比较，如果相等，则将后4位的序列号加1,如果是新的一年则直接让序列号位0001。具体实现是在窗口中定义，代码如下：

//分配病历号

string a,b,d,c,n SELECT max(ghb.blh) into :a FROM ghb;

b=left(a,4) d=string(year(today())) c=right(a,4) if b>d then

messagebox('出错','当前系统时间有误,请先调整系统时间',stopsign!,OK!) else

if b=d then

c=string(integer(c)+1) n=fill('0',4 - len(c)) c=n+c else

第 13 页 共 30 页