Changeset 25 for trunk/Modules/Attendance/UModuleAttendance.pas

Timestamp:

Nov 19, 2012, 2:08:02 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Základní čtení logů z přístupového terminálu.

File:

• trunk/Modules/Attendance/UModuleAttendance.pas (modified) (6 diffs)

trunk/Modules/Attendance/UModuleAttendance.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, UModularSystem, UFormList, UFormEdit, Controls,
-  SpecializedList, Forms, ActnList, Menus, UDataModel, Dialogs, SpecializedDictionary;
+  SpecializedList, Forms, ActnList, Menus, UDataModel, Dialogs,
+  SpecializedDictionary, USqlDatabase;
 
 type
@@ -102 +103 @@
   SHoliday = 'Holiday';
   SLog = 'Log';
-  SUsersRead = 'User read: %s';
+  SUsersRead = 'User read: ';
+  SLogCount = 'Log count: ';
 
 { TDataModuleAttendance }
@@ -112 +114 @@
   UserCount: Integer;
   UserRec: TUser;
+  Passage: TUserPassage;
+  PassageCount: Integer;
   Data: TDictionaryStringString;
   I: Integer;
@@ -118 +122 @@
   UserRec := nil;
   AccessControler := nil;
+  Passage := nil;
   try
     VirtualAccessControler := TVirtualTerminalBF630.Create;
@@ -123 +128 @@
     VirtualAccessControler.Active := True;
 
+    Data := TDictionaryStringString.Create;
+
     AccessControler := TTerminalBF630.Create;
     AccessControler.Active := True;
     UserCount := AccessControler.GetUserCount;
-
-    UserRec := TUser.Create;
-    Data := TDictionaryStringString.Create;
+    //ShowMessage(SUsersRead + IntToStr(UserCount));
+
+    (*UserRec := TUser.Create;
     for I := 0 to UserCount - 1 do begin
       Data.Clear;
@@ -135 +142 @@
       Data.Add('SecondName', UserRec.SecondName);
       Core.Database.Insert('User', Data);
-    end;
-    ShowMessage(SUsersRead + IntToStr(UserCount));
+    end; *)
+
+    PassageCount := AccessControler.GetPassageCount;
+    //ShowMessage(SLogCount + IntToStr(PassageCount));
+
+    Passage := TUserPassage.Create;
+    for I := 0 to PassageCount - 1 do begin
+      Data.Clear;
+      AccessControler.GetPassage(I, Passage);
+      Data.Add('Terminal', IntToStr(Passage.Terminal));
+      Data.Add('Operation', IntToStr(Passage.Operation));
+      Data.Add('Time', DateTimeToSQL(Passage.Time));
+      Data.Add('User', IntToStr(Passage.User));
+      Core.Database.Insert('Passage', Data);
+    end;
+
   finally
     if Assigned(Data) then Data.Free;
     if Assigned(UserRec) then UserRec.Free;
+    if Assigned(Passage) then Passage.Free;
     if Assigned(AccessControler) then AccessControler.Free;
     VirtualAccessControler.Free;