main.prg

很好的源码！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 cCurUser	&&  声明全局变量，用来保存系统中的登录用户
PUBLIC bDataAdmin,bDataBrow,bUserAdmin,bUserBrow,bLendAdmin,bLendBrow,bSysUser,bUserPurv,bAct
*——调用登录表单
DO FORM Logon			&&  显示登录表单
*——进入事物处理
READ EVENTS				&&  进入事务处理