毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

VF资料信息管理系统(开题报告+论文+源程序) 第8页

更新时间:2010-4-13:  来源:毕业论文
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
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。