有四个组件:comboboxA、comboboxB、comboboxC、comboboxD有一个数据表,有A、B、C、D、E等字段窗体一显示(OnShow事件)就把数据表中E字段值为‘T’的记录,A字段不同的值加到ComboboxA中。当ComboBoxA改变时(OnChange事件)就把数据表中E字段值为‘T’、A字段为ComboBoxA.text的记录,B字段不同的值加到ComboboxB中。当ComboBoxB改变时(OnChange事件)就把数据表中E字段值为‘T’、A字段为ComboBoxA.text、B字段为ComboBoxB.text的记录,C字段不同的值加到ComboboxC中。当ComboBoxC改变时(OnChange事件)就把数据表中E字段值为‘T’、A字段为ComboBoxA.text、B字段为ComboBoxB.text的记录、C字段为ComboBoxC.text的记录,D字段不同的值加到ComboboxD中。
解决方案 »
- adoquery 添加带参数的SQL语句
- 能帮忙解决问题者,100分送上!!!!!!
- Delphi中為何出現Invalid Parameter錯誤信息
- EDIT中有输入记忆功能的例子,就象EXCEL中的那样:)
- delphi入不了门...求大仙指点
- TreeView的问题
- 为什么我用spcomm控件编了一串口程序能发不能收....ReceiveData事件为什么没触发请前辈指教....
- 运行cgi类型的web server需要什么编译环境么?
- 有关delphi中进制转换和非10进制使用的问题,30分哦~
- 已经取得某子窗口的句柄,如何访问该字窗口的信息?
- 请教有关char与string!
- 是否可以 如果同时开200个端口
try
Close;
SQL.Clear;
SQL.Add('select Distinct B from [表名] where E=''T'' and A=' + QuotedStr(ComboBoxA.text));
Open;
First;
while Not Eof do
begin
ComboBoxB.Items.Add(FieldByName('B').AsString);
Next;
end;
except
...
end;
try
Close;
SQL.Clear;
SQL.Add('select Distinct B from [表名] where E=''T'' and A=' + QuotedStr(ComboBoxA.text));
Open;
First;
while Not Eof do
begin
ComboBoxB.Items.Add(FieldByName('B').AsString);
Next;
end;
except
...
end;我爱用store procedure