rightwebintf.pas

Delphi Webservice编程例子

{ Invokable interface IRightWeb }

unit RightWebIntf;

interface

uses InvokeRegistry, Types, XSBuiltIns;

type

  { Invokable interfaces must derive from IInvokable }
  IRightWeb = interface(IInvokable)
  ['{B6A94711-E718-492D-ABE2-8095907DC54C}']

    { Methods of Invokable interface must not use the default }
    { calling convention; stdcall is recommended }

    function FreeQuery(const cSqlStr: String; var vData: Variant): integer;
      safecall;
    function ExeSqlCmd(const cSqlStr: String; var lResult: Integer): Integer; safecall;

    function LogAdd(V02: Smallint; const V04, V05, V06, V07: String;
      var lResult: Integer): integer; safecall;
    function LogDel(const V01: String; var lResult: Integer): integer; safecall;

    function UserGrpAdd(var V01: String; const V02, V03: String;
      V04: Smallint; var lResult: Integer): integer; safecall;
    function UserGrpDel(const V01: String; var lResult: Integer): integer;
      safecall;
    function UserGrpUpd(const V01, V02, V05: String;
      var lResult: Integer): integer; safecall;

    function UserAdd(var V01: String; const V02, V03, V04: String;
      V08, V09: Smallint; const V10, V11: String; V12, V13, V14,
      V16: Smallint; const V17: String; V18, V19: Smallint;
      const V20: String; var lResult: Integer): integer; safecall;
    function UserDel(const V01: String; var lResult: Integer): integer; safecall;
    function UserUpd(const V01, V02, V03, V04: String; V08, V09: Smallint;
      const V10, V11: String; V12, V13, V14, V16: Smallint;
      const V17: String; V18, V19: Smallint; const V20: String;
      var lResult: Integer): integer; safecall;

    function SubModDel(const V01, V02: String; var lResult: Integer): integer;
      safecall;

    function SubSysDel(const V01: String; var lResult: Integer): integer; safecall;

    function SubRightAdd(const V01: String; V03, V04, V05, V06, V07,
      V08: Smallint; var lResult: Integer): integer; safecall;

    function SubRightChg(const V01, V02, V021: String;
      var lResult: Integer): integer; safecall;

    function RightGrpDel(const V01: String; var lResult: Integer): integer;
      safecall;

    function GrpRightAdd(const V01, V02, V03: String;
      var lResult: Integer): integer; safecall;
    function GrpRightDel(const V01: String; var lResult: Integer): integer;
      safecall;

    function UserRightAdd(const V01, V02, V03: String;
      var lResult: Integer): integer; safecall;
    function UserRightDel(const V01: String; var lResult: Integer): integer;
      safecall;

    function GrpRightChg(const V01: String; var lResult: Integer): integer;
      safecall;

    function UserRightChg(const V01: String; var lResult: Integer): integer;
      safecall;

    function UserToGrp(const V01, V02: String; var lResult: Integer): integer;
      safecall;

    function GrpUserDel(const V02: String; var lResult: Integer): integer;
      safecall;

    function CardGrpAdd(var V01: String; const V02, V03: String;
      V04: Smallint; var lResult: Integer): integer; safecall;
    function CardGrpDel(const V01: String; var lResult: Integer): integer;
      safecall;
    function CardGrpUpd(const V01, V02, V05: String;
      var lResult: Integer): integer; safecall;

    function CardAdd(var V01: String; const V02: String;
      var lResult: Integer): integer; safecall;
    function CardDel(const V01: String; var lResult: Integer): integer; safecall;
    function CardUpd(const V01, V02, V03, V04, V05: String; V06,
      V07: Smallint; const V08: String; var lResult: Integer): integer;
      safecall;

    function CardValAdd(const V01, V02, V03, V04: String;
      var lResult: Integer): integer; safecall;
    function CardValDel(const V01: String; var lResult: Integer): integer;
      safecall;

    function UserIPDel(const V01: String; var lResult: Integer): integer; safecall;
    function UserIPAdd(const V01, V02: String; var lResult: Integer): integer;
      safecall;

    function SysLogin(const LoginName, PWD: String; var lResult: Integer): integer;
      safecall;
    function UserLogin(const LoginName, PWD, LabA, ValA, LabB, ValB, UCard,
      IPAdd: String; var lResult: Integer): integer; safecall;

    function SubSysLogin(const SubSysId, LoginName, PWD, LabA, ValA, LabB,
      ValB, UCard, IPAdd: String; var lResult: Integer): integer; safecall;
    function QSysUser(const SysId, cSql: String; var vData: Variant): integer;
      safecall;
    function QNotSysUser(const SysId, cSql: String;
      var vData: Variant): integer; safecall;
    function UserToSys(const V01, V02: String; var lResult: Integer): integer;
      safecall;

  end;

implementation

initialization
  { Invokable interfaces must be registered }
  InvRegistry.RegisterInterface(TypeInfo(IRightWeb));

end.