Question

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

Answer 1

如果你是用数据库作为数据存储，那么最简单的办法是使用数据关联控件，简单的说就是以DB开头的控件。

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

如果需要更多帮助，欢迎继续提问。

Answer 2

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;

Answer 3

//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.

Answer 4

给你思路吧
从数据里提取学生编号到comboxbox里 然后再combobox里Select事件里写查找该编号内容的sql语句提取字段内容到edit里