关于数据库读取的小问题~~~

Question

if Trim(ADOQueryA.FieldByName('Water'))='是' then
     begin
       CheckWaterA.Checked:=true;
     end
  else
     begin
       CheckWaterA.Checked:=false;
     end;
  if Trim(ADOQueryA.FieldByName('dian'))='是' then
     begin
       CheckDianA.Checked:=true;
     end
  else
     begin
       CheckDianA.Checked:=false;
     end;

Answer 1

if Trim(ADOQueryA.FieldByName('Water'))='是' then//少了点东西
//改为：if Trim(ADOQueryA.FieldByName('Water').AsString)='是' then
     begin
       CheckWaterA.Checked:=true;
     end
  else
     begin
       CheckWaterA.Checked:=false;
     end;
  if Trim(ADOQueryA.FieldByName('dian'))='是' then//同样的错
//if Trim(ADOQueryA.FieldByName('dian').AsString)='是' then
     begin
       CheckDianA.Checked:=true;
     end
  else
     begin
       CheckDianA.Checked:=false;
     end;