VF数据库--工资管理系统.doc

河南城建学院课 程 设 计（工资管理系统）班 级 1314091姓 名 张庭多学 号 131409166指导教师 王康平、刘艳杰2011年 12 月 26-30 日一、 课程设计题目：工资管理系统二、 功能描述本系统是一个面向中小型企业的工资管理系统，该系统在成功连编之后，可独立的在windows环境下操作，本模块共分为13个独立的模块，可以完成一些基本的工资管理操作，如基本的数据浏览、查找、修改、添加、打印以及数据统计的功能，可通过职工的基本信息表与工资表之间的联系来完成对职工工资的各种操作。本系统包括项目的建立、数据库的建立、表单的建立、表的有关操作、数据库管理的操作、程序设计常用控件的使用、数据表的表单的程序设计、菜单的设计方法等。三、 概要设计 浏览浏览欢迎界面选择权限职工登陆管理员登陆浏览浏览关于本系统打印管理员信息编辑查询统计打印关于本系统添加修改删除按职工号查询员工工资按姓名查询员工工资按员工职工号浏览按员工姓名浏览系统欢迎界面模块： 本系统的开始界面系统登录模块的功能：（1） 用户权限设置，不同级别的用设有有不同的权限密码。（2） 综合初始系统设置。系统职工模块功能：（1） 浏览员工工资和信息（2） 浏览管理员信息（3） 打印（4） 关于本系统系统管理员模块功能：1、 浏览（1） 浏览员工信息（2） 浏览员工工资2、 编辑（1） 添加员工信息（2） 修改员工信息（3） 删除员工信息3、 统计（1） 按党员进行统计（2） 按性别进行统计4、 查询 （1） 按职工号查询职工工资和信息 （2） 按姓名查询职工工资和信息5、 打印（1）打印（2）预览6、关于本系统四、 详细设计系统项目和数据库： 建立项目工资管理系统.pjx和数据库sjk.dbc系统欢迎界面模块：建立表单 dl.scx 表单的load事件代码： public i,apublic jj=1(1) 建立标签“今天是”，“欢迎使用工资管理系统”(2) 建立命令按钮“确定”“退出”“确定”的click事件代码：do form mmthisform.release“退出”的click事件代码：quit(3) 建立计时器 timer1，timer2，timer3 Timer1的timer事件：if thisform.Label2.fontsize=8 thisform.Label2.fontsize=thisform.Label2.fontsize-2 thisform.Label2.left=thisform.Label2.left+10thisform.label2.forecolor=rgb(255*rand(),255*rand(),255*rand() a=.f. else a=.t. endifendif Timer2的timer事件：if i=.T. thisform.label3.caption=alltrim(str(year(date()+年+alltrim(str(month(date()+月+alltrim(str(day(date()+日 i=.F.else thisform.label3.caption=alltrim(time() i=.T.endifTimer3的timer事件：if j=33 j=1else j=j+1endifpic=str(j,2)+.bmpthisform.image1.picture=pic(4) 建立图象image1在picture里插入1.bmp图片系统登录模块：1、 建立表单mm.scx(1) 建立optiongroup1里面按钮“管理员”，“一般员工”(2) 建立命令按钮“确定”，“退出” “确定”的click事件代码：do case case thisform.optiongroup1.value=1 do form glydl thisform.release case thisform.optiongroup1.value=2 do form yhdl thisform.release endcase “退出”的click事件代码： Quit2、 建立表单yhdl.scx 表单的load事件代码： public ii=0（1）、建立标签“职工登录”，“用户名”，“密码”（2）、建立文本框text1，text2（3）、建立命令按钮“确定”，“退出”“确定”的click事件代码：go toplocate for 姓名=alltrim(thisform.text1.value)if 职工号=alltrim(thisform.text2.value) messagebox(欢迎进入！) do form yhzjm thisform.releaseelse i=i+1 if i=3 messagebox(用户名或密码错误，请重新输入！) thisform.text1.value= thisform.text2.value= thisform.text1.setfocus else messagebox(禁止进入！) quit endifendif“退出”的click事件代码：thisform.releasedo form mm3、 建立表单glydl.scx表单的load事件代码： public ii=0在表单的数据环境中添加gly.dbf表 （1）、建立标签“管理员登录”，“用户名”，“密码” （2）、建立组合框combo1 把属性rowsourcetype设置为6-字段 把属性rowsource设置为gly.姓名 把属性controlsource设置为gly.姓名 （3）、建立文本框text1 （4）、建立命令按钮“确定”，“退出”“确定”的click事件代码：go toplocate for 姓名=alltrim(bo1.value)if 密码=alltrim(thisform.text1.value) messagebox(登陆成功，欢迎进入！) do zjm.mpr thisform.releaseelse i=i+1 if i=3 messagebox(密码错误，请重新输入！) thisform.text1.value= thisform.text1.setfocus else messagebox(禁止进入！) quit endifendif“退出”的click事件代码：thisform.releasedo form mm系统职工模块：1、 建立表单yhzjm.scx（1）、建立标签“一般用户功能模块”（2）、建立命令按钮“浏览”，“管理员信息”，“打印”，“关于”“退出”“浏览”的click事件代码：do form yhll“管理员信息”的click事件代码：do form glyxx“打印”的click事件代码：do form dy“关于”的click事件代码：do form gy“退出”的click事件代码：quit2、 建立表单yhll.scx表单的load事件代码：public temp(14)thisform.refreshscatter to temp在表单的数据环境中添加xxb.dbf,gzb.dbf表 （1）、建立标签“浏览”，“员工信息”，“员工工资”“请输入要浏览的姓名” （2）、建立文本框text1 （3）、建立命令按钮群“第一个”，“上一个”，“下一个”，“最后一个” “第一个”的click事件代码：go topthisform.refresh“上一个”的click事件代码： if .not.bof() skip -1 thisform.refreshelse messagebox(已经是第一个了！)endif“下一个”的click事件代码：if .not.eof() skip thisform.refreshelse messagebox(已经是最后一个了！)endif“最后一个”的click事件代码：go bottomthisform.refresh（4）、建立命令按钮“查找”，“退出” “查找”的click事件代码：n=recno()go topscan if xxb.姓名=alltrim(thisform.text1.value) thisform.text1.value= thisform.text1.setfocus thisform.refresh scatter to temp return endifendscanmessagebox(该姓名不存在！,0,失败)go nthisform.text1.value=thisform.text1.setfocusthisform.refresh“退出”的click事件代码：thisform.release（5）、打开数据环境将xxb.dbf,gzb.dbf表中的各项拖到表单中 然后修改它们的各个属性3、 建立表单glyxx.scx 在表单的数据环境中添加glyxx.dbf（1）、建立标签“管理员信息”（2）、建立命令按钮群“第一个”，“上一个”，“下一个”，“最后一个”（3）、建立命令按钮“退出” “退出”的click事件代码：thisform.release（4）、打开数据环境将glyxx.dbf表中的各项拖到表单中 然后修改它们的各个属性4、 建立表单dy.scx（1）、建立选项按钮组optiongroup1把里面的标题设置为“打印”，“预览”（2）、建立命令按钮“确定”，“退出”“确定”的click事件代码：do case case thisform.optiongroup1.value=1 report form bb1 environment to printer thisform.refresh case thisform.optiongroup1.value=2 report form bb1 environment preview thisform.refreshendcase“退出”的click事件代码：thisform.release5、建立报表bb1.frx （1）、在标题栏里建立标签“员工工资信息表” （2）、在页表头建立标签“职工号”，“姓名”，“党员否”，“应发工资”，“基本工资”，“合计扣款”，“实发工资” （3）、在数据环境中添加xxb.dbf和gzb.dbf（4）、打开数据环境将xxb.dbf和gzb.dbf表中的各项拖到表单中 然后修改它们的各个属性 （5）、在页注脚里建立标签“第”，“页” （6）、在页注脚里建立两个域控件 第一个域控件的表达式：_pageno 第二个域控件的表达式：alltrim(str(year(date()+年+alltrim(str(month(date()+月+alltrim(str(day(date()+日6、建立表单gy.scx在表单的init事件代码：thisform.label2.caption=系统说明+chr(13)+本工资管理系统，是一个比较+chr(13) +完整的，关于visual foxfro使用实例的+chr(13)+系统，希望大家能够喜欢。thisform.label3.caption=产品名称：工资管理系统+chr(13)+版本号：V1.00thisform.label4.caption=版权所有:张庭多+chr(13)建立标签“关于系统”，label2，label3,label4并对它们的属性进行设置系统管理员模块：1、 浏览1、 建立表单llxxb.scx在表单的数据环境中添加xxb.dbf（1）、建立标签“浏览员工信息”（2）、建立命令按钮“退出” “退出”的click事件代码：thisform.release（3）、打开表单的数据环境把把表xxb.dbf拖到表单里2、 建立表单llgzb.scx在表单的数据环境中添加gzb.dbf（1）、建立标签“浏览员工工资”（2）、建立命令按钮“退出”“退出”的click事件代码：thisform.release（3）、打开表单的数据环境把把表gzb.dbf拖到表单里2、 编辑1、 建立表单tianjia.scx表单的init事件代码：use xxbappend blankthisform.txt职工号.readonly=.f.thisform.txt姓名.readonly=.f.thisform.txt职称.readonly=.f.thisform.txt性别.readonly=.f.thisform.txt年龄.readonly=.f.thisform.txt学历.readonly=.f.thisform.txt工龄.readonly=.f.thisform.edt备注.readonly=.f.thisform.txt职工号.setfocusthisform.refresh在表单的数据环境中添加xxb.dbf（1）、建立标签“添加员工信息”（2）、建立命令按钮“添加”，“退出”“添加”的click事件代码：m=messagebox(是否保存？,4+32,信息窗口)if m=6 messagebox(记录添加成功！,48,信息窗口)else delete pack thisform.refresh endifappend blank thisform.txt职工号.setfocus thisform.refresh“退出”的click事件代码：deletepackthisform.releaseuse （3）、打开表单的数据环境把把表xxb.dbf的各项拖到表单里，并修改它们的属性 2、建立表单xg.scx 表单的init事件代码：use xxbpublic temp(8)thisform.txt职工号.readonly=.f.thisform.txt姓名.readonly=.f.thisform.txt职称.readonly=.f.thisform.txt性别.readonly=.f.thisform.txt年龄.readonly=.f.thisform.txt工龄.readonly=.f.thisform.txt学历.readonly=.f.thisform.edt备注.readonly=.f.thisform.refreshscatter to temp在表单的数据环境中添加xxb.dbf （1）、建立标签“修改员工信息”，“请输入要修改的职工号：” （2）、建立命令按钮：“查找”，“修改”，“退出” “查找”的click事件代码： n=recno()go topscan if xxb.职工号=alltrim(thisform.text1.value) thisform.text1.value= thisform.text1.setfocus thisform.refresh scatter to temp return endifendscanmessagebox(该职工号不存在！,0,失败)go nthisform.text1.value=thisform.text1.setfocusthisform.refresh“修改”的click事件代码：m=messagebox(是否保存修改记录？,4+32,信息窗口)if m=6 messagebox=(保存成功！) scatter to tempelse gather from temp thisform.refreshendif“退出”的click事件代码：thisform.releaseuse（3）、建立命令按钮群“第一个”，“上一个”，“下一个”，“最后一个”（4）、建立文本框text1（5）、打开表单的数据环境把把表xxb.dbf的各项拖到表单里，并修改它们的属性3、建立表单sc.scx表单的init事件代码：use xxbthisform.txt职工号.readonly=.t.thisform.txt姓名.readonly=.t.thisform.txt学历.readonly=.t.thisform.txt性别.readonly=.t.thisform.txt年龄.readonly=.t.thisform.txt工龄.readonly=.t.thisform.refresh在表单的数据环境中添加xxb.dbf（1）、建立标签“删除员工信息”，“请输入要查找的职工号：”（2）、建立命令按钮“查找”，“删除”，“退出” “查找”的click事件代码： n=recno()go topscan if xxb.职工号=alltrim(thisform.text1.value) thisform.text1.value= thisform.text1.setfocus thisform.refresh scatter to temp return endifendscanmessagebox(该职工号不存在！,0,失败)go nthisform.text1.value=thisform.text1.setfocusthisform.refresh“删除”的click事件代码：m=messagebox(是否删除该记录？,4+48,信息窗口)if m=6 dele skip 1 pack messagebox(删除成功！,48,信息窗口)endif thisform.refresh“退出”的click事件代码：thisform.releaseuse（3）、建立命令按钮群“第一个”，“上一个”，“下一个”，“最后一个”（4）、建立文本框text1（5）、打开表单的数据环境把把表xxb.dbf的各项拖到表单里，并修改它们的属性3、 统计建立表单tj.scx在表单的数据环境中添加xxb.dbf（1）、建立标签“统计”（2）、建立选项按钮组optiongroup1把里面的标题设置为“党员”，“性别”（3）、建立命令按钮“确定”，“退出” “确定”的click事件代码：do case case thisform.optiongroup1.value=1 select 性别, count (*) as 人数 from xxb group by 性别 into cursor aa thisform.grid1.recordsource=aa thisform.refresh case thisform.optiongroup1.value=2 select 党员否, count (*) as 人数 from xxb group by 党员否 into cursor bb thisform.grid1.recordsource=bb thisform.refreshendcase “退出”的click事件代码：thisform.release（4）、建立表格grid1并修改他的属性将grid1的readonly改为t将grid1的recordsource改为xxb4、 查询1、 建立表单xxgzcx.scx表单的load事件代码：public temp(14)thisform.refreshscatter to temp在表单的数据环境中添加xxb.dbf和gzb.dbf（1）、建立标签“查询员工信息和工资”，“员工信息”，“ 员工工资”，“请输入要查询的姓名：”（2）、建立文本框text1（3）、建立命令按钮“查找”，“退出” “查找”的click事件代码：n=recno()go topscan if xxb.姓名=alltrim(thisform.text1.value) thisform.text1.value= thisform.text1.setfocus thisform.refresh scatter to temp return endifendscanmessagebox(该姓名不存在！,0,失败)go nthisform.text1.value=thisform.text1.setfocusthisform.refresh “退出”的click事件代码：thisform.release（4）、建立命令按钮群“第一个”，“上一个”，“下一个”，“最后一个”（5）、打开表单的数据环境把把表xxb.dbf和gzb.dbf的各项拖到表单里，并修改它们的属性2、 建立表单xxgzzghcx.scx表单的load事件代码：public temp(14)thisform.refreshscatter to temp在表单的数据环境中添加xxb.dbf和gzb.dbf（1）、建立标签“查询员工信息和工资”，“员工信息”，“ 员工工资”，“请输入要查询的职工号：”（2）、建立文本框text1（3）、建立命令按钮“查找”，“退出” “查找”的click事件代码：n=recno()go topscan if xxb.职工号=alltrim(thisform.text1.value) thisform.text1.value= thisform.text1.setfocus thisform.refresh scatter to temp return endifendscanmessagebox(该姓名不存在！,0,失败)go nthisform.text1.value=thisform.text1.setfocusthisform.refresh “退出”的click事件代码：thisform.release（4）、建立命令按钮群“第一个”，“上一个”，“下一个”，“最后一个”（5）、打开表单的数据环境把把表xxb.dbf和gzb.dbf的各项拖到表单里，并修改它们的属性5、 打印1、 建立表单dy.scx（1）、建立选项按钮组optiongroup1把里面的标题设置为“打印”，“预览”（2）、建立命令按钮“确定”，“退出”“确定”的click事件代码：do case case thisform.optiongroup1.value=1 report form bb1 environment to printer thisform.refresh case thisform.optiongroup1.value=2 report form bb1 environment preview thisform.refreshendcase“退出”的click事件代码：thisform.release2、建立报表bb1.frx （1）、在标题栏里建立标签“员工工资信息表” （2）、在页表头建立标签“职工号”，“姓名”，“党员否”，“应发工资”，“基本工资”，“合计扣款”，“实发工资” （3）、在数据环境中添加xxb.dbf和gzb.dbf（4）、打开数据环境将xxb.dbf和gzb.dbf表中的各项拖到表单中 然后修改它们的各个属性 （5）、在页注脚里建立标签“第”，“页” （6）、在页注脚里建立两个域控件 第一个域控件的表达式：_pageno 第二个域控件的表达式：alltrim(str(year(date()+年+alltrim(str(month(date()+月+alltrim(str(day(date()+日6、 关于建立表单gy.scx在表单的init事件代码：thi