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
