这里有一段程序，毕业设计用，望高手帮忙调试修改一下，在下不胜感激，拜托啦！

zhnangy1023 2004-04-30 10:39:43

SET TALK OFF
SET DELETE OFF
SET DATE ANSI
SET CENT ON
SET SAFE OFF
STOR 1 TO JJLAST
DO WHIL .T.
CLOS DATA
CLEA TYPE
CLEA TYPE
ON KEY
ON KEY LABE CTRL+F11 DO CANCPROG
ON ERRO DO ZYHERR
IF NOT WEXIST("cpmainz")
IF SYSM(1) > 641
DEFI WIND CPMAINZ AT 0,0 SIZE 31.056,99.875 TITL "产品库存管理系统";
FONT"宋体",12 FLOAT NOCLOSE NOMINIMIZE SYST
ELSE
DEFI WIND CPMAINZ AT 0,0 SIZE 25.056,84.875 TITL"产品库存管理系统";
FONT "宋体",12 FLOAT NOCLOSE NOMINIMIZE SYST
ENDI
MOVE WINDOW CPMAINZ CENTER
ENDI
ACTI WIND CPMAINZ NOSHOW
III=IIF(SYSM(1)>641,0,-0.5)
IF III=0
@ 0,0 SAY "mysky.bmp" BITMAP SIZE 13.389,22.625 STRETCH
@17.722,76.625 SAY "myskr.bmp" BITMAP SIZE 13.333,24.250
STRETCH STYL "Y"
ELSE
@ 0,0 SAY "mysky.bmp" BITMAP SIZE 13.389,22.625 STRETCH
@10.722,62.625 SAY "myskr.bmp" BITMAP SIZE 13.333,24.250
STRETCH STYL"T"
ENDI

_ZYHOXZ=0

@ III+1.5,8.125 GET_ZYHOXZ PICT "@ * IHT ;;;;"SIZE 1.167,8.250,6 FONT "宋体",12
DO DISMIT WITH [],III&&ENABLE THE MESSAGE OF MMAIN_MENU

IF III=0
@7.333,24.750 SAY "产品库存管理系统"FONT "宋体",36 STYL "TB"
@19.278,42.125 SAY "作者 : 侯娇" FONT "宋体",12 STYL"T"
ELSE
@8.5,23.750 SAY "产品库存管理系统" FONT "宋体",28 STYL "TB"
@15.878,37.125 SAY"作者：侯娇 FONT"宋体",12 STYL"T"
ENDI
ACTI WIND CPMAINZ
READ CYCL MODA OBJE JJLAST
IF(LAST()=27 AND-ZYHOXZ <1) OR-ZYHOXZ=5
EXIT
ENDI
DO DISMIT WITH [COLO 3/7*],III && DISABIE THE MESSAGE OF MMAIN-MENU
JJLAST=_ZYHOXZ
DO SUBMENU WTTH_ZYHOXZ
CLOS DATA
CLEA TYPE
ENDD
RELE WIND CPMAINZ
CLOS DATA ALL
ON ERRO
ON KEY
RETU

...全文