with query1 do begin close; sql.text:='select id,name,sex from tabel1'; open; end; DataSource1.dataset:=query1; dbtext1.DataSource:=DataSource1; dbtext1.DataField:='id'; ............. 在dbtext1中显示出来的是id
设置好Tquery的属性后 双击Tquery 在出来的窗口中右击,选add all fields
或者在设计的时候,把tquery的databasename设置正确后,在tquery的sql里面添加正确的sql语句,使tquery的active=true,双击tquery,在弹出的Fields编辑器中单击右键,有 add all Fields一项,单击,这样tquery中就有Fields了,ok;
begin
close;
sql.text:='select id,name,sex from tabel1';
open;
end;
DataSource1.dataset:=query1;
dbtext1.DataSource:=DataSource1;
dbtext1.DataField:='id';
.............
在dbtext1中显示出来的是id
双击Tquery
在出来的窗口中右击,选add all fields