etcell报表使用实例


<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()">&nbsp;&nbsp;&nbsp;&nbsp;
<input type="button" value="打印" onClick="EtCell1.Print(true)">&nbsp;&nbsp;&nbsp;&nbsp;<input type=button value="关闭" onClick="window.close()"></div>
         
</body>
</html>

EtCell报表组件v3.5.0.1面世了! 更新时间 2003.4.8 制表工具WinTable下载地址: http://www.etcell.com/download/WinTable2.zip 网站有详细介绍,最好从网站下载:http://www.etcell.com/ EtCell组件是开发B/S和C/S比较好的选择,可以B/S模式的应用具有C/S模式的一操作性并且让程序员完全从繁杂的打印中解脱出来,开发出来的产品及具有特色。 如果你想自定义自己的报表系统,那你选择EtCell是没错的 让你在2天之内拥有自己的报表系统! 要想知道更多信息,可以到 http://www.etcell.com/ 在线试用!!!!!绝对新鲜!!! 利用EtCell开发的一个网络报表平台例子: http://www.etcell.com/WebEtCell/ 利用EtCell开发的Internet进销存系统: http://www.etcell.com/Sales/ 支持的报表功能如下: 1、支持主从报表 2、交叉报表 3、支持分组报表:小计、汇总自由设置 4、支持的套打报表,让套打简单灵活 5、支持分组报表的每组打印控制 6、支持连续打印,解决了票据打印的难题 7、支持自定义报表 8、支持MIS开发的各种开发工具:如VC、VB、Delphi、C++Bulider、InterDev 9、支持WEB开发,FrontPage、InterDev、ASP.NEt、C# 10、EtCell内置支持VBScript脚本包括事件 11、在WEB上支持VBScript、JavaScript脚本 12、支持URL连接 13、支持的WEB服务器:NT的WEB服务器、Linux、Unix、WebLogic、TOMCAT、IIS; 14、在MIS开发中直接支持数据库,让程序开发更方便快捷
EtCell报表组件v3.4.0.2面世了! 更新时间 2003.3.2 制表工具WinTable下载地址: http://www.etcell.com/download/WinTable2.zip 网站有详细介绍,最好从网站下载:http://www.etcell.com/ EtCell组件是开发B/S和C/S比较好的选择,可以B/S模式的应用具有C/S模式的一操作性并且让程序员完全从繁杂的打印中解脱出来,开发出来的产品及具有特色。 如果你想自定义自己的报表系统,那你选择EtCell是没错的 让你在2天之内拥有自己的报表系统! 要想知道更多信息,可以到 http://www.etcell.com/ 在线试用!!!!!绝对新鲜!!! 利用EtCell开发的一个网络报表平台例子: http://www.etcell.com/WebEtCell/ 利用EtCell开发的Internet进销存系统: http://www.etcell.com/Sales/ 支持的报表功能如下: 1、支持主从报表 2、交叉报表 3、支持分组报表:小计、汇总自由设置 4、支持的套打报表,让套打简单灵活 5、支持分组报表的每组打印控制 6、支持连续打印,解决了票据打印的难题 7、支持自定义报表 8、支持MIS开发的各种开发工具:如VC、VB、Delphi、C++Bulider、InterDev 9、支持WEB开发,FrontPage、InterDev、ASP.NEt、C# 10、EtCell内置支持VBScript脚本包括事件 11、在WEB上支持VBScript、JavaScript脚本 12、支持URL连接 13、支持的WEB服务器:NT的WEB服务器、Linux、Unix、WebLogic、TOMCAT、IIS; 14、在MIS开发中直接支持数据库,让程序开发更方便快捷
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值