VFP程序代码（四）<br>

VFP程序代码（四）

 

五、VFP日常经验

1、在顶层表单中调用菜单

application.visible=.f.（隐藏VFP主窗口）

do e:\njjl\mnx\njjl.mpr with this,.t.

注：菜单必须设为在顶层表单中调用的菜单

设置顶层表单：使表单属性showwindow选2－作为顶层表单

 

2、调用Windows打印机设置

getprinter()

sys(1037)

 

3、编译可执行文件需要的VFP文件（EXE脱离VFP）

Vfp6r.dll ,Vfp6renu.dll ,Vfpcab.dll ,vfp6rchs.dll ,foxuser.dbf ,foxuser.fpt

 

4、使foxuser.dbf ,foxuser.fpt　在编译可执行文件时不出现在桌面上

在config.fpw中

resource=off (或set resource off)

 

5、解决VFP不能退出

on shutdown quit

 

6、默认目录：allt(sys(5)+allt(2003))

　  操作系统：os()

　  硬盘空间：allt(str(diskspace()))+字节

　  CPU　　：sys(17)

可用内存：sys(1001)+KB

 

7、调用控制面板（日期）

run  /n  control  (run  /n  control  timedate.cpl)

 

8、(1)制作安装程序时要打包的项目一定不要打开;（CAB文件不能打包）

　 (2)除DBF文件和系统文件外，其它的表单，报表，菜单，图片，程序文件一定不包含在内！(不能正常安装)

 

9、在VFP中调用计算器

Activate  window  calculator

 

10、调用EXCEL对象

pp=createobject('excel.application')  *创建EXCEL对象

pp.application.visible=.t.

pp.workbooks.open('c:my documents\book1.xls')

pp.workbooks.add

 

run / n c:\program files\microsoft office\excel "c:\my documents\book1.xls”

 

10、打印时不出现空白页

dr='c:'

copy stru to &dr\njjl\ls_dy　*创建一个新的自由表文件（结构同当前工作区表相同）

sele 20

use  &dr\njjl\ls_dy

appe from &dr\njjl\dbf\b_djb for 号牌号码=alltrim(thisform.pageframe1.page1.txt号牌号码.value)　*

yn=messagebox('打印行驶证正证?',4+32,'打印行驶证')

if yn=6

report form &dr\njjl\frm\b_xsj1 for 号牌号码=alltrim(thisform.pageframe1.page1.txt号牌号码.value) NOEJECT NOCONSOLE TO PRINTER

endif

yn=messagebox('打印行驶证副证?',4+32,'打印行驶证')

if yn=6

report form &dr\njjl\frm\b_xsj2 for 号牌号码=alltrim(thisform.pageframe1.page1.txt号牌号码.value) NOEJECT NOCONSOLE TO PRINTER

endif

use

dele file &dr\njjl\ls_dy.*

sele 1

 

 

11、用微调控件选定时间

y=alltrim(str(thisform.spinner1.value))

m=alltrim(str(thisform.spinner2.value))

d=str(thisform.spinner3.value)

y1=str(thisform.spinner4.value)

m1=str(thisform.spinner5.value)

d1=str(thisform.spinner6.value)

rq1=ctod(m+'/'+d+'/'+y)

rq2=ctod(m1+'/'+d1+'/'+y1)

yn=messagebox('准备好纸张？',4+32,'打印报表')

if yn=6

report form d:\gsgl\frm\bb_gslb for 发照时间>=rq1 .and.发照时间<=rq2 NOEJECT NOCONSOLE to printer

endif