工信版(中职)Visual FoxPro 6.0教程第八章 数据库应用程序开发实例教学课件.ppt
《工信版(中职)Visual FoxPro 6.0教程第八章 数据库应用程序开发实例教学课件.ppt》由会员分享,可在线阅读,更多相关《工信版(中职)Visual FoxPro 6.0教程第八章 数据库应用程序开发实例教学课件.ppt(84页珍藏版)》请在淘文阁 - 分享文档赚钱的网站上搜索。
1、YCF(中职)Visual FoxPro 6.0教程第八章 数据库应用程序开发实例教学课件第八章第八章 数据库应用程序开发实例数据库应用程序开发实例任务一任务一 系统功能分析系统功能分析任务二任务二 系统设计系统设计任务三任务三 编译应用程序编译应用程序任务一任务一 系统功能分析系统功能分析一、系统功能介绍一、系统功能介绍 本系统用来实现企业的员工信息管理、员工工资管理。本系统用来实现企业的员工信息管理、员工工资管理。员工信息管理的主要功能有员工记录的添加、编辑、保存、删除、员员工信息管理的主要功能有员工记录的添加、编辑、保存、删除、员工信息的打印工信息的打印:员工工资管理的主要功能有当月基本
2、工资的生成、当月变动工资的输员工工资管理的主要功能有当月基本工资的生成、当月变动工资的输入、当月实发工资的生成及打印入、当月实发工资的生成及打印系统结构框图如系统结构框图如图图8-1所示。所示。各组成部分的功能如下。各组成部分的功能如下。数据管理数据管理:对员工进行添加、删除等操作对员工进行添加、删除等操作;对员工的个人信息进行浏览、修改、对员工的个人信息进行浏览、修改、保存等操作。保存等操作。下一页返回任务一任务一 系统功能分析系统功能分析根据员工的基本信息、所处的工作岗位生成当月基本工资表根据员工的基本信息、所处的工作岗位生成当月基本工资表;在当在当月基本资表的基础上录入其他工资和各项扣款
3、月基本资表的基础上录入其他工资和各项扣款;生成当月实发工资。生成当月实发工资。数据打印数据打印:打印员工信息和员工工资打印员工信息和员工工资退出退出:退出本管理系统退出本管理系统二、系统功能演示二、系统功能演示1.启动应用程序启动应用程序双击双击 图标,启动企业工资管理系统,如图标,启动企业工资管理系统,如图图8-2所示。所示。单击单击“进入系统进入系统”按钮,启动界面消失,进入应用程序主界面,如按钮,启动界面消失,进入应用程序主界面,如图图8-3所示所示;单击单击“退出退出”按钮,退出本系统的使用。按钮,退出本系统的使用。上一页 下一页返回任务一任务一 系统功能分析系统功能分析2.菜单功能介
4、绍菜单功能介绍(1)数据管理数据管理单击数据管理菜单项,会弹出下拉式菜单,其中有两项子菜单单击数据管理菜单项,会弹出下拉式菜单,其中有两项子菜单:员工信员工信息管理和员工工资管理息管理和员工工资管理.如如图图8-4所示。所示。员工信息管理。单击员工信息管理。单击“员工信息管理员工信息管理”子菜单项,进人员工信息管子菜单项,进人员工信息管理窗口,如理窗口,如图图8-5所示。所示。a.通过如通过如图图8-6中的四个按钮,来浏览记录。中的四个按钮,来浏览记录。b.通过单击通过单击图图8-7中的中的“添加添加”“编辑编辑”“删除删除”“保存保存”按钮,实现在员工按钮,实现在员工信息表中添加记录、修改记
5、录并保存、删除记录。信息表中添加记录、修改记录并保存、删除记录。上一页 下一页返回任务一任务一 系统功能分析系统功能分析员工工资管理。单击员工工资管理。单击“员工工资管理员工工资管理”子菜单项,进入员工工资管理子菜单项,进入员工工资管理窗口,如窗口,如图图8-8所示。所示。a.通过通过 单击按钮,可以把上月工资从数据库中清除。单击按钮,可以把上月工资从数据库中清除。b.通过通过 在文本框中输入当月下资的年份在文本框中输入当月下资的年份:在下在下拉列表框中选择月份。拉列表框中选择月份。c.通过通过 单击按钮,系统自动根据员工信息表中相关信息生单击按钮,系统自动根据员工信息表中相关信息生成本月基本
6、工资信息,如成本月基本工资信息,如图图8-9所示。所示。在生成的员工基本工资表上,录入本月其他工资和各项扣款。在生成的员工基本工资表上,录入本月其他工资和各项扣款。通过单击通过单击 按钮按钮.系统生成扣除了个人所得税后的员工实发系统生成扣除了个人所得税后的员工实发下资,如下资,如图图8-10所示。所示。上一页 下一页返回任务一任务一 系统功能分析系统功能分析(2)数据打印数据打印单击数据打印菜单项,会弹出下拉式菜单,其中有两个子菜单项单击数据打印菜单项,会弹出下拉式菜单,其中有两个子菜单项:员工员工信息打印和员工工资打印,如信息打印和员工工资打印,如图图8-11所示。所示。员工信息打印。单击员
7、工信息打印。单击“员工信息打印员工信息打印”子菜单项,进人员工信息打印子菜单项,进人员工信息打印可以预览或打印员工信息,如可以预览或打印员工信息,如图图8-12所示。所示。员工工资打印。单击员工工资打印。单击“员工工资打印员工工资打印”命令,进人员工工资打印,可命令,进人员工工资打印,可以预览或打印员工工资如以预览或打印员工工资如图图8-13所示。所示。上一页返回任务二任务二 系统设计系统设计一、一、数据库设计数据库设计数据库在整个管理系统中占有非常重要的位置,数据库结构设计的好数据库在整个管理系统中占有非常重要的位置,数据库结构设计的好坏将白接影响数据库的使用效率和系统实现的效果。坏将白接影
8、响数据库的使用效率和系统实现的效果。在在d:下创建文件夹,文件夹名为下创建文件夹,文件夹名为“应用程序实例应用程序实例”,并将该文件夹,并将该文件夹设为默认日录。建立设为默认日录。建立forms,data,report三个子文件夹,分别用来三个子文件夹,分别用来存放表单文件、数据库文件、报表文件。存放表单文件、数据库文件、报表文件。建立一个项目文件建立一个项目文件“企业工资管理系统企业工资管理系统.pjx”。在该项目中创建一个名为在该项目中创建一个名为salary的数据库。的数据库。在数据库中创建以下表。在数据库中创建以下表。下一页返回任务二任务二 系统设计系统设计 a.在数据库中创建在数据库
9、中创建“staffinfo.dbf”表,用来存放员工基本信息,表结表,用来存放员工基本信息,表结构如构如图图8一一14所示。所示。基于教学目的及篇幅的考虑,所用数据库仅使用了一些基本必需的表基于教学目的及篇幅的考虑,所用数据库仅使用了一些基本必需的表和字段员工编号是索引字段。和字段员工编号是索引字段。b.在数据库中创建在数据库中创建“salsrystatic.dhf”表,用来存放当月工资,表结表,用来存放当月工资,表结构如构如图图8-15所示员工编号是索引字段。所示员工编号是索引字段。c.在数据库中创建在数据库中创建“salarytax.dhf”表,用来存放个人所得税计算方法,表,用来存放个人
10、所得税计算方法,如如图图8一一16所示。所示。d.在数据库中创建在数据库中创建“pastpay.dhf”表,用来存放不同岗位名称所对应表,用来存放不同岗位名称所对应的岗位工资,如的岗位工资,如图图8-17所示。所示。上一页 下一页返回任务二任务二 系统设计系统设计二、程序启动界面的设计二、程序启动界面的设计1.创建启动界面创建启动界面创建一个文件名为创建一个文件名为*tart.scx的表单,作为启动界面表单,如的表单,作为启动界面表单,如图图8-18所所示表单及表单控件部分属性的设置见示表单及表单控件部分属性的设置见表表8-1。2.编写表单代码编写表单代码当单击当单击“进入系统进入系统”按钮,
11、启动界面消失,显示应用程序主界面按钮,启动界面消失,显示应用程序主界面:单击单击“退出退出”按钮结束应用程序的运行因此,需要给按钮结束应用程序的运行因此,需要给command1和和command2添加代码代码如下添加代码代码如下:command1_ clickthisform.release上一页 下一页返回任务二任务二 系统设计系统设计do form formsmainf&调用主表单,进人程序主界曲调用主表单,进人程序主界曲command2 clickthisform.releaseclear eventsquit三、程序主界面的设计三、程序主界面的设计1.创建主界面创建主界面创建一个名为创
12、建一个名为mainf.scx的表单,如的表单,如图图8-19所示所示2.创建菜单创建菜单创建一个名为创建一个名为mainmenu的菜单,如的菜单,如图图8-20所示。所示。上一页 下一页返回任务二任务二 系统设计系统设计菜单项、子菜单项及调用对象如菜单项、子菜单项及调用对象如图图8-21图图8-24所示。所示。3.载入菜单载入菜单在在mainf的的init过程中添加过程中添加do mainmenu.mpr with this来载入菜单。来载入菜单。在在mainf的的unload过程中添加过程中添加clear event*来清除事件循环,从而结来清除事件循环,从而结束整个程序。束整个程序。四、数
13、据管理模块的设计四、数据管理模块的设计1.员工信息管理表单员工信息管理表单界面创建一个名为界面创建一个名为*taffadm.scx的表单,在数据环境中添加的表单,在数据环境中添加*taffinfo和和postpay表,用来实现员工信息管理,如表,用来实现员工信息管理,如图图8-25所示。所示。用到的主要控件及其部分属性,见用到的主要控件及其部分属性,见表表8-2。上一页 下一页返回任务二任务二 系统设计系统设计在本表单中需要一个自定义属性在本表单中需要一个自定义属性bModify和一个自定义方法和一个自定义方法Setmode在本管理系统中定义员工信息管理表单存在在本管理系统中定义员工信息管理表
14、单存在“浏览浏览”和和“修改修改”两种状态两种状态其中其中“浏览浏览”状态是指表单中的控件处于如下的状态状态是指表单中的控件处于如下的状态:表单中的文本框只表单中的文本框只读组合框不可以接收焦点读组合框不可以接收焦点;“保存保存”和和“取消取消”按钮不可用。按钮不可用。本程序中使用自定义方法本程序中使用自定义方法“setmode”来改变表单中控件的状态,该方来改变表单中控件的状态,该方法首先获取法首先获取“bModify”的值,然后根据该值来改变表单中控件的状态,的值,然后根据该值来改变表单中控件的状态,具体代码如下。具体代码如下。staffadm_ setmode*“员工信息管理员工信息管理
15、”表单表单“setmode”方法方法*作用作用:根据表单属性根据表单属性“bModify”取值来判断表单中控件状态取值来判断表单中控件状态*将属性值赋给变量将属性值赋给变量上一页 下一页返回任务二任务二 系统设计系统设计bmodify=thisform.bmodify*控件表单中文本框控件状态控件表单中文本框控件状态thisform.setall(“readonly”,!“bmodify”,“textbox”)*控制表单中组合框控件状态控制表单中组合框控件状态thisform.setall(“enabled”,“bmodify”,“combobox”)*控制表单中表格控件状态控制表单中表格控件
16、状态thisform.grid1.enabled=!bmodify*控制表单中命令按钮状态控制表单中命令按钮状态thisform.cmdnew.enabled=!bmodifythisform.cmdmodify.enabled=!bmodifythisform.cmddel.enabled=!bmodify thisform.cmdsave.enabled=bmodify上一页 下一页返回任务二任务二 系统设计系统设计thisform.cmdccl.enabled=bmodifythisform.cmdexit.enabled=!bmodify*刷新表单刷新表单thisform.refres
17、h编写表单过程代码编写表单过程代码staffadm_ init*表单进入浏览状态表单进入浏览状态thisform.bmodify=.fthisform.setmode*刷新表单刷新表单thisform.refreshstaffadm_refresh上一页 下一页返回任务二任务二 系统设计系统设计*根据记录指针位于表的位置,设置表单中各个控件的状态根据记录指针位于表的位置,设置表单中各个控件的状态select slaffinfo*如果数据进入编辑状态,就不能移动记录了如果数据进入编辑状态,就不能移动记录了if ahlcd=ahlcd=ahlcd=.f.Ihis_ cmdbtm.enabled=.
18、f.returnendif*如果数据表为空如果数据表为空.就只有添加和退出可用就只有添加和退出可用.其他不可用其他不可用上一页 下一页返回任务二任务二 系统设计系统设计if(BOF().AND.EOF().OR.RECCOUNT()=0thisform.bmodify=.f.thisform.grid1.enabled=.f.thisform.cmdmodiry.enabled=.f.thisform.cmddel.enabled=.f.thisform.cmrlsave.enahlerl=.f.thisform.cmrlccl.enabled=.f.endif*如果数据表为空或者只有一条记录
19、如果数据表为空或者只有一条记录上一页 下一页返回任务二任务二 系统设计系统设计if(BOF().AND.EOF().OR.RECCOUNT()0go bottombh=员工编号员工编号上一页 下一页返回任务二任务二 系统设计系统设计newbh=alltrim(str(val(bh)+1)nzero=“00000000”lenbh=len(newbh)bh=substr(nzero,1,8-lenbh)+newbhelse&如果表中没有记录如果表中没有记录.设置编号为设置编号为”“00000001”bh=“00000001”endif*添加空自记录添加空自记录append blank*使表单进入
20、修改状态使表单进入修改状态上一页 下一页返回任务二任务二 系统设计系统设计thisform.bmodifv=.t.thisform.setmodethisform.txt员工编号员工编号.value=bh*刷新表单刷新表单thisform.refreshcmdmodify_ click*使表单进入修改状态使表单进入修改状态thisform.bmodifv=.t.thisform.setmode*刷新表单刷新表单上一页 下一页返回任务二任务二 系统设计系统设计thisform.refreshcmddel_ click*确认对话框确认对话框yn=messagebox(“确定删除确定删除”,4+32
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 工信版中职Visual FoxPro 6.0教程第八章 数据库应用程序开发实例教学课件 工信版 Visual 6.0 教程 第八 数据库 应用程序 开发 实例 教学 课件
链接地址:https://www.taowenge.com/p-90587805.html
限制150内