fbaseform.dfm

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

object BaseForm: TBaseForm
  Left = 0
  Top = 0
  Width = 555
  Height = 400
  OnRender = IWAppFormRender
  ConnectionMode = cmAny
  SupportedBrowsers = [brIE, brNetscape7, brOpera, brSafari, brNetscape6]
  BrowserSecurityCheck = True
  Background.Fixed = False
  LayoutMgr = IWTemplateProcessorHTML1
  HandleTabs = False
  LeftToRight = True
  LockUntilLoaded = True
  LockOnSubmit = True
  ShowHint = True
  XPTheme = True
  JavaScript.Strings = (
    'var rate = 30;'
    'var obj;'
    'var act = 0;'
    'var elmH = 0;'
    'var elmS = 128;'
    'var elmV = 255;'
    'var clrOrg;'
    'var TimerID;'
    
      'if (navigator.appName.indexOf("Microsoft",0) != -1 && parseInt(n' +
      'avigator.appVersion) >= 4) {'
    'Browser = true;'
    '} else {'
    'Browser = false;'
    '}'
    ''
    'if (Browser) {'
    'document.onmouseover = doRainbowAnchor;'
    'document.onmouseout = stopRainbowAnchor;'
    '}'
    'function doRainbow()'
    '{'
    'if (Browser && act != 1) {'
    'act = 1;'
    'obj = event.srcElement;'
    'clrOrg = obj.style.color;'
    'TimerID = setInterval("ChangeColor()",100);'
    '}'
    '}'
    'function stopRainbow()'
    '{'
    'if (Browser && act != 0) {'
    'obj.style.color = clrOrg;'
    'clearInterval(TimerID);'
    'act = 0;'
    '}'
    '}'
    'function doRainbowAnchor()'
    '{'
    'if (Browser && act != 1) {'
    'obj = event.srcElement;'
    ''
    'while (obj.tagName != '#39'A'#39' && obj.tagName != '#39'BODY'#39') {'
    'obj = obj.parentElement;'
    'if (obj.tagName == '#39'A'#39' || obj.tagName == '#39'BODY'#39')'
    'break;'
    '}'
    ''
    'if (obj.tagName == '#39'A'#39' && obj.href != '#39#39') {'
    'act = 1;'
    'clrOrg = obj.style.color;'
    'TimerID = setInterval("ChangeColor()",100);'
    '}'
    '}'
    '}'
    'function stopRainbowAnchor()'
    '{'
    'if (Browser && act != 0) {'
    'if (obj.tagName == '#39'A'#39') {'
    'obj.style.color = clrOrg;'
    'clearInterval(TimerID);'
    'act = 0;'
    '}'
    '}'
    '}'
    'function ChangeColor()'
    '{'
    'obj.style.color = makeColor();'
    '}'
    'function makeColor()'
    '{'
    'if (elmS == 0) {'
    'elmR = elmV; elmG = elmV; elmB = elmV;'
    '}'
    'else {'
    't1 = elmV;'
    't2 = (255 - elmS) * elmV / 255;'
    't3 = elmH % 60;'
    't3 = (t1 - t2) * t3 / 60;'
    ''
    'if (elmH < 60) {'
    'elmR = t1; elmB = t2; elmG = t2 + t3;'
    '}'
    'else if (elmH < 120) {'
    'elmG = t1; elmB = t2; elmR = t1 - t3;'
    '}'
    'else if (elmH < 180) {'
    'elmG = t1; elmR = t2; elmB = t2 + t3;'
    '}'
    'else if (elmH < 240) {'
    'elmB = t1; elmR = t2; elmG = t1 - t3;'
    '}'
    'else if (elmH < 300) {'
    'elmB = t1; elmG = t2; elmR = t2 + t3;'
    '}'
    'else if (elmH < 360) {'
    'elmR = t1; elmG = t2; elmB = t1 - t3;'
    '}'
    'else {'
    'elmR = 0; elmG = 0; elmB = 0;'
    '}'
    '}'
    'elmR = Math.floor(elmR);'
    'elmG = Math.floor(elmG);'
    'elmB = Math.floor(elmB);'
    
      'clrRGB = '#39'#'#39' + elmR.toString(16) + elmG.toString(16) + elmB.toSt' +
      'ring(16);'
    'elmH = elmH + rate;'
    'if (elmH >= 360)'
    'elmH = 0;'
    'return clrRGB;'
    '}'
    ''
    'function Check_Search()'
    '{'
    ' if (SEARCHEDITIWCL.value=="") {'
    '    alert("'#35831#36755#20837#26597#35810#26465#20214'!");'
    '    SEARCHEDITIWCL.focus();'
    '    return false;'
    '    }'
    '  SubmitClickConfirm('#39'SEARCH'#39','#39#39', true, '#39#39');  '
    '}'
    ''
    'function Check_Users()'
    '{ '
    '   var obj = USERIDIWCL;'
    '  if (obj.value== "")'
    '   {'
    '    alert("'#29992#25143#21517#19981#33021#31354'!");'
    '    obj.focus();'
    '    return false; '
    '   }'
    '  var obj = PASSIWCL;'
    '  if (obj.value== "")'
    '   {'
    '    alert("'#23494#30721#19981#33021#31354'!");'
    '    obj.focus();'
    '    return false; '
    '   }'
    '  SubmitClickConfirm('#39'LOGIN'#39','#39#39', true, '#39#39');  '
    ''
    '}')
  DesignLeft = 223
  DesignTop = 152
  object UserID: TIWEdit
    Left = 136
    Top = 32
    Width = 81
    Height = 21
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    StatusText = #27492#22788#36755#20837#24744#30340#29992#25143#21517
    ZIndex = 0
    RenderSize = True
    Alignment = taLeftJustify
    BGColor = clNone
    FocusColor = clNone
    DoSubmitValidation = True
    Editable = True
    NonEditableAsLabel = True
    Font.Color = clNone
    Font.CSSStyle = 'fmtxtra'
    Font.FontFamily = 'Helvetica, Arial, Verdana'
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'UserID'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <
      item
        EventCode.Strings = (
          'this.select();')
        Event = 'onFocus'
      end
      item
        EventCode.Strings = (
          ' if (event.keyCode == 13){'
          '  var c1=PASSIWCL;'
          '  c1.focus();'
          '}'
          'return true;')
        Event = 'onKeyDown'
      end>
    TabOrder = 0
    PasswordPrompt = False
  end
  object PASS: TIWEdit
    Left = 136
    Top = 64
    Width = 81
    Height = 21
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    StatusText = #27492#22788#36755#20837#24744#30340#23494#30721
    ZIndex = 0
    RenderSize = True
    Alignment = taLeftJustify
    BGColor = clNone
    FocusColor = clNone
    DoSubmitValidation = True
    Editable = True
    NonEditableAsLabel = True
    Font.Color = clNone
    Font.CSSStyle = 'fmtxtra'
    Font.FontFamily = 'Helvetica, Arial, Verdana'
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'PASS'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <
      item
        EventCode.Strings = (
          'this.select();')
        Event = 'onFocus'
      end
      item
        EventCode.Strings = (
          ' if (event.keyCode == 13){'
          'return Check_Users();'
          '}'
          'return true;')
        Event = 'onKeyDown'
      end>
    TabOrder = 1
    PasswordPrompt = True
  end
  object Login: TIWButton
    Left = 256
    Top = 32
    Width = 46
    Height = 23
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    StatusText = #28857#20987#30331#24405
    ZIndex = 0
    RenderSize = True
    Caption = #30331#24405
    DoSubmitValidation = True
    Color = clBtnFace
    Font.Color = clNone
    Font.CSSStyle = 'fmbtn'
    Font.FontFamily = 'Helvetica, Arial, Verdana'
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'Login'
    ScriptEvents = <
      item
        EventCode.Strings = (
          'Check_Users();')
        Event = 'onClick'
      end>
    TabOrder = 2
    OnClick = LoginClick
  end
  object Reg: TIWButton
    Left = 256
    Top = 64
    Width = 46
    Height = 23
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    StatusText = #28857#20987#27880#20876
    ZIndex = 0
    RenderSize = True
    Caption = #27880#20876
    DoSubmitValidation = True
    Color = clBtnFace
    Font.Color = clNone
    Font.CSSStyle = 'fmbtn'
    Font.FontFamily = 'Helvetica, Arial, Verdana'
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'Reg'
    ScriptEvents = <>
    TabOrder = 3
    OnClick = RegClick
  end
  object Label1: TIWRectangle
    Left = 24
    Top = 32
    Width = 89
    Height = 17
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Text = #29992#25143
    Font.Color = clNone
    Font.CSSStyle = 'f14px'
    Font.FontFamily = 'Helvetica, Arial, Verdana'
    Font.Size = 10
    Font.Style = []
    BorderOptions.Color = clNone
    BorderOptions.Width = 0
    FriendlyName = 'Label1'
    Color = clNone
    Alignment = taCenter
    VAlign = vaMiddle
  end
  object Label2: TIWRectangle
    Left = 40
    Top = 64
    Width = 73
    Height = 17
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Text = #23494#30721
    Font.Color = clNone
    Font.CSSStyle = 'f14px'
    Font.FontFamily = 'Helvetica, Arial, Verdana'
    Font.Size = 10
    Font.Style = []
    BorderOptions.Color = clNone
    BorderOptions.Width = 0
    FriendlyName = 'Label2'
    Color = clNone
    Alignment = taCenter
    VAlign = vaMiddle
  end
  object Search: TIWButton
    Left = 352
    Top = 64
    Width = 49
    Height = 21
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Caption = #25628#32034
    DoSubmitValidation = True
    Color = clBtnFace
    Font.Color = clNone
    Font.CSSStyle = 'fmbtn'
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'Search'
    ScriptEvents = <
      item
        EventCode.Strings = (
          'Check_Search();')
        Event = 'onClick'
      end>
    TabOrder = 4
    OnClick = SearchClick
  end
  object Searchedit: TIWEdit
    Left = 408
    Top = 64
    Width = 81
    Height = 21
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Alignment = taLeftJustify
    BGColor = clNone
    FocusColor = clNone
    DoSubmitValidation = True
    Editable = True
    NonEditableAsLabel = True
    Font.Color = clNone
    Font.CSSStyle = 'fmtxtra'
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'Searchedit'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <
      item
        EventCode.Strings = (
          ' if (event.keyCode == 13){'
          'return Check_Search();'
          '}'
          'return true;')
        Event = 'onKeyDown'
      end
      item
        EventCode.Strings = (
          'this.select();')
        Event = 'onFocus'
      end>
    TabOrder = 5
    PasswordPrompt = False
  end
  object Sysbtn: TIWButton
    Left = 512
    Top = 8
    Width = 17
    Height = 17
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Caption = #31449#20869#31649#29702
    DoSubmitValidation = True
    Color = clBtnFace
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'Sysbtn'
    ScriptEvents = <>
    TabOrder = 6
    OnClick = SysbtnClick
  end
  object IWTemplateProcessorHTML1: TIWTemplateProcessorHTML
    TagType = ttIntraWeb
    Left = 392
    Top = 32
  end
end