Delphi三层数据库开发应用

服务器端程序实际上是个COM 工程,它本身连接数据源,再通过接口与
客户端联系,这个COM 工程必须注册在服务器上。

   首先建立一个空白的工程。
   file -> New -> Other -> Multitier -> Remote Data Module(远程数据模块)
   对话框:
   Coclass Name : COM程序的名称,前台依据这个名字查找COM程序
                  (Project121)
   Instancing :执行模式,大部分用Multiple Instance(多重实例)
   Threading Model:线程模式,建议用Apartment(单元)  

 

   下面我们就会对这几个选择详加说明。

   OK,产生一个窗口,在这个窗口里,可以放入数据控件。

   在Viwe -> Type Libray 中,我们可以看到这个COM 的一些特性。我们
也可以记下系统提供的GUID,以备后来使用。
   加入一个ADOTable,并设置其指向一个数据库。
   再设置一个DataSetProvider指向ADOTable

   这就完成了服务器端的程序设计。
   保存,编译,注册。

   这里需要做几个说明:
   1) 在客户端,数据控件一般要和Datasource相连,但在服务器端,主
要要考虑数据和接口相连,Delphi 5.0以上版本规定,使用DataSetProvider
就不需要再针对每个控件做Export(导出)操作,而是由应用程序服务器自
动帮前台查找这就简化了程序和维护量。但是,前台每个DataSet 必须有个
对应的DataSetProvider 才行。
   2)关于建立COM 是的几个选项现在说明一下:

   A) Instancing :
           Multiple Instance: 一个应用程序可以被多个前台程序调用使
                    用,启动和执行的效率比较高,不耗费服务器太多的
                    资源,管理上也比较方便。
           Single Instance: 一个应用程序只能被一个前台程序调用,由
                    于没有排队问题,所以当某个查询崩溃时,不会影响
                    其它的查询,但是,一个前台调用必然在服务器上建
                    立一个应用程序服务器的Process (进程),占用资
                    源比较多,影响服务器整体执行效率。
           Internal: 建立一个In-Process的COM 程序(也就是DLL文件
                    的格式),由于Mult-Tier 结构中,应用程序服务器
                    和前台程序是放在不同的地方的,两台机器的两个程
                    序就无法共享同一个Process,所以很少设置成Internal
                    模式的。
   B) Threading Model:
           Apartment: 每个实例一次只能处理一个前台发出的Request(请
                    求),如果同时建立多个In-Process COM 程序,那每
                    个COM 程序就会有一个现程服务,所以数据是安全的,
                    当然要注意某些共享变量的冲突。
           Single: 单线程,循环工作,不会出现多任务的问题。
           Free : 可以让Remote Data Module自己处理多线程问题,客
                    户端程序需要用多线程方法来处理。
           Both : 和Free几乎相同,但对应前台界面的Callback都是连
                    续的。

   如果注册后无法确认是否注册成功,可以用C:\WINNT\Regedit.exe检查。
  
    
   在Two-Tier模式中,客户端(Client)程序是直接和服务器的数据源相连的,
而Multi-Tier模式,多个客户端连接的是一个应用程序服务器,因为收费是按
客户端数计算的,所以,数据库的使用费用比较低。
   下面的例子只提供了数据库操作的最基本的功能,主要说明数据源的连接
方法。

   1)建立一个普通的工程。    

   2)放置一个TDCOMConnrction控件(在Datasnap页),属性:
   ComputerName:服务器名(自动给出网上邻居)
   ServerName:应用程序服务器注册名(project121.Test121server)
   必要时ServerGUID输入GUID值。
   Connected=true 为激活

   说明:在调试的时候,如果是在Windows 2000本机的情况,可以先运行
project121.exe,然后就可以在ServerName中找到project121.Test121server
了,然后Connected=true 激活。

   3)放置一个TClientDataSet控件(在Data Access页),属性:
   Name:cdsCustomer(重新起名)
   RemoteServer: DCOMConnrction1
   ProviderName: DataSetProvider1(服务器端将被激活)
   Active:true (激活后将能正常连接)

   4)放置TDataSource,属性:
   Dataset:指向cdsCustomer。
   
   其余犹如普通的数据库设计。注意到这里使用了TActionList控件,其中
