vfp连编的问题
vfp连编的主程序:
CLEAR
CLEAR ALL
SET ESCAPE OFF&& 禁止运行的程序在按ESC键被中断
SET TALK OFF&& 关闭命令显示
SET SAFETY OFF&& 覆盖时不要确认
SET STAT BAR OFF&& 将状态栏关闭
SET SYSMENU OFF&& 可关掉VFP系统菜单区域
SET SYSMENU TO&& 关闭系统菜单
SET CENTURY ON&& 显示四位年代
SET DATE ANSI&& 指定日期表达式的显示格式为yy.mm.dd
*--避免多次运行程序
*--声明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
*--声明全局变量
Public m1,m2&& 声明全局变量,用来保存系统中的登录用户和权限
public g_FormMode&& 窗口显示类型,
DO FORM forms\login&& 显示登录表单
READ EVENTS&& 进入事务处理
可是连编形成exe文件后,运行进入login表单时,login表单后面有一个vfp窗口,
请问怎么办?
谢谢
[解决办法]
方法一:
在CLEAR ALL之后加
_SCREEN.VISIBLE=.F.
方法二:推荐
新建一个文件 "config.fpw ",里面只写上“screen=off”(双引号内)
然后把此文件添加到工程中的other中other files中,然后重新编译。或把此文件放到程序所在目录下也可。
新建“config.fpw”的方法:先建一个文本文件,然后再把扩展名改为fpw.