HIS-DELPHI-读取数据库配置

it2024-12-19  4

产品思维:

1.做成可配置的

2.模块化

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

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

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

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

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

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

1. table zyparam

subsys varcharsubkey varcharname varcharval varcharmemo varchar

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

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

初始化EXE或窗体时执行

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

 

转载于:https://www.cnblogs.com/Morlin-julier/p/5065866.html

最新回复(0)