《数据库原理与应用》VFP课程设计报告

《《数据库原理与应用》VFP课程设计报告》由会员分享，可在线阅读，更多相关《《数据库原理与应用》VFP课程设计报告（15页珍藏版）》请在装配图网上搜索。

1、10数据库原理与应用课程设计报告职工信息管理系统.系统介绍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奖金字符621岗位津

3、贴字符62表4调资表字段名宽度小数位编号字符6调资年月日期8增加工资字符522.创建表间永久关系对表结构进行修改，设置职工信息表中的编号为主索引；职工信息表中的部门号为候选索引；部门表中的部门号字段为主索引；工资费用表中的编号字段为主普通索引；调资表中的编号为普通索引；再依次建立下述关系：以职工信息表为主表，工资费用表为从表，以编号字段作为关键字建立主从关系。以职工信息表为主表，调资用表为从表，以编号字段作为关键字建立主从关系。以部门表为主表，职工信息表为从表，以部门编号字段为关键字建立主从关系。四.系统开发设计4.1 .开发流程模块框图mt瓶图4-14.2 开发流程与功能介绍1登录在设计登录

4、菜单是先健一个口令表，里面有操作员和口令两个字段，输入几组数据，然后新 建一个登录界面如图所示图 4-2-12 .主表单：功能选择登录系统后，进入功能选择界面如图所示,图 4-2-23 .设计职工信息表单职工信息子系统表单包括查询、维护、退出图 4-2-34 .“查询”表单点击“查询”按钮进入查询表单。设计如图（4-2-4a）所示界面，查询表单包括信息查询、工资查询、费用查询和退出。通过 DO FORM命令调出相应表单。如图（4-2-4b）信息查询费用查询_L资杳询图 424a在费用查询界面中输入要查询的编号可以查询工会会费和房租水费。在职工信息查询中输入要查询的编号可以查询出职工的基本信息包

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.V aluethisform.text2.value= mycursor.编

6、号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.基本工资图 424b5 .维护菜单返回职工信息子系统点击维护按钮进入信息的维护界面，在信息维护界

7、面中可以对职工信息进行添加、修改、删除操作。在删除操作中会出现信息提示“你真的要删除编号为某某的记录吗？"。这样能防止因操作不当而导致信息的丢失。在添加操作中如果没有输入姓名会出现“职工姓名不可为空，请重新输入姓名”。如过职工的信息需要修改，用鼠标在表格上点击该职工信息，左边会出现相应的信息内容，把需要修改的内容改正，然后点击修改就行了。另外在表单上创建一个表格，这样能直接关注信息的变化，对操作失误产生的错误可以及时的改正。表格一定要设置它的AfterRowColChange事件，这里为select rsbthisform.text1.value=编号thisform.text2.v

8、alue=姓名thisform.optiongroup1.value=iif（性另1J ="男",1,2）thisform.text3.value=出生日期bo1.value=职称thisform.text4.value=吾6 门号thisform.edit1.value=业绩thisform.check1.value=是否党员维护添加1ST职工佶AL*姓名H曳出生日丽w -100010:!居冷m i'l-的接-LI阿甘iTaTB-Di L2效投DL ILjauuca工丁E.39m上J7，m卡DLLllXuOlN”a ls利杯CC1小整度Fa*U1? 13CeODO

9、S CG依丽3982113 23C0LaruiD型9TE31 LZ效授D3L130ng峪?五9HUJU L"野手B3L口北：VINUj 27蓄产由HL I站*丽*IfiTQM 03低衽D4imq度革事1975X空北目手Lk-图 4-2-56 .报表的创建于调出返回主表单一一功能选择，点击表报信息，进入报表表单界面如图（图 4-2-6a）所示。在建表单之前建一个菜单来调出报表，语句为 report form worker.frx previewreport form gongzi.frx preview' report form feiyong.frx preview, 然后对

10、应建三个报表图 426a职工信息报表、职工工资报表、职工费用报表如图（图4-2-6b）所示。图 426b7 .口令设置（添加修改）口令设置的设计与职工信Local a1,a2,n返回主表单功能选择，点击口令设置进入口令添加修改界面（4-2-7）。息的维护设计相似，主要对操作员信息进行添加、修改、删除操作。修改命令为n=recno()with thisforma1=.text1.valuea2=.text2.valueendwithupdate 口令 set 操作员=a1, 口令=a2;where recno()=nthisform.gridl.refresh图 4-2-78.系统的退出返回系统

11、的主表单，点击退出按钮，会出现“你真的要退出吗？"，点击确定，然后会出现“欢迎再来 再见！ ”的提示（图4-2-8）,点击确定就退出了本系统，退出按钮的 CLICK事 件为：if messagebox（"你真的要退出吗？",52）=6messagebox（"欢迎再来再见！ ",48）thisform.releaseclear events endif图 4-2-89.连遍成应用程序，编写主程序15set century on && set date to ansi && set escape off &&

12、amp; set console off && set multilocks on &&设置世纪为可见设置日期格式设置 Esc 键作用为无效设置不把屏幕或主窗口作为输出对象设置多记录锁定set exact on && 设置以精确方式进行字符串比较*set help to 帮助文件名&&设置帮助文件set default to sys(5)+sys(2003) && 设置默认路径set path to sys(5)+sys(2003)+"" && 设置文件搜索路径 _vfp.vis

13、ible = .f.do form 登录 .scx&&调用登录，如进入系统时要先进行口令验证，则应调用口令验证表单read events && 启动事件循环。设置项目信息然后进行连编。四关键和难点问题以及相应的解决方案1. 信息维护界面设计中的数据匹配问题，主要是性别、出生日期和是否党员字段的问题。比如在添加命令Insert into rsb ( 编号 , 姓名 , 性别 , 出生日期 , 职称 , 部门号 ,业绩 , 是否党员 );Values(thisform.text1.value,thisform.text2.value,;iif(thisform.Op

14、tiongroup1.value=1,"男 "," 女"),;ctod(thisform.text3.value),bo1.value,thisform.text4.value,;thisform.edit1.value,thisform.check1.value)thisform.grid1.refresh中对性别的添加不能是thisform.Optiongroup1.value 而应是 iif(thisform.Optiongroup1.value=1,男"," 女") 。2. 数据查询问题在工资查询中定义一个临时表。

15、“查询”按钮的 click 事件为local mycursorselect rsb. 编号 ,rsb. 姓名 ,gzb. 基本工资 , gzb. 奖金 ,gzb. 岗位津贴 ,tzb. 增加工资 fromrsb,gzb,tzb into CURSOR mycursor;where rsb. 编 号gzb. 编 号 and rsb. 编 号 = tzb. 编 号 and rsb. 编 号=thisform.Text1.Valuethisform.text2.value= mycursor.thisform.text3.value= mycursor.thisform.text4.value= m

16、ycursor.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 为 2-作为顶层表单。将主表单和主菜单调用的表单的此属性均设置为 1- 在顶层表单中。然后在主程序上加上设置主表单的 MDIForm 为 .t.、ShowWindow 为 2- 作为顶层表单。将菜单所要调用的表单的此属性均设置为 1-在顶层表单中。然后在主程序加上_vfp.visible = .f.另外在主程序上一定要有read events语句，在主表单的退出 click 事件代码上一定要有clear events 这句。