B第4章_用户及权限管理ppt课件.ppt

《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