main.prg

课程设计时做的一个工资管理系统。数据库编程的典型例子。值得收藏。

*——清除变量
CLEAR
CLEAR ALL
*——避免多次运行程序
*——声明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
*——系统环境设置
SET DEBUG OFF			&&	禁止在运行时调试程序
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 YMD			&&  按照年月日的次序显示日期
SET DELETE OFF			
*——声明全局变量
*——全局变量cUser，用来保存系统中的登录用户
PUBLIC PUserName,PAuthNum, PUMyToolbar
*——调用登录表单
DO FORM Forms/Logon
*——进入事件处理
READ EVENTS
*——退出事件处理后的执行的操作
QUIT