毕业论文—基于Delphi的学生宿舍管理系统的设计与实现.doc

学校代码：10904 学 士 学 位 论 文基于Delphi的学生宿舍管理系统的设计与实现姓 名：学 号：指导教师：院系（部所）：专 业：完成日期： 学 士 学 位 论 文基于Delphi的学生宿舍管理系统的设计与实现姓 名：学 号：指导教师：院系（部所）：专 业：完成日期：摘 要随着计算机科学的迅速发展，计算机应用领域的不断扩大，许多性能好，功能齐全，应用面广，兼容性强的应用软件相应推出，可见计算机已经得到了广泛的应用，几乎各行各业都有关于计算机的使用，这使得计算机已成为社会中普遍存在的事物。由于计算机的使用，使得人们在于管理、应用及服务等各个领域使用数据方面变得更加简洁，更加方便，大大提高了工作效率，产生了以计算机为主体，以人为辅助的局面。在企业管理，办公自动化等方面得到了普遍应用。受到用户的广泛欢迎。在此，本人设计的学生宿舍管理系统就是为了方便宿舍管理人员在数据方面的管理，结合当今各学校的舍务管理，为了能全面、准确、有效地管理宿舍的各种信息而开发与研制的一个系统应用软件。其主要功能是快速适应现代化会务管理水平和解决工作人员繁重而冗长的工作量。使得他们在学生宿舍的各方面都会达到事半功倍的效果，减轻了人力的负担，方便了数据的存储，增加了安全性。本文是严格按照软件工程的原理、对学生宿舍管理系统的系统需求，系统分析，系统设计，数据库设计以及系统测试作了详细的阐述，同时在此论文中读者还可以对开发工具Delphi，Access的一些知识有所了解 ，并且可以看到在Delphi环境下学生宿舍管理系统的系统具体实现的设计界面。本文还对系统的功能模块作了系统的介绍,以便让用户能够较轻松地了解并使用本系统。【关键词】 学生宿舍；Borland Delphi 7；AccessAbstractStudents flat management system that I design at this be for convenience flat management the management at the aspect of the data of personnel, combination the giving up affair management of each school now, for the ability and accurately completely and effectively manage the various information of students flat and development and a system utility software that develops.His major merit can be fast adaptation modernize meeting affair management standard reconciliation with heavy and tediously long workload of personnel definitely worked. Make to be at school they the each side metropolis given birth to the flat achieves effect getting twice the result with half the effort that having lightened the burden of manpower, the convenient holding of data has increased safe nature. This text is the principle according to the software engineering rigorously enforce and to the system requirement of students flat management system, and data base design as well as system test work detailed is expounded the system design system analysis, and the reader of the at the same time in this thesis still can run from opposite directions that some knowledge of tool Delphi understands to some extent, and can see at Delphis environment finishing classes and leave school life flat manages the concrete design interface realized ofsystem of system . Still the merit to the system can the module have done the introduction of system to this text, so that letting user can more easily understand and this system of use . 【Keywords】 Students flat management; Borland Delphi 7; Access目 录第1章 绪论11.1 选题的背景11.2 课题研究意义和目的2第2章 系统开发工具及开发平台32.1 开发平台32.1.1 Delphi 7.0简介32.1.2 ADO技术简介32.2 数据库平台42.3 运行环境52.3.1 软件运行平台52.3.2 硬件运行平台52.3.3 网络环境5第3章 系统分析63.1 项目简介63.2 系统的目标和要求63.3 性能要求73.4 系统的数据字典7第4章 总体设计94.1 系统功能和技术指标94.1.1 用户权限模块94.1.2 浏览与录入系统模块104.1.3 查询模块114.1.4 报表系统模块114.1.5 帮助模块124.2 系统安全设计134.3 数据库设计134.3.1概述134.3.2 学生宿舍管理系统数据结构设计14第5章 详细设计165.1 系统登陆部分165.2 访问用户权限185.3 访问浏览与录入系统205.4 访问查询系统235.5 访问报表系统255.6 访问帮助系统26第6章 系统测试286.1 系统测试概述286.2 系统测试实施296.3 测试方法296.4 测试内容296.5 软件维护316.5.1软件维护的影响因素316.5.2软件的可维护性316.5.3提高软件可维护性的方法31第7章 结论32参考文献33致谢34II基于delphi的学生宿舍管理系统的设计与实现第1章 绪论1.1 选题的背景在当今的社会，可以说的信息技术的发展时代，在社会的方方面面无不涉及到各种信息的处理。信息是人们对客观世界的具体描述，是人们进行交流与联系的重要途径。人类社会就处在一个对信息进行有效合理的加工中。它将促进整个社会的发展。随着社会信息技术的提高，计算机已被广泛应用于当今社会的各个领域，成为推动社会发展的首要技术动力。其中教育事业是我们社会发展的重中之重。因此，本次设计我选择了具有一定实际应用价值且是各大高等院校中不容忽视的课题学生宿舍管理系统。高等院校的教学管理是一项系统工程，而对学生宿舍的管理是常规管理的一项基础工程。随着高等教育事业的发展，对高校的各项管理提出了越来越高的要求。若我们继续采用传统的管理方法和管理工具来进行教学管理，就不能满足科学的、现代化的管理要求。在计算机科技迅猛发展的今天，在高校的教学改革不断深入发展的今天，要想提高办学水平，就必须把管理水平提高到一个新的高度来认识，并付诸实践。因此，为学生宿舍建立一个行之有效的、程序化的管理系统，用科学的、现代化的手段来管理学生宿舍，是优化教学管理、提高教学质量的迫切需要。哈尔滨工业大学作为国家重点大学，更应该有一个与现代化技术相接轨的管理系统，走在现代化科技的最前沿，以提高办学的综合水平，为高校建设奠定坚实的基础。该系统的实施，将使我们及时地、全面准确地掌握全校学生宿舍的基本情况、宿舍用电情况 、各寝卫生情况、寝室人员的查询、寝室卫生与用电情况的查询等各方面的情况，更好地管理学生宿舍，调动广大教师的积极性，并能在这个基础上研究、探索教学规律，及时调整、优化寝室管理过程；该系统还设置了适当的管理员使用权限，数据打印、数据的增加、删除和修改等维护措施；同时还可为领导和管理部门提供全面的、定量的信息，方便校方对学生宿舍的全面考核方面提供了客观的依据。另外，使用计算机对学生宿舍进行管理，具有手工管理无法比拟的优点。例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够大大减少了管理人员的工作量，提高办事效率。同时希望该管理系统能为日常管理工作提供很好的帮助。1.2 课题研究意义和目的随着科学技术的迅猛发展，计算机已经得到了广泛的应用。几乎各行各业都有关于计算机的使用，这使得计算机已成为社会中普遍存在的事物。由于计算机的使用，使得人们在于管理、应用及服务等各个领域使用数据方面变得更加简洁，更加方便，大大提高了工作效率，产生了以计算机为主体，以人为辅助的局面。在此我所设计的学生宿舍管理系统就是为了方便宿舍管理人员在数据方面的管理，使得他们在日常学生宿舍管理方面都会达到事半功倍的效果，减轻了人力的负担，方便了数据的存储，增加了安全性。第2章 系统开发工具及开发平台2.1 开发平台2.1.1 Delphi 7.0简介 由于开发该系统采用了Borland公司的Delphi 7.01作为前台开发工具，所以在分析阶段应当结合Delphi 7.0这种工具的自身的特点进行建模。这样，一方面能够最大限度的发挥该工具的优越性；另一方面，可以利用该工具的优点使系统更加完善、可靠和稳定。Delphi 7.0是Borland公司发布的Delphi的新版本，它是当前Windows 平台上第一个全面支持最新Web 服务的开发工具。作为一种全新并 且功能强大的Windows快速应用开发工具，它使用了Windows图形用户界面的先进特性和设计思想，采用了弹性可重复利用的完整的面向对象程序语言，并具有强大的易于使用的可视化集成开发环境。Delphi 7.0使得编程不再是枯燥无味的工作，同时也极大地提高了编程效率，用其编写Windows 程序将更加容易和更加高效率。Delphi 7.0是基于控件和面向对象的编程工具，与Window操作系统紧密的结合，强大的数据库技术支持，而且还支持ADO技术，迅捷的编译速度，同时还兼备Visual Basic 易学灵活的特点。尤其重要的是，大量的控件给开发数据库程序提供了极大的便捷。另外，Delphi 7.0非常擅长数据库编程，因为它适应于多种数据库结构，且具有简洁明快的编程语言，功能强大的组件和灵活方便的编程环境。综合Delphi 7.0的众多特点和优点，因此我认为使用Delphi 7.0作为本次毕业设计的开发工具是最好的选择。2.1.2 ADO技术简介 因为本次课程设计的数据库的连接是ADO完成的，所以在此对ADO2技术作一下简单的介绍。 ADO是Microsoft目前主要的数据存取技术，从1997年Microsoft推出ADO的第一个版本之后，ADO的整体架构并没有太大的改变。不过在每一个新的ADO版本之中，Microsoft不断地改善ADO的执行效率，提供更多的功能，持续增加ADO的稳定性，并且让ADO能够存取更多种类的数据源。 ADO是Microsoft提出的各种数据存取技术的演化结果，因为随着数据日益复杂，数据存取技术也必须不断地进步以适应应用系统的需求。目前，虽然ADO是Windows平台存取数据的标准技术，不过ADO也将会继续演变。 ADO存取数据的最大特点是易用性非常好，学习起来非常快，能极大地提高开发效率，可以大大地减少程序员在数据库连接上所花费的时间，让程序将主要精力集中在其它方面。2.2 数据库平台数据库系统为我们提供了一种把与我们的工作和生活紧密相关的信息集合在一起的方法，它还提供了在某个集中的地方存储和维护这些信息的方法。Access2003是微软公司最新推出的办公自动化套装软件Office2003中的一个重要组件关系数据库管理系统软件，它结合了 Microsoft Jet Database Engine 和 图形用户界面两项特点，主要进行数据库创建和修改，为数据库管理提供了简单易用而又功能强大的平台。Access能够存取 Access/Jet、Microsoft SQL Server、Oracle，或者任何 ODBC 兼容数据库内的资料，与其他数据库管理系统相比，Access具有界面规范易于掌握的特点。（1）存储方式简单，易于维护管理。Access管理的对象有表、查询、窗体、报表、页、宏和模块，以上对象都存在后缀为（.mdb或.accdb）的数据库文件中，便于用户的操作和管理。（2）面向对象。对每个对象它都定义一组方法和属性，以定义该对象的行为，用户还可以按需要给对象扩展方法和属性。通过对象的方法、属性完成数据库的操作和管理，极大地简化了用户的开发工作。同时，这种基于面向对象的开发方式，使得开发应用程序更为简便。 （3）界面友好、易操作。Access是一个可视化工具，是风格与Windows完全一样，用户想要生成对象并应用，只要使用鼠标进行拖放即可，非常直观方便。系统还提供了表生成器、查询生成器、报表设计器以及数据库向导、表向导、查询向导、窗体向导、报表向导等工具，使得操作简便，容易使用和掌握。（4）集成环境、处理多种数据信息。Access基于Windows操作系统下的集成开发环境，该环境集成了各种向导和生成器工具，极大地提高了开发人员的工作效率，使得建立数据库、创建表、设计用户界面、设计数据查询、报表打印等可以方便有序地进行。 （5）支持广泛，易于扩展，弹性较大。能够将通过链接表的方式来打开EXCEL文件、格式化文本文件等，这样就可以利用数据库的高效率对其中的数据进行查询、处理。还可以通过以Access作为前台客户端，以SQL Server作为后台数据库的方式（如ADP）开发大型数据库应用系统。 总之，Access是一个既可以只用来存放数据的数据库，也可以作为一个客户端开发工具来进行数据库应用系统开发；即可以开发方便易用的小型软件，也可以用来开发大型的应用系统11。2.3 运行环境2.3.1 软件运行平台本系统设计运行在Windows xp操作系统环境下，因为该系统用户界面友好，易学易用。并且价格适中，适合于中小型企业中数据吞吐量不太大的情况使用。2.3.2 硬件运行平台CPU：P100或以上。内存：16M或以上。显卡：普通VGA显卡。显示器：普通彩色显示器。键盘：普通标准键盘。鼠标：机械鼠标。2.3.3 网络环境由于系统为C/S模式，所以要求在网络环境下运行，结合本系统的网络数据流量不大，10Mbps的网络就足够了。当前的网络协议都能够满足这个要求， 所以对网络环境没有特殊的要求。以上是本系统最低配置要求，在高配置的机器环境下会获得更好的运行效果。第3章 系统分析 本书的宗旨是能够通过学习Delphi等工具开发一个应用系统，并以学生宿舍管理系统这一具有实际应用价值的系统作为设计对象。对系统的开发方而言，需求分析阶段不同于项目定义和可行性分析阶段，那两个阶段是为了争取一个新项目，并不是一定能够得到这个项目。系统分析的主要任务是将在系统详细调查中所得的文档资料集中到一起，对组织内部整体管理状况和信息处理过程进行分析。它侧重于是从业务全过程的角度进行分析。分析的主要内容是：业务和数据的流程是否通畅，是否合理；数据、业务过程和实现管理功能之间的关系；老系统管理模式改革和新系统管理方法的实现是否具有可行性等等。系统分析的目的是将用户的需求及其解决方法确定下来，这些需要确定的结果包括：本人关于现有组织管理状况的了解；用户对信息系统功能的需求；数据和业务流程；管理功能和管理数据指标体系；新系统拟改动和新增的管理模型等等。需求分析规定了系统设计统一的、最基本的要求，需求分析的结果是系统设计、实现、测试和维护的依据。需求分析是在可行性研究的基础上，确定新项目必须完成哪些工作，也就是对项目最终目标提出完整、准确、清晰和具体的要求。需求分析具体任务是：确定用户对新系统的综合要求、分析新系统的数据要求、导出新系统的数据要求、导出新系统数据字典及系统流程图、确定和评价系统方案、确定系统开发计划。3.1 项目简介学生宿舍管理系统是一个用来反映高校学生宿舍管理及宿舍用电、卫生方面的各项信息的系统，其宗旨是为高校学生宿舍提供全面、准确、科学的管理方法，从而使学校的宿舍管理水平提高一个新的高度。3.2 系统的目标和要求（1）制定系统使用计划在调查研究和用户需求分析的基础上，我确立了该系统的目标和要求。该系统应能达到内容制定的合理性和全面性、数据库管理的科学性、数据更新的及时性、各条信息的真实性的目标。（2）数据入库管理当有新的信息需要存档时，即进行入库操作。是详细记录每一条信息的情况，切记要保证它的真实性。（3）数据更新管理当有某些宿舍人员、管理员的某些信息有了新的变化时，要及时进行更新，并存档。（4）查询报表生成并输出以下主要报表：1）宿舍卫生情况报表；2）宿舍用电情况报表。3.3 性能要求（1）准确性：要求信息在输入时要严格防错和校验，冗余数据处理时由程序自动更新，以保证数据的准确性和一致性。（2）真实性：要求每位教师的信息都要严格按照实际情况存档。（3）保密性：要求遵守使用权限和采用令等保密措施，并具有自动连接数据库的功能。（4）较快的响应速度：做到实时响应，有汉字提示，人机对话界面友好，简单方便操作。开发项目成本分析系统的目的是为了方便项目负责人的录入、查询和统计报表。如果操作复杂，就失去了推广价值，因为这个系统是面向没有计算机使用基础的普通用户。（5）打印报表符合要求：打印报表整洁、清晰、美观。（6）系统可扩充、易维护。3.4 系统的数据字典数据采集说明是管理员在数据录入过程中使用的必不可少的资料，它除了对每个表及其所属的数据项的含义、量纲做出说明外，还对某些表所能录入的数据进行限定12。本系统的权限调度是根据选择的管理员将有不同的权限。管理员则可进行各种操作。（1）管理员情况的录入说明：在添加某管理员时，要求录入该教师的基本情况不得为空，并存在管理员（username）表中。（2）宿舍人员情况的录入说明：该宿舍已添写完基本人员情况并存在于宿舍人员基本情况（jsb）表中。（3）宿舍卫生情况的录入说明：该宿舍已添写完基本卫生情况并存在于宿舍卫生情况（wsb）表中。（4）宿舍用电情况的录入说明：该宿舍已添写完基本用电情况并存在于宿舍用电情况（ydb）表中。第4章 总体设计4.1 系统功能和技术指标该系统在主控文件管理下，通过主界面选择，进入各功能模块。系统具有学生宿舍管理的用户权限模块、浏览录入模块、查询模块、报告模块和帮助模块这五个功能模块，其框图如图4-1所示：图4-1 系统主控模块功能示意图4.1.1 用户权限模块系统的用户权限部分主要是系统的管理员维护部分，主要涉及到以下两个方面，从4-2的框图中可清晰看到：图 4-2 系统用户权限模块功能示意图（1）用户管理部分：显示原始管理员情况记录，可增加新用户、修改用户、删除用户、保存用户、取消操作和关闭。增加新用户时，需填写所有信息，各项信息不得为空。保存后，将存入到数据库中；（2）退出系统部分：系统的退出部分，将提示用户是否退出此系统，也可以在整个系统窗体上的标题栏上选择号退出此系统。4.1.2 浏览与录入系统模块系统的浏览与录入系统模块主要涉及了如图4-3中的两个方面的内容，但同时也涉及以下了四大功能：图 4-3 浏览与录入系统模块功能示意图（1）宿舍卫生情况录入：显示原始宿舍卫生情况，可增加新记录，新记录日期自动产生，各项目必须填写不得为空；（2）宿舍用电情况录入：显示原始宿舍卫生情况，可增加新记录，新记录日期自动产生，各项目必须填写不得为空；（3）浏览宿舍人员情况：可浏览宿舍人员的情况，可以做增加、删除、保存、取消等操作；（4）浏览宿舍卫生情况：可浏览所有宿舍的卫生情况，包括卫生评比成绩、评分时间和评分人，可以做增加、删除、保存、取消等操作；（5）浏览宿舍用电情况：可浏览所有宿舍的用电情况，包括标准用电情况、实际用电情况、用电月份和超额用电情况，可以做增加、删除、保存、取消等操作。4.1.3 查询模块系统的查询部分模块主要包含了三个功能（如图4-4），它是对系统数据查询的部分。图 4-4 系统查询模块功能示意图（1）查询宿舍人员情况：可按照宿舍长姓名和宿舍号的项目，输入查询值选择大于、等于等条件来查询各宿舍信息，显示满足条件的所有宿舍人员信息，结束查询即显示所有宿舍人员情况；（2）查询宿舍卫生情况：输入查询的宿舍号，即可查询此宿舍的卫生情况，结束查询显示所有宿舍卫生情况；（3）查询宿舍用电情况；输入查询的宿舍号，即可查询此宿舍的用电情况，结束查询显示所有宿舍用电情况。4.1.4 报表系统模块报表系统模块部分，是此系统的打印部分，它可以把要打印的报表预览打印状况，然后选择打印机和保存的地址即可打印。它包含了以下两个部分功能（如图4-5）：图 4-5 报表系统模块功能示意图（1）打印宿舍卫生情况报表：可以对宿舍的卫生情况以报表的形式显示，报表整齐美观，还可以送入打印机打印；（2）打印宿舍用电情况报表：可以对宿舍的用电情况以报表的形式显示，报表整齐美观，还可以送入打印机打印。4.1.5 帮助模块系统的帮助模块主要功能是提示了管理员在遇到问题时的解决方法，它主要的功能有以下三点（如图4-5）：图 4-5 系统帮助模块功能示意图（1）显示时间与日期：可以提示管理员现在的时间和日期，如有误可进行修改；（2）显示计算器：方便用户计算各宿舍的用电额度；（3）关于此系统：显示系统的权限、制作人制作时间方便管理员在遇到问题时能及时与制作人联系。4.2 系统安全设计学生宿舍管理系统数据量大，涉及面广，为使系统有效运行，并始终保持数据的正确性和完整性，防止数据的泄漏，需要采取一定的安全保密措施。本系统的安全保密设计围绕两下两个方面进行。（1）源程序编译源程序经过编译生成特殊代码，可避免任意查和非法修改，起到安全保密的作用。另处，源程序编译后，计算机执行编译后的目标文件，也可大大提高运行速度。当然，系统正式交付使用后，仍需维护和完善，因此，不能抛开源程序。较好的做法是，源程序由专人负责保管，未经许可不能随意使用，一般操作人员只能接触目标文件。（2）程序文件属性修改为防止对库文件的单独操作，在程序中修改库文件的属性。进入系统时置为读写属性，退出系统时将其置为只读属性17。4.3 数据库设计4.3.1概述数据库设计是研制数据库及其应用系统设计。数据库设计通常是在一个通用的DBMS 支持下进行的，对于一个给定的应用环境，构造最优的数据库模式，使之能够有交际地存储数据，满足各种用户的需要。数据库是信息系统的核心基础，它将大量的数据按一定的模型组织起来，提供存储、维护、检索数据的功能。只有对数据库进行合理的逻辑设计和有郊的物理设计，才能开发出完善且高效的信息系统，用户才能方便、及时和准确地从数据库中获取所需的信息。数据库设计过程通常可分为6个阶段，分别是需求分析、概念结构设计、逻辑结构设计、物理设计、数据库实施阶段、运行和维护13。4.3.2 学生宿舍管理系统数据结构设计数据结构设计是在完成了描述系统各种数据之间的依赖关系和信息分类的基础上，将各种信息转换成相应的数据项定义表。数据项定义表的作用主要是定义每个表的表名、表中各字段的名称、数据类型和长度，但在不同数据库，数据类型的表示符号和长度有所差别。该系统的数据项定义表如下：表4-6 管理员基本情况数据项定义表(username)中文列名列 名数据类型长 度允许空编 号bh文 本6姓 名username文 本8密 码password文 本最大性 别xb文 本2表4-7 寝室人员基本情况数据项定义表(jsb)中文列名列 名数据类型长 度允许空寝室名Jsm文 本6寝室长Jsz文 本8寝室人员工1Ry1文 本8寝室人员工2Ry2文 本8寝室人员工3Ry3文 本8寝室人员工4Ry4文 本8寝室人员工5Ry5文 本8寝室人员工6Ry6文 本8表4-8 寝室卫生基本情况数据项定义表(wsb)中文列名列 名数据类型长 度允许空寝室名Jsm文 本6卫生情况Wsqk数 字2评分时间Pfsj日 期8评分人pfry文 本8表4-9 寝室用电基本情况数据项定义表(ydb)中文列名列 名数据类型长 度允许空寝室名Jsm文 本6本月用电Byyd数 字2月份Yf日 期8标准用电bjyd数 字2超额用电ceyd数 字2第5章 详细设计5.1 系统登陆部分系统的登陆部分好比这个系统的门，任何人登陆都需要向系统说明自己的身份，系统确认后此人方可进入，以下就是这一部分的具体实施：（1）每次登陆前首先显示一个图形界面，数据库初始化，一周期时段过后，显示登陆界面。（2）登陆界面，如图5-1，要求管理员选择管理员姓名，管理员姓名是从库中调入，个人输入的其它管理员是无效的，再输入个人编号和密码。为防止他人冒名顶替或管理员重名，这里特地设置编号和密码两项，每个管理员的编号是唯一的，所以不存在重名和密码重复的问题，方便了系统的管理。图5-1登陆界面另外，管理员的姓名、编号、密码必须输入，否则不得进入此系统。如若输入管理员的姓名、编号、密码其中一个为空，则会提醒管理员姓名为空、编码为空或者密码为空，提醒操作员输入数据进行登陆。如若输入管理员的姓名、编号或者密码有误，系统会弹出如5-2图的提示，说明操作员输入有误。例如上图，用户名选择逯梦晗、编号输入0000001、密码输入2，然后按下登陆键，系统就会弹出图5-2的对话框，确定后，又会返回到登陆界面，按取消键就会退出此系统。图5-2 错误提示信息如果输入的准确无误，就能成功进入此系统的主控界面（如图5-3），可以对系统的所有功能进行操作。图5-3系统的主控界面主要实现代码如下：procedure Tf_login.BitBtn1Click(Sender: TObject);beginif trim(combobox1.Text)= then begin showmessage(请输入用户名);combobox1.SetFocus;exit;end;if trim(edit1.Text)= then begin showmessage(请输入编号);edit1.SetFocus ;exit;end;if trim(txtpassword.Text)= then begin showmessage(请输入密码); txtpassword.SetFocus;exit;endelsedata_1.adoquery1.close;data_1.adoquery1.SQL.Clear;data_1.adoquery1.SQL.Add(select * from username where username = +char(39)+trim(combobox1.Text)+char(39)+andpassword=+char(39)+trim(txtpassword.Text)+char(39)+and bh=+char(39)+trim(edit1.Text)+char(39);data_1.adoquery1.Open;if data_1.adoquery1.RecordCount 0 then begins_name:=trim(data_1.adoquery1.fieldbyname(username).AsString );s_mima:=trim(data_1.adoquery1.fieldbyname(password).AsString );s_bh:=trim(data_1.adoquery1.fieldbyname(bh).AsString );s_gb:=yes;f_main.Form3.Show; f_login.Hide ;endelse begin application.MessageBox (你输入的密码不正确,错误);txtpassword.SetFocus ;txtpassword.Text:=;exit;end;end;5.2 访问用户权限系统的用户权限模块是系统的管理员管理部分和系统退出部分，具体实施如下：（1）从用户权限菜单下选择用户管理将弹出如图5-4的界面。如图所示，单击浏览中的某一项，此行所在的所有参数将会自动显示到下面的文本框中，图中当前记录用户编号是000001，用户姓名是逯梦晗，密码1，性别是女，在文本框中是以灰色显示，并非人为输入，单击其它记录也会自动在文本框中显示。此时用户可以做增加新用户、修改、删除和关闭的操作，保存按钮以灰色显示，不可用。用户一旦要增加或修改用户时，保存按钮立即可用，同时增加、修改和删除按钮不可用。按钮的不可用，是因为当前操作并不需要，并非真正删除。选择关闭，则关闭此窗体，退回到系统的主控界面。图5-4 用户管理界面（2）从用户权限菜单下选择系统退出，将会弹出一个确认退出的对话框，选择是则会退出此系统，同时为其设置一个快捷键，方便用户随时随地快捷地退出此系统。主要实现代码如下：Procedure TForm4.e_passwordKeyPress(Sender: TObject; var Key: Char);begin if key=chr(13) then if trim(e_password.Text ) thenbegin c_xb.SetFocus;end else begin showmessage(请输入用户名); e_password.SetFocus ;end;end;procedure TForm4.c_xbKeyPress(Sender: TObject; var Key: Char);begin if key=chr(13) then if trim(c_xb.Text ) then begin b_bc.SetFocus; end else begin showmessage(请选择性别);c_xb.SetFocus ;end;end;procedure TForm4.c_xbSelect(Sender: TObject);begin if trim(c_xb.Text ) then begin b_bc.SetFocus;end else begin showmessage(请选择性别); c_xb.SetFocus ;end; end;procedure TForm4.DBGrid1CellClick(Column: TColumn);var vv:boolean;begin if adoquery1.RecordCount0 then begin vv:=false;s_clear(vv); e_bh.Text:=trim(adoquery1.fieldbyname(bh).AsString); e_user.Text:=trim(adoquery1.fieldbyname(username).AsString);e_password.Text:=trim(adoquery1.fieldbyname(password).AsString);c_xb.Text:=trim(adoquery1.fieldbyname(xb).AsString ); end; end;procedure TForm4.b_scClick(Sender: TObject);var bb:boolean;begin if trim(e_bh.Text) then begin if MessageDlg(你确定删除记录吗？, mtConfirmation, mbYes, mbNo, 0) = mrYes thenbegin adoquery1.Delete ; s_show;showmessage(记录删除完毕！);bb:=false; s_clear(bb);end else exit;endelse showmessage(请选择删除记录); end;5.3 访问浏览与录入系统系统的浏览与录入模块主要是对数据的录入部分，它主要包含了以下几个方面的内容：（1）从浏览与录入系统中选择寝室情况则会出现如图5-5的界面。如图所示，单击浏览中的某一项，此行所在的所有相关信息将会自动显示到下面的文本框中，这些相关信息在文本框中是以灰色显示，并非人为输入，单击其它记录也会自动在文本框中显示。此时用户可以做增加新用户、删除记录的操作，保存按钮和取消按钮以灰色显示，不可用。用户一旦要增加新记录时，保存按钮和取消按钮立即可用，同时增加按钮和删除按钮不可用。按钮的不可用，是因为当前操作并不需要，并非真正删除。增加新记录时，要求所有项必须填齐不允许为空，否则系统会弹出对话框告诉管理员哪一项没有填，待全部填齐后按下保存键会提示是否保存，若检查输入准确无误后按下确定键，管理员所输入的数据将会保存在数据库里，并在浏览窗体中看到新加的信息。图5-5寝室基本情况界面（2）从浏览与录入系统中选择录入卫生与用电情况则会出现如图5-6的界面。如图所示，单击浏览中的某一项，此行所在的所有相关信息将会自动显示到下面的文本框中，这些相关信息在文本框中是以灰色显示，并非人为输入，单击其它记录也会自动在文本框中显示。此时用户可以做增加新用户、删除记录的操作，保存按钮和取消按钮以灰色显示，不可用。用户一旦要增加新记录时，保存按钮和取消按钮立即可用，同时增加按钮和删除按钮不可用。按钮的不可用，是因为当前操作并不需要，并非真正删除。增加新记录时，如图5-7，系统将会在评分时间项的文本框中自动显示出当前的时间，免去人工查找输入的麻烦，其它项要求必须填齐不允许为空，否则系统会弹出对话框告诉管理员哪一项没有填，待全部填齐后按下保存键会提示是否保存，若检查输入准确无误后按下确定键，管理员所输入的数据将会保存在数据库里，并在浏览窗体中看到新加的信息。图5-6 录入显示卫生与用电界面图5-7录入显示卫生与用电情况新增状态界面主要实现代码如下：Begin if trim(