Changeset 24 for trunk/Modules/Attendance/UModuleAttendance.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/UModuleAttendance.pas (modified) (4 diffs)

trunk/Modules/Attendance/UModuleAttendance.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, UModularSystem, UFormList, UFormEdit, Controls,
-  SpecializedList, Forms, ActnList, UDataModel;
+  SpecializedList, Forms, ActnList, Menus, UDataModel, Dialogs, SpecializedDictionary;
 
 type
@@ -16 +16 @@
     AReadFromTerminal: TAction;
     ActionList1: TActionList;
+    MenuItem1: TMenuItem;
+    PopupMenu1: TPopupMenu;
     procedure AReadFromTerminalExecute(Sender: TObject);
   private
@@ -68 +70 @@
 
 uses
-  UFormMain, UCore;
+  UFormMain, UCore, UTerminalBF630, UAccessControler, UAttendance;
 
 resourcestring
@@ -100 +102 @@
   SHoliday = 'Holiday';
   SLog = 'Log';
+  SUsersRead = 'User read: %s';
 
 { TDataModuleAttendance }
 
 procedure TDataModuleAttendance.AReadFromTerminalExecute(Sender: TObject);
-begin
-
+var
+  AccessControler: TAccessControler;
+  VirtualAccessControler: TVirtualTerminalBF630;
+  UserCount: Integer;
+  UserRec: TUser;
+  Data: TDictionaryStringString;
+  I: Integer;
+begin
+  Data := nil;
+  UserRec := nil;
+  AccessControler := nil;
+  try
+    VirtualAccessControler := TVirtualTerminalBF630.Create;
+    VirtualAccessControler.InitDemoData;
+    VirtualAccessControler.Active := True;
+
+    AccessControler := TTerminalBF630.Create;
+    AccessControler.Active := True;
+    UserCount := AccessControler.GetUserCount;
+
+    UserRec := TUser.Create;
+    Data := TDictionaryStringString.Create;
+    for I := 0 to UserCount - 1 do begin
+      Data.Clear;
+      AccessControler.GetUser(I, UserRec);
+      Data.Add('FirstName', UserRec.FirstName);
+      Data.Add('SecondName', UserRec.SecondName);
+      Core.Database.Insert('User', Data);
+    end;
+    ShowMessage(SUsersRead + IntToStr(UserCount));
+  finally
+    if Assigned(Data) then Data.Free;
+    if Assigned(UserRec) then UserRec.Free;
+    if Assigned(AccessControler) then AccessControler.Free;
+    VirtualAccessControler.Free;
+  end;
 end;