五、VFP日常經(jīng)驗(yàn)

1、在頂層表單中調(diào)用菜單

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

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

注：菜單必須設(shè)為在頂層表單中調(diào)用的菜單

設(shè)置頂層表單：使表單屬性showwindow選2－作為頂層表單

2、調(diào)用Windows打印機(jī)設(shè)置

getprinter()

sys(1037)

3、編譯可執(zhí)行文件需要的VFP文件（EXE脫離VFP）

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

4、使foxuser.dbf ,foxuser.fpt　在編譯可執(zhí)行文件時(shí)不出現(xiàn)在桌面上

在config.fpw中

resource=off (或set resource off)

5、解決VFP不能退出

on shutdown quit

6、默認(rèn)目錄：allt(sys(5)+allt(2003))

　  操作系統(tǒng)：os()

　  硬盤空間：allt(str(diskspace()))+字節(jié)

　  CPU　　：sys(17)

可用內(nèi)存：sys(1001)+KB

7、調(diào)用控制面板（日期）

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

8、(1)制作安裝程序時(shí)要打包的項(xiàng)目一定不要打開;（CAB文件不能打包）

　 (2)除DBF文件和系統(tǒng)文件外，其它的表單，報(bào)表，菜單，圖片，程序文件一定不包含在內(nèi)！(不能正常安裝)

9、在VFP中調(diào)用計(jì)算器

Activate  window  calculator

10、調(diào)用EXCEL對(duì)象

pp=createobject('excel.application')  *創(chuàng)建EXCEL對(duì)象

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、打印時(shí)不出現(xiàn)空白頁

dr='c:'

copy stru to &dr\njjl\ls_dy　*創(chuàng)建一個(gè)新的自由表文件（結(jié)構(gòu)同當(dāng)前工作區(qū)表相同）

sele 20

use  &dr\njjl\ls_dy

appe from &dr\njjl\dbf\b_djb for 號(hào)牌號(hào)碼=alltrim(thisform.pageframe1.page1.txt號(hào)牌號(hào)碼.value)　*

yn=messagebox('打印行駛證正證?',4+32,'打印行駛證')

if yn=6

report form &dr\njjl\frm\b_xsj1 for 號(hào)牌號(hào)碼=alltrim(thisform.pageframe1.page1.txt號(hào)牌號(hào)碼.value) NOEJECT NOCONSOLE TO PRINTER

endif

yn=messagebox('打印行駛證副證?',4+32,'打印行駛證')

if yn=6

report form &dr\njjl\frm\b_xsj2 for 號(hào)牌號(hào)碼=alltrim(thisform.pageframe1.page1.txt號(hào)牌號(hào)碼.value) NOEJECT NOCONSOLE TO PRINTER

endif

use

dele file &dr\njjl\ls_dy.*

sele 1

11、用微調(diào)控件選定時(shí)間

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('準(zhǔn)備好紙張？',4+32,'打印報(bào)表')

if yn=6

report form d:\gsgl\frm\bb_gslb for 發(fā)照時(shí)間>=rq1 .and.發(fā)照時(shí)間<=rq2 NOEJECT NOCONSOLE to printer

endif