如何加一个下拉框？？（请天下朋友加：delphi交流QQ群：22612487）

Question

我想在FROM  中加入一个下拉表单控件，希望在里面加入一些名字 。每当选中某一个名字时。与之相关的数据就显示出来。 
本群只接受学习者，如有侮骂品行的人，不得乱灌水，影响交流。不合格者，请勿加。

Answer 1

建議樓主使用DBLookupComboBox+Master/Detail結構,進行雙記錄集滾動.

Answer 2

给你示例：
procedure Tf_shifu.ComboBox1Change(Sender: TObject);
begin
if combobox1.Text<>'所有' then
begin
adot.Filter:='车间='+combobox1.Text;
adot.Filtered:=true;
end
else
begin
adot.Filter:='';
adot.Filtered:=false;
end;
end;

Answer 3

where code like 4419+'%' and name like ''%'+edit1.Text+'%''帮我看一下。这个句中。为何我编绎不到呢？

Answer 4

在COMBOBOX的ONCHANGE里面写SQL也可以

Answer 5

where code like '4419%' and name like ''%'+edit1.Text+'%''

Answer 6

建议使用DBLookupComboBoxEh,就是Ehlib里的一个控件

Answer 7

希望在里面加入一些名字 。
在你加名字的控件的OnChange事件里写代码，把DBLookupComboBoxEh的LISTSource的记录集的COMMANDText重新设置一下，或者直接给参数过去即可。
比如：ADODATASET1.CommandText := 'Select cCode,cName From Table where cName = :name';
ADODATASET1.Paramaters.parabyname('Name').value := onchange控件.text;
ADODATASET1.Open 或者ADODATASET1.Requery.;