某高校学生公寓管理系统的设计与实现说明书毕业论文.doc

衢州学院毕业设计（论文）题目： 某高校学生公寓管理系统的设计与实现 维护管理系统模块 某高校学生公寓管理 系统的维设护设计与实现模块 小2号黑体，上下各空两行摘 要随着信息化程度的提高和教育改革的发展，越来越多的学校开始普及计算机教学，伴随而来的是电脑数量的剧增，计算机机房的管理任务趋向复杂化，相关部门投入了大量的人力和物力对电脑设备进行管理维护，尽管如此仍然有很多单位的管理明显滞后于形势的发展，管理方式还停留在传统的模式上，在试验设备维护管理过程中使用帐本登记，这种原始的管理方法在设备查询、设备移交或变更维护时效率低下，在学校的计算机机房这种人员流动较大的场所，其设备较多且拥有大量资产，在维护管理工作中需要耗费巨大的人力和时间才能完成任务。利用计算机高效数据处理技术的优势来解决这个问题，提高工作效率和管理水平，编程实现了资产数据库动态化管理。本论文主要阐述了高校学生公寓管理系统的设计与实现。用Visual Basic作为前台开发工具和Microsoft Office Access 2003作为后台数据库开发的一个管理系统。论文详细介绍了系统需求分析、系统框架及功能模块设计、安全保密设计。系统具有学生管理、公寓管理等功能，包括了学生管理模块、公寓管理模块、维护管理模块和系统管理模块设计。学生管理模块主要完成了学生基本信息录入和学生基本信息查询；公寓管理模块主要完成了学生入住管理、物品管理、水电管理等；维护管理模块主要完成了卫生检查、公寓资产、记录查询、记录删除、值班记录；系统管理模块主要完成了管理员添加、数据库备份、数据库还原等。该系统不仅提高了学生公寓管理的效率，而且还具有操作的简便性，良好的实用性。小4号黑体上空一行关键字：学生公寓管理；维修管理；Visual Basic Keywords:Student apartment management；Repair management；Visual Basic目 录第1章 项目背景11.1管理信息系统简述11.1.1信息管理系统11.1.2管理信息系统历史11.2宿舍维护管理系统系统简介21.3系统开发原则21.4程序开发工具21.5数据库开发工具3第2章 系统的需求分析42.1系统开发42.1.1系统调查42.1.2系统分析42.1.3系统设计53.2系统的需求分析53.2.1功能需求简介53.2.2功能需求描述5第3章 宿舍维护管理系统的设计63.1系统总体规划63.2数据库设计73.2.1数据库需求分析73.2.2数据库表的设计7第4章 系统实现144.1概述144.1.1用户身份验证144.1.2 用户登录模块的窗口设置144.2系统维护模块164.2.1卫生检查164.2.2公寓资产184.2.3记录查询194.2.3记录删除254.2.4值班记录31第5章 总结33致 谢34参考文献35第1章 项目背景小2号黑体，上下各空两行1.1管理信息系统简述1.1.1信息管理系统 管理信息系统（Management Information System，简称MIS）是一个由管理人员和计算机组成的用以进行信息的收集、传输、加工、存储、维护和使用的系统。它是一门综合了管理科学，系统理论，计算机科学的系统性边缘科学。管理信息系统的物理组成：(1) 计算机硬件系统：包括主机、外部存储器、输入输出设备等。(2) 计算机软件系统：包括系统软件和应用软件两大部分。(3) 通信系统：包括线路等通信设施和与计算机网络、数据通信有关的软件等。(4) 工作人员：包括系统分析员、程序设计员、维护人员、管理员、操作人员等。1.1.2管理信息系统历史 管理信息系统通过对企业当前运行的数据进行处理来获得有关信息，以控制企业的行为；利用过去和现在的数据及相应的模型，对未来的发展进行预测；能从全局目标出发，对企业的管理决策活动予以辅助。从工业发达国家来看，管理信息系统的发展经历了以下几个阶段。第一阶段：（1953年至1965年）单项数据处理阶段，也称电子数据处理（EDP）阶段。这是电子计算机在管理领域应用的起步阶段。这一阶段，由于当时计算机硬、软件的限制，数据处理的性质只是使用计算机代替人的手工劳动，进行简单的单项数据处理工作，如计算工资、数据统计、报表登记、编制计划等。这个阶段的处理方式主要是集中式的批处理。第二阶段：（1965年至1970年）综合数据处理阶段，也称事务处理系统（TPS）阶段。这个阶段计算机硬、软件有了很大的发展，出现了多用户的分时系统，计算机开始应用于对某一个管理子系统的控制，并具有一定的反馈功能。如库存管理系统、生产调度系统、物资管理系统等。这个阶段的处理方式已发展为面向终端的联机实时处理。第三阶段：（1970年至今）管理信息系统（MIS）阶段。这个阶段是在企业中全面的使用计算机把各种管理子系统的功能集中起来，构成了计算机化的全方位的信息系统，即现代管理信息系统。这个阶段的处理方式是在数据库和网络基础上组成分布式处理系统。它的特点是使用数据库和分时处理的计算机网络，并充分利用运筹学等数学方法，实现了硬件、软件和数据资源的共享。1.2宿舍维护管理系统系统简介 宿舍维护管理系统是典型的信息管理系统(MIS)，是一个集计算机基本信息加工处理、故障管理、统计信息为一体的Windows 环境下的集成化管理系统。实现了系统设置、公寓管理、水电费管理、卫生检查、公寓资产、记录查询与删除、值班记录等功能。1.3系统开发原则(1) 适用性原则：适合于中小型计算机试验机房管理，用户界面友好，操作使用方便，具有高效的数据处理能力。(2) 先进性原则：采用目前先进的计算机软硬件技术，使系统具有较高的技术水平和较长的生命周期，便于系统的升级和维护。(3) 放性，安全性，可靠性及可扩展性原则。(4) 兼容性原则：对于所选软硬件系统及平台，能很好地适应开发和使用的需要。(5) 规范性原则：软件设计过程严格按照“软件工程”的规定，系统编码、文档、操作系统平台以及开发方法采用相应的国际标准、国家标准和行业标准。1.4程序开发工具目前在市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有：Microsoft公司的Visual C+企业版、Visual Basic企业版，原Boland公司的Delphi，Oracle公司的Developer和Sybase公司的PowerBuilder等。Visual Basic是微软公司出品的一个快速可视化程序开发工具软件。借助微软在操作系统和办公自动化软件的垄断地位，VB在短短的几年内风靡全球。VB是极具特色和功能强大的软件，主要表现：所见即所得的界面设计，基于对象的设计方法，极短的软件开发周期，较易维护的代码。同时众多的Active控件，提高了软件的使用效率。VB应用程序语言的基本特点：(1)可视化界面设计：Visual Basic为用户提供大量的界面元素（在Visual Basic中称为控件对象），这些控件对象对于熟悉WINDOWS应用程序的用户来说是一点也不陌生，如“窗体”，“菜单”，“命令按扭”，“工具按扭”，“检查框”等等，用户只要利用鼠标、键盘把这些控件对象拖动到合适的位置，设置其大小、形状、属性等，就可以设计出所需的应用程序界面。(2)事件驱动编程在使用Visual Basic设计应用程序是，必须首先确定应用程序如何同用户进行交互。例如发生鼠标单击、键盘输入等事件是，由用户编写代码控制这些事件的响应，这就是所谓的事件驱动编程。(3)与数据库的连接性Visual Basic提供了与底层数据库系统紧密的连接。Visual Basic支持不同的关系数据库管理系统并充分发挥每一个数据库的特长。开发人员和利用内置的高性能数据库引擎JET生成独立应用或脱离服务器运行的服务以上的应用，在开发该公寓管理系统时，本系统就是使用该种数据库引擎。Visual Basic存取数据库的方式有两种：a.通过使用ODBC接口。（ODBC（开放数据库连接）是微软公司的数据库连接标准）b.通过使用由Visual Basic提供的专用的直接与数据库相连的接口。1.5数据库开发工具 数据库平台选用的是MicroSoft 公司的Access2000。Access 数据库管理系统Microsoft Office 套件的重要组成部分，适用于小型商务活动，用以存贮和管理商务活动所需要的数据。Access不仅是一个数据库，而且它具有强大的数据管理功能，它可以方便地利用各种数据源，生成窗体（表单），查询报表和应用程序等。Access拥有大型数据库系统基本特征，但保持了windows环境下界面友好，操作简单的优点，成为windows环境下较流行的数据库系统。第2章 系统的需求分析2.1系统开发本系统的开发过程包括系统开发准备、系统调查、系统分析、系统设计、系统实现、系统转换、系统运行与维护、系统评价等步骤。根据开发系统的大小、复杂、投入、方式、方法等因素的不问，各步骤的要求和内容也不同，用户需要根据实际情况进行取舍和计划。2.1.1系统调查调查的主要内容有：(1)现行系统概况：学院宿舍概况、管理工作状况、与外界的主要联系等。调查该项内容的目的主要是为了划分系统界限、系统与外界的输入输出接口等。(2)组织机构：画出宿舍管理组织的组织结构图，弄清组织的行政关系、人员编制、工作范围等，发现不合理问题及新系统启动后可能对现有组织的影响。(3)业务流程：按照业务种类的不同和处理时间的先后不同，深入了解现行系统的业务流程，画出现行系统业务流程图，并与管理人员反复讨论，得到认可。调查中要注意定性与定量相结合，注意人、财、物、信息的流向、规格、频率、要求以及需要解决的问题等。(4)报表、数据处理：了解各种统计报表、数据的格式、内容、处理时间及上报时间、频率、规律，存在的问题，对新系统的要求、希望等并收集各种报表。(5)问题：现行管理系统中存在的主要问题和薄弱环节，可以按照严重程度分成不同的等级。新系统的建立应能解决大部分问题，并改善薄弱环节。2.1.2系统分析又称逻辑设计，是管理信息系统开发的关键环节，要求在系统调查的基础上，对新系统的功能进行细致的分析，并建立一个新系统的逻辑模型。新系统的逻辑模型由系统数据流程图、概况表、数据字典、物理逻辑表达式及有关说明组成。最后要完成系统分析报告(也称为系统逻辑设计说明书)。因为新系统模型是建立在对现行系统的分析及要求的基础上的，所以系统调查工作要进行得深入、细致、全面。用户可以对新系统的逻辑模型提出意见，双方经过讨论、修改，最后达成共识，并完成系统分析报告，经审批通过之后，转入系统设计阶段。2.1.3系统设计系统设计又称系统物理设计。系统设计要根据系统分析报告中的系统逻辑模型综合考虑各种约束，利用一切可利用的技术手段和方法进行各种具体设计，确定新系统的实施方案，解决“系统怎么做”的问题。3.2系统的需求分析3.2.1功能需求简介用户的需求是设计和实现宿舍维护管理系统，用以实现宿舍管理人员在排障、查询、统计等方面管理的信息化，科学化。一个完善的宿舍维护管理信息系统应当包括：计算机基本信息管理、设备维护管理、各种信息统计管理、用户管理、系统管理等功能模块。本次设计由于时间的关系只完成了最基本的模块设计和编码，这些模块在试验设备维护管理系统中占据着十分重要的地位。3.2.2功能需求描述根据自己调查宿舍维护管理情况，从实际应用的角度出发，确定为用户提供和实现以下功能：(1)用户管理功能。宿舍维护管理系统主要用户是宿舍管理员及系统维护人员。系统可以注册用户详细信息，修改用户信息，删除用户等。(2)系统备份还原功能为确保数据库的完整性、一致性及系统的安全可靠性，该系统可实现对数据库系统的备份与恢复功能。第3章 宿舍维护管理系统的设计3.1系统总体规划对于数据库系统，规划工作是十分必要的。规划的好坏将直接影响到整个维护管理系统的成功与否，数据库设计中的规划阶段的主要任务是建立数据库的必要性及可行性分析，确定数据库系统在整个维护管理系统的地位。根据维护管理系统数据库对技术人员和管理人员的水平、数据采集和管理活动要求。此数据库包括所有操作人员的所有活动功能。因为此维护管理系统应用界面较简单，功能较单一，所以用一个综合的数据库就能满足管理要求，而且实现容易。因此，维护管理系统可以按照用户权限和实现功能的不同分为两部分：普通用户对数据库的查阅访问和内部管理人员对维护管理记录的管理维护。但是，这两部分都调用的是同一数据库，只不过内部管理人员能实现所有管理功能，而外部用户访问数据库时，一些功能被屏蔽，只能进行查阅。在系统功能分析的基础之上，得到系统功能模块图如下：图3.1 系统功能模块图3.2数据库设计3.2.1数据库需求分析数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高数据存储的效率，保证数据的完善和一致。同时，合理的数据库结构也将有利于程序的实现。用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输出和输入。收集基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典，可以为后面的具体设计和开发打下坚实的基础。3.2.2数据库表的设计使用VB6.0所提供的“可视化数据管理器”建立数据库以及其中的数据表。在VB集成环境中启动数据管理器：单击“外接程序”菜单下的“可视化数据管理器”命令，打开可视化数据管理器“VisData”窗口。选择“文件”菜单中的“新建”项，在“新建”子菜单中，选择“Microsoft Access”子菜单中“Version 7.0 MDB”，在创建数据库对框中选择保存数据库的路径和库文件名（XS）后保存。（1）本系统中所涉及到的主要实体共有七个实体图：用户管理个人电话姓名公寓寝室班级学号性别入学时间备注图3.2 用户管理实体图资产管理日期名称公寓数量单价总价用途备注图3.3 资产管理实体图请假管理日期姓名公寓寝室班级原因天数老师备注图3.4 请假管理实体图违规管理日期姓名公寓寝室班级原因程度处罚备注图3.5 违规管理实体图水费管理日期公寓寝室水费总价单价本月用水登记人备注图3.6水费管理实体图电费管理日期公寓寝室电费总价单价本月用电登记人备注图3.7 电费管理实体图卫生管理检查公寓寝室班级得分减分等级备注图3.8 卫生管理实体图(2)本系统中所涉及到的主要实体共有十个数据表：表3.1 班级表字段名称数据类型字段长度是否主键班级文本10是班主任文本5否班级人数数字30否等级文本6否表3.2 电费管理表字段名称数据类型字段长度是否主键日期文本14是寝室文本8否公寓文本20否本月用电文本10否单价文本10否电费总计备注否登记人文本8否备注备注否表3.3公寓表字段名称数据类型字段长度是否主键公寓名称文本20是寝室文本8否寝室人数数字20否班级文本10否表3.4 请假表字段名称数据类型字段长度是否主键日期文本14是姓名文本8否班级文本10否公寓文本20否寝室文本10否天数文本10否原因备注否老师文本8否备注备注否表3.5 水费管理表字段名称数据类型字段长度是否主键日期文本14是寝室文本8否公寓文本20否本月用水文本10否单价文本10否水费总计备注否登记人文本8否备注备注否表3.6 user表字段名称数据类型字段长度是公寓文本20否寝室文本10否姓名文本8否学号文本10否班级文本10否性别文本2否入学时间文本14否年制文本8否寝室电话文本15否个人电话文本15否备注备注否表3.7违规表字段名称数据类型字段长度是否主键日期文本14是姓名文本8否班级文本10否公寓文本20否寝室文本10否原因备注否程度备注否处罚备注否备注备注否表3.8 卫生表字段名称数据类型字段长度是否主键公寓文本20是寝室文本10是检查1文本40否检查2文本40否检查3文本40否检查4文本40否检查5文本40否得分文本4否减分文本4否等级文本6否备注备注否日期文本14否表3.9 用户表字段名称数据类型字段长度是否主键用户文本8是Pass文本20否级别文本8否表3.10资产管理表字段名称数据类型字段长度是否主键日期文本14否公寓文本50否名称文本20否数量文本4否单价文本10否总价文本10否用途备注否备注备注否第4章 系统实现4.1概述本界面的主要功能是为了对系统进行安全性管理，本系统的用户名和密码保存在USE表中，本系统根据不同的用户而设置了不同的权限，可以用chenlei为用户名，密码为123可以登录本系统。具体设置是：选择“工程”里的“添加窗体”，选择“登录对话框”，保存为“frmlogin”。并且填写代码，完成与数据库的链接。对窗体的属性进行设置，登录界面添加 “某某学校”字样。在“工程”菜单中选择“添加窗体”，打开“添加窗体”对话框，选择添加“窗体”。并将新窗体保存为“main”。并且使用菜单编辑器，按照功能流程图的位置制作主页面的下拉菜单。完成后设置主页面属性，将“Caption”命名为“宿舍管理系统”；通过“Picture”属性，对主界面的背景进行设置；调整主界面大小，并设置“WindowState”属性为“2-Mixmized”,并将页面调整到屏幕的中央。添加代码，完善宿舍管理系统主页面的代码设计。4.1.1用户身份验证输入：用户名 密码处理：（1）用户登录窗体启动。（2）输入用户名和密码。（3）从用户信息表中检查是否有相应的用户名和密码。（4）如果用户名和密码为空，或者错误，进行提示。（5）如果输入的用户名和密码正确，则允许该用户进入系统。（6）进入主控制平台。输出：主控制平台。4.1.2 用户登录模块的窗口设置，如图5.1所示图4.1 登录模块设计相应设计代码Private Sub Text2_KeyPress(KeyAscii As Integer)Static Num As IntegerIf KeyAscii = 13 ThenOn Error Resume NextIf Text1.Text = ThenMsgBox 请输入用户名!, 48, 提示Exit SubEnd IfAdodc1.Recordset.MoveFirstFor I = 1 To Adodc1.Recordset.RecordCountIf Adodc1.Recordset.Fields(用户) = Text1.Text And Text2.Text = Trim(Adodc1.Recordset.Fields(pass) Thenmain.Text1.Text = Adodc1.Recordset.Fields(级别)main.Text2.Text = Adodc1.Recordset.Fields(用户)main.ShowUnload MeElseAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF ThenNum = Num + 1Text1.Text = Text2.Text = MsgBox 登录不成功,请重新登陆!, 48, 提示Text1.SetFocusEnd IfIf Num = 3 Then Num = 0 EndEnd IfEnd IfNextEnd IfEnd Sub4.2系统维护模块系统维护模块包括卫生检查，公寓资产，记录查询，记录删除，值班记录。4.2.1卫生检查实现对卫生检查标准添加的功能图4.2添加检查记录图图4.3寝室卫生检查结果添加检查记录相应代码Private Sub Command1_Click()On Error Resume NextAdodc1.RefreshAdodc1.Recordset.Find 公寓名称= & Combo3.Text & If Adodc1.Recordset.EOF = True ThenMsgBox 查无此公寓, , 提示Adodc1.Recordset.MoveFirstExit SubEnd IfAdodc3.RefreshAdodc3.Recordset.Find 寝室= & Text5.Text & If Adodc3.Recordset.EOF = True ThenMsgBox 查无此寝室, , 提示Adodc3.Recordset.MoveFirstExit SubEnd IfIf Combo3.Text = Or Combo2.Text = Or Text5.Text = Or Text2.Text = Or Text3.Text = Then MsgBox 请输入详细信息！, , 系统提示ElseWith Adodc2.Recordset.AddNew.Recordset.Fields(0).Value = Combo3.Text.Recordset.Fields(1).Value = Text5.Text.Recordset.Fields(2).Value = Combo4.Text.Recordset.Fields(3).Value = Combo5.Text.Recordset.Fields(4).Value = Combo6.Text.Recordset.Fields(5).Value = Combo7.Text.Recordset.Fields(6).Value = Combo8.Text.Recordset.Fields(7).Value = Text2.Text.Recordset.Fields(8).Value = Text3.Text.Recordset.Fields(9).Value = Combo2.Text.Recordset.Fields(10).Value = Text4.Text.Recordset.Fields(11).Value = Text1.Text.Recordset.UpdateEnd WithSet main.DataGrid1.datasource = Adodc2main.DataGrid1.RefreshEnd IfEnd Sub4.2.2公寓资产实现对公寓资产添加记录的功能图4.4资产添加记录图4.5资产添加结果相应设计代码Private Sub Command1_Click()On Error Resume NextIf Text5.Text = Or Text2.Text = Or Text3.Text = Then MsgBox 请输入详细信息！, , 提示ElseWith Adodc1.Recordset.AddNew.Recordset.Fields(0).Value = Text1.Text.Recordset.Fields(1).Value = Text8.Text.Recordset.Fields(2).Value = Text2.Text.Recordset.Fields(3).Value = Text3.Text.Recordset.Fields(4).Value = Text4.Text.Recordset.Fields(5).Value = Text5.Text.Recordset.Fields(6).Value = Text6.Text.Recordset.Fields(7).Value = Text7.Text.Recordset.UpdateEnd WithSet main.DataGrid1.datasource = Adodc1main.DataGrid1.RefreshText2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = End IfEnd Sub4.2.3记录查询实现对卫生检查结果、违规情况、请假、资产进行记录的功能（1） 卫生记录图4.6卫生记录图图4.7卫生记录查询结果相应设计代码Private Sub Command1_Click()On Error Resume NextDim sql As StringDim s As Strings = Combo1.TextIf Option1.Value = True ThenSet main.DataGrid1.datasource = Adodc1main.DataGrid1.RefreshElseIf Option2.Value = True Thensql = select * from weisheng where 日期= & Trim(s) & With Adodc3.Mode = adModeReadWrite.ConnectionString = provider & ; & datasource.CommandType = adCmdText.RecordSource = sql.RefreshEnd WithSet main.DataGrid1.datasource = Adodc3main.DataGrid1.RefreshEnd IfCall dxUnload MeEnd Sub（2） 违规记录图4.8违规记录图图4.9违规记录查询结果相应设计代码Private Sub Command1_Click()On Error Resume NextIf Text1.Text = Or Text2.Text = Or Text3.Text = Or Text4.Text = Or Text5.Text = Or Text6.Text = Or Text7.Text = Or Text8.Text = Or Text9.Text = Then MsgBox 请输入详细信息！, , 系统提示ElseWith Adodc1.Recordset.AddNew.Recordset.Fields(0).Value = Text1.Text.Recordset.Fields(1).Value = Text2.Text.Recordset.Fields(2).Value = Text3.Text.Recordset.Fields(3).Value = Text4.Text.Recordset.Fields(4).Value = Text5.Text.Recordset.Fields(5).Value = Text6.Text.Recordset.Fields(6).Value = Text7.Text.Recordset.Fields(7).Value = Text8.Text.Recordset.Fields(8).Value = Text9.Text.Recordset.UpdateEnd WithSet main.DataGrid1.datasource = Adodc1main.DataGrid1.RefreshEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()provider = provider=Microsoft.jet.oledb.4.0datasource = data source= & App.Path & Student Dormitory.mdbWith Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ; & datasource.CommandType = adCmdTable.RecordSource = weigui.RefreshEnd WithText1.Text = DateText1.Enabled = FalseEnd Sub（3） 请假记录图4.10请假记录图图4.11请假记录结果图相应设计代码Private Sub Command1_Click()On Error Resume NextDim sql As StringDim s As Strings = Combo1.TextIf Option1.Value = True ThenSet main.DataGrid1.datasource = Adodc1main.DataGrid1.RefreshElseIf Option2.Value = True Thensql = select * from qingjia where 日期= & Trim(s) & With Adodc3.Mode = adModeReadWrite.ConnectionString = provider & ; & datasource.CommandType = adCmdText.RecordSource = sql.RefreshEnd WithSet main.DataGrid1.datasource = Adodc3main.DataGrid1.RefreshEnd IfUnload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()On Error Resume NextOption1.Value = TrueDim s As Stringprovider = provider=Microsoft.jet.oledb.4.0datasource = data source= & App.Path & Student Dormitory.mdbWith Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ; & datasource.CommandType = adCmdTable.RecordSource = qingjia.RefreshEnd Withs = select distinct 日期 from qingjiaWith Adodc2.Mode = adModeReadWrite.ConnectionString = provider & ; & datasource.CommandType = adCmdText.RecordSource = s.RefreshEnd WithFor I = 1 To Adodc2.Recordset.RecordCountCombo1.AddItem (Adodc2.Recordset.Fields(日期)Adodc2.Recordset.MoveNextNextEnd Sub（4） 资产记录图4.12 资产记录图4.13 效果图相应设计代码Public rst As RecordsetPublic o As AdodcPrivate Sub Command1_Click()On Error Resume NextDim sql As StringDim s As Strings = Combo1.TextIf Option1.Value = True ThenSet main.DataGrid1.datasource = Adodc1main.DataGrid1.RefreshElseIf Option2.Value = True Thensql = select * from zichan where 日期= & Trim(s) & With Adodc2.Mode = adModeReadWrite.ConnectionString = provider & ; & datasource.CommandType = adCmdText.RecordSource = sql.RefreshEnd WithSet main.DataGrid1.datasource = Adodc2main.DataGrid1.RefreshEnd IfCall dx1Unload MeEnd Sub4.2.3记录删除(1)卫生记录删除图4.13 卫生记录删除图4.14 删除结果相应设计部分代码Private Sub Command1_Click()On Error Resume NextDim sql As StringDim s As StringDim panduan As BooleanIf Combo1.Text = And Text1.Text = And Text2.Text = ThenMsgBox 请输入删除条件!, , 提示Exit SubEnd Ifs = Combo1.TextIf (MsgBox(你真的想删除日期为 & Combo1.Text & 公寓为 & Text1.Text & 寝室为 & Text2.Text & 的记录吗？, vbOKCancel, 系统提示) = vbOK ThenAdodc1.RefreshAdodc1.Recordset.ActiveConnection.Execute delete from weisheng where 日期= & Trim(s) & and 公寓= & Trim(Text1.Text) & and 寝室= & Trim(Text2.Text) & , , adExecuteNoRecordsAdodc1.Recordset.UpdateCombo1.Text = Text1.Text = Text2.Text = MsgBox 删除成功, , 系统提示End IfUnload MeEnd Sub（2）请假记录删除图4.15 请假记录删除图4.16删除结果相应设计部分代码Private Sub Command1_Click()On Error Resume NextDim sql As StringDim s As StringDim panduan As BooleanIf Combo1.Text = And Text1.Text = And Text2.Text = And Text3.Text = ThenMsgBox 请输入删除条件!, , 提示Exit SubEnd Ifs = Combo1.Textsql = delete * from qingjia where 日期= & Trim(s) & and 公寓= & Text1.Text & and 寝室= & Text2.Text & If (MsgBox(你真的想删除日期为 & Combo1.Text & 公寓为 & Text1.Text & 寝室为 & Text2.Text & 姓名为 & Text3.Text & 的请假记录吗？, vbOKCancel, 系统提示) = vbOK ThenAdodc1.RefreshAdodc1.Recordset.ActiveConnection.Execute delete from qingjia where 日期= & Trim(s) & and 公寓= & Trim(Text1.Text) & and 寝室= & Trim(Text2.Text) & and 姓名= & Trim(Text3.Text) & , , adExecuteNoRecordsAdodc1.Recordset.UpdateCombo1.Text = Text1.Text = Text2.Text = MsgBox 删除成功, , 系统提示End IfUnload MeEnd Sub（3）违规记录删除图4.17 违规记录图4.18 删除结果相应设计部分代码Private Sub Command1_Click()On Error Resume NextDim sql As StringDim s As StringDim panduan As BooleanIf Combo1.Text = And Text1.Text = And Text2.Text = ThenMsgBox 请输入删除条件!, , 提示Exit SubEnd Ifs = Combo1.TextIf (MsgBox(你真的想删除日期为 & Combo1.Text & 公寓为 & Text1.Text & 寝室为 & T