fuserform.pas

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

unit FUserForm;

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
  TUserForm = class(TBaseForm)
    Page: TIWRectangle;
    ComGrid: TIWDBGrid;
    ListUser: TIWDBGrid;
    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);
    procedure ListUserRenderCell(ACell: TIWGridCell; const ARow,
      AColumn: Integer);
    procedure IWAppFormRender(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  UserForm: TUserForm;

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

procedure TUserForm.ComGridColumns0Click(ASender: TObject;
  const AValue: String);
begin                           //分页
  inherited;
SetPage(ListUser,Avalue);
end;

procedure TUserForm.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;
     if not ShowForm('ListForm') then TListForm.Create(WebApplication).Show;
   end;
end;

procedure TUserForm.ComGridColumns2Click(ASender: TObject;
  const AValue: String);
begin                               //添加,修改
  inherited;
  if not ShowForm('RegForm') then TRegForm.Create(WebApplication).Show;
 UserSession.isEditAppendUser:=AValue;
end;

procedure TUserForm.ComGridColumns3Click(ASender: TObject;
  const AValue: String);
begin
  inherited;                         //删除
 UserSession.qryUserTable.Locate('userid',AValue,[]);
 UserSession.qryUserTable.Delete;
end;

procedure TUserForm.ListUserRenderCell(ACell: TIWGridCell; const ARow,
  AColumn: Integer);
var
 Temp:TStringList;
begin
  inherited;
 temp:=TStringList.Create;
 if ListUser.DataSource.DataSet.IsEmpty then
  exit;
if (AColumn=0) and (AROW>0) then
 begin
   with ListUser.DataSource.DataSet do begin
   Temp.Clear;
   temp.LoadFromFile(WebApplication.ApplicationPath+'\files\Skin\'+GSkin+'\UserFilm.html');
   temp.Text:=StringReplace(temp.Text,'User',FieldByname('Userid').AsString,[rfReplaceAll]);
   temp.Text:=StringReplace(temp.Text,'Sex',fieldByname('Sex').AsString,[rfReplaceAll]);
   temp.Text:=StringReplace(temp.Text,'LoginCount',fieldByname('LoginCount').AsString,[rfReplaceAll]);
   temp.Text:=StringReplace(temp.Text,'DateTime', fieldByname('RegTime').AsString,[rfReplaceAll]);
    temp.Text:=StringReplace(temp.Text,'Modify',GetLinkString('2',fieldByname('userid').AsString, '修改'),[rfReplaceAll]);   //传入要删除的电影名
   temp.Text:=StringReplace(temp.Text,'Del',Format('<a href="#none" onclick="deleteUser('+QuotedStr(fieldByname('userid').AsString)+')";>%S</a>',
                 ['删除']),[rfReplaceAll]);//显示在浏览器的
   ACell.Text:=Temp.text;
   end;
end;
  Temp.Free;
end;

procedure TUserForm.IWAppFormRender(Sender: TObject);
begin
  inherited;
  if UserSession.isEditAppendUser ='all'  then begin
   with UserSession.qryUserTable do begin
     Close;
     SQL.Clear;
     SQL.Text:='select * from usertables ';
     Open;
   end;
  end;
    UserSession.isEditAppendUser :='';
    ListUser.DataSource:=usersession.dsUserTable;
    Page.Text:=GetUserStr(ListUser.DataSource.DataSet.RecNo,ListUser.DataSource.DataSet.RecordCount,ListUser.RowLimit,0);
end;

initialization
  RegisterClass(TUserForm);
end.