servdata.~pas

关于利用DELPHI来进行企业级方案解决的著作的附书源码

unit ServData;



interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComServ, ComObj, VCLCom, StdVcl, DataBkr, Serv_TLB, Db, DBTables,
  Provider;

type
  TSetParamDemo = class(TRemoteDataModule, ISetParamDemo)
    Events: TQuery;
    EventProvider: TDataSetProvider;
    Database1: TDatabase;
    procedure SetParamDemoCreate(Sender: TObject);
    procedure SetParamDemoDestroy(Sender: TObject);
    procedure EventsAfterOpen(DataSet: TDataSet);
  end;

var
  SetParamDemo: TSetParamDemo;

implementation

{$R *.DFM}

uses ServMain;

procedure TSetParamDemo.SetParamDemoCreate(Sender: TObject);
begin
  { Update the client counter }
  MainForm.UpdateClientCount(1);
end;

procedure TSetParamDemo.SetParamDemoDestroy(Sender: TObject);
begin
  { Update the client counter }
  MainForm.UpdateClientCount(-1);
end;

procedure TSetParamDemo.EventsAfterOpen(DataSet: TDataSet);
begin
  { Update the query counter }
  MainForm.IncQueryCount;
end;

initialization
  TComponentFactory.Create(ComServer, TSetParamDemo,
    Class_SetParamDemo, ciMultiInstance);
end.