初学者的ado问题，高手指点。

Question

我想在只是想要一个例子的源程序。
我是用ado连接到数据库，利用adoquery这个组件和DBGrid组件，在DBGrid组件中创建双击事件，打开新的窗口进行修改信息，我在打开的新窗口中修改信息相应的TEdit组件，想让我双击的那条信息的信息置入Tedit组件，并且想进行修改信息，我不知道该怎么做，郁闷，还请高手指点一下。我想要的是源程序能够运行起来啊，这样我想我看看这样简单的代码应该对我有帮助。在这里我感谢对我帮助的热心人。给分200。

Answer 1

delphi上demo實例就有,你可以參考

Answer 2

新的窗口进行修改信息//edit model
btn_save.Enabled:=true;
btn_cancel.Enabled:=true;//创建窗体
application.CreateForm(Temployee_edit_frm,employee_edit_frm);//修改过程
grd_employee.DataSource.DataSet.Edit;
employee_edit_frm.edt_id.Text:=grd_employee.DataSource.DataSet.fieldbyname('employee_id').AsString;
     employee_edit_frm.edt_name.Text:=grd_employee.DataSource.DataSet.FieldByName('employee_name').AsString;
     employee_edit_frm.cob_sex.Text:=grd_employee.DataSource.DataSet.FieldByName('employee_sex').AsString;
     employee_edit_frm.dt_birth.Date:=grd_employee.DataSource.DataSet.FieldByName('employee_birth').AsDatetime;
     employee_edit_frm.edt_address.Text:=grd_employee.DataSource.DataSet.FieldByName('employee_address').Asstring;
     employee_edit_frm.edt_worklong.Text:=grd_employee.DataSource.DataSet.FieldByName('employee_worklong').Asstring;
     employee_edit_frm.edt_memo.Text:=grd_employee.DataSource.DataSet.FieldByName('employee_memo').Asstring;//display form
 employee_edit_frm.ShowModal;
 employee_edit_frm.Free;
和这差不多.---------------学习中--------------

Answer 3

这不复杂的1.Build ADOQuery的连接字符串，包含了服务器名，默认数据库、用户名和登陆口令。2.设置ADOQuery的SQL属性例如Select * from mytable3.定义ADOQuery的AfterScroll事件，例如myEdit1.text:=ADOQuery.Field[0].AsString;  当DBGrid的当前指针移动时myEdit1的内容会自动改为相应字段的内容，如果你要双击DBGrid才这样做那么将myEdit1.text:=ADOQuery.Field[0].AsString写在DBGird的DbClick事件中就行

Answer 4

不可能网上找不到吧，随便搜一下delphi源码，都一堆堆的！