DELPHI学生公寓管理信息系统

1、学生公寓管理信息系统摘要在各高校扩大招生的形势下,公寓管理的工作变得越来越繁重。采用传统的人工管理模式，效率低下，不能满足实际的需求。本文描述的是基于Windows环境的学生公寓管理系统，对学生公寓管理的需求进行了分析。本系统的主要功能包括：住宿人员的信息查询、出入登记、学生收费、以及对学生住宿情况的查询，可以更快地知道每个学生的住宿情况，使公寓的管理效率更高。系统的设计与开发采用效劳器/客户机的系统结构模式，使用Delphi开发工具开发，应用SQL Server2000数据库管理系统，通过ADO连接数据库。本篇论文以一个学生公寓管理系统的分析、设计和开发的全过程为主线，给出了学生公寓管理系统

2、的设计和技术实现的过程，特别在细节上分析功能和函数的实现思想。涉及到学生公寓管理的根本功能在本论文中都有相应的描述。关键字：Delphi，ADO，SQL Server2000，学生公寓管理STUDENT APARTMENT MANAGEMENTABSTRACTIn the last few years in company with university institution deepening reformation, in many universities student apartments administration work take charge all by logisti

3、cs group. In university enlarged recruit students posture, apartment administration became more and more pettiness. And conventional manual supervising pattern is inefficiency and insatiability for practical wants and needs, connect database through ADO.The architecture of system is client and serve

4、r. The Windows based DM system developed by Delphi and SQL server2000 database tools. This thesis analyzes the requirements of organization and configuration. It mainly includes: The lodgings personnel information inquiry, the difference registration, the students fee, as well the situation to the s

5、tudent and so on the inquiry, may quickly understand each students lodgings situation, causes the apartment the management efficiency high, dose it better.This thesis fully describes the whole process of system design and application details. All most functions of apartment administration are discus

6、sed in the corresponding part of this thesis.Key words: Delphi, ADO, SQL Server2000, Student Apartment management目录第一章引言1课题背景1研究与应用现状1本文的主要内容1第二章相关技术介绍22.1 Delphi22.1.1 Delphi特点22.1.2 Delphi722.1.3 Delphi与VB32.2 SQL Server32.2.1 SQL Server 200032.2.2 SQL Server 2000的特点32.3 ADO技术4第三章需求分析5需求分析5学生公寓需求简

7、介5功能性需求53.1.3 非功能性需求5可行性分析5经济可行性5技术可行性6第四章总体设计7总体设计目标7功能模块设计7数据库设计8数据流分析8数据建模11各实体关系模型11数据库逻辑结构设计13第五章系统详细设计16系统工程框架16学生公寓管理系统的模块：165.1.2 Data 数据模块165.1.3 Common 类模块16系统各模块详细设计17登录窗体与系统主界面设计17楼房管理模块设计19寝室管理模块设计22学生根本信息管理模块26来访登记管理模块设计27交费管理模块设计30系统管理模块设计32第六章学生公寓管理系统设计总结34系统的优点34系统的局限性34毕业设计心得346.4

8、毕业设计总结35参考文献36致谢37第一章 引言21世纪，人类已全面进入数字信息化社会，现在信息技术的应用越来越普及，不但促进了社会的高速开展，也影响着人们的工作、学习、生活和娱乐的方式以及思想观念。随着科学技术的不断提高，计算机科学与技术日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域，迅速地改变着人类社会的生产方式和生活方式，成为减轻人们体力与脑力劳动，帮助人们完成一些人们难以完成任务的有效工具。随着电脑的普及与使用，现在的管理也提升了一个档次，渐渐实现了无纸化办公。高校是科研的阵地，后勤的公寓管理也应该一改传统的人工管理，更加信息化，时代化，节省人力物力，提高效率。基于

