利用VF设计人事管理数据库系统

1、精选优质文档-倾情为你奉上中国矿业大学矿业工程学院实验报告课程名称 数据库与运输信息系统姓名 周轲雯 班级 交通运输10-1班学号 日期 2013年6月成绩 教师 王振军超市管理系统设计一、 准备工作1、建立文件夹在系统的E盘建立一个文件夹用以存放此次设计的各种格式的数据、文件、程序等，文件命名为：超市管理系统。文件夹地址为：E:超市管理系统2、需求分析在此系统中的数据库要包含：员工表，部门职位表，工资表，缺勤表，以及自由表操作员表。数据库表：员工表：员工编号，员工姓名，性别，出生日期，工作日期，学历，婚否，部门，职称，备注说明部门职位表：部门名称，部门代号，职位名称，职位代号工资表：员工编号

2、，员工姓名，基本工资，津贴，奖金，应发工资，缺勤扣款，医疗保险，住房基金，所得税，实发工资，发出日期缺勤表：员工编号，员工姓名，缺勤日期，缺勤类别自由表：操作员表：序号，操作员编号，操作员密码，操作员级别二、 数据库与表的创建建立一个项目文件，文件名称为：超市管理系统，在此项目下建立“超市管理的人事管理系统”，在工具-选项中将默认目录设置为：e:超市管理系统，将日期格式设置为年月日，24小时制，选择“年份”选项，选择“星期开始于”为“星期一”，设置为默认值。在此数据库下建立各表。员工表：注一：依次设置标题为：员工编号，员工姓名，性别，出生日期，工作日期，学历，婚否，部门，职称，备注注二：字段有

3、效性规则设置为：xb字段为：xb=”男” or xb=”女”部门职位表：注一：字段标题依次设置为：部门名称，部门代号，职位名称，职位代号注一：字段的标题依次设置为：员工编号，员工姓名，基本工资，津贴，奖金，应发工资，缺勤扣款，医疗保险，住房基金，所得税，实发工资，发出日期缺勤登记表：注一：字段的标题依次设置为：员工编号，员工姓名，缺勤日期，缺勤类别操作员表：三、 查询与视图在本程序中没有利用查询设计器来建设查询，而是利用表单来设立查询。由于数据环境不是特别复杂，所以也并没有建立视图。四、 表单（1） 操作员管理数据环境为操作员表，文本框text2，text3的PasswordChar属性为“*

4、”命令按钮“确认”代码：public czybh,czymm,zcsrmm,czyjbczybh=thisform.text1.valueczymm=thisform.text2.valuezcsrmm=thisform.text3.valueczyjb=thisform.text4.valuelocate for allt(操作员编号)=allt(czybh) if !eof() =messagebox("此编号已经存在，请重新输入！") thisform.text1.value="" thisform.text1.setfocus else if c

5、zymm<>zcsrmm =messagebox("密码输入不一致，请确认！") thisform.text2.value="" thisform.text3.value="" thisform.text2.setfocus else insert into 操作员表(操作员编号,操作员密码,操作员级别) values (czybh,czymm,czyjb) =messagebox("输入成功！") endif endifthisform.text1.value=""thisform

6、.text2.value="" thisform.text3.value="" thisform.text4.value=""命令按钮“退出”代码：thisform.release（2） 修改操作员密码数据环境为“操作员表”，文本框text1，text2，text3的PasswordChar属性为“*”。命令按钮“确定”代码为：locate for 操作员编号=czybh if not allt(czymm)=allt(thisform.text1.value) =messagebox("原密码输入错误，请重新输入！&quo

7、t;) thisform.text1.value="" thisform.text2.value="" thisform.text3.value="" thisform.text1.setfocus else if not allt(thisform.text2)=allt(thisform.text3) =messagebox("两次输入密码不一致，请重新输入！") thisform.text2.value="" thisform.text3.value="" thisfo

8、rm.text2.setfocus else replace czymm with thisform.text2.value =messagebox("密码修改成功！") thisform.release endif endif（3） 员工录入登记 数据环境为“员工表”和“部门职位表”，选项按钮组的ButtonCount属性为“2”,组合框combo1的RowsourceType属性为3，Rowsource属性为“select distinct 部门职位表.bmmc from 部门职位表 into cursor temp2”，组合框Combo1的InteractiveCha

9、nge过程为：bo2.rowsource="select distinct 部门职位表.zwmc ;from 部门职位表 where 部门职位表.bmmc=bo1.value into cursor temp3"命令按钮的“保存”的Click过程为：public ygbh1,ygxm1,xb1,hf1,csrq1,gzrq1,bm1,zw1,xl1,bz1ygbh1=thisform.text1.valueygxm1=thisform.text2.valuecsrq1=ctod(thisform.text3.value)gzrq1=ctod(thisform.text4.v

10、alue)bm1=bo1.valuezw1=bo2.valuexl1=thisform.text5.valuebz1=thisform.text7.valuelocate for allt(员工表.ygbh)=allt(thisform.text1.value)if !eof() =messagebox("编号输入重复！")else ygbh=thisform.text1.valueendifdo case case thisform.optiongroup1.option1.value=1 xb1="男" case thisform.optiongro

