''<!------------------------------------------------------------------
''  Commitボタン
''  構文：Call formCommit <submitボタンキャプション> <cancelボタンキャプション> <submit時のonClick> <cancel時のonClick>
''------------------------------------------------------------------->
' Sub formCommit $argSubmit $argCancel $argOnSubmit $argOnCancel
'  Init $argCancel = "キャンセルする"
'  Init $argOnCancel = "history.back();"
<!--#include file="LibraryCommon.html"-->
<p class="formCommit">
'  Call formSubmit "Submit" $argSubmit $argOnSubmit
'  Call cmButton $argCancel $argOnCancel "" "" "Cancel"
</p>
' EndSub
''
''<!------------------------------------------------------------------
''  Submitボタン
''  構文：Call formSubmit <キャプション> <onClickイベント> <CSSクラス>
''------------------------------------------------------------------->
' Sub formSubmit $argName $argCaption $argOnClick $argClass
<input type="submit" value="$argCaption"\\
'  If $argName
 name="$argName"\\
'  EndIf
'  If $argClass
 class="$argClass"\\
'  Else
 class="inputSubmit"\\
'  EndIf
'  If $argOnClick
 onClick="$argOnClick"\\
'  EndIf
>\\
' EndSub
''
''<!------------------------------------------------------------------
''  テキスト入力欄
''  構文：Call formText <フィールド名> <初期値> <横幅> <縦幅> <最大文字列長> <CSSクラス> <初期値が配列か>
''------------------------------------------------------------------->
' Sub formText $argName $argValue $argCols $argRows $argMaxLength $argClass $argVector
'  Init $argRows = 1
'  Init $argCols = 60
'  If $argRows = 1
'   Init $argMaxLength = 100
'   If $argMaxLength < 0
'    $argMaxLength = 0
'   EndIf
'   Call formTextBox $argName $argValue $argMaxLength "" "" $argCols $argClass
'  Else
'   Call formTextArea $argName $argValue "" "" $argRows $argCols $argClass $argVector
'  EndIf
' EndSub
''
''<!------------------------------------------------------------------
''  テキストボックス
''  構文：
''    Call formTextBox <name属性値> <value値> <maxlength値> <onClickイベント> <onKeydownイベント> <size値> <class名>
''------------------------------------------------------------------->
' Sub formTextBox $argName $argValue $argMaxlength $argOnClick $argOnKeydown $argSize $argClass
<input type="text" name="$argName"\\
'  If $argValue or ( $argValue = 0 )
 value="$argValue"\\
'  EndIf
'  If $argMaxlength
 maxlength="$argMaxlength"\\
'  EndIf
'  If $argSize
 size="$argSize"\\
'  EndIf
'  If $argClass
 class="$argClass"\\
'  EndIf
'  If $argOnClick
 onClick="$argOnClick"\\
'  EndIf
'  If $argOnKeydown
 OnKeydown="$argOnKeydown"\\
'  EndIf
>\\
' EndSub
''
''<!------------------------------------------------------------------
''  テキストエリア
''  構文：
''    Call formTextArea <name属性値> <value値> <onClickイベント> <onKeydownイベント> <行> <列> <class名> <初期値が配列か>
''------------------------------------------------------------------->
' Sub formTextArea $argName $argValue $argOnClick $argOnKeydown $argRows $argCols $argClass $argVector
<textarea name="$argName" wrap="virtual"\\
'  If $argRows
 rows="$argRows"\\
'  EndIf
'  If $argCols
 cols="$argCols"\\
'  EndIf
'  If $argClass
 class="$argClass"\\
'  EndIf
'  If $argOnClick
 onClick="$argOnClick"\\
'  EndIf
'  If $argOnKeydown
 OnKeydown="$argOnKeydown"\\
'  EndIf
>
'  If $argValue
'   If $argVector
'    For Each $localString in $argValue
$localString
'    Next
'   Else
$argValue\\
'   EndIf
'  EndIf
</textarea>
' EndSub
''
''<!------------------------------------------------------------------
''  パスワード入力欄
''  構文：Call formPassword <フィールド名> <入力欄のサイズ> <最大文字列長> <モード(1:初期,2:Retype)> <class>
''------------------------------------------------------------------->
' Sub formPassword $argName $argSize $argMaxLength $argMode $argValue $argClass
'  Init $argSize = 40
'  Init $argMaxLength = 100
'  If $argSize < 0
'   $argSize = ""
'  EndIf
'  If $argMaxLength < 0
'   $argMaxLength = ""
'  EndIf
'  If $argMode < 0
'   $argMode = ""
'  EndIf
'  If $argMode = 1
'   $argValue = ""
'  Elif $argMode = 2
'   $argValue = "---------------"
'  Else
'   Init $argValue = "***************"
'  EndIf
<input type="password"\\
'  If $argName
 name="$argName"\\
