' $System.Access Form
''
' Set $FormSystem = $WorkSpace.Forms.$BS
' $Name = $FormSystem.Name
' $Disable = $WorkSpace.Forms.$BS.Disable
' If ( ! $Disable ) and ( $QID > 0 )
'  Set $Search = $Command.Form.GetPersonalSearch $BS $ST
'  If ( ! $Search ) or $Reset
'   $ST = $Command.Form.SetSearchQuery $BS $QID
'  EndIf
'  $Progress = $Command.Form.Search $BS $ST $Head $HID
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' If $Progress
<meta http-equiv="Refresh" content="0;URL=$Server?page=FormIndex&wid=$WID&bs=$BS&vid=$VID&ST=$ST&head=$Head&hid=$HID&qid=$QID">
' EndIf
<!--#include file="LibraryToolBar.html"-->
<!--#include file="LibraryNavigation.html"-->
<!--#include file="PartsFormIndex.html"-->
' $CaptionTitle = $Name
' Call cmHead $CaptionTitle
</head>
<body>
' Call cmHeader $CaptionTitle
''
' If $Disable
'  Sub disableColumn
<p>$Nameは現在、使用を停止しています。</p>
'  EndSub
'  Call layout_msg "" "" 0 disableColumn
'  Call cmFooter
</body>
</html>
'  Exit
' Elif $Progress
'  Sub progressColumn
<p>現在、絞込を実行中です。しばらくお待ちください。</p>
<!--#include file="PartsProgress.html"-->
'  EndSub
'  Call layout_msg "" "" 0 progressColumn
'  Call cmFooter
</body>
</html>
'  Exit
' EndIf
''
' $System.CloseDatabase "mw"
' Set $FormProfile = $Command.Form.GetFormTop $BS
' Set $FIndex = $Command.Form.GetFormIndex $BS
''
' Sub commonColumn
'' お知らせ
<!--#include file="LibraryInfomation.html"-->
'  Set $Info = $Command.Form.GetPersonalInfo $BS
'  Call InfomationBar "Form" $FIndex $Info
'' メニュー
'  Call menuColumn
' EndSub
''
' Sub menuColumn
<table class="menuColumn">\\
<tr><td width="1%" nowrap>\\
' If $FormSystem.IsAccessCreate
'  Call tbFormGetCreateIcon $FormSystem.ID
'  Call cmLinkButton "$Nameを作成する" $tbImage "$Server?page=FormDocAdd&wid=$WID&bs=$BS"
' EndIf
' Call cmLinkButton "$Nameを検索する" "btn_search20.png" "$Server?page=FormDocSearch&wid=$WID&bs=$BS&vid=$VID"
' If $FormSystem.IsAccessFile
'  Call cmLinkButton "ファイル入出力" "btn_file20.png" "$Server?page=FormFile&wid=$WID&BS=$BS&vid=$VID"
' EndIf
</td>
<td align="right" nowrap>\\
<form method="post" action="$Server?" onSubmit="if( ! Text.value ){ return false; }">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="CustomerSearchIndex">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="VID" value="$VID">
'  Call tbSearchCustomer
</form></td>
</tr>
</table>
' EndSub
''
' Sub operation $argPos
<table border="0" width="100%" cellspacing="0" cellpadding="2">\\
<tr class="active">\\
'  If $argPos = "Head"
<td width="1%" nowrap>\\
<form method="get" action="$Server">
<input type="hidden" name="Page" value="FormIndex">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="VID" value="$VID">
絞込<select name="QID" onChange="this.form.submit();">
<option value="">(全て)
' Options $QID in $FormProfile.Queries
</select>
</form>
</td>
'  EndIf
'  Call showBackNavigation
'  Call showNavigation
</table>
' EndSub
''
' Sub mainColumn
' $Rows = $FormProfile.Rows
' Init $Rows = 20
' If $QID
'  Set $rs = $Command.Form.GetSearchResult $BS $ST $Rows $Head $HID
'  Set $FormProfile = $Command.Form.GetFormTop $BS
' Else
'  Set $rs = $FIndex.Documents.RowSet
'  $rs.Rows = $Rows
'  If $Head
'   $rs.Head = $Head
'   $rs.HID = $HID
'  EndIf
' EndIf
' $ViewIndex.WID = $WID
' For Each $fd in $rs
'  Set $v = $ViewIndex.Add
'  $v.AID = $BS
'  If $QID
'   $v.OID = $fd.OID
'  Else
'   $v.OID = $fd.ID
'  EndIf
'  $v.DBID = $fd.DBID
' Next
' $ViewIndex.Prev = $rs.Prev
' $ViewIndex.PID = $rs.PID
' $ViewIndex.Next = $rs.Next
' $ViewIndex.NID = $rs.NID
' $Command.Form.CloseIndexDatabase $BS
' Call operation "Head"
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
' Call viewFormTitle $FormProfile
' If $ViewIndex.Count == 0
</table>
<div class="mailindex-separator">
'  If ! $Head
データはありません。
'  EndIf
</div>
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
' Else
'  Call viewFormIndex $BS $FormProfile $ViewIndex "&st=$ST&qid=$QID&head=$Head&hid=$HID&wfi=$Login.ID" $RID
' EndIf
' Call viewFormTitle $FormProfile
</table>
' Call operation "Bottom"
' EndSub
''
' Sub showNavigation
' If $QID
'  Call Navigation $ViewIndex "&bs=$BS&st=$ST&qid=$QID" $Rows
' Else
'  Call Navigation $ViewIndex "&bs=$BS" $Rows
' EndIf
' EndSub
''
' Sub showBackNavigation
' If $Storages.Count and ( ! $VID )
<!--#include file="LibraryBackNavigation.html"-->
<td width="1%" nowrap>\\
'   Call cmImage menu_sep.png "" "" "" "" "" "" "menusep"
</td>
<td width="1%" nowrap>\\
'  Call backNavigation
</td>
' EndIf
' EndSub
''
' Call layout_list "" "" 0 mainColumn "" "" 0 "" commonColumn
''
' If $VID
'  Call cmChildFooter
' Else
'  Call cmFooter
' EndIf
</body>
</html>