获取鼠标选择DBGrid一行的数据

Question

在同一个form中，查询数据库后DBGrid中显示若干条记录，怎么实现鼠标点击选择任意一条记录，然后把该记录的各项值自动显示在edit控件中！麻烦大家帮个忙

Answer 1

在 DBGRID. 的 dataSource  的 adoquery1, 或 adodataSet  的 onafterScroll  裏寫代碼。

Answer 2

使用DBEDIT吧~~dataSource同DBGRID~~

Answer 3

用DBEdit吧，设置dataSource和DBGrid的一样

Answer 4

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  edit1.Text := adoquery1.Fields[0].AsString;
  edit2.text := adoquery1.Fields[1].AsString;
end;

Answer 5

如果省事的话,就放置dbedit控件,设置datasource和对应字段即可当然还可以放置普通edit,然后点击时
  Edit1.Text := ADOQuery1.FieldByName(字段).AsString; 
  

Answer 6

直接在click里面写几行代码就可以了啊

Answer 7

procedure TwmrdtFRM.DataSource1DataChange(Sender: TObject; Field: TField);  //DBGrid的DateSource是DateSource1
begin
    edit1.Text:=vartostr(adoquery1.FieldValues['要显示的字段']);
end;

Answer 8

edit1.Text:=vartostr(adoquery1.FieldValues['要显示的字段']);
edit1.Text := ADOQuery1.FieldByName(字段).AsString; 
edit1.Text := adoquery1.Fields[0].AsString;

Answer 9

procedure TForm1.DBGrid1CellClick(Column: TColumn); 
begin 
  edit1.Text := adoquery1.fieldbyname('字段名').AsString; 
  edit2.text := adoquery1.fieldbyname('字段名').AsString; 
end; 

Answer 10

用，DBEDIT数据感知控件。把它的数据源指向你的数据集。

Answer 11

最好不要用delphi的自带的访问数据库的工具。

Answer 12

如果只是想显示数据的话，就用dbedit就行了啊，设置好datasource跟dbgrid一致就行了，简单方便