uiusermaint.pas

我收集的一些Delphi动态连接库资料

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.