...用ADOQuery1连接,里面有两个DBLookupComboBox1控件

发布网友 发布时间：2023-11-30 08:25

我来回答

共3个回答

热心网友 时间：2024-03-15 18:36

放两个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;

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

热心网友 时间：2024-03-15 18:43

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

热心网友 时间：2024-03-15 18:44

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