uiusermaint.pas

来自「我收集的一些Delphi动态连接库资料」· PAS 代码 · 共 21 行

unit uIUserMaint;

interface

uses
 Classes;

type
  TIUserMaint = class (TObject)
  public
    function GetDepList: TStrings;virtual;abstract;
    function GetUserList(strName:String): OLEVariant;virtual;abstract;
    procedure UpdateUserData(UserData:OleVariant;out  ErrCount: Integer);virtual;abstract;
    constructor create;virtual;abstract;
  end;
  TIUserMaintClass=class of TIUserMaint;

implementation

end.