大学宿舍管理系统解析

大学宿舍管理系统分析大学宿舍管理系统分析78/78大学宿舍管理系统分析高校宿舍管理系统河套大学宿舍管理系统纲要高校学生宿舍管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和保护以及前端应用程序的开发两个方面。对于后台数据库的建立和保护要求建立起数据一致性、完满性强、数据安全性好的库。而对于前端应用程序的开发则要求应用程序能供应富强的数据控制功能，界面友好、使用简单方便等特点。我们使用VisualBasic6.0和SQLServer2000数据库为开发工具,VisualBasic6.0是简单合用的面向数据库开发工具,同时它供应的集成开发环境及面向对象各样标准化控件,利于对数据库和数据表的直接操作和办理，提高了编程效率和可靠性。别的经过ASP为一般学生开发一个简单盘问界面，赞同学生经过阅读器盘问与学生个人亲近相关的宿舍管理信息以及与宿舍中心进行信息交流。过去的手工纪录的宿舍管理方式已经不能够适应高速发展的信息化时代，新的宿舍管理系统开发出来此后，学校的现有的宿舍信息管理将有很大的改观，由过去的人工方式转变成计算机方式，由效率低、数据冗余、易产生错误转变成检索迅速、查找方便、可靠性高、储藏量大。这些优点能够极大地提高效率,也是学校科学化、正规化管理的重要条件。要点词：宿舍管理系统；数据库；第1页高校宿舍管理系统第一章项目背景与需求分析1．1项目背景近几年，随着国家教育政策的调整和完满，我国高等院校大面积扩招，给宿舍管理带来了不小的冲击，要使学生拥有一个好的学习环境和生活氛围，是每一所高校都必定面对的重要工作。河套大学是一所综合性大学，学校下设人文学部、理工部、农牧科学系、外语系、数学与计算机系等。2003年起学校与邻省区进行对口交流招生整合后的河套大学当前拥有各样在校生13000多人，学生公寓8栋。宿舍管理系统对于一个学校来说是必不能少的组成部分。当前学校还停留在宿舍管理人员手工记录数据的最初阶段，手工记录对于规模小的学校来说还勉强能够接受，但对于这样的综合性大学由于学生信息量比较弘大，需要记录存档的数据比很多的高校来说，人工记录是相当麻烦的。而且当查找某条记录时，由于数据量弘大，还只能靠人工一条条的查找，这样不仅麻烦还浪费了好多时间，效率也比较低。现在社会是飞速进步的世界，原始的记录方式已经被社会所裁汰了，计算机化管理正是适应时代的产物。信息世界永远不会是一个宁静的世界，当一种技术不能够满足需求时，就会有新的技术出生并取代旧技术。21世纪的今天,信息社会占着主流地位，计算机在各行各业中的运用已经获取普及，自动化、信息化的管理越来越广泛应用于各个领域。我们针对这样，设计了一套学生宿舍管理系统。学生宿舍管理系统采用的是计算机化管理，系统做的尽量人性化，使用者会感觉操作特别方便，管理人员需要做的就是将数据输入到系统的数据库中去。由于数据库储藏容量相当大，而且比较牢固，适合较长时间的保存，也不简单扔掉。这无疑是为信息储藏量比较大的学校供应了一个方便、快捷的操作方式。本系统拥有运行速度快、安全性高、牢固性好的优点，能够迅速的盘问学校所需的住宿信息。1．2功能需求1．2．1基本功能需求基于学校的宿舍管理采用的还是人工来进行管理的,为了适应学校发展的实质情况，我经过实地调研此后，以为实现学生宿舍管理系统在设计时应尽可能的贴近学生便于学生用户操作，系统在实现上应拥有入相功能：（1）系统实现用户身份认证并对登录取户的操作权限分级管理。（2）系统应供应学生入学的注册、基本信息的录入。第2页高校宿舍管理系统（3）系统应供应宿舍基本情况的录入。（4）系统应供应学生住宿情况的基本登记。（5）系统应供应学生退宿情况的办理。（6）系统还应拥有基本的盘问功能。（7）系统不但供应管理部门对宿舍管理信息的盘问功能，还应供应一般学生经过Internet盘问宿舍基础信息的功能。1．2．2用户界面需求学生宿舍管理系统应供应简单、层次关系了然、清楚的操作界面，使用户如数家珍。尽可能的为用户的录入、盘问等功能操作供应方便。快捷按钮的创办也是特别需要的，以方便用户操作。1．3性能需求1．3．1系统安全性学生宿舍管理系统中的增加用户、学生学期注册、学生毕业离校等模块都是和学生住宿费相联系在一起的，所以在系统的管理权限上应该进行严格控制，详细思想以下：（1）要想对该学生宿舍管理系统进行操作就应该拥有某些操作权限。没有权限的用户将不能够经过任何渠道来登录该系统，查察该系统的任何信息和数据，以保证系统的严实性和安全性。（2）在上述要求基础上，程序开始运行全部功能将是不履行用的，只适用户登录窗口能够使用，没有正确的用户名和密码任何人都不能够登录该系统。（3）在详细实现时还应为各用户设定不同样的权限，系统管理员应该能够使用系统的全部模块，一般用户只能阅读系统中的宿舍及学生基本信息。（4）在系统开始试运行后，需要采用必然的技术手段对内部用户的接见和外面用户接见进行划分，采用必然的措施，严格控制Internet的用户的操作权限。第二章宿舍管理系统的系统规划2．1系统规划规划，一般是对较长久间的活动进行整体的、全面的计划。由于管理系统的建设耗资巨大，历时较长，技术复杂且涉及面广，系统规划第3页高校宿舍管理系统是这一工作的初步间段。这项工作的利害直接影响到整个系统建设的成败，为了提高规划工作的科学性和有效性应注意以下要点问题：（1）战略计划是中心（2）解决问题的有效性是要点（3）应变能力是系统成功的要点问题之一，也是当前系统建设与应用的瓶颈问题。（4）人、管理、技术应协调发展，三者之间相互当合、相互促进，以加速系统的建设进度。2．2管理信息系统理论宿舍管理系统是典型的信息管理系统（MIS），需要MIS的基本理论的指导，基于此，我们回顾一下MIS的基本理论。2．2．1管理信息系统的归纳管理信息系统是一个由人和计算机组成的能进行管理信息的收集、传达、加工、保存、保护和使用的系统。它能实测公民经济和企业的各样运行情况；管理信息系统利用历史数据展望将来；从全局出发协助管理决策；利用信息控制企业的行为，帮助实现其规划目标。管理信息系统是以计算为主要手段办理信息，重申信息办理的系统性、综合性，不仅需求在事物办理上高效率，而且更重申对各级管理决策的有效支持，管理信息系统的建立，为各级管理决策供应了信息支持，从根本上改进了管理人员的劳动条件和工作性质，是管理手段现代化的重要标志。2．2．2管理信息系统的特点管理信息系统的特点可归纳为：数据集中一致，采用数据库数据模型的应用有展望和控制能力面向决策管理信息系统是一门新的学科，它引用其他学科如管理学与工程经济理论、统计学、运筹学以及计算机科学等多学科的见解和方法，交融成为一门新的综合性、边缘性的学科。第4页高校宿舍管理系统2．2．3管理信息系统开发的基本方法用系统工程的方法开发管理信息系统的详细方法有生命周期法、原型法、面向对象开发方法和CASE方法等多种。（1）生命周期法所谓生命周期法，就是依照料理信息生命周期的见解，严格地依照系统生命周期的各个过程和步骤去开发系统。即分为五个阶段：系统分析、系统设计、系统推行、系统运行、系统保护阶段。对于大系统或系统开发缺少经验的情况，采用生命周期法能够立足全局，步步为营，减少返工，有利于提高开发质量，加速工程进度。生命周期法的不足之处是系统的开发周期太长，有时系统开发尚在开发过程之中，而内外环境已有所变化，对系统的要求也发生了变化。（2）原型法原型法的基本思想是：开发者和用户在系统的主要需求上获取一致建议后，由开发者很快开发出一个初步的原型系统，尔后经过用户使用和谈论，提出改进建议，屡次更正、扩展和完满，直到形成一个相对牢固的系统。原型法能充分发挥用户的积极性，能提前发现开发中出现的问题，所以系统的合用性较高，原型法主要用于以下一些场合：用户早先难以说明需求的较小的应用系统；决策支持系统；与生命周期法结合起来使用，即整体上仍使用生命周期法，而仅对其中功能独立的模块采用原型法。（3）面向对象法面向对象法是一种认识问题和解决问题的思想方法，它把客观世界看作是由好多不同样的对象组成。在面向对象的系统中，我们把系统中全部资源（如系统、数据、模块）都看作是对象，每一对象都有自己的运动规律和内部状态。不同样对象间的相互联系和相互作用组成一个完满的客观世界。（4）计算机协助系统开发法（CASE法）计算机协助系统开发方法是运用计算机软件工具协助系统开发的一种方法。由于当前宿舍管理还处于手工管理阶段，管理水平还比较低，要求宿管部门的工作人员一次性地供应完满的需求确实存在困难，经过认真分析，我决定采用第5页高校宿舍管理系统原型法开发。即先很快建立一个系统的原型，让用户认识它、使用它、熟悉它、更正它、谈论它，不断的满足用户提出的新的需求，进一步完满和提高系统地综合性能。自然本系统的开发设计过程仍严格遵守生命周期法的开发相关规范。第三章宿舍管理系统的系统分析3．1系统初步检查系统初步检查是系统分析阶段的第一项活动，其主要目标就是从系统分析人员和管理人员的角度看新项目开发的可能性和必要性。河套大学作为一所综合性大学，当前学校下设多个院系，特别近来几年来与邻省区进行对口交流招生后，生源大量增加，学生住宿管理问题引起了校领导及主管学生住宿的宿管部门的重视。现在学校宿舍管理主要依赖于手工管理方式，它存在着好多弊端，如学生开学入住登记繁琐且简单出错；数据冗余现象严重；盘问不方便等。为了完满这方面的管理，经多次与校领导及宿舍管理负责人的谈论，我决定为河套大学开发一个宿舍管理系统，以此来改进现有的管理模式，使学校各方面的管理向着系统化、科学化迈进。3．2开发方式选择面对当前的学生入学情况及校内现有的硬件资源，校领导对学生宿舍管理能够做出以下三种计划安排：（1）连续采用当前的手工管理方式，需要再聘用几个生活老师加强对学生及宿舍的管理。（2）购买市场上已有宿舍管理系统，一般来说能够帮助人们在某些环节上达成一些简单的、重复性的工作。（3）自己开发一个宿舍管理系统，依照学校自己情况明确目标，开发适合自己的系统。对于第一种显然是个不能行的，那样既不能减少学校的支出也不能够够改进学校宿舍管理制度，过去工作中的弊端和问题仍没有获取根本的改变和解决。对于第二种购买理论上是可行的，但存在着这样一些问题，第一购买现有的软件是比较昂贵的；其次购买到真切满足学校需求、适应学校环境的软件是十分困难的；最后购买来的软件是作用和可靠程度一般都不尽如人意，所以经过多次检查谈论后我决定借毕业设计的机遇为学校开发一个宿舍管理系统。自己开发软件目注明确、吻合需求、便于进一步扩大和升级。所以，自行开发为自己所用的，第6页高校宿舍管理系统合用于学校这一特定应用范围的，只支持宿舍管理这一局部功能的软件是学校最正确的选择。3．3系统开发的可行性分析与谈论可行性研究是系统分析阶段的第二项活动，其主要目标是进一步确定系统目标、规模与功能，对系统开发背景、必要性和意义进行检查分析并依照需要和可能提出开发系统的初步方案与计划。下面，我从三个方面对河套大学宿舍管理系统的可行性进行分析。（1）技术可行性：技术上的可行性要考虑将来采用的硬件和软件技术可否满足用户提出的要求。基于当前的计算机网络技术和数据技术已成熟，而且管理信息系统（MIS）的各样开发技术也已经相看作熟，而且在各个领域都不乏成熟的案例。所以为河套大学开发一套网络平台的多用户共享信息的宿舍管理系统在技术上是可行的。（2）经济可行性：经济可行性主若是对项目的经济效益进行谈论。当前，河套大学已建立了校园网络系统，具备了运行网络平台的MIS的硬件基础，而且本系统是我作为毕业设计自行开发，免费帮助设计并推行的。所以开发、设计这套系统的支出花销是学校能够肩负的，即经济上是可行的。（3）运营可行性：宿舍管理系统的开发不会影响学校其他职能部门的正常运行。现有的生活部负责人及生活老师素质比较高，所以宿舍管理系统的推行不会碰到阻力，加上校领导的支持和其他各部分的配合，宿舍管理系统的推行在运营上是可行的。3．4系统详细检查系统详细检查的目标是在可行性研究的基础进步一步对现有系统进行全面、深入的检查和分析，弄清楚现行系统的运行情况发现其单薄环节，找出要解决的问题的实质，保证新系统比原系统更有效。经过详细检查，学校现有在校学生13000多人，宿舍楼8座，男女生各4座。当前，宿舍管理工作完满靠生活部老师手工达成。学生注册后，入住管理都是手工方式进行。由生活部老师依照学生的专业及到校的先后次序依次安排入住。学生的基本记录，以及安排入住后的相关资料也由生活老师手工登记，这使的生活部工作量很大，而且宿舍推行一致标准的管理，也不能够满足学生及家长的住宿要求，这些问题都亟待解决。所以，即使当前全部宿舍都是一致的6人间标准，由于完满采用手工管理，生活部的老师已经特别辛苦。而且随着多层次、多等级标准宿舍的出现，手工方式的管理已经完满不能够适应管理工作的需要。第7页高校宿舍管理系统3．5系统逻辑模型的提出这一阶段是系统分析的最后一项活动，目标是明确用户的信息需求，确定新系统的逻辑功能，提出新系统的逻辑方案。经过初步检查及详细检查后发现原有的手工管理方式不能够满足学校现在的管理要求，学校将采用新的管理方式，对学生宿舍推行公寓化管理，将现有的宿舍化分为三个标准：2人间、4人间和6人间，各样标准的公寓内部设施各不同样，相应的住宿费也不同样。学生报到后持缴费单到生活部报到安排住宿，依照学生的不同样情况，第一登记学生的基本信息，尔后盘问相应的宿舍情况，依次安排学生入住。使学生很快适应新的环境，进入正常、健康的大学生活，为了丰富大学的生活我们睁开各样评比活动而且学期结束，按评比结果进行奖励。（1）宿舍管理系统关系图,以以下图所示：（2）宿舍管理系统顶层图，以以下图所示：F1：学生注册单F2：宿舍标准信息F3：学生基本信息第8页高校宿舍管理系统F4：宿舍信息F7：退宿结果F5：评比依照F8：入住结果F6：评比结果F9：学生信息第四章宿舍管理系统的系统设计4．1数据库的设计4．1．1数据库需求分析需求分析阶段应该对系统的整个应用情况作全面的、详细的检查，确定系统的目标，收集支持系统总的设计目标的基础数据和对这些数据的要求，确定用户的需求。要设计一个性能优异的数据库系统，收集和分析用户需求，明确应用环境对系统的要求是首要的和最基本的。特别是数据库应用特别广泛，特别复杂，多个应用程序能够在同一个数据库上运行时，为了支持全部应用程序的运行，数据库设计就变的复杂。所以早先对信息进行充分和认真的分析，是数据库设计获取成功的要点所在。事实上确定全部的用户需求是一件很困难的事情，原因以下：（1）系统自己的需求是变化的，用户的需求必定不断调整，使之与这变化相一致。（2）由于用户缺少计算机信息系统设计方面的专业知识，要正确表达他们的需求很困难，特别是很难讨情楚某部分工作的功能与发展过程。（3）要调动用户积极性，使他们能够积极的参加系统的分析与设计工作相当困难。诚然面对这些困难，但它关系到数据库设计的成功与否所以必然要认真对待。所以，我们应收集尽可能详细的资料，而且认识系统将来要发生的变化，收集将来应用所涉及的数据，充分考虑到系统可能的扩大和变动，使系统设计更吻合将来发展的趋向，而且易于变动，以减少系统保护的代价。4．1．2数据库见解模式设计（E－R图）在见解设计阶段中，设计人员从用户的角度对待数据及办理要求和拘束，产生一个反响用户见解的见解模型。为了使E－R图表示的更加清楚，我将E－R图分成实体及其属性图和实体及其联系图以下所示。第9页高校宿舍管理系统第10页高校宿舍管理系统第11页高校宿舍管理系统4．1．3数据库逻辑结构设计逻辑设计主若是把见解模式变换成DBMS能办理的模式，E－R图到关系模式的变换是比较直接的，实体的联系都能够表示成关系，E－R图中的属性也能够变换成关系的属性。E－R图直接转变成的关系模式的不是唯一的，也不是必然是最优的，还得依照现实语义，运用范式规范化理论进行优化。系统中所涉及到的实体有：学生实体、宿舍实体、宿舍标准实体、奖励等级实体及奖品实体。将其E－R图向关系模型变换结果以下：用户表（用户ID，用户名，密码，学生信息管理，宿舍信息管理，学生住宿管理，评比及奖励管理，综合信息盘问）用户ID为此关系的码（注：学生信息管理，宿舍信息管理，学生住宿管理，评比及奖励管理，综合信息盘问为权限分类）。学生基本信息表（学号，姓名，性别，出寿辰期，入学时间，专业，家庭地址，联电话，邮编）学号为此表的码。宿舍标准表（标准号，标准名称，住宿费，床，桌子，柜子，椅子，电视，网口，电话，可否有独立卫生间）标准号是此表的码宿舍信息表（宿舍号，标准号，地址，床位总数，已用床位，未用床位，电话号码，）宿舍号为此表的码。奖品信息表（奖品号，奖品名称，数量，价值）奖品号为此表的码。?奖励等级表（等级号，等级名称，评奖机构）等级号为此表的码。?奖品发放表（奖品号，等级号，数量）学生入宿表（入住编号，姓名，学号，宿舍号，入住时间，联系电话）学号和宿舍号为此表的码。学生退宿表（退宿编号，宿舍号，学号，姓名，退宿日期，入住编号）宿舍号和学号为此表的码。宿舍评比等级表（领用编号，宿舍号，奖励等级号，评比时间，备注）宿舍号和奖励等级号为此表的码。系统自动编号表（编号名称，编号）编号为此表的码。4．1．4数据库的物理设计（1）数据库和表名称在河套大学宿舍管理系统中数据库的名称设置为hostel数据库中的表名称第12页高校宿舍管理系统（2）表结构设计：第13页高校宿舍管理系统宿舍信息表（hosgrn）第14页高校宿舍管理系统第15页高校宿舍管理系统学生退宿表（gobacktable）宿舍评比等级表（gogrademess）第16页高校宿舍管理系统4．2安全性设计为了加强数据安全性,学校要求采用大型数据库。利用大型关系数据库自己的事务回卷，如期备份等功能，以便保证系统启用后不会出现数据扔掉、死机等现象，并保证数据库的一致性、并发性和可移植性。SQLServer2000数据库的安全性管理功能就特别富强，相对来说也比较复杂，下面将从系统开发的实质情况出发，依照系统分析的结果，对系统安全性进行有针对性的设计。（1）后台SQLServer数据库以Sa为系统管理员，这一角色由河套大学的专职计算机人员担当，负责对后台数据库的保护。（2）对全部从“宿舍管理系统”前台登录的合法用户，都以DBO角色来接见后台数据库。（3）经过前台开发工具VisualBasic6.0对用户登录权限进行严格的控制管理。4．3网络拓扑结构图4-2C/S和B/S混杂结构的系统结构图4．4代码设计代码设计的主要原则是简单，易懂和可扩大性，代码设计的方法有好多，本系统采用层次叠加码作为河套大学的信息编码方案。下表以资源信息代码表组成为例描述学生号的组成原理。第17页高校宿舍管理系统4．5界面设计界面设计应简单了然，如数家珍。一方面从用户应用需求出发，宿舍管理系统面对的最后用户是对计算机其实不精晓的学校生活部管理员；另一方面友好、清楚的界面也易学易用，易保护。（1）河套大学宿舍管理系统界面，以以下图所示：图4-3宿舍系统主界面在屏幕最上方为主菜单区，显示本系统的主菜单，用户能够用鼠标来选择下拉菜单项选择项，选择权限范围内的选项。当用户经过选择了菜单所要进行的工作后，系统进入相应的业务办理功能，这时整个业务办理活动在系统工作区进行。当业务办理达成后，系统自动返回到进入次办理以前的原始菜单显示状态。（2）输入界面的设计第18页高校宿舍管理系统为了方便用户的使用，宿舍管理系统的界面大量的采用VisualBasic所供应的标准控件，并配以一些下拉式菜单适合提高用户工作效率，宿舍管理系统的输入界面主要有：学生信息管理录入、宿舍信息设置、入住信息录入、评比奖励登记等。学生信息管理录入以以下图所示：图4-4学生信息录入界面4．6功能结构图的设计功能结构图主要从功能的角度描述了系统的结构，但并未能表达各功能这间的数据传达关系。河套大学宿舍管理系统从功能上能够划分出以下几个模块，以以下图所示：第19页高校宿舍管理系统图4-5学生宿舍主功能图为了详细的描述系统功能，我将宿舍管理系统分为七个大的模块：系统管理模块，学生信息管理模块，宿舍信息管理模块，学生住宿管理模块，评比及奖励管理模块，综合盘问管理模块，帮助模块，每个模块将实现不同样的功能。下面将详细进行介绍4．6．1系统管理模块系统管理模块包括：用户设置，操作销定，注销系统，撤出系统，数据清空几个部分。以以下图所示：图4－6系统管理功能图从登录框登录后，只有系统管理员才拥适用户设置的权限。一般用户不能够够使用，即没有增加、更正用户权限的权益。（1）用户设置：设置用户信息，如：用户ID，用户名称，用户密码，以及用第20页高校宿舍管理系统户权限。（只有系统管理员system能够设置新用户权限）（2）操作销定：判断可否销定系统，以应付紧急情况。（3）注销系统：注销当前工作用户重新登录系统。（4）撤出系统：单击撤出系统。（5）数据清空：清空全部数据（只有系统管理员system有此权限）4．6．2学生信息管理模块学生信息管理模块包括：注册学生信息，学生信息阅读，学生信息盘问三个部分，以以下图所示：图4－7学生信息管理功能图注册学生信息：登记学生基本信息。学生信息阅读：阅读全部注册学生的信息。学生信息盘问：以学号或姓名或性别为要点字进行按条件盘问。4．6．3宿舍信息管理模块宿舍信息管理模块包括：宿舍标准设置，宿舍信息设置。以以下图所示：第21页高校宿舍管理系统图4-8宿舍信息管理功能图（1）宿舍标准设置：设置各个标准信息，实现不同样宿舍标准的分级管理。（2）宿舍信息设置：设置宿舍的所属的标准及宿舍相关情况。4．6．4学生住宿管理模块：学生住宿管理模块包括：学生住宿登记，学生退宿登记，节余宿舍盘问三个部分。以以下图所示：图4－9学生住宿管理功能图（1）学生住宿登记：记录学生选择宿舍标准后的相关入宿情况。（2）学生退宿登记：学生退宿归还宿舍资源（床位）情况的记录（3）节余宿舍盘问：统计未入住或未住满的宿舍情况。4．6．5评比及奖励管理模块评比及奖励管理模块包括：评比标准，奖品管理，评比奖励登记。以以下图所示：第22页高校宿舍管理系统图4-10评比、奖励功能图评比标准：以文本框的形式显示评比标准。（1）奖品管理：A奖品等级设置：设置不同样样级奖励奖品发放情况。奖品明细设置：相关奖品信息的设置。（2）评比等级登记：宿舍评比等级录入情况。4．6．6综合信息盘问：学生注册入宿信息管理模块包括：宿舍标准盘问，学生入住信息盘问两个模块。以以下图所示：图4－11综合信息盘问功能图第23页高校宿舍管理系统宿舍标准盘问：统计全部宿舍标准，即宿舍设置情况以宿舍号或床位数为要点字盘问相应设置情况。(2)学生入住信息盘问：统计全部学生入住情况，以宿舍号或学号或姓名进行有条件盘问。4．6．7帮助模块此模块是对学生宿舍管理系统开发者的相关信息的一个简单的介绍。第五章宿舍管理系统的系统推行经过了系统规划，系统分析和系统设计等阶段后，便开始了系统推行阶段，这个阶段要继承以前各阶段的工作成就，是系统分析和设计阶段的结晶。5．1开发工具的选择5．1．1前台开发工具的选择比较几种开发工具今后，我选择了VisualBasic6.0作为河套大学宿舍管理系统前台开发工具。这主若是考虑到学习比较简单，而且相关论坛比很多，能够实时的达成任务。BASIC语言是碰到国内外千百万计算机爱好者欢迎的语言，自1964年问世以来，从实验室走向校园，从校园走向社会，从社会一度走向全世界，向来不衰。BASIC是BeginnersAllPurposeSystemInterChangeCode（初学者通用符号代码）的缩写。与其他高级语言对照，它的语法规则相对简单，简单理解和掌握，且拥有使用价值，被以为是最理想的初学者语言。BASIC语言自出生以来，在广泛使用中不断的发展。随着Windows环境的推履行用，好多人正在学习和使用了在Windows环境中编程使用的BASIC—VisualBasic。故我采用VisualBasic6.0作为前台开发工具。5．1．2后台数据库的选择数据库是数据管理的最新技术，是计算机科学的重要分支。十年来，数据库管理系统已从专用的应用程序包发展成为通用系统软件。由于数据库拥有数据结构化、最低冗余度、较高的程序与数据独立性、易于扩大、易于编制应用程序等优点，较大的信息系统都是建立在数据库设计之上的。由于用到的数据表格多，别的考虑到实质情况，学生基本信息的变动，还有员工信息的多少的变化，我们采用SQLServer作为数据库开发，而不用Access，主若是由于Access数据库是一个桌面数据库系统，不合合用户程序对数据库远第24页高校宿舍管理系统程连接，而SQLServer是一种常用的关系数据库，能存放和读取大量的数据，管理众多并发的用户，应采用SQLServer数据库。5．2程序实现（源代码）5．2．1系统源代码我用Visualbasic为河套大学开发的<<宿舍管理系统>>，有大量的程序源代码，下面仅有几种重要的程序源代码，列示以下：系统界面源代码：――――――――――――――PrivateSubMDIForm_Load()MainForm.Caption=StrSystem'IfTrim(LimStuMess)=1ThenStudenMan.Enabled=TrueElseStudenMan.Enabled=FalseEndIfIfTrim(LimHosMess)=1ThenHostelMan.Enabled=TrueElseHostelMan.Enabled=FalseEndIfIfTrim(GoHosManMess)=1ThenGoHosMan.Enabled=TrueElseGoHosMan.Enabled=FalseEndIfIfTrim(LimGradeMess)=1ThenStuGrade.Enabled=TrueElseStuGrade.Enabled=FalseEndIfIfTrim(LimAllMess)=1ThenAllData.Enabled=TrueElseAllData.Enabled=FalseEndIf第25页高校宿舍管理系统Statu.Panels(1).Text=StrSystem&Space(10)&"Version1.0"Statu.Panels(2).Text="当前操作员："&LoginNameStatu.Panels(3).Text="系统开发人员：王淑霞"EndSubPrivateSubNoHosFind_Click()EndSubPrivateSubOpLock_Click()CallSysLockSubEndSubPrivateSubStaHosFind_Click()EndSubPrivateSubStaticHos_Click()EndSubPrivateSubStuFind_Click()EndSubPrivateSubStuHosFind_Click()EndSubPrivateSubStuMessList_Click()EndSubPrivateSubSysExit_Click()EndEndSubPrivateSubTimer1_Timer()第26页高校宿舍管理系统Label1.Caption=Now()EndSubPrivateSubTryLogin_Click()DimIsYesNoAsStringSetrs=NothingSetcn=NothingIsYesNo=MsgBox("可否确认注销系统？",vbQuestion+vbYesNo,strsytem)IfIsYesNo=vbYesThenUnloadMainFormEndIfEndSubPrivateSubUserSys_Click()EndSubPublicSubSysLockSub()DimISLOCKAsStringISLOCK=MsgBox("可否确认锁定系统？",vbCritical+vbYesNo,StrSystem)IfISLOCK=vbYesThenSysLock.Show1EndIfEndSub―――――――――――――――――――――――――――宿舍标准信息设置源代码：――――――――――OptionExplicitPublicIsAddEditAsStringPrivateSubCmdAdd_Click()StaticNumber.Enabled=TrueStaticName.Enabled=TrueHosMoney.Enabled=TrueStaticNumber.Text=""StaticName.Text=""HosMoney.Text=""CmdAdd.Enabled=False第27页高校宿舍管理系统CmdSave.Enabled=TrueCmdFind.Enabled=FalseCmdDel.Enabled=FalseIsAddEdit="新增"EndSubPrivateSubCmdDel_Click()DimstrSQLAsStringDimIsYesNoAsStringIsYesNo=MsgBox("可否确认删除记录？",vbInformation+vbYesNo,StrSystem)IfIsYesNo=vbYesThenstrSQL="DELETEFROMStaticHosTableWHEREStaticNumber='"&StaticNumber.Text&"'"Ifrs.State=1ThenEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticCallShowListData("")EndIfEndSubPrivateSubCmdExt_Click()UnloadMeEndSubPrivateSubCmdFind_Click()DimStrWhereAsStringDimIsWhereAsStringIsWhere=InputBox("请输入您要查找的宿舍标准号或标准名称

