如过是静态窗体,可用如下办法实现:
在主窗体的“接口部分”引用“子窗体单元”;在子窗体的“实现部分”引用“主窗体单元”。
如:
form1(unit1)为主窗体,form2(unit2)为子窗体。
===================================
unit Unit1;
interface
uses
unit2,{*************}
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.Show;
end;
end.
===================================
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses unit1; {*******************}
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
form1.Edit1.text:=form2.Edit1.text;
form2.hide;
end;
end.
图片模糊看不清,从报错信息来看,是Server在报错,Server是运行数据库的服务器吧,采用何种方式提供服务?三层/两层/其它。
常规三层设计中,前端产生信息需要提交的话,先要送到Server中,Server更新数据库后,再生成新的数据返回给前端,前端的代码量少,主要的业务逻辑都在Server上做。
你有源代码的话,先调试跟踪一下server报错处附近吧。