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

📄 frm_zsjjc.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_zsjjc_remove.asp";
	else
		form1.action="frm_zsjjc_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_zsjjc,oil.oil_dict,oil.oil_well where zsjjc_well_id=well_id and well_area=dict_code and dict_type='area'"
	rs.open SQL,conn,1,1
	dim zsjjc(),zsjjcCount
	zsjjcCount=0
	do while not rs.eof
		tdate=cdate(rs("zsjjc_date"))
		if tdate>=stdate and tdate<=eddate then
			zsjjcCount=zsjjcCount+1
			redim preserve zsjjc(zsjjcCount)
			zsjjc(zsjjcCount-1)=""
			zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_id") 
			zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("dict_value")
			zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_well_id")
			zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_date")
			zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_nr")
			zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_yg_gf")
			zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_yg_gs")
			zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_yg_cd")
			zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_dj_gf")
			zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_dj_gs")
			zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_dj_cd")
			zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_fgq_xh")
			zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_fgq_sf")
			zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_fgq_zf")
			zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_fgq_xf")
			zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_psq_xh")
			zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_psq_sp")
			zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_psq_zp1")
			zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_psq_zp2")
			zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_psq_xp")
			zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_zjt")
			zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_qt")
			zsjjc(zsjjcCount-1)=zsjjc(zsjjcCount-1)& "@" & rs("zsjjc_zdgx")
		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=1560>
	  <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 colspan=3>井下油管</td>
	   <td class="title" align=center colspan=3>井下短节</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>
	   <td class="title" align=center width=180 rowspan=2>重点工序记录</td>
	  </tr> 
	  <tr height="20">
	   <td class="title" align=center width=60>规范(mm)</td>
	   <td class="title" align=center width=60>根数(根)</td>
	   <td class="title" align=center width=60>长度(m)</td>
	   <td class="title" align=center width=60>规范(mm)</td>
	   <td class="title" align=center width=60>根数(根</td>
	   <td class="title" align=center width=60>长度(m)</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 zsjjcCount-1%>
	  <tr height="20" align=center>
	   <td>&nbsp<input type=checkbox name=chzsjjc value=<%=split(zsjjc(i),"@")(1)%>></td>
	   <td>&nbsp<%=split(zsjjc(i),"@")(2)%></td>
	   <td>&nbsp<%=split(zsjjc(i),"@")(3)%></td>
	   <td>&nbsp<%=split(zsjjc(i),"@")(4)%></td>
	   <td>&nbsp<%=split(zsjjc(i),"@")(5)%></td>
	   <td>&nbsp<%=split(zsjjc(i),"@")(6)%></td>
	   <td>&nbsp<%=split(zsjjc(i),"@")(7)%></td>
	   <td>&nbsp<%=split(zsjjc(i),"@")(8)%></td>
	   <td>&nbsp<%=split(zsjjc(i),"@")(9)%></td>
	   <td>&nbsp<%=split(zsjjc(i),"@")(10)%></td>
	   <td>&nbsp<%=split(zsjjc(i),"@")(11)%></td>
	   <td>&nbsp<%=split(zsjjc(i),"@")(12)%></td>
	   <td>&nbsp<%=split(zsjjc(i),"@")(13)%></td>
	   <td>&nbsp<%=split(zsjjc(i),"@")(14)%></td>
	   <td>&nbsp<%=split(zsjjc(i),"@")(15)%></td>
	   <td>&nbsp<%=split(zsjjc(i),"@")(16)%></td>
	   <td>&nbsp<%=split(zsjjc(i),"@")(17)%></td>
	   <td>&nbsp<%=split(zsjjc(i),"@")(18)%></td>
	   <td>&nbsp<%=split(zsjjc(i),"@")(19)%></td>
	   <td>&nbsp<%=split(zsjjc(i),"@")(20)%></td>
	   <td>&nbsp<%=split(zsjjc(i),"@")(21)%></td>
	   <td>&nbsp<%=split(zsjjc(i),"@")(22)%></td>
	   <td>&nbsp<textarea rows=2 cols=25 class=text><%=split(zsjjc(i),"@")(23)%></textarea></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_zsjjc_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_zsjjc_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 + -