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

我想在只是想要一个例子的源程序。
我是用ado连接到数据库，利用adoquery这个组件和DBGrid组件，在DBGrid组件中创建双击事件，打开新的窗口进行修改信息，我在打开的新窗口中修改信息相应的TEdit组件，想让我双击的那条信息的信息置入Tedit组件，并且想进行修改信息，我不知道该怎么做，郁闷，还请高手指点一下。

我想要的是源程序能够运行起来啊，这样我想我看看这样简单的代码应该对我有帮助。

在这里我感谢对我帮助的热心人。

给分200。

我的邮箱是：shiyudir@163.com

19 个解决方案

#1

好心人，帮帮我吧

#2

难道真的没有帮助我吗？

#3

你等等,我帮你看看

#4

好心人啊

#5

谢谢你好心人

#6

我在顶

#7

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

#8

新的窗口进行修改信息

//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;
和这差不多.

---------------学习中--------------

#9

在顶，我是个初学者阿，我想学会这个能作出一些有意义的动心来啊，我想这是最基本的东西

#10

我就不信没有人帮我，顶

#11

可以贴代码给你,发就麻烦了

#12

我是个初学者阿，我可以看懂你的代码，就是我自己一弄得时候就总是出错。所以。。。。

#13

已发,请查收

#14

好心人，帮帮我

#15

随便找本书就可以看到的东西。用得着这么麻烦？

#16

我看到书都没有这样的例子，包括在网上找我都没找到，见笑了

#17

那么简单,你浪费200了,可惜我对分不感兴趣,帮助都有类似的例子了

#18

这不复杂的

1.Build ADOQuery的连接字符串，包含了服务器名，默认数据库、用户名和登陆口令。

2.设置ADOQuery的SQL属性例如Select * from mytable

3.定义ADOQuery的AfterScroll事件，例如myEdit1.text:=ADOQuery.Field[0].AsString;

当DBGrid的当前指针移动时myEdit1的内容会自动改为相应字段的内容，如果你要双击DBGrid才这样做那么将myEdit1.text:=ADOQuery.Field[0].AsString写在DBGird的DbClick事件中就行

#19

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

#20

#1