Vfp命令集合

Vfp命令集合

Read events 开始事件循环 Set safety off 覆盖时不要确认 Set stat bar off 将状态栏关闭

Set sysmenu off 可关掉系统菜单之区域 Set sysmenu to 关闭系统菜单 Clear event Quit

_screen.ico=”boy.ico”

显示出初始的用户界面后，还需要建立一个事件循环来对用户的操作作出响应。因此主程序中要用READ EVENTS 语句启动事件循环。

当事件循环开始以后，应用程序将控制权交给最后一个显示出来的界面来处理，这个界面退出时要用CLEAR EVENTS语句结束事件循环。

注意：如果在主文件中没有包含READ EVENTS，在VFP环境中可以正确地运行应用程序，但是离开VFP环境运行应用程序时，会出现程序显示片刻就退出的现象。

一个主程序（.prg）的例子如下：

set directory to curdir() &&将程序的资源路径设为当前程序所在的文件夹 set sysmenu off &&不显示系统菜单 set talk off set safety off

set deleted on &&不显示被逻辑删除的记录 set century on set date to ymd set mark to .

*set status bar off &&不显示VFP状态条

on shutdown quit &&若没有这句，可能不能退出VFP。 clear

MODIFY WINDOW SCREEN TITLE '图书管理系统' NOCLOSE

_SCREEN.CONTROLBOX=.F. &&_SCREEN是系统内存变量（也就是VFP主窗口对象）

_SCREEN.WINDOWSTATE=2 DO FORM 登录界面.scx

READ EVENTS &&启动事件循环

**注意在主界面的 退出系统 的代码中应有：CLEAR EVENTS

注意：如果主文件是一个表单，应在表单的Load事件中设置参数，在Activate事件中写：READ EVENTS。

一般情况，用户的应用系统需要一个主表单（主窗口），您可以将_Screen作为这个主窗口，也可以将项目中的某个“顶层表单”做为“主窗口”，很难说那种更好。但在此笔者建议使用VFP主窗口做为用户系统的主窗口，这样可能会省去一些麻烦，因为VFP的很多工具条窗口被设计成只能开在_Screen中，例如在打印预览工具条等。

程序编译成EXE后，前者启动时先显示VFP主窗口，后者直接显示程序员自己设计的顶层表单。对于后者，为屏蔽VFP主窗口，一定要在Config.fpw写入Screen=off(Config.fpw应加入到项目中，这样连编后它将被包含进EXE中，这一来可减少提供安装文件的数量，二来也可避免被用户更改)。

另一方面，很多应用系统程序都喜欢有一个漂亮的或曰自以为漂亮的启动封面，然后再进入主控界面。如果一方面不希望在显示自己的启动封面前有VFP主窗口抢镜头，另一方面又想让VFP主窗口做为程序的主控界面时，解决办法是：设计一个“顶层表单”做为启动封面，config.fpw中仍须写Screen=off，然后在启动封面展示够了自己的魅力之后，用一句_Screen.Show将_Screen打回原形

本文来源：https://www.bwwdw.com/article/g7wt.html