usersessionunit.pas

IntraWeb电影程序 B/S类型的演示 Delphi+Internet 开发的电影服务器 系统登录电影网站的用户名和密码都是admin 观看电影的最低要求: 请确保你的系统已经安装媒体播放

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.