续回复 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 &