delphi中edit怎么显示数据库里的数据?
例如:学生姓名combobox1学号edit1性别edit2选中combobox1的一个数据,edit1,edit2中自动显示学生姓名相对应的学号和性别...
例如:学生姓名 combobox1
学号edit1 性别edit2
选中combobox1的一个数据,edit1 ,edit2中自动显示学生姓名相对应的学号和性别 展开
学号edit1 性别edit2
选中combobox1的一个数据,edit1 ,edit2中自动显示学生姓名相对应的学号和性别 展开
若以下回答无法解决问题,邀请你更新回答
1个回答
展开全部
用SQL语句:
在combobox1的change事件中:
var strSQL:string;
begin
strSQL := 'select 姓名,学号,性别 from 学生 where '+
'姓名='+''''+Trim(combobox1.text)+'''';
with dm.clientdataSet_Temp do &&数据模块的一个数据集
begin
if Active then Active := False;
CommandText := strSQL;
Open;
if not eof then
begin
edit1.text := Fields[1].asstring;//学号
edit2.text := Fields[2].asstring;//性别
end;
end;
end;
我在我的商用软件中就采用这种方法,已经5年了。
在combobox1的change事件中:
var strSQL:string;
begin
strSQL := 'select 姓名,学号,性别 from 学生 where '+
'姓名='+''''+Trim(combobox1.text)+'''';
with dm.clientdataSet_Temp do &&数据模块的一个数据集
begin
if Active then Active := False;
CommandText := strSQL;
Open;
if not eof then
begin
edit1.text := Fields[1].asstring;//学号
edit2.text := Fields[2].asstring;//性别
end;
end;
end;
我在我的商用软件中就采用这种方法,已经5年了。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询