如何把数据库中各个字段显示出来(20分)

T

tinawxm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-13

• #1

如何在各个编辑框中显示下列信息，其中有alpha型 money型 和date型
tjxgc.xmxz.Text :=Query1.fieldbyname('xmxz').AsString ;
tjxgc.ysje.Text :=query1.fieldbyname('ysje').asstring ;（money型
tjxgc.ksrq.Text :=Query1.fieldbyname('ksrq').asstring ;（date型

 

T

ting__ting

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-13

• #2

tjxgc.ksrq.text:=Datetimetostr(query1.fieldbyname('ksrq').AsDatetime)

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-13

• #3

with tjxgc,query1 do
begin
xmxz.text:=fieldbyname('').asstring;
end;

 

冰

冰冰

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-13

• #4

tjxgc.xmxz.Text :=Query1.fieldbyname('xmxz').AsString ;
tjxgc.ysje.Text :=floattostr(query1.fieldbyname('ysje').asstring) ;
tjxgc.ksrq.Text :=datetimetostr(Query1.fieldbyname('ksrq').asstring) ;

 

苍

苍浪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-14

• #5

tjxgc.ysje.Text :=floattostr(query1.fieldbyname('ysje').asreal) ;
tjxgc.ksrq.Text :=datetimetostr(Query1.fieldbyname('ksrq').asdatetime) ;
tjxgc.xmxz.Text :=Query1.fieldbyname('xmxz').AsString ;