'  EndIf
'  If $argClass
 class="$argClass"\\
'  EndIf
'  If $argValue
 value="$argValue"\\
'  EndIf
'  If $argSize
 size="$argSize"\\
'  EndIf
'  If $argMaxLength
 maxlength="$argMaxLength"\\
'  EndIf
>
' EndSub
''
''<!------------------------------------------------------------------
''  チェックボックス
''  構文：Call formCheckBox <フィールド名> <説明> <初期状態> <値> <フィールドID> <onClickハンドラ>
''------------------------------------------------------------------->
' Sub formCheckBox $argName $argDesc $argChecked $argValue $argID $argOnClick
'  Init $argValue = 1
<input type="checkbox" name="$argName" value="$argValue" class="inputCheckBox" $argChecked.Checked\\
'  If $argOnClick
 onClick="$argOnClick"\\
'  EndIf
'  If $argID
 id="$argID"\\
'  EndIf
>\\
'  var $localsaDesc = $Command.String.HtmlEscape $argDesc
'  If $argID
<label for="$argID" onMouseOver='this.style.color="#ff0000"' onMouseOut='this.style.color=""'>$_localsaDesc</label>\\
'  Else
$_localsaDesc\\
'  EndIf
' EndSub
''
''<!------------------------------------------------------------------
''  ラジオボタン
''  構文：Call formRadio <フィールド名> <説明> <初期状態> <値> <フィールドID> <onClickハンドラ>
''------------------------------------------------------------------->
' Sub formRadio $argName $argDesc $argChecked $argValue $argID $argOnClick
'' 属性を省略すると属性値「on」で補完されてしまう。空白値を許容する。
<input type="radio" value="$argValue" class="inputRadio"\\
'  If $argName
 name="$argName"\\
'  EndIf
'  If $argChecked
 checked\\
'  EndIf
'  If $argOnClick
 onClick="$argOnClick"\\
'  EndIf
'  If $argID
 id="$argID"\\
'  EndIf
>\\
'  var $localsaDesc = $Command.String.HtmlEscape $argDesc
'  If $argID And $argDesc
<label for="$argID" onMouseOver='this.style.color="#ff0000"' onMouseOut='this.style.color=""'>$_localsaDesc</label>\\
'  Else
$_localsaDesc\\
'  EndIf
' EndSub
''
''<!------------------------------------------------------------------
''  プルダウンメニュー
''  構文：Call formSelect <フィールド名> <選択肢リスト> <初期選択値> <必須フラグ> <onChangeハンドラ>
''------------------------------------------------------------------->
' Sub formSelect $argName $argOptions $argSelected $argEss $argOnChange
'' グローバル変数に変換する
'  Set $formSelectOptions = $argOptions
'  $formSelectSelected = $argSelected
''
'  Sub formOptions
'   Options $formSelectSelected in $formSelectOptions
'  EndSub
'  Call formSelectBox $argName formOptions $argEss "" $argOnChange
' EndSub
''
''<!------------------------------------------------------------------
''  プルダウンメニュー
''  構文：
''    Call formSelectBox <name属性値> <optionsを定義したサブルーチンの名前> <必須フラグ> <空白値に表示する文字列> <onChangeイベント> <複数選択なら1> <id> <class名> <size値> <スタイル>
''------------------------------------------------------------------->
' Sub formSelectBox $argName $argOptionsCallBack $argEss $argEmpty $argOnChange $argIsMultiple $argID $argClass $argSize $argStyle
'  If ! $argName or ! $argOptionsCallBack
'   Exit
'  EndIf
<select name="$argName"\\
'  If $argClass
 class="$argClass"\\
'  EndIf
'  If $argID
 id="$argID"\\
'  EndIf
'  If $argOnChange
 onChange="$argOnChange"\\
'  EndIf
'  If $argSize
 size="$argSize"\\
'  EndIf
'  If $argStyle
 style="$argStyle"\\
'  EndIf
'  If $argIsMultiple
 multiple\\
'  EndIf
>
'  If ! $argEss
'   Init $argEmpty = "----"
<option value="">$argEmpty</option>
'  EndIf
'  Call $argOptionsCallBack $argName
</select>
' EndSub
''
''<!------------------------------------------------------------------
''  ファイル入力欄
''  構文：Call formFile <フィールド名> <最大文字列長> <CSSクラス> <onClick> <フィールドID>
''------------------------------------------------------------------->
' Sub formFile $argName $argMaxLength $argClass $argOnClick $argID
'  Init $argMaxLength = 255
<input type="file" name="$argName" maxlength="$argMaxLength"\\
'  If $argID
 id="$argID"\\