","请输入条件

","请输入您要查找的宿舍标准号或标准名称")StrWhere="AND(StaticNumberLIKE'%"&CheckString(IsWhere)&"%'ORStaticNameLIKE'%"&CheckString(IsWhere)&"%')"CallShowListData(StrWhere)EndSubPrivateSubCmdSave_Click()第28页高校宿舍管理系统DimstrSQLAsStringIfIsAddEdit="新增"ThenIfTrim(StaticNumber.Text)=""OrTrim(StaticName.Text)=""OrTrim(HosMoney.Text)=""ThenMsgBox"宿舍标准号、标准名称、住宿费均不能以为空！",vbInformation,StrSystemExitSubEndIfstrSQL="SELECT*FROMStaticHosTableWHEREStaticNumber='"&CheckString(StaticNumber.Text)&"'"Ifrs.State=1ThenEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticIfrs.EOF=FalseThenMsgBox"宿舍号标准号不能够重复！",vbInformation,StrSystemExitSubEndIfstrSQL="INSERTINTOStaticHosTable(StaticNumber,StaticName,HosMoney,Hoskip,Hosdsk,Hoscab,HosCha,HosTv,HosNet,HosTelNum,HosTol)VALUES('"strSQL=strSQL&CheckString(StaticNumber.Text)&"','"&CheckString(StaticName.Text)&"','"&CheckString(HosMoney.Text)&"',"strSQL=strSQL&CheckString(HosKip.Text)&","&CheckString(HosDsk.Text)&","&CheckString(HosCab.Text)&","&CheckString(HosCha.Text)&","&CheckString(HosTv.Text)&","strSQL=strSQL&CheckString(HosNet.Text)&","&CheckString(HosTelNum.Text)",'"&CheckString(HosTol.Text)&"')"Ifrs.State=1Thenrs.CloseEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticEndIfIfIsAddEdit="更正"ThenstrSQL="UPDATEStaticHosTableSETStaticName='"&CheckString(StaticName.Text)&"',HosMoney="&CheckString(HosMoney.Text)&",HosKip="strSQL=strSQL&HosKip.Text&",HosDsk="&HosDsk.Text&",HosCab="&HosCab.Text&",HosCha="&HosCha.Text&",HosTv="strSQL=strSQL&HosTv.Text&",HosTelNum="&HosTelNum.Text&",HosTol='"HosTol.Text&"'WHEREStaticNumber='"&StaticNumber.Text&"'"第29页高校宿舍管理系统rs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticEndIfStaticNumber.Enabled=FalseStaticName.Enabled=FalseHosMoney.Enabled=FalseCmdAdd.Enabled=TrueCmdSave.Enabled=FalseCmdFind.Enabled=TrueCmdDel.Enabled=TrueCallShowListData("")EndSubPrivateSubForm_Load()HosStaticMess.Caption=StrSystem&"--宿舍标准信息设置"CmdAdd.Enabled=TrueCmdSave.Enabled=FalseCmdFind.Enabled=TrueCmdDel.Enabled=TrueStaticNumber.Enabled=FalseStaticName.Enabled=FalseHosMoney.Enabled=FalseCallShowListData("")EndSubPrivateSubHosList_Click()IsAddEdit="更正"DimstrSQLAsStringIfHosList.ListItems.Count=0ThenExitSubEndIfstrSQL="SELECT*FROMStaticHosTableWHEREHosList.SelectedItem.Text&"'"Ifrs.State=1ThenEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimistic第30页StaticNumber='"&高校宿舍管理系统Ifrs.EOF=FalseThenStaticNumber.Text=Trim(rs![StaticNumber])StaticName.Text=Trim(rs![StaticName])HosMoney.Text=Trim(rs![HosMoney])HosKip.Text=Trim(rs![HosKip])HosDsk.Text=Trim(rs![HosDsk])HosCab.Text=Trim(rs![HosCab])HosTv.Text=Trim(rs![HosTv])HosNet.Text=Trim(rs![HosNet])HosTelNum.Text=Trim(rs![HosTelNum])HosTol.Text=Trim(rs![HosTol])EndIfSetrs=NothingEndSubPrivateSubHosList_DblClick()CmdAdd.Enabled=FalseCmdSave.Enabled=TrueCmdFind.Enabled=FalseCmdDel.Enabled=FalseStaticNumber.Enabled=FalseStaticName.Enabled=TrueHosMoney.Enabled=TrueEndSubPrivateSubV1_Change()EndSubPrivateSubV2_Change()EndSubPrivateSubV3_Change()EndSubPrivateSubV4_Change()第31页高校宿舍管理系统EndSubPrivateSubV5_Change()EndSubPrivateSubV6_Change()EndSubPrivateSubV7_Change()EndSubPublicSubShowListData(ByVallpWhereAsString)''自定义过程，公共部分，为了实现显示数据'DimrsAsDimstrSQLAsStringDimLvAsListItemstrSQL="SELECT*FROMStaticHosTableWHERE1=1"IflpWhere<>""ThenstrSQL=strSQL&lpWhereEndIfIfrs.State=1ThenEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticIfrs.EOF=FalseThenWhilers.EOF=FalseSetLv=HosList.ListItems.Add(,,Trim(rs![StaticNumber]))Lv.SubItems(1)=Trim(rs![StaticName])Lv.SubItems(2)=Trim(rs![HosMoney])Lv.SubItems(3)=Trim(rs![HosKip])第32页高校宿舍管理系统Lv.SubItems(4)=Trim(rs![HosDsk])Lv.SubItems(5)=Trim(rs![HosCab])Lv.SubItems(6)=Trim(rs![HosCha])Lv.SubItems(7)=Trim(rs![HosTv])Lv.SubItems(8)=Trim(rs![HosNet])Lv.SubItems(9)=Trim(rs![HosTelNum])Lv.SubItems(10)=Trim(rs![HosTol])rs.MoveNextWendElseEndIfEndSub―――――――――――――――――――――5．2．2系统主要界面登陆框：图5-1系统登录界面系统主界面：（见图4-2）学生入住界面：第33页高校宿舍管理系统图5-2学生入住界面学生退宿管理界面：图5-3学生退宿界面第34页高校宿舍管理系统节余宿舍盘问界面：图5-4节余宿舍盘问界面5．3系统运行环境5．3．1系统运行的硬件环境服务器：CPU：P43．0GHZ内存：1024MB硬盘：150GB显示器：17”彩显软盘驱动器：一个光盘驱动器：一个当前，服务器由高档微机肩负，建议在资本条件赞同情况下，配置专用服务器。客户端：CPU：P41．7GHZ内存：256MB硬盘：60GB显示器：17”彩显软盘驱动器：一个光盘驱动器：一个第35页高校宿舍管理系统网络环境：交换机一台网线若干5．4系统操作步骤5．4．1系统的进入（1）打开客户机，启动WindowsXP。（2）在桌面上单击[河套大学宿舍管理系统]图标。（3）屏幕上出现登录画面，输入代码，姓名，密码，达成后用鼠标单击按钮。（4）进入系统后，用鼠标单击菜单项选择纲要执行的功能。5．4．2系统操作次序

