usersessionunit.pas

来自「IntraWeb电影程序 B/S类型的演示 Delphi+Internet 开」· PAS 代码 · 共 56 行

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, DB, ADODB;

type
  TIWUserSession = class(TIWUserSessionBase)
    NewFilm: TADOQuery;
    HotFilm: TADOQuery;
    ListFilm: TADOQuery;
    ListFilmSource: TDataSource;
    PlayFlim: TADOQuery;
    qryUserTable: TADOQuery;
    dsUserTable: TDataSource;
    procedure IWUserSessionBaseCreate(Sender: TObject);
  private
    { Private declarations }
  public
   Skin,isEditAppendFilm:string;//是否添加电影
   Film:string;   //电影名
   PlayFilmNum:Integer;//电影连续剧的集数
   FilMType:string;
   FilmSearch:string;
   FromEdt,ToEdt:Integer;
   UpFilm:string;
   IsFresh:Boolean;
   isEditAppendUser:string;//是否添加用户
   IsRegUser,IsAdmin:Boolean;
   UserLoginName:string;
    { Public declarations }
  end;

implementation
   uses ServerController;
{$R *.dfm}

procedure TIWUserSession.IWUserSessionBaseCreate(Sender: TObject);
var i:Integer;
begin
for i:=0 to self.ComponentCount-1 do begin
    if (self.Components[i] is TADOQuery )then
      begin
       (self.Components[i] as TADOQuery).Connection:=con1;
      end;
end;      
end;

end.