fadminform.pas

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

unit Fadminform;

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
  TAdminForm = class(TBaseForm)
    Page: TIWRectangle;
    ListFilm: TIWDBGrid;
    ComGrid: TIWDBGrid;
    procedure ListFilmRenderCell(ACell: TIWGridCell; const ARow,
      AColumn: Integer);
    procedure IWAppFormRender(Sender: TObject);
    procedure ComGridColumns0Click(ASender: TObject; const AValue: String);
    procedure ComGridColumns1Click(ASender: TObject; const AValue: String);
    procedure ComGridColumns2Click(ASender: TObject; const AValue: String);
    procedure ComGridColumns3Click(ASender: TObject; const AValue: String);
  private
    { Private declarations }
  public
  FilmType:string;
    { Public declarations }
  end;

var
  AdminForm: TAdminForm;

implementation
       uses ServerController,FplayForm,FMainForm,FlistForm,FControl;
{$R *.dfm}
procedure TAdminForm.ListFilmRenderCell(ACell: TIWGridCell; const ARow,
  AColumn: Integer);
var
 Temp:TStringList;
begin
  inherited;
 temp:=TStringList.Create;
 if ListFilm.DataSource.DataSet.IsEmpty then
  exit;
if (AColumn=0) and (AROW>0) then
 begin
   with ListFilm.DataSource.DataSet do begin
   Temp.Clear;
   temp.LoadFromFile(WebApplication.ApplicationPath+'\files\Skin\'+GSkin+'\adminList.html');
   temp.Text:=StringReplace(temp.Text,'Type',FieldByname('typeid').AsString,[rfReplaceAll]);
   temp.Text:=StringReplace(temp.Text,'Title',GetLinkString('2',fieldByname('title').AsString, fieldByname('title').AsString),[rfReplaceAll]);
   temp.Text:=StringReplace(temp.Text,'Hit',fieldByname('hits').AsString,[rfReplaceAll]);
   temp.Text:=StringReplace(temp.Text,'DateTime', fieldByname('dateandTime').AsString,[rfReplaceAll]);
    temp.Text:=StringReplace(temp.Text,'Modify',GetLinkString('2',fieldByname('title').AsString, '修改'),[rfReplaceAll]);   //传入要删除的电影名
   temp.Text:=StringReplace(temp.Text,'Del',Format('<a href="#none" onclick="deletefilms('+QuotedStr(fieldByname('title').AsString)+')";>%S</a>',
                 ['删除']),[rfReplaceAll]);//显示在浏览器的
   ACell.Text:=Temp.text;
   end;
end;
  Temp.Free;
end;


procedure TAdminForm.IWAppFormRender(Sender: TObject);
begin
  inherited;
    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:='';
    ListFilm.DataSource:=usersession.ListFilmSource;
    Page.Text:=GetToolStr(ListFilm.DataSource.DataSet.RecNo,ListFilm.DataSource.DataSet.RecordCount,ListFilm.RowLimit,0);
   // Page.Text:=Page.Text +GetSpace(5)+ GetLinkString('2','append',' 我要添加新电影 ');
end;

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

procedure TAdminForm.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 TAdminForm.ComGridColumns2Click(ASender: TObject;
  const AValue: String);
begin
  inherited;
if not ShowForm('ModiforAddForm') then TModiforAddForm.Create(WebApplication).Show;
 UserSession.isEditAppendFilm:=AValue;
end;

procedure TAdminForm.ComGridColumns3Click(ASender: TObject;
  const AValue: String);
begin
  inherited;
 UserSession.ListFilm.Locate('title',AValue,[]);
 UserSession.ListFilm.Delete;
end;

initialization
  RegisterClass(TAdminForm);
end.