9、这一点，开发此学生公寓管理系统。课题背景高校公寓管理部门在宿管工作中担负着管理，检查，收费，协调等重要的管理任务。住宿安排、水电使用的收费、外来人员访问管理等，所涉及的管理面广，内容多，整个公寓管理的工作量很大。计算机的应用为实现公寓管理科学化奠定根底。计算机的应用推动了公寓管理工作向着正规化、科学化、自动化、现代化的方向开展。学生公寓管理系统从学生的分房到最后的公寓管理全部电脑化。本系统主要包括：住宿人员信息查询、出入登记、收费以及对学生住宿情况等的查询，可以更快地了解到每个学生的住宿情况以及这个学校寝室分配的情况。使用学生公寓管理系统，只需一到两名数据操作员即可操作管理系统，节省大量人力和

10、财力；可以存储大量学生住宿的根本信息，平安、高效、快捷；可以迅速查到所涉及的各种信息；操作简单，使用方便、高效；系统使用寿命长、本钱低。这些特点可以极大地提高公寓信息管理的效率。据调查显示，现在国内绝大多数学校的学生公寓管理还没有信息化，主要还是停留在手工管理的形式。这样，公寓管理的效率就非常低，需要的人力，物力也非常多，所以，尽快开发一套适合各高校的学生公寓管理系统是非常必要的。本文研究的主要内容有：l 学生公寓管理系统的需求分析l 学生公寓管理系统开发的相关技术l 学生公寓管理系统的总体设计l 系统数据库的概念设计l 系统各模块的详细设计l 系统评价以及设计中碰到的难点第二章 相关技术介绍

11、开发数据库管理信息系统需要两种工具，即前台开发语言和后台数据库。本系统前台开发技术使用Delphi，后台数据库使用SQL Server2000。Delphi灵活方便，与后台的SQL Server2000数据库相结合，可以提供一个高性能的学生公寓管理系统。 DelphiDelphi是Pascal语言的一种版本，但它与传统的Pascal语言有很大差异。一个Delphi程序首先应是程序框架Frame，而这一框架正式应用程序的“骨架。在骨架上即使没有附着任何东西，仍然可以运行。所要做的工作只是在“骨架中参加程序。缺省的应用程序是一个空白的窗体Form，运行可以得到一个空白的窗口。这个窗口具有Windo

12、ws窗口的全部性质，可以被放大缩小、移动、最大最小化等。程序框架及一个空白的窗体已经是一个可运行应用程序，只是不处理任何事情。 Delphi特点Delphi自从1995年2月诞生以来，获得了巨大的荣誉和广泛的影响力，以可视化编程、强大的编译功能、友好的用户界面闻名于世。主要特点是：l 高效的可视化组件库和面向对象的架构。l 具有多种操作向导和在线帮助，大大方便程序编写。l 界面设计所见即所得和鼠标拖曳方式，可以轻松设计出华美的界面。l 支持各种最新及最常用的技术如 Win32 API、OLE、COM、DCOM、ActiveX、ISAPI、NSAPI、DirectX等。l 全面支持Windows

13、 应用程序。l 具有开放式数据库结构，集成了丰富的数据库开发工具。l 具有强大的面向网络编程功能，其C/S开发工具在高性能的快速应用程序开发领域成为行业标准。Delphi产品按照功能可以分为4个类型：l Delphi集成开发环境Integrate Develop Environment：提供友好的用户编程开发界面，集成了高效的编译器、工程管理器、团队开发支持、高级调试等功能。l Delphi可视化组件库Visual Component Library：提供几百个常用组件，用于数据库访问、用户接口、数据处理、报表和Internet开发。l Borland数据引擎Borland Data Engi

14、neer：能够进行数据库管理，并与数据库效劳器高速连接。l MIDAS：是一个集成与Delphi的分布式应用稽核，功能强大，主要用于商业逻辑的智能集中管理和企业交易的快速处理。 Delphi72002年8月6日，Borland公司正式宣布推出Delphi 7 Studio，全面支持Microsoft公司.NET平台应用的开发。Delphi7是一个针对Windows平台上的跨平台快速开发RAD环境。Delphi7的一个显著特性是企业开发和部署。 Delphi7的新特点：l 企业应用的MDA开发：通过让开发者从设计到发布都重复使用一个应用程序，加速开发进程，同时显著减少代码量和需要的开发时间。l

