HIS-DELPHI-读取数据库配置

产品思维:

1.做成可配置的

2.模块化

医生会有自己熟悉的药品,数据里面药品太多,让医生选择不放便

所以可以让医生自己维护自己的药品模板数据

比如医生开了处方后,可以保存当前的处方到某个模板中,那么下次他可以调用这个模板

这个模板只是保存了药品的基本信息列表,医生每次调用时都要检查一下这个药品是否够

库存,是否还已经被禁用。而这个检查应该做成开关形式的,当开启了就检查,没哟开启就算了

这个配置可以写在数据库,或者ini文件

1. table zyparam

subsys varchar
subkey varchar
name varchar
val varchar
memo varchar

2. 利用Locate 函数定位找到配置信息,利用到了Delphi的属性功能。Get,Set 

FIsCanDealOtherDoctorOrder := False;
if Q.Locate('name', 'IsCanDealOtherDoctorOrder', []) then
FIsCanDealOtherDoctorOrder := (Q.FieldByName('val').AsString = '1');

初始化EXE或窗体时执行

3.医生调用模板数据后,执行检查操作是判断 是否需要检查

 

posted on 2015-12-22 10:35  Morlin  阅读(268)  评论(0编辑  收藏  举报

导航