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里......
请问如何实现?
本人菜鸟,谢谢!

解决方案 »

  1.   

    也就是一条一条查看记录,只不过记录是存在edit控件里
      

  2.   

    这个时候不要用EDIT,用 DBEDIT。上下条 你可以用DBNAVIGATOR或者 自己BUTTON :ADOQUERY.FIRST,NEXT,LAST。
    最好看看有关数据库的书,这个很基础的东西
      

  3.   

    设 tongxue表 编号为ID  姓名为name 性别为sex   button1(查询) OnClick事件begin
      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;
      

  4.   


    同意~~DBedit比较容易实现。。只用设置下就好了。好久没用这个了。都忘记了 0 0!
      

  5.   

    Edit.Text:=qry1.FieldByName('字段名').AsString;