Delphi三层架构数据库

在你的硬碟上建立一代码要放置的目录，如：

d:\MulitSys

d:\MulitSys\Server

d:\MulitSys\Client

1 。建立 Server 端

(1) 打开 Delphi7 ， File -->New --> Application --> 变更 Form1 的名称为： Name:='Serverfrm';

保存 Serverfrm 到 d:\Mulitsys\Server\ 下，

.pass 文件命名为： pu_server.pas ；

Project 命名为： pf_server.dpr

变更 Serverfrm 的 WindowState 的值为： wsMinimized

(2)View -->Project Manager --> 选取项目 pf_server.exe ，然后在工具栏上选择 New Items 按钮，弹出 New Items 窗口，选择 Mulitier 标签，再选择 Remove Data Module ，建立服务器端运程数据模块 --> 点 "OK" ，进入到 "Remove Data Module Wizard" 向导。

输入： Class Name : Mulit_ServerData--> 确定

(3) 建立数据库链接

在 Mulit_ServerData 中放一个 ADOConnection 组件 ( 在 ADO 标签中 ) ，将 ADOConnection1 的 KeepConnection 的属性置为 True,LoginPromt 属性置为 False;

保存以上操作，将 Remove Data Module 的 class 命名为： pu_Mulit_ServerData.pas

(4) 通过 ini 文件读取数据库链接

首先在 pu_Mulit_ServerData.pas 的 Uses 中导入文件操作类，如：

Uses Inifiles;

再声明私有变量 myInifile 为 TInifile 类型。如下：

 private
   { Private declarations }
   myInifile:TInifile;

编写 TMulit_ServerData.RemoteDataModuleCreate 的事件如下：

procedure TKMServerData.RemoteDataModuleCreate(Sender: TObject);
var
   filename,
   ConnectionStr:string;
begin
 filename:=ExtractFilePath(paramstr(0))+'Serverini.ini';
 myInifile:=TInifile.Create(filename);
 ConnectionStr:=myInifile.ReadString('ServerConfig','ConnectionString','');
 ADOConnection1.ConnectionString:=ConnectionStr;
 ADOConnection1.Connected:=true;
 ADOConnection1.KeepConnection:=true;
 ADOConnection1.LoginPrompt:=False;

end;

(5)Server 端的 Ini 文件命名为： d:\MulitSys\Server\server.ini 内容如下：

[ServerConfig]
ConnectionString=Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User Catalog=KM_ERP;Data Source=(local)

通过以上架构，基本上就选建立起 Server 层了。

然后按保存，来保存整个项目文件 D:\MulitSys\MulitSys.bpg ，下次进入本项目只需要直接点击 MulitSys.bpg 就可以打开了。

2. 搭建 Client 端框架

(1)View à Project Manager à New (Add New Project) à 选择 New 中的 Application, 并且为 form1 命名

FormStyle:=fsMDIForm;

WindowState:= wsMaximized;

poScreenCenter;

(2)保存项目

按保存按钮，将class文件保存为pu_Main.pas，项目文件，也就是要生成的exe文件保存为MulitSys.dpr。

（3）建立Client端数据模块

将MulitSys项目置为活动项目，然后File àNew àDataModule à为DataModule命名为MulitSys_ClientData

(4)建立和服务器端的链接

在DataModule上放置DCOMConnection，并设置它的属性，如下：

ServerName:=pf_server.Mulit_ServerData;

Connectioned = true;

LoginPromt =false;