首页 | 社区 | 博客 | 招聘 | 文章 | 新闻 | 下载 | 读书 | 代码
亲,您未登录哦! 登录 | 注册

VFP中利用Excel制作数据库报表

打印文章

分享到:
  笔者在工作中总结出了在VFP运行中利用Excel电子表格制作数据库报表的方法。编程中主要使用了CreateObject()函数,它可从类定义或支持OLE自动化的应用程序中创建对象,并将对象引用赋给变量或数组元素;若使用用户自定义类,则在创建对象之前,用户自定义类必须先用 Define Class 来创建,或者用 SET Classlib 打开的 .VCX 可视类库中的类。

  假定在一个VFP项目中有数据表:table1.dbf(其中总分暂为0):

  我们希望在VFP的这个项目运行时,调用Excel来处理这个数据表,并将处理结果存盘。下面的程序excel01.prg实现了这些要求,程序中用CreateObject()函数启动Excel,并新建一个Excel工作簿,然后打开数据表table1.dbf,取得该表的记录数,并将表table1.dbf的记录数据逐条送到这个工作簿的工作表Sheet1中(同时计算各记录的总分),稍加修改(例如设置字体、字号,画表格线等)作出这个数据表的报表,并用temp.xls文件名存盘。excel01.prg源程序如下:

  SET DEFAULT TO d:\myvfp\kwsjk

  Clear

  oleApp = CREATEOBJECT(″Excel.Application″)

  oleApp.Visible=.T. && 显示 Excel。

  oleApp.Workbooks.Add

  ** 设置单元格的值(报表标题):

  oleApp.Cells(1,1).Value=″贵州大学计算机软件与理论研究所″

  oleApp.Cells(2,1).Value=″学生成绩表″

  **

  oleApp.Cells(4,1).Value=″姓名″

  oleApp.Cells(4,2).Value=″数学″

  oleApp.Cells(4,3).Value=″网络″

  oleApp.Cells(4,4).Value=″数据库″

  oleApp.Cells(4,5).Value=″英语″

  oleApp.Cells(4,6).Value=″人工智能″

  oleApp.Cells(4,7).Value=″总分″

  ** 打开数据表,取得该表的记录数

  use table1.dbf

  jl=RECCOUNT()-1

  ** 将数据表中的记录数据放入Excel工作簿的单元格中

  FOR i=0 TO jl

   go i+1 && 第i+1条记录

  oleApp.Cells(5+i,1).Value=table1.姓名

   oleApp.Cells(5+i,2).Value=table1.数学

oleApp.Cells(5+i,3).Value=table1.网络

   oleApp.Cells(5+i,4).Value=table1.数据库

oleApp.Cells(5+i,5).Value=table1.英语

   oleApp.Cells(5+i,6).Value=table1.人工智能

** 计算总分:

  oleApp.Cells(5+i,7).Value=table1.数学+table1.网络+table1.数据库+
table1.英语+table1.人工智能

  ENDFOR

  OleApp.ActiveWorkbook.SaveAs(″D:\myvfp\kwsjk\temp.XLS″)

本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )

编程爱好者论坛

本栏最新文章