Delphi中,点击combobox选择学生编号自动在eidt中显示对应的学生姓名,请问该怎么做,求代码
展开全部
如果你是用数据库作为数据存储,那么最简单的办法是使用数据关联控件,简单的说就是以DB开头的控件。
比如ComboBox用DbComboBox,对应的Edit用DbEdit,然后将他们的DataSource设置成相同的数据源,DataField设置成各自对应的字段,那么它们自己的关联就会自动建立,combobox的选择会自动更新edit的内容。
如果需要更多帮助,欢迎继续提问。
比如ComboBox用DbComboBox,对应的Edit用DbEdit,然后将他们的DataSource设置成相同的数据源,DataField设置成各自对应的字段,那么它们自己的关联就会自动建立,combobox的选择会自动更新edit的内容。
如果需要更多帮助,欢迎继续提问。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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里
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询