当前位置: 代码迷 >> VFP >> vfp连编的有关问题
  详细解决方案

vfp连编的有关问题

热度:7412   发布时间:2013-02-26 00:00:00.0
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.
  相关解决方案