写入和退出在Standard Action 内找不到,需要自己编写:

   procedure TForm1.ApplyUpdateExecute(Sender: TObject);
   begin
     cdsCustomer.ApplyUpdates(-1);
     ShowMessage('已经正确地写入数据库中!!');
   end;

   procedure TForm1.CloseActionExecute(Sender: TObject);
   begin
     Close;
   end;

   只要服务器端正确的注册,这个程序使用是没有问题的。

第四节   客户端实现SQL 查询

   由于在客户端不存在TQuery控件,似乎客户服务器模式是无法做SQL
查询的。但是,Delphi很好的解决了这个问题。事实上,只要客户端连接上
服务端应用程序,客户端的TClientDataSet就包含了一个名字为Provider
的属性,对应到服务器端DataSetProvider的所有默认属性和方法,其中
DataSetProvider有一个Options属性,只要让其中的poAllowCommandText
=true, 那么,DataSetProvider的poAllowCommandText就可以接受前台来
的SQL 命令,并传送给TQuery。
   可以看出,真正传递数据的是DataSetProvider的接口,所以,用这个
接口搭建传递SQL 的桥梁是必需的。
   客户端进行SQL 查询的方法是:

     ClientDataSet.Close;
     ClientDataSet.CommandText := 'SQL语句';
     ClientDataSet.Open;


      第五节   客户端查询服务器端的别名集

   在SQL 查询以前,用户往往需要制定查询哪个数据库,所以需要把服
务器上BDE 数据库别名(Alias )设置数据抓到前台程序来
   具体做法是:

   首先,在服务器端建立一个TSession和一个TDataBase

   Session1属性:
   SessionName=Session1_4
   
   DataBase1属性:
   DataBaseName: 连接数据库名
   SessionName: Session1_4 (SessionName值)

   TQurey 增加个属性
   SessionName: Session1_4

   这样就可以用Session对象来管理数据源的信息了。
   为了传给客户端值
   
   View -> Type Library 显示接口窗口。
   右键 ITest125Server(具体根据设置名不同而不同) -> New ->
建立两个方法:
   
   GetDatabaseNames ,用以传下别名数据,其接口信息为:
         Return type :HRESULT
         Parameters
   name         type          modifier

   Param        VARIANT*      [out,retval]

   SetDatabaseName , 用以接受客户机来的信息,其接口信息要求传入
三个信息。

        Return type :HRESULT
         Parameters
   name         type          modifier

   DBName       BSTR          [in]      ----传上来的别名
   UserName     BSTR          [in]
   Password     BSTR          [in]

   刷新(Refresh Implementation)以后,就产生两个函数

function TTest125Server.GetDatabaseNames: OleVariant;
var
I: Integer;
DBNames: TStrings;
begin
// 建立一个字符串数组存放BDE所有的数据库别名数据。
DBNames := TStringList.Create;
try
   // 利用Session控件取得当前BDE所有的数据库别名数据。
   Session1.GetDatabaseNames(DBNames);

   /// 建立一个变量数组给函数返回变量Result。
   Result := VarArrayCreate([0, DBNames.Count - 1], varOleStr);

   // 最后再把数据库别名数据指定给该变量数组。
   for I := 0 to DBNames.Count - 1 do
     Result[I] := DBNames[I];
finally
   DBNames.Free;
end;
end;

   上面的函数的关键除了取得BDE 数据库别名以外,还声明了一个变量数
组来存放数据库别名数据,所以用VarArrayCreate函数建立一个变量数组,
其中 参数1: 指定数组范围
     参数2: 数组数据类型,由于别名要通过DCOM传给前台,数据类型必
须设成varOleStr 才有效。

   第二个过程是客户机提供上来的联机数据。

procedure TTest125Server.SetDatabaseName(const DBName, UserName,
Password: WideString);
begin
try
   // 把前台传来的数据库别名、用户上线名称、用户上线密码
   // 等三项数据指定给TDatabase控件,并且执行联机的操作。

   Database1.Close;
   Database1.AliasName := DBName;
   if (UserName<>'') and (Password<>'') then begin
     Database1.Params.Values['PASSWORD'] := Password;
     Database1.Params.Values['USER NAME'] := UserName;
   end;
   Database1.Open;
