delphi 连的是sql server数据库
我添了四个控件adoconnection,adoquery,datasource,dbgrid都已经设置好属性了。
程序如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
qry1.Sql.Clear;
qry1.Sql.Add( 'select * from tongxunlu ');
qry1.Active:=true;
end;
于是在dbgrid里会显示所有查询结果。
但我想添加若干个edit控件,把记录显示在edit里
例如,表tongxunlu里有'编号',‘姓名’,‘性别’三列。点击‘开始’button时把第一条记录的编号、姓名、性别显示在3个edit里,点击‘下一条’Button时把第二条记录的编号、姓名、性别显示在3个edit里......
请问如何实现?
本人菜鸟,谢谢!
我添了四个控件adoconnection,adoquery,datasource,dbgrid都已经设置好属性了。
程序如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
qry1.Sql.Clear;
qry1.Sql.Add( 'select * from tongxunlu ');
qry1.Active:=true;
end;
于是在dbgrid里会显示所有查询结果。
但我想添加若干个edit控件,把记录显示在edit里
例如,表tongxunlu里有'编号',‘姓名’,‘性别’三列。点击‘开始’button时把第一条记录的编号、姓名、性别显示在3个edit里,点击‘下一条’Button时把第二条记录的编号、姓名、性别显示在3个edit里......
请问如何实现?
本人菜鸟,谢谢!
最好看看有关数据库的书,这个很基础的东西
with qry1 do
begin
close;
sql.clear;
sql.add('select * from tongxue');
open;
edit1.text:=FieldByName('ID').AsString;
edit2.text:=FieldByName('Name').AsString;
edit3.text:=FieldByName('Sex').AsString;
end;
end;
下一条按钮button2 OnClick事件
begin
qry1.next;
end;
上一条按钮button3 OnClick事件
begin
qry1.prior;
end;
同意~~DBedit比较容易实现。。只用设置下就好了。好久没用这个了。都忘记了 0 0!