fadminform.dfm

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

inherited AdminForm: TAdminForm
  Width = 702
  Height = 498
  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 deletefilms(del)'
    '{ '
    
      'if(confirm("'#20320#30830#23450#35201#21024#38500' "+del+" '#30005#24433#21527'?")) {return SubmitClickConfirm('#39'C' +
      'omGrid'#39','#39'3_'#39'+del+'#39#39', true, '#39#39');}'
    '}')
  DesignLeft = 258
  DesignTop = 136
  object Page: TIWRectangle [9]
    Left = 40
    Top = 352
    Width = 481
    Height = 25
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Text = 'Page'
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    BorderOptions.Color = clNone
    BorderOptions.Width = 0
    FriendlyName = 'Page'
    Color = clNone
    Alignment = taLeftJustify
    VAlign = vaMiddle
  end
  object ListFilm: TIWDBGrid [10]
    Left = 40
    Top = 112
    Width = 537
    Height = 225
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = False
    BorderColors.Color = clNone
    BorderColors.Light = clNone
    BorderColors.Dark = clNone
    BGColor = clNone
    BorderSize = 0
    BorderStyle = tfDefault
    CellPadding = 0
    CellSpacing = 0
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    FrameBuffer = 40
    Lines = tlAll
    OnRenderCell = ListFilmRenderCell
    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>
    FooterRowCount = 1
    FriendlyName = 'ListFilm'
    FromStart = False
    HighlightColor = clNone
    HighlightRows = False
    Options = [dgShowTitles]
    RefreshMode = rmAutomatic
    RowLimit = 15
    RollOver = False
    RowClick = False
    RollOverColor = clNone
    RowHeaderColor = clNone
    RowAlternateColor = clNone
    RowCurrentColor = clNone
    TabOrder = -1
  end
  object ComGrid: TIWDBGrid [11]
    Left = 424
    Top = 168
    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
        OnClick = ComGridColumns0Click
        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