关于VFP6中主程序问题
*-------------------------------* 主控程序 Main.prg
*------------------------------
_screen.visible=.f.
*HIDE WIND SCREEN &&隐藏VFP主窗口
SET CENTURY ON
Set Collate To "MACHINE"
SET DATE ANSI
SET DELETED ON
SET NOTIFY OFF
SET SAFETY OFF
SET STATUS BAR OFF
SET STATUS OFF
SET SYSMENU ON
SET SYSMENU TO
SET TALK OFF
set event on
CLOSE DATABASE
*CLEAR ALL
PUBLIC cuser
*——避免多次运行程序
*——声明API函数“FindWindow”
DECLARE Integer FindWindow IN USER32.DLL String lpClassName,String lpWindowName
lpWindowName="图书借阅管理系统"
IF .NOT. FindWindow(0,lpWindowName)==0 &&寻找窗口标题
=MESSAGEBOX("程序已经运行了",48,"提示信息")
QUIT
ENDIF
_Screen.Caption=lpWindowName
*DO FORM SYS(5)+SYS(2003)+"\FORMS\Main.scx" NAME MAIN
DO FORM 登录.scx && 系统登录
READ EVENT
*!* ON SHUTDOWN
QUIT
连编生成EXE文件后,打开exe文件,然后进入登陆界面,输入密码,来到主界面,主界面中显示菜单,但是菜单下的子菜单为什么点击没有任何反应了,我在项目中运行时点击子菜单都是有反应的呀,这是怎么了
请前辈们详细指教,非常感谢。。。