怎样将一个引用窗口的结果送入到数据库中。

1楼: 假设form1的unit1引用了form2的unit2. 点击form1的unit1的button产生调用unit2的窗口。 我现在想把unit2里填好的表单返回给unit1的网格.该怎么做？ 字串2

2楼: form1.... ：= form2.... 字串1

3楼: jfyes，我不明白你的意思。 如果在form2的Unit2的procedure TForm2.Button1Click(Sender： TObject);下要怎么写？

4楼: 你的结果指什么？

字串3

5楼: 将unit2里填好的表单数据返回给unit1的网格数据库里面。 如同点击添加弹出一个对话框,然后在对话框里填好数据点击“确定”。则在unit1的网格数据库里标志出来。 字串3

6楼: form1.dbgrid1.datasource：=form2.datasource1; 在form2中设置datasource1的dataset设为adoquery或者query. 字串5

7楼: 我的form2的unit2没有添加任何控件。需添加吗？ form1.dbgrid1.datasource：=form2.datasource1;这句就写在unit2的确定按钮上吗？ 字串4

8楼: unit2 ... var sReturn： String; implementation {$R *.dfm} procedure TForm2.Close; begin sReturn ：= edtReturn.Text; end; 用单元变量传递参数。大致意思这样，具体可以细化。 字串5

9楼: form1.edit1.text：=edit1.text; form1.tmpstring：=edit1.text; tmpstring是定義在unit1得public, 總之要調用form1的東西就form1. 參數的話要在unit1得public裡面定義,form1上的靜態控件不用管定義的問題,直接form1.用 字串6

10楼: 当Form2提交完表单后，同时刷新一下网格所连接的数据源就行了

字串8

11楼: 就我的情况，点击添加按钮后弹出unit2,双击unit2的确定按钮后出现procedure TForm2.Button1Click(Sender： TObject);在这句下面怎么写才能把整个unit2的信息送交给unit1的网格里面？谢谢！

12楼: 哪位能简单的说一下呀？ 字串3

13楼: 到群里聊吧：1821700

14楼: 接受答案了.

字串4