<!--#include file="LibraryForm.html"-->
<script language="JavaScript" type="text/javascript"><!--
function onSubmit( form )
{
	if( ! form.Change.value )
	{
		if( ! form.Name.value )
		{
			alert( "項目名を入力してください。" );
			return false;
		}
' If $Type = "Select"
		if( ! form.Options.value )
		{
			alert( "選択項目を入力してください。" );
			return false;
		}
' EndIf
	}
	return true;
}
-->
</script>
''<!------------------------------------------------------------------
''  会社項目の設定画面
''  構文：Call customerItem <名前> <タイプ> <必須> <注意書き> <初期値> <入力欄の行数> <入力欄の桁数> <複数選択可能> <選択肢リスト> <1行に表示する項目数> <直接入力> <変更時か>
''------------------------------------------------------------------->
' Sub customerItem $Name $Type $Necessary $Comment $Default $Cols $Rows $Multiple $Options $Line $Input $IsModify
<input type="hidden" name="Change" value="">
<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>
'   Else
<b>文字列</b>
'   EndIf
'  Else
<select name="Type" onChange="Change.value=1;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>日付
</select>
'  EndIf
</td></tr>
'  If $Type = "Text"
'   Init $Cols = 60
'   Init $Rows = 1
<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 20 1 15
</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>
<tr><td colspan="2" nowrap>
'   Call formCheckBox "Multiple" "複数選択を可能とする" $Multiple 1 "Multiple"
&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>
</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 40 1
</td></tr>
</table>
</p>
' EndSub