database - 检查 ADOTable 字段值的问题

Question

我对Delphi还有另一个问题。我写了一段代码，它应该检查数据库表中的字段是否等于 0，如果是，则更改某个按钮的字体颜色和标题。它在创建主窗体时运行。但是，当我运行程序时，什么也没有发生 - 程序没有出现，我也没有收到任何错误。我真的不知道出了什么问题，似乎是某种无限循环。

这是代码：

procedure TForm1.FormCreate(Sender: TObject);
begin
ADOTableStorage.First;
while not ADOTableStorage.Eof do
    If ADOTableStorage.FieldByName('amount').AsInteger = 0 then
        begin
        btStorage.Font.Color := clRed;
        btStorage.Caption := 'Some items are out of stock!';
        Break;
        end;
    ADOTableStorage.Next;
end;

注意：ADOTableStorage 表是主从连接中的明细表上的一个。

谢谢！

Answer 1

我猜您在 while 循环中缺少开始/结束。试试这个。

procedure TForm1.FormCreate(Sender: TObject);
begin
  ADOTableStorage.First;
  while not ADOTableStorage.Eof do
  begin
    If ADOTableStorage.FieldByName('amount').AsInteger = 0 then
    begin
        btStorage.Font.Color := clRed;
        btStorage.Caption := 'Some items are out of stock!';
        Break;
    end;
    ADOTableStorage.Next;
  end;
end;