内容发布更新时间 : 2024/5/4 3:50:49星期一 下面是文章的全部内容请认真阅读。
巧用Delphi与Excel实现电大学生证的自动打印
Automatic Printing of TVU Students Card Using Delphi and Excel CHEN Yi-kui
（Shanwei Radio and TV University，Shanwei 516600，China）
： Information technology has changed people's way of life and work， makes people free from repetitive and tedious work， and completing the work with greater efficiency. Discussed in this paper is how to realize the automatic printing of TVU student card with the application of delphi and excel， including the application of ADO component in Delphi， Excel data access， printing with the way of using ComObj interface to call excel function. 电视大学是由分布在基层的市县电大统一招生，由省电大和中央电大审核录取。录取工作完成后，市县电大会收到由省电大下发的Excel文档格式的录取学生名单和相应数量的空白学生证。市县电大教务人员再将学生名单和空白学生证分发给各班辅导员，由辅导员手动填写制作学生证。手写学生证存在效率低、不美观不统一、易出错等弊端。因此，如果能开发一个程序自动去调用Excel文档中的学生信息，并自动打印到学生证上，将大
大提高工作效率，同时学生证也将更加美观整洁。该文将详细阐述利用Delphi技术来解决学生证的自动打印问题。 1 Delphi与ADO技术
ADO （ActiveX Data Objects） 是一个用于访问数据源的COM组件。它为编程语言与统一数据访问方式OLE DB之间建立了一个中间层，用以实现对各种数据库的数据访问。ADO提供了很多对象用于实现对数据库的连接与调用等操作，最重要的三个对象为数据库连接对象Connection， 记录集合对象Recordset和SQL命令对象Command。
Delphi 拥有一个可视化的集成开发环境（IDE），采用面向对象的编程语言ObjectPascal和基于部件的开发结构框架。在Delphi众多的优势当中，它在数据库方面的特长显得尤为突出，适应多种数据库结构、高效率的数据库管理系统、最新的数据分析手段等。在数据库调用方面，Delphi完全支持ADO数据访问技术，采用一套完整的ADO组件实现对ADO对象的封装与调用。 1.1 ADO连接组件TADOConnection
TADOConnection组件用于建立与ADO数据存储的连接，其中最主要的属性为ConnectionString属性，用于指明数据源驱动、数据库文件和登录用户及密码等数据库连接信息。 1.2 ADO数据操纵组件TADODataSet、TADOTable、TADOQuery 三个组件都可以通过TADOConnection组件或直接设置其ConnectionString属性建立数据连接，然后通过调用执行SQL
语句和存储过程来操纵数据库表。三者之间，TADODataSet组件功能最强大，它封装了TTable、TQuery和TStoredProc等组件所有基于BDE程序的功能。TADOTable组件主要实现对单个数据库表的获取与操作。TADOQuery组件的使用最为灵活，通过执行SQL语句调用与操纵各个数据库表中的数据。 1.3 ADO数据集的绑定与显示
通过ADO操纵组件执行数据查询（select）操作后会返回相应的数据集合。TDataSource数据源组件用于绑定由ADO操纵组件返回的数据集，并做为TDBGrid、TDBNavigator等数据显示组件的数据源。通过图1可直观反映各个组件之间的关系。 图1 ADO组件关系图
图1中，在ADO数据操纵组件部分，该文选用了TADOQuery组件，该组件功能齐全、使用灵活。 2 Delphi与Excel的互连
Excel是目前最常用的电子表格处理软件，功能强大、使用方便。除了具备数据排版、计算处理、统计分析等功能外，Excel采用关系型数据库的方式对数据进行组织与管理。这使得Delphi通过ADO连接组件TADOConnection与Excel进行互连成为可能。 以下为TADOConnection组件连接Excel时所需要设置的ConnectionString属性的信息。
Provider=Microsoft.Jet.OLEDB.4.0； Data Source=D：＼xxxx.xls；