VFP：运行表单的命令

VFP：运行表单的命令是Do Form 。

Do Form命令：

运行窗体设计器创建的已编译窗体或窗体集。

语法：

DO FORM FormName |

[NAME VarName [LINKED]]

[WITH cParameterList]

[TO VarName]

[NOREAD] [NOSHOW]

参数：

formname

指定要运行的窗体或窗体集的名称。

？

显示你的对话框，您可以从中选择一个窗体或窗体设置为运行。

NAME VarName [LINKED]

指定一个变量或数组元素与您可以参考表格或表单集。如果指定了一个不存在的变量时，Microsoft Visual FoxPro自动创建它。如果指定数组元素，数组必须存在您发出DO FORM前。如果指定变量或数组元素已经存在，其内容将被覆盖。

DO FORM 例子：

下面的示例运行数据表（jwl_jinkscx）

do form  D:\jwl\jwl_jinkscx

根据vfp表建立一个表单，可以用表单生成器来快速建立，很方便的，然后打印按钮就写一句话：REPORT FORM 报表1frx TO PRINTER PROMPT NOEJECT NOCONSOLE 就行了。

如果你的vfp版本是90  你可以使用  bindevent()  函数把 timer 事件的代码 绑定到另一个方法上

 forminit

 

thisformaddobject('timer2','timer')

thisformtimer2Interval=2000

BINDEVENT(thisformtimer2,'timer',thisform,"tttt")

formtttt

=MESSAGEBOX("时间到",0,"tips")

thisformtimer2interval=0

如果 不是 90   就要先自定义一个类  把 timer代码写在类里面, 然后在form里面加入自定义类对象

ttttprg

DEFINE CLASS tttt as timer

    interval=0    

    PROCEDURE timer  

       =MESSAGEBOX("你好")

    endpro

ENDDEFINE

forminit

SET LIBRARY TO tttt addi  &&加载自定义库

thisformaddobject('timer2','tttt') &&建立对象

thisformtimer2interval=5000 && 触发事件

1)Grid出现空白，原因是你修改了数据源（如删除记录用了PACK命令）；要想它不空白，而数据源也要修改，那么要重新制定数据源；

2）出现表格列列宽很小，情况应该是：有字段显示的列会按字段长度提供列宽；另外，如果新数据源的字段数少于之前数据源的字段数，那么表格后面几列列宽会很窄密密麻麻挤在一起。办法就是在给表格赋新数据源前取消原先的列数：

THISFORMGRID1COLUMNCOUNT=-1

THISFORMGRID1RECORDSOURCE=

THISFORMGRID1AUTOFIT()

thisformtext1value/430

thisformtext1value430

这两处有问题,第一个要检查thisformtext1value的类型,如果不是数值型是不可以这样的,必须先转换,

第二个是一种错的

请看我的商用软件的部分 调用关系，这是在一个命令组中的窗体调用（命令组控件再一个窗体中）：

do case

case thisvalue=1 &&设定冬停有关系数

do form \txt\frmsdl31

case thisvalue=2 &&自动结算租赁费

do form \txt\frmsdl32

do form \txt\frmsdl31

do sdl32 in \abc

do form \txt\frmsdl33

case thisvalue=3 &&租赁结算的显示

do form \txt\frmsdl33

case thisvalue=4 &&假定日期计算租赁费

DO FORM \txt\frmsdl34

do form \txt\frmsdl33

case thisvalue=5 &&租赁结算的模拟显示

thisformhide

report form \txt\frxsdl35frx Environment pdsetup preview

thisformshow

case thisvalue=6 &&租赁结算的打印

thisformhide

report form \txt\frxsdl35frx Environment pdsetup to print prompt noconsole

thisformshow

case thisvalue=7 &&自动生成损坏价格

do sdl37 in \abc

do form \txt\frmsdl37

case thisvalue=8 &&损坏价格的显示

do form \txt\frmsdl37

case thisvalue=9 &&损坏价格的模拟显示

thisformhide

report form \txt\frxsdl38frx Environment pdsetup preview

thisformshow

case thisvalue=10 &&损坏价格的打印

thisformhide

report form \txt\frxsdl38frx Environment pdsetup to print prompt noconsole

thisformshow

case thisvalue=11 &&丢失价格自动生成

do sdl311 in \abc

do FORM \txt\frmsdl311scx

do sdl311_1 in \abc

do FORM \txt\frmsdl312scx

case thisvalue=12 &&丢失价格的显示

do FORM \txt\frmsdl312scx

case thisvalue=13 &&丢失价格的模拟显示

thisformhide

report form \txt\frxsdl313frx Environment pdsetup preview

thisformshow

endcase

以上就是关于VFP：运行表单的命令全部的内容，包括:VFP：运行表单的命令、vfp编程打印表单、vfp表单设计中如何用代码编写对象的事件程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！