📄 etcell+
字号:
本zip文件共有三个文件：
1、EtCell.ocx EtCell插件/控件，可以通过 Regsvr32 c:\EtCell\EtCell.ocx 方法进行注册
2、EtCell.cab 开发WEB报表用的CAB包，放在WEB服务器的一个目录下，可以是任何目录，然后在<object...>...</object>下指定位置即可，具体请看下面的test.htm例子；
3、EtCell.chm EtCell插件/控件得SDK开发文档
关于更多内容请到http://www.etcell.com
有什么问题可以在BBS上发表，我们会尽快答复：
http://www.etcell.com/cgi-bin/index.asp
备注：
用EtCell报表插件开发WEB程序的一般步骤
1、用WinTable制表工具制作报表式样.ET文件（怎么显示数据库、打印报表）;
例如：制作的报表命名为test.eT，和下面的test.htm、GetDB.asp放到一个WEB目录下；
2、编写WEB服务器段程序，例如ASP程序，此程序直接连接数据库，提取数据库的内容；在ASP(PHP、JSP、DLL)程序中用Response把数据库的内容输出为EtCell支持的XML格式；
例如:(命名为GetDB.asp)
<%
id = Request.Form("id")
'下面是输出为EtCell认可的XML格式数据
'和通过ASP输出为动态的Html页面方法一样
str = "<?xml version='1.0' encoding='gb2312'?> " & chr(13)
str = str & "<EtCell>" & chr(13)
str = str & "<ROWDATA>" & chr(13)
for I=0 to 10
str = str & "<ROW>" & chr(13)
str = str & "<aaa>货品" & I & "</aaa>" & chr(13)
str = str & "<bbb>" & I*300+1 & "</bbb>" & chr(13)
str = str & "<ccc>" & I*2000+1 & "</ccc>" & chr(13)
str = str & "</ROW>" & chr(13)
next
str = str & "</ROWDATA>" & chr(13)
str = str & "</EtCell>" & chr(13)
Response.write str
%>
3、编写显示EtCell报表的页面，此页面可以是HTML文件，也可以是ASP页面，或者其他；形式如下：(命名为test.htm)
<html>
<head>
<title>一个利用EtCell显示动态报表的例子</title>
</head>
<Script language=javascript>
function win_load()
{
var aw = screen.availWidth;
var ah = screen.availHeight;
self.moveTo(0,0);
self.resizeTo(aw, ah);
//调用GetDB.asp程序取得查询数据库的结果数据
var strXML = EtCell1.HttpGetText("GetDB.asp");
//strXML = EtCell1.HttpPost("GetDB.asp","id=5");
//把查询数据库的结果数据写入EtCell报表，以便实现动态数据报表
//报表的格式已经在test.eT中定义好，数据将安装test.eT的格式进行填充数据
EtCell1.ImportXML(strXML);
}
</script>
<body onload = "win_load()" topmargin="0">
<object classid="clsid:20423C49-2276-43D5-BC6D-53829C41AEAD" id="EtCell1" width="685" height="445" CODEBASE="/etcell.cab#version=3,7,0,3">
<param name="FileName" value="test.eT">
<param name="Ruler" value="0">
<param name="FocusCellShape" value="0">
</object>
</body>
</html>
4、在IE中输入URL，例如：http://localhost/test.htm，那么就会自动安装EtCell插件(如果浏览端还没有安装EtCell插件)，并且显示报表；
5、GetDB.asp的格式完全可以写成下面的格式：
<%
id = Request.Form("id")
'下面是输出为EtCell认可的XML格式数据
'和通过ASP输出为动态的Html页面方法一样
str = "<?xml version='1.0' encoding='gb2312'?> " & chr(13)
str = str & "<EtCell>" & chr(13)
Dim root
root = server.mappath("/DB")
filePath = root + "\TestDB.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
' 查询数据库
Set Rs =CreateObject("ADODB.Recordset")
Rs.Open "SELECT * FROM Table where ID=" & id ,Conn,adOpenStatic
str = str & "<ROWDATA>" & chr(13)
do while not Rs.Eof
str = str & "<ROW>" & chr(13)
str = str & "<Name>" & Rs("Name") & "</Name>" & chr(13)
str = str & "<Address>" & Rs("Address") & "</Address>" & chr(13)
str = str & "<School>" & Rs("School") & "</School>" & chr(13)
str = str & "</ROW>" & chr(13)
Rs.MoveNext
loop
str = str & "</ROWDATA>" & chr(13)
str = str & "</EtCell>" & chr(13)
Response.write str
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -