Changeset 7 for trunk/Forms/UFormMain.pas

Timestamp:

Nov 14, 2012, 12:33:52 PM (12 years ago)

Author:

chronos

Message:

• Upraveno: Doplněno zobrazení dalších tabulek.
• Přidáno: InnoSetup skript pro sestavení instalátoru.

File:

• trunk/Forms/UFormMain.pas (modified) (6 diffs)

trunk/Forms/UFormMain.pas

@@ -24 +24 @@
     PageControl1: TPageControl;
     StatusBar1: TStatusBar;
+    TabSheetPassage: TTabSheet;
     TabSheetHolidays: TTabSheet;
     TabSheetOperations: TTabSheet;
@@ -37 +38 @@
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure TabSheetAttendanceShow(Sender: TObject);
+    procedure TabSheetHolidaysShow(Sender: TObject);
+    procedure TabSheetOperationsShow(Sender: TObject);
+    procedure TabSheetPassageShow(Sender: TObject);
     procedure TabSheetTerminalsShow(Sender: TObject);
-    procedure TabSheetUsersHide(Sender: TObject);
     procedure TabSheetUsersShow(Sender: TObject);
   private
@@ -70 +74 @@
   SLogin = 'Login';
   SPassword = 'Password';
+  STerminal = 'Terminal';
+  SUser = 'User';
+  STime = 'Time';
+  SOperation = 'Operation';
+  SDay = 'Day';
+  SMonth = 'Month';
+  SYear = 'Year';
+  SKeyNumber = 'Key number';
 
 { TFormMain }
@@ -103 +115 @@
 end;
 
+procedure TFormMain.TabSheetAttendanceShow(Sender: TObject);
+begin
+end;
+
+procedure TFormMain.TabSheetHolidaysShow(Sender: TObject);
+begin
+  if Assigned(Core.FormList) then Core.FormList.Free;
+  Core.FormList := TFormList.Create(Self);
+  Core.CoolTranslator1.TranslateComponentRecursive(Core.FormList);
+  with TFormList(Core.FormList) do begin
+    ManualDock(TTabSheet(Sender));
+    Align := alClient;
+    Show;
+    with Columns do begin
+      AddItem(SEnabled, 'Enabled', True, 30);
+      AddItem(SName, 'Name', True, 300);
+      AddItem(SDay, 'Day', True, 50);
+      AddItem(SMonth, 'Month', True, 50);
+      AddItem(SYear, 'Year', True, 50);
+    end;
+    Table := 'Holiday';
+    UpdateData;
+  end;
+end;
+
+procedure TFormMain.TabSheetOperationsShow(Sender: TObject);
+begin
+  if Assigned(Core.FormList) then Core.FormList.Free;
+  Core.FormList := TFormList.Create(Self);
+  Core.CoolTranslator1.TranslateComponentRecursive(Core.FormList);
+  with TFormList(Core.FormList) do begin
+    ManualDock(TTabSheet(Sender));
+    Align := alClient;
+    Show;
+    with Columns do begin
+      AddItem(SEnabled, 'Name', True, 100);
+      AddItem(SKeyNumber, 'KeyId', True, 30);
+    end;
+    Table := 'Operation';
+    UpdateData;
+  end;
+end;
+
+procedure TFormMain.TabSheetPassageShow(Sender: TObject);
+begin
+  if Assigned(Core.FormList) then Core.FormList.Free;
+  Core.FormList := TFormList.Create(Self);
+  Core.CoolTranslator1.TranslateComponentRecursive(Core.FormList);
+  with TFormList(Core.FormList) do begin
+    ManualDock(TTabSheet(Sender));
+    Align := alClient;
+    Show;
+    with Columns do begin
+      AddItem(STime, 'Time', True, 80);
+      AddItem(SUser, 'User', True, 80);
+      AddItem(SOperation, 'Operation', True, 80);
+      AddItem(STerminal, 'Terminal', True, 80);
+    end;
+    Table := 'Passage';
+    UpdateData;
+  end;
+end;
+
 procedure TFormMain.TabSheetTerminalsShow(Sender: TObject);
 begin
-  Core.FormTerminals := TFormList.Create(Self);
-  with TFormList(Core.FormTerminals) do begin
+  if Assigned(Core.FormList) then Core.FormList.Free;
+  Core.FormList := TFormList.Create(Self);
+  Core.CoolTranslator1.TranslateComponentRecursive(Core.FormList);
+  with TFormList(Core.FormList) do begin
     ManualDock(TTabSheet(Sender));
     Align := alClient;
@@ -112 +189 @@
     with Columns do begin
       AddItem(SName, 'Name', True, 80);
-      AddItem(SEnabled, 'Enabled', True, 80);
-      AddItem(SAddress, 'Address', True, 80);
-      AddItem(SPort, 'Port', True, 80);
+      AddItem(SEnabled, 'Enabled', True, 30);
+      AddItem(SAddress, 'Address', True, 120);
+      AddItem(SPort, 'Port', True, 50);
       AddItem(SType, 'Type', True, 80);
       AddItem(SNote, 'Note', True, 80);
@@ -123 +200 @@
 end;
 
-procedure TFormMain.TabSheetUsersHide(Sender: TObject);
-begin
-  FreeAndNil(Core.FormUsers);
-end;
-
 procedure TFormMain.TabSheetUsersShow(Sender: TObject);
 begin
-  Core.FormUsers := TFormList.Create(Self);
-  with TFormList(Core.FormUsers) do begin
-    ManualDock(TTabSheet(Sender));
-    Align := alClient;
-    Show;
-    with Columns do begin
-      AddItem(SEnabled, 'Enabled', True, 80);
+  if Assigned(Core.FormList) then Core.FormList.Free;
+  Core.FormList := TFormList.Create(Self);
+  Core.CoolTranslator1.TranslateComponentRecursive(Core.FormList);
+  with TFormList(Core.FormList) do begin
+    ManualDock(TTabSheet(Sender));
+    Align := alClient;
+    Show;
+    with Columns do begin
+      AddItem(SEnabled, 'Enabled', True, 30);
       AddItem(SPersonalId, 'PersonalId', True, 80);
       AddItem(SLogin, 'Login', False, 80);