15、可视化的快速Web开发：让开发者能够在Delphi7环境中可视化地创立Web应用，并且利用它的应用模型框架，不必再考虑通用的效劳器端的开发任务，还能透明地处理会话管理。l 内建的Linux的跨平台支持：Delphi7在出售时将附带Delphi语言版本的Dylix3。Kylix3是第一个Linux操作系统上的高性能的可视化集成开发环境IDE，它适用来快速创立数据库应用、GUI应用、Web应用和Web效劳应用。l 企业级的报表能力：让开发者能创立跨平台的报表，这些报表能帮助查看应用程序运行的效率。l Windows XP应用：Delphi7包含了对Windows XP风格支持，让开发者能够创立可以

16、利用Windows XP 使用者界面风格的应用。 Delphi与VBVisual BasicVB是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。它源自于BASIC编程语言。VB拥有图形用户界面GUI和快速应用程序开发RAD系统，可以使用DAO、RDO、ADO连接数据库，或者创立ActiveX控件。本系统采用Delphi进行开发，主要原因：l VB不支持面向对象，Delphi却是面向对象的。l VB无法编译原生目标文件，而Delphi可以。l VB无法对底层操作，而Delphi可以。l VB有依赖性，即用VB作的程序换别的操作系统还要重新包装，Delphi那么不用。l VB没有类库，D

17、elphi的类库很多，还可以继承。 SQL Server 数据库是数据管理的最新技术，是计算机科学的重要分支。今天，信息资源已成为各个部门的重要财富和资源。建立一个满足各级部门信息处理要求的行之有效的信息系统也成为企业或组织生存和开展的重要条件。因此，作为信息系统核心和根底的数据库技术得到越来越广泛的应用。对于一个国家来说，数据库的建设规模、数据库信息量的大小和使用频度已成为衡量一个国家信息化程度的重要标志。 SQL Server 2000SQL Server 2000 是一个高性能的客户端/效劳器结构的关系数据库管理系统。SQL SERVER 2000是为支持高容量的事务处理以及数据仓库和决

18、策支持系统而设计的。它是Microsoft 公司推出的，该版本继承了SQL Serve 7.0 版本的优点，同时又比它增加了许多更先进的功能，可跨越从运行Microsoft Windows 98 的电脑到运行Microsoft Windows 2000 的大型多处理器的效劳器等多种平台使用。 SQL Server 2000的特点l 简单易操作：SQL Server 2000 界面风格和Windows界面风格完全一致。l 兼容性良好，具有扩展性，可靠性。l 数据仓库： SQL Server 2000增加了OLAP功能。OLAP可以通过多维存储技术对大型、复杂数据集执行快速、高级的分析工作。数据挖

19、掘功能能够揭示隐藏在大量数据中的倾向及趋势，它允许组织或机构最大限度地从数据中获取价值。通过对现有数据进行有效分析，这一功能可以对未来的趋势进行预测。2.3 ADO技术 ADO( Active Data Objects )是一种提供访问各种数据类型的链接机制，是通过ODBC的方法访问数据库的接口。ADO主要优点是易于使用、高速度、低内存支出和占用磁盘空间较少，同时具有远程数据效劳(RDS)功能。在Delphi中，提供了一组ADO组件，用于对ADO访问能力的支持。第三章 需求分析 需求分析 学生公寓需求简介学生公寓管理应考虑以下几方面的要求： 用户需求：可以对学生公寓进行有效的管理，包括公寓信息

20、、寝室信息、学生住宿资料以及交费信息等。学生方面：让学生感觉到学校的管理透明。学校方面：可以查询每一个学生的相关信息。来访人员方面：为防止公寓平安，所有来访人员必须提供学生住宿的公寓号和寝室号才可以进入公寓。功能性需求软件需求分析是指对目标软件系统在功能、行为、性能、设计约束等方面的期望。需求分析是软件设计、实现测试直至维护的主要根底，良好的需求分析可以防止或尽早提出早期的错误，从而降低软件的开发本钱，改良软件的质量。本学生公寓管理系统应完成以下任务：l 学生寝室根本信息管理：首先统一安排学生入住，如果有学生要更换寝室，可以方便查到哪个寝室还有空床，包括该寝室内已住学生的根本信息，安排入住。l

