Question

delphi7的dbgrid选中一行双击后，弹出新窗口，并将dbgrid选中行的值传给新窗口？

delphi7+SQL 2005编程。我打算Form5中的dbgrid选中一行双击后，弹出新窗口，并将dbgrid选中行的值传给新窗口Form6，这样可以在Form6中查看和修改这个选中行的详细信息了。这个怎么实现？

Answer 1

要修改一条记录,在栅格表中点击一下,就出现一个新的窗口,这新窗口上显示的信息,正是你在栅格表中点击的那条信息,很神奇吧,其实这很简单,From6.edit1.text:=Form5.edit1.text 这也是一种办法,但这种办法不好,不能直接实现你的目的,修改数据。最好的办法是什么呢,点击窗口与修改窗口共用一个数据集组件,当点击栅格表事件发生时,数据集的指针就移到了你点击的那条记录,这是DELPHI数据集组件和栅格表本身的功能,不需要写代码的,因此点击时你只要form6.show一句代码就行了.重头戏在form6的显示事件中,在此事件中,你要做两件事,第一件,是要清除form6窗体上所有编辑控件中的数据;第二件,也就是最主要的,是将数据集组件中当前记录(指针所指的记录)中的各个字段的值,都赋值给form6窗体上各个数据编辑组件的TEXT属性,当窗体form6显示出来时,上面就有你需要的数据了.你在form6上再放一个保存修改按钮,在这按钮的单击事件中,写上保存修改的代码,,这样你就可以大功告成了.

Answer 2

如果你只是想把dbgrid里行值传过去，有两种方式
1种是读取dbgrid行与列的值，DBgrid可能会有相当多的字段，不是唯一值，如果你用行列方式可能要多个变量！！！
2种是把当前选中的DBGrid后台挂接的数据库的记录传过去，！推荐你选第二种！

Answer 3

要在Form5中use一下From6
然后就可以给From6中的控件赋值了
可以用
From6.edit1.text:=Form5.edit1.text 样式了。

追问

“From6.edit1.text:=Form5.edit1.text 样式了”，太模糊了。讲清楚点。我可以想将form5中选中行的dbgrid传值过去

追答

From6.edit1.text:=Form5.edit1.text
这句话就是传值呢，把Form5.edit1.text的值传给From6.edit1 了。

追问

我指的是将dbgrid选中行的值传给新窗口Form6

追答

原理是一样的，你把Form5.edit1.text换成dbgrid的内容就行了。
Form6.edit1.text：=dbgrid.Fields[1].Text;
或者是用adoquery进行传送也可以。
Form6.edit1.text：=ADOQ_List.FieldByName('XX).AsString