<!--#include file="LibraryForm.html"-->
<script language="JavaScript" type="text/javascript"><!--
function onSubmit( form )
{
	if( ! form.Name.value )
	{
		alert( "項目名を入力してください。" );
		return false;
	}
' If $Type = "Select"
	if( ! form.Options.value )
	{
		alert( "選択項目を入力してください。" );
		return false;
	}
' EndIf
	return true;
}
-->
</script>
''<!------------------------------------------------------------------
''  項目の設定画面
''  構文：Call formItem <名前> <タイプ> <必須> <注意書き> <初期値> <入力欄の行数> <入力欄の桁数> <複数選択可能> <選択肢リスト> <1行の項目数> <直接入力> <変更時か>
''------------------------------------------------------------------->
' Sub formItem $Name $Type $Necessary $Comment $Default $Cols $Rows $Multiple $Options $Line $Input $IsModify
<p>
<table border="0" cellspacing="0" cellpadding="2">
<tr><td valign="top" nowrap>項目名
'  Call formNecessaryMark
</td><td valign="top">
'  Call formText "Name" $Name 20 1
</td></tr>
<tr><td valign="top" nowrap>タイプ</td><td valign="top">
'  If $IsModify
<input type="hidden" name="Type" value="$Type">
'   If $Type = "Number"
<b>数値</b>
'   Elif $Type = "Select"
<b>選択(メニュー)</b>
'   Elif $Type = "Date"
<b>日付</b>
'   Elif $Type = "User"
<b>ユーザー選択</b>
'   Else
<b>文字列</b>
'   EndIf
'  Else
<select name="Type" onChange="this.form.submit();">
<option value="Text" $Type.Selected_Text>文字列
<option value="Number" $Type.Selected_Number>数値
<option value="Select" $Type.Selected_Select>選択(メニュー)
<option value="Date" $Type.Selected_Date>日付
<option value="User" $Type.Selected_User>ユーザー選択
</select>
'  EndIf
</td></tr>
'  If $Type = "Text"
<tr><td valign="top" nowrap>初期値</td><td valign="top">
'   Call formText "Default" $Default 20 3
</td></tr>
<tr><td valign="top" nowrap>入力欄
'   Call formNecessaryMark
</td><td valign="top">
<select name="Cols">
'   Options $Cols in 10 to 100 step 10
</select>
桁 ×
<select name="Rows">
'   Options $Rows in 1 to 20
</select>
行
</td>
'  Elif $Type = "Number"
<tr><td valign="top" nowrap>初期値</td><td valign="top">
'   Call formText "Default" $Default 10 1
</td></tr>
'  Elif $Type = "Select"
<tr><td valign="top" nowrap>選択項目
'   Call formNecessaryMark
</td><td valign="top">
<textarea name="Options" cols="20" rows="5" wrap="virtual">
'   If $Options
'    For Each $Option in $Options
$Option
'    Next
'   Else
'    For $i = 1 to 3
選択肢$i
'    Next
'   EndIf
</textarea><br>
<font size="-1" color="#008800">1行1項目で編集してください</font>
</td></tr>
'  EndIf
'  If ( $Type = "Select" ) or ( $Type = "User" )
<tr><td colspan="2" nowrap>
'   Call formCheckBox "Multiple" "複数選択を可能とする" $Multiple 1 "Multiple"
'   If $Type = "Select"
&nbsp;
'    Call cmImage "item16.png"
入力時に1行で表示する項目数
<select name="Line">
<option value="">(指定しない)
'    For $i = 1 to 10
'     If $Line = $i
'      $Sel = "Selected"
'     Else
'      $Sel = ""
'     EndIf
<option value="$i" $Sel>$i個
'    Next
</select>
'   Else
<tr><td colspan="2" nowrap>
'   Call formCheckBox "Default" "初期値にログインユーザーを選択する" $Default 1 "Default"
</td></tr>
'   EndIf
</td></tr>
'  Elif $Type = "Date"
<tr><td colspan="2" nowrap>
'   Call formCheckBox "Default" "初期値を登録時の日付にする" $Default 1 "Default"
</td></tr>
<tr><td colspan="2" nowrap>
'   Call formCheckBox "Input" "日付を直接入力する" $Input 1 "Input"
<br>
</td></tr>
'  EndIf
<tr><td colspan="2" nowrap>
'  Call formCheckBox "Necessary" "必須項目である" $Necessary 1 "Necessary"
'  If $Type = "Date"
<br><img src="$IMG_PATH/spacer.gif" width="20" height="10"><font color="#008800" size="-1">必須項目に指定した場合、初期値は登録時の日付になります。</font>
'  EndIf
</td></tr>
<tr><td valign="top" nowrap>注意書き
</td><td valign="top">
'  Call formText "Comment" $Comment 60 1
</td></tr>
</table>
</p>
' EndSub