
关于delphi中 from1与from2之间互动的问题
from1中有一个edit和一个bottom,from2中有一个edit和一个bottom。当from2中的按钮按下时,from1出现,然后在from1中的edit内输入...
from1中有一个edit 和一个bottom,from2中有一个edit和一个bottom。
当from2中的按钮按下时,from1出现,然后在from1中的edit内输入内容,按下按钮,from1关闭,并将from1中edit的内容添加到from2中的edit里 展开
当from2中的按钮按下时,from1出现,然后在from1中的edit内输入内容,按下按钮,from1关闭,并将from1中edit的内容添加到from2中的edit里 展开
1个回答
展开全部
在form1写个变量过程 放在var下面
过程里面放个ADO连接数据库的东西
procedure gggg(qry: TADOQuery);
begin
with Tfrom1.Create(nil) do
begin
ADOQRY := qry;
ShowModal;
Free;
end;
end;
form2里的edit控件换成DBedit控件 把form2 的ADO传递给form1来
当form1 关闭时刷新传递过来的ADO 就可以了。
过程里面放个ADO连接数据库的东西
procedure gggg(qry: TADOQuery);
begin
with Tfrom1.Create(nil) do
begin
ADOQRY := qry;
ShowModal;
Free;
end;
end;
form2里的edit控件换成DBedit控件 把form2 的ADO传递给form1来
当form1 关闭时刷新传递过来的ADO 就可以了。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询