VF资料信息管理系统(开题报告+论文+源程序) 第8页
*——查找用户名
LOCATE FOR ALLTRIM(SysUser.用户名)=ALLTRIM(THISFORM.txt用户名.VALUE)
*——如果找到用户名
IF FOUND()
*——如果密码正确
IF ALLTRIM(密码)=ALLTRIM(THISFORM.txt密码.VALUE)
*——将登录的用户名保存到全局变量中
cCurUser=ALLTRIM(用户名)
*——调用“GetPurv”程序获取登录的用户的权限信息
DO GetPurv.prg
*——退出表单
THISFORM.RELEASE
*——调用系统主表单
DO FORM MainForm
ELSE
*——如果密码错误
*——如果次数小于3
IF THISFORM.i<3
MESSAGEBOX("密码错误,请重新输入",48,"资料管理系统")
THISFORM.txt用户名.VALUE=""
THISFORM.txt密码.VALUE=""
THISFORM.txt用户名.SETFOCUS
ELSE
*——如果资料为3
MESSAGEBOX("用户名或者密码错误三次,系统无法启动",48,"资料管理系统")
*——退出表单
THISFORM.RELEASE
*——结束事件循环
CLEAR EVENTS
*——退出Visual FoxPro
QUIT
ENDIF
ENDIF
ELSE
IF THISFORM.i<3
MESSAGEBOX("用户名不存在,请重新输入",48,"资料管理系统")
THISFORM.txt用户名.VALUE=""
THISFORM.txt密码.VALUE=""
THISFORM.txt用户名.SETFOCUS
ELSE
MESSAGEBOX("用户名或者密码错误三次,系统无法启动",48,"资料管理系统")
THISFORM.RELEASE
CLEAR EVENTS
QUIT
ENDIF
ENDIF
*——改为模糊比较
SET EXACT OFF
【退出】按钮“Click”事件代码:
*——声明本地变量
LOCAL YN
*——确认对话框
YN=MESSAGEBOX("确定退出",4+32,"资料管理系统")
*——如果确认
IF YN=6
THISFORM.RELEASE &&退出当前表单
CLEAR EVENTS &&结束事务处理
QUIT &&退出Visual FoxPro
ENDIF
6.3.2 创建“系统用户管理”表单
“系统用户管理”表单“Init”事件代码:
SELECT SYSUSER
SET FILTER TO
THISFORM.Refresh
“系统用户管理”表单“Refresh”事件代码:
*——“权限”按钮的状态
THISFORM.CmdPurv.Enabled=bUserPurv
*——“新增”、“修改”和“删除”按钮的状态
THISFORM.CmdNew.Enabled=bSysUser
THISFORM.CmdMode.Enabled=bSysUser
THISFORM.CmdDel.Enabled=bSysUser
*——如果数据表为空
SELECT SYSUSER
IF EOF() .AND. BOF() OR RECCOUNT()=0
IF bSysUser=.T.
THISFORM.CmdNew.Enabled=.T.
THISFORM.CmdMode.Enabled=.F.
THISFORM.CmdDel.Enabled=.F.
Endif
ENDIF
【新增】按钮的“Click”事件代码:
DO FORM SetUser With "cNew"
THISFORM.Refresh
【修改】按钮的“Click”事件代码:
PUBLIC cUserSet
cUserSet=Sysuser.用户名
DO FORM SetUser With "cModify"
THISFORM.Refresh
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
VF资料信息管理系统(开题报告+论文+源程序) 第8页下载如图片无法显示或论文不完整,请联系qq752018766