828
社区成员
发帖
与我相关
我的任务
分享一个ComboBox控件的问题！！~~~下班之前要搞定，忍住不上厕所在线急等！！~~
在combo_Type中我插入了以下几个查询字段
with Frm_Data.Qry_Temp,Combo_Type do
begin
Close;
SQL.Clear;
SQL.Add('select * from T_student');
Open;
Clear;
Items.Add('所有记录');
Items.Add('学生编号');
Items.Add('学生姓名');
Items.Add('性别');
Items.Add('班级');
First;
end;
目的：当选择‘学生编号’和‘学生姓名’时，右边出现一个Edit，在里面输入查询关键字查询
当选择‘性别’时，右边出现一个combobox2代替了Edit，在里面可以选择男、女
当选择‘班级’时，combobox2里的内容变成可以选择的班级。
注：性别表T_Sex,班级表T_Class
求代码
with Frm_Data.Qry_Temp,Combo_Type do
begin
Close;
SQL.Clear;
SQL.Add('select * from T_student');
Open;
Clear;
Items.Add('所有记录');
Items.Add('学生编号');
Items.Add('学生姓名');
Items.Add('性别');
Items.Add('班级');
First;
end;
目的：当选择‘学生编号’和‘学生姓名’时，右边出现一个Edit，在里面输入查询关键字查询
当选择‘性别’时，右边出现一个combobox2代替了Edit，在里面可以选择男、女
当选择‘班级’时，combobox2里的内容变成可以选择的班级。
注：性别表T_Sex,班级表T_Class
求代码
...全文
请发表友善的回复…
发表回复
yaccor 2005-08-24
- 打赏
- 举报
哦，对了，望了combobox的style属性，哎，谢谢，接帖
DoerSoft 2005-08-24
- 打赏
- 举报
动态改变COMBOBOX的风格即可(STYLE)
if combobox1.text='性别' then
SeCount:= adoquery1.recordcount;
if seCount>0 then
begin
combobox2.style:= csDropDown;
combobox2.item.add(取数据);
end
else
.....不用写了吧
if combobox1.text='性别' then
SeCount:= adoquery1.recordcount;
if seCount>0 then
begin
combobox2.style:= csDropDown;
combobox2.item.add(取数据);
end
else
.....不用写了吧
DoerSoft 2005-08-24
- 打赏
- 举报
可以用一个COMBOBOX嘛,动态判断当前的记录条数以改变COMBOBOX的风格(style)即可...