11、up1.option2.value=1 xb1="女"endcase if thisform.check1.value=0 hf1=.f. else hf1=.t.endifinsert into 员工表(ygbh,ygxm,xb,hf,csrq,gzrq,bm,; zw,xl,bz) values(ygbh1,ygxm1,xb1,; hf1,csrq1,gzrq1,bm1,zw1,xl1,bz1)=messagebox("员工录入成功！")thisform.text1.value=""thisform.text2.value=&qu

12、ot;"thisform.text3.value=""thisform.text4.value=""thisform.text5.value=""thisform.text7.value=""bo1.value=""bo2.value=""thisform.optiongroup1.value=0thisform.check1.value=0thisform.text1.setfocus命令按钮的“退出”的Click过程为：thisform.release（4） 员

13、工调动及删除数据环境为：员工表（5） 缺勤登记数据环境“缺勤登记表”命令按钮“确定”的Click过程为：public qqlb1,qqrq1ygbh1=thisform.text1.valueygxm1=thisform.text2.valueqqlb1=thisform.text3.valueqqrq1=ctod(thisform.text4.value)locate for allt(员工表.ygbh)=allt(thisform.text1.value)locate for allt(员工表.ygxm)=allt(thisform.text2.value)if !eof() insert

14、 into 缺勤登记表(ygbh,ygxm,qqlb,qqrq) values (ygbh1,ygxm1,qqlb1,qqrq1)else =messagebox("未找到此员工！")endifthisform.text1.value=""thisform.text2.value=""thisform.text3.value=""thisform.text4.value=""命令按钮“退出”的Click过程为：thisform.release（6） 工资核算表数据环境为“工资表”命令按钮“计算”

15、的Click过程为：public jbgz1,jt1,jj1,yfgz1,qqkk1,ylbx1,zfjj1,sds1,sfgz1jbgz1=val(thisform.text3.value)jt1=val(thisform.text4.value)jj1=val(thisform.text5.value)qqkk1=val(thisform.text7.value)ylbx1=val(thisform.text8.value)zfjj1=val(thisform.text9.value)thisform.text6.value=str(jbgz1+jt1+jj1)yfgz1=val(this

16、form.text6.value)if jbgz1>3000 thisform.text10.value=str(jbgz1*0.17) sds1=val(thisform.text10.value)else thisform.text10.value=0 sds1=0endifthisform.text11.value=str(yfgz1-qqkk1-ylbx1-zfjj1-sds1)sfgz1=val(thisform.text11.value)命令按钮“输入工资表”的Click过程为：ygbh1=thisform.text1.valueygxm1=thisform.text2.va

17、luelocate for allt(员工表.ygbh)=allt(thisform.text1.value)locate for allt(员工表.ygxm)=allt(thisform.text2.value)if !eof() insert into 工资表(ygbh,ygxm,jbgz,jt,jj,yfgz,qqkk,ylbx,zfjj,sds,sfgz) values;(ygbh1,ygxm1,jbgz1,jt1,jj1,yfgz1,qqkk1,ylbx1,zfjj1,sds1,sfgz1)=messagebox("录入成功！")else =messagebox(

18、"未找到此员工！")Endifthisform.text1.value=""thisform.text2.value=""thisform.text3.value=""thisform.text4.value=""thisform.text5.value=""thisform.text6.value=""thisform.text7.value=""thisform.text8.value=""thisform.te

19、xt9.value=""thisform.text10.value=""thisform.text11.value=""thisform.text1.setfocus命令按钮“退出”的Click过程为：thisform.release（7） 按部门查询数据环境为“员工表”和“部门职位表”，组合框Combo1的RowSourceType属性为“3”，RowSource属性为“select distinct bmmc from 部门职位表 into cursor temp1”命令按钮“确定”的Click过程为：set filter to

20、bm=bo1.valuethisform.refresh命令按钮“返回”的Click过程为：set filter tothisform.refresh命令按钮“退出”的Click过程为：thisform.release五、 报表设计报表“打印工资清单报表”，设计界面为：数据环境为“工资表”和“部门职位表”，两者以“zgbh”（职工编号）进行内部联接。浏览界面为：六、 菜单菜单设计界面如图：系统管理的子菜单为：注：其中跳过条件为：czyjb<>系统管理员员工管理的子菜单为：工资管理的子菜单为：统计管理的子菜单为：退出系统的子菜单为：其中“过程”代码为：close allquit七、

21、主程序和登陆界面设置一个setup的prg文件，代码为：set talk onset default to E:超市管理系统set date to ymdset clock on设置一个main的prg文件，将其设置为主程序，代码为：do setup.prgdo form 系统登录.scxread events登录界面为：系统登录表单数据环境为“操作员表”，文本框text2控件的passwordchar属性为“*”命令按钮“登入系统”代码：public czybh,czyjbczybh= thisform.text1.valuelocate for allt(操作员编号)=allt(czybh)if not found() =messagebox("该操作员不存在，请重新输入！") thisform