*——清除变量
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            &&  按照年月日的次序显示日期

*——声明全局变量
*——全局变量cUser，用来保存系统中的登录用户
PUBLIC cUser
*——全局变量数组AuthName
*——用来保存权限的名称
PUBLIC Array AuthName[20]
AuthName[1] = "基础信息管理"
AuthName[2] = "员工档案管理"
AuthName[3] = "奖励记录管理"
AuthName[4] = "惩罚记录管理"
AuthName[5] = "培训记录管理"
AuthName[6] = "调动记录管理"
AuthName[7] = "考评记录管理"
AuthName[8] = "用户组管理"
AuthName[9] = "用户管理"
AuthName[10] = "奖励记录查询"
AuthName[11] = "惩罚记录查询"
AuthName[12] = "培训记录查询"
AuthName[13] = "考评记录查询"
AuthName[14] = "调动记录查询"
AuthName[15] = "员工档案查询"
AuthName[16] = "用户密码修改"
AuthName[17] = "培训项目管理"
AuthName[18] = "员工工资计算"
AuthName[19] = "员工工资查询"
AuthName[20] = "员工工资输出"
*——声明全局变量数组用来保存用户权限
PUBLIC GotAuth[20]
*——调用登录表单
DO FORM FORM/splash
*——进入事件处理
READ EVENTS
*——退出事件处理后的执行的操作
QUIT

还有主程序里定义了一个PUBLIC GotAuth[20] 变量 在登入界面代码里提示 没有变量 I 预算就定义了 结果找不到

把你的表单设置为顶层表单，目录下建个config.fpw　内容为　SCREEN=OFF　就不会有了

showWindow=2

i 先赋个值看看？

已经设置好了，还是这样

赋值了啊

那个表单登入  还是、？

I没有赋值。而且与下面的for循环中的I产生冲突。

看不懂

在程序开头加入一行
_Screen.visible = .F.