一个统计程序问题请指教？

Question

各位由于没有SQL，这些句子：adoquery.sql；select sum运行都出现Undeclared identifier：不能用！
我用DELPHI自带的order.db选4个字段，第四个为EmpNo.编了一个只对列求和的程序，可益出了。各位帮看看哪不对，
  窗口安一个Button1
  procedure TForm1.Button1Click(Sender: TObject);
 var
 sd:integer;//sd为合计
begin
 with Table1 Do
 begin
 sd:=0;
 first;
 while not EOF do
 sd:=sd+Fields[3].value;
 next;
 end;
 Edit1.text:=IntToStr(sd);
end;

Answer 1

单看这代码没有什么不对，不过一定要注意缩进，还好你代码不长，要不肯定头晕
procedure TForm1.Button1Click(Sender: TObject);
var
  sd:integer;//sd为合计
begin
  with Table1 Do
    begin
      sd:=0;
      first;
      while not EOF do
        begin   
          sd:=sd+Fields[3].value;
          next;   //这条语句是关键，一定要放在while循环里面，否则死循环了
        end;
    end;
  Edit1.text:=IntToStr(sd);
end;