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, Unit3;

type
  TPage = (Main,Info);

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

implementation

{$R *.dfm}

{ TIWUserSession }

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

procedure TIWUserSession.IWUserSessionBaseCreate(Sender: TObject);
begin
  FPage:=Main;
  user_number:=1;
end;

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

end.

