Changeset 24 for trunk/Modules/Attendance/UAccessControler.pas

Timestamp:

Nov 19, 2012, 12:31:19 PM (12 years ago)

Author:

chronos

Message:

• Opraveno: Ladění komunikačního protokolu s terminálem BF-630.

File:

• trunk/Modules/Attendance/UAccessControler.pas (modified) (4 diffs)

trunk/Modules/Attendance/UAccessControler.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils;
+  Classes, SysUtils, UAttendance, UCommPin;
 
 type
-
   { TAccessControler }
 
   TAccessControler = class
-(*    function GetUser(Id: Integer): TUser;
-    function GetUserCount: Integer;
-    function GetPassage(Id: Integer): TPassage;
-    function GetPassageCount: Integer;*)
+  private
+    FActive: Boolean;
+  protected
+    procedure SetActive(AValue: Boolean); virtual;
+  public
+    Id: Integer;
+    Pin: TCommPin;
+    constructor Create; virtual;
+    destructor Destroy; override;
+    function GetUser(Id: Integer; User: TUser): Boolean; virtual;
+    function GetUserCount: Integer; virtual;
+    function GetPassage(Id: Integer; Passage: TUserPassage): Boolean; virtual;
+    function GetPassageCount: Integer; virtual;
+    property Active: Boolean read FActive write SetActive;
   end;
 
@@ -23 +32 @@
 { TAccessControler }
 
-(*function TAccessControler.GetUser(Id: Integer): TUser;
+procedure TAccessControler.SetActive(AValue: Boolean);
+begin
+  if FActive = AValue then Exit;
+  FActive := AValue;
+end;
+
+constructor TAccessControler.Create;
+begin
+  Pin := TCommPin.Create;
+  Id := 1;
+end;
+
+destructor TAccessControler.Destroy;
+begin
+  FreeAndNil(Pin);
+  inherited Destroy;
+end;
+
+function TAccessControler.GetUser(Id: Integer; User: TUser): Boolean;
 begin
 
@@ -33 +60 @@
 end;
 
-function TAccessControler.GetPassage(Id: Integer): TPassage;
+function TAccessControler.GetPassage(Id: Integer; Passage: TUserPassage): Boolean;
 begin
 
@@ -41 +68 @@
 begin
 
-end;*)
+end;
 
 end.