TSQL:='select b.b by05, sum (vaj25) vaj25, vaj33, sum (vaj38) vaj38, v.v aa05, v.v aa04';
TSQL:=TSQL + 'from VAJ1 a left join bby1 b on a. by01=b.b by01';
TSQL:=TSQL + 'join vaa1 v on Dr. Aa01=v.v aa01';
TSQL:=TSQL + 'where v.v aa04=' "+ vaa04 +" '"';
TSQL:=TSQL + 'group by vaa05, bby05, vaj33, vaa04';
F_exesqltocds (TSQL, cds_1);

CodePudding user response:

1, if it is directly binding data-aware controls, can directly display, such as DbGrid, TDBEdit,
2, if it is to be displayed on the Label or TEdit box, can take out to show, such as:
EdtXXX. Text:=FloatToStr (cds_1 FieldByName (' vaj25). AsFloat);