except
     // 如果联机时发生错误,则产生一个exception给前台程序
   // 前台程序将会利用到这个exception来判断是否要把输入上
   // 线数据的窗口激活。

   on E: EDBEngineError do
raise Exception.Create('Password Required') ;
end;
end;


第六节   服务器端进行客户计数
   

   除了上面的功能外,这个程序还加上了一个在线用户以及查询用户统计
的功能。由于这个应用程序执行模式是 Multiple Instance执行模式,所以
当某个前台第一次连上线后,应用程序服务器会激活RemoteDataModule的
事件程序,而断线后又会执行OnDestroy事件程序,因此就可以用这两个事件
计算连上服务器的用户个数。至于Query个数的计算,则由TQuery的OnAfterOpen
事件函数判断。

-----------------------------------------------------------------
Form1部分,主要用于显示
-----------------------------------------------------------------

procedure TMainForm.UpdateClientCount(Incr: Integer);
begin
FClientCount := FClientCount + Incr;
ClientCount.Caption := IntToStr(FClientCount);
end;

procedure TMainForm.IncQueryCount;
begin
Inc(FQueryCount);
QueryCount.Caption := IntToStr(FQueryCount);
end;
--------------------------------------------------------

COM部分

--------------------------------------------------------

procedure TTest125Server.RemoteDataModuleCreate(Sender: TObject);
begin
// 增加一位前台上线者(调用Form1上的程序)
MainForm.UpdateClientCount(1);
end;

procedure TTest125Server.RemoteDataModuleDestroy(Sender: TObject);
begin
// 减少一位前台上线者(调用Form1上的程序)
MainForm.UpdateClientCount(-1);
end;

procedure TTest125Server.AdHocQueryAfterOpen(DataSet: TDataSet);
begin
// 新打开一个TQuery查询(调用Form1上的程序)
MainForm.IncQueryCount;
end;


   上述完整的客户/服务器数据库实例,见SQL服务器和SQL客户端两个程
序,数据源部分需要自己调整。

第七节   一对多表的服务器端程序

   一、Application Server

    事先要有一个标准的Form
   
    file -> New -> Multitier -> Remote Data Module

    CoClass Name :test63
    Instacting:   Multiple Instacting
    Threading Model: Apartment

    放入 ADOTable1
         ADOTable2
         Datasouce1
         DataSetProvider1(在Data Access)
         DataSetProvider2
    属性:
         ADOTable1(主表)
         ADOTable2(从表)
         用ConnectionString和TableName连上数据库
         

    ADOTable1                      DataSetProvider1

 

               Datasouce1

 

    ADOTable2                      DataSetProvider2


   
    连上相应的数据库(这里为: 奖金数据库.mdb)
    TADOQuery.SQL=select * from 奖金
    TADOQuery.Active=true
   
    TDataSetProvider.Dataset=ADOQuery1

    保存(工程名改为pChpServer),运行(注册)


客户端


DCOMConnection1
属性:ComputerName=计算机名(本地可以不写)
     ServerName=服务器端程序名(COM)
     Connecter=true (表示连上)


ClientDataSet1  
   属性:RemoteServer=DCOMConnection1
         ProviderName=DataSetProvider1
         Active-=true
ClientDataSet2  
   属性:RemoteServer=DCOMConnection2
         ProviderName=DataSetProvider2
         Active-=true

   加入两个TDataSource,TDBGrid分别连上
   ClientDataSet1和
   ClientDataSet2
   似乎应该显示主从关系了,但DBGrid2并没有显示。

   解决办法:
   双击ClientDataSet1,出现Form1.ClientDataSet1窗口,右键,快
捷菜单上选Add Field 这时,我们可以看到最后一行出现:ADOTable2
这是很重要的,正是靠这个建立了主从联接关系
   OK 让它进入Form1.ClientDataSet1窗口(也可以调整主表所显示
的字段,但ADOTable2 不能少,它实际上是把从表作为主表的一个字段
使用了)。
   ClientDataSet2属性:
   DataSetField=ClientDataSet1ADOTable2
   Active=true
   主从关系建立起来了。

你可能感兴趣的:(Delphi)