F
fyqa11
Unregistered / Unconfirmed
GUEST, unregistred user!
with dm do
begin
ADOQuery1.Connection :=ADOConnection1;
ADOQuery1.SQL.Clear;
ADOQuery1.sql.add('select sum(应付金额) as 应付总额 from jhzhangmu');
ADOQuery1.sql.add('where 进货日期>=:rq1 and 进货日期<=:rq2');
ADOQuery1.Parameters.ParamByName('rq1').value:=formatdatetime('yyyy-mm-dd',datetimepicker1.Date);
ADOQuery1.Parameters.ParamByName('rq2').value:=formatdatetime('yyyy-mm-
dd',datetimepicker2.Date);
ADOQuery1.open;
end;
我想把计算出来的'应付总额'用Label1或Edit1形式在界面上显示出来,即Label1.caption:= 或
Edit1.text:= 这条语句该如何写?
begin
ADOQuery1.Connection :=ADOConnection1;
ADOQuery1.SQL.Clear;
ADOQuery1.sql.add('select sum(应付金额) as 应付总额 from jhzhangmu');
ADOQuery1.sql.add('where 进货日期>=:rq1 and 进货日期<=:rq2');
ADOQuery1.Parameters.ParamByName('rq1').value:=formatdatetime('yyyy-mm-dd',datetimepicker1.Date);
ADOQuery1.Parameters.ParamByName('rq2').value:=formatdatetime('yyyy-mm-
dd',datetimepicker2.Date);
ADOQuery1.open;
end;
我想把计算出来的'应付总额'用Label1或Edit1形式在界面上显示出来,即Label1.caption:= 或
Edit1.text:= 这条语句该如何写?