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

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

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

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