Question

delphi中combobox的连动问题(从数据表中读取字段)

我想实现以下功能：假设数据表格式如下
项目名称 项目属性
001 1
002 1
003 2
004 2
combobox1中有两个选项1和2（项目属性），当选1时，combobox2从数据表中读取项目属性为1的项目名称即显示001，002；当选2时，combobox2从数据表中读取项目属性为2的项目名称即显示003，004，这种功能应该怎么实现呢
数据表不是固定的，当数据表添加新的项目时combobox2也要相应变化，所以我希望是combobox2每次自动读取项目名称，而不是在程序中添加进去

Answer 1

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if self.ComboBox1.Text ='1'then
begin
self.ComboBox2.Items.Clear;
self.ComboBox2.Items.Add('001');
self.ComboBox2.Items.Add('002');
self.ComboBox2.ItemIndex:=0;
end;
if self.ComboBox1.Text='2'then
begin
self.ComboBox2.Items.Clear;
self.ComboBox2.Items.Add('003');
self.ComboBox2.Items.Add('004');
self.ComboBox2.ItemIndex:=0;
end;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var
i:integer;
begin
self.ADOQuery1.Close;
self.ADOQuery1.SQL.Clear;
self.ADOQuery1.SQL.Add('SELECT * FROM table where 项目属性='+self.ComboBox1.Text);
self.ADOQuery1.Open;
if self.ADOQuery1.RecordCount>0 then
begin
self.ComboBox2.Items.Clear;
Self.ADOQuery1.First;
for i:=0 to self.ADOQuery1.RecordCount-1 do
begin
self.ComboBox2.Items.Add(self.ADOQuery1.fieldbyname('项目名称').AsString);
self.ADOQuery1.Next;
end;
self.ComboBox2.ItemIndex:=0;
end;
end;