应用delphi编程实现excel数据导入和导入技术

应用delphi编程实现excel数据导入和导入技术

1解决sql东北部数据库所存在的问题的计算方法办公自动化信息数据库用户通常会发现需要将数据存储在excel数据库中的数据输入到sqlserver数据库，然后将数据输入到sqlserver数据库中的数据。不同的编程语言有不同的解决方法。本文介绍应用Delphi编程来实现Excel数据表到SQLServer数据库的数据导入导出技术。2基于ale的应用程序监控OLE自动化是Windows应用程序操纵另一个程序的一种机制。被操纵的一方称为自动化服务器,操纵自动化服务器的一方称为自动化控制器。通过引用这些对象实现对自动化服务器的调用,然后通过设置对象的属性和使用对象的方法操纵自动化服务器,实现两者之间的通讯。Delphi在数据库方面提供的强大又富有弹性的能力给广大编程人员带来了方便。dbExpress是Delphi下一代的数据访问技术。提供高效率数据访问以及提供跨平台能力的数据访问引擎。dbExpress包含了7个组件,它们是TSQLConnection、TSQLDataSet、TSQLQuery、TSQLStoredProc、TSQLTable、TSQLMonitor和TSimpleDataSet,这些组件的功能就是让应用程序连接后端数据库,访问数据表中的数据,把修改的数据更新回数据库中以及让程序员观察dbExpress向后端数据库下达命令等。Delphi完全支持OLE应用程序自动化,提供的Servers栏控件可以很容易开发OLE自动化控制器实现对OLE自动化服务器的调用。在Delphi内部运行OLE自动化程序需要在Uses语句中加入Comobj来开始自动化程序。通过调用CreateOleObject来检索一个自动化对象,CreateOleObject调用大量系统内部的OLE函数,创建一个Idispatch的实例,并从Variant中返回一个Delphi变量类型,可以根据不同的环境提供不同的功能,这里我们使用Variant来引用Excel内部的对象以建立Delphi与Excel之间的连接。并采用dbExpress建立Delphi和SQLServer之间的连接,来实现Excel数据表到SQLServer数据库的数据导入和导出。3有利于实现数据库的访问dbExpress通过TSQLConnection组件同SQLServer数据库进行连接。双击TSQLConnection,就会弹出它的组件编辑器,在这个组件编辑器里,我们就可以定义连接数据库的类型,数据库名称,登陆帐号、密码等信息。以下就是我们连接名为DBSERVER的数据库服务器的具体情况:DriverName=MSSQL//数据库类型HostName=DBSERVER//数据库服务器Database=ETEST//数据库名User_Name=sa//登陆帐号Password=sa//登陆密码BlobSize=-1LocaleCode=0000MSSQLTranslsolation=ReadCommitedOSAuthentication=False在连接上数据库以后,dbExpress提供了两种方法:一是使用TSimpleDataSet组件;二是使用TSQLDataSet搭配TDataSetProvider和TClientDataSet组件来对数据库进行访问。在实现简单数据访问操作中,这两种方法在功能上几乎是一模一样的,但是在有高性能要求的应用中,就需要使用第二种方法来实现对数据库的访问。本文只涉及简单的数据访问功能,所以采用第一种方法来实现对数据库的访问操作。定义待访问的数据表名为‘CSBY’,则具体的操作步骤如下:(1)在Form中放置TSQLConnection组件,按照连接数据库的方法建立与SQLServer数据库的连接,设置该组件的Connected属性为True以打开连接,LoginPrompt属性为False以避免每次连接数据库时都出现登陆框,设置Name属性为SQLConnection1。(2)在Form中放置TSimpleDataSet组件,设置该组件的Connection属性为SQLConnection1,DataSet.CommandText为‘select*fromCSBY’,设置Name属性为SimpleDataSet1。(3)在Form中放置TDataSource组件,设置该组件的DataSet属性为SimpleDataSet1,设置Name属性为DataSource1。(4)在Form中放置TDBGrid组件,设置该组件的DataSource属性为DataSource1,设置Name属性为DBGrid1,表CSBY中的数据将显示在TDBGrid组件中。4数据导入功能的数据导入导出技术的应用:在襄十高速公路车辆查询系统中,有很多由Excel数据表存储的数据资料需要导入到SQLServer数据库中,例如《载货类汽车质量参数调整更正表》就需要导入到SQLServer数据库中以便用来查询。如果由人工录入,工作量太大。解决的方法有两种,一是利用SQLServer企业管理器的导入导出向导功能直接将Excel数据表中的数据导入到SQLServer数据库中,但是这样数据库将暴露在普通用户面前,一旦用户误操作,就会造成很大的损失。二是在襄十高速公路车辆查询系统中实现数据导入的功能,这样可以避免数据库直接面向普通用户。这里采用方法二来实现数据导入功能。襄十高速公路车辆查询系统查询出来的结果需要导出到Excel数据表中,以报表的形式向上提交。这就需要在襄十高速公路车辆查询系统中实现能够将SQLServer数据库中的数据导出到Excel数据表中的功能。能够实现这个功能的方法很多,本文采用预先设置好Excel模板,然后再将数据导入到模板中的方法。这种方法灵活、方便,可以制作较复杂的Excel数据表,创建Excel对象的过程是在后台运行,避免用户在自动化运行期间干预Excel,而出现误操作。主要代码的实现:4.1创建什么工作薄在前面的Form中添加ExcelApplication、ExcelWorkbook和ExcelWorksheet三个控件。然后打开Excel应用程序,创建一个工作薄,如果打开工作薄失败,就断开与Excel的连接,然后关闭Excel应用程序。源程序如下:4.2ts条件调整数据库事务取出Excel数据表的每一行信息插入到已建好的,名为“CSBY”的SQLServer数据表中。为了保护数据的完整性,利用TSQLConnection的StartTransaction方法激活一个独立的数据库事务,以确保在SQLServer数据表更新出现错误的时候,能够调用TSQLConnection的Rollback方法将SQLServer数据表恢复到进行更新操作之前的状态。源程序如下:4.3在excel数据表中，来自sqlsrv数据库中的数据输入到excel数据表向预设的Excel模板中写入数据,就是利用ExcelWorksheet的Cells属性添加数值的过程。源程