关 键 词：

vb016 企业 人事管理系统

资源描述：

vb016企业人事管理系统(二),vb016,企业,人事管理系统

内容简介：

*大学计算机应用专业（专科）毕业设计中期报告设计题目 人事管理系统 教 学 班： 学生姓名： 学 号： 指导教师： 完成日期： “人事管理系统”中期报告一、设计与开发的进展情况人事管理系统的开发工作基本按照开题报告的时间安排顺利进行，目前情况是：1、经过五周时间完成了系统分析，总体结构和具体模块设计，形成系统的总体设计方案2、数据库设计与实现工作已经结束。3、系统的模块设计与实现情况如下：已经完成负责系统的启动和连接数据库的模块、引导窗口的模块和菜单窗口的模块的设计与实现；其余模块的设计也已经基本完成，现在正在完成界面和代码的实现过程中；待前几个模块完成后即可着手进行。二、文档编写的准备情况根据设计要求，目前对需求分析的内容、总体设计内容、部分详细设计内容和数据库设计资料已经准备齐全，并部分成稿，整个设计论文的框架、结构及各部分内容的安排也已经构思完毕，并完成部分电子文档的准备。计划在系统设计全部实现后整理完成。对系统的使用及测试准备工作正按部就班的实行中。三、设计中出现的问题及解决1、需求分析工作中，对分析的内容不全面，用工具描述不准确，经过老师指导解决。2、程序结构设计走过一点弯路，经老师指出后改进了。3、开发工具的学习较长，尤其是与数据库连接，费过一些周折，经过请教有关同事和同学，有了进步，现在已经基本解决了。四、下一步安排1、用二周时间完成全部程序设计。2、用一周时间完成软件的测试。3、用一周的时间来整理源程序，编写软件说明书和用户手册，4、最后一周完成毕业论文。根据一个多月的设计与开发，目前一切都在按计划进行中。本人认为，按照原计划完成毕业设计是完全可以的。特此报告。2*大学计算机应用专业（专科）毕业实习报告实习内容： 计算机网络实践 专 业： 学生姓名： 学 号： 指导教师： 实习单位： 时 间： 毕业生实习报告表姓名性别专业班级 实习时间指导教师实习单位实习内宾实习内容在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影片也是一种流式文件。这就是说，浏览者在观看一个大动画时，可以不必等到影片全部下载到本地再观看，而是可以随时观看，即使后面的内容还没有完全下载，也可以开始欣赏动画。主图是一个网页的门面，它能体现出这个网页的整体风格。网站名字为蓝晴驿站，蓝色的天空给人带来好的心情，给人带来轻松愉快的心情来浏览网页。 首页的地址为“”,内容精彩丰富，简洁明快，语言风趣，通俗易懂。页面可爱清爽。 首页主要是导航作用，上方共有六个导航条，用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 Flockenif (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+ , +yybilder+ , +yyloop+ , +yyto+ , +yycnt+ , +yystep+ ) ;if (yycnt=yystep*yybilder)eval(yydiv+.yyto=setTimeout(argStr,yyto);function YY_Mousetrace(evnt) /v1.2 copyright (c)1999 Yaromatif (yyns4)if (evnt.pageX) yy_ml=evnt.pageX; yy_mt=evnt.pageY; elseyy_ml=(event.clientX + document.body.scrollLeft);yy_mt=(event.clientY + document.body.scrollTop);if (yy_tracescript)eval(yy_tracescript) 右侧下的是一个flash做的动画，蒙板层切换图片，下面的字幕为衔接。 单击“动感地带”进入内容的左侧，一个米老鼠可以单击返回首页。下面是一个表格，表格里的内容是衔接网站。表格的最后一行友情链接为本班同学所做的个人网站，可单击衔接。本页最后为flash动画。它是一个跟随鼠标移动的图形心。它的代码为： 单击“爱情感悟”进入内容是一篇关于爱情总结的一篇文章。内有背景音乐。其余的为gif动画。 单击“五花八门”进入内容的文字都是衔接。右下角为一个flash动画，百叶窗似的打开图片。其余的为gif动画。 单击“心情留言”是留言本，可进入留言还可免费申请。 单击“海阔天空”是聊天室，填写名字与密码可直接进入。实习体会 通过这次实习，在制作时想想使自己的网页更加丰富多彩，在网页中插入图象，动画，动态特效。可是总遇到这样那样的问题，例如Flash动画到入Dreamweaver里，开始不明白后来才知道是在reamweaver里先插个层，这样就可以浏览出效果了。还有是有时上传到网页上的图片不显示，原因是它们没有在一个文件夹内。但在同学的帮助和自己摸索的情况下完成了这个实习的成果。看到了一些知名的网站开发出的网页，不仅栏目内容丰富，信息量大，而且页面图文并茂，五彩缤纷，使得网民赞叹不已，流连忘返。以我们的经验，当前的软件的功能日趋复杂，不学到一定的深度和广度是难以在实际工作中应付自如的。因此反映出学习的还不够，缺点疏漏。虚在加以刻苦钻研及学习，不断开拓视野，增强自己的实践操作技能， 对自己的专业有了更全面、更深入的认识，看到了自己专业知识上的不足，同时也提高了自己的观察分析、交流沟通、组织协调等能力。指导教师评语实习单位意见 （盖章） 年 月 日4*学校计算机科学应用专业（专科）毕业设计课题审批表办学单位（盖章）： 2005年10 月12 日课题名称：人事管理系统题目类型及来源：信息管理类，受托指导教师及职称：*，教授课题主要研究内容及预期达到的目标： 通过对部分中小企业人事管理情况的调查，了解了目前一般中小企业的人事管理情况，在调查的基础上开发一个简单的人事管理系统，其实现的主要功能如下：1、系统管理：包括人员登录管理、修改密码、用户管理。2、招聘管理：包括招聘人员计划以及审批情况。3、人事管理：包括员工基本信息的添加、修改、删除、查询，部门信息、职务信息的添加、删除，员工内部调动、人员资料按分组进行查询。4、考勤管理：包括考勤时间表的设置、考勤的出勤、加班、出差、请假记录的添加、删除以及最后的月考勤统计。本系统的开发完成并投入运行后，可以用计算机进行人事管理工作，使一般企事业单位人事管理更加科学化、现代化。课题研究的工作基础或实验条件：通过对部分中小企业人事管理情况的调查，了解了目前一般中小企业的人事管理情况，并参考了成功的工资管理系统的开发经验，且在学习过程中已经学习过管理信息系统课程，具备了开发该系统的基础。教学部具有50余台Pentiun以上计算机，系统软件及各种开发工具较齐全，完全满足研究与实验要求。课题所涉及的知识面：计算机网络软件工程程序设计基础软件开发工具数据结构*专业毕业设计指导组意见：专业系（部、教研室）主任签字： 年 月 日*毕业设计指导组意见：专业系（部、教研室）主任签字： 年 月 日*学校计算机应用（专科）毕业设计任务书学生姓名： 学号： 办学单位： 指导教师： 职称： 下发日期： 设计题目：人事管理系统调查部分中小企业人事管理情况，了解了目前一般中小企业的人事管理现状，在调查的基础上开发一个简单的人事管理系统，其实现的主要功能如下：1、系统管理：包括人员登录管理、修改密码、用户管理。2、招聘管理：包括招聘人员计划以及审批情况。3、人事管理：包括员工基本信息的添加、修改、删除、查询，部门信息、职务信息的添加、删除，员工内部调动、人员资料按分组进行查询。4、考勤管理：包括考勤时间表的设置、考勤的出勤、加班、出差、请假记录的添加、删除以及最后的月考勤统计。课题预期达到的目标（主要技术参数）及要求：本本系统的开发完成并投入运行后，可以用计算机进行人事管理工作，使一般企事业单位人事管理更加科学化、现代化。课题研究的实验条件：硬件环境：Pentim 以上CPU，128M内存，40G硬盘；软件环境：Windows 操作系统，Visual foxpro 6.0主要参考资料：1王福成等：，清华大学出版社2002年6月2郭振波编著： ， 人民邮电出版社2003年3月3林永等编著： ， 人民邮电出版社2002年11月4刘炳文等编著： ，清华大学出版社 2000年7月毕业设计进度计划：1、期限：自2005年10 月22 日起至2006 年 2 月 24 日2、具体进度安排：年 月 日具体完成内容2005.10.222005.11.22005.11.162005.11.232005.11.292005.12.92005.12.232006.1.232006.2.172006.2.24布置毕业设计任务，下达毕业设计任务书检查根据毕业设计任务书要求进行调研的情况，完成调研。形成需求分析意见。审查可行性分析及系统调研分析的结果，形成概要设计，完成开题报告。进行开题论证（全体学生参加）熟悉开发环境；完成系统管理（包括人员登录管理、修改密码、用户管理）与招聘管理（包括招聘人员计划以及审批情况）模块的程序设计与实现；完成人事管理（包括员工基本信息的添加、修改、删除、查询，部门信息、职务信息的添加、删除，员工内部调动、人员资料按分组进行查询等）模块的代码实现；完成考勤管理（包括考勤时间表的设置、考勤的出勤、加班、出差、请假记录的添加、删除以及最后的月考勤统计）模块设计与实现。进行系统的最终调试和测试，完成最终开发的系统。 最后完善毕业设计说明书的撰写，打印，装订，制作PPT演示文稿，系统打包。*大学计算机应用（专科）毕业设计指导教师初评意见学生姓名： 办学单位： 设计题目：人事管理系统指导教师指导学生情况记录（由指导教师填写）次数指导时间指 导 具 体 内 容12005.10.22布置毕业设计任务，下达毕业设计任务书22005.11.2研究调研的情况，指导需求分析意见。32005.11.16指导可行性分析及概要设计，完成开题报告。42005.11.23进行开题论证（全体学生参加）52005.11.29指导开发环境的使用方法；62005.12.9指导系统管理与招聘管理模块程序设计与实现。72005.12.23指导人事管理模块的程序设计与实现。82006.1.23指导考勤管理模块的程序设计与实现。92006.2.17指导系统测试方法，检查完成的最终系统。 102006.2.24检查毕业设计说明书和PPT演示文稿，系统打包方法。指导教师评语：该生毕业设计态度端正，设计认真，及时与指导老师沟通，按照指导教师的安排，参加各次指导和辅导。该设计较为全面达到了任务书中提出的功能要求，方案设计合理，能利用所学的知识解决设计中遇到的问题，设计的程序运行正常。设计说明书结构完整，功能阐述基本正确，图示符号符合有关标准规范的规定，文理通顺，语言流畅，结构清楚，符合毕业设计实施细则的要求，同意参加答辩。指导教师初评成绩：（开题报告） （中期考核） （论文） 指导教师（签名）： 2006年2月 25日毕业设计开题报告设计题目 人事管理系统 教 学 班： 学生姓名： 学 号： 指导教师： 完成日期： 一 课题目的、意义 1、目的: 随着计算机技术的飞速发展，计算机在企业管理中应用的普及，利用计算机实现企业人事管理势在必行。对于大中型企业来说，利用计算机支持企业高效率完成劳动人事管理的日常事务，是适应现代企业制度要求、推动企业劳动人事管理走向科学化、规范化的必要条件；计算机管理所无法比拟的优点检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。不同的企业具有不同的人事管理制度，这就决定了不同的企业需要不同的人事管理系统。 2、意义：目前市面上流行的人事管理系统不少。但是，对于企、事业单位的人事管理系统来说，不需要大型的数据库系统。只需要一个操作方便，功能实用，能满足本中心对数据的管理及需求的系统。我们的目标就是在于开发一个功能实用、操作方便，简单明了的人事管理系统.能够录入人事的基本资料，在操作上能够完成诸如添加、修改、删除、按各种条件进行查询、新用户的设置及密码修改等方面的工作，基本满足人事日常业务的需要。本人独立完成了此课题的研究与开发，包括调研、分析、设计、编码、测试、文档编写等内容。二 系统调研正式开发管理信息系统之前进行调研是非常必要的，其必要性主要表现在以下几个方面。（1）明确用户的要求，以根据调查结果进行可行性分析，确认系统的开发是否可行。（2）提出新系统的人员并不都是系统研究人员，有些人对于功能和处理数据的方法没有明确的认识。它们只是根据自己业务工作的需要提出了要求，系统开发人员要对此进行详细的调查和分析，确认用户的要求可以通过现有的计算机技术实现，保证开发的管理信息系统的功能与用户提出的要求相吻合。（3）企业的现行系统可能是手工系统，也可能是使用和计算机的系统，无论是何种情况，都要详细地调查现行系统中信息处理的具体情况，系统内部功能结构，以便设计出一个合理的、好的新系统逻辑模型，为新系统的设计工作打好基础，保证整个系统开发的质量。总之，必要对现行系统进行详细的调查，明确用户需求，保证开发的新系统的功能与用户的要求相吻合，避免耗费大量的人力、物力、财力，新系统的开发却失败的悲剧发生。三 分析概述1.可靠性分析可靠性分析是在用户的要求和系统调研的基础上进行的，对新系统的开发从社会、技术、经济、管理等方面进行分析，并得出新系统的开发工作可行、不可行、需要修改、追加投资、暂缓开发、分步实施等方案和结论，最后完成可行性分析。可行性分析一般可定义为：可行性分析是在建设的前期对工程项目的一种考察和鉴定，对拟议中的项目进行全面与综合的技术、经济能力的调查，判断它是否可行。(1)可行性分析阶段的主要工作包括以下几个方面：新系统目标可行性分析：分析新系统的目标是否符合企业的现状和发展的需要。社会可行性分析：社会可行性分析主要是指管理信息系统的开发是否符合国家法律、下策，是否能够与社会大系统实现良好的对接。技术可行性分析：技术可行性分析是根据新系统的目标来衡量是否具备所需要的技术，包括系统开发人员数量和水平，硬件方面，软件方面及其它应用技术。经济可行性分析经济可行性分析主要是对开发新系统所投入的资金与系统投入使用后所带来的经济效益进行比较，确认新系统是否会给企业带来一定的经济效益。管理可行性分析：管理可行性分析主要是分析企业现行的管理体制和企业领导是否具有现代化的管理意识和管理水平。2.可行性分析技术可行性分析主要包括四个方面：目前有关的技术能否支持所开发的新系统；新系统开发人员的数量和水平，即人力资源；硬件和软件资源。（1）技术支持：首先根据新系统的目标，考虑目前有关的技术能否支持所开发的新系统。这里讨论的技术必须是已经普遍使用的，而不是待研究的或正在研究的。（2）硬件资源：开发管理信息系统所需的硬件资源包含以下两个方面：系统开发人员在管理信息系统的开发过程中所需要的计算机设备及其有关的外部设备；管理信息系统开发成功投入使用后，使用单位所应具备的计算机设备及其有关的外围设备。对硬件资源进行可行性分析时主要考虑计算机的主机内存、类型、功能、联网能力、安全保护措施以及输入/输出设备，外存储器和联网数据通信设备的配置、功能、效率等指标是否符合系统方案设计要求，同时还要考虑计算机的性能/价格比。（3）软件资源软件资源的可行性分析主要考虑以下几点是否满足用户的要求：操作系统的选择；编译系统的选择；数据库管理系统的选择；高级编程语言的选择；汉字处理系统的选择；应用软件包的选择。本系统在开发前，与中心的领导和有关的操作人员密切沟通，认真听取他们的意见，并吸收他们的积极观点，使本系统的开发在相当大的程度上具有一定的先进性和合理性。3.系统分析系统分析是开发管理信息系统的关键性阶段，是一个从不断认识和逐步细化的过程，是下一阶段的工作基础，是为下一阶段进行物理方案设计、解决“怎么做”提供依据，基关键性主要体现在“理解需求”和“表达需求”两方面。通过对现行系统的详细调研，主要是从系统的角度理解用户的需要，确定新系统的综合要求，并提出这些需求的实现条件以及需求应达到的标准，也就是确定新系统要做什么，做到什么程度。这些需求包括：（1）功能需求。确定新系统应做什么，这是最主要的需求。（2）性能需求。给出所开发的新系统的技术性能指标，包括存储容量限制、运行时间限制、安全保密性等。（3）环境需求。这是对系统运行以及所处环境的要求。例如，在硬件方面采用什么机型、有什么硬件设备等；在软件方面，采用什么支持系统运行的系统软件（指操作系统、数据库管理系统）。（4）未来需求。这类要求是指目前不属于系统开发的范围，但将来随着外界环境的变化以及系统的发展可能会提出的要求。了解这类要求的目的是在开发过程中，可对系统将来可能的扩展与修改做准备。一旦需要时，就比较容易进行补充和修改了。四 开发工具的选择现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有：Microsoft公司的Visual BasicMicrosoft公司的Visual CBorland公司的Delphi Java等等在目前市场上这些众多的程序开发工具中，有些强调程序语言的弹性与执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的得高，各有各的优点和特色，也满足了不同用户的需求。然而，语言的弹性和工具的便利性是密不可分的，只有便利的工具，却没有弹性的语言作支持，许多特殊化的处理动作必需要耗费数倍的工夫来处理，使得原来所标榜的效率提高的优点失去了作用；相反，如果只强调程序语言的弹性，却没有便利的工具作配合，会使一些即使非常简单的界面处理动作，也会严重地浪费程序设计师的宝贵时间。作为数据库系统的开发，Visual Basic是一个非常理想选择。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言Visual Basic语言，该开发工具具有很多长处：Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C+编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。五 数据流程图数据流程图是描述系统逻辑模型的主要工具，通过几个特定的符号，可以综合地反映出信息在系统中的使用、加工处理、传递、存储的整体情况。数据流程图是系统结构化分析行之有效的工具，它抽象地描述了系统数据处理的情况，但却无法表达处理的详细内容，因此还要对数据流程图中出现的数据流和处理等做进一步的补充说明，这就是数据字典和变换逻辑说明。数据流图人事主管员工基本信息工资管理假条信息档案管理管理员会计员总体计方案，实现方法，软件平台1 总体设计方案：实现人事管理系统的全部功能。2 实现方法：Visual Basic6.0等。 3软件平台： Win98，win2000等。六 计算机的软件配置Windows 98/Windows XP/Windows 2000/Windows 2003；七 进度计划 第一周 收集材料 整理信息 第二周 需求分析 第三周 软件设计:选择模块划分的方案 第四周 总体结构和模块外部设计 第五周 具体模块设计 第六周 运行设计 第七周 详细设计(数据库) 第八周 软件测试 第九周 整理源程序 编写软件说明书和用户手册 第十周 形成毕业设计全部文件6附录： 毕业设计程序清单设计题目 人事管理系统 教 学 班： 学生姓名： 学 号： 指导教师： 完成日期： Option ExplicitDim Bupdata As BooleanDim i As IntegerPrivate Sub Cmbdegree_Click() If Cmbdegree.Text = 定制 Then FrmTable.Show Cmbdegree.ListIndex = 0 End If End SubPrivate Sub Cmbdepart_Click() If Cmbdepart.Text = 定制 Then FrmTable.Show Cmbdepart.ListIndex = 0 End If End SubPrivate 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 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 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 = 添加 CmdDel.Enabled = True CmdOK.Enabled = True End If End SubPrivate 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 = TrueEnd IfEnd SubPrivate Sub CmdDel_Click() DataA.ReadOnly = False DataA.Recordset.Delete DataA.Recordset.MoveNext If DataA.Recordset.EOF Then DataA.Recordset.MoveLast End If FrmMain.DataA.RefreshEnd SubPrivate 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 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 SubPrivate Sub DataA_Validate(Action As Integer, Save As Integer) If Action = 11 And Bupdata Then Save = 0 End If End SubPrivate Sub Lab_Click(Index As Integer)End SubPrivate Sub Txt_KeyPress(Index As Integer, KeyAscii As Integer) If (KeyAscii 57) And KeyAscii vbKeyBack And Index = 0 Then KeyAscii = 0 Exit Sub End If If FrmMain.cutable = leave And Index = 1 Then If (KeyAscii 57) And KeyAscii vbKeyBack Then KeyAscii = 0 Exit Sub End If End If If FrmMain.cutable = salary Then If Index = 3 Then If (KeyAscii 57) And KeyAscii vbKeyBack Then KeyAscii = 0 Exit Sub End If End If If Index = 13 Then Exit Sub If (KeyAscii 57) And KeyAscii vbKeyBack And KeyAscii 46 Then KeyAscii = 0 Exit Sub End If End If End SubPrivate 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 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 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 If FrmMain.cuAp -1 Then DataA.Recordset.Move (FrmMain.cuAp) Else DataA.Recordset.MoveFirst End If End If End SubPrivate Sub Form_Unload(Cancel As Integer) FrmMain.Enabled = True FrmMain.SetFocus Unload Me FrmMain.DataB.RefreshEnd SubOption ExplicitConst MxUser = 100Public EmploID As IntegerPublic CurUser As StringPublic CurId As StringPublic CurPsw As StringDim user(MxUser), pws(MxUser), state(MxUser), Emplo(MxUser) As StringPrivate 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) If state(i) = A Then Combo1.AddItem user(i) End If i = i + 1 Loop Close #1 Combo1.ListIndex = 1 在窗口装载阶段读取用户设置文件获取用户信息 并装载于用户列表框中End SubPrivate Sub CmdCancel_Click() Unload Me End End SubPrivate 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 SubPrivate Sub Form_Unload(Cancel As Integer) Unload Me EndEnd SubOption ExplicitPublic cuTabCh As BooleanPublic cutable As StringPublic cuAp As Integer 当前指针位置Dim i As IntegerPublic Pwin As StringPublic 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 SubPublic 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 SubPublic Sub showsalary() DataA.RecordSource = select * from salary DataA.Refresh For i = 0 To 2 Mtab(i).Checked = False Next i Mtab(2).Checked = True cutable = salary cuTabCh = TrueEnd SubPrivate 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 定制 End If End SubPrivate Sub Form_Unload(Cancel As Integer) EndEnd SubPrivate 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 SelectEnd SubPrivate Sub DBGA_HeadClick(ByVal ColIndex As Integer) DBGA.ClearSelColsEnd SubPrivate Sub DBGA_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then FrmMain.PopupMenu Mp End IfEnd SubPrivate 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 SubPrivate Sub LsDegree_Click() If LsDegree.Text = 定制 Then FrmTable.Show Else DataA.Recordset.Edit 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 SubPrivate 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 SubPrivate 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.RefreshEnd Sub#Private Sub Lssex_LostFocus() Lssex.Visible = FalseEnd SubPrivate Sub Lsdegree_LostFocus() LsDegree.Visible = FalseEnd SubPrivate Sub Lsdepart_LostFocus() LsDepart.Visible = FalseEnd SubPrivate Sub DBGA_Scroll(Cancel As Integer) Lssex.Visible = False LsDegree.Visible = False LsDepart.Visible = FalseEnd Sub#Private Sub MAbout_Click() frmAbout.Show End SubPrivate Sub Mhelp_Click() FrmHelp.ShowEnd SubPrivate 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 IfEnd SubPrivate Sub Mpop_Click(Index As Integer) Select Case Index Case 1 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 SelectEnd SubPrivate 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 SubPrivate 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 SelectEnd SubPrivate 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 FrmSys.Show Else FrmPsw.Show Pwin = Frmmain FrmMain.Enabled = False End If End Select End SubOption ExplicitConst MxUser = 100Dim user(MxUser), pws(MxUser), state(MxUser), Emplo(MxUser) As StringPrivate Sub CmdCancel_Click() Me.Hide If FrmMain.Pwin = Frmmain Then FrmMain.Enabled = True FrmMain.SetFocus Else Call FrmSys.ActiveAll FrmSys.SetFocus End If End SubPrivate Sub cmdOK_Click() Dim fil, i, Usercount As Integer If TxtNew1.Text TxtNew2.Text Then MsgBox two times no yizhi TxtNew1.SetFocus TxtNew2.Text = SendKeys Home+End Exit Sub ElseIf Txtold.Text frmLogin.CurPsw Then MsgBox old password wrong Txtold.SetFocus TxtNew1.Text = TxtNew2.Text = 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 End If End If End SubPrivate Sub Form_LostFocus() FrmPsw.SetFocus End SubPrivate Sub Form_Unload(Cancel As Integer) FrmMain.Enabled = True FrmMain.SetFocus Unload Me End SubOption ExplicitPrivate Sub Cmb1_Click() With Cmb1 If .Text = 职工编号 Or .Text = 交通补助 Or .Text = 加班补助 Or .Text = 工资编号 Or .Text = 假条编号 Or .Text = 身份证号 Or .Text = 出生日期 Or .Text = 中止日期 Or .Text = Edit Or .Text = 年份 Or .Text = 月份 Or .Text = 天数 Or .Text = 基本工资 Or .Text = 总工资 Or .Text = 考勤扣除 Or .Text = 扣税 Or .Text = 总扣除 Or .Text = 保险扣除 Then Cmb2.Clear Cmb2.AddItem Cmb2.AddItem = Cmb2.AddItem Cmb4.AddItem = Cmb4.AddItem Cmb4.AddItem Cmb2.AddItem Cmb4.AddItem 0 Then For i = 0 To a - 1 Lsshow.AddItem (FrmMain.DBGA.Columns(i).Caption) Next i End If End If End SubPrivate Sub Lbadd_Click() If Lshide.Text Then Lsshow.AddItem (Lshide.Text) Lshide.RemoveItem (Lshide.ListIndex) End IfEnd SubPrivate Sub Lbdec_Click() If Lsshow.Text Then L