在ASP中使用智岛网格控件全过程

图1 样式设置

图2 图片管理

图3 多层标题

图4 汇总模式

图5 冻结锁定

图6 合并模式

一、注册智岛网格控件

下载智岛网格控件（其文件名为OGrid.ocx）后，按照如下方法注册控件：

点击“开始”→“运行”；在运行对话框中输入以下命令：
regsvr32　< OGrid.ocx文件的绝对路径>　 注册智岛网格控件控件
regsvr32 /u < OGrid.ocx文件的绝对路径> 解除智岛网格控件的注册

二、在页面中添加智岛网格控件

在页面中加入以下代码，即可插入智岛网格控件：

<object classid="clsid:79B00E6B-6110-46AE-891C-97773022C958" width="0" height="0" id="OGrid" CODEBASE="http://www.oapro.com/ostarocx/download/OGrid.ocx"></object>

其中:
width和height：指控件的显示宽度和高度；
id：指控件对象的名称，通过该名称实现对控件的操作；
CODEBASE：指没有安装智岛网格控件的客户端运行该页面时自动下载安装该控件的刂贰?lt;/P>

三、用智岛网格控件表现XML格式数据

1. XML文档格式

智岛网格控件采用XML文档作为数据存储交换格式，下面是一份XML文档格式：

<?xml version="1.0" encoding="GB2312"?>
<Table>
<TableInfo><!--表信息-->
<TableName>人事表</TableName><!--数据表名称-->
<FieldInfoArray>
<FieldInfo><!--记录字段信息的XML-->
<FieldName>姓名</FieldName><!--字段名称-->
<DataType>10</DataType><!--字段数据类型3:逻辑型7:数值型10:字符型12:备注型23:日期型-->
<CellType>0</CellType><!--表元类型0:文本框,1:组合框,2:检验框,3:日期时间,7:人民币小写栏金额控件-->
</FieldInfo>
...
</FieldInfoArray>
</TableInfo>

<Rows><!--多行数据-->
<Row><!--单行数据-->
<name>张三</name>
<sex>男</sex>
...
</Row>
...
</Rows>
</Table>

2. 代码实现

通过以下语句通知智岛网格控件打开XML文档：

OGrid.OpenTableXML("")

其中引号内XML文档的绝对路径，例如：
http://www.oapro.com/ostarocx/sample/OGrid/xml/样式设置.xml
或者
C:\样式设置.xml

四、用智岛网格控件表现来自于数据库的数据

1. XML文档格式

智岛网格控件采用XML文档作为交换格式，但更多的数据源是数据库，如何表现来自于数据库的数据呢？我们可以将数据库的数据动态转为XML格式。以下代码实现了将一ACCESS数据库中指定数据表的内容转为XML文档格式。您可将代码中db.mdb文件换成您自己的数据库名称。指定的数据表名称来自于传递到该文件的参数值：Table_name。

<%
dim sql,rs
dim Table_name
<!--取得数据表名称-->
Table_name=request.QueryString("Table_name")
Set rs= Server.CreateObject("ADODB.Recordset")
Const adSchemaTables = 20
adSchemaColumns = 4
strConn="DBQ=" server.mappath("db.mdb") ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.open strConn
Set rstSchema = oConn.OpenSchema(adSchemaColumns)
Set rsttable = oConn.OpenSchema(adSchemaTables)
i=0
%><?xml version="1.0" encoding="gb2312"?>
<Table>
<TableInfo>
<TableName><%=Table_name%></TableName>
<FieldInfoArray>
<%
//生成XML文件头
Do Until rstSchema.EOF
if rstSchema("Table_name") = Table_name then

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有