main.prg

来自「仓库管理系统」· PRG 代码 · 共 29 行

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="Eton Group仓库管理系统"
IF .NOT. FindWindow(0,lpWindowName)==0 &&寻找窗口标题
   =MESSAGEBOX("程序已经运行了",48,"Eton Group仓库管理系统")
   QUIT 
ENDIF
_Screen.Caption=lpWindowName

*--声明全局变量

public ccuruser
do form Splash
READ EVENTS	
quit		&&  进入事务处理