<!--#include file="LibraryForm.html"-->
' Sub QueryConditionRow $fqcFormProfile $fqcIndex $fqcIID $fqcText $fqcExpr $fqcValue $fqcNum $fqcFormName $fqcOnSubmit
'  Init $fqcIID = "Subject"
'  $fqcType = ""
'  Set $fqcItem = $fqcFormProfile.Items.$fqcIID
'  If ( $fqcIID = "Creator" ) or ( $fqcIID = "DateTime" ) or ( $fqcItem.Type = "Select" ) or ( $fqcItem.Type = "Date" ) or ( $fqcItem.Type = "User" )
'   $System.SetParameter fqcOnChange "Mode.value='$fqcIndex';"
'  Else
'   $System.SetParameter fqcOnChange "Mode.value='change';"
'  EndIf
<tr><td><br></td><td nowrap>
<select name="IID$fqcIndex" onChange="$_fqcOnChange$$_fqcOnSubmit$this.form.submit();">
<option value="DateTime" $fqcIID.Selected_DateTime>日時
<option value="Creator" $fqcIID.Selected_Creator>作成者
<option value="Code" $fqcIID.Selected_Code>番号
<option value="Subject" $fqcIID.Selected_Subject>件名
<option value="Customer" $fqcIID.Selected_Customer>顧客
'  Set $fqcItems = $fqcFormProfile.Items
'  For Each $fqcItem in $fqcItems
'   $fqcOID = $fqcItem.ID
'   If $fqcOID = $fqcIID
'    $fqcSel = "Selected"
'    $fqcType = $fqcItem.Type
'    If $fqcType = "Select"
'     Set $fqcOptions = $fqcItem.Options
'    EndIf
'   Else
'    $fqcSel = ""
'   EndIf
<option value="$fqcOID" $fqcSel>$fqcItem.Name
'  Next
'  If $fqcFormProfile.File.Size != 0
<option value="File" $fqcIID.Selected_File>添付ファイル名
'  EndIf
<option value="Comment" $fqcIID.Selected_Comment>コメント
</select> が
'  If ( $fqcIID = "DateTime" ) or ( $fqcType = "Date" )
<select name="Text$fqcIndex" onChange="Mode.value='change';$_fqcOnSubmit$this.form.submit();">
<option value ="">(日付選択)
<option value ="1" $fqcText.Selected_1>今日
<option value ="2" $fqcText.Selected_2>昨日
<option value ="3" $fqcText.Selected_3>明日
<option value ="4" $fqcText.Selected_4>今週
<option value ="5" $fqcText.Selected_5>先週
<option value ="6" $fqcText.Selected_6>来週
<option value ="7" $fqcText.Selected_7>今月
<option value ="8" $fqcText.Selected_8>先月
<option value ="9" $fqcText.Selected_9>来月
<option value ="10" $fqcText.Selected_10>今年
<option value ="11" $fqcText.Selected_11>昨年
'   If $fqcType = "Date"
'    If $fqcText = -1
'     $fqcSel = "Selected"
'    Else
'     $fqcSel = ""
'    EndIf
<option value ="-1" $fqcSel>(未設定)
'    If $fqcText = -2
'     $fqcSel = "Selected"
'    Else
'     $fqcSel = ""
'    EndIf
<option value ="-2" $fqcSel>(直接入力)
'   EndIf
</select>
'   If ! $fqcText
'    If ! $fqcValue
'	  $fqcValue = $Date
'    EndIf
(
'    Call formDate "Value$fqcIndex" $fqcFormName 1 $fqcValue
)
'   Elif $fqcText = -2
'    If ! $fqcValue
'	  $fqcValue = $Date
'    EndIf
(
'    Call formText "Value$fqcIndex$.Year" $fqcValue.Year 8 1 4
年
'    Call formText "Value$fqcIndex$.Month" $fqcValue.Month 4 1 2
月
'    Call formText "Value$fqcIndex$.Day" $fqcValue.Day 4 1 2
日
)
'   EndIf
'  Elif $fqcType = "Select"
<select name="Text$fqcIndex" onChange="Mode.value='change';$_fqcOnSubmit$this.form.submit();">
<option value="">(直接入力)
'   Options $fqcText in $fqcOptions
</select>
'   $fqcContains = $fqcOptions.Contains $fqcText
'   If ! $fqcContains
'    Call formText "Value$fqcIndex" $fqcValue 20 1
'   EndIf
'  Elif ( $fqcIID = "Creator" ) or ( $fqcType = "User" )
<select name="Text$fqcIndex" onChange="Mode.value='change';$_fqcOnSubmit$this.form.submit();">
<option value="">----
'   If $Login.ID = $fqcText
'    $fqcSel = "Selected"
'   Else
'    $fqcSel = ""
'   EndIf
<option value="$Login.ID" $fqcSel>$Login.Name
'   For Each $fqcUser in $Users
'    If $fqcUser.ID = $Login.ID
'     Continue
'    EndIf
'    If $fqcUser.ID = $fqcText
'     $fqcSel = "Selected"
'    Else
'     $fqcSel = ""
'    EndIf
<option value="$fqcUser.ID" $fqcSel>$fqcUser.Name
'   Next
'   If $fqcText = -2
'    $fqcSel = "Selected"
'   Else
'    $fqcSel = ""
'   EndIf
<option value="-2" $fqcSel>(直接入力)
</select>
'   If $fqcText = -2
'    Call formText "Value$fqcIndex" $fqcValue 20 1
'   EndIf
'  Else
'   Call formText "Text$fqcIndex" $fqcText 30 1
'  EndIf
</td><td nowrap><select name="Expr$fqcIndex">
'  If ( $fqcIID = "DateTime" ) or ( $fqcType = "Date" )
'   If $fqcText != -1
<option value="5" $fqcExpr.Selected_5>以降
<option value="6" $fqcExpr.Selected_6>以前
'   EndIf
'  Elif ( $fqcIID = "Code" ) or ( $fqcType = "Number" )
<option value="7" $fqcExpr.Selected_7>より大きい
<option value="8" $fqcExpr.Selected_8>以上
<option value="9" $fqcExpr.Selected_9>より小さい
<option value="10" $fqcExpr.Selected_10>以下
'  Elif ( $fqcIID != "Creator" ) or ( $fqcText = -2 )
<option value="1" $fqcExpr.Selected_1>を含む
<option value="2" $fqcExpr.Selected_2>を含まない
'  EndIf
'  If ( $fqcIID != "File" )
<option value="3" $fqcExpr.Selected_3>と同じ
<option value="4" $fqcExpr.Selected_4>と異なる
'  EndIf
</select></td>
<td>
'  If $fqcNum
'   Call cmButton "削除する" "Mode.value='remove';Remove.value='$fqcIndex';$fqcOnSubmit$this.form.submit();"
'  Else
<br>
'  EndIf
</td>
</tr>
' EndSub