特殊教育相关函授毕业论文范文,与OLE技术在VisualFoxPro中的应用相关论文参考文献格式

此文是一篇特殊教育论文范文,特殊教育相关论文范文资料,与OLE技术在VisualFoxPro中的应用相关硕士毕业论文。适合不知如何写特殊教育及参考文献及数据库方面的论文格式专业大学硕士和本科毕业论文以及特殊教育类开题报告范文和职称论文的作为写作参考文献资料下载。

摘 要 :通过具体实例介绍OLE技术在Visual FoxPro中的应用,如EXCEL、WORD等进行数据和程序间的相互联系.

关 键 词 :OLE,BA,ActiveX

自从OLE技术推出以来,用户可以方便地实现两个应用程序之间的通讯.VFP提供了许多OLE对象的操作函数,而Word也支持OLE技术,通过相应的编程,用户可以在程序中激活OLE对象,并对其进行一系列的操作.VFP和Word之间的信息共享机制是通过在VFP中创建并由Word提供可用OLE对象来实现.

一、Vfp利用OLE技术产生WORD文档

利用OLE技术,首先使用VFP的OLE对象创建函数CREATEOBJECT()来创建Word的OLE对象.

(一)创建WORD文档命令

WordApp等于CREATEOBJECT("Word.application"),这样就创建了一个OLE类对象.

(二)产生WordApp对象前使用下列命令检查当前工作区内是否有工作表

IF EMPTY(ALIAS())

MessageBox(“当前工作区没有打开工作表！”,48,“不能生成表格”)

ENDIF

(三)在产生WordApp对象后使用下列命令判断对象是否创建成功

If Type(“WordApp”)#“O”

WAIT CLEAR

MessageBox(“访问Word失败！请检查系统是否正确安装 Word软件！”,48,“没有安装Word”)

RETURN

ENDIF

提醒大家在使用该功能时注意当前的WORD软件处于关闭状态,否则会提示系统错误.

怎样撰写特殊教育学位论文
播放:20841次 评论:6752人

(四)该对象使用结束后使用以下命令关闭对象

RELEASE WordApp

二、使用OLE技术具体处理Word文件

(一)工作表的格式如下

(二)文档的基本属性设置

WordApp.Visible 等于.f.&&对象隐藏

WordApp.Caption 等于'njty.省略'&&WORD文件标题

(三)文档的文本及格式设置

WordApp.Documents.Add

WordApp.Documents(1).Range.Text等于“江苏省六类特殊教育学校数量统计表”

WordApp.Documents(1).Range.Font.Size等于15

WordApp.Documents(1).Range.Font.Name等于“黑体”

WordApp.Documents(1).Range.Paragraphs.Alignment等于1

WordAppRang等于WordApp.Documents(1).Range(LENC(WordApp.Documents(1).Range.Text)-1,,

LENC(WordApp.Documents(1).Range.Text)-1)

(四)文档的表格格式设置

WordTable等于WordApp.Documents(1).Tables.Add(WordAppRang,RECCOUNT()+1,FCOUNT())

WordTable.Range.Paragraphs.Alignment等于1

WordTable.Range.Font.Name等于“宋体”

WordTable.Range.Font.Size等于11

WordTable.Borders.Enable等于1

WordTable.Borders(1).LineWidth等于12

WordTable.Borders(2).LineWidth等于12

WordTable.Borders(3).LineWidth等于12

WordTable.Borders(4).LineWidth等于12

WordTable.Rows(1).Borders(3).LineWidth等于12

WordTable.Rows(1).Range.Font.Bold等于.t.

WordTable.Rows(1).Cells.VerticalAlignment等于1

WordTable.Rows(1).Range.Paragraphs.Alignment等于1

WordTable.Rows(1).HeadingFormat等于.t.

(五)文档的表格数据调用

FOR i等于1 TO FCOUNT()

WordTable.Cell(1,i).Range.Text等于FIELD(i)

FOR i2等于2 TO RECCOUNT()+1

GO i2-1

WordCellText等于EVALUATE(FIELD(i))

DO CASE

CASE ISNULL(Word