'  EndIf
'  If $argClass
 class="$argClass"\\
'  Else
 class="inputFile"\\
'  EndIf
'  If $Env.IsMSIE
 style="width:250px;"\\
'  EndIf
'  If $argOnClick
 onClick="$argOnClick"\\
'  EndIf
>
' EndSub
''
''<!------------------------------------------------------------------
''  必須項目マークの表示
''  構文：Call formNecessaryMark
''------------------------------------------------------------------->
' Sub formNecessaryMark
<font class="fontNecessary">*</font>
' EndSub
''
''<!------------------------------------------------------------------
''  数値項目マークの表示
''  構文：Call formNumberMark
''------------------------------------------------------------------->
' Sub formNumberMark
<font class="fontNumber">#</font>
' EndSub
''
''<!------------------------------------------------------------------
''  入力フォームでの注意文の表示
''  構文：Call formNote <必須項目> <数値項目>
''------------------------------------------------------------------->
' Sub formNote $argNecessary $argNumber
'  If ! $argNecessary and ! $argNumber
'   Exit
'  EndIf
<font class="fontSmall">(\\
'  If $argNecessary
'   Call formNecessaryMark
は必須項目です。必ず設定してください。\\
'  EndIf
'  If $argNumber
'   Call formNumberMark
は数値項目です。半角数値を設定してください。\\
'  EndIf
)</font>\\
' EndSub
''
''<!------------------------------------------------------------------
''  日付選択
''  構文：Call formDate <接頭辞> <フォーム名> <必須> <初期値> <onChange>
''------------------------------------------------------------------->
' Sub formDate $argPrefix $argFormName $argEss $argDate $argOnChange
'  If ! $argPrefix
'   Exit
'  EndIf
''
'' グローバル変数に変換する
'  $localDate = $argDate
''
'  Call formSelectBox "$argPrefix$.Year" formDateYearOptions $argEss "---- 年" $argOnChange
'  Call formSelectBox "$argPrefix$.Month" formDateMonthOptions $argEss "-- 月" $argOnChange
'  Call formSelectBox "$argPrefix$.Day" formDateDayOptions $argEss "-- 日" $argOnChange
'  Sub formDateYearOptions
''  HDateTime,HTimeStamp型にも対応するためのコード
'   $localInitCalendarDate = $localDate
'   If $localDate.Date
'    $localInitCalendarDate = $localDate.Date
'   Endif
''  期間は2001年からサーバー時間の7年後まで。
''  サーバー時間不正で2011年以前となっている場合はサーバー時間以後7年間
'   $localStartYear = 2001
'   $localDateTime = $System.DateTime
'   $localNowDate = $localDateTime.Date
'   If $localStartYear > $localNowDate.Year
'    $localStartYear = $localNowDate.Year
'    $localEndYear = $localStartYear
'   Else
'    $localEndYear = $localNowDate.Year
'   Endif
'   Inc $localEndYear 7
'' 初期値が開始年よりも過去の場合はその年からメニューが始まる
'   If $localStartYear > $localInitCalendarDate.Year
'    $localStartYear = $localInitCalendarDate.Year
'   Endif
'' 初期値が終了年よりも未来の場合はその年までメニューがある
'   If $localEndYear < $localInitCalendarDate.Year
'    $localEndYear = $localInitCalendarDate.Year
'   Endif
'   $localInitValue = $localInitCalendarDate.Year
'   Options $localInitValue in $localStartYear to $localEndYear unit 年
'  EndSub
'  Sub formDateMonthOptions
'   Options $localDate.Month in 1 to 12 unit 月
'  EndSub
'  Sub formDateDayOptions
'   Options $localDate.Day in 1 to 31 unit 日
'  EndSub
''
'  Call cmLoadJavaScript "jquery.ui.datepicker-ja.min"
'  $System.SetParameter localCalendarID "$argPrefix$Calendar"
'  $System.SetParameter localFormName "document.forms.$argFormName"
' If $Env.IsMSIE
<input type="text" id="$localCalendarID" style="display:none;">
' Else
<input type="text" id="$localCalendarID" style="border:0;width:0;visibility:hidden;">
' EndIf
<script>
  $(function() {
    var picker = $( "#$localCalendarID" );
    var year = $($localFormName$.elements['$argPrefix$.Year']);
    var month = $($localFormName$.elements['$argPrefix$.Month']);
    var day = $($localFormName$.elements['$argPrefix$.Day']);
    
    picker.datepicker({
      showOn: "button",
      buttonImage: "$IMG_PATH/calendar20.png",
      buttonImageOnly: true,
      changeYear: true,
      buttonText: '日付を選択する',
      yearRange: "$localStartYear:$localEndYear",
      onSelect: function(dateText, inst) {
        var date_elements = dateText.split('/');
        year.val(Number(date_elements[0]));
        month.val(Number(date_elements[1]));
        day.val(Number(date_elements[2]));
'  If $argOnChange
        $localFormName$.$argOnChange
'  EndIf
      }
    });
    if (year.val() && month.val() && day.val())
    {
      picker.datepicker("setDate", year.val() + '/' + month.val() + '/' + day.val());
    }
  });