[确定]进入系统后，只有依照正确的次序操作，才能保证系统的正常运行，保证数据的正确性。当第一次进入系统时，要先进录入管理，尔后再执行其他模块进行办理。5．4．3B/S模式的盘问系统操作过程（1）在服务器上安装IIS系统，启动Web服务；这样系统就变成一个Web服务器。（2）在服务器上为数据库建立用于Web服务的ODBC数据源。（3）以ASP技术为Web服务开发盘问程序，尔后将做好的ASP网页复制到Web服务器的拥有可执行权限的虚假目录下，相关程序见附录二:5．5系统测试经过几个月的努力，我的毕业设计《河套大学宿舍管理系统》也终于凑近结尾，为了使系统能够牢固运行，更加完满，对系统进行了有针对性的全面测试，采用的方式是：菜单项测试：为了保证每一项下拉菜单能够正确的实现系统设计功能，我把相关学校宿舍及学生的基本数据，依照学生基本信息录入，宿舍信息录入等全部都输入系统中，并对每个菜单屡次进行了新增、删除、更正、保存等操作，从而保证了菜单级功能的正确实现。数据追踪：达成菜单测试后，我又对系统内的每一个数据进行了追踪测试。比方：对学生信息管理的“增加”这一项。我第一将“计算机系2005级计算机第36页高校宿舍管理系统信息管理专业01班的刘艳同学”录入系统。尔后经过“盘问”来检验数据可否正确插入了系统。综合测试：在以上测试的基础上对系统功能进行整体测试，依次来检验系统可否吻合系统设计的要求。第六章宿舍管理系统谈论及展望6．1系统开发总结历时三个月的毕业设计现在已经凑近结尾了，回想起这段日子,感觉收获颇多。我此次毕业设计的任务是建立一个学生宿舍管理系统，它用到的开发工具是VisualBasic语言，SQLServer数据库。在设计的开始阶段为了赶忙熟悉VB语言，我详细翻阅相关该方面的资料，对书中的基本理论知识逐章节地分析，同时还上机操作来加深理解。特别是对书中的一些典型实例，认真学习它的编程思想，吸引它的编程技巧，弄懂程序中每句话的含义。在对所要应用的技术有了一个基本认识后，就开始构思自己的系统设计。认真听老师对设计要求的讲解，依照任务书的要求将整个系统分为几个模块，每个模块详细又要实现哪些功能，尔后就逐个模块去一一详细设计，设计的过程中不时地翻阅资料，用一些巧妙的技术来优化程序。程序代码达成此后，要进行运行调试，刚开始由于没有调试经验和方法效率很低，最后在老师和同学的帮助下，终于顺利达成了，自己也从中学到了很多东西。总之，经过几个月的毕业设计，让我感觉了软件开发的整个过程。毕业设计不但是对我在大学所学知识的一个综合运用，也是一次增加知识和经验的好机遇，同时也使我学会了好多办理、解决问题的方法，大大提高了自己的着手能力，为立刻走上工作岗位打下了优异的基础。6．2系统开发中碰到的问题及解决措施一个系统的功能的实现，需要经过这么几步，第一把大体的骨架给设计好，尔后依照系统要求写代码，接着是调试程序，最后完满总结。其中最重要的两步就是中间的两步。在此次毕业设计中，给我印象最深的就是系统的调试。在调试过程中，碰到了很多的问题，但是经过我的不断的查阅资料，老师的指导，同学的商讨，这些问题都逐渐获取认识决。6．3系统展望（1）本系统将对学校工作的影响第37页高校宿舍管理系统本系统校方计划将在下一学期开始运行，该系统的投入运行将使宿管部门工作人员的工作负担大减少，工作效率获取提高，方便校内各部门实现信息共享，同时对于推动我校管理系统的改革，也将起到积极的作用。（2）下一步的工作宿舍内部物质的管理相对而言也是十分重要的，也需要进行系统、规范的管理。设计初学校急于重申学生住宿管理工作，所以对于物质管理仍保持过去管理方式，我和校方都已认识到这一方面还需改进。如何将物质管理同样推行规范化管理是我们下一步需要解决的问题。当前河套大学宿舍管理系统的B/S和C/S系统使用的后台数据库是同一台服务器上的SQLServer数据库，这种模式给我们的系统造成巨大的风险，为了防范一个服务器接入internet后可能碰到的各样各样的黑客的侵袭，经过认真研究并咨询相关计算机专家，下一步我们决定对系统进行以下改进：供应Web服务的服务器与供应宿舍管理C/S模式的主服务分别，二者以适合的防火墙隔断。由于Web用户不过推行盘问操作，而且盘问信息对数据的实时性要求不太高，所以可采用主服器对Web服务器的数据库准时刷新的手段来解决Web服务器上的数据更新问题。同时为了保证系统自己的安全，我们将采用一台一般的微机作为备份机，每天准时备份主服器的数据库，这里介绍使用海量备份方式，可利用windows的计划任务功能协助实现。改进后的宿舍管理系统的结构图以下所示：图6-1采用C/S和B/S混杂结构的宿管系统结构图第38页高校宿舍管理系统道谢片刻间，三个多月的毕业设计就要结束了，在参加设计的这段时间里，能够达成此次毕业设计，除了我自己的努力外，老师和同学们也恩赐了我特别大的帮助。第一要感谢我的指导老师马秀麟老师，在初次见面时，马老师就耐心的为我分析该系统，告诉我当前宿舍管理上的各样弊端，让我在就详细设计该系统时尽可能的考虑全面，使我对整个设计有了一个初步的认识。对我进行全面、详细的指导，并给了我好多难得的建议。在设计刚开始时，对好多东西都是陌生的，发VB语言以前都没有接触过，都是我的指导老师恩赐了我耐心的指导，使我对陌生的开发环境产生了浓厚的学习兴趣。毕业设计能够顺利达成，我特别感谢马老师任劳任怨的对我的帮助，同时也感谢我的同学，在该系统的达成过程也给我供应了很多的建讲和帮助。总之，在老师尽心全力的帮助下，我的毕业设计才能如期顺利达成，而且，我的导师就我的论文的编排和书写格式也为我提出了很多的更正建议。在此，我衷心的感谢他，诚挚的向他说一声“感谢”!第39页高校宿舍管理系统附录一：主要参照文件VisualBasic程序设计》作者潭浩强袁玫清华大学初版《管理信息系统》主编黄梯云经济科学初版社《信息资源管理》主编甘仞初经济科学初版社《信息系统开发》主编甘仞初经济科学初版社SQLServer中文版基础培训教程》主编刘遵仁第40页于忠清人民邮电初版社高校宿舍管理系统附录二：主要源程序代码用户登陆源代码：―――――――――PrivateSubCmdExt_Click()EndEndSubPrivateSubCmdOK_Click()DimstrSQLAsStringstrSQL="SELECT*FROMUserTableWHEREUserName='"&Replace(UserName.Text,"'","''")&"'ANDUserPwd='"&Replace(UserPwd.Text,"'","''")&"'"Ifrs.State=1ThenEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticIfrs.EOF=FalseThen'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>LoginName=Trim(UserName.Text)LimStuMess=Trim(rs![StuMess])LimHosMess=Trim(rs![HosMess])LimGradeMess=Trim(rs![GradeMess])LimAllMess=Trim(rs![AllMess])'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<UnloadMeElseMsgBox"密码不正确，请重新输入！UserPwd.SelStart=0UserPwd.SelLength=Len(UserPwd.Text)EndIfEndSub第41页高校宿舍管理系统PrivateSubForm_Load()SystemName.Caption=StrSystem系'统名称Login.Caption=StrSystem&"--登陆"IfLinkStartDatabase=FalseThenMsgBox"数据库连接失败，请重新配置系统UserMode中LinkStartDatabase的部分代码！",vbInformation,StrSystemEndEndIfEndSubPrivateSubUserID_Change()''若是用户输入的ID正确，把相应的用户名显示出来'DimrsAsNewADODB.RecordsetDimstrSQLAsStringIfTrim(UserID.Text)<>""ThenstrSQL="SELECT*FROMUserTableWHEREUserID='"&Replace(UserID.Text,"'","''")&"'"Ifrs.State=1ThenEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticIfrs.EOF=FalseThenUserName.Text=Trim(rs![UserName])CmdOK.Enabled=TrueElseUserName.Text=""CmdOK.Enabled=FalseEndIfEndIfSetrs=NothingEndSub――――――――――――――――――――――――――第42页高校宿舍管理系统学生基本信息录入源代码：――――――――――PublicISAddEditAsStringPrivateSubCmdAdd_Click()ISAddEdit="ADD"StuNumber.Enabled=TrueStuName.Enabled=TrueStuAge.Enabled=TrueGoDate.Enabled=TrueSchDate.Enabled=TrueClass.Enabled=TrueAddRess.Enabled=TrueAddNumber.Enabled=TrueTelNumber.Enabled=True'StuNumber.Text=""StuName.Text=""Class.Text=""AddRess.Text=""AddNumber.Text=""TelNumber.Text=""CmdAdd.Enabled=FalseCmdSave.Enabled=TrueCmdFind.Enabled=TrueCmdDel.Enabled=FalseEndSubPrivateSubCmdDel_Click()DimIsDelAsStringDimstrSQLAsStringIsDel=MsgBox("可否确认删除该学生的信息？",vbInformation+vbYesNo,strsytem)'IfIsDel=vbYesThenIfStuList.ListItems.Count=0Then第43页高校宿舍管理系统ExitSubEndIfstrSQL="DELETEFROMStuMessWHEREStuNumber='"&StuList.SelectedItem.Text&"'"Ifrs.State=1ThenEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticEndIfCallShowStuMessList("")EndSubPrivateSubCmdExt_Click()UnloadMeEndSubPrivateSubCmdFind_Click()DimstrWhereAsStringstrWhere=InputBox("请输入您要盘问学生学号或姓名要点字：

