' $System.Access Login
' $WorkSpace.AccessManage
' $AppliName = $WorkSpace.Forms.$ID.Name
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' $CaptionTitle = "絞込の設定"
' Call cmHead $CaptionTitle 1
</head>
<body>
' $System.SetParameter BackURL "$Server?page=ManageAdmin&wid=$WID&id=$ID"
' Call cmHeaderView 1 $CaptionTitle $BackURL "運用管理"
' $System.CloseDatabase "mw"
' Set $formProfile = $Command.Form.GetFormTop $ID
<p>$AppliNameの絞込を設定してください。</p>
<p>
' Call cmLink "追加する" "write20.png" "$Server?page=ManageFormQueryAdd&wid=$WID&id=$ID"
' If $formProfile.Queries.Count > 1
'  $NoOrder = 0
' Else
'  $NoOrder = 1
' EndIf
' Call cmLink "順番変更" "order20.png" "$Server?page=ManageFormQueryOrder&wid=$WID&id=$ID" $NoOrder
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr bgcolor="#cccccc"><th width="300" nowrap>絞込名</th><th width="300" nowrap>操作</th></tr>
' For Each $Query in $formProfile.Queries
<tr><td nowrap>$Query.Name</td><td nowrap>
'  Call cmLink "変更する" "write20.png" "$Server?page=ManageFormQueryModify&wid=$WID&id=$ID&qid=$Query.ID"
'  Call cmLink "削除する" "delete20.png" "$Server?page=ManageFormQueryDelete&wid=$WID&id=$ID&qid=$Query.ID"
</td></tr>
' Next
</table>
</p>
' Call cmChildFooter $BackURL "運用管理へ"
</body>
</html>