UC知道在delphi中如何用combobox实现分级读取数据库中的内容
来源：百度知道 编辑：UC知道 时间：2024/06/27 22:05:00
想用两个combobox和一个edit做一个查询~根据在combobox1中选中的项目~combobox2显示相应的子项目~再根据combobox2中选中的子项目~在edit中显示最终结果~我是用sql server2000和delphi连接的~combobox1中的代码已经写出来了~怎么和combobox2连接我就不知道怎么写了~请各位高手帮帮忙~
以下是实现combobox1的代码~
procedure TForm12.FormCreate(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('SELECT distinct brand from CPU');
adoquery1.Open;
combobox1.Items.Clear;
while not adoquery1.Eof do
begin
combobox1.Items.Add(adoquery1.fieldbyname('brand').AsString);
adoquery1.Next;
end;
end;
对了~我的两个combobox的text属性都是‘请选择’~
以下是实现combobox1的代码~
procedure TForm12.FormCreate(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('SELECT distinct brand from CPU');
adoquery1.Open;
combobox1.Items.Clear;
while not adoquery1.Eof do
begin
combobox1.Items.Add(adoquery1.fieldbyname('brand').AsString);
adoquery1.Next;
end;
end;
对了~我的两个combobox的text属性都是‘请选择’~
你可以在combobox1的OnChange事件里写代码
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('SELECT distinct XXX from CPU where brand='''+combobox1.text+'''');
adoquery1.Open;
combobox2.Items.Clear;
while not adoquery1.Eof do
begin
combobox2.Items.Add(adoquery1.fieldbyname('XXX').AsString);
adoquery1.Next;
end;
依次类推，在combobox2的OnChange事件再写事件啊！