续回复 2楼 mysjw001
我的主程序如下,敬请指点:
clear all
close all
set talk off
set sysmenu off
set status bar on
set help on
set help to myhelp.chm
zoom window screen max
SET COMPATIBLE ON
CLOSE ALL
&& 关闭所有工作区中打开的数据库、表和索引
CLEAR MEMORY
&& 清除所有公共或私有变量和数组
application.caption="名称XXX
http://www.
XXX 产品──XX系统(1.00版)"
do form 封面BB.scx
&& AA/BB
read events
PUBLIC donume
&& 菜单项之间循环
STORE 0 TO donume
&& donume=0
可以运行某菜单项;donume=1 远行某菜单项时=1,使其它菜单项不能同时运行
*on shutdown quit
&& 使单击右上角X可退出
on shutdown do myquit
&& 使单击右上角X可退出 这里才对右上角X起作用
do 主菜单.mpr
&& 当某菜单项运行后退出时,donume=0
READ EVENTS
&