V实验06用户管理

《V实验06用户管理》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、实验06用户管理［实验目的］学会建立用户组表和用户表，建立用户组和用户管理表单。［实验准备］设计数据表准备好图标文件：people.ico新建两个表：“UserGroup"表存放用户组信息；“Users”表存放用户信息。1•用户组表表结构：UserGroup.dbfNq字段名类型宽度索引1组编号C22组名称C20升序3基础管理L14档案管理L15奖励管理L16惩罚管理L17培训管理L18调动管理L19考评管理L110组管理L111用户管理L112奖励查询L113惩罚查询L114培训查询L115调动查询L11

2、6考评查询L117员工查询L118密码修改L119培训管理L1表记录.组编号组名称基础管理档案管理奖励管理惩罚管理培训管理调动管理考评管理组管理用户管理奖励查询惩罚查询培训查询调动查询考评查询员工查询密码修改培训管理01人事主管YYYYYYYYYYYYYYYYY02工资核算YYYYYYYYYYYYYYY2•用户表表结构：Uscrs.dbfNa字段名类型宽度索引1用户名C20升序2密码C203姓名C204用户组C2升序表记录用户名密码姓名用户组Admin冯老师01［实验内容］一.用户管理表单新增表单：User

3、Adniin将users和usergroup表添加到数据坏境中，设置表users的属性exclusive二.T.bufferModeOverRide=2-保守式行缓冲在表单中添加控件：1个列表框、4个标签、4个文本框、1个组合框、4个按钮。属性设置表单属性：AutoCenter=.T.Caption二”部门结构设置“Height=267Icon二people.icoMaxButton=.F.ShowTips=.T.WindowType=1-模式BorderStyle=2-固定对话框Closable=.F.W

4、idth=466MDIForm=.T.MinButton=.F.ShowWindow=1■在顶层表单中Name=HuserAdminH控件属性：CmdNew.Caption=n新增”ToolTipText=,噺增“CmdModify.Caption="修改”ToolTipText=M修改“CmdDelete.Caption="删除“ToolTipText二”删除“CmdExit.Caption=M退出”ToolTipText=M退出"txt用户名.ControlSource=users.用户名txt密码.P

5、assWordChar=u*ntxt确认密码.PassWordChar=u*utxt姓名.ControlSource=users.姓名cbo用户组.controlsource二users.用户组.rowsourcctype=6■字段.rowsource二users.组编号,组名称.style=2-下拉列表框表单自定义属性：OldRecord=0-新增记录前的当前记录formmode="browsen-表单状态browse/new/modify表单白定义方法：*setmode：*——获取要设置的状态IFTHI

6、SFORM.FormMode=“browse”FormMode=.F.ELSEFonnMode=.T.ENDIF*——控制文本框THISFORM.SETALLC'ReadOnlyH,!FormMode,“TextBox”)*——控制组合框THISFORM.SETALL(MEnabledM,FormMode,,,ComboBoxn)*—控制“新增”按钮THISFORM.CmdNew.Enabled=!FormMode*——控制“退出”按钮THISFORM.CmdExit.Enabled=!FormMode*—

7、—更改按钮标题IFITHISFORM.FormMode=”browse”THISFORM.CmdModify.Caption=”保存”THISFORM.CmdDelete.Caption=”取消”ELSETHISFORM.CmdModify.Caption=”修改”THISFORM.CmdDelete.Caption=”删除”ENDIF*——如果用户名为“admin”，不能修改其用户名IFTHISFORM.UserList.Value="admin11;.AND.THISFORM.FormMode!=“ne

8、w”THISFORM.txt用户名.Readonly=.T.ENDIF表单的init代码：*——表单进入“浏览"状态THISFORM.FormMode二”browse”THISFORM.SetMode*——刷新表单THISFORM.Refresh•列表框useiiist.ClickTHISFORM.Refresh•新增CmdNew.Click*——保存记录指针的位置SELECTUSERSTHISFORM.OldR