⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 frm_ydcsxg.asp

📁 一套石油公司内部的运营管理系统
💻 ASP
字号:
🔍 
<!--#include virtual="/include/DBCon.inc"-->
<html>
<head>
 
<title>油田采油工艺综合管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="/css/oil.css" type="text/css">
<SCRIPT LANGUAGE=javascript>
<!--
function	subcheck(act) {
	if (act==0)
		form1.action="frm_ydcsxg_remove.asp";
	else
		form1.action="frm_ydcsxg_modify.asp";
	form1.submit();
}

function wtCh() {
	form1.action="";
	form1.submit();
}
-->
</SCRIPT>

</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><br>
	<%
	sdate=cdate(request("year") & "-" & request("month") & "-1")
	syear=request("year")
	smonth=request("month")
	welltype=request.form("welltype")
	if welltype="" then
		welltype=0 
	end if
	Set Rs = Server.CreateObject("ADODB.RecordSet")
	dim ydcsxg(),ydcsxgCount
	ydcsxgCount=0
	if welltype=0 then
		SQL="select * from oil.oil_incre,oil.oil_well,oil.oil_dict where incre_obj_date='" &sdate& "' and incre_well_id=well_id and well_area=dict_code and dict_type='area' and incre_well_type='老井'"
		rs.open SQL,conn,1,1
		do while not rs.eof
			ydcsxgCount=ydcsxgCount+1
			redim preserve ydcsxg(ydcsxgCount)
			ydcsxg(ydcsxgCount-1)=""
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_id") 
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_well_id")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("dict_value")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_cscw")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_csnr")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_csrq")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_bf_rcy")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_bf_rco")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_bf_hs")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_bf_dym")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_af_rcy")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_af_rco")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_af_hs")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_af_dym")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_bysc")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_yxts")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_rzyl")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_yzol")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_ljzy")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("incre_memo")
			rs.movenext
		loop
		rs.close
	else 
		SQL="select * from oil.oil_cszz,oil.oil_well,oil.oil_dict where cszz_obj_date='" &sdate& "' and cszz_well_id=well_id and well_area=dict_code and dict_type='area'"
		rs.open SQL,conn,1,1
		do while not rs.eof
			ydcsxgCount=ydcsxgCount+1
			redim preserve ydcsxg(ydcsxgCount)
			ydcsxg(ydcsxgCount-1)=""
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_id") 
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_well_id")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("dict_value")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_cscw")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_csnr")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_csrq")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_bf_fsq")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_bf_gy")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_bf_oy")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_bf_ty")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_bf_pz")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_bf_sz")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_af_fsq")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_af_gy")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_af_oy")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_af_ty")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_af_pz")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_af_sz")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_period")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_rzz")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_yzz")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_ljzz")
			ydcsxg(ydcsxgCount-1)=ydcsxg(ydcsxgCount-1)& "@" & rs("cszz_memo")
			rs.movenext
		loop
		rs.close
	end if
	%>
	<span class="subject">
		<%=syear%>年度<%=smonth%>月的月度措施效果统计(<%if welltype=0 then response.write "油井" else response.write "水井" end if%>)
	</span> 
	<hr size="1" class=hr width="98%" align="center">
	<br>
	<form action="" method=post name=form1>
	<table width=1600>
		<tr>
			<td align=left>
				<select name=welltype onchange=wtCh()>
					<option value=0 <%if welltype=0 then response.write "selected" end if%>>油井</option>
					<option value=1 <%if welltype=1 then response.write "selected" end if%>>水井</option>
				</select>
			</td>
		</tr>
	</table>
	<%if welltype=0 then%>
	<table border="1" cellpadding="1" cellspacing="0" align="center" class="table2" 
	  bordercolor="#000000" bordercolordark="#F8EDEB" width=1600>
	  <tr height="20">
	   <td class="title" rowspan=2 align=center width=20>&nbsp</td>
	   <td class="title" rowspan=2 align=center width=60>井号</td>
	   <td class="title" rowspan=2 align=center width=60>作业区</td>
	   <td class="title" rowspan=2 align=center width=60>措施层位</td>
	   <td class="title" rowspan=2 align=center width=120>措施内容</td>
	   <td class="title" rowspan=2 align=center width=60>完井日期</td>
	   <td class="title" colspan=4 align=center> 措施前</td>
	   <td class="title" colspan=4 align=center>目前</td>
	   <td class="title" rowspan=2 align=center width=80>本月生产天数</td>
	   <td class="title" rowspan=2 align=center width=80>措施有效天数</td>
	   <td class="title" rowspan=2 align=center width=60>日增油量</td>
	   <td class="title" rowspan=2 align=center width=60>月增油量</td>
	   <td class="title" rowspan=2 align=center width=60>累计增油量</td>
	   <td class="title" rowspan=2 align=center width=120>备注</td>
	  </tr> 
	  <tr height="20">
	   <td class="title" align=center width=60>日产液</td>
	   <td class="title" align=center width=60>日产油</td>
	   <td class="title" align=center width=60>含水</td>
	   <td class="title" align=center width=60>动液面</td>
	   <td class="title" align=center width=60>日产液 </td>
	   <td class="title" align=center width=60>日产油</td>
	   <td class="title" align=center width=60>含水</td>
	   <td class="title" align=center width=60>动液面</td>
	  </tr> 
	  <%for i=0 to ydcsxgCount-1%>
	  <tr height="20" align=center>
	   <td>&nbsp<input type=checkbox name=chydcsxg value=<%=split(ydcsxg(i),"@")(1)%>></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(2)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(3)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(4)%></td>
	   <td>&nbsp<textarea rows=2 cols=25 class=text><%=split(ydcsxg(i),"@")(5)%></textarea></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(6)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(7)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(8)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(9)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(10)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(11)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(12)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(13)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(14)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(15)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(16)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(17)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(18)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(19)%></td>
	   <td>&nbsp<textarea rows=2 cols=25 class=text><%=split(ydcsxg(i),"@")(20)%></textarea></td>
	  </tr> 
	  <%next%>
	</table>
    <%else%>
	<table border="1" cellpadding="1" cellspacing="0" align="center" class="table2" 
	  bordercolor="#000000" bordercolordark="#F8EDEB" width=1800>
	  <tr height="20">
	   <td class="title" rowspan=2 align=center width=20>&nbsp</td>
	   <td class="title" rowspan=2 align=center width=60>井号</td>
	   <td class="title" rowspan=2 align=center width=60>作业区</td>
	   <td class="title" rowspan=2 align=center width=60>措施层位</td>
	   <td class="title" rowspan=2 align=center width=120>措施内容</td>
	   <td class="title" rowspan=2 align=center width=60>完井日期</td>
	   <td class="title" colspan=6 align=center> 措施前</td>
	   <td class="title" colspan=6 align=center>目前</td>
	   <td class="title" rowspan=2 align=center width=80>有效天数</td>
	   <td class="title" rowspan=2 align=center width=60>日增注</td>
	   <td class="title" rowspan=2 align=center width=60>月增注</td>
	   <td class="title" rowspan=2 align=center width=60>累计增注</td>
	   <td class="title" rowspan=2 align=center width=120>备注</td>
	  </tr> 
	  <tr height="20">
	   <td class="title" align=center width=60>分水器压力</td>
	   <td class="title" align=center width=60>管压</td>
	   <td class="title" align=center width=60>油压</td>
	   <td class="title" align=center width=60>套压</td>
	   <td class="title" align=center width=60>配注 </td>
	   <td class="title" align=center width=60>注水量</td>
	   <td class="title" align=center width=60>分水器压力</td>
	   <td class="title" align=center width=60>管压</td>
	   <td class="title" align=center width=60>油压</td>
	   <td class="title" align=center width=60>套压</td>
	   <td class="title" align=center width=60>配注 </td>
	   <td class="title" align=center width=60>注水量</td>
	  </tr> 
	  <%for i=0 to ydcsxgCount-1%>
	  <tr height="20" align=center>
	   <td>&nbsp<input type=checkbox name=chydcsxg value=<%=split(ydcsxg(i),"@")(1)%>></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(2)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(3)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(4)%></td>
	   <td>&nbsp<textarea rows=2 cols=25 class=text><%=split(ydcsxg(i),"@")(5)%></textarea></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(6)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(7)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(8)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(9)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(10)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(11)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(12)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(13)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(14)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(15)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(16)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(17)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(18)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(19)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(20)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(21)%></td>
	   <td>&nbsp<%=split(ydcsxg(i),"@")(22)%></td>
	   <td>&nbsp<textarea rows=2 cols=25 class=text><%=split(ydcsxg(i),"@")(23)%></textarea></td>
	  </tr> 
	  <%next%>
	</table>
    <%end if%>
	<br>
    <table width="98%" border="0" cellspacing="0" cellpadding="2" align="center">
		<tr>
			<td align=center>
				<input type="button" name="bt1" value="添加新数据" class=button LANGUAGE=javascript onclick='javascript:location.replace("frm_ydcsxg_add.asp?sdate=<%=sdate%>&welltype=<%=welltype%>");'> 
				<input type="button" name="bt1" value="更新选中的数据" class=button LANGUAGE=javascript onclick=subcheck(1)> 
				<input type="button" name="bt1" value="删除选中的数据" class=button LANGUAGE=javascript onclick=subcheck(0)> 
				<input type=hidden name=sdate value=<%=sdate%>>
			</td>
		</tr>
	</table>
	<hr size="1" class=hr width="98%" align="center">
	  <br>
	  <table width="98%" border="0" cellspacing="0" cellpadding="2" align="center">
		<tr align="center"> 
		  <td>
			<input type="button" name="Submit32" value=" 返回 " class=button LANGUAGE=javascript onclick='javascript:location.replace("frm_ydcsxg_form.asp");'>
		  </td>
		</tr>
	  </table>
	</form>

</body>
</html>
<!--#include virtual="/include/DBClose.inc"-->

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -