使用Deilphi和SQLServer的宿舍管理系统 计算机专业毕业设计 毕业论文.doc

说 明本系统是一个使用Deilphi和SQLServer的宿舍管理系统，这次的毕业设计是三人一组合作完成的，每个人所做的内容不同。目录摘要 .1关键字.1第一章引言21.1课题背景21.2研究与应用现状21.3本文的主要内容2第二章相关技术介绍32.1 Delphi32.1.1 Delphi特点32.1.2 Delphi732.1.3 Delphi与VB42.2 SQL Server42.2.1 SQL Server 200042.2.2 SQL Server 2000的特点42.3 ADO技术5第三章需求分析63.1需求分析63.1.1学生公寓需求简介63.1.2功能性需求63.1.3 非功能性需求63.2可行性分析63.2.1经济可行性63.2.2技术可行性7第四章总体设计84.1总体设计目标84.2功能模块设计84.3数据库设计94.3.1数据流分析94.3.2数据建模124.3.3各实体关系模型124.3.4数据库逻辑结构设计14第五章系统详细设计175.1系统工程框架175.1.1学生公寓管理系统的模块：175.1.2 Data 数据模块175.1.3 Common 类模块175.2系统各窗体详细设计185.2.1登录窗体设计185.2.2系统主界面窗体设计195.2.3楼房登记窗体设计205.2.4宿舍管理窗体设计225.2.5学生信息录入窗体设计235.2.6入楼登记窗体设计255.2.7宿舍查询窗体设计26 5.2.8用户管理窗体设计 . 28第六章学生公寓管理系统设计总结316.1系统的优点316.2系统的局限性316.3毕业设计心得316.4 毕业设计总结31参考文献32摘要在各高校扩大招生的形势下,公寓管理的工作变得越来越繁重。采用传统的人工管理模式，效率低下，不能满足实际的需求。本文描述的是基于Windows环境的学生公寓管理系统，对学生公寓管理的需求进行了分析。本系统的主要功能包括：住宿人员的信息查询、出入登记、学生收费、以及对学生住宿情况的查询，可以更快地知道每个学生的住宿情况，使公寓的管理效率更高。系统的设计与开发采用服务器/客户机的系统结构模式，使用Delphi开发工具开发，应用SQL Server2000数据库管理系统，通过ADO连接数据库。本篇论文以一个学生公寓管理系统的分析、设计和开发的全过程为主线，给出了学生公寓管理系统的设计和技术实现的过程，特别在细节上分析功能和函数的实现思想。涉及到学生公寓管理的基本功能在本论文中都有相应的描述。关键字：Delphi，ADO，SQL Server2000，学生公寓管理第一章 引言21世纪，人类已全面进入数字信息化社会，现在信息技术的应用越来越普及，不但促进了社会的高速发展，也影响着人们的工作、学习、生活和娱乐的方式以及思想观念。随着科学技术的不断提高，计算机科学与技术日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域，迅速地改变着人类社会的生产方式和生活方式，成为减轻人们体力与脑力劳动，帮助人们完成一些人们难以完成任务的有效工具。随着电脑的普及与使用，现在的管理也提升了一个档次，渐渐实现了无纸化办公。高校是科研的阵地，后勤的公寓管理也应该一改传统的人工管理，更加信息化，时代化，节省人力物力，提高效率。基于这一点，开发此学生公寓管理系统。1.1课题背景高校公寓管理部门在宿管工作中担负着管理，检查，收费，协调等重要的管理任务。住宿安排、水电使用的收费、外来人员访问管理等，所涉及的管理面广，内容多，整个公寓管理的工作量很大。计算机的应用为实现公寓管理科学化奠定基础。计算机的应用推动了公寓管理工作向着正规化、科学化、自动化、现代化的方向发展。学生公寓管理系统从学生的分房到最后的公寓管理全部电脑化。本系统主要包括：住宿人员信息查询、出入登记、收费以及对学生住宿情况等的查询，可以更快地了解到每个学生的住宿情况以及这个学校寝室分配的情况。使用学生公寓管理系统，只需一到两名数据操作员即可操作管理系统，节省大量人力和财力；可以存储大量学生住宿的基本信息，安全、高效、快捷；可以迅速查到所涉及的各种信息；操作简单，使用方便、高效；系统使用寿命长、成本低。这些特点可以极大地提高公寓信息管理的效率。1.2研究与应用现状据调查显示，现在国内绝大多数学校的学生公寓管理还没有信息化，主要还是停留在手工管理的形式。这样，公寓管理的效率就非常低，需要的人力，物力也非常多，所以，尽快开发一套适合各高校的学生公寓管理系统是非常必要的。1.3本文的主要内容本文研究的主要内容有：l 学生公寓管理系统的需求分析l 学生公寓管理系统开发的相关技术l 学生公寓管理系统的总体设计l 系统数据库的概念设计l 系统各模块的详细设计l 系统评价以及设计中碰到的难点第二章 相关技术介绍开发数据库管理信息系统需要两种工具，即前台开发语言和后台数据库。本系统前台开发技术使用Delphi，后台数据库使用SQL Server2000。Delphi灵活方便，与后台的SQL Server2000数据库相结合，可以提供一个高性能的学生公寓管理系统。2.1 DelphiDelphi是Pascal语言的一种版本，但它与传统的Pascal语言有很大差别。一个Delphi程序首先应是程序框架（Frame），而这一框架正式应用程序的“骨架”。在骨架上即使没有附着任何东西，仍然可以运行。所要做的工作只是在“骨架”中加入程序。缺省的应用程序是一个空白的窗体（Form），运行可以得到一个空白的窗口。这个窗口具有Windows窗口的全部性质，可以被放大缩小、移动、最大最小化等。程序框架及一个空白的窗体已经是一个可运行应用程序，只是不处理任何事情。2.1.1 Delphi特点Delphi自从1995年2月诞生以来，获得了巨大的荣誉和广泛的影响力，以可视化编程、强大的编译功能、友好的用户界面闻名于世。主要特点是：l 高效的可视化组件库和面向对象的架构。l 具有多种操作向导和在线帮助，大大方便程序编写。l 界面设计所见即所得和鼠标拖曳方式，可以轻松设计出华丽的界面。l 支持各种最新及最常用的技术如 Win32 API、OLE、COM、DCOM、ActiveX、ISAPI、NSAPI、DirectX等。l 全面支持Windows 应用程序。l 具有开放式数据库结构，集成了丰富的数据库开发工具。l 具有强大的面向网络编程功能，其C/S开发工具在高性能的快速应用程序开发领域成为行业标准。Delphi产品按照功能可以分为4个类型：l Delphi集成开发环境（Integrate Develop Environment）：提供友好的用户编程开发界面，集成了高效的编译器、项目管理器、团队开发支持、高级调试等功能。l Delphi可视化组件库（Visual Component Library）：提供几百个常用组件，用于数据库访问、用户接口、数据处理、报表和Internet开发。l Borland数据引擎（Borland Data Engineer）：能够进行数据库管理，并与数据库服务器高速连接。l MIDAS：是一个集成与Delphi的分布式应用稽核，功能强大，主要用于商业逻辑的智能集中管理和企业交易的快速处理。2.1.2 Delphi72002年8月6日，Borland公司正式宣布推出Delphi 7 Studio，全面支持Microsoft公司.NET平台应用的开发。Delphi7是一个针对Windows平台上的跨平台快速开发（RAD）环境。Delphi7的一个显著特性是企业开发和部署。 Delphi7的新特点：l 企业应用的MDA开发：通过让开发者从设计到发布都重复使用一个应用程序，加速开发进程，同时显著减少代码量和需要的开发时间。l 可视化的快速Web开发：让开发者能够在Delphi7环境中可视化地创建Web应用，并且利用它的应用模型框架，不必再考虑通用的服务器端的开发任务，还能透明地处理会话管理。l 内建的Linux的跨平台支持：Delphi7在出售时将附带Delphi语言版本的Dylix3。Kylix3是第一个Linux操作系统上的高性能的可视化集成开发环境（IDE），它适用来快速创建数据库应用、GUI应用、Web应用和Web服务应用。l 企业级的报表能力：让开发者能创建跨平台的报表，这些报表能帮助查看应用程序运行的效率。l Windows XP应用：Delphi7包含了对Windows XP风格支持，让开发者能够创建可以利用Windows XP 使用者界面风格的应用。 2.1.3 Delphi与VBVisual Basic（VB）是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以使用DAO、RDO、ADO连接数据库，或者创建ActiveX控件。本系统采用Delphi进行开发，主要原因：l VB不支持面向对象，Delphi却是面向对象的。l VB无法编译原生目标文件，而Delphi可以。l VB无法对底层操作，而Delphi可以。l VB有依赖性，即用VB作的程序换别的操作系统还要重新包装，Delphi则不用。l VB没有类库，Delphi的类库很多，还可以继承。 2.2 SQL Server 数据库是数据管理的最新技术，是计算机科学的重要分支。今天，信息资源已成为各个部门的重要财富和资源。建立一个满足各级部门信息处理要求的行之有效的信息系统也成为企业或组织生存和发展的重要条件。因此，作为信息系统核心和基础的数据库技术得到越来越广泛的应用。对于一个国家来说，数据库的建设规模、数据库信息量的大小和使用频度已成为衡量一个国家信息化程度的重要标志。 2.2.1 SQL Server 2005SQL Server 2005 是一个高性能的客户端/服务器结构的关系数据库管理系统。SQL SERVER 2000是为支持高容量的事务处理以及数据仓库和决策支持系统而设计的。它是Microsoft 公司推出的，该版本继承了SQL Serve 7.0 版本的优点，同时又比它增加了许多更先进的功能，可跨越从运行Microsoft Windows 98 的电脑到运行Microsoft Windows 2000 的大型多处理器的服务器等多种平台使用。2.2.2 SQL Server 2000的特点l 简单易操作：SQL Server 2000 界面风格和Windows界面风格完全一致。l 兼容性良好，具有扩展性，可靠性。l 数据仓库： SQL Server 2000增加了OLAP功能。OLAP可以通过多维存储技术对大型、复杂数据集执行快速、高级的分析工作。数据挖掘功能能够揭示隐藏在大量数据中的倾向及趋势，它允许组织或机构最大限度地从数据中获取价值。通过对现有数据进行有效分析，这一功能可以对未来的趋势进行预测。2.3 ADO技术 ADO( Active Data Objects )是一种提供访问各种数据类型的链接机制，是通过ODBC的方法访问数据库的接口。ADO主要优点是易于使用、高速度、低内存支出和占用磁盘空间较少，同时具有远程数据服务(RDS)功能。在Delphi中，提供了一组ADO组件，用于对ADO访问能力的支持。第三章 需求分析 3.1需求分析 3.1.1学生公寓需求简介学生公寓管理应考虑以下几方面的要求： 用户需求：可以对学生公寓进行有效的管理，包括公寓信息、寝室信息、学生住宿资料以及交费信息等。学生方面：让学生感觉到学校的管理透明。学校方面：可以查询每一个学生的相关信息。来访人员方面：为防止公寓安全，所有来访人员必须提供学生住宿的公寓号和寝室号才可以进入公寓。3.1.2功能性需求软件需求分析是指对目标软件系统在功能、行为、性能、设计约束等方面的期望。需求分析是软件设计、实现测试直至维护的主要基础，良好的需求分析可以避免或尽早提出早期的错误，从而降低软件的开发成本，改进软件的质量。本学生公寓管理系统应完成以下任务：l 学生寝室基本信息管理：首先统一安排学生入住，如果有学生要更换寝室，可以方便查到哪个寝室还有空床，包括该寝室内已住学生的基本信息，安排入住。l 学生公寓管理：可以添加新建公寓的信息，以及添加该公寓内的寝室信息，以及修改公寓和寝室的相关信息（公寓号和寝室号）。l 寝室收费管理：收费以寝室为单位，当费用收好以后，可以打印报表以查看交费记录。l 来访人员管理：对来访人员进行严格登记，包括来访时间，结束时间，来访人员的来访事由，能查询到每一条来访人员和被访人的信息。3.1.3 非功能性需求用户界面需求：简洁、易用、易懂，友好的用户界面。硬件需求：Pentium以上计算机可靠性需求：保证用户在正常使用本系统时，用户的操作或误操作不会产生数据丢失。安全保密性需求：用户登录需要密码验证。3.2可行性分析开发任何一个系统，都会受到时间和资源上的限制。因此，在每一个项目开发之前，都要进行可行性分析，以减少项目的开发风险，避免人力，物力和财力的浪费。可行性分析主要包括经济可行性和技术可行性等。3.2.1经济可行性经济可行性，主要是针对一个学校的，开发系统的成本与收益相比较。如今是信息化时代，信息化管理可以使学生公寓管理更加系统化，全面化、快速化，这样可以为学校带来高校的工作效益和经济效益，开发出本系统可以减少公寓管理人员人数，而且管理方便，各功能实现快速，数据有效的管理。这些效益和管理上的便捷远远超过了开发本系统的成本，所以在经济上具有完全的可行性。3.2.2技术可行性本系统开发工具是Delphi和SQL Server2000。Delphi具有可视化界面，是一种面向对象的语言，简单易学而且灵活方便，SQL Server 2000是一个安全、可靠的并且支持面向对象设计的数据库系统。易用性和可维护性也很好。在大二期间，就已学过SQL Server2000。所以，学生公寓管理总体上开发难度不高，技术上具有完全的可行性。数据库的设计和操作是本系统设计的核心。在大学期间曾经学习过软件工程，也以四人一组完成过有关的大作业，具备一定的系统分析与设计能力，熟悉数据的设计与操纵。因此，本系统的实现在技术上是可行的。第四章 总体设计 4.1总体设计目标l 减少公寓管理人员大量繁琐的工作。公寓管理人员通过使用本系统，可以随时根据需要，查询公寓、寝室、来访人员、交费等信息，对学生公寓管理系统中的数据进行录入、添加、删除和查询，并可以根据特定条件对数据进行查询。l 减少学校在学生公寓管理方面的人力和物力的投资。学生公寓管理系统功能强大、操作简单，拥有友好的易额面，适用于各类学校的学生公寓管理。4.2功能模块设计 系统功能模块包括：l 公寓管理：包括公寓楼房管理和寝室管理。对学校的公寓以及公寓里的寝室进行管理，处理包括数据的添加、修改、删除、查询等。l 学生管理：包括学生基本信息管理和学生交费管理。对学生入住寝室信息和学生基本信息的管理以及以寝室为单位的收费管理，包括对数据的添加、修改、删除、查询等。l 来访人员登记管理：公寓登记信息的处理，为维护公寓的安全，对来访人员有严格的审查，以及对登记信息的处理。l 系统管理和维护：包括修改口令，添加用户等。学生公寓管理信息系统系统管理学生管理学生基本信息管理宿舍管理来访管理学生交费管理公寓楼房管理公寓寝室管理针对各模块不同的表实现添加记录、修改记录、删除记录以及查询显示记录等功能查询管理4.3数据库设计4.3.1数据流分析数据流图是结构化系统分析的基本工具。一个数据流图确定了系统的转化过程、系统所操纵的数据或物质的收集（存储），还有过程、存储、外部世界之间的数据流或物质流。数据流图技术是可以扩充到允许实时系统的建模。数据流图是当前业务过程或新系统操作步骤的一种表示方法。数据流图可以在一个抽象的广泛范围内表示系统。在一个多步骤的活动中，高层数据流图对数据和处理部分提供一个整体的统览，这是对包含在软件需求规格说明中的精确、详细叙述的补充。数据流图描述了软件需求规格说明中的功能需求怎样结合在一起，使用户可以执行指定的任务。从图中迅速反馈的信息有助于对所探讨的任务流的理解进行提炼加工。学生公寓管理系统的第一层数据流图，本数据流图描述了学生公寓系统的各个模块处理过程中的数据处理的过程。宿管科公寓管理寝室管理来访人员管理收费管理寝室信息寝室信息公寓信息收费信息来访人员信息公寓信息来访人员登记信息收费信息 公寓管理中的数据处理图是本系统的第二层数路流图,描述了在公寓管理中所作操作的数据处理。宿管科删除处理添加处理修改处理拆迁的公寓添加新建公寓修改的公寓公寓基本信息 寝室管理数据流程图，描述了用户在添加、删除、查询寝室信息时的数据处理过程。宿管科添加处理删除处理查询处理删除毕业生或离校生信息寝室信息 来访人员管理数据流图，描述了在来访人员访问学生时，用户所作操作的数据处理过程。宿管科来访信息添加来访人员信息查询处理删除处理 学生交费管理数据流图，描述了学生交费与宿管科收费处理过程中的数据处理过程。宿管科添加交费项目交费学生交费信息查询处理4.3.2数据建模模型是软件的第一个技术表示。信息系统的建模是用模型来描述复杂的信息系统，使得系统的要求、结构和数据变得简单。设计者通过描述用户的需求获得与用户的不断交互，最终对整个系统能全面地把握。建立完整的数据模型，完成对信息系统中数据的存储和处理。学生公寓管理系统比较复杂，为了建立这样一个复杂系统的模型，并满足实际对象不断发展的需求，在实际设计中应遵循下列原则：l 准确性：所建立的模型要求能够正确反映实际的对象，能够满足学生公寓管理工作的实际需求。l 完整性：指要求模型既能反映对象系统的静态特性，同时能够反映其丰富的动态特性。l 一致性：要求建立的模型能保证从分析阶段到设计阶段的平稳过渡。4.3.3各实体关系模型经过分析，由上面的数据流程图可以得出以下各实体之间的E-R图，公寓管理管理员mn寝室组成1n公寓寝室公寓公寓公寓nm11n1所属组成拥有n床位寝室公寓住宿拥有组成1nnm1n学生来访人nmm1访问管理员管理交费mn 4.3.4数据库逻辑结构设计 基本定义： 主键：在表中是唯一不可重复的值。具有索引的作用，可以用来快速查询表内数据。 外键：有此表的列或列的组合和其他表的主键值或UNIQUE_KEY具有相关联的特性。此时，可以将这些列或列组合定义为外键。 索引：建立索引是为了加快查询速度的有效手段。用户可以根据应用环境的需求，在基本表上建立一个或多个索引，以提供多种存取路径，加快查找速度。 视图：从一个或几个基本表（或视图）导出的表，它与基本表不同，是一个虚表。 学生公寓系统的数据库包含以下表：基本表表名类型说明admin基本表保存系统用户的帐号和密码出楼管理基本表保存公寓信息来访管理基本表保存寝室的基本信息每日情况基本表保存寝室学生的基本信息宿舍管理基本表保存公寓来访人员的基本信息宿舍评分基本表保存交费记录的信息宿舍信息基本表保存交费种类的信息学生信息基本表保存学生的各种信息员工信息基本表保存员工的各种信息Admin表字段名称数据类型长度说明adminvarchar8记录编号，主键passvarchar8不允许空出楼管理表字段名称数据类型长度说明学号char12记录编号，不允许空班级varchar8允许空宿舍号varchar20允许空出楼货物nchar10允许空值班人员varchar8允许空出楼日期nvarchar20允许空出楼时间nvarchar20允许空备注nchar50允许空来访管理表字段名称数据类型长度说明被访人姓名varchar8允许空来访人姓名varchar8允许空所属关系nchar10允许空宿舍号varchar20允许空值班人员varchar8允许空证件名称varchar8允许空证件号码varchar20允许空来访日期nvarchar20允许空来访时间nvarchar20允许空结束时间nvarchar20允许空备注varchar50允许空每日情况表字段名称数据类型长度说明宿舍号varchar20记录编号，不允许空日期nvarchar20允许空学号char12允许空晚归varchar4允许空不归varchar4允许空熄灯varchar4允许空备注varchar50允许空宿舍管理表字段名称数据类型长度说明楼房号varchar5记录编号，主键楼层数varchar3允许空开始宿舍varchar4允许空结束宿舍varchar4允许空房间价格varchar8允许空入住人数varchar4允许空宿舍评分表字段名称数据类型长度说明宿舍号varchar20记录编号，主键评分nchar10允许空年份nchar10允许空周次nchar10允许空宿舍信息表字段名称数据类型长度说明宿舍号varchar20记录编号，主键应住人数char10允许空已住人数char10允许空居住性别rchar2允许空价格money允许空状态char10允许空电话char12允许空备注nvarchar50允许空学生信息表字段名称数据类型长度说明学号char12记录编号，主键姓名varchar8允许空性别char2允许空系部varchar20允许空班别varchar20允许空电话char12允许空宿舍号varchar20允许空床位char2允许空出生日期nvarchar20允许空入住年份nvarchar20允许空备注nchar50允许空员工管理表字段名称数据类型长度说明工号char10记录编号，主键姓名varchar8允许空性别char2允许空电话char12允许空出生日期nvarchar20允许空手机char12允许空家庭地址varchar20允许空备注nchar50允许空第五章 系统详细设计 5.1系统工程框架 系统工程框架主要简介了学生公寓系统各模块,并对数据模块和公共类模块作了详细的说明。5.1.1学生公寓管理系统的模块：l 提供数据访问支持模块。l 提供程序中需要的数据实体模块。l 系统管理模块。l 宿舍管理管理模块。l 学生管理模块。l 来访管理模块。l 查询管理模块l 帮助模块5.1.2 DATA数据模块学生公寓管理系统的数据库连接管理在Data1模块中的Config.pas中，定义了数据库连接字符串connectionStr来改变连接，代码如下：const/连接字符串connectionStr=Provider=SQLOLEDB.1;+Password=sa;Persist Security Info=True; +User ID=sa;Initial Catalog=xsgy;+Data Source=(local);在Data模块中，将程序中所有对数据的操作进行了有效的封装，设计出了2个函数：/执行没有返回值的sql语句,如果正确执行则返回true,否则返回falsefunction ExeSqlNoQuery(sql:string):boolean;/ 执行有返回值的sql语句,返回得到的ADOQuery;function ExeSqlQuery(sql:string):TADOQuery; 5.1.3 Common 类模块在程序中，为每一张表定义了一个类。存放在Common目录下，类的成员变量与对应表中的字段名相同，并在后面加了注释。例如Tstudent 类的定义：/学生信息type TStudent=class id:integer; stdNo:string;/学号 stdName:string;/姓名 sex:string;/性别 birthday:string;/出生日期 subject:string;/专业 classes:string;/班级 HouseNo:string;/公寓号 roomNo:string;/寝室号 end;5.2系统各窗体详细设计5.2.1.登录窗体设计登录窗体命名为 frm_login。登录窗体的主要功能是验证用户是否合法，其验证用户的主要流程如下：开始是否输入用户名和密码把用户名和密码赋值给变量用户名是否存在用户名与密码是否匹配登录成功是否失败3次否退出程序是否否否是是是登录窗体进行身份验证，在用户输入完用户名和密码之后,程序会将用户名和密码与数据库中的数据进行比对，用户登录的机会为3次，如果连续3次密码错误，系统会自动关闭，变量inputNum来记录输入错误密码的次数，其初始值为零。登录窗体在主窗体之前弹出，以确保程序安全性，代码如下：procedure TFrm_main.FormCreate(Sender: TObject);var frm_login:Tfrm_login;beginfrm_login:=Tfrm_login.Create(self); /创建登录窗体frm_login.ShowModal;end;5.2.2系统主界面设计主界面窗体命名为Frm_main。主界面窗体由主菜单和工具按钮组成。主界面窗体画面简洁明了,外观大方,体现出了程序的易操作性用户可以根据自己的需求，通过菜单来使用程序的各项功能，工具栏按钮则提供了用户一些常用的功能，让用户可以更加快速，简单地进行操作,为了使程序更加美观，本系统使用了vclskin。Vclskin是Delphi的控件，可以对Delphi程序进行换肤功能。特点：操作简单，不需修改源代码，可以直接美化程序。拥有大量高质量的皮肤。通过vclskin这个控件，对程序的所有窗体的外观以及按钮进行了美化。5.2.3楼房登记窗体设计楼房登记窗体命名为frm_lfdj。添加按钮当用户单击“添加”按钮时，程序会将文本框清空，以便用户可以输入新的信息，对应代码如下： procedure Tfrm_lfdj.Button1Click(Sender: TObject);beginif Edit1.Text = thenbegin MessageBox(handle,楼房号不能为空!,警告,MB_OK+MB_ICONWARNING); Edit1.SetFocus ; exit;end;if Edit2.Text = thenbegin MessageBox(handle,楼层数不能为空!,警告,MB_OK+MB_ICONWARNING); Edit2.SetFocus ; exit;end;if Edit3.Text = thenbegin MessageBox(handle,开始房间不能为空!,警告,MB_OK+MB_ICONWARNING); Edit3.SetFocus ; exit;end;if Edit4.Text = thenbegin MessageBox(handle,结束房间不能为空!,警告,MB_OK+MB_ICONWARNING); Edit4.SetFocus ; exit;end;if Edit5.Text = thenbegin MessageBox(handle,房间价格不能为空!,警告,MB_OK+MB_ICONWARNING); Edit5.SetFocus ; exit;end;if Edit6.Text = thenbegin MessageBox(handle,入住人数不能为空!,警告,MB_OK+MB_ICONWARNING); Edit6.SetFocus ; exit;end;取消按钮当用户单击“取消”按钮时，整个界面退出。对应的代码如下：procedure Tfrm_lfdj.Button2Click(Sender: TObject);beginclose;end;5.2.4.宿舍信息窗体设计宿舍信息窗体命名为frm_ssxx。寝室信息窗体可以添加相关寝室的信息。当点击“添加”按钮时可以对宿舍信息进行添加，对应代码如下：procedure Tfrm_ssxx.Button1Click(Sender: TObject);beginif Edit1.Text = thenbegin MessageBox(handle,宿舍号不能为空!,警告,MB_OK+MB_ICONWARNING); Edit1.SetFocus ; exit;end;if combobox1.Text = thenbegin MessageBox(handle,楼房号不能为空!,警告,MB_OK+MB_ICONWARNING); combobox1.SetFocus ; exit;end;if combobox3.Text = thenbegin MessageBox(handle,应住人数不能为空!,警告,MB_OK+MB_ICONWARNING); combobox3.SetFocus ; exit;end;try with data1.ADO_ssxx do begin close; sql.Clear; sql.Add(insert 宿舍信息 values (:a,:b,:c,:d,:e,:f,:g,:h); parameters.ParamByName(a).Value:=trim(combobox1.Text) + - +trim(edit1.Text); parameters.ParamByName(b).Value:=trim(combobox3.Text); parameters.ParamByName(c).Value:=; parameters.ParamByName(d).Value:=trim(combobox5.Text); parameters.ParamByName(e).Value:=trim(combobox2.Text); parameters.ParamByName(f).Value:=trim(combobox4.Text); parameters.ParamByName(g).Value:=trim(edit6.Text); parameters.ParamByName(h).Value:=trim(memo1.Text); execsql; end; application.MessageBox(添加成功,提示,64);except application.MessageBox(添加失败,提示,64);end;end;当点击“取消”按钮时，界面退出，对应代码如下：procedure Tfrm_ssxx.Button2Click(Sender: TObject);beginclose;end;5.2.5学生信息录入窗体设计学生录入窗体命名为frm_jbxxlr。该窗体主要是进行学生信息的录入，当点击“添加”按钮时可以进行信息的录入。对应代码如下： procedure Tfrm_jbxxlr.Button1Click(Sender: TObject);beginif Edit1.Text = thenbegin MessageBox(handle,学号不能为空!,警告,MB_OK+MB_ICONWARNING); Edit1.SetFocus ; exit;end;if Edit2.Text = thenbegin MessageBox(handle,姓名不能为空!,警告,MB_OK+MB_ICONWARNING); Edit2.SetFocus ; exit;end;if combobox3.Text = thenbegin MessageBox(handle,宿舍号不能为空!,警告,MB_OK+MB_ICONWARNING); combobox3.SetFocus ; exit;end;try with data1.ADO_stu do begin close; sql.Clear; sql.Add(insert 学生信息 values (:a,:b,:c,:d,:e,:f,:g,:h,:i,:j,:k); parameters.ParamByName(a).Value:=trim(edit1.Text); parameters.ParamByName(b).Value:=trim(edit2.Text); parameters.ParamByName(c).Value:=trim(combobox1.Text); parameters.ParamByName(d).Value:=trim(combobox2.Text); parameters.ParamByName(e).Value:=trim(edit3.Text); parameters.ParamByName(f).Value:=trim(edit4.Text); parameters.ParamByName(g).Value:=trim(combobox3.Text); parameters.ParamByName(h).Value:=trim(combobox4.Text); parameters.ParamByName(i).Value:=strtodate(maskedit1.Text); parameters.ParamByName(j).Value:=strtodate(maskedit2.Text); parameters.ParamByName(k).Value:=trim(memo1.Text); execsql; end; application.MessageBox(添加成功,提示,64);except application.MessageBox(添加失败，检查信息是否存在或正确,失败,64);end;end;procedure Tfrm_jbxxlr.Edit1KeyPress(Sender: TObject; var Key: Char);beginif not(key in0.9,#8)thenbegin key:=#0; application.MessageBox(学号只能为数字,提示,64);end;end;当点击“取消”时，退出界面。对应代码如下：procedure Tfrm_jbxxlr.Button2Click(Sender: TObject);beginclose;end;5.2.6入楼登记窗体设计入楼登记窗体命名为frm_rldj。5.2.7宿舍查询窗体设计宿舍查询窗体命名为frm_c_ss。此个窗体只要是对宿舍进行查询、修改和删除等功能。进行查询是代码如下：procedure Tfrm_c_ss.Button1Click(Sender: TObject);begin with data1.ADO_public do begin close; sql.Clear; sql.Add()end;进行修改时代码如下：procedure Tfrm_c_ss.ToolButton1Click(Sender: TObject);begintry with data1.ADO_ssxx do begin edit; fieldbyname(宿舍号).Value:=trim(edit1.Text); fieldbyname(价格).Value:=trim(edit2.Text); fieldbyname(应住人数).Value:=trim(edit3.Text); fieldbyname(状态).Value:=trim(edit4.Text); fieldbyname(居住性别).Value:=trim(edit5.Text); fieldbyname(电话).Value:=trim(edit6.Text); fieldbyname(备注).Value:=trim(memo1.Text); post; end; application.MessageBox(修改成功,提示,64);except application.MessageBox(修改失败,提示,64);end;end;进行删除时代码如下：procedure Tfrm_c_ss.ToolButton3Click(Sender: TObject);begin if messagebox(self.Handle,真的要删除吗？,提示,mb_yesno+mb_iconquestio