关 键 词：

毕业设计论文

资源描述：

JSJ06-131@VB人事管理系统（源代码+论文）,毕业设计论文

内容简介：

预设用户2 个root 超级用户 预设密码为rootany 一般用户 预设密码 any按第一行工具条 可以选择所需表：员工表，请假表，工资表以及系统设置系统设置对超级用户 即root有对一般用户管理的功能对普通用户只有修改自己密码的功能在系统设置菜单中 选系统设置 具有与此一样的功能在表单菜单中：可以选取工作表 与上述工具条功能相同在DBGrid控件中 选定需要编辑的数据 然后点Edit 按钮 则弹出编辑窗体可以进行编辑删除需要选定正行数据后才算是选定然后才可以删除右键弹出菜单实现的功能与第二行工具条同，有编辑、删除和搜索三个功能在主窗体只能修改性别 部门和学历 三个项 通过按钮显示列表框然后选取其他数据均需在edit窗体中修改编辑窗体中：为Employee时：职工编号不可修改，为Leave时：假条编号不可修改，为Salary时：工资编号不可修改，对工资编辑时 职工编号只能属于数字基本工资 加班工资 交通补 除 为 可 数字和 数点其他 统 User窗体中：作为root用户 后 点 system 后弹出User窗体可以 加用户 修改root密码 设置其他用户密码可以 用户 用 ， 是 list中删除在用户列表中选定用户 可修改密码 用户 root不可 点个键可以 nts *大学 计算机应用专业（专科） 毕业设计中期报告 设计题目 人事管理系统 教 学 班： 学生姓名： 学 号： 指导教师： 完成日期： nts 1 “ 人事 管理 系统”中期报告 一、设计与开发的进展情况 人事 管理系统的开发工作基本按照开题报告的时间安排顺利进行，目前情况是： 1、经过五周时间完成了系统分析，总体结构和具体模块设计，形成系统的总体设计方案 2、数据库设计与实现工作已经结束。 3、系统的模块设计与实现情况如下： 已经完成负责系统的启动和连接数据库的模块 、 引导窗口的 模块和 菜单窗口的 模块的设计与实现； 其余模块的设计也已经基本完成，现在正在完成界面和代码的实现过程中；待前几个模块完成后即可着手进行。 二、文档编写的准备情况 根据设计要求，目前对需求分析的内容、总体设计内容、部分详细设计内容和数据库设计资料已经准备齐全，并部分成稿，整个设计论文的框架、结构及各部分内容的安排也已经构思完毕，并完成部分电子文档的准备。计划在系统设计全部实现后整理完成。 对系统的使用及测试准备工作正按部就班的实行中。 三、设计中出现的问题及解决 1、需求分析工作中，对分析的内容不全面，用工具描述不准确，经过老师指导解决。 2、程序结构设计走过一点弯路，经老师指出后改进了。 3、开发工具的学习较长，尤其是与数据库连接，费过一些周折，经过请教有关同事和同 学，有了进步，现在已经基本解决了。 四、下一步安排 nts 2 1、用二周时间 完成全部程序设计。 2、 用一周时间 完成软件的测试。 3、用 一周 的时间来 整理源程序，编写软件说明书和用户手册， 4、 最后 一周 完成毕业论文。 根据一个多月的设计与开发，目前一切都在按计划进行中。本人认为，按照原计划完成毕业设计是完全可以的。特此报告。 nts*大学 计算机应用专业（专科） 毕业 实习报告 实习内容 ： 计算机网络实践 专 业 ： 学生姓名： 学 号： 指导教师： 实习单位 ： 时 间 ： nts 1 毕业生实习报告表 姓名 性别 专业 班级 实习时间 指导教师 实习单位 实习内宾 实习 内容 在 Internet 飞速发展的今天，互联网成为人们快速获取、发布和传递信息的重要渠道，它在人们政治、经济、生活等各个方面发挥着重要的作用。因此网站建设在 Internet 应用上的地位显而易见，它已成为政府、企事业单位信息化建设中的重要组成部分，从而倍受人们的重视。 计算机将具备更多的智能成分，它将具有多种感知能力、一定的思考与判断能力及一定的自然语言能力。除了提供自然的输入手段（如语 音输入、手写输入）外，让人能产生身临其境感觉的各种交互设备已经出现，虚拟现实技术是这一领域发展的集中体现。今天人们谈到计算机必然地和网络联系起来，一方面孤立的未加入网络的计算机越来越难以见到，另一方面计算机的概念也被网络所扩展。二十世纪九十年代兴起的 Internet 在过去如火如荼地发展，其影响之广、普及之快是前所未有的。从没有一种技术能像 Internet 一样，剧烈地改变着我们的学习、生活和习惯方式。全世界几乎所有国家都有计算机网络直接或间接地与 Internet 相连，使之成为一个全球范围的计算机互联网络。人们 可以通过 Internet 与世界各地的其它用户自由地进行通信，可从 Internet 中获得各种信息。人们已充分领略到网络的魅力， Internet 大大缩小了时空界限，通过网络人们可以共享计算机硬件资源、软件资源和信息资源。 “网络就是计算机 ”的概念被事实一再证明，被世人逐步接受。 通过这两年的学习实践中和老师的指导下以大量明晰的操作步骤和典型的应用实例，教会我们。使更丰富全面的软件技术和应用技巧，使我们真正对所学的软件融会贯通，熟练在手。所以本人结合所学专业的内容制作了个人网站，作为实习的成果。其内容是多样化 的。制作网页用的软件是 reamweaver, ireworks, lash 软件。 reamweaver 大大加速了网络时代电子交易应用中的项目交付。它提供了网页和表单的动态生成到企业级的解决方案，如电子商店，库存管理系统和企业内部局域网的数据库应用等功能。 ireworks 是目前最流行的网页图象制作软件。只要将 reamweaver 的默认图象编辑器设为 ireworks，那么在 ireworks 中制作完成网页图象后将其输出就会立即在 reamweaver 中更新。 ireworks 还可以安装使用所有的 hotoshop 滤镜，并且可以直接导入格式图象。更方便的是它不仅结合了 hotoshop 位图功能以及 ore矢量图的功能，而且提供了大量的网页图象模板供用户使用，例如，网页上很流行的阴影和立体按纽等效果，只需单击一下就可以制作完成。当然，其最方便之处是，它可以将图象切割，图象映射，悬停按纽，图象翻转等效果直接生成代码，或者嵌入到现有的网页中，或者作为单独的网页出现。 lash 是目前最流行的矢量动画制作软件，与其他 Wed 动画软件相比，它具很多优点。制作的是矢量图形。只要用少量矢量数据就可以描 述一个复杂的对象，而占用的储存空间只是位图的几千分之一，非常适合在网格上使用。同时，矢量图象不会随浏览器窗口大小的改变而改变画面质量。使用插件方式工作。用户只需安装一次插件，以后就可以快速启动并观看动画，而不比像 Java 那样每次都要启动虚拟机。 lash 插件也不大，只有左右，很容易下载并安装。还提供其他一些增强功能。例如，支持位图，声音，渐变色和 lpha 透明等。拥用了这些功能，用户就完全可以建立一个全部由 lash 制作的站点。 lash 影片也是一种流式文件。这就是说，浏览者在观看一个大动画时，可 以不必等到影片全部下载到本地再观看，而是可以随时观看，即使后面的内容还没有完全下载，也可以开始欣赏动画。主图是一个网页的门面，它能体现出这个网页的整体风格。网站名字为蓝晴驿站，蓝色的天空给人带来好的心情，给人带来轻松愉快的心情来浏览网页。 nts 2 首页的地址为 “”,内容精彩丰富，简洁明快，语言风趣，通俗易懂。页面可爱清爽。 首页主要是导航作用，上方共有六个导航条，用 fireworks 编辑的悬停按纽。各分为六个内容，左侧的为 星座物语 ， 动感地带 ， 爱情感 悟 。下面的六个字幕是衔接。右侧的为 五花八门 ， 心情留言 ， 海阔天空 。中间为一段笑话。下面的横幅是一个 flash 动画，效果是色彩渐变。接着蓝色的一个横幅上的是 flash 动画衔接。接下来是一个搜索菜单，方便快捷。其它的为 gif 动画。 单击 “星座物语 ”，进入内容左侧的字体是 fireworks 编辑的 gif 动画。左侧下方是篇有关星座的文章，右侧的星座专题有三个关于星座的内容可单击。 漂亮穿衣法则 内有广告条，鼠标放在上面时停止浮动，鼠标离开时继续浮动。 星座爱情特点 内有鼠标特效。它的代码为： function YY_Layerfx(yyleft,yytop,yyfnx,yyfny,yydiv,yybilder,yyloop, yyto,yycnt,yystep) /v1.2 /copyright (c)1999 Yaromat, Jaro von Flocken if (document.layers)|(document.all) with (Math) yynextx= eval(yyfnx) with (Math) yynexty= eval(yyfny) yycnt=(yyloop & yycnt=yystep*yybilder)?0:yycnt+yystep; if (document.layers) eval(yydiv+.top=+(yynexty+yytop) eval(yydiv+.left=+(yynextx+yyleft) if (document.all) eval(yydiv=yydiv.replace(/.layers/gi, .all ); eval(yydiv+.style.pixelTop=+(yynexty+yytop); eval(yydiv+.style.pixelLeft=+(yynextx+yyleft); argStr= YY_Layerfx( +yyleft+ , +yytop+ , +yyfnx+ , +yyfny+ , +yydiv+ , +yyb ilder+ , +yyloop+ , +yyto+ , +yycnt+ , +yystep+ ) ; if (yycnt 右侧下的是一个 flash 做的动画，蒙板层切换图片，下面的字幕为衔接。 nts 3 单击 “动感地带 ”进入内容的左侧，一个米老鼠可以单击返回首页。下面是一个表格，表格里的内容是衔接网站。表格的最后一行 友情链接 为本班同学所做的个人网站，可单击衔接。本页最后为 flash 动画。它是一个跟随鼠标移动的图形心。它的代码为： 单击 “ 爱情感悟 ” 进入内容是一篇关于爱情 总结 的一篇文章。内有背景音乐。其余的为 gif动画。 单击 “ 五花八门 ” 进入内容的文字都是衔接。右下角为一个 flash 动画，百叶窗似的打开图片。其余的为 gif 动画。 单击 “ 心情留言 ” 是留言本，可进入留言还可免费申请。 单击 “ 海阔天空 ” 是聊天室，填写名字与密码可直接进入。 实习 体会 通过这次实习，在制作时想想使自己的网页更加丰富多彩，在网页中插入图象，动画，动态特效。可是总遇到这样那样的问 题，例如 Flash 动画到入 Dreamweaver 里，开始不明白后来才知道是在 reamweaver 里先插个层，这样就可以浏览出效果了。还有是有时上传到网页上的图片不显示，原因是它们没有在一个文件夹内。但在同学的帮助和自己摸索的情况下完成了这个实习的成果。看到了一些知名的网站开发出的网页，不仅栏目内容丰富，信息量大，而且页面图文并茂，五彩缤纷，使得网民赞叹不已，流连忘返。以我们的 经验 ，当前的软件的功能日趋复杂，不学到一定的深度和广度是难以在实 际工作中应付自如的。因此反映出学习的还不够，缺点疏漏。虚在加以刻苦钻研及学习，不断开拓视野，增强自己的实践操作技能， 对自己的专业有了更全面、更深入的认识，看到了自己专业知识上的不足，同时也提高了自己的观察分析、交流沟通、组织协调等能力。 指导教师评语 实习单位意见 （盖章） 年 月 日 nts*学校 计算机科学应用专业（专科）毕业设计课题审批表 办学单位（盖章）： 2005 年 10 月 12 日 课题名称： 人事 管理系统 题目类型及来源： 信息 管理 类，受托 指导教师及职称： *，教授 课题主要研究内容及预期达到的目标： 通过对部分中小企业人事管理情况的调查，了解了目前一般中小企业的人事管理情况，在调查的基础上开发一个简单的人事管理系统，其实现的主要功能如下： 1、系统管理 ： 包括人员 登录管理、修改密码、用户管理。 2、招聘管理 ： 包括招聘人员计划以及审批情况。 3、人事管理 ： 包括员工基本信息的添加、修改、删除、查询，部门信息、职务信息的添加、删除，员工内部调动、人员资料按分组进行查询。 4、考勤管理： 包括考勤时间表的设置、考勤的出勤、加班、出差、请假记录的添加、删除以及最后的月考勤统计。 本系统的开发完成并投入运行后，可以用计算机 进行人事 管理 工作，使一般企事业单位人事管理更加 科学化、现代化。 nts 课题研究的工作基础或实验条件： 通过对部分中小企业人事管理情况 的调查，了解了目前一般中小企业的人事管理情况， 并参考了成功的工资管理系统的开发经验，且在学习过程中已经学习过管理信息系统课程，具备了开发该系统的基础。 教学部具有 50 余台 Pentiun以上计算机，系统软件及各种开发工具较齐全，完全满足研究与实验要求。 课题所涉及的知识面： 计算机网络 软件工程 程序设计基础 软件开发工具 数据结构 *专业毕业设计指导组意见： 专业系（部、教研室）主任签字： 年 月 日 *毕业设计指导组意见： 专业系（部、教研室）主任签字： 年 月 日 nts*学校 计算机应用（专科）毕业设计任务书 学生姓名： 学号： 办学单位： 指导教师： 职称： 下发日期： 设计题目： 人事管理系统 调查部分中小企业 人事管理情况 ，了解了目前一 般中小企业的人事管理 现状 ，在调查的基础上开发一个简单的人事管理系统，其实现的主要功能如下： 1、系统管理 ： 包括人员登录管理、修改密码、用户管理。 2、招聘管理 ： 包括招聘人员计划以及审批情况。 3、人事管理 ： 包括员工基本信息的添加、修改、删除、查询，部门信息、职务信息的添加、删除，员工内部调动、人员资料按分组进行查询。 4、考勤管理： 包括考勤时间表的设置、考勤的出勤、加班、出差、请假记录的添加、删除以及最后的月考勤统计。 课题预期达到的目标（主要技术参数）及要求： 本 本系统的开发完成并投入运行后，可以 用计算机进行人事管理工作，使一般企事业单位人事管理更加科学化、现代化。 课题研究的实验条件： 硬件环境： Pentim 以上 CPU， 128M 内存， 40G 硬盘； 软件环境： Windows 操作系统， Visual foxpro 6.0 nts主要参考资料： 1王福成等： ， 清华大学出版社 2002 年 6 月 2郭振波编著： ， 人民邮电出版社 2003 年 3 月 3林永等编著： ， 人民邮电出版社 2002 年 11 月 4刘炳文等编著： ，清华大学出版社 2000 年 7 月 毕业设计进度计划： 1、期限：自 2005 年 10 月 22 日起至 2006 年 2 月 24 日 2、具体进度安排： 年 月 日 具体完成内容 2005.10.22 2005.11.2 2005.11.16 2005.11.23 2005.11.29 2005.12.9 2005.12.23 2006.1.23 2006.2.17 2006.2.24 布置毕业设计任务，下达毕业设计任务书 检查根据毕业设计任务书要求进行调研的情况，完成调研。形成需求分析意见。 审查可行性分析及系统调研分析的结果，形成概要设计，完成开题报告。 进行开题论证（全体学生参加） 熟悉开发环境； 完成 系统管理 （ 包括人员登录管理、修改密码、用户管理 ）与 招聘管理 （ 包括招聘人员计划以及审批情况 ） 模块的程序设计与实现 ； 完成 人事管理 （ 包括员工基本信息的添加、修改、删除、查询，部门信息、职务信息的添 加、删除，员工内部调动、人员资料按分组进行查询 等） 模块的代码实现 ； 完成 考勤管理（ 包括考勤时间表的设置、考勤的出勤、加班、出差、请假记录的添加、删除以及最后的月考勤统计 ） 模块设计与实现。 进行系统的最终调试和测试，完成最终开发的系统。 最后完善毕业设计说明书的撰写，打印，装订，制作 PPT 演示文稿，系统打包。 nts*大学 计算机应用（专科） 毕业设计指导教师初评意见 学生姓名： 办学单位： 设计题目： 人事管理系统 指导教师指导学生情况记录（由指导教师填写） 次数 指导时间 指 导 具 体 内 容 1 2005.10.22 布置毕业设计任务，下达毕业设计任务书 2 2005.11.2 研究调研的情况，指导需求分析意见。 3 2005.11.16 指导可行性分析及概要设计，完成开题报告。 4 2005.11.23 进行开题论证（全体学生参加） 5 2005.11.29 指导开发环境的使用方法； 6 2005.12.9 指导 系统管理 与 招聘管理 模块 程序设计与实现。 7 2005.12.23 指导 人事管理 模块的程序设计与实现。 8 2006.1.23 指 导 考勤管理 模块的程序设计与 实现。 9 2006.2.17 指导系统测试方法，检查完成的最终系统。 10 2006.2.24 检查毕业设计说明书和 PPT 演示文稿，系统打包方法。 指导教师评语： 该生毕业设计态度端正，设计认真，及时与指导老师沟通，按照指导教师的安排，参加各次指导和辅导。 该设计较为全面达到了任务书中提出的功能要求，方案设计合理，能利用所学的知识解决设计中遇到的问题，设计的程序运行正常。 设计说明书结构完整，功能阐述基本正确，图示符号符合有关标准规范的规定，文理通顺，语言流畅，结构清楚， 符合毕业设计实施细则的要求，同意参加答辩。 指导教师初评成绩：（开题报告） （中期考核） （论文） 指导教师（签名）： 2006 年 2 月 25 日 nts 毕业设计开题报告 设计题目 人事管理系统 教 学 班： 学生姓名： 学 号： 指导教师： 完成日期： nts 1 一 课题目的、意义 1、 目的 : 随着计算机 技术的飞速发展，计算机在企业管理中应用的普及，利用计算机实现企业人事管理势在必行。对于大中型企业来说，利用计算机支持企业高效率完成劳动人事管理的日常事务，是适应现代企业制度要求、推动企业劳动人事管理走向科学化、规范化的必要条件；计算机管理所无法比拟的优点检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事管理的效率 ,也是企业的科学化、正规化管理 ,与世界接轨的重要条件。 不同的企业具有不同的人事管理制度，这就决定了不同的企业需要不同的人事管理系统。 2、意义： 目前 市面上流行的人事 管理系统不少。但是，对于企、事业单位的人事管理系统来说，不需要 大型的数据库系统。只需要一个操作方便，功能实用，能满足本中心对数据的管理及需求的系统。我们的目标就是在于开发一个功能实用、操作方便，简单明了的人事管理系统 .能够录入人事的基本资料，在操作上能够完成诸如添加、修改、删除、按各种条件进行查询、新用户的设置及密码修改等方面的工作，基本满足人事日常业务的需要。 本人独立完成了此课题的研究与开发，包括调研、分析、设计、编码、测试、文档编写等内容。 二 系统调研 正式开发管理信息系统之前进 行调研是非常必要的，其必要性主要表现在以下几个方面。 （ 1）明确用户的要求，以根据调查结果进行可行性分析，确认系统的开发是否可行。 （ 2）提出新系统的人员并不都是系统研究人员，有些人对于 功能和处理数据的方法没有明确的认识。它们只是根据自己业务工作的需要提出了要求，系统开发人员要对此进行详细的调查和分析，确认用户的要求可以通过现有的计算机nts 2 技术实现，保证开发的管理信息系统的功能与用户提出的要求相吻合。 （ 3）企业的现行系统可能是手工系统，也可能是使用和计算机的系统，无论是何种情况，都要详细地调查现行系统中信息处 理的具体情况，系统内部功能结构，以便设计出一个合理的、好的新系统逻辑模型，为新系统的设计工作打好基础，保证整个系统开发的质量。 总之，必要对现行系统进行详细的调查，明确用户需求，保证开发的新系统的功能与用户的要求相吻合，避免耗费大量的人力、物力、财力，新系统的开发却失败的悲剧发生。 三 分析概述 1.可靠性分析 可靠性分析是在用户的要求和系统调研的基础上进行的，对新系统的开发从社会、技术、经济、管理等方面进行分析，并得出新系统的开发工作可行、不可行、需要修改、追加投资、暂缓开发、分步实施等方案和结论，最 后完成可行性分析。 可行性分析一般可定义为：可行性分析是在建设的前期对工程项目的一种考察和鉴定，对拟议中的项目进行全面与综合的技术、经济能力的调查，判断它是否可行。 (1)可行性分析阶段的主要工作包括以下几个方面： 新系统目标可行性分析： 分析新系统的目标是否符合企业的现状和发展的需要。 社会可行性分析： 社会可行性分析主要是指管理信息系统的开发是否符合国家法律、下策，是否能够与社会大系统实现良好的对接。 技术可行性分析： 技术可行性分析是根据新系统的目标来衡量是否具备所需要的技术，包括系统开发人员数 量和水平，硬件方面，软件方面及其它应用技术。 经济可行性分析 经济可行性分析主要是对开发新系统所投入的资金与系统投入使用后所带来的经济效益进行比较，确认新系统是否会给企业带来一定的经济效益。 nts 3 管理可行性分析： 管理可行性分析主要是分析企业现行的管理体制和企业领导是否具有现代化的管理意识和管理水平。 2.可行性分析 技术可行性分析主要包括四个方面：目前有关的技术能否支持所开发的新系统；新系统开发人员的数量和水平，即人力资源；硬件和软件资源。 （ 1）技术支持： 首先根据新系统的目标，考虑目前有关的技术能否支 持所开发的新系统。这里讨论的技术必须是已经普遍使用的，而不是待研究的或正在研究的。 （ 2）硬件资源： 开发管理信息系统所需的硬件资源包含以下两个方面： 系统开发人员在管理信息系统的开发过程中所需要的计算机设备及其有关的外部设备；管理信息系统开发成功投入使用后，使用单位所应具备的计算机设备及其有关的外围设备。对硬件资源进行可行性分析时主要考虑计算机的主机内存、类型、功能、联网能力、安全保护措施以及输入 /输出设备，外存储器和联网数据通信设备的配置、功能、效率等指标是否符合系统方案设计要求，同时还要考虑计算机的性 能 /价格比。 （ 3）软件资源 软件资源的可行性分析主要考虑以下几点是否满足用户的要求： 操作系统的选择； 编译系统的选择； 数据库管理系统的选择； 高级编程语言的选择； 汉字处理系统的选择； 应用软件包的选择。 本系统在开发前，与中心的领导和有关的操作人员密切沟通，认真听取他们的意见，并吸收他们的积极观点，使本系统的开发在相当大的程度上具有一定的先进性和合理性。 3.系统分析 系统分析是开发管理信息系统的关键性阶段，是一个从不断认识和逐步细化nts 4 的过程，是下一阶段的工作基础，是为下一阶段进行物理方案设计、解决“怎么做”提供依据，基关键性主要体现在“理解需求”和“表达需求”两方面。 通过对现行系统的详细调研，主要是从系统的角度理解用户的需要，确定新系统的综合要求，并提出这些需求的实现条件以及需求应达到的标准，也就是确定新系统要做什么，做到什么程度。这些需求包括： （ 1）功能需求。确定新系统应做什么，这是最主要的需求。 （ 2）性能需求。给出所开发的新系统的技术性能指标，包括存储容量限制、运行时间限制、安全保密性等。 （ 3）环境需求。这是对系统运行以及所处环境的要求。例如，在硬件方面采用什么机型、有什么硬件设备等；在软件方面，采用什么支持系统运行的系统软件（指操作系统、数据库管理系统）。 （ 4）未来需求。这类要求是指目前不属于系统开发的范围，但将来随着外界环境的变化以及系统的发展可能会提出的要求。了解这类要求的目的是在开发过程中，可对系统将来可能的扩展与修改 做 准备。一旦需要时，就比较容易进行补充和修改了。 四 开发工具的选择 现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目 前在我国市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有： Microsoft 公司的 Visual Basic Microsoft 公司的 Visual C Borland 公司的 Delphi Java 等等 在目前市场上这些众多的程序开发工具中，有些强调程 序 语言的弹性与执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的得高，各有各的优点和特色，也满足了不同用户的需求。然而，语言的弹性和工具的便利性是密不可分的，只有便利的工具，却没有弹性的语言作支持，许多特殊化的处理动作必需要耗费数倍的 工夫来处理，使得原来所标榜的效率提高的优点失去了作用；相反，如果只强调程 序 语言的弹性，却没有便利的工具作配合，会使一些即nts 5 使非常简单的界面处理动作，也会严重地浪费程序设计师的宝贵时间。 作为数据库系统的开发， Visual Basic 是一个非常理想选择。数据库是 MIS中的重要支持技术，在 MIS 开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言Visual Basic 语言，该开发工 具具有很多长处： Visual Basic 是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发 Windows 环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与 Windows 的专业开发工具 SDK 相媲美，而且程序开发人员不必具有 C/C+编程基础。在 Visual Basic 环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用 Windows 内部的应用程序接口 (API)函数，以及动态链接库 (DLL)、动态数据交换 (DDE)、对象的链接与嵌入 (OLE)、开放式数据访问 (ODBC)等技术，可以高效、快速地开发出 Windows 环境下功能强大、图形界面丰富的应用软件系统。 五 数据流程图 数据流程图是描述系统逻辑模型的主要工具，通过几个特定的符号，可以综合地反映出信息在系统中的使用、加工处理、传递、存储的整体情况。 数据流程图是系统结构化分析行之有效的工具，它抽象地描述了系统数据处理的情况， 但却无法表达 处理的详细内容，因此还要对数据流程图中出现的数据流和处理等做进一步的补充说明，这就是数据字典和变换逻辑说明。 数据流图 工资管理 管理员 档案管理 员工基本信息 假条信息 会计员 人事主管 nts 6 总体 计方案，实现方法，软件平台 1 总体设计方案：实现人事管理系统的全部功能。 2 实现方法： Visual Basic6.0 等 。 3 软件平台： Win98， win2000 等。 六 计算机的软件配置 Windows 98/Windows XP/Windows 2000/Windows 2003； 七 进度计划 第一周 收集材料 整理信息 第二周 需求分析 第三周 软件设计 :选择模块划分的方案 第四周 总体结构和模块外部设计 第五周 具体模块设计 第六周 运行设计 第七周 详细设计 (数据库 ) 第八周 软件测试 第九周 整理源程序 编写软件说明书和用户手册 第十周 形成毕业设计全部文件 nts附录： 毕业设计程序清单 设计题目 人事管理系统 教 学 班： 学生姓名： 学 号： 指导教师： 完成日期： nts 1 Option Explicit Dim Bupdata As Boolean Dim i As Integer Private Sub Cmbdegree_Click() If Cmbdegree.Text = 定制 Then FrmTable.Show Cmbdegree.ListIndex = 0 End If End Sub Private Sub Cmbdepart_Click() If Cmbdepart.Text = 定制 Then FrmTable.Show Cmbdepart.ListIndex = 0 End If End Sub Private Sub CmdAddNew_Click() If CmdAddNew.Caption = 添加 Then CmdAddNew.Caption = 确认 CmdDel.Enabled = False CmdOK.Enabled = False DataA.ReadOnly = False For i = 1 To 12 If Txt(i).Text = Then Txt(i).Text = 0 DataA.Recordset.Fields(i) = 0 Next i DataA.Recordset.AddNew Txt(0).Locked = False If FrmMain.cutable = employee Then DataA.Recordset.Fields(13) = frmLogin.EmploID DataA.Recordset.Fields(14) = Now If Opsex(0) Then DataA.Recordset.Fields(4) = 男 Else nts 2 DataA.Recordset.Fields(4) = 女 End If DataA.Recordset.Fields(7) = Cmbdegree.Text DataA.Recordset.Fields(8) = Cmbdepart.Text ElseIf FrmMain.cutable = leave Then DataA.Recordset.Fields(8) = frmLogin.EmploID DataA.Recordset.Fields(9) = Now Else DataA.Recordset.Fields(13) = frmLogin.EmploID DataA.Recordset.Fields(14) = Now End If Txt(0).SetFocus Else OK If Txt(0).Text = Then MsgBox 不可以为空 Txt(0).SetFocus Exit Sub End If For i = 1 To 12 If Txt(i).Text = Then Txt(i).Text = 0 DataA.Recordset.Fields(i) = 0 Next i If FrmMain.cutable = employee Then DataB.Recordset.FindFirst 职工编号 = + Txt(0).Text If Not DataB.Recordset.NoMatch Then MsgBox 职员编号重复 Txt(0).Text = Txt(0).SetFocus Exit Sub End If nts 3 ElseIf FrmMain.cutable = leave Then DataB.Recordset.FindFirst 假条编号 = + Txt(0).Text If Not DataB.Recordset.NoMatch Then MsgBox 假条编号重复 Txt(0).Text = Txt(0).SetFocus Exit Sub End If Else For i = 4 To 10 If Not IsNumeric(Txt(i).Text) Then MsgBox not a number Txt(i).SetFocus Exit Sub End If Next i DataB.Recordset.FindFirst 工资编号 = + Txt(0).Text If Not DataB.Recordset.NoMatch Then MsgBox 工资编号重复 Txt(0).Text = Txt(0).SetFocus Exit Sub End If End If DataA.Recordset.Update DataA.Recordset.MoveLast FrmMain.DataA.Refresh FrmMain.DataB.Refresh DataB.Refresh CmdAddNew.Caption = 添加 nts 4 CmdDel.Enabled = True CmdOK.Enabled = True End If End Sub Private Sub CmdCacel_Click() If CmdAddNew.Caption = 确认 Then DataA.Recordset.CancelUpdate End If FrmMain.Enabled = True FrmMain.SetFocus Unload Me FrmMain.DataA.Refresh If FrmMain.cutable = employee Then FrmMain.DBGA.Columns(性别 ).Button = True FrmMain.DBGA.Columns(学历 ).Button = True FrmMain.DBGA.Columns(部门 ).Button = True End If End Sub Private Sub CmdDel_Click() DataA.ReadOnly = False DataA.Recordset.Delete DataA.Recordset.MoveNext If DataA.Recordset.EOF Then DataA.Recordset.MoveLast End If FrmMain.DataA.Refresh nts 5 End Sub Private Sub cmdOK_Click() If Txt(0).Text = Then MsgBox 不可以为空 Txt(0).SetFocus Exit Sub End If Bupdata = False DataA.Recordset.Edit If FrmMain.cutable = leave Then DataA.Recordset.Fields(8) = frmLogin.EmploID DataA.Recordset.Fields(9) = Now ElseIf FrmMain.cutable = employee Then DataA.Recordset.Fields(13) = frmLogin.EmploID DataA.Recordset.Fields(14) = Now If Opsex(0) Then DataA.Recordset.Fields(4) = 男 Else DataA.Recordset.Fields(4) = 女 End If DataA.Recordset.Fields(7) = Cmbdegree.Text DataA.Recordset.Fields(8) = Cmbdepart.Text DataA.Recordset.Fields(13) = frmLogin.EmploID DataA.Recordset.Fields(14) = Now Else For i = 4 To 10 If Not IsNumeric(Txt(i).Text) Then MsgBox not a number Txt(i).SetFocus Exit Sub End If Next i nts 6 DataA.Recordset.Fields(13) = frmLogin.EmploID DataA.Recordset.Fields(14) = Now End If For i = 1 To 12 If Txt(i).Text = Then Txt(i).Text = 0 DataA.Recordset.Fields(i) = 0 Next i DataA.Recordset.Update FrmMain.DataA.Refresh DataB.Refresh End Sub Private Sub DataA_Validate(Action As Integer, Save As Integer) If Action = 11 And Bupdata Then Save = 0 End If End Sub Private Sub Lab_Click(Index As Integer) End Sub Private Sub Txt_KeyPress(Index As Integer, KeyAscii As Integer) If (KeyAscii 57) And KeyAscii 57) And KeyAscii 57) And KeyAscii 57) And KeyAscii 46 Then KeyAscii = 0 Exit Sub End If End If End Sub Private Sub Txt_change(Index As Integer) If Bupdata = False Then Bupdata = True If FrmMain.cutable = salary Then If Txt(Index).Text = Then Exit Sub If Index = 4 And Index = 8 And Index -1 Then nts 9 DataA.Recordset.Move (FrmMain.cuAp) Else DataA.Recordset.MoveFirst End If If DataA.Recordset.Fields(4) = 男 Then Opsex(0).Value = True Else Opsex(1).Value = True End If 设置 lsdegree 的显示项 For i = 0 To FrmMain.LsDegree.ListCount - 2 Cmbdegree.AddItem FrmMain.LsDegree.List(i) If FrmMain.LsDegree.List(i) = DataA.Recordset.Fields(7) Then Cmbdegree.ListIndex = i End If Next i If Cmbdegree.ListIndex = -1 Then Cmbdegree.AddItem DataA.Recordset.Fields(7) Cmbdegree.ListIndex = Cmbdegree.ListCount - 1 End If Cmbdegree.AddItem 定制 设置 lsdepart 的显示项 For i = 0 To FrmMain.LsDepart.ListCount - 2 Cmbdepart.AddItem FrmMain.LsDepart.List(i) If FrmMain.LsDepart.List(i) = DataA.Recordset.Fields(8) Then Cmbdepart.ListIndex = i End If Next i If Cmbdepart.ListIndex = -1 Then Cmbdepart.AddItem DataA.Recordset.Fields(8) Cmbdepart.ListIndex = Cmbdepart.ListCount - 1 nts 10 End If Cmbdepart.AddItem 定制 设置完毕 ElseIf FrmMain.cutable = leave Then leave Txt(7).Visible = True Cmbdegree.Visible = False Cmbdepart.Visible = False Frame1.Visible = False For i = 8 To 12 Lab(i).Visible = False Txt(i).Visible = False Next i For i = 0 To 7 Lab(i).Caption = DataA.Recordset.Fields(i).Name Txt(i).DataField = DataA.Recordset.Fields(i).Name Next i Txt(13).DataField = DataA.Recordset.Fields(10).Name If FrmMain.cuAp -1 Then DataA.Recordset.Move (FrmMain.cuAp) Else DataA.Recordset.MoveFirst End If Else salary Frame1.Visible = False Cmbdegree.Visible = False Cmbdepart.Visible = False For i = 0 To 12 Lab(i).Caption = DataA.Recordset.Fields(i).Name Txt(i).DataField = DataA.Recordset.Fields(i).Name Next i Txt(13).DataField = DataA.Recordset.Fields(15).Name Txt(7).Locked = True Txt(11).Locked = True Txt(12).Locked = True nts 11 If FrmMain.cuAp -1 Then DataA.Recordset.Move (FrmMain.cuAp) Else DataA.Recordset.MoveFirst End If End If End Sub Private Sub Form_Unload(Cancel As Integer) FrmMain.Enabled = True FrmMain.SetFocus Unload Me FrmMain.DataB.Refresh End Sub Option Explicit Const MxUser = 100 Public EmploID As Integer Public CurUser As String Public CurId As String Public CurPsw As String Dim user(MxUser), pws(MxUser), state(MxUser), Emplo(MxUser) As String Private Sub Form_Load() Dim i As Integer If App.PrevInstance Then MsgBox (程序已经运行，不能再次装载。 ), vbExclamation Unload Me End If 本段代码用于判定本程序是否已经装 载于内存中，以避免程序的多重启动 i = 0 Open App.Path + user.ini For Input As #1 Do While Not EOF(1) Input #1, user(i), pws(i), state(i), Emplo(i) nts 12 If state(i) = A Then Combo1.AddItem user(i) End If i = i + 1 Loop Close #1 Combo1.ListIndex = 1 在窗口装载阶段读取用户设置文件获取用户信息 并装载于用户列表框中 End Sub Private Sub CmdCancel_Click() Unload Me End End Sub Private Sub cmdOK_Click() If txtPassword = pws(Combo1.ListIndex) Then CurId = Combo1.ListIndex EmploID = Emplo(CurId) CurUser = user(CurId) CurPsw = pws(CurId) Me.Hide Load FrmMain FrmMain.Show Else MsgBox Invalid Password, try again!, , Login txtPassword.SetFocus SendKeys Home+End End If End Sub Private Sub Form_Unload(Cancel As Integer) Unload Me nts 13 End End Sub Option Explicit Public cuTabCh As Boolean Public cutable As String Public cuAp As Integer 当前指针位置 Dim i As Integer Public Pwin As String Public Sub showemployee() DataA.RecordSource = select * from employee DataA.Refresh DBGA.Columns(性别 ).Button = True DBGA.Columns(学历 ).Button = True DBGA.Columns(部门 ).Button = True For i = 0 To 2 Mtab(i).Checked = False Next i Mtab(0).Checked = True cutable = employee cuTabCh = True End Sub Public Sub showleave() DataA.RecordSource = select * from leave DataA.Refresh For i = 0 To 2 Mtab(i).Checked = False Next i Mtab(1).Checked = True cutable = leave cuTabCh = True End Sub Public Sub showsalary() DataA.RecordSource = select * from salary DataA.Refresh For i = 0 To 2 Mtab(i).Checked = False Next i nts 14 Mtab(2).Checked = True cutable = salary cuTabCh = True End Sub Private Sub Form_Load() Dim fil, tbcount, i As Integer Dim Tbstr(50), Tbnam(50) As String DataA.DatabaseName = App.Path + sm.mdb DataB.DatabaseName = App.Path + sm.mdb DataB.RecordSource = select * from employee Call showemployee If Dir(App.Path + table.ini) = Then LsDegree.AddItem 定制 LsDepart.AddItem 定制 Else fil = FreeFile() Open App.Path + table.ini For Input As #fil Do While Not EOF(fil) Input #fil, Tbnam(i), Tbstr(i) i = i + 1 Loop Close #fil tbcount = i For i = 0 To tbcount If Tbnam(i) = lsdegree Then LsDegree.AddItem Tbstr(i) ElseIf Tbnam(i) = lsdepart Then LsDepart.AddItem Tbstr(i) End If Next i LsDegree.AddItem 定制 LsDepart.AddItem 定制 nts 15 End If End Sub Private Sub Form_Unload(Cancel As Integer) End End Sub Private Sub DBGA_ButtonClick(ByVal ColIndex As Integer) Dim Co As Column Set Co = DBGA.Columns(ColIndex) Select Case ColIndex Case 4 Lssex.Left = DBGA.Left + Co.Left + Co.Width Lssex.Top = DBGA.Top + DBGA.RowTop(DBGA.Row) Lssex.Visible = True Lssex.ZOrder 0 Lssex.SetFocus Case 7 degree LsDegree.Left = DBGA.Left + Co.Left + Co.Width LsDegree.Top = DBGA.Top + DBGA.RowTop(DBGA.Row) LsDegree.Visible = True LsDegree.ZOrder 0 LsDegree.SetFocus Case 8 department LsDepart.Left = DBGA.Left + Co.Left + Co.Width LsDepart.Top = DBGA.Top + DBGA.RowTop(DBGA.Row) LsDepart.Visible = True LsDepart.ZOrder 0 LsDepart.SetFocus End Select End Sub Private Sub DBGA_HeadClick(ByVal ColIndex As Integer) DBGA.ClearSelCols nts 16 End Sub Private Sub DBGA_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then FrmMain.PopupMenu Mp End If End Sub Private Sub DBGA_RowColChange(LastRow As Variant, ByVal LastCol As Integer) cuAp = DataA.Recordset.AbsolutePosition If cuAp -1 Then DataB.Recordset.FindFirst 职工编号 = + CStr(DataA.Recordset.Fields(职工编号 ) If DataB.Recordset.NoMatch Then Lab.Caption = 没有此职员 Else With DataB.Recordset Lab.Caption = 工号： + CStr(.Fields(0) + 姓名： + CStr(.Fields(1) + 性别： + CStr(.Fields(4) + 部门： + CStr(.Fields(8) + 职位： + CStr(.Fields(9) + 电话： + CStr(.Fields(11) End With End If End If End Sub Private Sub LsDegree_Click() If LsDegree.Text = 定制 Then FrmTable.Show Else DataA.Recordset.Edit nts 17 DataA.Recordset.Fields(7) = LsDegree.Text DataA.Recordset.Fields(13) = CStr(frmLogin.CurId) DataA.Recordset.Fields(14) = CStr(Now) DataA.Recordset.Update DataB.Refresh End If End Sub Private Sub LsDepart_Click() If LsDepart.Text = 定制 Then FrmTable.Show Else DataA.Recordset.Edit DataA.Recordset.Fields(8) = LsDepart.Text DataA.Recordset.Fields(13) = CStr(frmLogin.CurId) DataA.Recordset.Fields(14) = CStr(Now) DataA.Recordset.Update DataB.Refresh End If End Sub Private Sub Lssex_Click() DataA.Recordset.Edit DataA.Recordset.Fields(4) = Lssex.Text DataA.Recordset.Fields(13) = CStr(frmLogin.CurId) DataA.Recordset.Fields(14) = CStr(Now) DataA.Recordset.Update DataB.Refresh End Sub # Private Sub Lssex_LostFocus() Lssex.Visible = False End Sub Private Sub Lsdegree_LostFocus() LsDegree.Visible = False nts 18 End Sub Private Sub Lsdepart_LostFocus() LsDepart.Visible = False End Sub Private Sub DBGA_Scroll(Cancel As Integer) Lssex.Visible = False LsDegree.Visible = False LsDepart.Visible = False End Sub # Private Sub MAbout_Click() frmAbout.Show End Sub Private Sub Mhelp_Click() FrmHelp.Show End Sub Private Sub Moption_Click(Index As Integer) If Index = 0 Then If frmLogin.CurUser = root Then FrmSys.Show Else FrmPsw.Show Pwin = Frmmain FrmMain.Enabled = False End If Else End End If End Sub Private Sub Mpop_Click(Index As Integer) Select Case Index Case 1 nts 19 FrmEdit.Show FrmMain.Enabled = False Case 2 If DBGA.SelBookmarks.Count = 1 Then If MsgBox( 确 定 要 删 除 吗 ？ , vbOKCancel, 确定 ) = vbOK Then DataA.Recordset.Delete cuAp = 0 Else MsgBox 请选择要删除的条目！ End If Case 3 FrmSearch.Show End Select End Sub Private Sub Mtab_Click(Index As Integer) Dim i As Integer For i = 0 To 2 Mtab(i).Checked = False Next i Mtab(Index).Checked = True Select Case Index Case 0 Call showemployee Case 1 Call showleave Case 2 Call showsalary End Select End Sub nts 20 Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 edit FrmEdit.Show FrmMain.Enabled = False Case 2 del If DBGA.SelBookmarks.Count = 1 Then If MsgBox( 确 定 要 删 除 吗 ？ , vbOKCancel, 确定 ) = vbOK Then DataA.Recordset.Delete cuAp = 0 Else MsgBox 请选择要删除的条目！ End If Case 3 seek FrmSearch.Show Case 4 setup FrmSetup.Show End Select End Sub Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 Call showemployee Case 2 Call showleave Case 3 Call showsalary Case 4 If frmLogin.CurUser = root Then nts 21 FrmSys.Show Else FrmPsw.Show Pwin = Frmmain FrmMain.Enabled = False End If End Select End Sub Option Explicit Const MxUser = 100 Dim user(MxUser), pws(MxUser), state(MxUser), Emplo(MxUser) As String Private Sub CmdCancel_Click() Me.Hide If FrmMain.Pwin = Frmmain Then FrmMain.Enabled = True FrmMain.SetFocus Else Call FrmSys.ActiveAll FrmSys.SetFocus End If End Sub Private Sub cmdOK_Click() Dim fil, i, Usercount As Integer If TxtNew1.Text frmLogin.CurPsw Then MsgBox old password wrong Txtold.SetFocus TxtNew1.Text = TxtNew2.Text = nts 22 SendKeys Home+End Exit Sub Else fil = FreeFile() Open App.Path + user.ini For Input As #fil i = 0 Do While Not EOF(fil) Input #fil, user(i), pws(i) Input #fil, state(i), Emplo(i) i = i + 1 Loop Usercount = i Close #fil pws(frmLogin.CurId) = TxtNew1.Text frmLogin.CurPsw = TxtNew1.Text fil = FreeFile() Open App.Path + user.ini For Output As #fil For i = 0 To Usercount - 1 Print #fil, user(i); ,; pws(i); ,; state(i); ,; Emplo(i) Next i Close #fil Txtold.Text = TxtNew1.Text = TxtNew2.Text = Me.Hide If FrmMain.Pwin = Frmmain Then FrmMain.Enabled = True FrmMain.SetFocus Else Call FrmSys.ActiveAll FrmSys.SetFocus nts 23 End If End If End Sub Private Sub Form_LostFocus() FrmPsw.SetFocus End Sub Private Sub Form_Unload(Cancel As Integer) FrmMain.Enabled = True FrmMain.SetFocus Unload Me End Sub Option Explicit Private Sub Cmb1_Click() With Cmb1 If .Text = 职工编号 Or .Text = 交通补助 Or .Text = 加班补助 Or .Text = 工资编号 Or .Te