fsystem.dfm

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

inherited SystemForm: TSystemForm
  OnCreate = IWAppFormCreate
  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');  '
    ''
    '}'
    '  function yancheck(key)'
    '   {'
    '      if (key.keyCode>=48 && key.keyCode<=58)'
    '       return true;'
    '     else'
    '   return false;'
    '   }           '
    ''
    ''
    'function Check_Num()'
    '{'
    '  var obj = EDTPORTIWCL;'
    '  if (obj.value== "")'
    '   {'
    '    alert("'#31471#21475#19981#33021#20026#31354'!");'
    '    obj.focus();'
    '    return false; '
    '   }'
    '  var obj = EDTHOTFILMIWCL;'
    '  if (obj.value== "")'
    '   {'
    '    alert("'#28909#38376#30005#24433#19981#33021#31354'!");'
    '    obj.focus();'
    '    return false; '
    '   }'
    '  var obj = EDTNEWFILMIWCL;'
    '  if (obj.value== "")'
    '   {'
    '    alert("'#26368#26032#30005#24433#19981#33021#31354'!");'
    '    obj.focus();'
    '    return false; '
    '   }'
    ' SubmitClickConfirm('#39'AFFIRMBTN'#39','#39#39', true, '#39#39'); '
    '}')
  DesignLeft = 303
  DesignTop = 228
  inherited Sysbtn: TIWButton
    TabOrder = 12
  end
  object EdtPort: TIWEdit [9]
    Left = 112
    Top = 96
    Width = 90
    Height = 21
    Cursor = crAuto
    OnHTMLTag = EdtPortHTMLTag
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Alignment = taRightJustify
    BGColor = clNone
    FocusColor = clNone
    DoSubmitValidation = True
    Editable = True
    NonEditableAsLabel = True
    Font.Color = clNone
    Font.CSSStyle = 'fmtxtra'
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'EdtPort'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 6
    PasswordPrompt = False
    Text = '8080'
  end
  object EdtNewFilm: TIWEdit [10]
    Left = 112
    Top = 136
    Width = 90
    Height = 21
    Cursor = crAuto
    OnHTMLTag = EdtPortHTMLTag
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Alignment = taRightJustify
    BGColor = clNone
    FocusColor = clNone
    DoSubmitValidation = True
    Editable = True
    NonEditableAsLabel = True
    Font.Color = clNone
    Font.CSSStyle = 'fmtxtra'
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'EdtNewFilm'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 7
    PasswordPrompt = False
    Text = 'EdtNewFilm'
  end
  object EdtHotFilm: TIWEdit [11]
    Left = 112
    Top = 184
    Width = 90
    Height = 21
    Cursor = crAuto
    OnHTMLTag = EdtPortHTMLTag
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Alignment = taRightJustify
    BGColor = clNone
    FocusColor = clNone
    DoSubmitValidation = True
    Editable = True
    NonEditableAsLabel = True
    Font.Color = clNone
    Font.CSSStyle = 'fmtxtra'
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'EdtHotFilm'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 8
    PasswordPrompt = False
    Text = 'EdtHotFilm'
  end
  object FilmControl: TIWRectangle [12]
    Left = 80
    Top = 232
    Width = 200
    Height = 33
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Text = 'FilmControl'
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    BorderOptions.Color = clNone
    BorderOptions.Width = 0
    FriendlyName = 'FilmControl'
    Color = clNone
    Alignment = taLeftJustify
    VAlign = vaMiddle
  end
  object UserControl: TIWRectangle [13]
    Left = 288
    Top = 232
    Width = 200
    Height = 33
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Text = 'UserControl'
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    BorderOptions.Color = clNone
    BorderOptions.Width = 0
    FriendlyName = 'UserControl'
    Color = clNone
    Alignment = taLeftJustify
    VAlign = vaMiddle
  end
  object IWCheckBox1: TIWCheckBox [14]
    Left = 320
    Top = 168
    Width = 25
    Height = 25
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = False
    Editable = True
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    DoSubmitValidation = True
    Style = stNormal
    TabOrder = 9
    Checked = False
    FriendlyName = 'IWCheckBox1'
  end
  object AffirmBtn: TIWButton [15]
    Left = 112
    Top = 336
    Width = 75
    Height = 25
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Caption = #20445#23384
    DoSubmitValidation = True
    Color = clBtnFace
    Font.Color = clNone
    Font.CSSStyle = 'fmbtn'
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'AffirmBtn'
    ScriptEvents = <
      item
        EventCode.Strings = (
          'Check_Num();')
        Event = 'onClick'
      end>
    TabOrder = 10
    OnClick = AffirmBtnClick
  end
  object ReturnBtn: TIWButton [16]
    Left = 288
    Top = 336
    Width = 75
    Height = 25
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Caption = #36820#22238
    DoSubmitValidation = True
    Color = clBtnFace
    Font.Color = clNone
    Font.CSSStyle = 'fmbtn'
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'ReturnBtn'
    ScriptEvents = <>
    TabOrder = 11
    OnClick = ReturnBtnClick
  end
  object ComGrid: TIWDBGrid [17]
    Left = 440
    Top = 112
    Width = 17
    Height = 33
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = False
    BorderColors.Color = clNone
    BorderColors.Light = clNone
    BorderColors.Dark = clNone
    BGColor = clNone
    BorderSize = 1
    BorderStyle = tfDefault
    Caption = 'ComGrid'
    CellPadding = 0
    CellSpacing = 0
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    FrameBuffer = 40
    Lines = tlAll
    UseFrame = True
    UseSize = True
    ScrollToCurrentRow = False
    Columns = <
      item
        Alignment = taLeftJustify
        BGColor = clNone
        DoSubmitValidation = True
        Font.Color = clNone
        Font.Size = 10
        Font.Style = []
        Header = False
        Height = '0'
        VAlign = vaMiddle
        Visible = True
        Width = '0'
        Wrap = False
        RawText = False
        BlobCharLimit = 0
        CompareHighlight = hcNone
        Title.Alignment = taCenter
        Title.BGColor = clNone
        Title.DoSubmitValidation = True
        Title.Font.Color = clNone
        Title.Font.Size = 10
        Title.Font.Style = []
        Title.Header = False
        Title.Height = '0'
        Title.VAlign = vaMiddle
        Title.Visible = True
        Title.Width = '0'
        Title.Wrap = False
        Title.RawText = True
      end
      item
        Alignment = taLeftJustify
        BGColor = clNone
        DoSubmitValidation = True
        Font.Color = clNone
        Font.Size = 10
        Font.Style = []
        Header = False
        Height = '0'
        VAlign = vaMiddle
        Visible = True
        Width = '0'
        Wrap = False
        RawText = False
        BlobCharLimit = 0
        CompareHighlight = hcNone
        OnClick = ComGridColumns1Click
        Title.Alignment = taCenter
        Title.BGColor = clNone
        Title.DoSubmitValidation = True
        Title.Font.Color = clNone
        Title.Font.Size = 10
        Title.Font.Style = []
        Title.Header = False
        Title.Height = '0'
        Title.VAlign = vaMiddle
        Title.Visible = True
        Title.Width = '0'
        Title.Wrap = False
        Title.RawText = True
      end
      item
        Alignment = taLeftJustify
        BGColor = clNone
        DoSubmitValidation = True
        Font.Color = clNone
        Font.Size = 10
        Font.Style = []
        Header = False
        Height = '0'
        VAlign = vaMiddle
        Visible = True
        Width = '0'
        Wrap = False
        RawText = False
        BlobCharLimit = 0
        CompareHighlight = hcNone
        OnClick = ComGridColumns2Click
        Title.Alignment = taCenter
        Title.BGColor = clNone
        Title.DoSubmitValidation = True
        Title.Font.Color = clNone
        Title.Font.Size = 10
        Title.Font.Style = []
        Title.Header = False
        Title.Height = '0'
        Title.VAlign = vaMiddle
        Title.Visible = True
        Title.Width = '0'
        Title.Wrap = False
        Title.RawText = True
      end
      item
        Alignment = taLeftJustify
        BGColor = clNone
        DoSubmitValidation = True
        Font.Color = clNone
        Font.Size = 10
        Font.Style = []
        Header = False
        Height = '0'
        VAlign = vaMiddle
        Visible = True
        Width = '0'
        Wrap = False
        RawText = False
        BlobCharLimit = 0
        CompareHighlight = hcNone
        OnClick = ComGridColumns3Click
        Title.Alignment = taCenter
        Title.BGColor = clNone
        Title.DoSubmitValidation = True
        Title.Font.Color = clNone
        Title.Font.Size = 10
        Title.Font.Style = []
        Title.Header = False
        Title.Height = '0'
        Title.VAlign = vaMiddle
        Title.Visible = True
        Title.Width = '0'
        Title.Wrap = False
        Title.RawText = True
      end>
    FooterRowCount = 0
    FriendlyName = 'ComGrid'
    FromStart = True
    HighlightColor = clNone
    HighlightRows = False
    Options = [dgShowTitles]
    RefreshMode = rmAutomatic
    RowLimit = 0
    RollOver = False
    RowClick = False
    RollOverColor = clNone
    RowHeaderColor = clNone
    RowAlternateColor = clNone
    RowCurrentColor = clNone
    TabOrder = -1
  end
end