' $System.Access Admin
' If $System.IsPost
'  $System.Redirect $Server?page=SystemFormItem&wid=$WID&id=$ID
'  $Command.Form.SetFixedItem
'  Exit
' EndIf
' $AppliName = $WorkSpace.Forms.$ID.Name
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
' $CaptionTitle = "標準項目の設定"
' If $Item = "Customer"
'  $CaptionItem = "顧客"
'  $CaptionMessage = "この項目の情報は変更できません。"
' Else
'  If $Item = "DateTime"
'   $CaptionItem = "日時"
'  Elif $Item = "Subject"
'   $CaptionItem = "件名"
'  Else
'   $CaptionItem = "添付ファイル"
'  EndIf
'  $System.SetParameter CaptionMessage "$AppliNameの項目の情報を設定してください。"
' EndIf
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=SystemFormItem&wid=$WID&id=$ID"
' Call cmHeaderView 1 $CaptionTitle "$Server?page=SystemAdmin&wid=$WID&id=$ID" "システム設定" $BackURL "項目の設定"
' $System.CloseDatabase "mw"
' Set $formProfile = $Command.Form.GetFormTop $ID
' Set $ItemProfile = $formProfile.$Item
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="SystemFormFixedItem">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="ID" value="$ID">
<input type="hidden" name="Item" value="$Item">
<p>$CaptionMessage</p>
<p>
<table border="0" cellspacing="0" cellpadding="2">
<tr><td nowrap>項目名</td><td nowrap><b>$CaptionItem</b></td></tr>
' If $Item = "DateTime"
<tr><td valign="top" nowrap>日時の種類</td><td nowrap>
'  $Type = $ItemProfile.Type
'  If $Type = 1
'   $TypeDateSpan = 1
'  Elif $Type = 2
'   $TypeTime = 1
'  Elif $Type = 3
'   $TypeTimeSpan = 1
'  Else
'   $TypeDate = 1
'  EndIf
'  Call formRadio "Type" "開始日" $TypeDate 0 "typeDate"
<br>
'  Call formRadio "Type" "開始日～終了日" $TypeDateSpan 1 "typeDateSpan"
<br>
'  Call formRadio "Type" "開始日時" $TypeTime 2 "typeTime"
<br>
'  Call formRadio "Type" "開始日時～終了日時" $TypeTimeSpan 3 "typeTimeSpan"
<br>
</td></tr>
<tr><td valign="top" nowrap>時間の選択</td><td nowrap>
'  $Span = $ItemProfile.Span
<select name="Span">
<option value="1">1分単位
<option value="5" $Span.Selected_5>5分単位
<option value="10" $Span.Selected_10>10分単位
<option value="15" $Span.Selected_15>15分単位
<option value="30" $Span.Selected_30>30分単位
</select>
</td></tr>
' Elif $Item = "Subject"
'  If $ItemProfile.Type = 1
'   $TypeBoth = 1
'  Elif $ItemProfile.Type = 2
'   $TypeSelect = 1
'  Else
'   $TypeInput = 1
'  EndIf
<tr><td valign="top" nowrap>入力形式</td><td nowrap>
'  Call formRadio "Type" "文字列入力" $TypeInput 0 "typeInput"
<br>
'  Call formRadio "Type" "選択(メニュー)＋文字列入力" $TypeBoth 1 "typeBoth"
<br>
'  Call formRadio "Type" "選択(メニュー)" $TypeSelect 2 "typeSelect"
<br>
</td></tr>
<tr><td valign="top" nowrap>選択項目</td><td nowrap>
<font color="#008800" size="-1">入力形式で「文字列入力」以外を選択した場合、設定してください。</font><br>
<textarea name="Options" cols="20" rows="5" wrap="virtual">
'  If $ItemProfile.Options
'   For Each $Option in $ItemProfile.Options
$Option
'   Next
'  Else
'   For $i = 1 to 3
選択肢$i
'   Next
'  EndIf
</textarea><br>
<font size="-1" color="#008800">1行1項目で編集してください。</font>
</td></tr>
<tr><td colspan="2" nowrap>
' Call formCheckBox "Necessary" "必須項目である" $ItemProfile.Necessary 1 "Necessary"
</td></tr>
' Elif $Item = "File"
'  $FileSize = $ItemProfile.Size
'  Init $FileSize = 1
<tr><td nowrap>添付ファイルの数</td><td nowrap><select name="Size">
'  Options $FileSize in 0 to 5
</select></td></tr>
' EndIf
</table>
</p>
' If $Item != "Customer"
'  Call formCommit "設定する"
' EndIf
</form>
' Call cmChildFooter $BackURL "システム設定へ"
</body>
</html>