source: trunk/Modules/ChiyuAccessControlers/UModuleChiyuAccessControlers.pas

unit UModuleChiyuAccessControlers;

{$mode delphi}

interface

uses
  Classes, SysUtils, FileUtil, UModularSystem, UAccessControler;

type
  TDataModule1 = class(TDataModule)
  private
    { private declarations }
  public
    { public declarations }
  end;

  TAccessControlerBF630 = class(TAccessControler)

  end;

  { TModuleChiyuAccessControlers }

  TModuleChiyuAccessControlers = class(TModule)
  private
  protected
    procedure DoStart; override;
    procedure DoStop; override;
  public
    constructor Create(Owner: TComponent); override;
    destructor Destroy; override;
  end;

var
  DataModule1: TDataModule1;

implementation

{$R *.lfm}

resourcestring
  SChiyuAccessControlers = 'Chiyu Technology Access Controlers';

{ TModuleChiyuAccessControlers }

procedure TModuleChiyuAccessControlers.DoStart;
begin
  inherited DoStart;
end;

procedure TModuleChiyuAccessControlers.DoStop;
begin
  inherited DoStop;
end;

constructor TModuleChiyuAccessControlers.Create(Owner: TComponent);
begin
  inherited Create(Owner);
  Identification := 'ChiyuAccessControlers';
  Title := SChiyuAccessControlers;
  Author := 'Chronos';
  License := 'GNU/LGPLv3';
  Description.Add('Supports access controlers BF-630');
  Dependencies.Add('Attendance');
end;

destructor TModuleChiyuAccessControlers.Destroy;
begin
  inherited Destroy;
end;

end.