<script language="javascript">
<!--
//window.moveTo(2000,2000);
// window.resizeTo(10,10);
// alert("您没有钢瓶管理的权限!");
// window.close();
//-->
</script>
<html>
<head>
<title>气瓶监察</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="http://www.cnblogs.com/http://www.cnblogs.com/pub_css/joe.css" type="text/css">
<script language='JavaScript'>
function OnNoInstallATGrid()
{
var str="你必须首先安装ATGrid报表插件,才能看到系统演示效果!\n";
str ="\n\n安装方法:在刚才弹出的\\"安全设置警告\\"对话中选择\\"是(Y)\\"";
str ="\n\n那么将会自动安装ATGrid插件!\n\n";
str ="\n\n\n如果你是WindowXP系统,那么请在IE窗口的最上方,点击安装!!\n\n";
str ="\n\n可以重新返回上面的URL网址进行安装,或者重新刷新页面进行安装!\n\n谢谢合作!!!!!\n\n";
alert(str);
window.location.href = 'http://www.cnblogs.com/../print.exe';
//弹出一个网页提示用户进行下载安装,安装结束后然后重新进入带有ATGrid报表控件的web页面
/*window.showModalDialog('DownloadATGrid.aspx',this,'dialogWidth=480px;dialogHeight=360px;center=yes;help=no;status=no');
*/
}
</script>
</head>
<body leftmargin="0" topmargin="0">
<object classid="clsid:20423C49-2276-43D5-BC6D-53829C41AEAD" id="EtCell1" width="850" height="445" CODEBASE="/etcell.cab#version=3,6,0,3" οnerrοr='OnNoInstallATGrid();' >
<param name="Ruler" value="0">
<param name="_Version" value="196614">
<param name="_ExtentX" value="19262">
<param name="_ExtentY" value="14235">
<param name="_StockProps" value="0">
<param name="FileName" value="">
<param name="Script" value>
<param name="CanSizeRow" value="-1">
<param name="CanSizeCol" value="-1">
<param name="Ruler" value="0">
<param name="Rows" value="10">
<param name="Cols" value="10">
<param name="NotScrollRows" value="0">
<param name="NotScrollCols" value="0">
<param name="PrintEtCellBackColor" value="0">
<param name="PrintCellBackColor" value="0">
<param name="FixedCellSelect" value="0">
<param name="MultiSelect" value="0">
<param name="PrintHeaderText" value>
<param name="PrintFooterText" value>
<param name="PrintHeaderLine" value="0">
<param name="PrintFooterLine" value="0">
<param name="PrintPageNo" value="true">
<param name="PrintDirectH" value="0">
<param name="PrintFullPage" value="-1">
<param name="ConnectionString" value>
<param name="DatabaseTableName" value>
<param name="DatabaseActive" value="0">
<param name="Border3D" value="-1">
<param name="RunStartScript" value="-1">
<param name="ReadOnly" value="false">
<param name="DefaultLibFileName" value>
<param name="FocusCellShape" value="0">
</object>
<script language="vbscript">
etcell1.cols=9
etcell1.rows=20
etcell1.setcolwidth 1,0
etcell1.setrowheight 1,0
etcell1.mergecells 2,2,2,9
etcell1.setcellalign 2,2,2
etcell1.setcellalign 2,2,6
etcell1.setrowheight 2,60
etcell1.setrowheight 3,0
etcell1.setcellfont 2,2,"宋体",30
etcell1.SetCellFontStyle 2,2,1
etcell1.setcell 2,2,"气 瓶 动 态 监 察 统 计"
for i=2 to 9
etcell1.setcellalign 4,i,2
etcell1.setcellalign 4,i,6
etcell1.SetCellFontStyle 4,i,1
next
etcell1.setcolwidth 2,50
etcell1.setcolwidth 3,80
etcell1.setcolwidth 4,80
etcell1.setcolwidth 5,80
etcell1.setcolwidth 6,80
etcell1.setcolwidth 7,80
etcell1.setcolwidth 8,80
etcell1.setcolwidth 9,80
etcell1.setcell 4,2,"序号"
etcell1.setcell 4,3,"地区"
etcell1.setcell 4,4,"企业数"
etcell1.setcell 4,5,"气瓶总数"
etcell1.setcell 4,6,"已检"
etcell1.setcell 4,7,"未检"
etcell1.SetCell 4,8,"未报废"
etcell1.SetCell 4,9,"已报废"
</script>
<script language="VBScript">
etcell1.SetCellAlign 5,2,2
etcell1.SetCellAlign 5,2,6
etcell1.setcell 5,2,"1"
etcell1.SetCellAlign 5,3,2
etcell1.SetCellAlign 5,3,6
etcell1.setcell 5,3,"晋中市 "
etcell1.SetCellAlign 5,4,2
etcell1.SetCellAlign 5,4,6
etcell1.setcell 5,4,"0"
etcell1.SetCellAlign 5,5,2
etcell1.SetCellAlign 5,5,6
etcell1.setcell 5,5,"0"
etcell1.SetCellAlign 5,6,2
etcell1.SetCellAlign 5,6,6
etcell1.setcell 5,6,"0"
etcell1.SetCellAlign 5,7,2
etcell1.SetCellAlign 5,7,6
etcell1.setcell 5,7,"0"
etcell1.SetCellAlign 5,8,2
etcell1.SetCellAlign 5,8,6
etcell1.SetCell 5,8,"0"
etcell1.SetCellAlign 5,9,2
etcell1.SetCellAlign 5,9,6
etcell1.SetCell 5,9,"0"
</script>
<script language="VBScript">
etcell1.SetCellAlign 6,2,2
etcell1.SetCellAlign 6,2,6
etcell1.setcell 6,2,"2"
etcell1.SetCellAlign 6,3,2
etcell1.SetCellAlign 6,3,6
etcell1.setcell 6,3,"太原市"
etcell1.SetCellAlign 6,4,2
etcell1.SetCellAlign 6,4,6
etcell1.setcell 6,4,"0"
etcell1.SetCellAlign 6,5,2
etcell1.SetCellAlign 6,5,6
etcell1.setcell 6,5,"0"
etcell1.SetCellAlign 6,6,2
etcell1.SetCellAlign 6,6,6
etcell1.setcell 6,6,"0"
etcell1.SetCellAlign 6,7,2
etcell1.SetCellAlign 6,7,6
etcell1.setcell 6,7,"0"
etcell1.SetCellAlign 6,8,2
etcell1.SetCellAlign 6,8,6
etcell1.SetCell 6,8,"0"
etcell1.SetCellAlign 6,9,2
etcell1.SetCellAlign 6,9,6
etcell1.SetCell 6,9,"0"
</script>
<script language="VBScript">
etcell1.SetCellAlign 7,2,2
etcell1.SetCellAlign 7,2,6
etcell1.setcell 7,2,"3"
etcell1.SetCellAlign 7,3,2
etcell1.SetCellAlign 7,3,6
etcell1.setcell 7,3,"大同市"
etcell1.SetCellAlign 7,4,2
etcell1.SetCellAlign 7,4,6
etcell1.setcell 7,4,"0"
etcell1.SetCellAlign 7,5,2
etcell1.SetCellAlign 7,5,6
etcell1.setcell 7,5,"0"
etcell1.SetCellAlign 7,6,2
etcell1.SetCellAlign 7,6,6
etcell1.setcell 7,6,"0"
etcell1.SetCellAlign 7,7,2
etcell1.SetCellAlign 7,7,6
etcell1.setcell 7,7,"0"
etcell1.SetCellAlign 7,8,2
etcell1.SetCellAlign 7,8,6
etcell1.SetCell 7,8,"0"
etcell1.SetCellAlign 7,9,2
etcell1.SetCellAlign 7,9,6
etcell1.SetCell 7,9,"0"
</script>
<script language="VBScript">
etcell1.SetCellAlign 8,2,2
etcell1.SetCellAlign 8,2,6
etcell1.setcell 8,2,"4"
etcell1.SetCellAlign 8,3,2
etcell1.SetCellAlign 8,3,6
etcell1.setcell 8,3,"阳泉市"
etcell1.SetCellAlign 8,4,2
etcell1.SetCellAlign 8,4,6
etcell1.setcell 8,4,"0"
etcell1.SetCellAlign 8,5,2
etcell1.SetCellAlign 8,5,6
etcell1.setcell 8,5,"0"
etcell1.SetCellAlign 8,6,2
etcell1.SetCellAlign 8,6,6
etcell1.setcell 8,6,"0"
etcell1.SetCellAlign 8,7,2
etcell1.SetCellAlign 8,7,6
etcell1.setcell 8,7,"0"
etcell1.SetCellAlign 8,8,2
etcell1.SetCellAlign 8,8,6
etcell1.SetCell 8,8,"0"
etcell1.SetCellAlign 8,9,2
etcell1.SetCellAlign 8,9,6
etcell1.SetCell 8,9,"0"
</script>
<script language="VBScript">
etcell1.SetCellAlign 9,2,2
etcell1.SetCellAlign 9,2,6
etcell1.setcell 9,2,"5"
etcell1.SetCellAlign 9,3,2
etcell1.SetCellAlign 9,3,6
etcell1.setcell 9,3,"长治市"
etcell1.SetCellAlign 9,4,2
etcell1.SetCellAlign 9,4,6
etcell1.setcell 9,4,"0"
etcell1.SetCellAlign 9,5,2
etcell1.SetCellAlign 9,5,6
etcell1.setcell 9,5,"0"
etcell1.SetCellAlign 9,6,2
etcell1.SetCellAlign 9,6,6
etcell1.setcell 9,6,"0"
etcell1.SetCellAlign 9,7,2
etcell1.SetCellAlign 9,7,6
etcell1.setcell 9,7,"0"
etcell1.SetCellAlign 9,8,2
etcell1.SetCellAlign 9,8,6
etcell1.SetCell 9,8,"0"
etcell1.SetCellAlign 9,9,2
etcell1.SetCellAlign 9,9,6
etcell1.SetCell 9,9,"0"
</script>
<script language="VBScript">
etcell1.SetCellAlign 10,2,2
etcell1.SetCellAlign 10,2,6
etcell1.setcell 10,2,"6"
etcell1.SetCellAlign 10,3,2
etcell1.SetCellAlign 10,3,6
etcell1.setcell 10,3,"晋城市"
etcell1.SetCellAlign 10,4,2
etcell1.SetCellAlign 10,4,6
etcell1.setcell 10,4,"0"
etcell1.SetCellAlign 10,5,2
etcell1.SetCellAlign 10,5,6
etcell1.setcell 10,5,"0"
etcell1.SetCellAlign 10,6,2
etcell1.SetCellAlign 10,6,6
etcell1.setcell 10,6,"0"
etcell1.SetCellAlign 10,7,2
etcell1.SetCellAlign 10,7,6
etcell1.setcell 10,7,"0"
etcell1.SetCellAlign 10,8,2
etcell1.SetCellAlign 10,8,6
etcell1.SetCell 10,8,"0"
etcell1.SetCellAlign 10,9,2
etcell1.SetCellAlign 10,9,6
etcell1.SetCell 10,9,"0"
</script>
<script language="VBScript">
etcell1.SetCellAlign 11,2,2
etcell1.SetCellAlign 11,2,6
etcell1.setcell 11,2,"7"
etcell1.SetCellAlign 11,3,2
etcell1.SetCellAlign 11,3,6
etcell1.setcell 11,3,"朔州市"
etcell1.SetCellAlign 11,4,2
etcell1.SetCellAlign 11,4,6
etcell1.setcell 11,4,"0"
etcell1.SetCellAlign 11,5,2
etcell1.SetCellAlign 11,5,6
etcell1.setcell 11,5,"0"
etcell1.SetCellAlign 11,6,2
etcell1.SetCellAlign 11,6,6
etcell1.setcell 11,6,"0"
etcell1.SetCellAlign 11,7,2
etcell1.SetCellAlign 11,7,6
etcell1.setcell 11,7,"0"
etcell1.SetCellAlign 11,8,2
etcell1.SetCellAlign 11,8,6
etcell1.SetCell 11,8,"0"
etcell1.SetCellAlign 11,9,2
etcell1.SetCellAlign 11,9,6
etcell1.SetCell 11,9,"0"
</script>
<script language="VBScript">
etcell1.SetCellAlign 12,2,2
etcell1.SetCellAlign 12,2,6
etcell1.setcell 12,2,"8"
etcell1.SetCellAlign 12,3,2
etcell1.SetCellAlign 12,3,6
etcell1.setcell 12,3,"忻州市"
etcell1.SetCellAlign 12,4,2
etcell1.SetCellAlign 12,4,6
etcell1.setcell 12,4,"0"
etcell1.SetCellAlign 12,5,2
etcell1.SetCellAlign 12,5,6
etcell1.setcell 12,5,"0"
etcell1.SetCellAlign 12,6,2
etcell1.SetCellAlign 12,6,6
etcell1.setcell 12,6,"0"
etcell1.SetCellAlign 12,7,2
etcell1.SetCellAlign 12,7,6
etcell1.setcell 12,7,"0"
etcell1.SetCellAlign 12,8,2
etcell1.SetCellAlign 12,8,6
etcell1.SetCell 12,8,"0"
etcell1.SetCellAlign 12,9,2
etcell1.SetCellAlign 12,9,6
etcell1.SetCell 12,9,"0"
</script>
<script language="VBScript">
etcell1.SetCellAlign 13,2,2
etcell1.SetCellAlign 13,2,6
etcell1.setcell 13,2,"9"
etcell1.SetCellAlign 13,3,2
etcell1.SetCellAlign 13,3,6
etcell1.setcell 13,3,"临汾市"
etcell1.SetCellAlign 13,4,2
etcell1.SetCellAlign 13,4,6
etcell1.setcell 13,4,"0"
etcell1.SetCellAlign 13,5,2
etcell1.SetCellAlign 13,5,6
etcell1.setcell 13,5,"0"
etcell1.SetCellAlign 13,6,2
etcell1.SetCellAlign 13,6,6
etcell1.setcell 13,6,"0"
etcell1.SetCellAlign 13,7,2
etcell1.SetCellAlign 13,7,6
etcell1.setcell 13,7,"0"
etcell1.SetCellAlign 13,8,2
etcell1.SetCellAlign 13,8,6
etcell1.SetCell 13,8,"0"
etcell1.SetCellAlign 13,9,2
etcell1.SetCellAlign 13,9,6
etcell1.SetCell 13,9,"0"
</script>
<script language="VBScript">
etcell1.SetCellAlign 14,2,2
etcell1.SetCellAlign 14,2,6
etcell1.setcell 14,2,"10"
etcell1.SetCellAlign 14,3,2
etcell1.SetCellAlign 14,3,6
etcell1.setcell 14,3,"运城市"
etcell1.SetCellAlign 14,4,2
etcell1.SetCellAlign 14,4,6
etcell1.setcell 14,4,"0"
etcell1.SetCellAlign 14,5,2
etcell1.SetCellAlign 14,5,6
etcell1.setcell 14,5,"0"
etcell1.SetCellAlign 14,6,2
etcell1.SetCellAlign 14,6,6
etcell1.setcell 14,6,"0"
etcell1.SetCellAlign 14,7,2
etcell1.SetCellAlign 14,7,6
etcell1.setcell 14,7,"0"
etcell1.SetCellAlign 14,8,2
etcell1.SetCellAlign 14,8,6
etcell1.SetCell 14,8,"0"
etcell1.SetCellAlign 14,9,2
etcell1.SetCellAlign 14,9,6
etcell1.SetCell 14,9,"0"
</script>
<script language="VBScript">
etcell1.SetCellAlign 15,2,2
etcell1.SetCellAlign 15,2,6
etcell1.setcell 15,2,"11"
etcell1.SetCellAlign 15,3,2
etcell1.SetCellAlign 15,3,6
etcell1.setcell 15,3,"吕梁市"
etcell1.SetCellAlign 15,4,2
etcell1.SetCellAlign 15,4,6
etcell1.setcell 15,4,"0"
etcell1.SetCellAlign 15,5,2
etcell1.SetCellAlign 15,5,6
etcell1.setcell 15,5,"0"
etcell1.SetCellAlign 15,6,2
etcell1.SetCellAlign 15,6,6
etcell1.setcell 15,6,"0"
etcell1.SetCellAlign 15,7,2
etcell1.SetCellAlign 15,7,6
etcell1.setcell 15,7,"0"
etcell1.SetCellAlign 15,8,2
etcell1.SetCellAlign 15,8,6
etcell1.SetCell 15,8,"0"
etcell1.SetCellAlign 15,9,2
etcell1.SetCellAlign 15,9,6
etcell1.SetCell 15,9,"0"
</script>
<script language="VBScript">
etcell1.mergecells 16,2,16,3
etcell1.SetCellAlign 16,2,2
etcell1.SetCellAlign 16,2,6
etcell1.setcell 16,2,"总计:"
etcell1.SetCellAlign 16,4,2
etcell1.SetCellAlign 16,4,6
EtCell1.setcell 16,4,"0"
etcell1.SetCellAlign 16,5,2
etcell1.SetCellAlign 16,5,6
EtCell1.setcell 16,5,"0"
etcell1.SetCellAlign 16,6,2
etcell1.SetCellAlign 16,6,6
EtCell1.setcell 16,6,"0"
etcell1.SetCellAlign 16,7,2
etcell1.SetCellAlign 16,7,6
EtCell1.setcell 16,7,"0"
etcell1.SetCellAlign 16,8,2
etcell1.SetCellAlign 16,8,6
EtCell1.setcell 16,8,"0"
etcell1.SetCellAlign 16,9,2
etcell1.SetCellAlign 16,9,6
EtCell1.setcell 16,9,"0"
EtCell1.rows=16
EtCell1.SetRangeBorder "A1","I3",1
etcell1.SetRangeBorder "A4","I16",2
</script>
<br>
<div align="center"><input type="button" value="打印预览" onClick="EtCell1.PrintPreView()">
<input type="button" value="打印" onClick="EtCell1.Print(true)"> <input type=button value="关闭" onClick="window.close()"></div>
</body>
</html>