有那位高手知道在中介层如何自动生成Dataset和Provider ( 积分: 100 )

  • 主题发起人 主题发起人 leonmtv
  • 开始时间 开始时间
L

leonmtv

Unregistered / Unconfirmed
GUEST, unregistred user!
为了方便和减小中介层,想自动生成Dataset和Provider,有那位高手知道.这个问题一直困扰我,解答者送300分.
 
为了方便和减小中介层,想自动生成Dataset和Provider,有那位高手知道.这个问题一直困扰我,解答者送300分.
 
动态加载DataSet, Provider ?
 
就是在中間層能夠自動加載DataSet, Provider ,因為模塊太多,一打開就很亂了,所以想動態加載,請高手賜教!
 
在中间层写一个远程调用函数 在函数里写动态创建的代码
客户端调研时就创建
 
Server:
myQry:TQuery;
myProvider:TDataSetProvider;
myQry := TQuery.create(self);
myProvider:TDataSetProvider(self);
myQry.DataBaseName := Db.DataBaseName;
myQry.Name := 'My_Qry';
myProvider.Name := 'My_Dsp';
self.RegisterProvider(myProvider);
Client:
myClentDataSet.ProviderName='My_Dsp';
myClentDataSet.open;
OK!
 
Server:
myQry:TQuery;
myProvider:TDataSetProvider;
myQry := TQuery.create(self);
myProvider:TDataSetProvider(self);
myQry.DataBaseName := Db.DataBaseName;
myQry.Name := 'My_Qry';
myProvider.Name := 'My_Dsp';
myProvider.DataSet := myQry;-------->漏了这个
myProvider.UpdateMode := upWhereKeyOnly;------>
myProvider.BeforeApplyUpdates := myBeforeApplyUpdates ;----->
..............
self.RegisterProvider(myProvider);
 
怎么每人回应!
leonmtv,你呢?
 
to shkk的方法可行。
值得參考下。
如果過於頻繁得話,會引向性能。
建議對於頻繁得調用采用靜態得方式。
不過不要設定固定得參數。
 
对于数据量不大,非连续的调用可以采用无态连接的方式共享使用一个数据接口,我的系统有些子系统都是共享使用一组DataSet/Provider的
比如一个管理系统,有四个子系统:系统维护、基本资料、客户管理、统计报表,如果没有连续大数据量的操作,一般就建立以下几组dataset/provider,每一个子系统共用一组:
Qy_system + DSP_system
Qy_base + DSP_base
Qy_client + DSP_cient
Qy_report + DSP_report
还有一个供Lookup数据集以及其他查询共用的 Qy_load + DSP_load
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部