2451
社区成员
- 全部
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
andysunlp 2004-10-04
谢谢
zdq801104 2004-09-26
这方面的书很少，我举个例子给你看吧
应用程序服务器：
先创建一个远程数据模块
在VIEW->TYPE LIBRARY->建立一个方法mm
远程数据模块创建时连接数据库
procedure Ttestapp.RemoteDataModuleCreate(Sender: TObject);
begin
ADOConnection1.ConnectionString :=' Provider=SQLOLEDB.1;'+
'Persist Security Info=False;User ID='+GetRegInfo(3)+';Password='+GetRegInfo(4)+';'+
'Initial Catalog='+GetRegInfo(2)+';Data Source='+GetRegInfo(1);
end;
定义方法的数据操作
procedure Ttestapp.mm;
begin
ADODataSet1.Close;
ADODataSet1.CommandText:='select * from MaintManView';
ADODataSet1.Open;
end;
客户端调用：
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
DataModule2.APPS.mm;
ClientDataSet1.close;
DataModule2.ClientDataSet1.Open;
end;
接下来就是你对数据集的处理了
应用程序服务器：
先创建一个远程数据模块
在VIEW->TYPE LIBRARY->建立一个方法mm
远程数据模块创建时连接数据库
procedure Ttestapp.RemoteDataModuleCreate(Sender: TObject);
begin
ADOConnection1.ConnectionString :=' Provider=SQLOLEDB.1;'+
'Persist Security Info=False;User ID='+GetRegInfo(3)+';Password='+GetRegInfo(4)+';'+
'Initial Catalog='+GetRegInfo(2)+';Data Source='+GetRegInfo(1);
end;
定义方法的数据操作
procedure Ttestapp.mm;
begin
ADODataSet1.Close;
ADODataSet1.CommandText:='select * from MaintManView';
ADODataSet1.Open;
end;
客户端调用：
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
DataModule2.APPS.mm;
ClientDataSet1.close;
DataModule2.ClientDataSet1.Open;
end;
接下来就是你对数据集的处理了
andysunlp 2004-09-26
有没有，这方面的书籍下载？？？？？？？？？？？？？
wenjianyao 2004-09-24
http://www.xc-soft.com/docs/3tieranddatabase.htm
gxywl 2004-09-23
顶一下
