<!-- #include file="../../include.asp" -->

<%
'<!--
'################################################
'	名称	:ユーザー一覧
'	作成日:2002/10/6
'	作成者:徳田
'	目的 :ユーザーの一覧画面を表示する。
'	概要	:
'	 <<表示>>
' ・ユーザー一覧画面
'
'################################################
'-->
%>
<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If


	Dim	EnshuName
	Dim UserID , UserName , GroupCD
	Dim RouteType
	Dim DataCnt
	Dim SiteiYMD
	SiteiYMD = Request("SiteiYMD")
	If SiteiYMD = "" Then
		SiteiYMD = Date()
	End If

	Dim Query
	Dim Content

	UserID = Request("UserID")
	UserName = Request("UserName")
	GroupCD = Request("GroupCD")

	RouteType = Request("RouteType")



'演習名称GET
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)


	If Not(Content.BOF Or Content.EOF) Then
		EnshuName = Content.Fields("演習名称")
	End If
%>


<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 1;
-->
</SCRIPT>


<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)"	method="GET" name="form1" action="fm_enshu_view_user_bin.asp" >
<input type="hidden" name="SendValue" value="">
<input type="hidden" name="Action" value="4">
<input type="hidden" name="RouteType" value="<% = RouteType %>">


<%
	Response.Write(HtmlDesign(1))

	Response.Write(HttpL1(4))

	If RouteType = "Sousa" Then
		If GB_Admin = 1 Then
			Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習管理", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?EnshuCD=" & EnshuCD & "')", "演習コントロール", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshucontrol.asp?EnshuCD=" & EnshuCD & "')", "生徒選択会社", "", "", "", "", ""))	
		Else
			Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習管理", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu1_view.asp?EnshuCD=" & EnshuCD & "')", "演習コントロール", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshucontrol.asp?EnshuCD=" & EnshuCD & "')", "生徒選択会社", "", "", "", "", ""))	
		End If
	Else
		Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習管理", "tblbtn('/" & HomeAlias & "/admin/enshu/fm_enshu1_view.asp?EnshuCD=" & EnshuCD & "')", "生徒選択会社解除", "", "", "", "", "", "", ""))
	End If