</script>
' EndSub
''
''<!------------------------------------------------------------------
''  日付選択(開始日～終了日)
''  構文：Call formDateSpan <開始接頭辞> <終了接頭辞> <フォーム名> <必須> <開始日初期値> <終了日初期値> <onChange>
''------------------------------------------------------------------->
' Sub formDateSpan $argSetPrefix $argEndPrefix $argName $argEss $argSetDate $argEndDate $argOnChange
'  Call formDate $argSetPrefix $argName $argEss $argSetDate $argOnChange
～\\
'  Call formDate $argEndPrefix $argName $argEss $argEndDate $argOnChange
' EndSub
''
''<!------------------------------------------------------------------
''  時間選択
''  構文：Call formTime <接頭辞> <必須> <初期値> <間隔>
''------------------------------------------------------------------->
' Sub formTime $argPrefix $argEss $argTime $argSpan
'  If ! $argPrefix
'   Exit
'  EndIf
''
'' グローバル変数に変換する
'  $localTime = $argTime
'  $localSpan = $argSpan
''
'  Call formSelectBox "$argPrefix$.Hour" formDateHourOptions $argEss "-- 時" $argOnChange
'  Call formSelectBox "$argPrefix$.Minute" formDateMinuteOptions $argEss "-- 分" $argOnChange
'  Sub formDateHourOptions
'   Options $localTime.Hour in 0 to 23 unit "時"
'  EndSub
'  Sub formDateMinuteOptions
'   If $localSpan
'    Options $localTime.Minute in 0 to 59 step $localSpan unit "分"
'   Else
'    Options $localTime.Minute in 0 to 59 unit "分"
'   EndIf
'  EndSub
' EndSub
''
''<!------------------------------------------------------------------
''  日付選択(開始日～終了日)
''  構文：Call formTimeSpan <開始接頭辞> <終了接頭辞> <必須> <開始時間初期値> <終了時間初期値>
''------------------------------------------------------------------->
' Sub formTimeSpan $argSetPrefix $argEndPrefix $argEss $argSetTime $argEndTime
'  Call formTime $argSetPrefix $argEss $argSetTime
～\\
'  Call formTime $argEndPrefix $argEss $argEndTime
' EndSub
''
''<!------------------------------------------------------------------
''  データ読み込みの文字コード選択
''  構文：Call formFEncoding
''------------------------------------------------------------------->
' Sub formFEncoding $argName
'  If ! $argName
'   $argName = "fencoding"
'  EndIf
'  Call formSelectBox $argName fencodingOptions 1
'  Sub fencodingOptions
<option value="" Selected>自動判定</option>
<option value="Shift_JIS">シフトJIS</option>
<option value="UTF-8">UTF-8</option>
'  EndSub
' EndSub
''
''<!------------------------------------------------------------------
''  データ書き出しの文字コード選択
''  構文：Call formOEncoding
''------------------------------------------------------------------->
' Sub formOEncoding $argName
'  If ! $argName
'   $argName = "oencoding"
'  EndIf
'  Call formSelectBox $argName oencodingOptions 1
''
'  Sub oencodingOption $argValue $argText $argName
'   var $localValue = $System.GetParameter $argName
'   var $localSelected
'   If $argValue = $localValue
'    $localSelected = "selected"
'   EndIf
<option value="$argValue" $localSelected>$argText</option>
'  EndSub
''
'  Sub oencodingOptions $argName
'   Call oencodingOption "Shift_JIS" "シフトJIS" $argName
'   Call oencodingOption "UTF-8" "UTF-8 (BOMなし)" $argName
'   Call oencodingOption "UTF-8;BOM" "UTF-8 (BOMあり)" $argName
'  EndSub
' EndSub