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

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

更新时间:2010-4-13:  来源:毕业论文
VF资料信息管理系统(开题报告+论文+源程序) 第11页
lbAct=THISFORM.PurvCon.CHKAct.Value
 *——精确比较
 SET EXACT ON
 *——不能取消当前用户的“用户权限管理”权限
 IF THISFORM.cUserPurv=cCurUser .AND. lbUserPurv=.F.
  MESSAGEBOX("不能取消消当用户的用户管理权限",48,"资料管理系统")
  THISFORM.PurvCon.CHKUserPurv.Value=.T.
  Return
 EndIF
 *——开始事务处理
 BEGIN TRANS
  *——更新指定系统用户的权限信息
  UPDATE SYSUSER Set 资料信息管理=lbDataAdmin WHERE 用户名 = THISFORM.cUserPurv
  UPDATE SYSUSER Set 资料信息浏览=lbDataBrow WHERE 用户名 =THISFORM.cUserPurv
  UPDATE SYSUSER Set 用户信息管理=lbUserAdmin WHERE 用户名 =THISFORM.cUserPurv
  UPDATE SYSUSER Set 用户信息浏览=lbUserBrow WHERE 用户名 =THISFORM.cUserPurv
  UPDATE SYSUSER Set 借阅信息管理=lbLendAdmin WHERE 用户名 =THISFORM.cUserPurv
  UPDATE SYSUSER Set 借阅信息浏览=lbLendBrow WHERE 用户名 =THISFORM.cUserPurv
  UPDATE SYSUSER Set 系统用户管理=lbSysUser WHERE 用户名 =THISFORM.cUserPurv
  UPDATE SYSUSER Set 用户权限管理=lbUserPurv WHERE 用户名 =THISFORM.cUserPurv
  UPDATE SYSUSER Set 资料借还操作=lbAct WHERE 用户名=THISFORM.cUserPurv
 END TRANS
 *——如果更新了当前登录系统用户的权限
 IF THISFORM.cUserPurv=cCurUser
  *——重新获取当前登录系统用户的权限信息
  Do GetPurv.Prg 
 ENDIF
 *——模糊比较
 SET EXACT OFF
 *——信息对话框
 MESSAGEBOX("权限设置完成",64,"资料管理系统")
 *——退出当前表单
 THISFORM.Release
ENDIF
【退出】按钮的“Click”事件代码:
YN=MESSAGEBOX("确定退出",4+32,"资料管理系统")
IF YN=6
 THISFORM.Release
ENDIF
6.4 创建信息管理模块
6.4.1 创建“资料信息管理”表单
“资料信息管理”表单的“ModeControl”方法:
*——声明本地变量
LOCAL bModify,bBrowse,OK
*——使用本地变量存储属性值
bModify=THISFORM.bModify
bBrowse=THISFORM.bBrowse
*——对属性赋初值
OK=.T.
*——根据变量的值来设置控件的状态
 *——移动记录工具栏
THISFORM.MyMove.Enabled=.NOT. bModify
 *——查询工具栏
THISFORM.MySearch.Enabled=.NOT. bModify
 *——表格控件
THISFORM.Grid1.Enabled=.NOT. bModify
 *——控制工具栏中“保存”和”取消”按钮
THISFORM.MyAdmin.CmdSave.Enabled=bBrowse
THISFORM.MyAdmin.CmdCancel.Enabled=bBrowse
 *——控制工具栏中其他按钮
THISFORM.MyAdmin.CmdNew.Enabled=.NOT. bModify
THISFORM.MyAdmin.CmdExit.Enabled=.NOT. bModify
THISFORM.MyAdmin.CmdModify.Enabled=.NOT.bModify
THISFORM.MyAdmin.cmdDelete.Enabled=.NOT. bModify
 *——表单中与数据绑定的控件
THISFORM.txt资料编号.ReadOnly=.NOT.bModify
THISFORM.txt资料名称.ReadOnly=.NOT. bModify
THISFORM.cmb资料类型.Enabled=bModify
THISFORM.spin资料数量.ReadOnly=.NOT. bModify
THISFORM.txt资料来源.ReadOnly=.NOT. bModify
THISFORM.spin保密级别.ReadOnly=.NOT. bModify
THISFORM.spin借阅时限.ReadOnly=.NOT. bModify
THISFORM.cmb所属部门.Enabled=bModify
THISFORM.txt内容简介.ReadOnly=.NOT. bModify
THISFORM.Cmdsel.Visible=bModify
 *——权限管理相关
IF bDataAdmin=.F.
 THISFORM.MyAdmin.CmdModify.Enabled=.F.
 THISFORM.MyAdmin.CmdNew.Enabled=.F.
 THISFORM.MyAdmin.CmdDelete.Enabled=.F.
ENDIF
“资料信息管理”表单的“Init”事件代码:
SELECT DataInfo
SET FILTER TO
THISFORM.bModify=.F.
THISFORM.bBrowse=.F.

 << 上一页  [11] [12] [13] [14] [15] [16] 下一页

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

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