用delphi编写代码 使组合框中下拉显示数据库里有的内容
我要做一个学生信息管理系统如何使用数据库查询语句实现在成绩管理窗体中,选择班级组合框中下拉显示所有存在的班级。说明白点就是想在班级组合框中显示我数据库里有的班级名称请高手...
我要做一个学生信息管理系统 如何使用数据库查询语句实现在成绩管理窗体中,选择班级组合框中下拉显示所有存在的班级。
说明白点就是想在班级组合框中显示我数据库里有的班级名称
请高手指教 说明白点 谢谢 展开
说明白点就是想在班级组合框中显示我数据库里有的班级名称
请高手指教 说明白点 谢谢 展开
展开全部
可以用循环加载 也可以数据集控件
用循环的话 直接用combobox1循环加载表中的数据
如:
AdoQuery1.sql.text:='select distinct 班级 from table';
ADOQuery1.open;
combobox1.Items.clear;
while not eof do
begin
combobox1.Items.Add(FieldByName('班级').asstring);
ADOQuery1.next;
end;
end;
用数据集控件的话,直接设置数据源DataSource,显示字段DataField
用循环的话 直接用combobox1循环加载表中的数据
如:
AdoQuery1.sql.text:='select distinct 班级 from table';
ADOQuery1.open;
combobox1.Items.clear;
while not eof do
begin
combobox1.Items.Add(FieldByName('班级').asstring);
ADOQuery1.next;
end;
end;
用数据集控件的话,直接设置数据源DataSource,显示字段DataField
展开全部
with AdoQuery1 do
begin
close;
sql.clear;
sql.add('select distinct 班级 from table'); //distinct过滤重复的班级名
open;
combobox1.Items.clear;//一定要要有,否则每点一次就多加一遍
while not eof do
begin
combobox1.Items.Add(FieldByName('班级').asstring);
next;
end;
end;
begin
close;
sql.clear;
sql.add('select distinct 班级 from table'); //distinct过滤重复的班级名
open;
combobox1.Items.clear;//一定要要有,否则每点一次就多加一遍
while not eof do
begin
combobox1.Items.Add(FieldByName('班级').asstring);
next;
end;
end;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
哈哈,是这样的
1、在Delphi中找到Data Controls组件标签
2、添加TDBComboBox控件
3、设置TDBComboBox控件的属性Data Source为你打开的数据源
4、设置TDBComboBox控件Data Source上面的属性DataFiled为你要显示的字段
1、在Delphi中找到Data Controls组件标签
2、添加TDBComboBox控件
3、设置TDBComboBox控件的属性Data Source为你打开的数据源
4、设置TDBComboBox控件Data Source上面的属性DataFiled为你要显示的字段
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
with AdoQuery1 do
begin
close;
sql.clear;
sql.add('select 班级 from table');
close;
while not eof do
begin
combobox1.Items.Add(FieldByName('班级').asstring);
next;
end;
end;
再不明白百度hi联系。
begin
close;
sql.clear;
sql.add('select 班级 from table');
close;
while not eof do
begin
combobox1.Items.Add(FieldByName('班级').asstring);
next;
end;
end;
再不明白百度hi联系。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
table1.Active:=true;
table1.first;
while not table1.Eof do
begin
combobox1.Items.Add(table1.FieldByName('班级名称').asstring);
table1.next;
end;
table1.first;
combobox1.text:=table1.FieldByName('班级名称').asstring;
table1.first;
while not table1.Eof do
begin
combobox1.Items.Add(table1.FieldByName('班级名称').asstring);
table1.next;
end;
table1.first;
combobox1.text:=table1.FieldByName('班级名称').asstring;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询