关于建立ado之后的信息显示问题！！

[cctaiyang]

已经建立了tadodataset（ADOTenancy）和Tdatasource（dcTenancy）
其中CommandText为
select 房屋状态, 所属区域, 联系人, 联系方式, 联系地址, 户型, 楼层, 位置, 租金, 面积, 房屋设施 from from TENANCY
where 组名 & 户编号 = :GID
如何在打开tabsheet7时在Tedit中分别显示出相关的房屋状态, 所属区域, 联系人, 联系方式, 联系地址, 户型, 楼层, 位置, 租金, 面积, 房屋设施的信息呢？
对delphi的语法不太清楚，代码该怎么写呢？？

[bluewug]

一个一个的负值呵！

你想怎么写？

[cqbonny]

分别在每个Tedit中赋值你想要的数据

[cctaiyang]

不好意思，我就是不知道赋值语句怎么写，而且还要有
procedure Tfmren.Button3Click(Sender: TObject);
begin
if not adoTenancy.BOF then
adoYuLing.Prior;

end;

procedure Tfmren.Button1Click(Sender: TObject);
begin
if not adoTenancy.EOF then
adoYuLing.Next
end;
我对delphi的赋值不太懂，请指教！

[cctaiyang]

有哪位大侠能帮我把代码写出来吗，急用啊！！

[melior]

ssql := 'select 房屋状态, 所属区域, 联系人, 联系方式, 联系地址, 户型, 楼层, 位置, 租金, 面积, 房屋设施';
ssql := ssql + ' from TENANCY';
ssql := ssql + ' where 组名 & 户编号 = ' + GID;
ssql := ssql + ' ORDER BY 联系人 DESC';
// ShowMessage(ssql);
ADOTenancy.Close;
ADOTenancy.CommandText := ssql;
ADOTenancy.Open;

if Not ADOTenancy.eof then
begin
txtfwzt.Text := ADOTenancy.FieldValues['房屋状态'];
txtssqy.Text := ADOTenancy.FieldValues['所属区域'];
txtlxr.Text := ADOTenancy.FieldValues['联系人'];
txtlxfs.Text := ADOTenancy.FieldValues['联系方式'];
txtlxdz.Text := ADOTenancy.FieldValues['联系地址'];
txthx.Text := ADOTenancy.FieldValues['户型'];
txtlc.Text := ADOTenancy.FieldValues['楼层'];
txtwz.Text := ADOTenancy.FieldValues['位置'];
txtzj.Text := ADOTenancy.FieldValues['租金'];
txtmj.Text := ADOTenancy.FieldValues['面积'];
txtfwss.Text := ADOTenancy.FieldValues['房屋设施'];
end