21、 学生公寓管理：可以添加新建公寓的信息，以及添加该公寓内的寝室信息，以及修改公寓和寝室的相关信息公寓号和寝室号。l 寝室收费管理：收费以寝室为单位，当费用收好以后，可以打印报表以查看交费记录。l 来访人员管理：对来访人员进行严格登记，包括来访时间，结束时间，来访人员的来访事由，能查询到每一条来访人员和被访人的信息。 非功能性需求用户界面需求：简洁、易用、易懂，友好的用户界面。硬件需求：Pentium以上计算机可靠性需求：保证用户在正常使用本系统时，用户的操作或误操作不会产生数据丧失。平安保密性需求：用户登录需要密码验证。开发任何一个系统，都会受到时间和资源上的限制。因此，在每一个工程开发之前，

22、都要进行可行性分析，以减少工程的开发风险，防止人力，物力和财力的浪费。可行性分析主要包括经济可行性和技术可行性等。经济可行性经济可行性，主要是针对一个学校的，开发系统的本钱与收益相比拟。如今是信息化时代，信息化管理可以使学生公寓管理更加系统化，全面化、快速化，这样可以为学校带来高校的工作效益和经济效益，开发出本系统可以减少公寓管理人员人数，而且管理方便，各功能实现快速，数据有效的管理。这些效益和管理上的便捷远远超过了开发本系统的本钱，所以在经济上具有完全的可行性。技术可行性本系统开发工具是Delphi和SQL Server2000。Delphi具有可视化界面，是一种面向对象的语言，简单易学而且

23、灵活方便，SQL Server 2000是一个平安、可靠的并且支持面向对象设计的数据库系统。易用性和可维护性也很好。在大二期间，就已学过SQL Server2000。所以，学生公寓管理总体上开发难度不高，技术上具有完全的可行性。数据库的设计和操作是本系统设计的核心。在大学期间曾经学习过软件工程，也以四人一组完成过有关的大作业，具备一定的系统分析与设计能力，熟悉数据的设计与操纵。因此，本系统的实现在技术上是可行的。第四章 总体设计 l 减少公寓管理人员大量繁琐的工作。公寓管理人员通过使用本系统，可以随时根据需要，查询公寓、寝室、来访人员、交费等信息，对学生公寓管理系统中的数据进行录入、添加、删除

24、和查询，并可以根据特定条件对数据进行查询。l 减少学校在学生公寓管理方面的人力和物力的投资。学生公寓管理系统功能强大、操作简单，拥有友好的易额面，适用于各类学校的学生公寓管理。 系统功能模块包括：如图4-1l 公寓管理：包括公寓楼房管理和寝室管理。对学校的公寓以及公寓里的寝室进行管理，处理包括数据的添加、修改、删除、查询等。l 学生管理：包括学生根本信息管理和学生交费管理。对学生入住寝室信息和学生根本信息的管理以及以寝室为单位的收费管理，包括对数据的添加、修改、删除、查询等。l 来访人员登记管理：公寓登记信息的处理，为维护公寓的平安，对来访人员有严格的审查，以及对登记信息的处理。l 系统管理和

25、维护：包括修改口令，添加用户等。学生公寓管理信息系统系统管理学生管理学生根本信息管理公寓管理来访登记管理学生交费管理公寓楼房管理公寓寝室管理针对各模块不同的表实现添加记录、修改记录、删除记录以及查询显示记录等功能图4-1学生公寓管理系统功能模块图数据流分析数据流图是结构化系统分析的根本工具。一个数据流图确定了系统的转化过程、系统所操纵的数据或物质的收集存储，还有过程、存储、外部世界之间的数据流或物质流。数据流图技术是可以扩充到允许实时系统的建模。数据流图是当前业务过程或新系统操作步骤的一种表示方法。数据流图可以在一个抽象的广泛范围内表示系统。在一个多步骤的活动中，高层数据流图对数据和处理局部提

