' $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
' Sub ViewItem $Item $Name
'  $Color = $Item.Color
'  $Bold = $Item.Bold
'  If $Color
<font color="$Color">\\
'  EndIf
'  If $Bold
<b>\\
'  EndIf
$Name\\
'  If $Bold
</b>\\
'  EndIf
'  If $Color
</font>\\
'  EndIf
<br>
' EndSub
<p>$AppliNameの表示を設定してください。</p>
<p>
' Call cmLink "変更する" "write20.png" "$Server?page=ManageFormViewSet&wid=$WID&id=$ID"
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
' $Rows = $FormProfile.Rows
' Init $Rows = 20
<tr><td class="title" valign="top" nowrap>一覧画面で表示する件数</td><td width="200" nowrap>$Rows 件</td></tr>
<tr><td class="title" valign="top" nowrap>一覧画面で表示する項目</td><td nowrap>
' Call ViewItem $FormProfile.DateTime "日時"
' Set $Creator = $FormProfile.Creator
' If ! $Creator.Hidden
'  Call ViewItem $Creator "作成者"
' EndIf
' Set $Code = $FormProfile.Code
' If ! $Code.Hidden
'  Call ViewItem $Code "番号"
' EndIf
' Call ViewItem $FormProfile.Subject "件名"
' If ! $FormProfile.Customer.Hidden
'  Call ViewItem $FormProfile.Customer "顧客"
' EndIf
' For Each $Item in $FormProfile.Items
'  If ! $Item.Hidden
'   Call ViewItem $Item $Item.Name
'  EndIf
' Next
' Set $Comment = $FormProfile.Comment
' If ! $Comment.Hidden
'  Call ViewItem $Comment "コメント"
' EndIf
</td></tr>
</table>
</p>
' Call cmChildFooter $BackURL "運用管理へ"
</body>
</html>