欢迎来到天天文库
浏览记录
ID:59191315
大小:448.50 KB
页数:32页
时间:2020-09-26
《程序主界面ppt课件.ppt》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、本章主要介绍主界面类型、创建主菜单、工具栏、主表单。第6章.程序主界面主界面的类型:在VFP中,主界面一般有菜单式、表单式以及表单与菜单式。主界面的类型菜单式程序一般是指菜单作为程序的界面,通过将VFP窗口中原有的菜单隐藏,然后执行程序菜单,系统中所有功能由菜单来调用,另外菜单程序界面也可以加入工具栏。.1菜单式进入程序后,表单上放置按钮,通过按钮调用系统提供的功能。.2表单式使用表单作为程序主界面,在表单中加载菜单、工具栏及状态栏。一般使用该类界面作为程序主界面。下面以人力资源管理系统程序主界面为例介绍表单与菜单式主界面的创
2、建。.3表单与菜单式菜单可以使用户全面而清晰了解程序的所有功能。创建菜单的步骤:规划与设计菜单;创建菜单和子菜单;为菜单指定任务;生成菜单程序,测试运行菜单。6.1创建菜单1.按执行的任务组织菜单;2.定义简洁明了的菜单项;3.菜单项目不要过多;4.暂时未完成的菜单项目,应先规划好位置;5.通过定义快捷键提高操作速度。6.1.1菜单的设计原则步骤:项目管理器/其他/菜单/新建/新建菜单/{在菜单设计器中编辑规划好的菜单}。6.1.2创建菜单1.基础数据子菜单2.数据管理子菜单3.数据查询子菜单4.数据输出子菜单修改密码的选项:
3、用户组管理的选项:用户管理的选项:5.系统管理子菜单6.用户权限设置参考PUBLICArrayAuthName[17]AuthName[1]="基础信息管理"AuthName[2]="员工档案管理"AuthName[3]="奖励记录管理"AuthName[4]="惩罚记录管理"AuthName[5]="培训记录管理"AuthName[6]="调动记录管理"AuthName[7]="考评记录管理"AuthName[8]="用户组管理"AuthName[9]="用户管理"AuthName[10]="奖励记录查询"AuthName[
4、11]="惩罚记录查询"AuthName[12]="培训记录查询"AuthName[13]="考评记录查询"AuthName[14]="调动记录查询"AuthName[15]="员工档案查询"AuthName[16]="用户密码修改"AuthName[17]="培训项目管理"操作步骤:激活菜单设计器/菜单:显示/常规选项/勾选“顶层表单”。7.设置常规选项操作步骤:激活菜单设计器/菜单:“菜单”/生成:MainMenu.Mpr/生成8.生成菜单程序表单的属性设置:ShowWindow=2–作为顶层表单在表单的Init中加入代码
5、:DoMainMenu.Mprwiththis,.T.在表单的Destroy过程中加入代码:Release(This.Name)Extended---------完成----------9.设置加载表单在VFP中,创建工具栏可以通过创建Toolbar类的子类方式完成。创建工具栏步骤:1.项目管理器/类/新建2.类名:MyToolbar,基类:Toolbar,存储于:MyTools3.类设计器中,加入10个MyCmd类对象,4个分隔符设置控件属性:6.2创建工具栏控件captiontooltiptextClick代码CmdBas
6、ic基本基本信息Doformbasicinfowith1CmdPer员工员工档案doformpersonnalCmdEnc奖励奖励记录doformenclogCmdPun惩罚惩罚记录doformpunishlogCmdRev考评考评记录doformreviewlogCmdTrain培训培训记录doformtrainlogCmdRed调动调动记录doformredeploylogCmdPass密码修改密码doformsetpassCmdUser用户系统用户doformuseradminCmdExit退出退出系统另外,CmdExi
7、t.Cancel=.T..控件属性YN=MESSAGEBOX("确定退出系统",4+32,"人力资源管理系统")IFYN=6THISFORM.Parent.RELEASECLEAREVENTENDIF.CmdExit.Click*——根据用户的权限来设定按钮的可用状态IF.NOT.cUser=="admin"THIS.CmdBasic.Enabled=GotAuth[1]THIS.CmdPer.Enabled=GotAuth[2]THISFORM.CmdEnc.Enabled=GotAuth[3]THISFORM.CmdPun
8、.Enabled=GotAuth[4]THISFORM.CmdRev.Enabled=GotAuth[6]THISFORM.CmdTrain.Enabled=GotAuth[5]THISFORM.CmdRed.Enabled=GotAuth[7]THISFORM.CmdPas
此文档下载收益归作者所有