欢迎来到天天文库
浏览记录
ID:59432860
大小:254.50 KB
页数:51页
时间:2020-09-18
《B第4章_用户及权限管理ppt课件.ppt》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、上一次课讲到在VisualFoxPro6.0中设计程序的Splash界面、设计用户登录界面以及为用户密码加密的方法。请同学们回顾这样两个问题:Bitxor函数的格式及功能是什么?2.文档界面类型有哪些?①函数格式:BITXOR(n1,n2)②功能:返回n1,n2两个数值型数值按位进行异或运算的结果。VFP允许创建单文档界面和多文档界面。单文档界面(SDI)由一个或多个独立窗口组成,都在桌面上独立显示。多文档界面(MDI)由单一主窗口组成,应用程序包含在主窗口或浮动在主窗口顶端。上一次课主要学习的内容本章主要介绍用户数据表的设计、权限管理
2、,用户管理。第4章.用户及权限管理人力资源管理系统中用户管理使用用户组和用户2个表的双层管理机制,首先通过用户组设置权限,然后将用户归属某个组获取权限。在HRMData数据库中新建“UserGroup”表存放用户组信息;新建“Users”表存放用户信息。表结构如下:4.1设计数据表№字段名类型宽度索引1组编号字符型22组名称字符型20升序3基础信息管理逻辑型14员工档案管理逻辑型15奖励记录管理逻辑型16惩罚记录管理逻辑型17培训记录管理逻辑型18调动记录管理逻辑型19考评记录管理逻辑型110用户组管理逻辑型11.UserGroup表结
3、构№字段名类型宽度11用户管理逻辑型112奖励记录查询逻辑型113惩罚记录查询逻辑型114培训记录查询逻辑型115调动记录查询逻辑型116考评记录查询逻辑型117员工档案查询逻辑型118用户密码修改逻辑型119培训项目管理逻辑型1№字段名类型宽度索引Nulls1用户名字符型20升序是2密码字符型20是3姓名字符型204用户组字符型2升序是2.Users表结构管理用户,可以新增、修改、删除等。4.2用户管理表单在项目管理器中新增表单:UserAdmin将users和usergroup表添加到数据环境中,设置表users的属性exclusi
4、ve=.T.bufferModeOverRide=2-保守式行缓冲在表单中添加控件:1个列表框、4个标签、4个文本框、1个组合框、4个按钮。.创建表单AutoCenter=.T.BorderStyle=2-固定对话框Caption="部门结构设置"Closable=.F.Height=267Width=466Icon=people.icoMDIForm=.T.MaxButton=.F.MinButton=.F.ShowTips=.T.ShowWindow=1-在顶层表单中WindowType=1-模式Name="userAdmin"Cm
5、dNew.Caption="新增"CmdModify.Caption="修改".ToolTipText="新增".ToolTipText="修改"CmdExit.Caption="退出"CmdDelete.Caption="删除".ToolTipText="退出".ToolTipText="删除".Cancel=.T..属性设置-1/2txt用户名.ControlSource=users.用户名txt密码.PassWordChar="*"txt确认密码.PassWordChar="*"txt姓名.ControlSource=users.
6、姓名cbo用户组.controlsource=users.用户组.rowsourcetype=6-字段.rowsource=users.组编号,组名称.style=2-下拉列表框表单自定义属性:OldRecord=0–新增记录前的当前记录formmode="browse"–表单状态browse/new/modify表单自定义方法:setmode.属性设置-2/2*——获取要设置的状态IFTHISFORM.FormMode="browse"FormMode=.F.ELSEFormMode=.T.ENDIF*——控制文本框THISFORM.
7、SETALL("ReadOnly",!FormMode,"TextBox")*——控制组合框THISFORM.SETALL("Enabled",FormMode,"ComboBox").setmode-1/3*——控制“新增”按钮THISFORM.CmdNew.Enabled=!FormMode*——控制“退出”按钮THISFORM.CmdExit.Enabled=!FormMode*——更改按钮标题IF!THISFORM.FormMode="browse"THISFORM.CmdModify.Caption="保存"THISFORM.
8、CmdDelete.Caption="取消"ELSE.setmode-2/3THISFORM.CmdModify.Caption="修改"THISFORM.CmdDelete.Caption="删除"END
此文档下载收益归作者所有