Question

高分求教 delphi ，我我用access建立一个数据库，用ADOQuery1连接，里面有两个DBLookupComboBox1控件

以下图是access数据表一部分
第一个DBLookupComboBox1控件连接数据库显示“地区名称”
的二个控件连接数据库显示在所选“地区名称”里所在的“燃料名称”然后进行选择
如何设置实现第二个控件的功能第二个控件
答的满意的追加30分

Answer 1

放两个AdoQuery，命名为：Qry_DiQu和Qry_RanLiao，
放两个DataSource命名为: Ds_DiQu和Ds_RanLiao，其DataSet设置为Qry_DiQu和Qry_RanLiao。

然后，设置comBox1指向地区：
qry_DiQu.sql.text:='select * from DiQu';
qry_DiQu.open; //这就能显示的列表了

设置combox2指向燃料：
qry_RanLiao.sql.text:='select * from RanLiao where RanLiao.DiQu=:diQuID '; //注意这个参数:DiQuID，要在qry_DiQu里有同名字段，指地区的ID
qry_RanLiao.DataSource:=ds_DiQu; //从这里取参数
qry_RanLiao.open; //读取燃料了

------------------------我建议你用devExpress的Cx组件，cxImageCombobox--------------
with qry_DiQu do while not eof do with TCxImageComboboxItem(cbx_DiQu.properties.items.add) do begin
value:=fieldValues['地区编号'];
description:=fieldValues['地区名称'];
NEXT; //吓一跳记录
end;
//双击cbx_DiQy后，会自动生成一个事件：cbx_diQu.properties.onChange，写代码：
with qry_RanLiao do begin
close;
sql.text:='select * from ranLiao where 地区号='+quotedStr(cbx_DiQu.editValue); --地区编号，取燃料
open;
--画界面
cbx_ranliao.properties.items.clear;
while not eof do with TCxImageComboboxItem(cbx_ranliao.properties.items.add) do begin
value:=fieldValues['燃料ID'];
description:=fieldValues['燃料名称'];
next;
end;
end;

写的很仓促，大体是这个意思，有点小错误的话你自己理顺理顺把。

Answer 2

我一般不用DBLookupComboBox来做，而是直接用两个ComboBox，在第一个ComboBox中加载地区名称的信息，然后在Change事件中，动态加载第二个ComboBox的数据（燃料名称）
向ComboBox中动态添加数据的方法比如：
ComboBox.Clear
while not ADOQuery1.Eof do
begin
ComboBox.Item.Add('');
ADOQuery1.Next;
end;

追问

在？

Answer 3

在ADOQuery做过滤
当地区被选中时，按照选中的地区作为过滤条件，这样就只剩下与该地区对应的燃料了

追问

发段代码 过来 谢谢了！！我要成品 事成后加30财富值

追答

ADOQuery.filter := ‘地区名称 = XXXXX';
ADOQuery.filted := true；
大概是这样，手边没有delphi

追问

我要成品

追答

手边没有delphi，要看具体代码的话，等明天下午才行，你你就照我写的加上去试试啊，在选择地区后加上上面两句代码，看效果

还有个方法，第二个用普通COMBOBOX，然后在选中地区时，给这个控件加上下拉选项；