《数据库原理与应用vfp课程设计职工信息管理系统》由会员分享，可在线阅读，更多相关《数据库原理与应用vfp课程设计职工信息管理系统（12页珍藏版）》请在金锄头文库上搜索。
1、数据库原理与应用课程设计报告职工信息管理系统一系统介绍1.1.功能简介职工信息管理系统的功能是管理职工的个人信息，包括对其进行查询、修改、打印等，职工信息管理系统的主要功能有：（1）对新聘任的职工注册；（2）对职工信息维护；（3）可以方便的查询职工信息；（4）可以进行教师信息报表的查看与打印；（5）对登录口令的添加、修改、删除。1.2.功能模块图图1-1二.需求分析 2.1.功能需求 通过调查,要求功能需要有以下功能: （1）由于需要方便的系统操作,要求有良好人机界面; （2）由于该系统的使用对象多,要求有较好的权限管理; （3）方便的数据查询;（4）信息需要全面系统，报表也应全面。2 .2.
2、数据需求 （1）原始数据修改简单方便；（2）数据的添加简单方便；（3）满足第三范式要求不存在部分函授依赖关系和传递依赖关系；（4）删除数据方便简单，数据稳定性好。三建库结果 3.1.数据关系E-R 图3-13.2.数据表结构1.建表 本系统数据库包括职工信息表、部门表、工资费用表、调资表表1职工信息表字段名类型宽度小数位编号字符6姓名字符8性别字符2出身年月日期8职称字符6部门号字符2是否党员逻辑2业绩备注4表2部门表字段名类型宽度小数位部门号字符2部门名称字符6表3工资费用表字段名类型宽度小数位编号字符6基本工资字符72房租水电字符72工会会费日期52奖金字符62岗位津贴字符62 表4调资表
3、字段名类型宽度小数位编号字符6调资年月日期8增加工资字符522.创建表间永久关系 对表结构进行修改，设置职工信息表中的编号为主索引；职工信息表中的部门号为候选索引；部门表中的部门号字段为主索引；工资费用表中的编号字段为主普通索引；调资表中的编号为普通索引；再依次建立下述关系： 以职工信息表为主表，工资费用表为从表，以编号字段作为关键字建立主从关系。以职工信息表为主表，调资用表为从表，以编号字段作为关键字建立主从关系。以部门表为主表，职工信息表为从表，以部门编号字段为关键字建立主从关系。四系统开发设计 4.1. 开发流程模块框图图4-14.2开发流程与功能介绍 1.登录 在设计登录菜单是先健一个
4、口令表，里面有操作员和口令两个字段，输入几组数据，然后新建一个登录界面如图所示图4-2-12.主表单：功能选择登录系统后，进入功能选择界面如图所示，图4-2-23设计职工信息表单职工信息子系统表单包括查询、维护、退出图4-2-34.“查询”表单 点击“查询”按钮进入查询表单。设计如图(4-2-4a)所示界面，查询表单包括信息查询、工资查询、费用查询和退出。通过DO FORM命令调出相应表单。如图（4-2-4b） 图4-2-4a在费用查询界面中输入要查询的编号可以查询工会会费和房租水费。在职工信息查询中输入要查询的编号可以查询出职工的基本信息包括编号、姓名、性别、出生日期等。在工资查询中输入职工
5、的编号可以查询到该职工的基本工资、奖金、岗位津贴、调资以及总工资信息。对与查询命令，以工资查询为例其CLICK事件为:local mycursorselect rsb.编号,rsb.姓名,gzb.基本工资, gzb.奖金,gzb.岗位津贴,;tzb.增加工资 from rsb,gzb,tzb into CURSOR mycursor;where rsb.编号 = gzb.编号 and rsb.编号 = tzb.编号 and ;rsb.编号 =thisform.Text1.Valuethisform.text2.value= mycursor.编号thisform.text3.value= my
6、cursor.姓名thisform.text4.value= mycursor.基本工资thisform.text5.value= mycursor.奖金thisform.text6.value= mycursor.岗位津贴thisform.text7.value= mycursor.增加工资thisform.text8.value= mycursor.增加工资 +mycursor.岗位津贴+ mycursor.奖金 + mycursor.基本工资图4-2-4b5.维护菜单 返回职工信息子系统点击维护按钮进入信息的维护界面，在信息维护界面中可以对职工信息进行添加、修改、删除操作。在删除操作中会
7、出现信息提示“你真的要删除编号为某某的记录吗？”。这样能防止因操作不当而导致信息的丢失。在添加操作中如果没有输入姓名会出现“职工姓名不可为空，请重新输入姓名”。如过职工的信息需要修改，用鼠标在表格上点击该职工信息，左边会出现相应的信息内容，把需要修改的内容改正，然后点击修改就行了。 另外在表单上创建一个表格，这样能直接关注信息的变化，对操作失误产生的错误可以及时的改正。表格一定要设置它的AfterRowColChange事件，这里为select rsbthisform.text1.value=编号thisform.text2.value=姓名thisform.optiongroup1.valu
8、e=iif(性别=男,1,2)thisform.text3.value=出生日期bo1.value=职称thisform.text4.value=部门号thisform.edit1.value=业绩thisform.check1.value=是否党员 图4-2-56.报表的创建于调出返回主表单功能选择，点击表报信息，进入报表表单界面如图（图4-2-6a）所示。在建表单之前建一个菜单来调出报表，语句为report form worker.frx previewreport form gongzi.frx preview report form feiyong.frx preview,然后对应建三
9、个报表图4-2-6a职工信息报表、职工工资报表、职工费用报表如图（图4-2-6b）所示。图4-2-6b7.口令设置（添加修改）返回主表单功能选择，点击口令设置进入口令添加修改界面（4-2-7）。口令设置的设计与职工信息的维护设计相似，主要对操作员信息进行添加、修改、删除操作。修改命令为Local a1,a2,nn=recno()with thisforma1=.text1.valuea2=.text2.valueendwithupdate 口令 set 操作员 =a1,口令 =a2;where recno()=nthisform.grid1.refresh图4-2-78系统的退出返回系统的主表
10、单，点击退出按钮，会出现“你真的要退出吗？”，点击确定，然后会出现“欢迎再来 再见！”的提示（图4-2-8），点击确定就退出了本系统，退出按钮的CLICK事件为：if messagebox(你真的要退出吗？,52)=6messagebox(欢迎再来 再见！,48)thisform.releaseclear eventsendif图4-2-89连遍成应用程序，编写主程序set century on &设置世纪为可见set date to ansi &设置日期格式set escape off &设置Esc 键作用为无效set console off &设置不把屏幕或主窗口作为输出对象set mul
11、tilocks on &设置多记录锁定set exact on &设置以精确方式进行字符串比较*set help to 帮助文件名&设置帮助文件set default to sys(5)+sys(2003) &设置默认路径set path to sys(5)+sys(2003)+ &设置文件搜索路径_vfp.visible = .f.do form 登录.scx&调用登录，如进入系统时要先进行口令验证，则应调用口令验证表单read events &启动事件循环。设置项目信息然后进行连编。四关键和难点问题以及相应的解决方案1.信息维护界面设计中的数据匹配问题，主要是性别、出生日期和是否党员字段的
12、问题。比如在添加命令Insert into rsb (编号,姓名,性别,出生日期,职称,部门号,业绩,是否党员);Values(thisform.text1.value,thisform.text2.value,;iif(thisform.Optiongroup1.value=1,男,女),;ctod(thisform.text3.value),bo1.value,thisform.text4.value,;thisform.edit1.value,thisform.check1.value)thisform.grid1.refresh中对性别的添加不能是thisform.Optiongrou
13、p1.value而应是iif(thisform.Optiongroup1.value=1,男,女)。2.数据查询问题在工资查询中定义一个临时表。“查询”按钮的click事件为local mycursor select rsb.编号,rsb.姓名,gzb.基本工资, gzb.奖金,gzb.岗位津贴,tzb.增加工资 from rsb,gzb,tzb into CURSOR mycursor; where rsb.编号 = gzb.编号 and rsb.编号 = tzb.编号 and rsb.编号 =thisform.Text1.Valuethisform.text2.value= mycurso
14、r.编号thisform.text3.value= mycursor.姓名thisform.text4.value= mycursor.基本工资thisform.text5.value= mycursor.奖金thisform.text6.value= mycursor.岗位津贴thisform.text7.value= mycursor.增加工资thisform.text8.value= mycursor.增加工资 +mycursor.岗位津贴 + mycursor.奖金 + mycursor.基本工资注意要定义一个mycursor把查询的信息发到其中，然后在赋值到表单中的控件中3. 应用程序运行时，不打开VFP 的背景窗口问题如果单纯的在主程序加_vfp.visible = .f.那么可能会出先程序打开了但马上就没了，但在windows任务管理器的进程中会出现。解决办法是设置主表单的MDIForm 为.t. 、ShowWindow
