下载文档原格式
《数据库系统概论》课程设计报告题目：职工考勤管理信息系统专业：网络工程班级：姓名：指导教师：成绩：计算机学院2017年12月8日目录需求分析 (1)1.1 系统目标以及功能 (1)1.2 系统功能分析 (1)1.3系统E-R图 (1)1.4信息分析 (2)1.5功能图 (2)1.6模块分析 (3)1.7员工出勤和出差的E-R图 (3)概念结构设计 (4)2.1关系模式分析 (4)2.1.1实体关系模式： (4)2.1.2联系的关系模式： (4)2.2下面是本次设计的每一个表所涉及的数据： (4)2.2.1员工信息表： (4)2.2.2请假信息表： (5)2.2.3出差信息表： (5)2.2.4加班信息表： (5)2.2.5日出勤信息表： (5)2.2.6管理员信息表 (5)部分代码和截图 (6)3.1管理员登录界面 (6)3.2职工考勤系统界面 (7)3.3员工信息添加界面 (9)3.4员工信息查询界面 (10)3.5员工信息修改界面 (11)3.6员工信息删除界面 (13)3.7出差信息添加界面 (14)3.8出差信息查询界面 (16)3.9出差信息修改界面 (18)3.10出差信息删除界面 (19)3.11管理员修改界面 (21)心得体会 (22)参考文献 (22)需求分析1.1 系统目标以及功能为了配合人事管理系统的使用，充分地记录员工的出勤情况，可以开发考勤管理系统。
进行出勤情况统计的过程中，要充分考虑到各种缺勤情况的类别。
此系统其主要功能有职工信息，包括职工编号、职工姓名、性别、年龄、职称等；出勤记录信息，包括上班打卡时间，下班打开时间，缺勤记录等；出差信息，包括出差起始时间、结束时间、统计总共天数等；请假信息，包括请假开始时间，结束时间，统计请假天数等；加班信息，包括加班开始时间、结束时间、统计加班总时间。
实现企业员工出勤情况的详细的、系统的管理。
使得企业员工的管理更加现代化、科学化、自动化，并可以很好地督促企业员工更好地为企业谋福利。
*******************实践教学*******************计算机与通信学院20 年春季学期C程序设计课程设计题目：职工信息管理系统专业班级：姓名：学号：指导教师：成绩：_____________ __摘要职工信息管理系统是一个工作单位不可缺少的管理工具，它管理的数据对于公司的决策者和管理者来说都至关重要，所以职工信息管理系统应该能够为用户提供充足的信息和快捷的查询手段。
使用计算机对职工信息进行管理，具有手工管理所无法比拟的优点，如检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。
这些优点能够极大地提高职工管理的效率，也是公司的科学化、正规化管理和与世界接轨的重要条件。
本系统利用C语言开发，实现了简单的职工基本信息的录入、追加、修改、查询、删除等操作，并且能利用文件系统长久地保留原始数据。
通过本系统的开发，我们熟悉了面向过程的程序设计的基本方法和步骤，对于C语言有了更深入的理解，并且较好地掌握了C语言的编程方法和技术。
关键字：C语言；职工；信息管理系统；函数目录一、需求分析 (1)二、总体设计 (2)三、详细设计 (3)3.1数据定义 (3)3.2主函数设计 (4)3.3算法流程图 (5)四、编码 (9)五、测试 (10)5.1职工管理系统主界面 (10)5.2进入新增职工信息界面 (11)5.3进入删除职工信息界面 (12)5.4进入查询职工信息界面 (13)5.5进入修改职工信息界面 (14)5.6进入职工信息排序界面 (15)5.7退出系统 (16)六、设计总结 (17)致谢 (18)参考文献 (19)附录 (20)一、需求分析1.1问题描述对单位的职工进行管理，包括插入、删除、查找、排序等功能。
1.2要求职工对象包括姓名（字符串）、性别（字符）、出生年月（数字）、工作年月（数字）、学历（字符串）、职务（字符串）、住址（字符串）、电话（字符串）等信息。
面向对象课程设计汇报课程设计题目：职工信息管理系统姓名：班级：学号：指导老师：2011年11月8日目录摘要 (3)第一章绪论 (4)1.1面向对象C++语言程序设计 (4)1.2职工信息管理系统 (4)1.3程序编译环境 (4)第二章职工信息管理系统需求分析 (5)2.1编写目旳 (5)2.2需求概述 (5)2.3需求阐明 (6)第三章：详细设计 (7)3.1编写目旳 (7)3.2详细设计 (10)第四章：源程序编码及实现 (11)4.1程序源代码 (16)4.2程序实现成果 (17)第五章：系统测试 (18)第六章：结束语 (21)参照文献： (21)摘要在当今社会，互联网空间旳发展，给人们旳工作和生活带来了极大旳便利和高效，信息化，电子化已经成为节省运行成本，提高工作效率旳首选。
目前大量企业旳职工管理尚处在手工作业阶段，不仅效率低下，还常常由于管理旳不慎而出现纰漏。
伴随信息技术在管理上越来越深入而广泛旳应用，管理信息系统旳实行在技术上已逐渐成熟。
管理信息系统是一种不停发展旳新型学科，任何一种单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应旳管理信息系统。
本程序是一种有关职工信息管理旳系统,通过这个系统顾客可以简捷、以便旳对职工信息进行增长、修改、添加、查询、浏览等功能，它不仅可以协助企业单位到达员工管理办公自动化、节省管理成本、更能到达提高企业单位工作效率旳目旳。
关键词：职工，信息管理，系统，程序一．绪论1.1面向对象C++语言程序设计C++是种面向对象旳程序设计语言，它是在C语言基础上发展起来旳。
虽然它不是最早旳面向对象旳程序设计语言，不过它是目前使出比较广泛旳面向对象旳程序设计语言。
什么是面向对象?简朴地说，它和面向过程—样都是软件开发旳一种措施。
不过它与面向过程不一样，面向对象是—种运用对象、类、继承、封装、聚合、消息传递、多态性等概念来构造系统旳软件开发措施。
考勤管理系统c语言课程设计报告课程设计报告：考勤管理系统一、引言随着企业规模的不断扩大，考勤管理成为企业日常管理中的重要环节。
为了提高考勤管理的效率和准确性，我们设计了一个基于C语言的考勤管理系统。
本系统能够实现员工考勤信息的录入、查询、修改和统计等功能，为企业提供了一个方便、快捷的考勤管理平台。
二、系统设计1. 系统功能设计本系统主要包括以下几个功能模块：（1）员工信息管理模块：用于添加、删除、修改和查询员工基本信息，包括姓名、部门、职位等。
（2）考勤信息管理模块：用于记录员工的考勤情况，包括上下班时间、请假记录等。
同时支持迟到、早退、旷工等异常情况的记录和处理。
（3）考勤统计模块：根据员工的考勤记录，自动计算员工的出勤率、迟到率、请假率等数据，并生成相应的统计报表。
（4）系统管理模块：用于设置系统的参数，如工作日、上班时间、节假日安排等；同时提供权限管理和日志查看功能，保证系统的安全性和稳定性。
2. 数据库设计本系统采用结构化查询语言（SQL）进行数据库设计，包括员工表、考勤表和统计表等。
其中，员工表存储员工的基本信息，如姓名、部门、职位等；考勤表存储员工的考勤记录，如上下班时间、请假记录等；统计表存储员工的出勤率、迟到率等统计数据。
通过合理的数据库设计，能够提高系统的数据处理能力和查询效率。
三、系统实现1. 员工信息管理模块实现在员工信息管理模块中，我们使用C语言中的结构体来表示员工信息，包括姓名、部门、职位等字段。
通过添加、删除、修改和查询等操作，实现对员工信息的维护和管理。
同时，为了方便用户操作，我们使用菜单驱动的方式实现交互界面，用户可以根据菜单提示进行相应的操作。
2. 考勤信息管理模块实现在考勤信息管理模块中，我们使用时间函数获取当前时间，并记录员工的上下班时间。
同时，根据员工的请假记录和异常情况处理规则，实现请假申请、异常情况处理等功能。
为了方便用户查询和管理考勤信息，我们设计了友好的界面和查询功能，用户可以根据姓名、部门等条件进行考勤记录的查询和筛选。
考勤系统进行企业管理越来越适应企业的需要，集信息的输入，显示，修改，删除等各种处理，信息维护方便，给公司可以带来很大的便利。
考勤管理系统利用计算机管理考勤工作，大大降低了工作人员的工作量，提高工作效率，对于员工们的出勤率有个明显的记录，对于公司的职员也有基本了解根据出勤情况可以计算员工的实际工资。
作为一个考勤系统．最重要的功能当数考勤了．也就是能够将员工上班签到的日期与时间记录下来。
固然．记录下签到信息后，应该具有其他的辅助功能．比~II1"查询员工某天的签到情况”、”修改签到情况”、”员工的维护”、”公司上班时间的设置”等．下面就本系统完成的功能做一个简单的需求分析。
这是最核心的功能。
当员工上班后，输入自己的员工号进行签到操作．就可以把到达公司的时间记录下来．并且保存到数据库中，以备查询。
在签到过程中，需要记录的信息包括员工号、签到的日期和签到的具体时间，最好能把签到的结果记录下来．这些结果包括以下几种：正常、迟到、出差、请假、旷班。
签到功能中要求将员工上班的签到情况记录下来．也就是供以后查询用。
若要查询某个员工在某段时问或者某天的出勤情况，只要输入员工号，并输入要查询的日期．即可将此员工在当天的出勤情况显示出来对于出勤到公司的员工来说．通过签到即可将签到信息记录下来，并且惟独两种结果”正常”和”迟到”。
可是对于因为某种原因(出差、请假等)不能到公司的员工来说，因为没有签到．就没有当天的出勤记录。
为此增加了修改功能，主管人员可以对员工的信息进行修改，将每一个员工的出差请假等情况记录下来。
客户机为普通 PCCPU:P (R) 2.1GHz;内存： 2GWindowXP 等分辨率适应屏幕。
1) 考勤管理2) 基本信息输入3) 考勤统计4) 日志查询及统计确保可靠性，保证信息的正确完整，有严格的管理权限惟独系统规定人员才可以进入查询，防止非法侵入和数据的丢失。
1. 《软件工程案例教程》，韩万江等，机械工业出版社；2. 《需求分析与系统设计》， Lesxek A.Maciasxek 著，机械工业出版社；3. 《软件测试技术概论》，古乐、史九林，清华大学出版社；4. 《软件测试第 2 版》， Paul C.Jorgensen，机械工业出版社。
管理信息系统课程设计报告——公司考勤管理信息系统姓名：学号：姓名：学号：姓名：学号：学院：商学院专业：题目：公司考勤管理系统的设计与开发一、系统项目介绍20世纪90年代，随着我国市场经济的快速发展，公司考勤管理系统在企业的日常管理中发挥着越来越重要的作用。
公司考勤管理系统可以进行职工信息管理、出勤管理和密码管理等，方便处理企业内部职工的相关考勤信息。
此外Internet 的迅速普及，使Intranet成为Internet技术在企业管理信息系统中的应用和延伸，形成了集计算机，计算机网络、数据库、分布式计算等于一体的信息技术综合体，它打破了时间和地域的界限，使信息交流变得快捷、准确，为建立现代企业管理信息系统提供了充足的条件。
公司考勤系统是在适应市场需求的客观前提下，为了满足公司或事业单位管理自己的职工而开发的。
1．1、系统分析1．1.1、.业务流程图数据存储条目1.1.4、数据加工处理的描述（1）点击“基本信息”有“添加用户”、“注销用户”、“修改用户信息”、“修改密码”、“重新登陆”和“返回”的功能。
（2）点击“考勤”有“全勤天数”，“缺勤天数”、“迟到天数”、“早退天数”、“请假天数”、“加班天数”和“返回”的功能。
考勤管理人员可根据员工出勤天数输入数据。
（3）点击“备注”有“增加备注”的功能。
注：以上三项只有管理人员才可进入（4）点击“考勤查询”有“查询考勤信息”的功能。
此部分负责提供按部门或员工查询考勤情况。
（5）点击“考勤生成单”有“生成员工考勤单”的功能。
员工或管理人员可选择部门和员工，然后单击“打印”可进入[考勤单报表]对话框。
1.2、系统设计1.2.1、总体设计（1）系统功能结构设计公司考勤系统的设计与开发是每一个企业管理中不可缺少的一部分。
它的实际操作与应用对于企业日常管理来说是至关重要的一个环节。
其功能结构图如图所示.企业考勤管理系统分为系统管理、部门管理、公告管理、员工管理、请假管理、个人考勤、考勤管理、留言管理、退出系统等九大模块。
员工考勤管理系统课程设计一、引言员工考勤管理系统是现代企业必不可少的一种工具，它可以有效地帮助企业管理好员工的出勤、请假和加班情况，提高企业的办公效率和管理水平。
在这篇文档中，我将介绍一下员工考勤管理系统的课程设计思路和实现方案。
二、课程设计思路1.需求分析在进行员工考勤管理系统的课程设计之前，我们需要进行需求分析，深入了解企业管理员工考勤的需求。
在这个过程中，我们需要考虑以下问题：（1）企业管理员工考勤需要记录哪些信息？包括员工的姓名、工号、考勤日期、上下班时间、请假、旷工、迟到、早退、加班等情况。
（2）员工考勤如何实现？需要通过什么方式记录员工的考勤情况？如何确保考勤数据的准确性和完整性？（3）员工考勤数据如何管理和统计？需要分析员工的考勤情况，生成考勤报表、工资单等。
2.系统设计在完成需求分析之后，我们需要进行系统设计，设计员工考勤管理系统的各个模块和功能。
在这个过程中，我们需要考虑以下问题：（1）数据模型设计：设计员工考勤数据的存储方式和数据结构。
（2）系统模块设计：设计系统的各个模块，包括员工信息管理、考勤记录管理、请假管理、加班管理、考勤报表和工资单管理等。
（3）系统界面设计：设计系统界面，设计用户友好的界面，方便员工和管理员使用系统进行操作。
（4）系统安全性设计：设计系统的安全性，保护员工的个人信息和企业的企业数据，包括登录验证和权限控制等。
3.技术选型在进行员工考勤管理系统的课程设计之前，我们需要进行技术选型，选择合适的技术框架和工具，以确保系统的稳定性和高效性。
在这个过程中，我们需要考虑以下问题：（1）数据存储：选择合适的关系数据库管理系统，如MySQL，进行数据的存储和管理。
（2）系统架构：采用MVC架构，分离系统的模型、视图和控制层，提高系统的可维护性和可扩展性。
（3）前端技术：采用HTML、CSS、JavaScript等前端技术，实现系统的页面展示和交互。
（4）后端技术：采用Java EE技术，如Servlet、JSP、Spring、MyBatis等，实现系统的业务逻辑和数据库访问。
简单职工管理系统课程设计报告
一、课程设计背景
在当今社会中，职工管理是企业管理中至关重要的一环。
随着企业规模的不断
扩大和职工数量的增加，传统的人工管理已经不能满足现代管理的需求。
因此，设计一个简单、有效的职工管理系统是非常必要的。
二、系统设计目标
本课程设计的目标是建立一个简单易用的职工管理系统，实现对职工信息的录入、查询、编辑和删除等基本功能，以提高管理效率。
三、系统功能设计
1. 登录功能
系统管理员可以通过用户名和密码登录系统，确保系统的安全性。
2. 职工信息录入
管理员可以录入新职工的基本信息，包括姓名、工号、职位、部门等信息。
3. 职工信息查询
系统可以根据工号或姓名等关键字查询职工信息，方便管理员查找需要的信息。
4. 职工信息编辑
管理员可以对已有职工信息进行编辑，包括修改个人信息、调整职位等。
5. 职工信息删除
管理员可以删除不需要的职工信息，确保系统数据的及时更新。
四、系统功能实现
系统采用C++语言开发，基于面向对象的编程思想，实现了上述功能模块。
通
过简单的控制台界面，管理员可以方便地进行操作。
五、课程设计总结
通过本次课程设计，我深入了解了职工管理系统的设计和实现过程，锻炼了自
己的编程能力和解决问题的能力。
同时，也对职工管理的重要性有了更深刻的认识，相信这将对我未来的工作和学习有很大帮助。
以上是简单职工管理系统课程设计报告的内容，希望能对大家有所帮助。
HUBEI UNIVERSITY OF AUTOMOTIVE TECHNOLOGYC语言程序设计课程设计报告课设题目：职工考勤信息管理系统专业：电气工程及其自动化班级: *************姓名：*****成绩：完成日期: 2012年12月28日－2013年1月11日指导教师: *********目录C语言程序设计 0课程设计报告 01.课程设计目的 (2)2.需求分析 (2)2.1要求 (2)2.2任务描述 (2)2.3运行环境 (3)2.4开发工具 (3)3.总体设计 (3)3.1系统流设计 (3)3.2系统模块设计 (5)4.详细设计 (5)4.1数据结构设计 (5)4.2模块接口设计 (7)4.3 以下是几个主要模块的流程图： (8)5.运行结果 (14)5.1欢迎界面： (14)5.2录入职工信息界面： (14)5.3主菜单界面： (15)5.4显示题目界面： (16)5. 5上午上班时间录入界面： (15)5.6上午下班时间录入界面： (17)5.7下午上班时间录入界面： (17)5.8下午下班时间录入界面： (18)5.9晚上上班时间录入界面： (18)5.10晚上下班时间录入界面： (19)5.11全部考勤信息的浏览界面： (19)5.12查询职工考勤信息界面： (20)5.13修改职工考勤信息界面： (20)5.14删除职工考勤信息界面： (21)5.15保存职工考勤记录界面： (21)5.16退出系统界面： (22)6.程序调试与测试 (22)6.1程序调试 (22)6.2程序测试 (24)7.问题与不足 (33)8.建议 (34)9.编程体会 (34)10.程序源代码： (34)11.参考文献 (57)12.用户使用手册 (57)1.课程设计目的1)通过课程设计，加深对结构化程序设计思想的理解，能对系统功能进行分析，并设计合理的模块化结构。
2)通过课程设计，进一步掌握C语言中重要的数据结构。
第一章引言1.1设计开发的意义传统意义上的职工考勤管理都是采用原始的手工操作来完成的。
人事部的管理人员或办公室人员要进行经常的繁琐的记录、修改、查询、统计等工作，不仅时间长、劳动强度大、工作效率低下，并且在这种管理模式下对职工的考勤信息不全且易造成混乱。
随着社会的进步，计算机科技的广泛应用，通过现代化的科学的方式对职工考勤信息进行管理已成为可能。
基于此，我希望能通过开发这一管理系统，由计算机代替人工操作一系列职工基本信息的输入、修改、查询、统计等操作，既减轻了管理人员的工作强度，提高了工作效率，降低解企业的经营成本；同时，也对企业内部管理的科学化、规范化作出一点尝试。
1.2任务及目标项目的提出者：天津理工大学计算机与通信工程学院课题开发组。
开发单位：08中加3-4班项目小组。
充分了解用户的需求，了解工作的流程，以及可能出现的问题。
职工考勤信息管理系统中首先必须设置好职工基本信息，职工基本信息在本系统占据着很重要的地位。
在对职工的出差、出勤、加班、请假这些信息管理的时候都需通过职工基本信息进行操作。
本系统结合实际的职工考勤管理制度，经过实际的需求分析，采用功能强大的Visual Basic6.0作为开发工具而开发出来的职工考勤信息管理系统。
职工考勤管理信息系统的具体功能包括：职工基本信息实体,职工出勤信息实体,管理员管理系统信息实体。
主要功能：管理员功能：签到，增加职工及职工信息，增加登录用户，设置用户权限，查看职工出勤信息，修改职工出勤信息。
签到用户功能：签到。
灵活性：本软件对变更的适应性较强，采用人工手动输入与系统自动输入相结合的形式，数据库文件可以单独转移到其他地方使用，可以保证数据的安全和高兼容性，当系统改变时可以自动调整精度与安全性1.3开发环境操作系统：windows 7编译环境：使用Visual Studio 2010来进行系统汇编使用Access 2007进行数据库管理第二章系统分析与设计2.1系统需求分析2.1.1 处理需求根据职工签到特性，设计了以下功能：管理员功能：签到，增加职工及职工信息，增加登录用户，设置用户权限，查看职工出勤信息，修改职工出勤信息。
《数据库系统概论》课程设计报告题目：职工考勤管理信息系统专业：网络工程班级：姓名：指导教师：成绩：计算机学院2017年12月8日目录需求分析 (1)1.1 系统目标以及功能 (1)1.2 系统功能分析 (1)1.3系统E-R图 (1)1.4信息分析 (2)1.5功能图 (2)1.6模块分析 (3)1.7员工出勤和出差的E-R图 (3)概念结构设计 (4)2.1关系模式分析 (4)2.1.1实体关系模式： (4)2.1.2联系的关系模式： (4)2.2下面是本次设计的每一个表所涉及的数据： (4)2.2.1员工信息表： (4)2.2.2请假信息表： (5)2.2.3出差信息表： (5)2.2.4加班信息表： (5)2.2.5日出勤信息表： (5)2.2.6管理员信息表 (5)部分代码和截图 (6)3.1管理员登录界面 (6)3.2职工考勤系统界面 (7)3.3员工信息添加界面 (9)3.4员工信息查询界面 (10)3.5员工信息修改界面 (11)3.6员工信息删除界面 (13)3.7出差信息添加界面 (14)3.8出差信息查询界面 (16)3.9出差信息修改界面 (18)3.10出差信息删除界面 (19)3.11管理员修改界面 (21)心得体会 (22)参考文献 (22)需求分析1.1 系统目标以及功能为了配合人事管理系统的使用，充分地记录员工的出勤情况，可以开发考勤管理系统。
进行出勤情况统计的过程中，要充分考虑到各种缺勤情况的类别。
此系统其主要功能有职工信息，包括职工编号、职工姓名、性别、年龄、职称等；出勤记录信息，包括上班打卡时间，下班打开时间，缺勤记录等；出差信息，包括出差起始时间、结束时间、统计总共天数等；请假信息，包括请假开始时间，结束时间，统计请假天数等；加班信息，包括加班开始时间、结束时间、统计加班总时间。
实现企业员工出勤情况的详细的、系统的管理。
使得企业员工的管理更加现代化、科学化、自动化，并可以很好地督促企业员工更好地为企业谋福利。
可以使用考勤机，使得企业的管理更加现代化。
1.2 系统功能分析员工考勤系统能够和考勤机相连，可以把数据导入数据库中，从而完成自动、高效、科学的考勤信息的输入。
可以完成员工考勤信息的手工输入、修改、删除等操作。
可以设定缺勤的类型，如病假、事假等。
1.3系统E-R图1.4信息分析这个系统的主要功能有：数据入库、查询、修改和删除等。
本系统的主要功能由以下几个部分组成：员工基本信息模块输入：员工信息功能：对员工基本信息的查询、修改、删除和查询。
员工考勤管理模块输入：员工考勤情况功能：完成对员工的考勤以及对考勤情况的查询、统计和删除员工考勤等情况员工出差模块输入：员工出差时间以及回来的时间功能：完成对员工出差信息的详细记录，也是为了完善员工考勤信息员工加班模块输入：员工加班开始以及结束时间功能：完成对员工加班信息的详细记录，也是为了完善员工考勤信息员工请假模块输入：员工请假时间以及回来的时间功能：完成对员工请假信息的详细记录，也是为了完善员工考勤信息；1.5功能图1.6模块分析在这个系统中各个模块之间独立工作，但是相互补充，考勤表，记录了员工们的出勤信息，但是不包括出差和请假，加班的员工信息，所以就需要出差和请假，加班这两个模块来补充这一缺陷。
最后就是留言板，主要是为了给员工们一个自由言论的机会，这一也对公司是一件有意义的事情。
图1.3.1系统功能模块图1.7员工出勤和出差的E-R图概念结构设计2.1关系模式分析2.1.1实体关系模式：职工（编号，姓名，性别，年龄，职称，）出勤记录（上班打卡时间，下班打卡时间，缺勤记录）出差记录（出差起始时间，出差结束时间，出差总天数）请假记录（请假开始时间，请假结束时间，请假天数）加班记录（加班开始时间，加班结束时间，加班总时间）2.1.2联系的关系模式：报到（编号，姓名，上班打卡时间，下班打卡时间，缺勤记录）安排（编号，姓名，出差起始时间，出差结束时间，出差总天数）申请（编号，姓名，请假开始时间，请假结束时间，请假天数）参加（编号，姓名，加班开始时间，加班结束时间，加班总时间）2.2下面是本次设计的每一个表所涉及的数据：部分代码和截图3.1管理员登录界面代码Option ExplicitDim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command1_Click()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"Dim sqlcmd As StringIf Text1.Text = "" ThenMsgBox "请输入用户名"Text1.SetFocusExit SubEnd Ifsqlcmd = "SELECT * FROM guan WHERE name='" & Text1.Text & "'"Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, adOpenStatic, adLockReadOnlyIf rss.EOF ThenMsgBox "输入的用户名不对，请重新输入", vbOKOnly, "提示"Text1.SetFocusExit SubEnd IfIf Trim(rss.Fields("passward")) <> Text2.Text ThenMsgBox "输入的密码不对，请重新输入", vbOKOnly, "提示"Text2.SetFocusExit SubElseuser = Text1.Textpwd = Text2.TextForm2.ShowUnload MeEnd Ifrss.Close截图3.2职工考勤系统界面Option ExplicitPrivate Sub chuchai_add_Click() Form4.ShowEnd SubPrivate Sub chuchai_change_Click() Form5.ShowEnd SubPrivate Sub chuchai_chaxun_Click() Form6.ShowEnd SubPrivate Sub chuchai_delete_Click() Form7.ShowEnd SubPrivate Sub chuqin_add_Click() Form20.ShowEnd SubPrivate Sub chuqin_change_Click() Form21.ShowEnd SubPrivate Sub chuqin_chaxun_Click() Form22.ShowEnd SubPrivate Sub chuqin_delete_Click() Form23.ShowPrivate Sub exit_Click()Unload MeEnd SubPrivate Sub guan_change_Click() Form3.ShowEnd SubPrivate Sub jiaban_add_Click()Form16.ShowEnd SubPrivate Sub jiaban_change_Click() Form17.ShowEnd SubPrivate Sub jiaban_chaxun_Click() Form18.ShowEnd SubPrivate Sub jiaban_delete_Click() Form19.ShowEnd SubPrivate Sub qingjia_add_Click() Form8.ShowEnd SubPrivate Sub qingjia_change_Click() Form13.ShowEnd SubPrivate Sub qingjia_chaxun_Click() Form14.ShowEnd SubPrivate Sub qingjia_delete_Click() Form15.ShowEnd SubPrivate Sub yuangong_add_Click() Form10.ShowEnd SubPrivate Sub yuangong_change_Click() Form11.ShowEnd SubPrivate Sub yuangong_chaxun_Click() Form9.ShowEnd SubPrivate Sub yuangong_delete_Click() Form12.ShowEnd Sub截图3.3员工信息添加界面代码Option ExplicitDim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command1_Click()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker" Dim sqlcmd As Stringsqlcmd = "SELECT * FROM yuangong"Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 3rss.AddNewrss.Fields(0) = Text1.Textrss.Fields(1) = Text2.Textrss.Fields(2) = Text3.Textrss.Fields(3) = Text4.Textrss.Fields(4) = Text5.Textrss.UpdateMsgBox "添加成功"rss.CloseUnload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub截图3.4员工信息查询界面代码Dim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command1_Click()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker" sqlcmd = "SELECT * FROM yuangong WHERE number='" & Text1.Text & "' "Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 1If Not rss.EOF ThenText2.Text = rss.Fields(0)Text3.Text = rss.Fields(1)Text4.Text = rss.Fields(2)Text5.Text = rss.Fields(3)Text6.Text = rss.Fields(4)rss.CloseElseMsgBox "没有记录"End IfPrivate Sub Command2_Click()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker" sqlcmd = "SELECT * FROM yuangong WHERE name='" & Text7.Text & "' "Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 1If Not rss.EOF ThenText2.Text = rss.Fields(0)Text3.Text = rss.Fields(1)Text4.Text = rss.Fields(2)Text5.Text = rss.Fields(3)Text6.Text = rss.Fields(4)rss.CloseElseMsgBox "没有记录"End IfEnd Sub截图3.5员工信息修改界面Dim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command1_Click()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker" Dim sqlcmd As Stringsqlcmd = "SELECT * FROM yuangong WHERE number='" & Combo1.Text & "'"Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 3If Not rss.EOF Thenrss.Fields(1) = Text1.Textrss.Fields(2) = Text2.Textrss.Fields(3) = Text3.Textrss.Fields(4) = Text4.Textrss.Updaterss.CloseMsgBox "修改成功"ElseMsgBox "没有记录"End IfUnload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker" Dim sqlcmd2 As Stringsqlcmd2 = "SELECT * FROM yuangong WHERE number='" & Combo1.Text & "'"Dim rss2 As New ADODB.Recordsetrss2.CursorLocation = adUseClientrss2.Open sqlcmd2, conn, 1, 1If Combo1.Text <> "" ThenText1.Text = rss2.Fields(1)Text2.Text = rss2.Fields(2)Text3.Text = rss2.Fields(3)Text4.Text = rss2.Fields(4)End Ifrss2.ClosePrivate Sub Form_Load()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker" Dim sqlcmd As Stringsqlcmd = "SELECT number FROM yuangong "Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 1Combo1.ClearWhile Not rss.EOFCombo1.AddItem (rss.Fields("number"))rss.MoveNextWendrss.CloseEnd Sub截图3.6员工信息删除界面代码Dim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command1_Click()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"Dim sqlcmmd As Stringsqlcmmd = "DELETE FROM yuangong WHERE number='" & Combo1 & "'"Dim rst As New ADODB.Recordsetrst.CursorLocation = adUseClientrst.Open sqlcmmd, conn, 1, 3MsgBox "已删除该记录!", vbOKOnly, "提示"Unload MeEnd SubPrivate Sub Form_Load()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker" Dim sqlcmd As Stringsqlcmd = "SELECT number FROM yuangong "Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 1Combo1.ClearWhile Not rss.EOFCombo1.AddItem (rss.Fields("number"))rss.MoveNextWendrss.CloseEnd Sub截图3.7出差信息添加界面代码Option ExplicitDim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command1_Click()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker" Dim sqlcmd As Stringsqlcmd = "SELECT * FROM chuchai "Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 3rss.AddNewrss.Fields(0) = Text1.Textrss.Fields(1) = Text2.Textrss.Fields(2) = Text3.Textrss.Fields(3) = Text4.Textrss.Fields(4) = Text5.Textrss.UpdateMsgBox "添加成功"rss.CloseUnload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()Text5.Text = Val(Text4.Text) - Val(Text3.Text)End Sub截图3.8出差信息查询界面代码Dim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command1_Click()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker" Dim sqlcmd As Stringsqlcmd = "SELECT * FROM chuchai WHERE number='" & Text1.Text & "'"Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 1If Not rss.EOF ThenText4.Text = rss.Fields(0)Text5.Text = rss.Fields(1)Text6.Text = rss.Fields(2)Text7.Text = rss.Fields(3)Text8.Text = rss.Fields(4)rss.CloseElseMsgBox "没有记录"End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker" Dim sqlcmd As Stringsqlcmd = "SELECT * FROM chuchai WHERE name='" & Text2.Text & "'"Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 1If Not rss.EOF ThenText4.Text = rss.Fields(0)Text5.Text = rss.Fields(1)Text6.Text = rss.Fields(2)Text7.Text = rss.Fields(3)Text8.Text = rss.Fields(4)rss.CloseElseMsgBox "没有记录"End IfEnd Sub截图3.9出差信息修改界面代码Dim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command1_Click()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker" Dim sqlcmd As Stringsqlcmd = "SELECT * FROM chuchai WHERE number='" & Combo1.Text & "'"Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 3If Not rss.EOF Thenrss.Fields(1) = Text1.Textrss.Fields(2) = Text2.Textrss.Fields(3) = Text3.Textrss.Fields(4) = Text4.Textrss.Updaterss.CloseMsgBox "修改成功"ElseMsgBox "没有记录"End IfUnload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker" Dim sqlcmd2 As Stringsqlcmd2 = "SELECT * FROM chuchai WHERE number='" & Combo1.Text & "'"Dim rss2 As New ADODB.Recordsetrss2.CursorLocation = adUseClientrss2.Open sqlcmd2, conn, 1, 1If Combo1.Text <> "" ThenText1.Text = rss2.Fields(1)Text2.Text = rss2.Fields(2)Text3.Text = rss2.Fields(3)Text4.Text = rss2.Fields(4)End Ifrss2.CloseEnd SubPrivate Sub Command4_Click()Text4.Text = Val(Text3.Text) - Val(Text2.Text)End SubPrivate Sub Form_Load()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker" Dim sqlcmd As Stringsqlcmd = "SELECT number FROM chuchai "Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 1Combo1.ClearWhile Not rss.EOFCombo1.AddItem (rss.Fields("number"))rss.MoveNextWendrss.CloseEnd Sub截图3.10出差信息删除界面代码Dim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command1_Click()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker" Dim sqlcmmd As Stringsqlcmmd = "DELETE FROM chuchai WHERE number='" & Combo1 & "'"Dim rst As New ADODB.Recordsetrst.CursorLocation = adUseClientrst.Open sqlcmmd, conn, 1, 3MsgBox "已删除该记录!", vbOKOnly, "提示"Unload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker" Dim sqlcmd2 As Stringsqlcmd2 = "SELECT * FROM chuchai WHERE number='" & Combo1.Text & "'"Dim rss2 As New ADODB.Recordsetrss2.CursorLocation = adUseClientrss2.Open sqlcmd2, conn, 1, 1If Combo1.Text <> "" ThenText1.Text = rss2.Fields(1)Text2.Text = rss2.Fields(2)Text3.Text = rss2.Fields(3)Text5.Text = rss2.Fields(4)End Ifrss2.CloseEnd SubPrivate Sub Form_Load()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker" Dim sqlcmd As Stringsqlcmd = "SELECT number FROM chuchai "Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 1Combo1.ClearWhile Not rss.EOFCombo1.AddItem (rss.Fields("number"))rss.MoveNextWendrss.CloseEnd Sub截图3.11管理员修改界面代码Option ExplicitDim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command1_Click()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"Dim sqlcmd As Stringsqlcmd = "SELECT * FROM guan WHERE name='" & user & "'"Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 3If Text1.Text <> Text2.Text ThenMsgBox "输入的密码不一致！请重新输入", vbOKOnly, "提示"End IfIf Not rss.EOF Thenrss.Fields("passward") = Text1.Textrss.Updaterss.CloseMsgBox "密码修改完成", vbOKOnly, "提示"End IfUnload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub截图请假，加班，出勤等各种信息表的功能界面和代码与出差信息基本相同。
