Diff of /UserSessionUnit.pas

OSDN > Find Software > zencart-clone

 Browse Subversion Repository



/[zencart-clone]/UserSessionUnit.pas




Diff of /UserSessionUnit.pas



 Parent Directory

|  Revision Log



|  Patch














revision 1 by yamat0jp,
Sun Nov 22 11:18:44 2015 UTC




revision 2 by yamat0jp,
Sat Dec 19 14:35:42 2015 UTC






#

Line 1 



Line 1 













1
 unit UserSessionUnit;
 unit UserSessionUnit;

















2
 
 

















3
 {
 {















4


   This is a DataModule where you can add components or declare fields that are specific to


   This is a DataModule where you can add components or declare fields that are specific to 















5
   ONE user. Instead of creating global variables, it is better to use this datamodule. You can then
   ONE user. Instead of creating global variables, it is better to use this datamodule. You can then

















6
   access the it using UserSession.
   access the it using UserSession.

















7
 }
 }

















8
 interface
 interface

















9
 
 

















10
 uses
 uses















11


   IWUserSessionBase, SysUtils, Classes, FireDAC.Stan.Intf, FireDAC.Stan.Option,


   IWUserSessionBase, SysUtils, Classes, Unit3;
















   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;


 















12
 
 

















13
 type
 type

















14
   TPage = (Main,Info);
   TPage = (Main,Info);

















15
 
 

















16
   TIWUserSession = class(TIWUserSessionBase)
   TIWUserSession = class(TIWUserSessionBase)

















17
     procedure IWUserSessionBaseDestroy(Sender: TObject);
     procedure IWUserSessionBaseDestroy(Sender: TObject);












18
 
     procedure IWUserSessionBaseCreate(Sender: TObject);












19
   private
   private















20


     FDM: TDataModule1;


     FDM: TDataModule3;













21


     function GetDM: TDataModule1;


     function GetDM: TDataModule3;















22
     { Private declarations }
     { Private declarations }

















23
   public
   public

















24
     { Public declarations }
     { Public declarations }














     user_number: integer;
 













25
     FPage: TPage;
     FPage: TPage;















26


     property DM: TDataModule1 read GetDM;


     user_number: integer;













27


 


     property DM: TDataModule3 read GetDM;















28
   end;
   end;

















29
 
 

















30
 implementation
 implementation











#

Line 36 
 implementation


Line 33 
 implementation












33
 
 

















34
 { TIWUserSession }
 { TIWUserSession }

















35
 
 















36


 function TIWUserSession.GetDM: TDataModule1;


 function TIWUserSession.GetDM: TDataModule3;















37
 begin
 begin

















38
   if Assigned(FDM) = false then
   if Assigned(FDM) = false then















39


     FDM:=TDataModule1.Create(nil);


     FDM:=TDataModule3.Create(nil);















40
   result:=FDM;
   result:=FDM;

















41
 end;
 end;

















42
 
 












43
 
 procedure TIWUserSession.IWUserSessionBaseCreate(Sender: TObject);







44
 
 begin







45
 
   FPage:=Main;







46
 
   user_number:=1;







47
 
 end;







48
 
 












49
 procedure TIWUserSession.IWUserSessionBaseDestroy(Sender: TObject);
 procedure TIWUserSession.IWUserSessionBaseDestroy(Sender: TObject);

















50
 begin
 begin

















51
   FreeAndNil(FDM);
   FreeAndNil(FDM);











#

Line 50 
 end;


Line 53 
 end;












53
 
 

















54
 end.
 end.

















55
 
 












56
 
 
























Legend:



Removed from v.1
 


changed lines


 
Added in v.2













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[zencart-clone]/UserSessionUnit.pas
-revision 1 by yamat0jp,
Sun Nov 22 11:18:44 2015 UTC
+revision 2 by yamat0jp,
Sat Dec 19 14:35:42 2015 UTC
 Line 1
  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,
+   IWUserSessionBase, SysUtils, Classes, Unit3;
-   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);
+     procedure IWUserSessionBaseCreate(Sender: TObject);
    private
-     FDM: TDataModule1;
+     FDM: TDataModule3;
-     function GetDM: TDataModule1;
+     function GetDM: TDataModule3;
      { Private declarations }
    public
      { Public declarations }
-     user_number: integer;
      FPage: TPage;
-     property DM: TDataModule1 read GetDM;
+     user_number: integer;
+     property DM: TDataModule3 read GetDM;
    end;
  implementation
-Line 36 
 implementation
+Line 33 
 implementation
  { TIWUserSession }
- function TIWUserSession.GetDM: TDataModule1;
+ function TIWUserSession.GetDM: TDataModule3;
  begin
    if Assigned(FDM) = false then
-     FDM:=TDataModule1.Create(nil);
+     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);
-Line 50 
 end;
+Line 53 
 end;
  end.
 Legend:



Removed from v.1
 


changed lines


 
Added in v.2
 Legend:



Removed from v.1
 


changed lines


 
Added in v.2
-Removed from v.1
+Added in v.2
-Back to OSDN">Back to OSDN
+ViewVC Help
 Powered by ViewVC 1.1.26

Develop and Download Open Source Software

zencart-clone

Browse Subversion Repository