Delphi中,点击combobox选择学生编号自动在eidt中显示对应的学生姓名,请问该怎么做,求代码

 我来答
thomasdai
2011-03-28 · TA获得超过189个赞
知道小有建树答主
回答量:196
采纳率:0%
帮助的人:219万
展开全部
如果你是用数据库作为数据轮搏存储,那么腊饥祥最简单的办法是使用数据关联控件,简单的说就是以DB开头的控件。

比如ComboBox用DbComboBox,对应的Edit用DbEdit,然后将他们的DataSource设置成相同的数据源,DataField设置成各自对应的字段,那么它们肢滑自己的关联就会自动建立,combobox的选择会自动更新edit的内容。

如果需要更多帮助,欢迎继续提问。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
改润0iT58e
2011-03-28 · TA获得超过721个赞
知道小有建树答主
回答量:823
采纳率:80%
帮助的人:534万
展开全部
1. ComboBox赋值让闹仔
procedure TForm1.Show(Sender: TObject);
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select t.sname from table1 t where scdt = ''在校坦汪'' '); //查询学生名字
Open;
while not EOF do
begin
ComboBox1.Items.Add(FieldByName('sname').AsString);
Next;
end;
end;
ComboBox1.ItemIndex:= 0;
end;

2. 选择ComboBox内容时Edit内容弯乎同步变化
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Edit1.Text:= ComboBox1.Text;
end;
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
烧伤的大佬
2011-03-28
知道答主
回答量:17
采纳率:0%
帮助的人:4.1万
展开全部
//ComboBox1发生变羡橘化触发事件
procedure TForm1.ComboBox1Change(Sender: TObject);
var s,d:string;
begin
//得到工号
s:= ComboBox1.Text;
//sql语句在表里查找到姓名
with 表 do
begin
sql.text:='select 姓名 from 表 where 工号=''帆悔s''';
open;
//赋态派正值
edit.text:=fieldbyname('姓名').asstring;
close;
end;
end;

end.
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友10d405684
2011-03-28 · 超过13用户采纳过TA的回答
知道答主
回答量:100
采纳率:0%
帮助的人:42.3万
展开全部
给你思路吧
从数据里提取学销岩生编号到comboxbox里 然后再combobox里Select事件里写查亏枣御找该编号内容的sql语岩早句提取字段内容到edit里
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式