procedure TForm1.button1click(Sender: TObject); var a,b,c :boolean; begin with ADOQuery1 do begin close; sql.text:='select * from process'; open; a:=FieldByName('p1').AsBoolean; b:=FieldByName('p2').AsBoolean; c:=FieldByName('p3').AsBoolean; end; checkbox1.checked:=a; checkbox2.checked:=b; checkbox3.checked:=c; end;
用ADOQuery的事件,当更新一个记录时,分别取到p1-p3的值,根据不能的值去设置checkbox的不同值就OK了。
var
a,b,c :boolean;
begin
with ADOQuery1 do
begin
close;
sql.text:='select * from process';
open;
a:=FieldByName('p1').AsBoolean;
b:=FieldByName('p2').AsBoolean;
c:=FieldByName('p3').AsBoolean;
end; checkbox1.checked:=a;
checkbox2.checked:=b;
checkbox3.checked:=c;
end;