'	Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
	If RouteType = "Sousa" Then
		Response.Write(HttpL3_2("生徒会社選択", "tblbtn('fm_enshu_user.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType & "')", "戻る", "tblbtn('fm_enshucontrol.asp?EnshuCD=" & EnshuCD & "');", "", "", "", "", "", ""))
	Else
		Response.Write(HttpL3_2("生徒会社選択", "tblbtn('fm_enshu_user.asp?EnshuCD=" & EnshuCD & "')", "戻る", "tblbtn('fm_enshu1_view.asp?EnshuCD=" & EnshuCD & "');", "", "", "", "", "", ""))
	End If

	Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL3_1("選択解除", "ResetCheck()", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL4("生徒選択会社解除", ""))

	Response.Write(HttpL5("生徒が会社を選択する前の状態に戻し、会社を再選択させることが出来ます。"))

%>


<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
	<tr>
		<td valign="top">
			<table border="0" cellpadding="0" cellspacing="0" width="100%" height="100%">
				<tr>
					<td align="CENTER" valign="MIDDLE">
						<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="16" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="1" HEIGHT="100%">
							<TR>
								<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
									<TABLE WIDTH="600" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
										<TR>
											<TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="620">
												<TABLE WIDTH="600" HEIGHT="20" BORDER="1" CELLPADDING="3" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
													<TR ALIGN="CENTER">
														<TD WIDTH="140" HEIGHT="20">ログインID</TD>
														<TD HEIGHT="20">氏名</TD>
														<TD WIDTH="220" HEIGHT="20">現在選択されている会社</TD>
													</TR>
												</TABLE>
											</TD>
										</TR>
										<TR>
											<TD VALIGN="TOP">
												<DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:620px; height:100%; z-index:1; border: 1px none #000000; overflow: auto; cursor: hand;">
													<TABLE ID="SyoukaiList" WIDTH="600" BORDER="1" CELLSPACING="0" CELLPADDING="3" BGCOLOR="#FFFFFF" CLASS="tx1416" STYLE="border-collapse: collapse" BORDERCOLOR="#000000">
														<%
															Dim ii, jj
															ii = 0

															Query = "exec SPM演習選択ユーザー一覧 '" & GB_SystemCD & "','" & GB_EnshuCD & "'"
															Set Content = OpenQuery(Query)

															Do While Not(Content.BOF Or Content.EOF)
																Response.Write("<TR ALIGN=""CENTER"" onClick=""celsel(" & ii & ",'" & Content.Fields("学生番号") & "')"">" & vbCrLf)
																Response.Write("<TD WIDTH=""140"" HEIGHT=""20"">" & Content.Fields("学生番号") & "</TD>" & vbCrLf)
																Response.Write("<TD HEIGHT=""20"" ALIGN=""LEFT"">" & Content.Fields("氏名") & "</TD>" & vbCrLf)
																Response.Write("<TD WIDTH=""220"" HEIGHT=""20"" ALIGN=""LEFT"">" & ConvKaisyaMeisyoDx(GB_EnshuCD, Content.Fields("選択会社CD")) & "</TD>" & vbCrLf)
																ii = ii + 1
																Response.Write("</TR>")
																Content.MoveNext
															Loop
															DataCnt = ii
														%>


													</TABLE>
												</DIV>
											</TD>
										</TR>
									</TABLE>
								</TD>
							</TR>
						</TABLE>
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>
</div>
<input type="hidden" name="DataCnt" value=<%= DataCnt %> >
</form>

</body>
<% = HtmlFooter %>
</html>

<SCRIPT LANGUAGE="JavaScript">
	var lsURL="#"
	function syokaibtn(){
		if(lsURL == "#")
		{
			alert("選択されていません");
		}
		else
		{
			tblbtn(lsURL);
		}
	}

	//TRselect & URLset
	function celsel(rw,selURL){
		var trw;
		trw=rw;
		lsURL=selURL;
		for (k=0; k<document.all['SyoukaiList'].rows.length; k++){
			document.all['SyoukaiList'].rows[k].style.backgroundColor ="";
		}//セル色クリア
		document.all['SyoukaiList'].rows[rw].style.backgroundColor ="#ffcdde";//選択行色変更
	}

	function sakujyobtn()
	{
		var dcnt;
		var flag;
		dcnt=0;
		if (form1.DataCnt.value == 1)
		{
			if (form1.SakujyoUserID.checked)
			{
				dcnt++;
				form1.SendValue.value = form1.SendValue.value + form1.SakujyoUserID.value + ",";
			}
		}
		else
		{
			for (k=0; k<form1.SakujyoUserID.length; k++)
			{
				if (form1.SakujyoUserID[k].checked)
				{
					dcnt++;
					form1.SendValue.value = form1.SendValue.value + form1.SakujyoUserID[k].value + ",";
				}
			}
		}

		if (dcnt > 0)
		{
			flag = confirm("ユーザー削除処理を実行します。よろしいですか?");
			if (flag)
			{
				SubmitReal(form1);
				return true;
			}
		}
		else
		{
			alert("対象ユーザーが指定されていません。\r\n削除チェックボックスにチェックを入れてください。");
			return false;
		}
	}

	function SetUserList()
	{
		tblbtn("fm_user_ichiran.asp?UserID=" + form1.UserID.value + "&UserName=" + form1.UserName.value + "&GroupCD=" + form1.GroupCD.value + "&SiteiYMD=" + form1.SiteiYMD.value);
		return false;
	}

	function SetJyokenClear()
	{
		form1.UserID.value="";
		form1.UserName.value="";
		form1.GroupCD.selectedIndex=-1;
		 form1.SiteiYMD.value="";
		return false;
	}

	function ResetCheck()
	{
		var flag;
		flag = confirm("選択された生徒の選択会社を解除します \r\nよろしいですか? ");
		if (flag)
		{
			tblbtn( "/<% = HomeAlias %>/admin/enshu/fm_enshu_view_user_bin.asp?UserID=" + lsURL + "&RouteType=<% = RouteType %>");
			return true;
		}
		else
		{
			return false;
		}
	}
</script>

<%
End Sub
%>