2,497
社区成员
发帖
与我相关
我的任务
分享
with qry1 do
begin
Close;
sql.Clear;
sql.Text:='select case when '+edit3.Text+'>10 then MuchLevel10 else 0 end as MuchLevelD from ClientPriceKT where Client='''+Edit2.Text+''' and (ContactCity like ''%'+Edit3.Text+'%'')';
Open;
edt1.Text:=fieldbyname('MuchLevelD').AsString;
end;