VB学生实验课考勤管理系统.doc 25页

【摘要】随着社会的发展和信息技术的进步，全球信息化的趋势越来越明显。几乎没有一个学校不在走信息化的道路，都在用自己的智慧将工作效率一步一步的提升。在现在的高校中，由于学生的分布式教学，造成了教学管理的不严谨性，使得一些学生产生了逃课旷课的侥幸心理。所以教师的任务不仅仅是教学，还要同时负担考勤等烦杂的日常事务，这样就会严重影响到教师的授课时间，同时也影响了学生的听课时间。因此，信息化给这样的一个状况带来了一个契机，基于信息化的考勤系统就在这种情况下变的越来越受欢迎，它给教师带来了更加高效的处理考勤的方法，使得教学能够比较顺利的进行下去，不会再因为考勤等烦杂事务影响教学。本系统具备较完备的信息管理功能，通过使用本系统，高校教师能够在很短的时间内完成学生的考勤任务，并将考勤信息存入数据库，即有效的保存了数据，方便以后对学生的评定，又节省了考勤所耗费的时间，使之能够更好的完成教学任务。全文共分为：前言、可行性分析、数据库需求分析、数据库总体设计、数据库详细设计、数据库连接等六部分，通过对高校学生考勤工作流程的具体分析，详细表述了系统的业务流程图、数据流程图、数据字典、E-R图、数据库关系图，然后采用自顶向下的几方法循序渐进地进行了系统的模块设计、代码设计、数据库设计、人机界面设计及输入输出设计等。通过系统的规划，充分体现了信息化在公安工作中的重要性、及时性和实效性。【关键词】VisualBasic6.0SQLServer2000学生考勤C/S模式第一章项目需求分析随着计算机的发展及网络技术的应用，当今社会正快速向信息自动化社会前进，信息自动化的作用也越来越大，特别是各行业的管理领域，智能化信息处理已是提高效率、规范管理、客观审查的最有效途径。传统的学生考勤，主要是靠老师在课堂上点名或学生会抽查点名制度，学生人数多、考勤不全面、数据不准确，特别是点名考勤制耗费了老师和学生大量的时间且起不到太大的效果。人员、部门之间的信息传递由于通过手工或纸质表格交流而显得内容不够丰富，信息传递的严重滞后使信息的沟通大大受阻。这使得学生、教师、学校各部门之间不得不在与台帐信息的沟通上花费大量的时间和精力，既影响了整个学校管理的工作效率，同时又使学校领导不能及时掌握最新最快的学生出勤动态，给学校学风的建设带来不利的影响。例如：（1）考勤不全面：一个学校班级、学生人数众多，学生会安排的考勤工作人员极有限，任课老师也不可能每节课都点名，所以高校的学生考勤无法全面地进行。 （2）数据不准确：点名考勤制耗费了老师和学生大量的时间：上课逐个逐个点名考勤，占用老师和学生大量的时间。而且上大课，会经常出现点名时有人代喊到的方式，一二百人的大教室也没法确定是真还是假，往往会助长学生逃课的风气。（3）资料的共享程度低：老师手里掌握的考勤记录经常会与系学生会、学校教务处的考勤记录有出入。因此，通过对学院学生考勤管理工作现状的初步调查，发现学校急需一套可以适应大量信息控制和数据处理的考勤管理方案，以便用计算机准确高效的处理方法和数据库紧凑严谨的结构代替手工操作和纸质传递。由于学校格校区地跨面积大，学院、专业、学生数量多，对学校的考勤工作开发一套能够进行实时处理的信息管理系统，其迫切性也是不可忽视的，具体体现如下：有了上述原因，对院学生考勤工作急需一套管理信息系统，而科学管理的迫切性也使得这套系统的开发势在必行。系统背景现今的社会，学校为了更好的完善自己的教育形式，为了更好的管理学生在校情况，考勤作为一个学校的基项管理，学生考勤系统软件已经成为学校管理的重要取向点，他能够把事情的复杂化转为简单化。系统开发目的考勤系统能够减轻本学院老师和后勤的工作力度，也大大地提高了领导、老师之间的工作效率。不但达到了便于本校师生的教学工作，而且在生活上和学习上学生考勤这个重要的终结口，都能让老师可以很轻松简明的知道某学生一学期来在校的表现，给与下定论。这次本人们所设计的课题正是一个学校内管理学生在校情况的体现。系统开发目标本系统考虑系统组成各环的功能需求，运用vb语言以及SQLServer2000编的应用系统。这套系统应该具有先进的技术特征；配置必要的数据库和应用服务程序；组织完整的管理员操作界面。软件系统的界面要美观,布局要合理,窗口的内容尽量简单明了提供的信息,语言要通俗易懂,有层次感,分类要清晰明了。第二章可行性分析 2.1系统分析系统分析是指在管理信息系统开发的生命周期中系统分析阶段的各项活动和方法，应用系统思想和系统科学的原理进行系统分析工作的具体方法和技术。系统分析阶段是整个系统开发的关键，一般来说，建立管理信息系统首先要做好系统规划，在此基础上才能分批地实现各个应用项目的开发。系统调查的主要任务是了解流程做了什么，存在什么问题，所以调查的内容应该包括：主要输入模块、主要输出模块、处理功能模块、数据存储模块以及与其它系统的关系。学生考勤系统操作流程是首先由学校购置考勤系统，安置在教学楼各放置点。每日日终，由相应老师或学生对考勤记录进行分类、统计，形成日报表。待月末统计，生成月报表，并上报学校相应部门，供领导审阅。2.2系统的可行性分析建设管理信息系统的必要性取决与需求的迫切性和实现的可行性。因此在进行系统调查之后就应该进行可行性分析。可行性分析的主要目标是：进一步明确系统的目标、规模和功能，对系统开发的背景、必要性和意义进行调查分析并根据需求提出开发系统地初步方案和计划。它对初步调查进行复审，重新明确问题，对所提系统大致规模和目标及约束进行论证。本系统具备较完备的信息管理功能，通过使用本系统，在上课前五分钟老师登入考勤系统开始考勤，老师能够在很短的时间内完成学生的考勤任务，并将考勤信息存入数据库，即有效的保存了数据，方便以后对学生的评定，又节省了考勤所耗费的时间，使之能够更好的完成教学任务。同时学校领导可以通过在线察看某班级同学的在线情况。因此本案例中对于学生考勤系统的方案也要从技术可行性、使用可行性这两个方面进行分析，并论证学生考勤系统建设的必要性和可能性。2.3社会可行性分析随着社会的反展和信息技术的进步，全球信息化的趋势越来越明显。几乎没有一个学校不在走信息化的路子，都在用自己的智慧将工作效率一步一步的提升。在现在的高校中，由于学生的分布式教学，造成了教学管理的不严谨性，使得一些学生产生了逃课旷课的侥幸心理。所以教师的任务不仅仅是教学，还要同时负担考勤等烦杂的日常事务，这样就会严重影响到教师的授课时间，同时也影响了学生的听课时间。因此，信息化给这样的一个状况带来了一个契机，基于信息化的考勤系统就在这种情况下变的越来越受欢迎，它给教师带来了更加高效的处理考勤的方法，使得教学能够比较顺利的进行下去，不会再因为考勤等烦杂事务影响教学。 本学生考勤管理系统的设计目的在于研究利用计算机自动化实现考勤管理系统方案设计，主要对教务处工作人员的工作内容及工作方式进行分析研究，以实现计算机自动化办公软件系统。为教育管理者提供了一种新的学生管理方式。这种方式可以大大减轻管理员的工作负担，提高工作效率，为学校减少人力与物质资源的消耗，使管理过程便利、快捷，大大缩短了管理时间以及流程。对于教职工及学生的考勤如果仍使用传统的手工方式录入将是一项复杂的工作。面对庞大的信息量，该方式现主要存在以下弊端：（1）浪费人力、效率低下。（2）难避免考勤中的弄虚作假现象。（3）手工录入使考勤数据易丢失。（4）考勤统计工作复杂繁重，难以保证统计结果的正确性、及时性。因此，人工考勤已很难满足学校规范化管理的要求。建立现代化的智能考勤管理系统势在必行。2.4技术可行性分析学生考勤系统主要包括：用户的登陆信息，教师对学生出勤信息的录入，教师和对应的课程信息的录入，学生查看出勤信息，查询信息，统计信息和打印信息。考虑到本系统界面众多，因此本系统采用vb语言开发结合数据库SQLserver2000以及VisualBasic6.0集成开发工具。MicrosoftSQLServer2000使用了最实用的数据构架，它通过对高端硬件平台以及最新的网络和存储技术的支持，为企业级的应用提供很好的解决方案。本系统的后台数据库的设计是在MicrosoftSQLServer2000中完成的。利用SQLServer2000来创建后台数据库，SQLServer2000是基于SQL客户/服务器（C/S）模式的数据库系统，它采用图形化界面使数据库管理更加简洁、灵活。用其创建的数据库具有较高的安全性和稳定性。我们使用VisualBasic6.0开发了学生上课点名系统，本系统取代了传统的人工操作，利用计算机辅助管理学生实验课的日常出勤及缺勤情况既提高了点名的科学性，也减轻了老师的工作负担。利用SQLServer2000进行数据库的建立和编程设计，结合VisualBasic中的WinSock控件实现了客户端与服务器模式的学生考勤管理系统，利用菜单，按钮和树状节点并行的方式实现了管理员登陆、学生考勤基本信息、学生请假管理、数据统计打印等功能，每类信息的管理都做到了相应信息的查询功能。经测试本系统运行正常，通过本系统可以做到学生考勤信息的规范管理。2.5经济可行性分析学生考勤系统需要投资费用和未来的运行维护费用，其中投资费用主要包括设备费用、购买软件费用、技术人员的费用及其他费用（如由于工作方式改变需要增加的其他开支）。本产品是使用vb语言在VisualStudio.NET环境下开发，因此购买者只需要装MicrosoftSQLServer2000 即可进行使用。通常为了保证新系统运行的可靠性，要求手工和计算机处理在一定时间并存，系统的收益主要通过新系统提高工作效率，知道经营管理策略来实现，还有其他难以计算的指标。1、考勤管理中节省的人力，减少了手工考勤的相关人员，同时减轻了管理人员的劳动强度。2、降低成本及其其他费用，学校只需购买本产品在购买套MicrosoftSQLServer2000数据库即可投入使用。3、改进薄弱环节，提高了工作效率，同时让相关人对数据的统计查询所使用的时间大大缩短。4、提高数据处理的及时性和正确性。5、考勤系统考勤的效率得到了明显的改善，使老师有更多的精力教学生。第三章数据库设计3.1数据库概要通过对系统的分析针对《学生考勤系统》软件的数据流图是比较清晰的，对各功能模块来说都比较有规律。所以得出数据流图，但完整的图比较繁琐，因此分开各个功能模块的数据流图。以下是个模块的数据流图：3.1.1登录表数据流图登录表数据流图如图1所示用户名及密码身份验证登录失败登录成功错对登录表图1登录表数据流图3.1.2查询表数据流图查询表数据流图如图2所示 选择查询项目查询条件查询显示考勤数据表及相关表图2查询表数据流图3.1.3考勤数据流图上下课登记通过考勤人选着用户类型登入考系统给学生考勤，之后相关记录被记录到数据库中。选择操作考勤请假登记用户登记缺勤登记时间设置，班级以及学生的管理，上课情况 图3考勤数据流图3.1.4管理员流图用户信息管理数据维护用户管理系统设置统计查询学生、课程、班级、用户备份恢复请假类别添加修改删除登录表信息载入图4管理员流图3.2考勤系统E-R图学生和老师的关系是多对多的关系。例如一个学生可以让多个老师考勤，一个老师同样可以考勤多个学生。通过对学生考勤系统项目的分析得出以下系统E-R图。 学生班级学号姓名性别年龄入校时间登录密码图5学生考勤系统E-R图13.3数据库分析上课老师每天上课前进行考勤开始和下课后进行考勤结束，数据库中记录上课时间和下课时间，这些参数决定今天该学生是否出勤。 考勤人员每天上课后进行考勤开始和下课前进行考勤结束，数据库中记录上课时间和下课时间，如果一天上课期间全到，则整天全考勤都打勾；否则，就有迟到、早退、旷课、或请假。按每节课算，必须在规定的时间里考勤才算有效，考勤记录才会写入数据库。如果没有则意味着该节课没有出勤。一、管理人员可对特殊情况人员进行修改出勤记录：(1)、若某些人请假，无法考勤，管理员则通过管理路径修改其出勤情况；(2)、每逢上缴出勤表格时，可以自动通过本系统导出EXCEL表，并打印出来；(3)、可以查看在线人员的状况。二、实现方式(1)、设立账号，给每个老师设立用户名账号，使其可以登记出勤；(2)、管理员通道可以修改出勤记录；(3)、通过数据记录计算学生的出勤情况；(4)、通过数据记录计算老师的出勤情况；3.4数据库详细设计3.4.1数据字典本系统使用MicrosoftSQLServer2000，针对学生考勤系统对学生的考勤功能得到数据表，数据库中包括：登录表、学生信息表、班级信息表、请假表、上课情况类型表、上课时间表、旷课信息统计表、出勤信息统计表。下面列出了十个表的具体静态数据：1)登录表（如下表）TUser表此表存放操作员工的信息表1登录表TUser表字段字段名类型宽度是否为空1.username用户名Varchar50否2.password密码Varchar50否3.realname用户真实姓名Varchar504.regtime注册时间Varchar505.permission用户权限Int2否2)学生信息表（如下表）TWorker表此表存放学生的基本信息表2学生信息表TWorker表字段字段名类型宽度是否为主键 1.departmentId学生班级Int4外键2.workerId学生学号Int50是3.workerName学生姓名Varchar50否4.workerSex学生性别Varchar10否5.workerage学生年龄Int4否6.intoSchoolTime入校时间Varchar50否7.workPas学生密码Varchar50否3)班级信息表（如下表）TDeparment表此表存放班级的信息表3班级信息表TDeparment表字段字段名类型宽度是否为主键1.departmentId班级号码Int4是2.departmentName班级名称Varchar50否4)请假表（如下表）TQingjia表此表存放请假信息表4请假表TQingjia表字段字段名类型宽度是否允许为空1.departmentId班级号码Int4否2.workerId学生学号Int50否3.qjTime请假时间varchar50否4.qjLength请假时长int20否5.djTime结假时间varchar50否6.qjReason请假原因varchar50否7.xjTimevarchar50是8.ynKg5)上课情况类型表（如下表）TWorkType表表5上课情况类型表TworkType表字段字段名类型宽度是否允许为主键1.typeId类型号Int2是2.typeName类型名称Varchar50否6)上课时间表（如下表）TWorkTime表表6上课时间TWorkTime表字段字段名类型宽度是否允许为空1.mstarTime开课时间Varchar4否2.mleaveTime下课时间Varchar50否3.astarTime再次开课时间varchar50否4.aleaveTime再次下课时间Varchar20否7)旷课信息统计表（如下表）TKuangKe表 表7旷课信息统计表TKuangKe表字段字段名类型宽度是否允许为空1.departmentId班级号码Int4否2.workerId学生学号Int50否3.ccTime旷课时间varchar50否4.ccArea旷课地点varchar50否5.ccLength旷课时长int20否6.dcTime归课时间varchar50否7.xcTimevarchar50是8.ccContent旷课缘由否9.ynkg5)出勤信息统计表（如下表）TShangKe表表8出勤信息统计表TShangKe表字段字段名类型宽度是否允许为空1.departmentId班级号码Int4否2.workerId学生学号Int50否3.workday开课日期varchar50否4.mstarTime开课时间Varchar4是5.astarTime再次开课时间varchar50是6.mleaveTime下课时间Varchar50是7.aleaveTime再次下课时间Varchar20是8.workmsType开课时出勤情况varchar50是9.workmlType下课时出勤情况int20是10.workasType再次开课时出勤情况varchar50是11.workalType再次下课时出勤情况varchar50是3.4.2数据库的建立在SQLServer2000里创建数据库有很多方法，这里采用SQL 语句来创建数据库。打开SQLServer2000的查询分析器，选择本地服务器，连接到SQLServer2000数据库，登录名和密码均为xunxun。将SQLServer2000语句复制在查询分析器里，然后执行SQL语句。SQL语句由如下两层结构构成：（1）创建新数据库usemasterCreatedatabasedbGo(2)使用createtable语句建立数据库表。以登录表为例，SQL语句如下：CREATETABLE[TUser].[登录表]([used_username][varchar](50)COLLATEChinese_PRC_CI_ASNOTNULL, [used_password][varchar](50)COLLATEChinese_PRC_CI_ASNOTNULL,[used_realname][varchar](50)COLLATEChinese_PRC_CI_AS，[used_regtime][varchar](50)COLLATEChinese_PRC_CI_AS，[used_permission][int](2)COLLATEChinese_PRC_CI_ASNOTNULL)ON[PRIMARY]GO3.5系统运行环境操作系统：Windows2000,WindowsXP运行软件：VisualBasic6.0后台数据库：SQLServer20003.6系统运行结果界面模块该模块是为了确保系统的安全性，通过对用户名和密码的设置（如下图），限制了登陆者的身份，而用户名和密码输入错误，则会禁止此人进行访问，并给出相应提示。图6用户登录界面在管理员通过身份验证后，便会进入系统的主界面（如下图），可根据需要，选择单击相应功能标签，进入所要进行的操作界面。 图7操作界面选择用户登录的选项卡后，再次用户登陆，可以进行时间设置、班级管理、学生管理以及上课情况的查询。图8用户选择项以时间设置操作为例，选择时间设置，进入到时间设置的界面。 图9时间设置界面选择上下课登记选项卡可以进行上下课学生的登记。图10上课登记界面选择请假登记选项卡可以进行请假学生的登记。 图11请假界面选择缺勤登记选项卡可以进行缺勤学生的登记。图12缺勤登记界面3.7系统实现与测试结果3.7.1测试 在开发软件系统的漫长过程中，面对着极其错综复杂的问题，人的主观认识不可能完全符合客观现实，与工程密切相关的各类人员之间的通信和配合也不可能完美无缺，因此，在软件生命周期的没一个阶段都不可避免地会产生差错。本人们力求在每个阶段结束之前通过严格的技术审查，尽可能早地发现并纠正差错；但是，经验表明，审查并不能发现所有的差错，此外在编码过程中还不可避免地引进新的错误。如果在软件投入生产性运行之前，没有发现并纠正软件中的大部分差错，则这些差错尽早会在生产过程中暴露出来，那时不仅改正这些错误的代价更高，而且往往会造成很恶劣的后果。测试的目的就是在软件投入生产性运行之前，尽可能多地发现软件中的错误。在老师的精心指导下，本人的课程设计项目数据库部分终于按时完成。各项功能经过多次测试、修改也均能运行正常。但同时也发现了系统功能方面的欠缺。还需进一步完善、增补。3.7.2展望通过本次课程设计，本人感到自己应用基础知识及专业知识解决问题的能力有了很大的提高，并且这次毕业设计的选题，是一个实际的软件产品，因此，是在本人即将工作之前，它是一次重要演练。本人想，通过这次课程设计，到了工作单位后，本人将能够更快的适应工作岗位和工作要求。本人对自己充满信心，本人还要更深入的学习要进一步了解它的高级功能，并将考勤系统的再度完善，增添新的功能。总之，这次课程设计对本人而言是受益匪浅的。3.7.3心得体会通过长时间的编程与调试，不仅使本人专业知识得到巩固、提高，更使本人从实践中学到了书本上学不到的东西，享受到了编程的乐趣，使本人懂得编程不仅要研究，而且要在实践过程中不断的发现问题，进而解决问题，只有这样才能将知识理解得更深刻、更具体，这一切都将使本人在今后的工作、学习中受益非浅。本次课程设计，使本人感受到过程是艰辛同时又充满乐趣的。这次课程 设计要求设计一个学生考勤系统，自行设计这对本人将来踏上工作岗位是非常有帮助的。本人希望通过自己的努力完成设计并希望有所突破。这也是本人对自己的考验。于是本次设计过程中本人完全按照软件设计步骤的要求来进行，从课题分析开始，再进行总体设计、详细设计,最后到系统实现。每一步都让本人将理论学习的知识应用到实践中去。也使本人掌握了一整套规范的设计操作流程。在课题分析阶段，由于本次是学生考勤系统，所以对同学的考勤尤为重要。对指导老师提供的资料必须要吃透。这是关键，从查阅资料、提出问题，到慢慢一一解决问题，老师给了本人很大的帮助。在总体设计阶段，由于课题分析做的比较全面，很快就对软件的功能，考勤的具体功能认识。详细设计阶段，本人是做数据库这一快，首先要跟团队成员商量有哪些数据表。其次，建表和写存储过程以及关系图，这时就遇到了非常大的困难，关系图以前很少用，因此诚心向老师和同学请教，在聆听过程中知道自己的不足，并且培养了本人编程的规范化的习惯。最后，系统实现环节。对已完成的程序进行调试。调试时，由于逻辑上出现了一点问题，使得程序在运行时出错。当时本人心里是非常焦急的，这一出错也意味着前功尽弃。然而，在指导老师的分析与鼓励下，本人重新纠错找到了错误并改正。使本人意识到今后不论遇到什么情况都要分析原因，列出可能的情况后，沉着应对，必然能“化险为夷”。此次课程设计的难点关键在于：数据库的连接和写存储过程。总之，这次课程设计让本人学习到很多。虽然结束了，但这只能是一个开始。今后作为程序员，要学习的规范，程序设计语言还有很多。怎样使自己在设计的程序中找到错误和原因，在计算机领域，要学的实在太多，仅大学生涯所学实在有限。本人们只有对自己有了更高的要求，才能作为动力不断取得新的成绩!本系统采用了很多模块化的函数代码来编辑，这样一来，便增强了系统的健壮性，也使系统代码更便于阅读、修改、编辑。以后在编类似的系统，本人会以此为例，利用这些经验，更好地工作和学习。参考资料[1]沈炜、杨世锡编著，VisualBasic编程从基础到实践.北京：电子工业出版社，2006.5[2]百晓勇、于健编著，VisualBasic课程设计案例精编.北京：清华大学出版社，2007.5[3]刘娜娜、李敬有编著，VisualBasic程序设计方法.北京:北京航空航天大学出版社，2007.3[4]李敏业、王颖编著，VisualBasic+Access数据库应用实例完全解析.北京：人民邮电出版社，2006.4附录程序 VERSION5.00BeginVB.FormfrmDepAddBorderStyle=3"FixedDialogCaption="添加班级"ClientHeight=3675ClientLeft=45ClientTop=420ClientWidth=5535Icon="frmDepAdd.frx":0000LinkTopic="Form1"MaxButton=0"FalseMinButton=0"FalseScaleHeight=3675ScaleWidth=5535ShowInTaskbar=0"FalseStartUpPosition=2"屏幕中心BeginVB.CommandButtoncmdreaddCaption="再次添加"BeginPropertyFontName="宋体"Size=10.5Charset=134Weight=700Underline=0"FalseItalic=0"FalseStrikethrough=0"FalseEndPropertyHeight=495Left=2880TabIndex=5Top=2640Width=1215EndBeginVB.CommandButtoncmdaddCaption="添加"BeginPropertyFontName="宋体"Size=10.5Charset=134Weight=700Underline=0"FalseItalic=0"FalseStrikethrough=0"FalseEndProperty Height=495Left=1200TabIndex=4Top=2640Width=975EndBeginVB.TextBoxtxtbmNameHeight=495Left=1800TabIndex=3Top=1200Width=2535EndBeginVB.TextBoxtxtaddbmIdBackColor=&H00C0FFFF&Enabled=0"FalseForeColor=&H00FFFFFF&Height=495Left=1800TabIndex=1Top=360Width=2535EndBeginVB.LabelLabel2Caption="班级名称"BeginPropertyFontName="宋体"Size=10.5Charset=134Weight=700Underline=0"FalseItalic=0"FalseStrikethrough=0"FalseEndPropertyHeight=495Left=720TabIndex=2Top=1200Width=975EndBeginVB.LabelLabel1Caption="班级号"BeginPropertyFontName="宋体"Size=10.5 Charset=134Weight=700Underline=0"FalseItalic=0"FalseStrikethrough=0"FalseEndPropertyHeight=495Left=960TabIndex=0Top=360Width=735EndEndAttributeVB_Name="frmDepAdd"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalseDimstrSqlAsStringDimrsAsNewADODB.RecordsetDimnumAsInteger"存放相应的学生号PrivateSubcmdadd_Click()DimdepartIdAsIntegerDimdepartNameAsStringIftxtbmName.Text=""ThenMsgBox"班级名称不能有空值"ExitSubElsedepartId=Trim(txtaddbmId.Text)departName=Trim(txtbmName.Text)strSql="insertintoTDepartment(departmentId,departmentName)values("_&departId&",""&departName&"")"TransactSQL(strSql)MsgBox"添加成功"EndIfEndSubPublicSubinit()"初始化txtbmName.Text=""num=0strSql="select*fromTDepartmentorderbydepartmentId"Setrs=TransactSQL(strSql)IfNotrs.EOFAndNotrs.BOFThenrs.MoveLast num=rs(0)num=num+1Me.txtaddbmId.Text=CStr(num)ElseMe.txtaddbmId.Text=1EndIfEndSubPrivateSubcmdreadd_Click()CallinitEndSubPrivateSubForm_Load()num=0"初始化工号strSql="select*fromTDepartmentorderbydepartmentId"Setrs=TransactSQL(strSql)IfNotrs.EOFAndNotrs.BOFThenrs.MoveLastnum=rs(0)num=num+1Me.txtaddbmId.Text=CStr(num)ElseMe.txtaddbmId.Text=1EndIfEndSub上下课时间设置：VERSION5.00BeginVB.FormfrmSetTimeCaption="正常上下课时间设置"ClientHeight=8550ClientLeft=60ClientTop=435ClientWidth=12990Icon="frmSetTime.frx":0000LinkTopic="Form1"MDIChild=-1"TrueScaleHeight=8550ScaleWidth=12990WindowState=2"MaximizedBeginVB.CommandButtoncmdOKCaption="设定" Height=495Left=2280TabIndex=10Top=4560Width=1455EndBeginVB.FrameFrame2Caption="下午"Height=2055Left=480TabIndex=1Top=2280Width=4455BeginVB.TextBoxaleaveTimeHeight=375Left=1920TabIndex=9Top=1080Width=2175EndBeginVB.TextBoxastartTimeHeight=375Left=1920TabIndex=8Top=360Width=2175EndBeginVB.LabelLabel4Caption="下课时间"Height=615Left=840TabIndex=7Top=1080Width=855EndBeginVB.LabelLabel3Caption="上课时间"Height=375Left=840TabIndex=6Top=360Width=975EndEndBeginVB.FrameFrame1 Caption="上午"Height=2055Left=480TabIndex=0Top=240Width=4455BeginVB.TextBoxmleaveTimeHeight=375Left=1920TabIndex=5Top=1080Width=2175EndBeginVB.TextBoxmstartTimeHeight=375Left=1920TabIndex=4Top=360Width=2175EndBeginVB.LabelLabel2Caption="下课时间"Height=495Left=840TabIndex=3Top=1080Width=735EndBeginVB.LabelLabel1Caption="上课时间"Height=375Left=840TabIndex=2Top=480Width=855EndEndBeginVB.LabelLabel6AutoSize=-1"TrueCaption="时间为24小时制，格式：XX：XX：XX"BeginPropertyFontName="宋体"Size=15Charset=134Weight=400 Underline=0"FalseItalic=-1"TrueStrikethrough=0"FalseEndPropertyForeColor=&H000000C0&Height=300Left=480TabIndex=12Top=5400Width=4800EndBeginVB.LabelLabel5Height=135Left=960TabIndex=11Top=120Width=3735EndEndAttributeVB_Name="frmSetTime"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubcmdOk_Click()DimstrSqlAsStringIfIsDate(Me.mstartTime.Text)=FalseOrMe.mstartTime.Text=""ThenMsgBox"请正确地输入时间！",vbOKOnly+vbExclamation,"警告！"Me.mstartTime.SetFocusElseIfIsDate(Me.mleaveTime.Text)=FalseOrMe.mleaveTime.Text=""ThenMsgBox"请正确地输入时间！",vbOKOnly+vbExclamation,"警告！"Me.mleaveTime.SetFocusElseIfIsDate(Me.astartTime.Text)=FalseOrMe.aleaveTime.Text=""ThenMsgBox"请正确地输入时间！",vbOKOnly+vbExclamation,"警告！"Me.astartTime.SetFocusElseIfIsDate(Me.aleaveTime.Text)=FalseOrMe.aleaveTime.Text=""ThenMsgBox"请正确地输入时间！",vbOKOnly+vbExclamation,"警告！"Me.aleaveTime.SetFocusElse"删除数据strSql="deletefromTWorkTime"TransactSQL(strSql)"插入数据strSql="InsertintoTWorkTime(mstartTime,mleaveTime,astartTime,aleaveTime)Values(""_ &mstartTime.Text&"",""&mleaveTime.Text&"",""&astartTime.Text&"",""&aleaveTime.Text&"")"TransactSQL(strSql)MsgBox"时间已经设置！",vbOKOnly+vbExclamation,"设置成功！"UnloadMeEndIfDisConnectEndSubPrivateSubForm_Load()DimsqlAsStringDimrs1AsNewADODB.Recordset"显示查询IfConnectToDB()=FalseThenMsgBox"数据库连接失败!"Elsesql="select*fromTWorkTime"Setrs1=QueryData(sql)"rs1.OpenIfrs1.EOF=FalseThenMe.mstartTime.Text=rs1.Fields(0)Me.mleaveTime.Text=rs1.Fields(1)Me.astartTime.Text=rs1.Fields(2)Me.aleaveTime.Text=rs1.Fields(3)EndIfEndIfDisConnectEndSub