Question

Delphi中如何实现一个dbcombobox与一个db lookup combox级联

在一张供货信息表中，将供应商名称用dbcombobox设置好，每次供货日期用dblookupcombobox关联。表中现在设置好dbcombobox中的内容了，因为所对应的数据很多，所以另一个数据项供货日期选择dblookupcombobox。问题来了，怎样从dbcombobox中选择一条数据，dblookupcombobox中出现对应的数据选项，能给出具体代码吗？谢谢！！

Answer 1

每次点DBComboBox1,都必须清除DBComboBox2的内容，重新刷新：
DBComboBox1OnChange(Sender:TObject);
begin
if Trim(DBComboBox1.Text)<>'' then
begin
DBComboBox2.Items.Clear;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.ADD('select 城市名称 from CityTable Where 省份='''+Trim(DBComboBox1.Text)+'''');
ADOQuery2.Open;
While not ADOQuery2.EOF DO
begin
DBComboBox2.Items.Add(ADOQuery2.FieldByName('城市名称').asstring);
end;
end;
end;

Answer 2

delphi里使用dblookcombobox不需要代码！
你只需要把dblookupcombobox的字段设置到相关字段，lookupdatasource/listfield/keyfield几个属性设好就可以了！

追问

这个属性我知道。我的意思是lookupcombobox中的内容根据dbcombobox内容变化而变化，并不要一次全显示出来，就是两者之间有级联，代码该怎么写？

追答

这个当你设好了就只会显示与上级KEY键相同的值的！另外，你打开一级数据库后，可以执行下
dbcombobox的onchange事件。这样就可以了！

追问

哦，这样啊，麻烦能具体说一下，要设置lookupcombobox的哪些属性，还有在onchange事件中写什么呢？我是菜鸟，还请多多指教！！

追答

dblookupcombobox一般是用来显示的也就是说，你的数据表里实际存的可能只是符号比如 1 2 4
而另外有一个表来用于存储或查询对应：比如 1－〈大连〉 2－〈北京〉3－《湖南》
这样，当你的dbcombobox的值 改变 比如，由1 变成2 时，实际显示会由大连变成北京

你的问题有点模糊，如果你只是想通过dbcombobox来过滤数据，比如 当combobox的值变化后 另外一个位置显示过滤后的数据，你就不能用dblookupcombobox！

追问

是这样啊。那现在我就是想用一个组件先过滤数据，另外一个组件选择过滤后的级联数据，最好选用什么组件呢？怎么实现呢，谢谢啦，真麻烦您了

追答

一般来说你可以用一个Combobox 和另外一个Combobox
或者你用一个Combobox 和一个DBGrid
在第一个combobox的onchange中过滤另一个数据库的filter
begin
Qry2.filtered:=false;
Qry2.filter:='ID='+qry1.fieldbyname('id').asstring;//这里输入过滤条件
Qry2.filtered:=true;
end;