26、供一个整体的统览，这是对包含在软件需求规格说明中的精确、详细表达的补充。数据流图描述了软件需求规格说明中的功能需求怎样结合在一起，使用户可以执行指定的任务。从图中迅速反应的信息有助于对所探讨的任务流的理解进行提炼加工。学生公寓管理系统的第一层数据流图(如图4-2)，本数据流图描述了学生公寓系统的各个模块处理过程中的数据处理的过程。宿管科公寓管理寝室管理来访人员管理收费管理寝室信息寝室信息公寓信息收费信息来访人员信息公寓信息来访人员登记信息收费信息图4-2学生公寓管理系统第一层数据流图 公寓管理中的数据处理图是本系统的第二层数路流图如图4-3,描述了在公寓管理中所作操作的数据处理。宿管科删除处理

27、添加处理修改处理拆迁的公寓添加新建公寓修改的公寓公寓根本信息图4-3公寓管理模块书录流图 寝室管理数据流程图如图4-4，描述了用户在添加、删除、查询寝室信息时的数据处理过程。宿管科添加处理删除处理查询处理删除毕业生或离校生信息寝室信息图4-4寝室管理模块数据流图 来访人员管理数据流图如图4-5，描述了在来访人员访问学生时，用户所作操作的数据处理过程。宿管科来访信息添加来访人员信息查询处理删除处理图4-5来访人员管理数据流图 学生交费管理数据流图如图4-6，描述了学生交费与宿管科收费处理过程中的数据处理过程。宿管科添加交费工程交费学生交费信息查询处理报表打印图4-6学生交费管理数据流图数据建模模

28、型是软件的第一个技术表示。信息系统的建模是用模型来描述复杂的信息系统，使得系统的要求、结构和数据变得简单。设计者通过描述用户的需求获得与用户的不断交互，最终对整个系统能全面地把握。建立完整的数据模型，完成对信息系统中数据的存储和处理。学生公寓管理系统比拟复杂，为了建立这样一个复杂系统的模型，并满足实际对象不断开展的需求，在实际设计中应遵循以下原那么：l 准确性：所建立的模型要求能够正确反映实际的对象，能够满足学生公寓管理工作的实际需求。·l 完整性：指要求模型既能反映对象系统的静态特性，同时能够反映其丰富的动态特性。l 一致性：要求建立的模型能保证从分析阶段到设计阶段的平稳过渡。各实

29、体关系模型经过分析，由上面的数据流程图可以得出以下各实体之间的E-R图，如图3-7至3-9公寓管理管理员mn寝室组成1n图3-7公寓E-R图公寓寝室公寓公寓公寓nm11n1所属组成拥有n图3-8寝室E-R图床位寝室公寓住宿拥有组成1nnm1n学生来访人nmm1访问管理员管理交费mn图3-9公寓管理E-R图 4.3.4数据库逻辑结构设计 根本定义： 主键：在表中是唯一不可重复的值。具有索引的作用，可以用来快速查询表内数据。 外键：有此表的列或列的组合和其他表的主键值或UNIQUE_KEY具有相关联的特性。此时，可以将这些列或列组合定义为外键。 索引：建立索引是为了加快查询速度的有效手段。用户可以

30、根据应用环境的需求，在根本表上建立一个或多个索引，以提供多种存取路径，加快查找速度。 视图：从一个或几个根本表或视图导出的表，它与根本表不同，是一个虚表。 学生公寓系统的数据库包含以下表：表4-1：根本表表名类型说明操作员信息根本表保存系统用户的帐号和密码公寓信息根本表保存公寓信息寝室信息根本表保存寝室的根本信息学生信息根本表保存寝室学生的根本信息来访信息根本表保存公寓来访人员的根本信息交费信息根本表保存交费记录的信息价格表根本表保存交费种类的信息表4-2：操作员信息字段名称数据类型长度说明idint4编号，主键操作员IDnvarchar10允许空操作员姓名nvarchar10允许空密码nva

