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

trunk/Modules/Attendance/UModuleAttendance.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, UModularSystem;
+  Classes, SysUtils, FileUtil, UModularSystem, UFormList, UFormEdit, Controls,
+  SpecializedList, Forms;
 
 type
@@ -20 +21 @@
   TModuleAttendance = class(TModule)
   private
+    DataViewLists: TListObject;
+    DataViewForms: TListObject;
+    procedure InitModels;
   protected
     procedure DoStart; override;
@@ -37 +41 @@
 
 uses
-  UFormMain;
+  UFormMain, UCore;
 
 resourcestring
   SAttendance = 'Attendance';
+  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';
+  SPassage = 'Passage';
+  STimeFrom = 'Time from';
+  STimeTo = 'Time to';
+  SHoliday = 'Holiday';
+  SLog = 'Log';
 
 
 { TModuleAttendance }
 
+procedure TModuleAttendance.InitModels;
+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);
+  FormMain.RegisterDataViewList(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);
+  FormMain.RegisterDataViewForm(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);
+  FormMain.RegisterDataViewList(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);
+  FormMain.RegisterDataViewForm(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);
+  FormMain.RegisterDataViewList(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);
+  FormMain.RegisterDataViewForm(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);
+  FormMain.RegisterDataViewList(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);
+  FormMain.RegisterDataViewList(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);
+  FormMain.RegisterDataViewList(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);
+  FormMain.RegisterDataViewList(NewDataView);
+end;
+
 procedure TModuleAttendance.DoStart;
 begin
   inherited DoStart;
+  Application.Title := SAttendance;
+  FormMain.Caption := SAttendance;
+  DataViewLists := TListObject.Create;
+  DataViewForms := TListObject.Create;
   DataModuleAttendance := TDataModuleAttendance.Create(FormMain);
+  InitModels;
 end;
 
 procedure TModuleAttendance.DoStop;
-begin
+var
+  I: Integer;
+begin
+  for I := 0 to DataViewLists.Count - 1 do
+    FormMain.UnregisterDataViewList(TDataViewList(DataViewLists[I]));
+  FreeAndNil(DataViewLists);
+  for I := 0 to DataViewForms.Count - 1 do
+    FormMain.UnregisterDataViewForm(TDataViewForm(DataViewForms[I]));
+  FreeAndNil(DataViewForms);
   FreeAndNil(DataModuleAttendance);
   inherited DoStop;
@@ -64 +274 @@
   Author := 'Chronos';
   License:= 'GNU/LGPLv3';
-  Dependencies.Add('');
 end;