菜鸟 关于delphi7 combobox的dropdown事件

u010880336 2013-06-05 02:58:31
procedure TForm4.combobox1DropDown(Sender: TObject);
var
i : integer;

begin
with adoquery3 do

begin

Close;
ADOQuery3.SQL.Clear;
ADOQuery3.SQL.Add('Select 课程名称 from 课程信息 where 任课教师='''+form2.edit1.Text+'''');

ADOQuery3.Open;
if ADOQuery3.RecordCount>0 then
begin
for i:=0 to ADOQuery3.RecordCount-1 do
begin
ComboBox1.Items.Add(ADOQuery3.FieldByName('课程名称').AsString);
ADOQuery3.Next;
end;

end;
end;
end;


下拉菜单时,combobox不显示数据库的内容
...全文
274 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
arSavior 2013-06-06
  • 打赏
  • 举报
回复
问下你这边adoquery的声明是什么,我是初学者,对数据库操作这块不是很熟
u010880336 2013-06-05
  • 打赏
  • 举报
回复
找到问题了 ,在project中createform的顺序有问题
u010880336 2013-06-05
  • 打赏
  • 举报
回复
没有用,我发现从form2到form4,在返回form2,登录form4就可以显示了,为什么
feiba7288 2013-06-05
  • 打赏
  • 举报
回复
procedure TForm4.combobox1DropDown(Sender: TObject); var i : integer; begin with adoquery3 do begin Close; ADOQuery3.SQL.Clear; ADOQuery3.SQL.Add('Select 课程名称 from 课程信息 where 任课教师='''+form2.edit1.Text+''''); Memo1.Lines.Add(ADOQuery3.SQL.Text);//然后将Memo里面的SQl复制出来执行下,看下有没有数据 ADOQuery3.Open; if ADOQuery3.RecordCount>0 then begin for i:=0 to ADOQuery3.RecordCount-1 do begin ComboBox1.Items.Add(ADOQuery3.FieldByName('课程名称').AsString); ADOQuery3.Next; end; end; end; end;
例行更新,不过本次有新组件加入,感觉这次的组件早就应该有了,居然到现在才加入进来,不管怎么说有总比没有好。这次还是以改进为主,改进项占了大多数。废话不多说具体内容大家看更新说明吧!另外由于经常收到chm格式文件无法用的反馈,其实不是无法用,只是要授权。虽然已经解释多遍,但是依然有人不知道,索性就取消chm格式的文档了,今后统一采用exe+pdf格式,由于目前尚无时间制作pdf格式的api文档,所以1.5版中只有exe的,pdf格式将在下一版中提供。 jQuery EasyUI 1.5版本更新内容: Bug(修复) combobox:修复在加载包含所选项数据的时候不会触发“onSelect”事件的BUG; datagrid:修复在字段设置为一个空值的时候导致在某些情况下“updateRow”方法无法正常工作的BUG。 Improvement(改进) 一个label标签可以被关联到任意表单的字段上; combobox:改进在下拉项中“select”和“unselect”的规则; combobox:添加“limitToList”属性来限制只能输入在列表项中的内容; combogrid:允许用户快速克隆组件; form:添加“dirty”属性,允许用户只发送变更的字段内容; form:添加“resetDirty”方法; datagrid:允许用户在没有数据的时候显示一条消息(比如:无记录); textbox:添加“label”、“labelWidth”、“labelPosition”和“labelAlign”属性; spinner:添加“spinAlign”属性; calendar:允许用户在日历组件上显示周数(今年的第几周); window:添加“constrain”属性。 New Plugin(新组件) passwordbox:该插件允许用户在具有更好交互功能的输入框中输入密码; combotreegrid:该插件结合了combobox和treegrid组件。
最近比较忙,抽空做了最新版的API,本次的主要精力就是放在了pdf版的文档上面,看了上一版好多人反应说希望保留chm格式的,所以这一版继续提供chm格式的文档给大家了,现在的版本中包含了PDF、EXE和CHM 3种格式的文档,相信应该可以满足大家的需要了。此外我个人推荐大家使用PDF格式的文档,因为PDF是全新制作的,内容进行了完整校对,所以错漏的地方比EXE和CHM格式要少很多。其它废话就不多说了。更新内容自己看更新说明吧! jQuery EasyUI 1.5.1版本更新内容: Bug(修复) datagrid:修复在调用“updateRow”方法之后选中和复选行标志丢失的问题; tabs:修复在调用“update”方法的时候导致标签栏工具错位的问题; window:修复在窗体高度设置为“auto”时,当移动窗体后窗体会丢失的问题; messager:修复在现实进度消息窗口后立即关闭该窗口会导致程序发生异常的问题; form:修复“clear”方法无法清除combobox组件选择的下拉项的问题。 Improvement(改进) textbox:可以用“cls”属性添加自定义样式; numberbox:允许用户使用意大利货币格式; combo:添加“multivalue”属性,允许用户决定如何提交多个值; combobox:添加“reversed”属性; combobox:添加“onClick”事件; combogrid:添加“reversed”属性; treegrid:使用Shift键启用多值选择。 New Plugin(新组件) tagbox:允许用户在表单字段上添加标签。

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