我做一个三层的系统,服务端用的是TDataSetProvider,TADOQuery ; 客户端用的是TClientDataSet,TDataSource现在我的客户端的模块都做成BPL包,问题来了,主程序如何把数据集传给包里的窗体,还有我包里的窗体也要对数据进行操作,我该怎么办。
分不多,忘高手能赐教,小生在此谢过了!下面我发一下我的代码:下面是调用BPL里的窗体,代码如下(可看可不看,我也是网上找的):procedure TFormMain.cxTreeView1DblClick(Sender: TObject);
var
AClass: TPersistentClass;
PackageModule: HModule;
NewForm: TForm;
begin
PackageModule := LoadPackage('P.bpl')
{ TODO : 先检查包文件,有则加载,没有则报错!! }
if PackageModule <> 0 then
begin
AClass := GetClass('TFormSPGL' );
if AClass <> nil then
begin
NewForm := TComponentClass(AClass).Create(Application) as TForm;
NewForm.Position := poDesktopCenter;
NewForm.ShowModal;
end;
end;
end;
分不多,忘高手能赐教,小生在此谢过了!下面我发一下我的代码:下面是调用BPL里的窗体,代码如下(可看可不看,我也是网上找的):procedure TFormMain.cxTreeView1DblClick(Sender: TObject);
var
AClass: TPersistentClass;
PackageModule: HModule;
NewForm: TForm;
begin
PackageModule := LoadPackage('P.bpl')
{ TODO : 先检查包文件,有则加载,没有则报错!! }
if PackageModule <> 0 then
begin
AClass := GetClass('TFormSPGL' );
if AClass <> nil then
begin
NewForm := TComponentClass(AClass).Create(Application) as TForm;
NewForm.Position := poDesktopCenter;
NewForm.ShowModal;
end;
end;
end;
我用的是三层 传一个SQL好像不行啊?我也不会