procedure TForm1.FormCreate(Sender: TObject); begin with adoQuery1 do begin close; sql.Clear; sql.Add('select id from a'); open; while not eof do begin combobox1.Items.Add(fieldbyname('id').AsString); next; end; end; end;procedure TForm1.ComboBox1Select(Sender: TObject); begin with adoQuery1 do begin close; sql.Clear; sql.Add('select * from a where id='''+Combobox1.Text+''''); open; checkbox1.Checked := Fieldbyname('q1').AsBoolean; checkbox2.Checked := Fieldbyname('q2').AsBoolean; checkbox3.Checked := Fieldbyname('q3').AsBoolean; end; end;是这个意思?
begin
with adoQuery1 do
begin
close;
sql.Clear;
sql.Add('select id from a');
open;
while not eof do
begin
combobox1.Items.Add(fieldbyname('id').AsString);
next;
end;
end;
end;procedure TForm1.ComboBox1Select(Sender: TObject);
begin
with adoQuery1 do
begin
close;
sql.Clear;
sql.Add('select * from a where id='''+Combobox1.Text+'''');
open;
checkbox1.Checked := Fieldbyname('q1').AsBoolean;
checkbox2.Checked := Fieldbyname('q2').AsBoolean;
checkbox3.Checked := Fieldbyname('q3').AsBoolean;
end;
end;是这个意思?
一共有3个checkbox
就是说,如果我程序上面checkbox 1和checkbox2打了钩,
然后程序就搜索数据库里面p1和p2等于1,而p3=0的记录的id(此记录唯一)