fregform.dfm

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

inherited RegForm: TRegForm
  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 Check_UserAppend()'
    '{'
    '   var obj = USERNAMEIWCL;'
    '  if (obj.value == "")'
    '    {'
    '     alert("'#29992#25143#21517#19981#33021#31354'!");'
    '     obj.focus();'
    '     return false;'
    '    }'
    ''
    ''
    '  var obj = PASSWORDIWCL;'
    '  if (obj.value == "")'
    '    {'
    '     alert("'#23494#30721#19981#33021#31354'!");'
    '     obj.focus();'
    '     return false;'
    '    }'
    ''
    '  var obj = EMAILIWCL;'
    '  if (obj.value == "")'
    '    {'
    '     alert("EMAIL'#19981#33021#31354'!");'
    '     obj.focus();'
    '     return false;'
    '    }'
    '  if (PASSWORDIWCL.value != CHECKPASSIWCL.value)'
    '   {'
    '     alert("'#23494#30721#21644#30830#35748#23494#30721#19981#19968#32622'!");'
    '     PASSWORDIWCL.focus();'
    '     return false;'
    '   }'
    '  SubmitClickConfirm('#39'REGBTN'#39','#39#39', true, '#39#39'); '
    '}'
    ''
    '')
  DesignLeft = 223
  DesignTop = 152
  inherited UserID: TIWEdit
    TabOrder = 2
  end
  inherited PASS: TIWEdit
    TabOrder = 3
  end
  inherited Login: TIWButton
    TabOrder = 4
  end
  inherited Reg: TIWButton
    TabOrder = 5
  end
  inherited Search: TIWButton
    TabOrder = 7
  end
  inherited Searchedit: TIWEdit
    TabOrder = 8
  end
  object RegBtn: TIWButton [9]
    Left = 120
    Top = 320
    Width = 75
    Height = 25
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Caption = #28155#21152
    DoSubmitValidation = True
    Color = clBtnFace
    Font.Color = clNone
    Font.CSSStyle = 'fmbtn'
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'RegBtn'
    ScriptEvents = <
      item
        EventCode.Strings = (
          'Check_UserAppend();')
        Event = 'onClick'
      end>
    TabOrder = 13
    OnClick = RegBtnClick
  end
  object ResetBtn: TIWButton [10]
    Left = 240
    Top = 320
    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 = 'ResetBtn'
    ScriptEvents = <>
    TabOrder = 14
    OnClick = ResetBtnClick
  end
  object Boy: TIWRadioButton [11]
    Left = 120
    Top = 288
    Width = 41
    Height = 21
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = False
    Caption = #30007
    Editable = True
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    DoSubmitValidation = True
    Checked = True
    Group = 'no group'
    Value = 'Boy'
    FriendlyName = 'Boy'
  end
  object Girl: TIWRadioButton [12]
    Left = 280
    Top = 288
    Width = 49
    Height = 21
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = False
    Caption = #22899
    Editable = True
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    DoSubmitValidation = True
    Checked = False
    Group = 'no group'
    Value = 'Girl'
    FriendlyName = 'Girl'
  end
  object CheckPass: TIWEdit [13]
    Left = 168
    Top = 216
    Width = 121
    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 = 'CheckPass'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 11
    PasswordPrompt = True
    Text = 'CheckPass'
  end
  object UserName: TIWEdit [14]
    Left = 168
    Top = 136
    Width = 121
    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 = 'UserName'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 9
    PasswordPrompt = False
    Text = 'UserName'
  end
  object PassWord: TIWEdit [15]
    Left = 168
    Top = 168
    Width = 121
    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 = 'PassWord'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 10
    PasswordPrompt = True
    Text = 'PassWord'
  end
  object Email: TIWEdit [16]
    Left = 168
    Top = 248
    Width = 121
    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 = 'Email'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 12
    PasswordPrompt = False
    Text = 'Email'
  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>
    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