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

📄 frm_fzjjt.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 OpenBut(url)
{
	window.open(url, "OpenClose");
}

function subcheck(act) {
	if (act==0)
		form1.action="frm_fzjjt_remove.asp";
	else
		form1.action="frm_fzjjt_modify.asp";
	form1.submit();
}
-->
</SCRIPT>

</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><br>
	<%
	syear=request.form("year")
	if syear="" then
		syear=year(now)
	end if
	stdate=cdate(syear &"-1-1")
	eddate=cdate(syear &"-12-31")
	Set Rs = Server.CreateObject("ADODB.RecordSet")
	SQL="select * from oil.oil_fzjjt,oil.oil_dict,oil.oil_well where fzjjt_well_id=well_id and well_area=dict_code and dict_type='area'"
	rs.open SQL,conn,1,1
	dim fzjjt(),fzjjtCount
	fzjjtCount=0
	do while not rs.eof
		tdate=cdate(rs("fzjjt_wjrq"))
		if tdate>=stdate and tdate<=eddate then
			fzjjtCount=fzjjtCount+1
			redim preserve fzjjt(fzjjtCount)
			fzjjt(fzjjtCount-1)=""
			fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_id") 
			fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("dict_value")
			fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_well_id")
			fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_wjrq")
			fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_tzzrq")
			fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_wjff")
			fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_js_tbj")
			fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_js_ybj")
			fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_js_js")
			fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_js_snsm")
			fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_tg_wj")
			fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_tg_nj")
			fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_tg_sd")
			fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_gj_snfg")
			fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_gj_syqk")
			fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_cw")
			fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_ycjd")
			fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_skjd")
			fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_fgq_xh")
			fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_fgq_sf")
			fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_fgq_zf")
			fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_fgq_xf")
			fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_psq_xh")
			fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_psq_sp")
			fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_psq_zp1")
			fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_psq_zp2")
			fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_psq_xp")
			fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_zjt")
			fzjjt(fzjjtCount-1)=fzjjt(fzjjtCount-1)& "@" & rs("fzjjt_qz")
		end if
		rs.movenext
	loop
	rs.close
	%>
	<span class="subject">
		<%=syear%>年的分注井井筒静态资料
	</span> 
	<hr size="1" class=hr width="98%" align="center">
	<br>
	<form action="" method=post name=form1>
	<table border=0 width=90%>
		<tr>
			<td>
			<select name=year onchange=submit()>
				<%for i=0 to 20%>
				<option value=<%=2000+i%> <%if cint(syear)=2000+i then response.write " selected" end if%>><%=2000+i%></option>
				<%next%>
			</select>年
			</td>
		</tr>
	</table>
	<table border="1" cellpadding="1" cellspacing="0" align="center" class="table2" 
	  bordercolor="#000000" bordercolordark="#F8EDEB" width=2000>
	  <tr height="20">
	   <td class="title" align=center width=20 rowspan=2>&nbsp</td>
	   <td class="title" align=center width=80 rowspan=2>作业区</td>
	   <td class="title" align=center width=60 rowspan=2>水井号</td>
	   <td class="title" align=center width=80 rowspan=2>完井日期</td>
	   <td class="title" align=center width=80 rowspan=2>投转注日期</td>
	   <td class="title" align=center width=80 rowspan=2>完井方法</td>
	   <td class="title" align=center colspan=4>井身结构</td>
	   <td class="title" align=center colspan=3>套管</td>
	   <td class="title" align=center colspan=2>固井情况</td>
	   <td class="title" align=center width=80 rowspan=2>层位</td>
	   <td class="title" align=center width=80 rowspan=2>油层井段</td>
	   <td class="title" align=center width=80 rowspan=2>射孔井段</td>
	   <td class="title" align=center colspan=4>分隔器及下入深度(m)</td>
	   <td class="title" align=center colspan=5>配水器型号及下入深度(m)</td>
	   <td class="title" align=center width=80 rowspan=2>撞击筒深度(m)</td>
	   <td class="title" align=center width=80 rowspan=2>球座深度</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=80>水泥塞面深度</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=100>套管外水泥返高</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>中配(1)</td>
	   <td class="title" align=center width=60>中配(2)</td>
	   <td class="title" align=center width=60>下配</td>
	  </tr> 
	  <%for i=0 to fzjjtCount-1%>
	  <tr height="20" align=center>
	   <td>&nbsp<input type=checkbox name=chfzjjt value=<%=split(fzjjt(i),"@")(1)%>></td>
	   <td>&nbsp<%=split(fzjjt(i),"@")(2)%></td>
	   <td>&nbsp<%=split(fzjjt(i),"@")(3)%></td>
	   <td>&nbsp<%=split(fzjjt(i),"@")(4)%></td>
	   <td>&nbsp<%=split(fzjjt(i),"@")(5)%></td>
	   <td>&nbsp<%=split(fzjjt(i),"@")(6)%></td>
	   <td>&nbsp<%=split(fzjjt(i),"@")(7)%></td>
	   <td>&nbsp<%=split(fzjjt(i),"@")(8)%></td>
	   <td>&nbsp<%=split(fzjjt(i),"@")(9)%></td>
	   <td>&nbsp<%=split(fzjjt(i),"@")(10)%></td>
	   <td>&nbsp<%=split(fzjjt(i),"@")(11)%></td>
	   <td>&nbsp<%=split(fzjjt(i),"@")(12)%></td>
	   <td>&nbsp<%=split(fzjjt(i),"@")(13)%></td>
	   <td>&nbsp<%=split(fzjjt(i),"@")(14)%></td>
	   <td>&nbsp<%=split(fzjjt(i),"@")(15)%></td>
	   <td>&nbsp<%=split(fzjjt(i),"@")(16)%></td>
	   <td>&nbsp<%=split(fzjjt(i),"@")(17)%></td>
	   <td>&nbsp<%=split(fzjjt(i),"@")(18)%></td>
	   <td>&nbsp<%=split(fzjjt(i),"@")(19)%></td>
	   <td>&nbsp<%=split(fzjjt(i),"@")(20)%></td>
	   <td>&nbsp<%=split(fzjjt(i),"@")(21)%></td>
	   <td>&nbsp<%=split(fzjjt(i),"@")(22)%></td>
	   <td>&nbsp<%=split(fzjjt(i),"@")(23)%></td>
	   <td>&nbsp<%=split(fzjjt(i),"@")(24)%></td>
	   <td>&nbsp<%=split(fzjjt(i),"@")(25)%></td>
	   <td>&nbsp<%=split(fzjjt(i),"@")(26)%></td>
	   <td>&nbsp<%=split(fzjjt(i),"@")(27)%></td>
	   <td>&nbsp<%=split(fzjjt(i),"@")(28)%></td>
	   <td>&nbsp<%=split(fzjjt(i),"@")(29)%></td>
	  </tr> 
	  <%next%>
	</table>
	<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_fzjjt_add.asp?syear=<%=syear%>");'> 
				<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="button" name="bt1" value="打印表格" class=button LANGUAGE=javascript onclick="OpenBut('frm_fzjjt_print.asp?syear=<%=syear%>')"> 
			</td>
		</tr>
	</table>
	<hr size="1" class=hr width="98%" align="center">
	</form>

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

⌨️ 快捷键说明

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