31、rchar10允许空权限char6允许空备注nvarchar50允许空表4-3：公寓信息字段名称数据类型长度说明idint4记录编号，不允许空公寓号nvarchar10公寓楼编号，主键楼层数int4允许空房间数int4允许空启用时间smalldatetime4允许空备注nvarchar50允许空表4-4：寝室信息字段名称数据类型长度说明idint4记录编号，主键寝室号nvarchar10允许空可住人数int4允许空住宿费用float8允许空 nvarchar10允许空公寓号nvarchar10允许空备注nvarchar50允许空表4-5：学生信息字段名称数据类型长度说明idint4记录编号，不

32、允许空学号nvarchar30学生学号，主键姓名nvarchar20允许空性别char2允许空出生日期smalldatetime4允许空专业nvarchar20允许空班级nvarchar20允许空联系方式nvarchar20允许空公寓号nvarchar10允许空寝室号nvarchar10允许空备注nvarchar50允许空表4-6：来访信息字段名称数据类型长度说明idint4记录编号，主键来访人姓名nvarchar10允许空人数int4允许空被访者姓名nvarchar10允许空所属关系nvarchar10允许空来访时间smalldatetime4允许空结束时间smalldatetime4允许空

33、事由nvarchar50允许空值班人nvarchar10允许空表4-7：交费信息字段名称数据类型长度说明idint4编号，主键公寓号nvarchar10允许空寝室号nvarchar10允许空交费时间smalldatetime4允许空交费类型nvarchar10允许空金额float8允许空备注nvarchar50允许空表4-8：价格表字段名称数据类型长度说明idint4编号，主键工程nvarchar10允许空价格float8允许空收费方式nvarchar10允许空第五章 系统详细设计 系统工程框架主要简介了学生公寓系统各模块,并对数据模块Data和公共类模块Common作了详细的说明，并且介绍了

34、相应的实例。5学生公寓管理系统的模块：l Data：提供数据访问支持模块。l Common：提供程序中需要的数据实体模块。l Fee：学生交费管理模块。l House：公寓信息管理模块。l Operator：操作员管理模块。l Student：学生根本信息管理模块。5 Data 数据模块学生公寓管理系统的数据库连接管理在Data模块中的Config.pas中，定义了数据库连接字符串connectionStr来改变连接，代码如下：const/连接字符串connectionStr='Provider=SQLOLEDB.1;'+'Password=sa;Persist Sec

35、urity 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 Common 类

36、模块在程序中，为每一张表定义了一个类。存放在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系统各模块详细设计登录窗体与系统主界面设计.1登录窗体设计登录

37、窗体命名为 frm_login。如图5-1图5-1 登录窗体登录窗体的主要功能是验证用户是否合法，其验证用户的主要流程如图5-2：开始是否输入用户名和密码把用户名和密码赋值给变量用户名是否存在用户名与密码是否匹配登录成功是否失败3次否退出程序是否否否是是是图5-2 登录窗体流程图登录窗体进行身份验证，在用户输入完用户名和密码之后,程序会将用户名和密码与数据库中的数据进行比对，用户登录的时机为3次，如果连续3次密码错误，系统会自动关闭，变量inputNum来记录输入错误密码的次数，其初始值为零。登录窗体在主窗体之前弹出，以确保程序平安性，代码如下：procedure TFrm_main.Form

38、Create(Sender: TObject);var frm_login:Tfrm_login;beginfrm_login:=Tfrm_login.Create(self); /创立登录窗体frm_login.ShowModal;end;系统主界面设计主窗体命名为Frm_main。主窗体由主菜单和工具按钮组成。如图5-3图5-3系统主界面主窗体画面简洁明了,外观大方,表达出了程序的易操作性.用户可以根据自己的需求，通过菜单来使用程序的各项功能，工具栏按钮那么提供了用户一些常用的功能，让用户可以更加快速，简单地进行操作,为了使程序更加美观，本系统使用了vclskin。Vclsk

