1,075
社区成员
发帖
与我相关
我的任务
分享
select brid, brxm from d_main where (brid = :abrid or :abrid is null ) and (brxm = :abrxm or :abrxm is null)
pb_2的clicked事件中写:
long ll_brid
string ls_brxm
//获取输入的brid查询信息
if sle_brid.text <> '' then
ll_brid = long(sle_brid.text)
else
setnull(ll_brid)//变量设为空值
end if
//获取输入的brmx查询信息
if sle_brxm.text <> '' then
ls_brxm = sle_brxm.text
else
setnull(ls_brxm) //变量设为空值
end if
//根据录入的检索内容进行数据检索
dw_patient.retrieve(ll_brid, ls_brxm)