' $System.Access Login
' $WorkSpace.AccessManage
' If $System.IsPost
'  If $Mode or ( $Mode = 0 )
<!--#include file="PartsChangeCondition.html"-->
'   $System.ContentType
'  Else
'   $QID = $Command.Form.AddQuery
'   $System.Redirect $Server?page=ManageFormQuery&wid=$WID&id=$ID&qid=$QID
'   Exit
'  EndIf
' EndIf
' $FormName = $WorkSpace.Forms.$ID.Name
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="PartsFormCondition.html"-->
' $CaptionTitle = "絞込の追加"
' Call cmHead $CaptionTitle 1
<script language="JavaScript" type="text/javascript"><!--
function onSubmit( form )
{
  if( ! form.Name.value )
  {
    alert( "絞込名を入力してください。" );
    return;
  }
  form.submit();
}
-->
</script>
</head>
<body>
' $System.SetParameter BackURL "$Server?page=ManageFormQuery&wid=$WID&id=$ID"
' Call cmHeaderView 1 $CaptionTitle "$Server?page=ManageAdmin&wid=$WID&id=$ID" "運用管理" $BackURL "絞込の設定"
' $System.CloseDatabase "mw"
' Set $formProfile = $Command.Form.GetFormTop $ID
<form name="ManageFormQuery" method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="ManageFormQueryAdd">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="ID" value="$ID">
<input type="hidden" name="Mode" value="">
<input type="hidden" name="Remove" value="">
' If $CC
<input type="hidden" name="CC" value="$CC">
' Else
<input type="hidden" name="CC" value="1">
' EndIf
<p>追加する絞込の情報を設定してください。<br>
' Call formNote 1
</p>
<p>
<table border="0" cellspacing="0" cellpadding="2">
<tr><td nowrap>絞込名
' Call formNecessaryMark
</td><td>
' Call formText "Name" $Name 20 1
</td></tr>
<tr><td valign="top" nowrap>絞込条件</td><td colspan="3">
<!--#include file="LibrarySearchCondition.html"-->
' Call searchCondition
</td></tr>
' If $CC
'  $Num = $CC - 1
'  For $i = 0 to $Num
'   $IID = $System.GetParameter IID$i
'   $Text = $System.GetParameter Text$i
'   $Expr = $System.GetParameter Expr$i
'   $Value = $System.GetParameter Value$i
'   Call QueryConditionRow $formProfile $i $IID $Text $Expr $Value $Num "ManageFormQuery"
'  Next
' EndIf
' If ! $CC
'  Call QueryConditionRow $formProfile 0 $IID $Text $Expr $Value 0 "ManageFormQuery"
' EndIf
<tr><td><br></td><td colspan="3">
'  Call cmButton "条件を追加する" "Mode.value='add';this.form.submit();"
</td></tr>
</table>
</p>
<p class="formCommit">
' Call cmButton "追加する" "onSubmit( this.form );"
' Call cmButton "キャンセルする" "location.href='$BackURL.JSEscape';"
</p>
</form>
' Call cmChildFooter $BackURL "絞込の設定へ"
</body>
</html>