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

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
...全文
77 1 点赞 打赏 收藏 举报
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
dfwxj 2004-05-02
这个好想贴过了吧,你自己运行吧,根据出错提示调试
  • 打赏
  • 举报
回复
相关推荐
发帖
VFP
加入

2500

社区成员

VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
申请成为版主
帖子事件
创建了帖子
2004-04-30 10:39
社区公告
暂无公告