VFP的菜单设计中命令或过程应该怎么写啊? 20
我在“退出”中写了：
clea events
set sysmenu to default
quit
可怎么运行后，点退出，什么反应都没有啊？
实在很菜，请高手指教
另外，我运行菜单后，怎么除了我建立的，后面还多了一个“格式”，为什么会出现？应该怎么去掉？ 展开
1 最好是选用菜单设计器来做比较容易理解
2。刚好相反 除了“退出” 使用命令以外， 其他都是使用过程。
3。READ EVENTS 写在 菜单建立以后， 退出有QUIT 命令就可以忽略clea events
SET TALK ON &&环境设置写在安装里
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _2xi12wtna OF _MSYSMENU PROMPT "新建" COLOR SCHEME 3
DEFINE PAD _2xi12wtnb OF _MSYSMENU PROMPT "录入" COLOR SCHEME 3
DEFINE PAD _2xi12wtnc OF _MSYSMENU PROMPT "修改" COLOR SCHEME 3
DEFINE PAD _2xi12wtnd OF _MSYSMENU PROMPT "统计" COLOR SCHEME 3
DEFINE PAD _2xi12wtne OF _MSYSMENU PROMPT "查询" COLOR SCHEME 3
DEFINE PAD _2xi12wtnf OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON SELECTION PAD _2xi12wtna OF _MSYSMENU do 新建.prg
ON SELECTION PAD _2xi12wtnb OF _MSYSMENU do 录入.prg
ON SELECTION PAD _2xi12wtnc OF _MSYSMENU do 修改.prg
ON SELECTION PAD _2xi12wtnd OF _MSYSMENU do 统计.prg
ON SELECTION PAD _2xi12wtne OF _MSYSMENU do 查询.prg
ON SELECTION PAD _2xi12wtnf OF _MSYSMENU quit
* *********************************************************
* *
* * 清除代码和过程
* *
* *********************************************************
*
READ EVENTS &&
**READ EVENTS 写在 清理里
QUIT是退出VFP的命令，你用它当然都退出来了,因此SET SYSMENU TO DEFAULT就没意义了。
菜单里如果是多行，就用PROCEDURE,如过是单行特别是DO...命令，则可以选择命令。
DO 查询文件名.qpr（运行查询）
REPORT FROM 报表文件名 范围 for 条件表达式（打印报表）
DO 菜单文件名.mpr（运行菜单）
DO 过程名（运行程序）
编辑“退出”菜单的“结果”选择“命令”,输入quit或
set sysmenu to default中的一个即可
