L linger_2 Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-27 #1 form1里面有三个数据库控件,database,datasource,tquery,我想在form2里进行数据库插入 操作,该如何实现呢?
D dongberlin Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-27 #2 在Form2中插入 Uses Form1UnitSource. 你就可以使用Form1.database, Form1.datasource,Form1.tquery等组件.
L linger_2 Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-27 #5 如果我想在form2里面调用form1的一个过程该如何实现呢?
C chwa Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-27 #6 在form2中加入form1的单元。 然后用 with form1.tquery do begin //对数据操作。 end;
N nsj Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-27 #7 你需要公布该过程,不能在FORM1的PRIVATE处声明。 然后引入FORM1,需要调用FORM1的东西时 form1.xxxx就行了。
L linger_2 Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-27 #8 我在form1的public里声明了一个procedure refresh 在form2里调用就写form1.refresh可以了么?
W wbcp2000 Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-28 #10 我想这位老兄应该还是看看Delphi入门方面的书吧
狮 狮子王 Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-28 #11 同意以上人的观点! 在form2中加入form1的单元。 然后用 with form1.tquery do begin sql.clear; sql.add ('insert into table(..........) values (.........)'); ExecSQL; end;
同意以上人的观点! 在form2中加入form1的单元。 然后用 with form1.tquery do begin sql.clear; sql.add ('insert into table(..........) values (.........)'); ExecSQL; end;
L LIUniverse Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-28 #12 也不知道他们是根本不知道你问什么还是不愿意把答案直接告诉你…… 看如下操作: 先选form2的tab(就是form2的code editor或form designer显示的时候) 在delphi主menu选File->Use Unit... 把form1加到form2里 这样,你就可以在form2里用form1的东西了(但如果这不等于可以在form1里用form2的 东西,所以你可以按上面的方法把form2加到form1中) 例如(在把form1加到form2后): 在form2里,你可以写: form1.database form1.datasource form1.query
也不知道他们是根本不知道你问什么还是不愿意把答案直接告诉你…… 看如下操作: 先选form2的tab(就是form2的code editor或form designer显示的时候) 在delphi主menu选File->Use Unit... 把form1加到form2里 这样,你就可以在form2里用form1的东西了(但如果这不等于可以在form1里用form2的 东西,所以你可以按上面的方法把form2加到form1中) 例如(在把form1加到form2后): 在form2里,你可以写: form1.database form1.datasource form1.query