asfsfdfd.pas

程序採用了无状态连接池的三层结构

unit asfsfdfd;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  ComObj, ActiveX, pServer_TLB, StdVcl;

type
  Tasfsfdfd = class(TAutoObject, Iasfsfdfd, IsvrRDM)
  protected
    function applyupdata(pdelta: OleVariant; const ptablename,
      pkeyfield: WideString): WordBool; safecall;
    function execsql(const cmdstr: WideString): WordBool; safecall;
    function getadmin(const usercode, password: WideString): WordBool;
      safecall;
    function getapptitle: WideString; safecall;
    function getgroupid(const usercode, username: WideString): Integer;
      safecall;
    function getinnunber(pBilltypeid: Integer): Integer; safecall;
    function getlargedata(const psql: WideString;
      precCount: Integer): OleVariant; safecall;
    function getmaxid(const ptablename, pkeyfield: WideString): Integer;
      safecall;
    function getnumber(pBilltypeid: Integer): WideString; safecall;
    function getusername(const usercode, password: WideString): WideString;
      safecall;
    function isunique(const ptablename, pkeyfield,
      pkeyvalue: WideString): WordBool; safecall;
    function login(const usercode, password: WideString): Integer; safecall;
    function purchasedetail(pitemid: Integer): OleVariant; safecall;
    function syslog(const fform, fevent, fuser, fpcname: WideString): Integer;
      safecall;
    procedure setip(const ip: WideString); safecall;

  end;

implementation

uses ComServ;

function Tasfsfdfd.applyupdata(pdelta: OleVariant; const ptablename,
  pkeyfield: WideString): WordBool;
begin

end;

function Tasfsfdfd.execsql(const cmdstr: WideString): WordBool;
begin

end;

function Tasfsfdfd.getadmin(const usercode,
  password: WideString): WordBool;
begin

end;

function Tasfsfdfd.getapptitle: WideString;
begin

end;

function Tasfsfdfd.getgroupid(const usercode,
  username: WideString): Integer;
begin

end;

function Tasfsfdfd.getinnunber(pBilltypeid: Integer): Integer;
begin

end;

function Tasfsfdfd.getlargedata(const psql: WideString;
  precCount: Integer): OleVariant;
begin

end;

function Tasfsfdfd.getmaxid(const ptablename,
  pkeyfield: WideString): Integer;
begin

end;

function Tasfsfdfd.getnumber(pBilltypeid: Integer): WideString;
begin

end;

function Tasfsfdfd.getusername(const usercode,
  password: WideString): WideString;
begin

end;

function Tasfsfdfd.isunique(const ptablename, pkeyfield,
  pkeyvalue: WideString): WordBool;
begin

end;

function Tasfsfdfd.login(const usercode, password: WideString): Integer;
begin

end;

function Tasfsfdfd.purchasedetail(pitemid: Integer): OleVariant;
begin

end;

function Tasfsfdfd.syslog(const fform, fevent, fuser,
  fpcname: WideString): Integer;
begin

end;

procedure Tasfsfdfd.setip(const ip: WideString);
begin

end;

initialization
  TAutoObjectFactory.Create(ComServer, Tasfsfdfd, Class_asfsfdfd,
    ciMultiInstance, tmApartment);
end.