| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 330 人关注过本帖
标题:关于VFP6中主程序问题
只看楼主 加入收藏
wzqsun
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2012-3-23
结帖率:100%
收藏
 问题点数:0 回复次数:0 
关于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文件,然后进入登陆界面,输入密码,来到主界面,主界面中显示菜单,但是菜单下的子菜单为什么点击没有任何反应了,我在项目中运行时点击子菜单都是有反应的呀,这是怎么了
请前辈们详细指教,非常感谢。。。


搜索更多相关主题的帖子: 主程序 主程序 NOTIFY 声明 运行程序 NOTIFY 声明 运行程序 
2012-03-25 23:00
快速回复:关于VFP6中主程序问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015834 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved