Changeset 14 for trunk/Forms/UFormMain.pas

Timestamp:

Nov 15, 2012, 9:48:48 AM (12 years ago)

Author:

chronos

Message:

• Upraveno: Inicializace pohledů pro docházku přesunuto do modulu Docházka.

File:

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

trunk/Forms/UFormMain.pas

@@ -15 +15 @@
 
   TFormMain = class(TForm)
-    AConnectionSettings: TAction;
+    AConnect: TAction;
     ADisconnect: TAction;
     AShowToolBar: TAction;
     AModuleList: TAction;
-    ASetting: TAction;
+    ASettings: TAction;
     AExit: TAction;
     ActionList1: TActionList;
@@ -41 +41 @@
     ToolButton3: TToolButton;
     ToolButton4: TToolButton;
-    procedure AConnectionSettingsExecute(Sender: TObject);
+    procedure AConnectExecute(Sender: TObject);
     procedure ADisconnectExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
     procedure AModuleListExecute(Sender: TObject);
-    procedure ASettingExecute(Sender: TObject);
+    procedure ASettingsExecute(Sender: TObject);
     procedure AShowToolBarExecute(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
@@ -55 +55 @@
     ShowToolBar: Boolean;
     procedure FormModuleListDestroy(Sender: TObject);
-    procedure InitModules;
-    procedure ReloadPages;
   public
     DataViewLists: TListObject; // TListObject<TDataViewList>
     DataViewForms: TListObject; // TListObject<TDataViewForm>
+    procedure RegisterDataViewForm(View: TDataViewForm);
+    procedure RegisterDataViewList(View: TDataViewList);
+    procedure UnregisterDataViewForm(View: TDataViewForm);
+    procedure UnregisterDataViewList(View: TDataViewList);
+
+    procedure ReloadPages;
     procedure UpdateInterface;
     procedure LoadFromRegistry(AContext: TRegistryContext);
@@ -75 +79 @@
 {$R *.lfm}
 
-resourcestring
-  SPersonalId = 'Personal Id';
-  SFirstName = 'First name';
-  SSecondName = 'Second name';
-  SEnabled = 'Enabled';
-  SAddress = 'Address';
-  SPort = 'Port';
-  SType = 'Type';
-  SName = 'Name';
-  SFingerPrint = 'Fingerprint';
-  SCardCode = 'Card code';
-  SNote = 'Note';
-  SLogin = 'Login';
-  SPassword = 'Password';
-  STerminal = 'Terminal';
-  SUser = 'User';
-  SDate = 'Date';
-  STime = 'Time';
-  SOperation = 'Operation';
-  SDay = 'Day';
-  SMonth = 'Month';
-  SYear = 'Year';
-  SKeyNumber = 'Key number';
-  SText = 'Text';
-  SAttendance = 'Attendance';
-  SPassage = 'Passage';
-  STimeFrom = 'Time from';
-  STimeTo = 'Time to';
-  SHoliday = 'Holiday';
-  SLog = 'Log';
-
 { TFormMain }
 
@@ -115 +88 @@
 begin
   DataViewLists := TListObject.Create;
+  DataViewLists.OwnsObjects := False;
   DataViewForms := TListObject.Create;
+  DataViewForms.OwnsObjects := False;
+
   LoadFromRegistry(Core.RegistryContext);
   Core.Init;
   Core.PersistentForm.Load(Self);
-  InitModules;
   ReloadPages;
 end;
@@ -125 +100 @@
 procedure TFormMain.FormDestroy(Sender: TObject);
 begin
+  Core.Done;
   SaveToRegistry(Core.RegistryContext);
+  Core.PersistentForm.Save(Self);
   FreeAndNil(DataViewForms);
   FreeAndNil(DataViewLists);
-  Core.PersistentForm.Save(Self);
-  Core.Done;
 end;
 
@@ -144 +119 @@
     Core.FormModuleList.AddHandlerOnBeforeDestruction(FormModuleListDestroy);
     Core.FormModuleList.Options := [mloAllowEnable, mloShowEnable,
-      mloAllowInstall,  mloShowDescription, mloShowDependencies, mloShowInfoBar];
+      mloAllowInstall,  mloShowDescription, mloShowDependencies, mloShowInfoBar,
+      mloShowInstalled];
     Core.CoolTranslator1.TranslateComponentRecursive(Core.FormModuleList)
   end;
