我做一个三层的系统,服务端用的是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;