svn/view/UserSessionUnit.pas

unit UserSessionUnit;

{
  This is a DataModule where you can add components or declare fields that are specific to
  ONE user. Instead of creating global variables, it is better to use this datamodule. You can then
  access the it using UserSession.
}
interface

uses
  IWUserSessionBase, SysUtils, Classes, FireDAC.Stan.Intf, FireDAC.Stan.Option,
  FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf,
  FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt, FireDAC.UI.Intf,
  FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Phys, FireDAC.Phys.IB,
  FireDAC.Phys.IBDef, Data.DB, FireDAC.Comp.Client, FireDAC.Comp.DataSet, Unit4;

type
  TPage = (Main,Info);

  TIWUserSession = class(TIWUserSessionBase)
    procedure IWUserSessionBaseDestroy(Sender: TObject);
  private
    FDM: TDataModule1;
    function GetDM: TDataModule1;
    { Private declarations }
  public
    { Public declarations }
    user_number: integer;
    FPage: TPage;
    property DM: TDataModule1 read GetDM;
  end;

implementation

{$R *.dfm}

{ TIWUserSession }

function TIWUserSession.GetDM: TDataModule1;
begin
  if Assigned(FDM) = false then
    FDM:=TDataModule1.Create(nil);
  result:=FDM;
end;

procedure TIWUserSession.IWUserSessionBaseDestroy(Sender: TObject);
begin
  FreeAndNil(FDM);
end;

end.
