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.医生调用模板数据后,执行检查操作是判断 是否需要检查