uasrvobjmsgscheduler.pas

基于Midas 技术的多层应用开发包第二版（带开发文档）

unit uaSrvObjMsgScheduler;

// =========================================================================
// UA - An advanced and extendable multi tier application development kit.
// by vinzon zeng (曾胡龙) (E_mail:[e-mail])
// SrvObj generated by UA SrvObj wizard.
// Power by Borland Midas Tech.
// Create date time: 2004-3-29 10:51:37
//=========================================================================


interface
uses
   Windows, Messages, SysUtils, Classes,DBClient,StdVcl,
   {$ifdef ver140}Variants,{$endif}AdoDb,Contnrs,DB,
   uaSrvObj,UAServiceObjectPool,UADataPacket,UAUnits;
type 

   TUASrvObjMsgScheduler= class(TuaServerObject)
   private
     { Private declarations }
   protected
     { Protected declarations }
     procedure AfterTriggerForDataSet(TableName:string;SrcDS:TDataSet;DestDS:TDataSet;var bHandle:Boolean);override; 
     procedure BeforeTriggerForDataSet(TableName:string;SrcDS:TDataSet;DestDS:TDataSet;var bHandle:Boolean);override; 
     procedure BeforeUpdate(Sender:TObject;var bHandle:Boolean);override; 
     procedure AfterUpdate(Sender:TObject;var bContinue:Boolean);override; 
     procedure BeforeRequest(Sender:TObject;var bHandle:Boolean);override; 
     procedure AfterRequest(Sender:TObject;var bContinue:Boolean);override;
     procedure BeforeExecute(Sender:TObject;var bHandle:Boolean);override;
     procedure AfterExecute(Sender:TObject;var bContinue:Boolean);override;
     function  RequestCustomData(ServiceName:WideString;vcInData:OleVariant;var vcOutData:OleVariant):integer;override;
     function  UpdateCustomDelta(ServiceName:WideString;vcInData:OleVariant;var vcOutData:OleVariant):integer;override;
     procedure InitForRequest(var DataIn:OleVariant;var DataOut:OleVariant);override; 
     procedure InitForUpdate (var DataIn:OleVariant;var DataOut:OleVariant);override; 
     procedure InitForExecute(var DataIn:OleVariant;var DataOut:OleVariant);override; 
   public
     { Public declarations }
     constructor Create; override; 
     destructor  Destroy; override;
     procedure Request(ServiceName: WideString; DataIn: OleVariant;var DataOut: OleVariant); override;
     procedure Update (ServiceName: WideString; DataIn: OleVariant;var DataOut: OleVariant); override;
     procedure Execute(ServiceName: WideString; DataIn: OleVariant;var DataOut: OleVariant); override;
   published 
     { Published declarations }
   end;

implementation

//-----------------begin SrvObj PoolManager declare-------------------//
const
  Srv_Obj_Name = 'srvobjmsgscheduler';
type
  TMgrSrvObjMsgScheduler = class(TCustomPoolManager)
    function  InternalCreateNewInstance: TCustomPoolObject; override;
end;
var
  aMgrSrvObjMsgScheduler: TMgrSrvObjMsgScheduler;
//------------------%% end of %% -------------------------------------//

{ TMgrSrvObjMsgScheduler }
function TMgrSrvObjMsgScheduler.InternalCreateNewInstance: TCustomPoolObject; 
var 
  aSrvObjMsgScheduler:TUASrvObjMsgScheduler;
begin
  aSrvObjMsgScheduler := TUASrvObjMsgScheduler.Create;
  Result := TCustomPoolObject(aSrvObjMsgScheduler);
end;

{ TSrvObjMsgScheduler }

procedure TUASrvObjMsgScheduler.AfterTriggerForDataSet(TableName:string;SrcDS:TDataSet;DestDS:TDataSet;var bHandle:Boolean);
begin 
  inherited;
// TODO ......
end;

procedure TUASrvObjMsgScheduler.BeforeTriggerForDataSet(TableName:string;SrcDS:TDataSet;DestDS:TDataSet;var bHandle:Boolean);
begin 
  inherited;
// TODO ......
end;

procedure TUASrvObjMsgScheduler.AfterExecute(Sender: TObject;Var bContinue:Boolean);
begin 
  inherited;
// TODO ......
end;

procedure TUASrvObjMsgScheduler.AfterRequest(Sender: TObject;Var bContinue:Boolean);
begin 
  inherited;
// TODO ......
end;

procedure TUASrvObjMsgScheduler.AfterUpdate(Sender: TObject;Var bContinue:Boolean);
begin 
  inherited;
// TODO ......
end;

procedure TUASrvObjMsgScheduler.BeforeExecute(Sender: TObject;Var bHandle:Boolean);
begin 
  inherited;
// TODO ......
end;

procedure TUASrvObjMsgScheduler.BeforeRequest(Sender: TObject;Var bHandle:Boolean);
begin 
  inherited;
// TODO ......
end;

procedure TUASrvObjMsgScheduler.BeforeUpdate(Sender: TObject;Var bHandle:Boolean);
begin 
  inherited;
// TODO ......
end;

constructor TUASrvObjMsgScheduler.Create;
begin 
  inherited;
// TODO ......
end;

destructor TUASrvObjMsgScheduler.Destroy;
begin 
  inherited;
// TODO ......
end;

procedure TUASrvObjMsgScheduler.Execute(ServiceName: WideString;DataIn: OleVariant;Var DataOut: OleVariant);
begin 
  inherited;
// TODO ......
end;

procedure TUASrvObjMsgScheduler.Request(ServiceName: WideString;DataIn: OleVariant;Var DataOut: OleVariant);
begin 
  inherited;
// TODO ......
end;

procedure TUASrvObjMsgScheduler.Update(ServiceName: WideString;DataIn: OleVariant;Var DataOut: OleVariant);
begin 
  inherited;
// TODO ......
end;

procedure TUASrvObjMsgScheduler.InitForUpdate(var DataIn, DataOut: OleVariant);
begin 
  inherited;
// TODO ......
end;

procedure TUASrvObjMsgScheduler.InitForRequest(var DataIn, DataOut: OleVariant);
begin 
  inherited;
// TODO ......
end;

procedure TUASrvObjMsgScheduler.InitForExecute(var DataIn, DataOut: OleVariant);
begin 
  inherited;
// TODO ......
end;

function  TUASrvObjMsgScheduler.RequestCustomData(ServiceName:WideString;vcInData:OleVariant;var vcOutData:OleVariant):integer;
begin 
  inherited;
// TODO ......
end;

function  TUASrvObjMsgScheduler.UpdateCustomDelta(ServiceName:WideString;vcInData:OleVariant;var vcOutData:OleVariant):integer;
begin 
  inherited;
// TODO ......
end;

initialization
  aMgrSrvObjMsgScheduler:= TMgrSrvObjMsgScheduler.Create(3,5000);
  RegisterPoolManager(Srv_Obj_Name, TCustomPoolManager(aMgrSrvObjMsgScheduler));
finalization
  aMgrSrvObjMsgScheduler.Free;
end.