VF资料信息管理系统(开题报告+论文+源程序) 第14页
bBrowse=THISFORM.bBrowse
*——对属性赋初值
OK=.T.
*——根据变量的值来设置控件的状态
*——移动记录工具栏
THISFORM.MyMove.Enabled=.NOT. bModify
*——查询工具栏
THISFORM.MySearch.Enabled=.NOT. bModify
*——表格控件
THISFORM.Grid1.Enabled=.NOT. bModify
*——控制工具栏中“新增”和”退出”按钮
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.MyAdmin.CmdSave.Enabled=bBrowse
THISFORM.MyAdmin.CmdCancel.Enabled=bBrowse
*——表单中与数据绑定的控件
THISFORM.txt编号.ReadOnly=.NOT. bModify
THISFORM.txt性别.ReadOnly=.NOT. bModify
THISFORM.txt姓名.ReadOnly=.NOT. bModify
THISFORM.spin借阅级别.ReadOnly=.NOT. bModify
THISFORM.cmb部门.Enabled=bModify
*——权限管理相关
IF bUserAdmin=.F.
THISFORM.MyAdmin.CmdModify.Enabled=.F.
THISFORM.MyAdmin.cmdDelete.Enabled=.F.
THISFORM.MyAdmin.CmdNew.Enabled=.F.
ENDIF
“用户信息管理”表单的“Init”事件代码：
SELECT UserInfo
SET FILTER TO
THISFORM.bModify=.F.
THISFORM.bBrowse=.F.
THISFORM.ModeControl
THISFORM.Refresh
“用户信息管理”表单的“Refresh”事件代码：
SELECT UserInfo
IF EOF() .AND. BOF() OR RECCOUNT()=0
THISFORM.bModify=.T.
THISFORM.bBrowse=.F.
THISFORM.ModeControl
IF bUserAdmin=.T.
THISFORM.MyAdmin.CmdNew.Enabled=.T.
ENDIF
THISFORM.MyAdmin.CmdExit.Enabled=.T.
ENDIF
【新增】按钮的“Click”事件代码：
*——选择“资料信息”表所在的工作区
SELECT UserInfo
*——保存记录号
THISFORM.OldRecord=RECNO()
*——到末记录
GO BOTTOM
*——声明本地变量
LOCAL sNum
*——数据表最后一条记录的值
sNum=UserInfo.编号
*——数据表末尾新增记录
APPEND BLANK
*——新增记录的“资料编号”值为自动增加的值
THISFORM.txt编号.Value=AutoAdd(sNum)
*——表单进入修改状态
THISFORM.bModify=.T.
THISFORM.bBrowse=.T.
THISFORM.ModeControl
*——刷新表单
THISFORM.Refresh
【修改】按钮的“Click”事件代码：
*——选择“资料信息”表所在的工作区
SELECT UserInfo
*——保存记录指针位置
THISFORM.OldRecord=RECNO()
*——表单进入修改状态
THISFORM.bModify=.T.
THISFORM.bBrowse=.T.
THISFORM.ModeControl
*——刷新表单
THISFORM.Refresh
【删除】按钮的“Click”事件代码：
*——确认对话框
YN=MESSAGEBOX("确定删除",4+32,"资料管理系统")
*——如果确认
IF YN=6
*——设定表格控件的数据源为空
THISFORM.Grid1.RecordSource=NULL
*——删除数据
SELECT UserInfo
<< 上一页 [11] [12] [13] [14] [15] [16] 下一页
VF资料信息管理系统(开题报告+论文+源程序) 第14页下载如图片无法显示或论文不完整，请联系qq752018766
