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

2022-07-15 80酷酷网 80kuku.com

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

智岛网格控件作为数据的表示层，可以非常方便的进行货币样式、人民币大小写、中文大小写、各种逻辑样式、百分比样式、千分位分割等样式设置；可以冻结、锁定行列、对输入数据进行验证；可对字段设置公式，方便快捷地统计、汇总数据。智岛网格控件以其丰富多样的表现形式、简单易用的操作赢得了广大软件开发人员的一致好评。下面和大家分享一下智岛网格控件在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>
<FieldName>姓名</FieldName>
<DataType>10</DataType>
<CellType>0</CellType>
</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
if rstschema("column_Name")<>"ORowInfo" or rstschema("column_Name")<>"osysMachineID" then
%> <FieldInfo>
<FieldName><%=rstschema("column_Name")%></FieldName> <ColName><%=rstschema("column_Name")%></ColName>
<%select case rstschema("data_type")
case "130"
if rstschema("CHARACTER_MAXIMUM_LENGTH") = 1073741823 then%> <DataType>12</DataType>
<CellType>0</CellType>
<%else%> <DataType>10</DataType>
<CellType>0</CellType>
<%end if
case 135%> <DataType>23</DataType>
<CellType>3</CellType>
<%case 3%> <DataType>7</DataType>
<CellType>0</CellType>
<%case 11%> <DataType>3</DataType>
<CellType>2</CellType>
<%case 131%> <DataType>10</DataType>
<CellType>0</CellType>
<%case 5%> <DataType&