初学Delphi，紧急求教。

Question

假设在数据库中有一个名为A的表，表中有一个属性为 state ,现在要查询state 的状态，如果为“开”，则将该表中其他的属性如 windspeed、temperature 等用几个Label显示出来，不知如何实现？谢谢大家了，呵呵（最好能给出部分代码）

Answer 1

这个意思？
With ADOQuery1 Do
Begin
Close;
Sql.clear;
Sql.Text:='Select * From A';
Open;
If FieldByName('State').Asstring='开' Then
Begin
Label1.Caption:=FieldByName('windspeed').Asstring;
Label2.Caption:=FieldByName('temperature').Asstring;
End;
End;

Answer 2

谢谢楼上两位，不过我写在FormCeate里面没啥放映啊procedure TForm1.FormCreate(Sender: TObject);
begin
  with adoquery1 do
    begin
      close;
      sql.Clear;
      sql.Add('select state from aircondition where ID=0');
      open;
      if FieldByName('State').Asstring='1' then
         begin
           Label8.Caption:=FieldByName('Currenttemp').Asstring;
           Label9.Caption:=FieldByName('SetTemp').Asstring;
           Label10.Caption:=FieldByName('WindSpeed').Asstring;
           Label11.Caption:=FieldByName('humidity').Asstring;
         end;
    end;end;

Answer 3

写在ONShow中试一下
您这样做仅仅是对aircondition表第一条记录进行判断，有意义吗？

Answer 4

就是做一个家庭监控管理系统。
这部分程序是用来管理空调的。
当程序开始运行时，如果空调开着就把空调的一些参数显示出来（用Label显示），可惜我调试了半天就是没反映，既没错误也没显示，写在OnShow里也不行啊，是不是上面那代码要改进啊？

Answer 5

procedure TForm1.FormCreate(Sender: TObject);
begin
  with adoquery1 do
    begin
      close;
      sql.Clear;
      sql.Add('select state from aircondition where ID=0');
      open;
      ShowMessage(FieldByName('State').Asstring); //--------------先打印出来是什么东东
      if FieldByName('State').Asstring='1' then
         begin
           Label8.Caption:=FieldByName('Currenttemp').Asstring;
           Label9.Caption:=FieldByName('SetTemp').Asstring;
           Label10.Caption:=FieldByName('WindSpeed').Asstring;
           Label11.Caption:=FieldByName('humidity').Asstring;
         end;
    end;end;

Answer 6

检查一下'select state from aircondition where ID=0'这个语句返回的记录有几条