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

智岛网格控件作为数据的表示层，可以非常方便的进行货币样式、人民币大小写、中文大小写、各种逻辑样式、百分比样式、千分位分割等样式设置；可以冻结、锁定行列、对输入数据进行验证；可对字段设置公式，方便快捷地统计、汇总数据。智岛网格控件以其丰富多样的表现形式、简单易用的操作赢得了广大软件开发人员的一致好评。下面和大家分享一下智岛网格控件在ASP中的应用心得：

图1 样式设置

图2 图片管理

图3 多层标题

图4 汇总模式

图5 冻结锁定

图6 合并模式

一、注册智岛网格控件

> 下载智岛网格控件（其文件名为OGrid.ocx）后，按照如下方法注册控件：
>
> 点击“开始”→“运行”；在运行对话框中输入以下命令：
> regsvr32 < OGrid.ocx文件的绝对路径> 注册智岛网格控件控件
> regsvr32 /u < OGrid.ocx文件的绝对路径> 解除智岛网格控件的注册

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

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

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

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

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

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

 1<table>   
 2&gt;  <tableinfo><!--表信息-->   
 3&gt;  <tablename>人事表</tablename><!--数据表名称-->   
 4&gt;  <fieldinfoarray>   
 5&gt;  <fieldinfo><!--记录字段信息的XML-->   
 6&gt;  <fieldname>姓名</fieldname><!--字段名称-->   
 7&gt;  <datatype>10</datatype><!--字段数据类型3:逻辑型7:数值型10:字符型12:备注型23:日期型-->   
 8&gt;  <celltype>0</celltype><!--表元类型0:文本框,1:组合框,2:检验框,3:日期时间,7:人民币小写栏金额控件-->   
 9&gt;  </fieldinfo>   
10&gt;  ...   
11&gt;  </fieldinfoarray>   
12&gt;  </tableinfo>   
13&gt;    
14&gt;  <rows><!--多行数据-->   
15&gt;  <row><!--单行数据-->   
16&gt;  <name>张三</name>   
17&gt;  <sex>男</sex>   
18&gt;  ...   
19&gt;  </row>   
20&gt;  ...   
21&gt;  </rows>   
22&gt;  </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

1<?xml version="1.0" encoding="gb2312"?>
2&gt;

> > ``` =Table_name ``` > > ```

> //生成XML文件头
> Do Until rstSchema.EOF
> if rstSchema("Table_name") = Table_name then
> if rstschema("column_Name")<>"ORowInfo" or rstschema("column_Name")<>"osysMachineID" then
>

 1&gt;  <fieldname>```
 2=rstschema("column_Name")
 3```</fieldname> <colname>```
 4=rstschema("column_Name")
 5```</colname>   
 6&gt;  ```
 7select case rstschema("data_type")   
 8&amp;gt;  case "130"   
 9&amp;gt;  if rstschema("CHARACTER_MAXIMUM_LENGTH") = 1073741823 then
10``` <datatype>12</datatype>   
11&gt;  <celltype>0</celltype>   
12&gt;  ```
13else
14``` <datatype>10</datatype>   
15&gt;  <celltype>0</celltype>   
16&gt;  ```
17end if   
18&amp;gt;  case 135
19``` <datatype>23</datatype>   
20&gt;  <celltype>3</celltype>   
21&gt;  ```
22case 3
23``` <datatype>7</datatype>   
24&gt;  <celltype>0</celltype>   
25&gt;  ```
26case 11
27``` <datatype>3</datatype>   
28&gt;  <celltype>2</celltype>   
29&gt;  ```
30case 131
31``` <datatype>10</datatype>   
32&gt;  <celltype>0</celltype>   
33&gt;  ```
34case 5
35``` <datatype>7</datatype>   
36&gt;  <celltype>0</celltype>   
37&gt;  ```
38case else
39``` <datatype>10</datatype>   
40&gt;  <celltype>0</celltype>   
41&gt;  ```
42end select
43``` </fieldinfo>   
44&gt;  ```
45end if   
46&amp;gt;  end if   
47&amp;gt;  rstSchema.MoveNextLoop   
48&amp;gt;  
49``` </fieldinfoarray>   
50&gt;  </tableinfo>   
51&gt;  <rows>   
52&gt;  //生成XML文件体   
53&gt;  ```
54   
55&amp;gt;  sql="select * from "&amp;amp;Table_name   
56&amp;gt;  rs.open sql,strConn,1,1   
57&amp;gt;  Do while Not rs.eof   
58&amp;gt;  
59``` <row>   
60&gt;  ```
61   
62&amp;gt;  for k=0 to rs.fields.count-1   
63&amp;gt;  if rs(k).name&amp;lt;&amp;gt;"ORowInfo" or rs(k).name&amp;lt;&amp;gt;"osysMachineID" then   
64&amp;gt;  
65``` &lt;```
66=rs(k).name
67```&gt;```
68=rs(k)
69```<!--```
70=rs(k).name
71```-->   
72&gt;  ```
73   
74&amp;gt;  end if   
75&amp;gt;  next   
76&amp;gt;  
77``` </row>   
78&gt;  ```
79   
80&amp;gt;  rs.movenext   
81&amp;gt;  loop   
82&amp;gt;  rs.close   
83&amp;gt;  
84``` </rows>   
85&gt;  </table>

>
> 2. 代码实现
>
> 通过以下语句通知智岛网格控件打开XML文档：
>
> OGrid.SetTableXML(OGrid.HttpGet("http://www.oapro.com/mdb2xml.asp","Table_name=``` =TABLE_NAME

 1&gt;    
 2&gt;  其中方法HttpGet有二个参数，第一个参数为我们上面介绍的实现数据库转换XML格式的网页地址，一定要为网址格式，不能用相对或绝对路径（因为目前该方法尚不支持），第二个参数为传递到该文件的参数，这里我们传递的是数据表名称：Table_name。 
 3
 4**五、保存对数据的修改**
 5
 6&gt; 在网格控件中可以新增、删除记录以及修改记录内容，如何使这些修改保存到数据源中去？智岛网格控件提供了三个这方面的事件：   
 7&gt;    
 8&gt;  1\. 新增记录：EventSQLInsertRecord(strTableName,strSQL)   
 9&gt;  2\. 删除记录：EventSQLDeleteRecord(strTableName,strSQL)   
10&gt;  3\. 修改记录：EventSQLUpdateRecord(strTableName,strSQL)   
11&gt;  其中：   
12&gt;  strTableName为产生事件的数据表名称；   
13&gt;  strSQL为执行事件的SQL语句。   
14&gt;    
15&gt;  这二个参数由智岛网格控件提供给我们，供我们调用。   
16&gt;    
17&gt;  我们可通过脚本实现对事件的触发，以下是一范例代码：   
18&gt;    
19&gt;

1&gt;    
2&gt;  以上代码实现了网格控件的记录发生修改时，便调用updata.asp文件实现对数据库相关内容进行修改。updata.asp文件内容如下：   
3&gt;    
4&gt;  ```
5@language=vbscript codepage=936

> ```

dim sql
sql=request.QueryString("sql")
response.write sql
strConn="DBQ="+server.mappath("db.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.open strConn
oConn.Execute(sql)
response.write sql

1
2**六、范例**
3
4&gt; 上面文章完整地介绍了智岛网格控件在ASP中的使用全过程，也许一个编辑成型的范例更具有说服力。那么就请领略这份鲜活的感觉吧：  _http://www.oapro.com/ostarocx/sample/ogrid_f/default.asp_ 。

Published At2005-12-18 03:40 UTC

Categories with Web编程

Tagged with

网格