Delphi自动填表系统
关键词
介绍了使用Delphi开发自动向Excel填写数据的方法、思路和具体步骤，以及
发布系统时就访问Oracle和BDE数据库的一些处理方法。从而使读者对使用
Delphi开发数据库应用系统有一个感性的认识。
Delphi, Oracle, BDE, Excel，自动化
一、引言
随着微软的Office系列软件的普及，作为日常办公系统的
主要助手，Excel以其方便、简洁的特点，以及电子表格处理
功能，受到了许多用户的青睐，成为众多企业、个人存储数据
的主要工具。对于许多单位而言，很多日常所需的业务数据通
常都是通过电子表格存取的，当电子表格的数据来源于数据库
时，有时填报数据的工作就变得繁琐重复。笔者在实际工作中
接触到Oracle数据库管理员的日常工作中有一项内容就是需
要每天对Oracle数据库的表空间的使用量、空闲量、总空间
量以及常用表空间的使用量等数据进行监控并填报到Excel
中，由于表空间个数有近300个，这就使得将这些表空间数据
按指定格式填报变得很麻烦，每天都要花掉半个多小时的时
间。笔者用Delphi为数据库管理员开发了自动填表系统，大
大减少了管理员的工作量，现将其拿出与读者分享，希望对读
者有所帮助。
二、原理
要完成将数据库中的数据填写到Excel中就需要了解 Del-
phi .-rf Excel的通信机制。Delphi与Excel之ral通信主要有两种
方式:数据库连接方式和自动化方式。由于前者要求Excel表
格的数据是标准的格式，即役有合并单元格的情况。否则用数
据库连接方式得到的数据中存在空值的情况，因此笔者不采用
这种方法。后者是利用在Delphi内部运行OLE自动化程序调
用Excel。此种方法可以完成复杂的操作Excel的工作，只需在
Delphi程序单元的Uses语句后加上ComObj和Exce12000就可
以在程序中编写代码操作Excel。本文主要介绍此种方法的使
用过程。
三、自动填表系统
1.设计思路
自动填表系统主要完成从Oracle数据库查询得到表空间数
据后按指定的Excel数据格式填报数据，同时将数据结果保存
到对应的BDE数据库中，以便用作表空间历史趋势分析。系
统主要完成包括从Oracle数据库取数据、填报指定格式的Ex-
cel数据、数据保存到指定BDE数据库中等功能模块。其中还
会涉及到发布系统时需要考虑访问Oracle和BDE数据库的独
立性
2.本地BDE数据库的建立
本地数据库BDE主要用来存放表空间历史数据、参数数
据、临时处理表等内容。
首先运行BDE Administrator，点击Object -1 New，在New
Database Alias中选择STANDARD，单击OK。生成默认的数据库
别名(暂且命名为STANDARD2)，指明PATH属性设为存放数
据库的路径(路径暂且为D: \PROJECT\DATE)。单击Apply按
钮完成数据库的建立。双击Database Desktop，单击File-
New-Table后，在创建数据表的表类型选择Paradox?点击OK
建立数据表，保存路径为上面提到的D: \PROJECT\DATE。建
立的本地数据库的表类型如表1所示。
附件: 您所在的用户组无法下载或查看附件
