冒险小虎队的好句:VFP中利用Excel制作数据库报表
来源:百度文库 编辑:偶看新闻 时间:2024/04/28 22:24:06
VFP中利用Excel制作数据库报表
点击: 发布日期:2007-5-10 13:26:00 进入论坛假定在一个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″)
如何利用Excel在工程项目中充当数据库的角色?
用友财务软件用的是什么数据库,怎样使用友的报表在Excel中得到联动?
如何vfp数据库导成excel
如何excel把报表数据相加到另一个报表中
如何利用asp把数据库中的数据导入到一个excel表中
vfp报表打印中怎样调整列的大小
vfp报表打印中怎样调整列的大小
vfp中,使用vfp数据库,prg文件如何连接?
制作表单输入圆的面积,利用命令按扭,分别计算圆的面积在VFP中
在VFP中,什么是报表布局?设计报表布局时应遵循哪些原则?
如何利用数据库制作习题系统
在VFP中如何制作如图所示菜单?
报表制作!
VFP中打印报表时,如何在一个报表里关联两个数据表,详细见问题补充.
请问如何在EXCEL中实现报表的打印?
急救!!!excel中报表数字累计如何使用??
在vfp中如何调用access数据库中的存储过程?
vfp中不能清理数据库的原因是什么
VFP中的text控件与数据库中数据型字段
在VFP中,报表设计器中的带区有哪几类?他们是什么含义?
vfp中怎样控制报表只打印最后输入的一条记录,并且只打印一条?
EXCEL中制作金额线
数据库报表帮忙~
高分VFP问题:vfp表导入到EXCEL中怎样才能显示中文名?