source: trunk/Modules/Attendance/UModuleAttendance.pas

unit UModuleAttendance;

{$mode delphi}

interface

uses
  Classes, SysUtils, FileUtil, UModularSystem, UFormList, UFormEdit, Controls,
  SpecializedList, Forms, ActnList, Menus, UDataModel, Dialogs,
  SpecializedDictionary, USqlDatabase;

type

  { TDataModuleAttendance }

  TDataModuleAttendance = class(TDataModule)
    AReadFromTerminal: TAction;
    ActionList1: TActionList;
    MenuItem1: TMenuItem;
    PopupMenu1: TPopupMenu;
    procedure AReadFromTerminalExecute(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

  { TModuleAttendance }

  TModuleAttendance = class(TModule)
  private
    ModelLog: TDataModel;
    ViewFormLog: TDataViewForm;
    ViewListLog: TDataViewList;
    ModelTerminal: TDataModel;
    ViewFormTerminal: TDataViewForm;
    ViewListTerminal: TDataViewList;
    ModelOperation: TDataModel;
    ViewFormOperation: TDataViewForm;
    ViewListOperation: TDataViewList;
    ModelAttendance: TDataModel;
    ViewFormAttendance: TDataViewForm;
    ViewListAttendance: TDataViewList;
    ModelHoliday: TDataModel;
    ViewFormHoliday: TDataViewForm;
    ViewListHoliday: TDataViewList;
    ModelPassage: TDataModel;
    ViewFormPassage: TDataViewForm;
    ViewListPassage: TDataViewList;
    ModelUser: TDataModel;
    ViewFormUser: TDataViewForm;
    ViewListUser: TDataViewList;
    procedure InitModels;
  protected
    procedure DoStart; override;
    procedure DoStop; override;
    procedure DoInstall; override;
    procedure DoUninstall; override;
  public
    constructor Create(Owner: TComponent); override;
    destructor Destroy; override;
  end;


var
  DataModuleAttendance: TDataModuleAttendance;

implementation

{$R *.lfm}

uses
  UFormMain, UCore, UTerminalBF630, UAccessControler, UAttendance;

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';
  SUsersRead = 'User read: ';
  SLogCount = 'Log count: ';

{ TDataModuleAttendance }

procedure TDataModuleAttendance.AReadFromTerminalExecute(Sender: TObject);
var
  AccessControler: TAccessControler;
  VirtualAccessControler: TVirtualTerminalBF630;
  UserCount: Integer;
  UserRec: TUser;
  Passage: TUserPassage;
  PassageCount: Integer;
  Data: TDictionaryStringString;
  I: Integer;
begin
  Data := nil;
  UserRec := nil;
  AccessControler := nil;
  Passage := nil;
  try
    VirtualAccessControler := TVirtualTerminalBF630.Create;
    VirtualAccessControler.InitDemoData;
    VirtualAccessControler.Active := True;

    Data := TDictionaryStringString.Create;

    AccessControler := TTerminalBF630.Create;
    AccessControler.Active := True;
    UserCount := AccessControler.GetUserCount;
    //ShowMessage(SUsersRead + IntToStr(UserCount));

    (*UserRec := TUser.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; *)

    PassageCount := AccessControler.GetPassageCount;
    //ShowMessage(SLogCount + IntToStr(PassageCount));

    Passage := TUserPassage.Create;
    for I := 0 to PassageCount - 1 do begin
      Data.Clear;
      AccessControler.GetPassage(I, Passage);
      Data.Add('Terminal', IntToStr(Passage.Terminal));
      Data.Add('Operation', IntToStr(Passage.Operation));
      Data.Add('Time', DateTimeToSQL(Passage.Time));
      Data.Add('User', IntToStr(Passage.User));
      Core.Database.Insert('Passage', Data);
    end;

  finally
    if Assigned(Data) then Data.Free;
    if Assigned(UserRec) then UserRec.Free;
    if Assigned(Passage) then Passage.Free;
    if Assigned(AccessControler) then AccessControler.Free;
    VirtualAccessControler.Free;
  end;
end;


{ TModuleAttendance }

procedure TModuleAttendance.InitModels;
var
  NewDataView: TDataViewList;
  NewDataView2: TDataViewForm;
  NewModel: TDataModel;
begin
  ModelUser := TDataModel.Create;
  with ModelUser do begin
    with Items do begin
      AddItem(SEnabled, 'Enabled', dtBoolean);
      AddItem(SPersonalId, 'PersonalId', dtString);
      AddItem(SLogin, 'Login', dtString);
      AddItem(SPassword, 'Password', dtString);
      AddItem(SFirstName, 'FirstName', dtString);
      AddItem(SSecondName, 'SecondName', dtString);
      AddItem(SCardCode, 'CardCode', dtString);
      AddItem(SFingerPrint, 'FingerPrint', dtString);
      AddItem(SNote, 'Note', dtText);
    end;
    Name := 'User';
    Caption := SUser;
  end;
  ViewListUser := TDataViewList.Create;
  with ViewListUser 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;
  FormMain.RegisterDataViewList(ViewListUser);
  ViewFormUser := TDataViewForm.Create;
  with ViewFormUser 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;
  FormMain.RegisterDataViewForm(ViewFormUser);

  ViewListPassage := TDataViewList.Create;
  with ViewListPassage 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;
  FormMain.RegisterDataViewList(ViewListPassage);
  ViewFormPassage := TDataViewForm.Create;
  with ViewFormPassage do begin
    with Items do begin
      AddItem(STime, 'Time', ctDateTime, True, Bounds(1, 0, 1, 1));
      with AddItem(SUser, 'User', ctReference, True, Bounds(3, 0, 1, 1)) do
        ReferencedTable := 'User';
      with AddItem(SOperation, 'Operation', ctReference, True, Bounds(1, 1, 1, 1)) do
        ReferencedTable := 'Operation';
      with AddItem(STerminal, 'Terminal', ctReference, True, Bounds(3, 1, 1, 1)) do
        ReferencedTable := 'Terminal';
    end;
    Name := 'Passage';
    Caption := SPassage;
    ImageIndex := 12;
  end;
  FormMain.RegisterDataViewForm(ViewFormPassage);

  ViewListAttendance := TDataViewList.Create;
  with ViewListAttendance 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;
  FormMain.RegisterDataViewList(ViewListAttendance);
  ViewFormAttendance := TDataViewForm.Create;
  with ViewFormAttendance 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;
  FormMain.RegisterDataViewForm(ViewFormAttendance);

  ViewListHoliday := TDataViewList.Create;
  with ViewListHoliday 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;
  FormMain.RegisterDataViewList(ViewListHoliday);
  ViewFormHoliday := TDataViewForm.Create;
  with ViewFormHoliday do begin
    with Items do begin
      AddItem(SEnabled, 'Enabled', ctCheckBox, True, Bounds(1, 0, 1, 1));
      AddItem(SName, 'Name', ctEdit, True, Bounds(3, 0, 1, 1));
      AddItem(SDay, 'Day', ctSpinEdit, True, Bounds(1, 1, 1, 1));
      AddItem(SMonth, 'Month', ctSpinEdit, True, Bounds(3, 1, 1, 1));
      AddItem(SYear, 'Year', ctSpinEdit, True, Bounds(1, 2, 1, 1));
    end;
    Name := 'Holiday';
    Caption := SHoliday;
    ImageIndex := 10;
  end;
  FormMain.RegisterDataViewForm(ViewFormHoliday);

  ViewListOperation := TDataViewList.Create;
  with ViewListOperation do begin
    with Columns do begin
      AddItem(SName, 'Name', True, 100);
      AddItem(SKeyNumber, 'KeyId', True, 100);
    end;
    Name := 'Operation';
    Caption := SOperation;
    ImageIndex := 13;
  end;
  FormMain.RegisterDataViewList(ViewListOperation);
  ViewFormOperation := TDataViewForm.Create;
  with ViewFormOperation do begin
    with Items do begin
      AddItem(SName, 'Name', ctEdit, True, Bounds(1, 0, 1, 1));
      AddItem(SKeyNumber, 'KeyId', ctEdit, True, Bounds(3, 0, 1, 1));
    end;
    Name := 'Operation';
    Caption := SOperation;
    ImageIndex := 13;
  end;
  FormMain.RegisterDataViewForm(ViewFormOperation);

  ViewListTerminal := TDataViewList.Create;
  with ViewListTerminal 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);
      with AddItem(SType, 'Type', True, 80) do
        ReferencedTable := 'TerminalType';
      AddItem(SNote, 'Note', True, 80);
    end;
    Name := 'Terminal';
    Caption := STerminal;
    ImageIndex := 8;
  end;
  FormMain.RegisterDataViewList(ViewListTerminal);
  ViewFormTerminal := TDataViewForm.Create;
  with ViewFormTerminal do begin
    with Items do begin
      AddItem(SName, 'Name', ctEdit, True, Bounds(1, 0, 1, 1));
      AddItem(SEnabled, 'Enabled', ctCheckBox, True, Bounds(3, 0, 1, 1));
      AddItem(SAddress, 'Address', ctEdit, True, Bounds(1, 1, 1, 1));
      AddItem(SPort, 'Port', ctSpinEdit, True, Bounds(3, 1, 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;
    Name := 'Terminal';
    Caption := STerminal;
    ImageIndex := 8;
  end;
  FormMain.RegisterDataViewForm(ViewFormTerminal);

  ViewListLog := TDataViewList.Create;
  with ViewListLog 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;
  FormMain.RegisterDataViewList(ViewListLog);
  ViewFormLog := TDataViewForm.Create;
  with ViewFormLog do begin
    with Items do begin
      AddItem(STime, 'Time', ctDateTime, True, Bounds(1, 0, 1, 1));
      AddItem(SUser, 'User', ctReference, True, Bounds(3, 0, 1, 1));
      AddItem(SText, 'Text', ctEdit, True, Bounds(1, 1, 1, 1));
    end;
    Name := 'Log';
    Caption := SLog;
    ImageIndex := 11;
  end;
  FormMain.RegisterDataViewForm(ViewFormLog);
end;

procedure TModuleAttendance.DoStart;
begin
  inherited DoStart;
  Application.Title := SAttendance;
  FormMain.Caption := SAttendance;
  DataModuleAttendance := TDataModuleAttendance.Create(FormMain);
  InitModels;
end;

procedure TModuleAttendance.DoStop;
begin
  FreeAndNil(ModelUser);
  FormMain.UnregisterDataViewList(ViewListUser);
  FreeAndNil(ViewListUser);
  FormMain.UnregisterDataViewForm(ViewFormUser);
  FreeAndNil(ViewFormUser);
  FormMain.UnregisterDataViewList(ViewListAttendance);
  FreeAndNil(ViewListAttendance);
  FormMain.UnregisterDataViewForm(ViewFormAttendance);
  FreeAndNil(ViewFormAttendance);
  FormMain.UnregisterDataViewList(ViewListHoliday);
  FreeAndNil(ViewListHoliday);
  FormMain.UnregisterDataViewForm(ViewFormHoliday);
  FreeAndNil(ViewFormHoliday);
  FormMain.UnregisterDataViewList(ViewListLog);
  FreeAndNil(ViewListLog);
  FormMain.UnregisterDataViewForm(ViewFormLog);
  FreeAndNil(ViewFormLog);
  FormMain.UnregisterDataViewList(ViewListOperation);
  FreeAndNil(ViewListOperation);
  FormMain.UnregisterDataViewForm(ViewFormOperation);
  FreeAndNil(ViewFormOperation);
  FormMain.UnregisterDataViewList(ViewListPassage);
  FreeAndNil(ViewListPassage);
  FormMain.UnregisterDataViewForm(ViewFormPassage);
  FreeAndNil(ViewFormPassage);
  FormMain.UnregisterDataViewList(ViewListTerminal);
  FreeAndNil(ViewListTerminal);
  FormMain.UnregisterDataViewForm(ViewFormTerminal);
  FreeAndNil(ViewFormTerminal);
  FreeAndNil(DataModuleAttendance);
  inherited DoStop;
end;

procedure TModuleAttendance.DoInstall;
begin
  inherited DoInstall;
end;

procedure TModuleAttendance.DoUninstall;
begin
  inherited DoUninstall;
end;

constructor TModuleAttendance.Create(Owner: TComponent);
begin
  inherited Create(Owner);
  Identification := 'Attendance';
  Title := SAttendance;
  Author := 'Chronos';
  License:= 'GNU/LGPLv3';
end;

destructor TModuleAttendance.Destroy;
begin
  inherited Destroy;
end;

end.