Delphi三层说明

unit uAppCenter;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses

Windows, ComObj, ComServ, ActiveX, HISAPP_TLB, Classes, SyncObjs, StdVcl,

procedure UnlockRDM(Value: IRDMSystem);

protected

{ 实现 IAppServer 接口定义的方法 }

function AS_ApplyUpdates(const ProviderName: WideString; Delta: OleVariant;

MaxErrors: Integer; out ErrorCount: Integer; var OwnerData:

OleVariant): OleVariant; safecall;

function AS_GetRecords(const ProviderName: WideString; Count: Integer; out

RecsOut: Integer;

Options: Integer; const CommandText: WideString;

var Params: OleVariant; var OwnerData: OleVariant): OleVariant;

safecall;

function AS_DataRequest(const ProviderName: WideString; Data: OleVariant):

OleVariant; safecall;

function AS_GetProviderNames: OleVariant; safecall;

function AS_GetParams(const ProviderName: WideString; var OwnerData:

OleVariant): OleVariant; safecall;

procedure Login(const aID, aKey: WideString; out Data: OleVariant); safecall;

// 获得单据流水帐号

procedure GetNewBill(const BillKind: WideString; out Data: OleVariant);

safecall;

// 药品出库审核函数

procedure CheckOut(const OutNo: WideString; out Data: OleVariant);

safecall;

public

constructor Create(AOwner: TComponent); override;

destructor Destroy; override;

end;

{ 缓冲池维护一个 RDMs 对列，向外界提供没有使用的 RDMs }

FMaxDBSessionCount: Integer; //最大连接数

FActivePoolerCount: Integer; //并发用户数

FRDMTimeOut: Integer; //运行超时

FSemaphore: THandle;

FAppInfo: TAppInfo;

FUserCount: Integer;

function GetLock(Index: Integer): Boolean;

function CreateNewInstance: IRDMSystem;

procedure ReleaseLock(Index: Integer; var Value: IRDMSystem);

procedure UnlockRDM(var Value: IRDMSystem);

property MaxSemaphoreCount: Integer read FMaxSemaphoreCount;