《vf课程设计员工工资管理系统》由会员分享，可在线阅读，更多相关《vf课程设计员工工资管理系统（17页珍藏版）》请在金锄头文库上搜索。
1、数据库技术与应用课程设计 题目：员工工资管理系统系别：测绘工程专业：地理信息系统班级：0624121姓名：时柳青 孙浩 谈士军 王豪 2014年1月2日 1.功能简介工资管理信息系统对企业加强工资管理有着极其重要的作用，就一般的大型企业来说，它的设计内容非常复杂而且繁多，比如拥有工资计算功能，工资统计功能，报表输出功能，而且设计的模块也很多，比如工资管理模块，工资统计模块，报表设计模块，打印输出模块，模糊查询模块等等。通过本系统可以实现员工信息和工资的浏览、查询、编辑和预览打印报表的功能。 2.概要设计由于这是一次课程设计，制作的系统相对来说比较简单。包括登录模块、数据浏览模块、数据添加模块、
2、数据修改模块、数据删除模块、数据查询模块、数据统计模块、报表输出模块。该工资管理的系统的主要功能如图所示。 工资管理系统浏览查询统计输出编辑集体查询个人查询添加修改删除浏览模块要求有员工的基本信息，查询模块个人查询通过职工编号的来查询员工各自的信息，集体查询通过查询一个部门。编辑模块包括添加、修改、删除模块，输出模块包括报表的预览与打印。3.详细设计工资管理系统主界面 登录代码如下：do casecase thisform.optiongroup1.value=1if thisform.cbo用户名.value=时柳青 and thisform.txt密码.value=123do form 工
3、资管理系统欢迎界面.scxelsei=i+1if i=3messagebox(用户名或密码错误)thisform.cbo用户名.value=thisform.txt密码.value=thisform.cbo用户名.setfocuselse messagebox(信息有误,不能登录)endifendifcase thisform.optiongroup1.value=2if thisform.cbo用户名.value=孙浩 and thisform.txt密码.value=456do form 一般用户登录后的界面.scxelsek=k+1if k=3messagebox(用户名或密码错误)th
4、isform.cbo用户名.value=thisform.txt密码.value=thisform.cbo用户名.setfocuselse messagebox(信息有误,不能登录)endifendifendcase退出代码如下： release thisform工资管理系统欢迎界面所用代码如下：do form 浏览界面.scxdo form 个人查询界面.scxdo form 集体查询界面.scxdo form 添加记录界面.scxdo form 修改记录界面.scxdo form 删除记录界面.scx do form 打印界面.scx 所用代码如下： do form 个人查询界面.scx
5、do form 集体查询界面.scx release thisform 集体查询界面确定代码如下：do casecase bo1.value=生产部select 员工表.职工编号,员工表.姓名,工资表.基本工资,工资表.岗位工资,工资表.奖金,工资表.扣所得税,工资表.实发工资 from 员工表,工资表;where 员工表.部门=生产部 and 员工表.职工编号=工资表.职工编号 into cursor shchbthisform.grid1.recordsource=shchbthisform.grid1.refreshcase bo1.value=销售部select 员工表.职工编号,员工
6、表.姓名,工资表.基本工资,工资表.岗位工资,工资表.奖金,工资表.扣所得税,工资表.实发工资 from 员工表,工资表;where 员工表.部门=销售部 and 员工表.职工编号=工资表.职工编号 into cursor xshbthisform.grid1.recordsource=xshbthisform.grid1.refreshcase bo1.value=技术部select 员工表.职工编号,员工表.姓名,工资表.基本工资,工资表.岗位工资,工资表.奖金,工资表.扣所得税,工资表.实发工资 from 员工表,工资表;where 员工表.部门=技术部 and 员工表.职工编号=工资表
7、.职工编号 into cursor jshbthisform.grid1.recordsource=jshbthisform.grid1.refreshcase bo1.value=公关部select 员工表.职工编号,员工表.姓名,工资表.基本工资,工资表.岗位工资,工资表.奖金,工资表.扣所得税,工资表.实发工资 from 员工表,工资表;where 员工表.部门=公关部 and 员工表.职工编号=工资表.职工编号 into cursor ggbthisform.grid1.recordsource=ggbthisform.grid1.refreshendcase个人查询界面确定代码如下z
8、gbh=alltrim(thisform.text1.value)select 工资表set order to tag 职工编号seek zgbhif found ()select 工资表.职工编号,员工表.姓名,员工表.性别,员工表.工作日期,员工表.职称,工资表.基本工资,工资表.岗位工资,工资表.奖金,工资表.津贴,工资表.扣所得税,工资表.实发工资;from 员工表,工资表;where 工资表.职工编号=alltrim(thisform.text1.value) and 员工表.职工编号=工资表.职工编号 into cursor chxthisform.txt姓名.value=chx.
9、姓名thisform.txt性别.value=chx.性别thisform.txt工作日期.value=chx.工作日期thisform.txt职称.value=chx.职称thisform.txt基本工资.value=chx.基本工资thisform.txt岗位工资.value=chx.岗位工资thisform.txt奖金.value=chx.奖金thisform.txt津贴.value=chx.津贴thisform.txt扣所得税.value=chx.扣所得税thisform.txt实发工资.value=chx.实发工资thisform.refreshelsethisform.txt姓名.
10、value=thisform.txt性别.value=thisform.txt工作日期.value=thisform.txt职称.value=thisform.txt基本工资.value=thisform.txt岗位工资.value=thisform.txt奖金.value=thisform.txt津贴.value=thisform.txt扣所得税.value=thisform.txt实发工资.value=messagebox(没有找到记录！,48,警告)endif浏览界面添加记录界面所用代码如下：m=messagebox(是否添加?,4+32,信息窗口)append blankthisfor
11、m.refreshthisform.text1.enabled=.t.thisform.text2.enabled=.t.thisform.text3.enabled=.t.thisform.text4.enabled=.t.thisform.text5.enabled=.t.thisform.text6.enabled=.t.thisform.text7.enabled=.t.thisform.text8.enabled=.t.thisform.text9.enabled=.t.thisform.text10.enabled=.t.thisform.text11.enabled=.t.thi
12、sform.refresh确定代码thisform.text1.enabled=.f.thisform.text2.enabled=.f.thisform.text3.enabled=.f.thisform.text4.enabled=.f.thisform.text5.enabled=.f.thisform.text6.enabled=.f.thisform.text7.enabled=.f.thisform.text8.enabled=.f.thisform.text9.enabled=.f.thisform.text10.enabled=.f.thisform.text11.enable
13、d=.f.thisform.refresh修改界面：修改记录代码：if mand1.caption=修改记录thisform.text1.enabled=.T.thisform.text2.enabled=.T.thisform.text3.enabled=.T.thisform.text4.enabled=.T.thisform.text5.enabled=.T.thisform.text6.enabled=.T.thisform.text7.enabled=.Tmand1.caption=确认修改mand1.caption=修改记录thisform.text1.enabled=.f.thisform.text2.enabled=.f.thisform.text3.enabled=.f.thisform.text4.enabled=.f.thisform.text5.enabled=.f.thisform.text6.enabled=.f.thisform.text7.enabled=.f.endif修改密码界面：确认代码如下USE 用户密码
