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

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

更新时间:2010-4-13:  来源:毕业论文
VF资料信息管理系统(开题报告+论文+源程序) 第10页
LOCAL sUser,cName,cPart,cPass,nNum
 sUser=ALLTRIM(THISFORM.txt用户名.Value)
 IF THISFORM.FormMode="cNew"
  *——检测添加的用户名名称是否存在
  SELECT Sysuser
  Count FOR 用户名=sUser TO nNum
  *——如果存在
  IF nNum>0
   MESSAGEBOX("指定的用户名已经存在",48,"资料管理系统")
   THISFORM.txt用户名.Value=""
   THISFORM.txt用户名.Setfocus
   Return
  ENDIF
 ENDIF
 *——如果不存在
  *——获取表单中各数据项的值
  cName=ALLTRIM(THISFORM.txt姓名.Value)
  cPass=ALLTRIM(THISFORM.txt密码.Value)
  *——确定对话框
  YN=MESSAGEBOX("确定保存",4+32,"资料管理系统")
  *——如果确认
  IF YN=6
   IF THISFORM.FormMode="cNew"
    *——添加记录
    INSERT INTO SysUser(用户名,密码,姓名) VALUES (sUser,cPass,cName)
   ELSE
    *——修改信息
    Begin Trans
     Update SysUser Set 姓名=cName Where 用户名=sUser
     Update SysUser Set 密码=cPass Where 用户名=sUser
    END TRANS
   ENDIF 
   *——对话框
   IF THISFORM.FormMode="cNew"
    MESSAGEBOX("添加成功",64,"资料管理系统")
   ELSE
    MESSAGEBOX("修改成功",64,"资料管理系统")
   ENDIF
   *——退出表单
   THISFORM.Release
  ENDIF
 ENDIF
 *——模糊比较
SET EXACT OFF
【退出】按钮的“Click”事件代码:
YN=MESSAGEBOX("确定退出",4+32,"资料管理系统")
IF YN=6
 THISFORM.Release
ENDIF 
6.3.4 创建“权限管理”表单
“权限管理”表单的“Init”事件代码:
*——声明参数接收运行参数
PARAMETER cUserPurv
*——使用自定义属性来保存参数值
THISFORM.cUserPurv=cUserPurv
SELECT Sysuser
*——获取要设置权限的用户的原有权限值
LOCATE FOR ALLTRIM(用户名)=ALLTRIM(cUserPurv)
IF FOUND()
 *——在表单中显示权限情况
 THISFORM.Label1.Caption="系统用户"+cUserPurv+"的系统权限"
 THISFORM.PurvCon.CHKDataAdmin.Value=SysUser.资料信息管理
 THISFORM.PurvCon.CHKDataBrow.Value=SysUser.资料信息浏览
 THISFORM.PurvCon.CHKUserAdmin.Value=SysUser.用户信息管理
 THISFORM.PurvCon.CHKUserBrow.Value=SysUser.用户信息浏览
 THISFORM.PurvCon.CHKLendAdmin.Value=SysUser.借阅信息管理
 THISFORM.PurvCon.CHKLendBrow.Value=SysUser.借阅信息浏览
 THISFORM.PurvCon.CHKSysUser.Value=SysUser.系统用户管理
 THISFORM.PurvCon.CHKUserPurv.Value=SysUser.用户权限管理
 THISFORM.PurvCon.CHKAct.Value=SysUser.资料借还操作
ENDIF
【确定】按钮的“Click”事件代码:
*——确认对话框
YN=MESSAGEBOX("确定保存",4+32,"资料管理系统")
*——如果确认
IF YN=6
 *——声明本地变量保存复选框的值
 LOCAL lbDataBrow,lbDataAdmin,lbUserBrow,lbUserAdmin
 LOCAL lbLendAdmin,lbLendBrow,lbSysUser,lbUserPurv,lbact
 *——获取复选框的值
 lbDataAdmin=THISFORM.PurvCon.CHKDataAdmin.Value
 lbDataBrow=THISFORM.PurvCon.CHKDataBrow.Value
 lbUserAdmin=THISFORM.PurvCon.CHKUserAdmin.Value
 lbUserBrow=THISFORM.PurvCon.CHKUserBrow.Value
 lbLendAdmin=THISFORM.PurvCon.CHKLendAdmin.Value
 lbLendBrow=THISFORM.PurvCon.CHKLendBrow.Value
 lbSysUser=THISFORM.PurvCon.CHKSysUser.Value
 lbUserPurv=THISFORM.PurvCon.CHKUserPurv.Value

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

VF资料信息管理系统(开题报告+论文+源程序) 第10页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

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