<!--#include file="LibraryForm.html"-->
' Sub QueryConditionRow $mqcProfile $mqcIndex $mqcIID $mqcText $mqcExpr $mqcValue $mqcNum $mqcFormName $mqcOnSubmit $mqcAutoRule
'  Init $mqcIID = "Data"
'  If $mqcProfile.Items.$mqcIID or ( $mqcIID = "ACID" ) or ( $mqcIID = "Status" ) or ( $mqcIID = "NextUID" ) or ( $mqcIID = "Quick" ) or ( $mqcIID = "UID" )
'   $System.SetParameter mqcOnChange "Mode.value='$mqcIndex';"
'  Else
'   $System.SetParameter mqcOnChange "Mode.value='change';"
'  EndIf
<tr><td><br></td><td nowrap>
<select name="IID$mqcIndex" onChange="$_mqcOnChange$$_mqcOnSubmit$this.form.submit();">
<option value="ACID" $mqcIID.Selected_ACID>アカウント
<option value="Code" $mqcIID.Selected_Code>メール番号
<option value="Status" $mqcIID.Selected_Status>状況
<option value="NextUID" $mqcIID.Selected_NextUID>確認者
<option value="Quick" $mqcIID.Selected_Quick>緊急度
<option value="UID" $mqcIID.Selected_UID>担当者
<option value="Subject" $mqcIID.Selected_Subject>件名
<option value="From" $mqcIID.Selected_From>差出人
<option value="To" $mqcIID.Selected_To>宛先
<option value="CC" $mqcIID.Selected_CC>CC
'  If ! $mqcAutoRule
<option value="BCC" $mqcIID.Selected_BCC>BCC
'  EndIf
<option value="Data" $mqcIID.Selected_Data>本文
<option value="File" $mqcIID.Selected_File>添付ファイル名
<option value="Comment" $mqcIID.Selected_Comment>コメント
'  $mqcItemSelected = 0
'  Set $mqcItems = $mqcProfile.Items
'  For Each $mqcItem in $mqcItems
'   $mqcOID = $mqcItem.ID
'   If $mqcOID = $mqcIID
'    $mqcSel = "Selected"
'    $mqcItemSelected = 1
'    Set $mqcOptions = $mqcItem.Options
'   Else
'    $mqcSel = ""
'   EndIf
<option value="$mqcOID" $mqcSel>$mqcItem.Name
'  Next
</select> が
'  If $mqcIID = "ACID"
<select name="Text$mqcIndex">
'   For Each $mqcAccount in $mqcProfile.Accounts
'    If $mqcText = $mqcAccount.ID
'     $mqcSel = "Selected"
'    Else
'     $mqcSel = ""
'    EndIf
<option value="$mqcAccount.ID" $mqcSel>$mqcAccount.Name
'   Next
</select>
'  Elif $mqcIID = "Code"
'   Call formText "Text$mqcIndex" $mqcText 30 1 10
'  Elif $mqcIID = "Status"
<select name="Text$mqcIndex">
<option value="0">(未処理)
'   If $mqcText = -1
<option value="-1" selected>(処理中)
'   Else
<option value="-1">(処理中)
'   EndIf
'   Options $mqcText in $mqcProfile.Status
'   If ! $mqcAutoRule
'    If $mqcText = -5
<option value="-5" selected>(送信待ち)
'    Else
<option value="-5">(送信待ち)
'    EndIf
'   EndIf
'   If $mqcText = -2
<option value="-2" selected>(処理済み)
'   Else
<option value="-2">(処理済み)
'   EndIf
</select>
'  Elif $mqcIID = "NextUID"
<select name="Text$mqcIndex" onChange="Mode.value='change';$_mqcOnSubmit$this.form.submit();">
'   If $Login.ID = $mqcText
'    $mqcSel = "Selected"
'   Else
'    $mqcSel = ""
'   EndIf
<option value="$Login.ID" $mqcSel>$Login.Name
'   For Each $mqcUser in $Users
'    If $mqcUser.ID = $Login.ID
'     Continue
'    EndIf
'    If $mqcUser.ID = $mqcText
'     $mqcSel = "Selected"
'    Else
'     $mqcSel = ""
'    EndIf
<option value="$mqcUser.ID" $mqcSel>$mqcUser.Name
'   Next
'   If $mqcText = -1
'    $mqcSel = "Selected"
'   Else
'    $mqcSel = ""
'   EndIf
<option value="-1" $mqcSel>(未設定)
</select>
'  Elif $mqcIID = "Quick"
<select name="Text$mqcIndex">
<option value="">通常
<option value="1" $mqcText.Selected_1>至急
<option value="2" $mqcText.Selected_2>大至急
</select>
'  Elif $mqcIID = "UID"
<select name="Text$mqcIndex" onChange="Mode.value='change';$_mqcOnSubmit$this.form.submit();">
'   If $Login.ID = $mqcText
'    $mqcSel = "Selected"
'   Else
'    $mqcSel = ""
'   EndIf
<option value="$Login.ID" $mqcSel>$Login.Name
'   For Each $mqcUser in $Users
'    If $mqcUser.ID = $Login.ID
'     Continue
'    EndIf
'    If $mqcUser.ID = $mqcText
'     $mqcSel = "Selected"
'    Else
'     $mqcSel = ""
'    EndIf
<option value="$mqcUser.ID" $mqcSel>$mqcUser.Name
'   Next
'   If $mqcText = -1
'    $mqcSel = "Selected"
'   Else
'    $mqcSel = ""
'   EndIf
<option value="-1" $mqcSel>(未設定)
'   If $mqcText = -2
'    $mqcSel = "Selected"
'   Else
'    $mqcSel = ""
'   EndIf
<option value="-2" $mqcSel>(直接入力)
</select>
'   If $mqcText = -2
'    Call formText "Value$mqcIndex" $mqcValue 20 1
'   EndIf
'  Elif $mqcItemSelected
<select name="Text$mqcIndex" onChange="Mode.value='change';$_mqcOnSubmit$this.form.submit();">
<option value="">(直接入力)
'   Options $mqcText in $mqcOptions
</select>
'   $mqcContains = $mqcOptions.Contains $mqcText
'   If ! $mqcContains
'    Call formText "Value$mqcIndex" $mqcValue 20 1
'   EndIf
'  Else
'   Call formText "Text$mqcIndex" $mqcText 30 1
'  EndIf
</td><td nowrap><select name="Expr$mqcIndex">
'  If $mqcIID = "Code"
<option value="7" $mqcExpr.Selected_7>より大きい
<option value="8" $mqcExpr.Selected_8>以上
<option value="9" $mqcExpr.Selected_9>より小さい
<option value="10" $mqcExpr.Selected_10>以下
'  Elif ( $mqcIID != "ACID" ) and ( $mqcIID != "Status" ) and ( $mqcIID != "NextUID" ) and ( $mqcIID != "Quick" )
'   If ( $mqcIID != "UID" ) or ( $mqcText = -2 )
<option value="1" $mqcExpr.Selected_1>を含む
<option value="2" $mqcExpr.Selected_2>を含まない
'   EndIf
'  EndIf
'  If ( $mqcIID != "Data" ) and ( $mqcIID != "File" ) and ( $mqcIID != "From" ) and ( $mqcIID != "To" ) and ( $mqcIID != "CC" ) and ( $mqcIID != "BCC" )
<option value="3" $mqcExpr.Selected_3>と同じ
<option value="4" $mqcExpr.Selected_4>と異なる
'  EndIf
</select></td>
<td>
'  If $mqcNum
'   Call cmButton "削除する" "Mode.value='remove';Remove.value='$mqcIndex';$mqcOnSubmit$this.form.submit();"
'  Else
<br>
'  EndIf
</td>
</tr>
' EndSub