39、in是Delphi的控件，可以对Delphi程序进行换肤功能。特点：操作简单，不需修改源代码，可以直接美化程序。拥有大量高质量的皮肤。通过vclskin这个控件，对程序的所有窗体的外观以及按钮进行了美化。5.2.3楼房管理模块设计楼房管理模块主要功能l 添加公寓楼房记录。l 编辑公寓楼房信息。l 删除公寓楼房记录。l 查询公寓楼房信息。设计功能界面的父窗体由于本系统中，楼房管理、寝室管理、学生根本信息管理、交费管理和来访人员登记管理等在功能和界面上都十分相似，所以对上述功能模块的界面进行泛化，得到一个父窗体类，以便以后各功能模块的继承。在父窗体中，主要设计了添加、删

40、除、修改等按钮的根本功能，该父窗体名称为frm_info。添加按钮当用户单击窗体中的“添加按钮时，程序会进入添加状态，令原“删除按钮显示为“确定，“修改按钮显示为“取消，“添加按钮不显示。对应代码如下：procedure Tfrm_info.btn_addClick(Sender: TObject);beginif self.btn_add.Caption='添加' then begin self.btn_del.Caption:='确定' self.btn_edit.Caption:='取消' self.btn_add.Visible:=fal

41、se; end;end;修改按钮当用户单击窗体中的“修改按钮时，当程序处于修改状态，即“修改按钮显示为“修改，原“删除按钮显示为“保存，“修改显示为“取消，“添加按钮不显示；当程序处于保存状态时，即修改按钮显示为“取消时，要取消操作恢复按钮原有显示。对应代码如下：procedure Tfrm_info.btn_editClick(Sender: TObject);beginif self.btn_edit.Caption='修改' then begin self.btn_del.Caption:='保存' self.btn_edit.Caption:='

42、取消' self.btn_add.Visible:=false; endelse begin if self.btn_edit.Caption='取消' then begin self.btn_add.Visible:=true; self.btn_del.Caption:='删除' self.btn_edit.Caption:='修改' end; end;end;删除按钮当用户单击窗体中的“删除按钮时，当程序处于添加或修改的状态，即“删除按钮显示为“确定或“保存时，需要恢复按钮原有显示。对应的代码如下： procedure Tfrm_i

43、nfo.btn_delClick(Sender: TObject);beginif(self.btn_del.Caption ='确定') or (self.btn_del.Caption ='保存')then begin self.btn_add.Visible:=true; self.btn_del.Caption:='删除' self.btn_edit.Caption:='修改' end;end;父窗体里的按钮没有实际功能，只是对一些数据的根本的操作添加、修改、删除的按钮相互之间的作用、关系做了编写。父窗体的设计主要是给其他

44、窗体继承用的，因此里面编写了最根本的按钮的代码，这样在建立其他窗体的时候，可以不用编写同样的代码，而且风格也得到了统一。楼房管理窗体设计楼房管理窗体命名为frm_house，继承了父窗体frm_info如图5-4图5-4楼房管理窗体添加按钮当用户单击“添加按钮时，程序会将公寓楼号等文本框清空，以便用户可以输入新的信息，对应代码如下： procedure Tfrm_house.btn_addClick(Sender: TObject);begin inherited; /继承父窗体 self.edt_houseNo.Tag:=0; self.edt_houseNo.Text :=&

45、#39;' self.edt_floorNum.Text :='' self.DTP_begin.Date:=strtodate('1980-1-1'); self.edt_roomNum.Text :='' self.Memo_remark.Text :='' self.edt_houseNo.SetFocus;end;修改按钮当用户单击“修改按钮时，“公寓楼号不能为空，否那么将弹出提示框提示“没有可以修改的数据！，对应的代码如下：procedure Tfrm_house.btn_editClick(Sender: TO

46、bject);begin if self.btn_edit.Caption='修改' then begin if edt_houseNo.Text ='' then begin MessageBox(Handle, '没有可以修改的数据！', '信息', MB_ICONEXCLAMATION); exit; end else begin self.edt_houseNo.SetFocus;/公寓楼号文本框获得焦点 end; end; inherited;end;删除按钮当用户点击“删除按钮并且显示为“删除时，程序将删除选中的公寓信

