那为能讲讲三层模型开发

andysunlp 2004-09-23 09:42:19

那为能讲讲三层模型开发
具体是应用服务器的建立，数据的流转流程。

...全文

176 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

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;

接下来就是你对数据集的处理了

andysunlp 2004-09-26