usersessionunit.pas

用delphi+intraweb写的简单报表系统（activeform使用技术）

unit UserSessionUnit;

interface

uses
  IWUserSessionBase, SysUtils, Classes, DataModuleUnit, IWInit;

type
  TAUser = record
    name: string; //登录名
    truename: string; //真名
    flag: Integer; //付费状态
    audit: Integer; //审核状态
    checkin: Boolean; //登记标志
  end;

  TIWUserSession = class(TIWUserSessionBase)
    procedure IWUserSessionBaseCreate(Sender: TObject);
    procedure IWUserSessionBaseDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    LoginUser: TAUser;
    myDM: TDYDM;
  end;

implementation

{$R *.dfm}

procedure TIWUserSession.IWUserSessionBaseCreate(Sender: TObject);
begin
  myDM := TDYDM.Create(WebApplication);
end;

procedure TIWUserSession.IWUserSessionBaseDestroy(Sender: TObject);
begin
  myDM.Free;
end;

end.