sql语句的求和结果怎么用edit表示

Question

begin
  if   formatdatetime('yyyy-mm-dd',frmdkfplr_hz.DateTimePicker1.Date)<formatdatetime('yyyy-mm-dd',self.DateTimePicker1.Date)  then begin
  if formatdatetime('yyyy-mm-dd',self.DateTimePicker2.Date)<formatdatetime('yyyy-mm-dd',frmdkfplr_hz.DateTimePicker2.Date)   then begin
       frmdkfplr_mx.ADOQuery1.Close;
       frmdkfplr_mx.ADOQuery1.SQL.Clear;
       frmdkfplr_mx.ADOQuery1.SQL.Add('Select sum(pmje) From fp_dkfp_mx where 起始日期 between:A and B');
       frmdkfplr_mx.ADOQuery1.Parameters.ParamByName('A').Value:=datetostr(frmdkfplr_mx.DateTimePicker1.DateTime);
       frmdkfplr_mx.ADOQuery1.Parameters.ParamByName('B').Value:=datetostr(frmdkfplr_mx.DateTimePicker2.DateTime);
       self.DBEdit4.Text:=?
就这里，想把sql语句执行的和给ebedit4，这个语句怎么写啊？

Answer 1

frmdkfplr_mx.ADOQuery1.SQL.Add( 'Select sum(pmje) as sumpmje From fp_dkfp_mx where 起始日期 between:A and B '); 
....
frmdkfplr_mx.ADOQuery1.Open;
....
self.DBEdit4.Text:=frmdkfplr_mx.ADOQuery1.FieldByName('sumpmje').asstring;

Answer 2

好像还少了个冒号
begin 
  if   formatdatetime( 'yyyy-mm-dd ',frmdkfplr_hz.DateTimePicker1.Date) <formatdatetime( 'yyyy-mm-dd ',self.DateTimePicker1.Date)  then begin 
  if formatdatetime( 'yyyy-mm-dd ',self.DateTimePicker2.Date) <formatdatetime( 'yyyy-mm-dd ',frmdkfplr_hz.DateTimePicker2.Date)   then begin 
       frmdkfplr_mx.ADOQuery1.Close; 
       frmdkfplr_mx.ADOQuery1.SQL.Clear; 
       frmdkfplr_mx.ADOQuery1.SQL.Add( 'Select sum(pmje) as sumpmje From fp_dkfp_mx where 起始日期 between:A and :B ');        //加as 加冒号
       frmdkfplr_mx.ADOQuery1.Parameters.ParamByName( 'A ').Value:=datetostr(frmdkfplr_mx.DateTimePicker1.DateTime); 
       frmdkfplr_mx.ADOQuery1.Parameters.ParamByName( 'B ').Value:=datetostr(frmdkfplr_mx.DateTimePicker2.DateTime); 
       frmdkfplr_mx.ADOQuery1.Open;
       self.DBEdit4.Text:=frmdkfplr_mx.ADOQuery1.FieldByName( 'sumpmje ').asstring;

Answer 3

这个我试过，不行啊，ADOQuery1后面点不出来FieldByName

Answer 4

点不出来你自己写嘛，Delphi里面好多属性都会因为某些原因不会在输入点后自动出来的

Answer 5

写了写了，显示错误
[Error] U308DKFpLr_hz.pas(114): Undeclared identifier: 'filedbyname'
错了

Answer 6

[Error] U308DKFpLr_hz.pas(114): Undeclared identifier: 'sumpmje'

Answer 7

照抄都不会吗？？？LZ的FieldByName里面是不是又少写了一对引号，写成这样了...FieldByName(sumpmje)......

Answer 8

http://community.csdn.net/Help/UseHelp.htm好累啊，这20分弄到手太不容易了！！！！