多层数据库应用基于Delphi DataSnap方法调用的实现(一)返回数据集

    从Delphi 2009开始,DataSnap技术发生了很大的变化,并在Delphi 2010和Delphi XE的后续版本中得到了持续的改进。Delphi 2009之前的DataSnap,虽然也实现了对中间层的方法调用,但那是基于COM技术的,实现起来比较麻烦,而且最关键的,是不能直接返回数据集(TDataSet)。如今,基于JSON的DataSnap,已经脱离了COM的束缚,可以很方便地直接返回数据集。我们在开发多层的数据库应用时,就可以采用全新的方式来进行,即客户端的所有数据查询和更新,可以被分割成对中间层多个方法的调用来完成。这种方式带来的最直接效果,就是客户端在完成一个完整的业务操作过程中,客户端到中间层、中间层到数据库的两个连接都不需要被保持,中间层如果再配合对象池、连接池技术,就可以服务于更多数量的客户端,服务器的各种资源也能够得到最大化的利用。

 

   

    如上图所示,客户端的3个连续活动,完成一个完整的业务操作。整个业务操作,通过两次对中间层的方法调用来完成。两次方法调用中,DataSnap中间层提供方法调用服务的业务类实例可能是不一样的,这取决于类工厂(TDSServerClass)的LifeCycle属性。

 

下面简单演示一个例子。
1、中间层的实现:
...
{$METHODINFO ON}
  TServerMethods1 = class(TDataModule)
    SQLConnection1: TSQLConnection;
    SQLDataSet1: TSQLDataSet;
  private
    { Private declarations }
  public
    { Public declarations }
    function EchoString(Value: string): string;
    function ReverseString(Value: string): string;
    function GetEmployeeFullName(EmployeeId: Integer): string;
    function GetEmployees: TDataSet;
  end;
{$METHODINFO OFF}

...

 

implementation
...
function TServerMethods1.GetEmployeeFullName(EmployeeId: Integer): string;
begin
  Result := 'Employee not found';

  with SQLDataSet1 do
  begin
    CommandText := 'SELECT FIRST_NAME||'' ''||LAST_NAME as FullName ' +
      'FROM Employees WHERE Employee_id = :EmployeeId';
    ParamByName('EmployeeId').AsInteger := EmployeeId;
    Open;
    if not eof then Result := FieldByName('FullName').AsString;
  end;
end;

 

function TServerMethods1.GetEmployees: TDataSet;
begin
  with SQLDataSet1 do
  begin
    CommandText := 'SELECT * FROM Employees';
    Open;
  end;
  Result := SQLDataSet1;
end;
...

 

//我们可以发现,不管中间层实际将有多少个不同的数据集要返回,中间层都只需要两个控件,即
//TSQLConnection和TSQLDataSet,通过在TSQLDataSet的CommandText属性中写入不同的SQL语句,就
//可以返回不同的数据集。

 

 

2、客户端的相关代码:
...
  TForm2 = class(TForm)
    SQLConnection1: TSQLConnection;
    Employees: TButton;
    SqlServerMethod1: TSqlServerMethod;
    DataSetProvider1: TDataSetProvider;
    ClientDataSet1: TClientDataSet;
    procedure EmployeesClick(Sender: TObject);
  private
  public
  end;
...


//要取得来自于中间层的数据集,使用以上几个控件,它们之间进行关联:
//TClientDataSet-->TDataSetProvider-->TSqlServerMethod-->TSQLConnection-->中间层

 

implementation
...

//获取数据集
procedure TForm2.EmployeesClick(Sender: TObject);
begin
  with SqlServerMethod1 do
  begin
    ServerMethodName := 'TServerMethods1.GetEmployees';
  end;
  ClientDataSet1.Open;
end;
...

 

 

而数据集的更新,也是通过调用中间层的方法来实现,但需要稍微增加点技巧。敬请等待续集。

阅读更多
换一批

没有更多推荐了,返回首页