delphi 问题

Question

with DataM.dz do
     begin
      DataM.dz.Close ;
      DataM.dz.CommandText:='' ;
      DataM.dz.CommandText:='select sum(fyje) sr from yz_qysr where fydate='+''''+DateToStr(now)+'''';
      DataM.dz.Open ;
      Label4.Caption:='今日收入：' +DataM.dz.FieldByName ('sr').AsString+'元';
     end;
问一下我这个实现出来的  为什么只有‘今日收入：’我哪里写错了

Answer 1

while not DataM.dz.eof do
begin
Label4.Caption:='今日收入：' +DataM.dz.FieldByName ('sr').AsString+'元';
DataM.dz.next;
end;
这样试试

Answer 2

DataM.dz.CommandText:='select sum(fyje) sr from yz_qysr where fydate= '''+DateToStr(now)+''' ';

Answer 3

不是告诉你啦，把'+'去掉
你直接把CommandText 输出来看下不就知道啦，看看你的结果是什么，直接拿到数据库上运行下就知道啦，有没有结果

Answer 4

label4的autosize设置为false,然后拉到足够宽