张勇

【摘 要】运用VB和Excel结合，开发防雷行政许可文档系统，可充分利用VB程序的界面友好，数据输入灵活高效的长处，又能利用Excel可快速生成精美表格文书，单元格可跨表引用的自动化更新的优点。

【关键词】VB Excel；行政许可；系统；设计

防雷装置设计审核和竣工验收（以下简称防雷行政许可）是气象主管机构行政许可的重要内容。相对于其他非行政许可审批项目事项而言，防雷行政许可具有申报量大、文书档案多等特点。根据《防雷装置设计审核和竣工验收规定》（中國气象局令第21号）附表所列，完成整个防雷行政许可办理流程，产生的各种文书可有14种之多。再加上根据行政许可法要求的《送达回证》等文书，则数量更多。如果采用纯手工操作，如此之多的文书档案制作，办事人员的工作量既繁重，又容易出错。为了向公众提供优质、高效、便捷、公正的行政审批服务，减轻办事窗口工作人员的工作强度，设计了防雷行政许可文档系统，经测试后投入使用。

1.开发工具的选择

选择合适的开发工具，往往会起到事半功倍的效果。由于该系统主要用于窗口前台，对开放性要求不高，而VB具有如下特点：（1）可视化的编程环境，无需编写大量的代码去描述界面元素的外观和环境。（2）面向对象的程序设计思想。（3）支持对象的链接与嵌入技术。VB的核心是对对象的链接与嵌入（OLE）技术的支持，它是访问所有对象的一种方法。利用OLE技术，能够开发集声音、图像、动画、字处理、Web等对象于一体的程序。（4）软件的集成式开发。VB为编程提供了一个集成开发环境。在这个环境中，编程者可设计界面、编写代码、调试程序，直至把应用程序编译成可在Windows中运行的可执行文件，并为它生成安装程序。VB的集成开发环境为编程者提供了很大的方便。因此。VB简单易用、开发效率高，选用作本系统的编程工具。

由于VB对输出复杂的中国式表格和格式文档有点力不从心，而Excel工作表可以设计出相当复杂的表格和十分精美的文字样式，因此，选择Excel作为嵌入的对象，先利用Excel设计好文书档案模板，然后利用VB将有关数据填充到Excel表格相应的单元格中，即可生成所需的输出文档。

2.系统设计思路

2.1 防雷行政许可业务流程

防雷行政许可事项包括防雷装置设计审核和防雷装置竣工验收两大部分。其业务流程基本相同，通常都是【收件】→【受理】→【审查】→【决定】。其流程图和输出文档如图1所示。

图1 防雷行政许可业务流程图

2.2 系统功能结构

防雷行政许可文档系统根据不同的业务事项，有不同的功能模块。各子系统及功能如下：（1）登录子系统：操作员身份验证。（2）设计审核子系统：办理防雷设计审核业务。（3）竣工验收子系统：办理防雷竣工验收业务。（4）查询子系统：查询以往业务记录。（5）打印子系统：打印输出各种文档。其功能体系结构如图2所示。

图2 系统功能体系结构

2.3 Excel文档模版的设计

Excel表的引入，主要目的就是生成符合规定形式的行政许可文书。由于Excel的单元格可以跨工作表引用，故先设计一个工作表存放每宗申请的所有信息，称为“基本信息”工作表。然后根据相关规定的文本格式，每种文书设计一个相应的工作表，如“接收材料清单”、“设计审核申报表”、“设计审核申请书”、“审核材料补正通知”等一系列的工作表。除“基本信息”以外的各种工作表，表中需填充数据信息的单元格，均引用自“基本信息”表中相应的单元格。这样，只需用VB编程修改“基本信息”工作表的数据，则所有的工作表的数据信息都自动进行修改，形成各种文书档案。如需增加文书种类，则增加工作表，引用相应单元格即可，大大减轻了系统开发的工作量。每宗行政许可申请，就复制一份Excel模版，以“申请编号”加“申请人名称”加“项目名称”为文件名，再往该Excel工作簿写入数据保存，就能得到一份电子版的文书档案。

2.4 VB编程的作用

用VB进行编程的目的，就是为系统使用者提供一个友好的用户界面，便于用户进行数据录入、查询、打印输出等操作。如《防雷装置设计审核申报表》中的结构类型、使用类别等繁多的选项，均用组合框控件Combox控件来辅助输入，用户只需点击选择即可录入，无需记忆诸多的类别名称和输入文字，达到快捷准确的目的。打印输出时，可任意选择打印的文书种类，不熟悉Excel的使用也能操作。

图3 系统主界面

3.系统设计编程要点

3.1用VB操作Excel表格

Vb是通过Excel的各种对象来控制Excel工作的。每个对象都有各自的方法和属性。通过方法可以实现对对象的控制，而修改属性和可以改变对象的各种状态。EXCEL是以层次结构组织对象的，在EXCEL对象的层次结构中，最顶层是Application对象，是Excel本身。从该对象开始往下依次是： Workbooks对象集，是Application对象的下层，其指的是Excel的工作簿文件。Worksheets对象集，是Workbooks对象集的下层，它表示的是Excel的一个工作表。Cells和Range对象，它们是worksheets对象的下层，它则指向Excel工作表中的一个或多个单元格。要控制Excel中的单元格（即Cells和Range对象），就必须从Excel层次结构对象的最上层即Application对象开始遍历，访问Cells和Range对象，用VB语句对该对象进行赋值，就达到了向指定单元格写入数据的目的。 （下转第200页）

（上接第82页）3.2系统设计中的几点注意事项

3.2.1检测Excel模版工作簿和用户数据Excel表是否正在运行

由于VB程序和Excel分属不同的系统，VB编写的程序和Excel可同时运行。当用VB程序访问已经用Excel软件打开的Excel表时，会出现自动化错误。故系统应有检测当前Excel是否正在运行，如运行，则要先关闭。

3.2.2 系统运行时设置Excel不可见

如果VB调用Excel时没有设置Excel不可见，那么Excel表的界面就和用Excel软件打开没什么两样，而且两边都可以进行修改，这样极易造成混乱，引发错误。所以，需在编程时设置Excel不可见，一切对Excel表的操作都由VB程序来进行。

4.结语

本系统重点在于生成行政许可的格式文书档案，用VB结合Excel进行开发，编程工作量可大幅减少，而又可以输出精美的格式文书，非VB直接输出可比拟。通过系统试运行，达到了快捷高效的目的，反映良好。

如结合数据库应用开发，可升级为行政服务窗口信息管理系统，还有很大的发展上升空间。 [科]