<!--#include file="LibraryForm.html"-->
<script language="JavaScript" type="text/javascript"><!--
function onSubmit( form )
{
	if( ! form.Name.value )
	{
		alert( "項目名を入力してください。" );
		return false;
	}
	if( ! form.Options.value )
	{
		alert( "選択肢を入力してください。" );
		return false;
	}
	return true;
}
-->
</script>
''<!------------------------------------------------------------------
''  分類項目の設定
''  構文：Call itemSet <分類名> <選択肢> <複数選択可能チェック> <一行に表示する項目数>
''------------------------------------------------------------------->
' Sub itemSet $itmName $itmOptions $itmMultiple $itmLine
'  Call formNote 1
<p>
<table border="0" cellspacing="0" cellpadding="2">
<tr><td valign="top" nowrap>項目名
'  Call formNecessaryMark
</td><td valign="top">
'  Call formText "Name" $itmName 20 1
</td></tr>
<tr><td valign="top" nowrap>選択肢
'  Call formNecessaryMark
</td><td valign="top">
<textarea name="Options" cols="20" rows="5" wrap="virtual">
'  If $itmOptions
'   For Each $atsOption in $itmOptions
$atsOption
'   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 "Multiple" "複数選択を可能とする" $itmMultiple 1 "Multiple"
&nbsp;
'  Call cmImage "item16.png"
入力時に1行で表示する項目数
<select name="Line">
<option value="">(指定しない)
'  For $i = 1 to 10
'   If $itmLine = $i
'    $Sel = "Selected"
'   Else
'    $Sel = ""
'   EndIf
<option value="$i" $Sel>$i個
'  Next
</select>
</td></tr>
</table>
</p>
' EndSub