2,497
社区成员
发帖
与我相关
我的任务
分享
SQL :='select fBarCode,fItemNo,fItemName,fSaleUnit,fSpec,fOrdUnit,fincreaseOrderQty,'
+' fCostPrice fBuyPrice,fSellPrice '
+' from Ts_Product where 1=1' ;
if Trim(edt1.text)<>'' then
begin
SQL:=SQL+' AND XXX='+QuotedStr(edt1.text)
end;
if Trim(edt2.text)<>'' then
begin
SQL:=SQL+' AND XXX='+QuotedStr(edt2.text)
end;