@@ -150 +126 @@
 end;
 
-procedure TFormMain.AConnectionSettingsExecute(Sender: TObject);
+procedure TFormMain.AConnectExecute(Sender: TObject);
 begin
   FormConnection.LoadFromDatabase(Core.Database);
@@ -166 +142 @@
 end;
 
-procedure TFormMain.ASettingExecute(Sender: TObject);
+procedure TFormMain.ASettingsExecute(Sender: TObject);
 begin
   FormSetting.ShowModal;
@@ -201 +177 @@
 end;
 
-procedure TFormMain.InitModules;
-var
-  NewDataView: TDataViewList;
-  NewDataView2: TDataViewForm;
-begin
-  NewDataView := TDataViewList.Create;
-  with NewDataView do begin
-    with Columns do begin
-      AddItem(SEnabled, 'Enabled', True, 30);
-      AddItem(SPersonalId, 'PersonalId', True, 80);
-      AddItem(SLogin, 'Login', False, 80);
-      AddItem(SPassword, 'Password', False, 80);
-      AddItem(SFirstName, 'FirstName', True, 80);
-      AddItem(SSecondName, 'SecondName', True, 80);
-      AddItem(SCardCode, 'CardCode', True, 80);
-      AddItem(SFingerPrint, 'FingerPrint', True, 80);
-      AddItem(SNote, 'Note', False, 80);
-    end;
-    Name := 'User';
-    Caption := SUser;
-    ImageIndex := 9;
-  end;
-  DataViewLists.Add(NewDataView);
-  NewDataView2 := TDataViewForm.Create;
-  with NewDataView2 do begin
-    Name := 'User';
-    Caption := SUser;
-    with Items do begin
-      AddItem(SEnabled, 'Enabled', ctCheckBox, True, Bounds(1, 0, 1, 1));
-      AddItem(SPersonalId, 'PersonalId', ctSpinEdit, True, Bounds(3, 0, 1, 1));
-      AddItem(SLogin, 'Login', ctEdit, True, Bounds(1, 1, 1, 1));
-      AddItem(SPassword, 'Password', ctEdit, True, Bounds(3, 1, 1, 1));
-      AddItem(SFirstName, 'FirstName', ctEdit, True, Bounds(1, 2, 1, 1));
-      AddItem(SSecondName, 'SecondName', ctEdit, True, Bounds(3, 2, 1, 1));
-      AddItem(SCardCode, 'CardCode', ctEdit, True, Bounds(1, 3, 1, 1));
-      AddItem(SFingerPrint, 'FingerPrint', ctEdit, True, Bounds(3, 3, 1, 1));
-      AddItem(SNote, 'Note', ctMemo, True, Bounds(0, 5, 4, 4), alTop);
-    end;
-  end;
-  DataViewForms.Add(NewDataView2);
-
-  NewDataView := TDataViewList.Create;
-  with NewDataView do begin
-    with Columns do begin
-      AddItem(STime, 'Time', True, 150);
-      AddItem(SUser, 'User', True, 80);
-      AddItem(SOperation, 'Operation', True, 80);
-      AddItem(STerminal, 'Terminal', True, 80);
-    end;
-    Name := 'Passage';
-    Caption := SPassage;
-    ImageIndex := 12;
-  end;
-  DataViewLists.Add(NewDataView);
-  NewDataView2 := TDataViewForm.Create;
-  with NewDataView2 do begin
-    with Items do begin
-      AddItem(STime, 'Time', ctDate, True, Bounds(0, 0, 1, 1));
-      with AddItem(SUser, 'User', ctReference, True, Bounds(3, 0, 1, 1)) do
-        ReferencedTable := 'User';
-      with AddItem(SOperation, 'Operation', ctReference, True, Bounds(0, 1, 1, 1)) do
-        ReferencedTable := 'User';
-      with AddItem(STerminal, 'Terminal', ctReference, True, Bounds(3, 1, 1, 1)) do
-        ReferencedTable := 'User';
-    end;
-    Name := 'Passage';
-    Caption := SPassage;
-    ImageIndex := 12;
-  end;
-  DataViewForms.Add(NewDataView2);
-
-  NewDataView := TDataViewList.Create;
-  with NewDataView do begin
-    with Columns do begin
-      AddItem(SDate, 'Date', True, 80);
-      AddItem(SUser, 'User', True, 80);
-      AddItem(STimeFrom, 'TimeFrom', True, 120);
-      AddItem(STimeTo, 'TimeTo', True, 120);
-    end;
-    Name := 'Attendance';
-    Caption := SAttendance;
-    ImageIndex := 14;
-  end;
-  DataViewLists.Add(NewDataView);
-  NewDataView2 := TDataViewForm.Create;
-  with NewDataView2 do begin
-    with Items do begin
-      AddItem(SUser, 'User', ctReference, True, Bounds(1, 0, 1, 1));
-      AddItem(SDate, 'Date', ctDate, True, Bounds(3, 0, 1, 1));
-      AddItem(STimeFrom, 'TimeFrom', ctTime, True, Bounds(1, 1, 1, 1));
-      AddItem(STimeTo, 'TimeTo', ctTime, True, Bounds(3, 1, 1, 1));
-    end;
-    Name := 'Attendance';
-    Caption := SAttendance;
-    ImageIndex := 14;
-  end;
-  DataViewForms.Add(NewDataView2);
-
-  NewDataView := TDataViewList.Create;
-  with NewDataView do begin
-    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;
-    Name := 'Holiday';
-    Caption := SHoliday;
-    ImageIndex := 10;
-  end;
-  DataViewLists.Add(NewDataView);
-
-  NewDataView := TDataViewList.Create;
-  with NewDataView do begin
-    with Columns do begin
-      AddItem(SName, 'Name', True, 100);
-      AddItem(SKeyNumber, 'KeyId', True, 100);
-    end;
-    Name := 'Operation';
-    Caption := SOperation;
-    ImageIndex := 13;
-  end;
-  DataViewLists.Add(NewDataView);
-
-  NewDataView := TDataViewList.Create;
-  with NewDataView do begin
-    with Columns do begin
-      AddItem(SName, 'Name', 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);
-    end;
-    Name := 'Terminal';
-    Caption := STerminal;
-    ImageIndex := 8;
-  end;
-  DataViewLists.Add(NewDataView);
-
-  NewDataView := TDataViewList.Create;
-  with NewDataView do begin
-    with Columns do begin
-      AddItem(STime, 'Time', True, 120);
-      AddItem(SUser, 'User', True, 80);
-      AddItem(SText, 'Text', True, 400);
-    end;
-    Name := 'Log';
-    Caption := SLog;
-    ImageIndex := 11;
-  end;
-  DataViewLists.Add(NewDataView);
-end;
-
 procedure TFormMain.ReloadPages;
 var
@@ -361 +182 @@
   I: Integer;
 begin
+  if Assigned(Core.FormList) then FreeAndNil(Core.FormList);
+  for I := PageControl1.PageCount - 1 downto 0 do
+    PageControl1.Pages[I].Free;
   for I := 0 to DataViewLists.Count - 1 do
   with TDataViewList(DataViewLists[I]) do begin
@@ -373 +197 @@
 end;
 
+procedure TFormMain.RegisterDataViewForm(View: TDataViewForm);
+begin
+  DataViewForms.Add(View);
+end;
+
+procedure TFormMain.RegisterDataViewList(View: TDataViewList);
+begin
+  DataViewLists.Add(View);
+end;
+
+procedure TFormMain.UnregisterDataViewForm(View: TDataViewForm);
+begin
+  DataViewForms.Remove(View);
+end;
+
+procedure TFormMain.UnregisterDataViewList(View: TDataViewList);
+begin
+  DataViewLists.Remove(View);
+end;
+
 procedure TFormMain.UpdateInterface;
 begin