Changeset 20 for trunk/Modules

Timestamp:

Nov 15, 2012, 8:59:57 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Modul, který bude obsahovat implementaci komunikace s přístupovými terminály firmy Chiyu.

Location:

trunk/Modules

Files:

• Attendance/UAccessControler.pas (added)
• Attendance/UFormVirtualTerminal.lfm (added)
• Attendance/UFormVirtualTerminal.lrt (added)
• Attendance/UFormVirtualTerminal.pas (added)
• Attendance/UModuleAttendance.pas (modified) (5 diffs)
• ChiyuAccessControlers (added)
• ChiyuAccessControlers/UModuleChiyuAccessControlers.lfm (added)
• ChiyuAccessControlers/UModuleChiyuAccessControlers.pas (added)

trunk/Modules/Attendance/UModuleAttendance.pas

@@ -52 +52 @@
     procedure DoStart; override;
     procedure DoStop; override;
+    procedure DoInstall; override;
+    procedure DoUninstall; override;
   public
     constructor Create(Owner: TComponent); override;
@@ -187 +189 @@
         ReferencedTable := 'User';
       with AddItem(SOperation, 'Operation', ctReference, True, Bounds(1, 1, 1, 1)) do
-        ReferencedTable := 'User';
+        ReferencedTable := 'Operation';
       with AddItem(STerminal, 'Terminal', ctReference, True, Bounds(3, 1, 1, 1)) do
-        ReferencedTable := 'User';
+        ReferencedTable := 'Terminal';
     end;
     Name := 'Passage';
@@ -283 +285 @@
       AddItem(SAddress, 'Address', True, 120);
       AddItem(SPort, 'Port', True, 50);
-      AddItem(SType, 'Type', True, 80);
+      with AddItem(SType, 'Type', True, 80) do
+        ReferencedTable := 'TerminalType';
       AddItem(SNote, 'Note', True, 80);
     end;
@@ -298 +301 @@
       AddItem(SAddress, 'Address', ctEdit, True, Bounds(1, 1, 1, 1));
       AddItem(SPort, 'Port', ctSpinEdit, True, Bounds(3, 1, 1, 1));
-      AddItem(SType, 'Type', ctComboBox, True, Bounds(1, 2, 1, 1));
+      with AddItem(SType, 'Type', ctReference, True, Bounds(1, 2, 1, 1)) do
+        ReferencedTable := 'TerminalType';
       AddItem(SNote, 'Note', ctMemo, True, Bounds(0, 4, 4, 4), alTop);
     end;
@@ -377 +381 @@
 end;
 
+procedure TModuleAttendance.DoInstall;
+begin
+  inherited DoInstall;
+end;
+
+procedure TModuleAttendance.DoUninstall;
+begin
+  inherited DoUninstall;
+end;
+
 constructor TModuleAttendance.Create(Owner: TComponent);
 begin