flistform.pas

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

unit FlistForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FBaseform, IWVCLComponent, IWBaseLayoutComponent,
  IWBaseContainerLayout, IWContainerLayout, IWTemplateProcessorHTML,
  IWCompRectangle, IWCompButton, IWVCLBaseControl, IWBaseControl,
  IWBaseHTMLControl, IWControl, IWCompEdit, IWGrids, IWDBGrids;

type
  TListForm = class(TBaseForm)
    ListGrid: TIWDBGrid;
    Page: TIWRectangle;
    ComGrid: TIWDBGrid;
    procedure IWAppFormRender(Sender: TObject);
    procedure ListGridRenderCell(ACell: TIWGridCell; const ARow,
      AColumn: Integer);
    procedure ComGridColumns0Click(ASender: TObject; const AValue: String);
    procedure ComGridColumns1Click(ASender: TObject; const AValue: String);
    procedure ComGridColumns2Click(ASender: TObject; const AValue: String);
  private
    { Private declarations }
  public
  FilmType:string;

    { Public declarations }
  end;

var
  ListForm: TListForm;

implementation
    uses ServerController,FplayForm,FMainForm;
{$R *.dfm}

procedure TListForm.IWAppFormRender(Sender: TObject);
begin
  inherited;
 if UserSession.FilmSearch <> '' then begin     //查找
      with UserSession.ListFilm do begin
          Close;
          SQL.Clear;
          SQL.Add('select * from movie where title like'+QuotedStr('%'+usersession.FilmSearch+'%'));
          Open;
        end;
     UserSession.FilmSearch:='';   
   end;

   if (UserSession.FilMType <> '') and (UserSession.FilMType <> 'All')then begin
        with UserSession.ListFilm do begin
          Close;
          SQL.Clear;
          SQL.Text:='select * from movie where typeid='''+Usersession.FilMType+''' and  IsDate(Movie.dateandtime) ORDER BY datevalue(Movie.dateandtime) DESC';
          Open;
        end;
    end;

  if UserSession.FilMType = 'All' then begin
   with UserSession.ListFilm do begin
     Close;
     SQL.Clear;
     SQL.Text:='select * from movie ';
     Open;
   end;
  end;
  UserSession.FilmType:='';
  ListGrid.DataSource:=usersession.ListFilmSource;
  Page.Text:=GetToolStr(ListGrid.DataSource.DataSet.RecNo,ListGrid.DataSource.DataSet.RecordCount,ListGrid.RowLimit,0);
end;

procedure TListForm.ListGridRenderCell(ACell: TIWGridCell; const ARow,
  AColumn: Integer);
var
 Temp:TStringList;
 Pic:string;
 memo:string;
begin
  inherited;
 temp:=TStringList.Create;
try
 if ListGrid.DataSource.DataSet.IsEmpty then
  exit;
if (AColumn=0) and (AROW>0) then
 begin
   with ListGrid.DataSource.DataSet do begin
   Temp.Clear;
   temp.LoadFromFile(WebApplication.ApplicationPath+'\files\Skin\'+GSkin+'\ListFilm.Html');
   Pic:='';
   memo:=Pic;
   Pic:=pictureString( fieldbyname('url').AsString,'med');
   if length(FieldByname('content').AsString) >= 250 then
    memo:=Copy(FieldByname('content').AsString,0,250)+'....'
   else
    memo:=FieldByname('content').AsString; 
   temp.Text:=StringReplace(temp.Text,'Pic',GetLinkString('2', FieldByname('title').AsString,pic),[rfReplaceAll]);
   temp.Text:=StringReplace(temp.Text,'title',GetLinkString('2',fieldByname('title').AsString, fieldByname('title').AsString),[rfReplaceAll]);
   temp.Text:=StringReplace(temp.Text,'Author',fieldByname('name').AsString,[rfReplaceAll]);
   temp.Text:=StringReplace(temp.Text,'Memo', memo,[rfReplaceAll]);
   ACell.Text:=Temp.text;
   end;
 end;
except
  ACell.Text:=Temp.text;
end;
  Temp.Free;
end;

procedure TListForm.ComGridColumns0Click(ASender: TObject;
  const AValue: String);
begin
  inherited;
  SetPage(ListGrid,Avalue);
end;

procedure TListForm.ComGridColumns1Click(ASender: TObject;
  const AValue: String);
begin
  inherited;
   If AValue ='MainForm' then
  begin
   if not ShowForm('MainForm') then TMainForm.Create(WebApplication).Show;
 end  
 else
   begin
   UserSession.FilMType:=AValue;
   end;
end;

procedure TListForm.ComGridColumns2Click(ASender: TObject;
  const AValue: String);
begin
  inherited;
if not ShowForm('PlayForm') then TPlayForm.Create(WebApplication).Show;
  UserSession.Film:=AValue;
end;

initialization
RegisterClass(TListForm);
end.