fcontrol.dfm

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

inherited ModiforAddForm: TModiforAddForm
  Width = 712
  Height = 663
  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 Getdates()'
    '{'
    'var day="";'
    'var month="";'
    'var ampm="";'
    'var ampmhour="";'
    'var myweekday="";'
    'var year="";'
    'mydate=new Date();'
    'myweekday=mydate.getDay();'
    'mymonth=mydate.getMonth()+1;'
    'myday= mydate.getDate();'
    'myyear= mydate.getYear();'
    'year=(myyear > 200) ? myyear : 1900 + myyear;'
    'return year+"-"+mymonth+"-"+myday'
    '}'
    ''
    ''
    'function CBB_onchange() {'
    'tempObj = SAVEFILMCBBIWCL;'
    'i = tempObj.selectedIndex; '
    
      'if(tempObj.options[i].innerHTML=="'#21916#21095#29255'") {SAVEFILMEDTIWCL.value =' +
      ' "/files/Movies/comedy/";SAVEPICTUREEDTIWCL.value ="/files/Movie' +
      's/comedy/";}'
    ''
    
      'if(tempObj.options[i].innerHTML=="'#21160#20316#29255'") {SAVEFILMEDTIWCL.value =' +
      ' "/files/Movies/action/";SAVEPICTUREEDTIWCL.value = "/files/Movi' +
      'es/action/";}'
    ''
    
      'if(tempObj.options[i].innerHTML=="'#24656#24598#29255'") {SAVEFILMEDTIWCL.value =' +
      ' "/files/Movies/dracula/";SAVEPICTUREEDTIWCL.value ="/files/Movi' +
      'es/dracula/";}'
    ''
    
      'if(tempObj.options[i].innerHTML=="'#29233#24773#29255'") {SAVEFILMEDTIWCL.value =' +
      ' "/files/Movies/love/";SAVEPICTUREEDTIWCL.value ="/files/Movies/' +
      'love/";}'
    ''
    
      'if(tempObj.options[i].innerHTML=="'#25112#20105#29255'") {SAVEFILMEDTIWCL.value =' +
      ' "/files/Movies/war/";SAVEPICTUREEDTIWCL.value ="/files/Movies/w' +
      'ar/";}'
    ''
    
      'if(tempObj.options[i].innerHTML=="'#21160#30011#29255'") {SAVEFILMEDTIWCL.value =' +
      ' "/files/Movies/cartoon/";SAVEPICTUREEDTIWCL.value ="/files/Movi' +
      'es/cartoon/";}'
    ''
    
      'if(tempObj.options[i].innerHTML=="'#31185#24187#29255'") {SAVEFILMEDTIWCL.value =' +
      ' "/files/Movies/science fiction/";SAVEPICTUREEDTIWCL.value ="/fi' +
      'les/Movies/science fiction/";}'
    ''
    
      'if(tempObj.options[i].innerHTML=="'#24778#38505#29255'") {SAVEFILMEDTIWCL.value =' +
      ' "/files/Movies/adventruous/";SAVEPICTUREEDTIWCL.value ="/files/' +
      'Movies/adventruous/";}'
    ''
    
      'if(tempObj.options[i].innerHTML=="'#20262#29702#29255'") {SAVEFILMEDTIWCL.value =' +
      ' "/files/Movies/ethical/";SAVEPICTUREEDTIWCL.value ="/files/Movi' +
      'es/ethical/";}'
    ''
    
      'if(tempObj.options[i].innerHTML=="'#25925#20107#29255'") {SAVEFILMEDTIWCL.value =' +
      ' "/files/Movies/story/";SAVEPICTUREEDTIWCL.value ="/files/Movies' +
      '/story/";}'
    ''
    
      'if(tempObj.options[i].innerHTML=="'#25104#20154#29255'") {SAVEFILMEDTIWCL.value =' +
      ' "/files/Movies/adult/";SAVEPICTUREEDTIWCL.value ="/files/Movies' +
      '/adult/";}'
    ''
    
      'if(tempObj.options[i].innerHTML=="'#30005#35270#21095'") {SAVEFILMEDTIWCL.value =' +
      ' "/files/Movies/teleplay/";SAVEPICTUREEDTIWCL.value ="/files/Mov' +
      'ies/teleplay/";}'
    ''
    
      'if(tempObj.options[i].innerHTML=="'#20854#23427'") {SAVEFILMEDTIWCL.value = ' +
      '"/files/Movies/other/";SAVEPICTUREEDTIWCL.value ="/files/Movies/' +
      'other/";}'
    '}'
    'function Check_Edit(btn){ '
    ''
    'UPTIMEDTIWCL.value=Getdates();'
    ''
    'var obj = TITLEEDTIWCL;'
    'if(obj.value == "") {'
    '  alert("'#24433#29255#26631#39064#19981#33021#20026#31354'!");'
    '  obj.focus();'
    '  return false;'
    '}'
    ''
    'tempObj = TYPEIDCBBIWCL;'
    'i = tempObj.selectedIndex;'
    'if(tempObj.options[i].innerHTML=="-- No Selection --") {'
    '  alert("'#35831#36873#25321#24433#29255#20998#31867'!");'
    '  return false;'
    '}'
    ''
    'var obj = UPPICTRUEEDTIWCL;'
    'if(obj.value == "") {'
    '  alert("'#19978#20256#22270#29255#19981#33021#20026#31354'!");'
    '  obj.focus();'
    '  return false;'
    '}'
    ''
    'var obj = WHEREEDTIWCL;'
    'if(obj.value == "") {'
    '  alert("'#24433#29255#22320#21306#19981#33021#20026#31354'!");'
    '  obj.focus();'
    '  return false;'
    '}'
    ''
    'tempObj = FILMLONGIWCL;'
    'i = tempObj.selectedIndex;'
    'if(tempObj.options[i].innerHTML=="-- No Selection --") {'
    '  alert("'#35831#36873#25321#24433#29255#38271#24230'!");'
    '  return false;'
    '}'
    ''
    'var obj = UPFILMIWCL;'
    'if(obj.value == "") {'
    '   alert("'#19978#20256#24433#29255#19981#33021#20026#31354'!");'
    '   obj.focus();'
    '   return false;'
    '}'
    'if (FindElem('#39'FILMNUMEDT_CHECKBOX'#39').checked == true)'
    '{ '
    'if (EDTNUMTOIWCL.value=""){alert("'#30005#24433#38598#25968#19981#33021#20026#31354'!");}'
    ''
    '}'
    'if (FindElem('#39'FILMNUMEDT_CHECKBOX'#39').checked == true)'
    '{'
    ' var str1 = UPFILMIWCL.value;'
    ' var str2 = str1.indexOf("1");    '
    ' if(str2<0) {'
    '   alert("'#19978#20256#24433#29255#32570#23569#20851#38190#23383' 1 ,'#20363#22914' D:\'#25105#30340#30005#24433'\'#20185#22899#20256#22855'1");'
    '   return false;'
    '  }'
    '}'
    'tempObj = SAVEFILMCBBIWCL;'
    'i = tempObj.selectedIndex;'
    'if(tempObj.options[i].innerHTML=="-- No Selection --") {'
    '  alert("'#35831#36873#25321#24433#29255#20445#23384#31867#22411'!");'
    '  return false;'
    '}'
    '  '
    '  SubmitClickConfirm('#39#39'+btn+'#39#39','#39#39', true, '#39#39');  '
    '}')
  DesignLeft = 190
  DesignTop = 45
  inherited UserID: TIWEdit
    Top = 4
  end
  inherited PASS: TIWEdit
    Top = 36
  end
  inherited Login: TIWButton
    Top = 4
  end
  inherited Reg: TIWButton
    Top = 36
  end
  inherited Label1: TIWRectangle
    Top = 4
  end
  inherited Label2: TIWRectangle
    Top = 36
  end
  inherited Search: TIWButton
    Top = 36
  end
  inherited Searchedit: TIWEdit
    Top = 36
  end
  inherited Sysbtn: TIWButton
    TabOrder = 7
  end
  object IWLabel1: TIWLabel [9]
    Left = 8
    Top = 104
    Width = 70
    Height = 16
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = False
    Alignment = taLeftJustify
    BGColor = clNone
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    NoWrap = False
    ConvertSpaces = False
    FriendlyName = 'IWLabel1'
    Caption = #24433#29255#26631#39064
    RawText = False
  end
  object TitleEdt: TIWEdit [10]
    Left = 90
    Top = 96
    Width = 148
    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 = 'TitleEdt'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 6
    PasswordPrompt = False
  end
  object IWLabel2: TIWLabel [11]
    Left = 8
    Top = 136
    Width = 70
    Height = 16
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = False
    Alignment = taLeftJustify
    BGColor = clNone
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    NoWrap = False
    ConvertSpaces = False
    FriendlyName = 'IWLabel2'
    Caption = #24433#29255#20998#31867
    RawText = False
  end
  object IWLabel3: TIWLabel [12]
    Left = 280
    Top = 168
    Width = 35
    Height = 16
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = False
    Alignment = taLeftJustify
    BGColor = clNone
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    NoWrap = False
    ConvertSpaces = False
    FriendlyName = 'IWLabel3'
    Caption = #20027#28436
    RawText = False
  end
  object IWLabel4: TIWLabel [13]
    Left = 272
    Top = 96
    Width = 70
    Height = 16
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = False
    Alignment = taLeftJustify
    BGColor = clNone
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    NoWrap = False
    ConvertSpaces = False
    FriendlyName = 'IWLabel4'
    Caption = #19978#20256#22270#29255
    RawText = False
  end
  object IWLabel5: TIWLabel [14]
    Left = 8
    Top = 176
    Width = 70
    Height = 16
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0