下面是一个主程序示例:
CLEAR
SET EXCL ON
SET TALK OFF
SET MESSAGE ON
SET CENT ON
RELEASE WINDOW 常用 &&关闭常用窗口
PUBLIC MYPATH &&定义全局变量MYPATH
MYPATH=LEFT(SYS(16),RAT("\",SYS(16))) &&提取当前路径
SET DEFA TO (MYPATH)
SET PATH TO data;form;pic &&指明路径
_SCREEN.backcolor=iif(mod(day(date()),2)=0,rgb(80,230,210),rgb(70,140,180)) &&设置屏幕背景颜色,单、双号背景颜色不同
MODIFY WINDOW SCREEN TITLE " xxx软件 Ver x.x 作者:AA "+;
" 今天是:"+dtoc(date())+" "+cdow(date()) &&设置主窗口标题
_SCREEN.ICON="..\pic\msgbox02.ico" &&设置主窗口图标
ZOOM WINDOW SCREEN MAX &&主窗口最大化
deactivate window "项目管理器" &&关闭项目管理器
do 你的菜单.mpr &&运行主菜单程序
read event