",

请输入条件

,"请输入您要盘问学生学号或姓名要点字")strWhere="ANDStuNameLIKE'%"&CheckString(strWhere)&"%'ORStuNumberLIKE'%"&CheckString(strWhere)&"%'"CallShowStuMessList(strWhere)调'用自定义过程，传达用户输入的条件！EndSubPrivateSubCmdSave_Click()DimstrSQLAsStringIfISAddEdit="ADD"ThenIfTrim(StuNumber.Text)<>""ThenstrSQL="SELECT*CheckString(StuNumber.Text)&"'"Ifrs.State=1ThenEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticIfrs.EOF=FalseThenMsgBox"学生信息中学生不能够重复！",vbInformation,StrSystemStuNumber.Text=""FROMStuMessWHEREStuNumber='"&第44页高校宿舍管理系统ExitSubEndIfEndIfIfTrim(StuNumber.Text)=""OrTrim(StuName.Text)=""ThenMsgBox"学生的学号或姓名均不能以为空！",vbInformation,StrSystemExitSubEndIfstrSQL="INSERTINTOStuMess(StuNumber,StuName,StuSex,GoDate,SchDate,Class,AddRes,AddNumber,TelNumber)VALUES('"strSQL=strSQL&CheckString(StuNumber.Text)&"','"&CheckString(StuName.Text)&"','"&CheckString(StuAge.Text)&"','"strSQL=strSQL&CheckString(GoDate.Value)&"','"&CheckString(SchDate.Value)&"','"&CheckString(Class.Text)&"','"strSQL=strSQL&CheckString(AddRess.Text)&"','"&CheckString(AddNumber.Text)&"','"&CheckString(TelNumber.Text)&"')"Ifrs.State=1ThenEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticEndIfIfISAddEdit="EDIT"ThenIfTrim(StuNumber.Text)=""OrTrim(StuName.Text)=""ThenMsgBox"学生的学号或姓名均不能以为空！",vbInformation,StrSystemExitSubEndIfstrSQL="UPDATEStuMessSETStuName='"&CheckString(StuName.Text)&"',StuSex='"&CheckString(StuAge.Text)&"',"strSQL=strSQL&"GoDate='"&CheckString(GoDate.Value)&"',SchDate='"&CheckString(SchDate.Value)&"',Class='"&CheckString(Class.Text)&"',"strSQL=strSQL&"AddRes='"&CheckString(AddRess.Text)&"',AddNumber='"&CheckString(AddNumber.Text)&"',TelNumber='"&CheckString(TelNumber.Text)"'"strSQL=strSQL&"WHEREStuNumber='"&Trim(StuNumber.Text)&"'"Ifrs.State=1Thenrs.CloseEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticEndIfCallShowStuMessList("")'显示数据,该处为自定过程.第45页高校宿舍管理系统StuNumber.Enabled=FalseStuName.Enabled=FalseStuAge.Enabled=False性'别GoDate.Enabled=FalseSchDate.Enabled=FalseClass.Enabled=FalseAddRess.Enabled=FalseAddNumber.Enabled=FalseTelNumber.Enabled=FalseCmdAdd.Enabled=TrueCmdSave.Enabled=FalseCmdFind.Enabled=TrueCmdDel.Enabled=TrueSetrs=NothingEndSubPrivateSubForm_Load()Studen.Caption=StrSystem&"--学生基本信息"StuNumber.Enabled=FalseStuName.Enabled=FalseStuAge.Enabled=FalseGoDate.Enabled=FalseSchDate.Enabled=FalseClass.Enabled=FalseAddRess.Enabled=FalseAddNumber.Enabled=FalseTelNumber.Enabled=FalseCmdAdd.Enabled=TrueCmdSave.Enabled=FalseCallShowStuMessList("")EndSubPublicSubShowStuMessList(ByVallpWhereAsString)'第46页高校宿舍管理系统'自定义过程，公共部分，为了实现显示数据'DimrsAsDimstrSQLAsStringDimLvAsListItemstrSQL="SELECT*FROMStuMessWHERE1=1"IflpWhere<>""ThenstrSQL=strSQL&lpWhere&"ORDERBYStuNumber"EndIfIfrs.State=1ThenEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticIfrs.EOF=FalseThenWhilers.EOF=FalseSetLv=StuList.ListItems.Add(,,Trim(rs![StuNumber]))Lv.SubItems(1)=Trim(rs![StuName])Lv.SubItems(2)=Trim(rs![StuSex])Lv.SubItems(3)=Trim(rs![GoDate])Lv.SubItems(4)=Trim(rs![SchDate])Lv.SubItems(5)=Trim(rs![Class])Lv.SubItems(6)=Trim(rs![Addres])Lv.SubItems(7)=Trim(rs![AddNumber])Lv.SubItems(8)=Trim(rs![TelNumber])WendElseEndIfEndSubPrivateSubStuList_Click()CallShowData'调用自定义过程。EndSub第47页高校宿舍管理系统PrivateSubStuList_DblClick()ISAddEdit="EDIT"CallShowData'用户双击更正数据。StuNumber.Enabled=FalseStuName.Enabled=TrueStuAge.Enabled=TrueGoDate.Enabled=TrueSchDate.Enabled=TrueClass.Enabled=TrueAddRess.Enabled=TrueAddNumber.Enabled=TrueTelNumber.Enabled=TrueCmdAdd.Enabled=FalseCmdSave.Enabled=TrueCmdFind.Enabled=FalseCmdDel.Enabled=FalseEndSubPublicSubShowData()'把用户选择的该条数据显示出来。DimstrSQLAsStringIfStuList.ListItems.Count=0ThenExitSubEndIfstrSQL="SELECT*FROMStuMessWHEREStuNumber='"&StuList.SelectedItem.Text&"'"Ifrs.State=1ThenEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticIfrs.EOF=FalseThenStuNumber.Text=Trim(rs![StuNumber])StuName.Text=Trim(rs![StuName])StuAge.Text=Trim(rs![StuSex])GoDate.Value=Trim(rs![GoDate])SchDate.Value=Trim(rs![SchDate])第48页高校宿舍管理系统Class.Text=Trim(rs![Class])AddRess.Text=Trim(rs![Addres])AddNumber.Text=Trim(rs![AddNumber])TelNumber.Text=Trim(rs![TelNumber])EndIfEndSub―――――――――――――――――――――――――――――――学生入住管理源代码：――――――――――OptionExplicitPublicstrStaticNumberAsString'宿舍号标准号PrivateSubCmdAdd_Click()DimstrSQLAsString'＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊strSQL="SELECTHosNumberFROMHosGrnWHEREHosNoSum>=1"Ifrs.State=1ThenEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticIfrs.EOF=FalseThenWhilers.EOF=FalseHosNumber.AddItemTrim(rs![HosNumber])WendHosNumber.Text=""EndIf'＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊strSQL="SELECTstuNumberFROMStuMess"Ifrs.State=1ThenEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticIfrs.EOF=FalseThen第49页高校宿舍管理系统Whilers.EOF=FalseStuNumber.AddItemTrim(rs![StuNumber])WendStuNumber.Text=""EndIf'＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊'＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊GoNumber.Text=CreateNumber("Gh")strSQL="SELECT*FROMGoHosTableWHEREGoNumber='"&Trim(GoNumber.Text)&"'"Ifrs.State=1ThenEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticIfrs.EOF=FalseThenMsgBox"入住序号重复！",vbInformation,StrSystemGoNumber.Text=""CmdAdd.Enabled=TrueExitSubEndIf'＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊'＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊HosNumber.Enabled=TrueStuNumber.Enabled=TrueStuName.Enabled=TrueStuTel.Enabled=TrueGoDate.Enabled=TrueCmdAdd.Enabled=FalseCmdSave.Enabled=TrueCmdDel.Enabled=FalseCmdFind.Enabled=False'＊＊＊＊＊＊＊＊＊＊＊＊HosNumber.Text=""StuNumber.Text=""StuName.Text=""StuTel.Text=""'＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊第50页高校宿舍管理系统EndSubPrivateSubCmdDel_Click()DimstrSQLAsStringDimIsDelAsStringIfLoginName<>"system"ThenMsgBox"对不起，您没有此权限！",vbCritical,StrSystemE