Delphi怎么把Acccess中的某条指定数据放到Edit中

来源：百度知道 编辑：UC知道 时间：2024/05/31 08:12:14
例如像一个学生用户登录了系统,判定成功,然后学生领书,把学生的班主任,班级人数,所在院系都写在Edit上面,请各位大侠写得清楚点....如果用ADOquery1组件可以怎么写SQL代码呢...
大哥帮帮我吧T0T懂的话多追加20分
为什么我在Fields中添加了所有字段,但是把
edit1.text:=Adoquery1.fields[x].asstring;
的时候还是出错,我用的是ADOquery1组件不是ADOtable1,懂的说些话

呵呵，我来给你说说吧：
假如 表名称为XX，你的fields中有如下字段：xm（姓名）,bzr（班主任）,bjrs（班级人数），yuanxi(院系)。
那么这个代码可以这样写：

adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.text := 'select * from xx where xm =:xmxm' ;
adoquery1.Parameters[0].Value := 学生姓名或编号 ;

adoquery1.open ;

if adoquery1.RecordCount > 0 then
begin
adoquery1.first ;
edit1.text := adoquery1xm.value ;
...................

end else
begin
adoquery1.close;
application.messagebox('没有此人信息','提醒您',mb_ok) ;

end ;

OK!

不是没人懂，是大侠们都懒的回答啊，这个问题实在太简单，简单到不知道该怎么回答 了，大概：

edit1.text:=adotable1.fields[x].asstring;

在DBGrid的oncellclick事件写代码：
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
with ADOQuery1 do
if Active then
begin
Edit1.Text := Fields[0].AsString;//这里也也写成Edit1.Text := fieldbyname('RoomNo').AsStr