usrvrdm.pas

这是一个三层的进销存系统

unit uSrvRDM;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  Windows, Messages, SysUtils, Classes, ComServ, ComObj, VCLCom, DataBkr,
  DBClient, pServer_TLB, StdVcl, Globals;

type
  TsvrRDM = class(TRemoteDataModule, IsvrRDM)
    procedure RemoteDataModuleCreate(Sender: TObject);
  private
    Fipaddr:string;
    iGlobalInterface:IGlobals;
    { Private declarations }
  protected
    class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
    procedure setip(const ip: WideString); safecall;
    function login(const usercode, password: WideString): Integer; safecall;
    function getusername(const usercode, password: WideString): WideString;
      safecall;
    function getadmin(const usercode, password: WideString): WordBool;
      safecall;
    function getapptitle: WideString; safecall;
    function getgroupid(const usercode, username: WideString): Integer;
      safecall;
    function syslog(const fform, fevent, fuser, fpcname: WideString): Integer;
      safecall;
    function execsql(const cmdstr: WideString): WordBool; safecall;
    function getlargedata(const psql: WideString;
      precCount: Integer): OleVariant; safecall;
    function applyupdata(pdelta: OleVariant; const ptablename,
      pkeyfield: WideString): WordBool; safecall;
    function getmaxid(const ptablename, pkeyfield: WideString): Integer;
      safecall;
    function isunique(const ptablename, pkeyfield,
      pkeyvalue: WideString): WordBool; safecall;
    function getnumber(pBilltypeid: Integer): WideString; safecall;
    function getinnunber(pbilltypeid: Integer): Integer; safecall;
    function purchasedetail(pitemid: Integer): OleVariant; safecall;
  public
    { Public declarations }
  end;

var
RDMFactory:TcomponentFactory;

implementation

uses Global;

{$R *.DFM}

class procedure TsvrRDM.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string);
begin
  if Register then
  begin
    inherited UpdateRegistry(Register, ClassID, ProgID);
    EnableSocketTransport(ClassID);
    EnableWebTransport(ClassID);
  end else
  begin
    DisableSocketTransport(ClassID);
    DisableWebTransport(ClassID);
    inherited UpdateRegistry(Register, ClassID, ProgID);
  end;
end;

procedure TsvrRDM.setip(const ip: WideString);
begin
  Fipaddr:=ip;
end;

function TsvrRDM.login(const usercode, password: WideString): Integer;
begin
  Result:=iGlobalinterface.login(usercode,password); 
end;

procedure TsvrRDM.RemoteDataModuleCreate(Sender: TObject);
begin
  iGloBalinterface:=TGlobal.create;
end;

function TsvrRDM.getusername(const usercode,
  password: WideString): WideString;
begin
  Result:=iGlobalinterface.getusername(usercode,password);
end;

function TsvrRDM.getadmin(const usercode, password: WideString): WordBool;
begin
  Result:=iGlobalinterface.getadmin(usercode,password);
end;

function TsvrRDM.getapptitle: WideString;
begin
  Result:=iGlobalinterface.getapptitle;
end;

function TsvrRDM.getgroupid(const usercode, username: WideString): Integer;
begin
  Result:=iGlobalinterface.getgroupid(usercode,username);
end;

function TsvrRDM.syslog(const fform, fevent, fuser,
  fpcname: WideString): Integer;
begin
  Result:=iGlobalinterface.syslog(fform,fevent,fuser,fpcname);
end;

function TsvrRDM.execsql(const cmdstr: WideString): WordBool;
begin
  Result:=iGlobalinterface.execsql(cmdstr);
end;

function TsvrRDM.getlargedata(const psql: WideString;
  precCount: Integer): OleVariant;
begin
  Result:=iGlobalinterface.getlargedata(psql,precCount);
end;

function TsvrRDM.applyupdata(pdelta: OleVariant; const ptablename,
  pkeyfield: WideString): WordBool;
begin
  Result:=iGlobalinterface.applyupdata(pdelta,ptablename,pkeyfield);
end;

function TsvrRDM.getmaxid(const ptablename,
  pkeyfield: WideString): Integer;
begin
  Result:=iGlobalinterface.getmaxid(ptablename,pkeyfield);
end;

function TsvrRDM.isunique(const ptablename, pkeyfield,
  pkeyvalue: WideString): WordBool;
begin
  Result:=iGlobalinterface.isunique(ptablename,pkeyfield,pkeyvalue);
end;

function TsvrRDM.getnumber(pBilltypeid: Integer): WideString;
begin
  Result:=iGlobalinterface.getnumber(pBilltypeid);
end;

function TsvrRDM.getinnunber(pbilltypeid: Integer): Integer;
begin
  Result:=iGlobalinterface.getinnunber(pbilltypeid);
end;

function TsvrRDM.purchasedetail(pitemid: Integer): OleVariant;
begin
  Result:=iGlobalinterface.purchaseDetail(pitemid);
end;

initialization
  RDMFactory:=TComponentFactory.Create(ComServer, TsvrRDM,
    Class_svrRDM, ciInternal, tmApartment);
end.