47、息；当显示为“保存时，程序将修改的公寓信息保存到数据库中；当显示为“确定时，程序将新添加的信息保存到数据库中。在“删除按钮显示为“保存和“确定，即要把数据写入到数据库时，为了保证数据的完整性，程序会检测公寓楼号，楼层数，房间数是否填写，如果用户遗忘了上面任何一一项，程序都会自动弹出信息框，表示填写信息不正确：if(edt_houseNo.Text='') or (edt_floorNum.Text='') or (edt_roomNum.Text='') then begin MessageBox(Handle, '内容填写不正确！

48、9;, '信息', MB_ICONEXCLAMATION); exit; end;在把数据写入到数据库的时候，程序还会检查公寓楼号是否重复，如果重复，那么操作不成功，会弹出信息框提醒用户：House:=THouse.Create; House:=GetHouseByHouseNo(trim(edt_houseNo.Text); if(House<>nil) then begin if(House.id<>edt_houseNo.Tag) then begin MessageBox(Handle, '公寓号已经存在,请重新设置！', 

49、9;信息', MB_ICONEXCLAMATION); exit; end; end;检查是否重复SQL代码如下：ADOQuery:=TADOQuery.Create(nil); sql:='select id,公寓号,楼层数,房间数,启用时间,备注 from 公寓信息 where 公寓号='+ ''''+HouseNo+'''' ADOQuery:=DAHelper.ExeSqlQuery(sql); if(ADOQuery.RecordCount<1) then begin result:=nil

50、; end在窗体被创立的时候，程序会自动调用函数填充数据，函数名为Filldata，函数会调用sql语句来显示数据。5.2.4寝室管理模块设计寝室管理模块主要功能l 添加寝室记录。l 编辑寝室信息。l 删除寝室记录。l 查找寝室信息。l 统计各寝室空床数。寝室管理窗体设计寝室管理窗体命名为frm_room如图5-5图5-5寝室管理窗体本窗体也继承了父窗体frm_info。寝室管理窗体可以根据公寓号和寝室号来查询相关寝室的信息。在“删除按钮显示为“确定或“保存时，程序会检测公寓号，寝室号，可住人数和住宿费用四个工程是否填写完整，如果有其中一项用户忘记填写，程序会弹出信

51、息对话框，提醒用户，对应代码如下：if(edt_roomNo.Text='') or (edt_capability.Text='') or (edt_fee.Text='') or (self.cbx_houseNo.Text='') then begin MessageBox(Handle, '内容填写不正确！', '信息', MB_ICONEXCLAMATION); exit; end;在把寝室号填入到数据库中去，程序会通过寝室信息表查找相同公寓内的寝室号是否存在相同，如果相同那么会提醒用户，

52、因为不允许在同一幢公寓里有2个寝室的寝室号是相同的。本窗体有公寓号下拉框combobox，此下拉框中的数据是用公寓信息表中的数据进行填充的，代码如下：procedure Tfrm_room.FillHouseID;var ADOQuery:TADOQuery;begin ADOQuery:=TADOQuery.Create(nil); /创立空数据集 ADOQuery:=Control_houseU.GetHouseArray; /得到公寓信息数据集 /判断数据集是否为空，假设空那么退出 if ADOQuery.RecordCount<1 then begin ADOQuery:=nil

53、; exit; end; self.cbx_houseNo.Items.Clear; /将数据集中的内容循环写入ComboBox while(not ADOQuery.Eof) do begin self.cbx_houseNo.Items.Add(ADOQuery.FieldValues'公寓号'); ADOQuery.Next; end; self.cbx_houseNo.ItemIndex:=0; ADOQuery:=nil;end;在输入条件时，在“公寓号下拉框中选择公寓楼号或者“全部，寝室管理窗体内将显示相应所有寝室的信息；每次在“公寓号下拉框中选择，程序都会调用显示寝室信息的函数，用来显示相应的信息。“查找用来查找特定寝室信息，所以在单击“查找按钮时，程序上方的寝室号文本框中必须填入要查找的寝室号，否那么程序会弹出信息“请输入相应的寝室号，在“寝室号中输入寝室号，单击“查找，就可以显示该寝室信息。根据不同的需要，定义了不动的函数来显示数据/