Delphi中,点击combobox选择学生编号自动在eidt中显示对应的学生姓名,请问该怎么做,求代码
4个回答
展开全部
如果你是用数据库作为数据轮搏存储,那么腊饥祥最简单的办法是使用数据关联控件,简单的说就是以DB开头的控件。
比如ComboBox用DbComboBox,对应的Edit用DbEdit,然后将他们的DataSource设置成相同的数据源,DataField设置成各自对应的字段,那么它们肢滑自己的关联就会自动建立,combobox的选择会自动更新edit的内容。
如果需要更多帮助,欢迎继续提问。
比如ComboBox用DbComboBox,对应的Edit用DbEdit,然后将他们的DataSource设置成相同的数据源,DataField设置成各自对应的字段,那么它们肢滑自己的关联就会自动建立,combobox的选择会自动更新edit的内容。
如果需要更多帮助,欢迎继续提问。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
百事牛
2024-10-22 广告
2024-10-22 广告
百事牛是共享提供商,我们提供可靠有效的服务,适当合理的授权费有利于的继续更新优化。同样的事情,同样的方法,百事牛团队十年磨一剑,始终至聚焦在密码恢复领域,深耕于此,我们已研制出有别于其他公司的算法和运算模式, 百事牛的暴力模式加入了分布式点...
点击进入详情页
本回答由百事牛提供
展开全部
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;
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;
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
//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.
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.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
给你思路吧
从数据里提取学销岩生编号到comboxbox里 然后再combobox里Select事件里写查亏枣御找该编号内容的sql语岩早句提取字段内容到edit里
从数据里提取学销岩生编号到comboxbox里 然后再combobox里Select事件里写查亏枣御找该编号内容的sql语岩早句提取字段内容到edit里
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询