第一篇：学生公寓管理系统分析及设计论文
摘要：随着计算机技术和网络技术的广泛应用，使用计算机和网络来管理学生公寓，具有管理方便、清晰，高效、安全的特点，能够有效的保证学校的公寓高效、安全的进行管理。本系统具有界面友好，操作简便的特性。
关键词：学生公寓；界面模块
1系统需求分析
一般的公寓管理系统应该有三级用户管理权限，其中包含公寓管理员，学生及系统管理员。因为公寓学生管理系统的主要任务是管理住在公寓中学生，就应该包含学生及公寓两方面的信息；学生的信息不仅包含学生的个人信息，入住信息，迁出信息，还应该包含公寓访客的信息等。公寓的信息应包含公寓的寝室信息，报修信息，寝室的水电费等。并且公寓管理系统应该有一般系统应该有的用户管理，权限管理，密码管理等功能。
2公寓管理系统的功能设计
2.1总体设计
学生公寓管理系统主要实现了后勤部门对学校宿舍的管理功能。管理系统分为用户管理模块、公寓信息管理和学生信息模块三个部分。
2.2公寓管理模块实现的功能
1）公寓入住学生管理模块及报修管理模块。公寓入住学生管理模块，公寓管理员可以根据入住学生的学号、姓名、班级等信息进行对入住学生进行信息查询。报修管理模块可以添加对需要保修的楼号、寝室号、报修项目、电话号码、报修时间及处理结果，和保修当前的状态进行查询和信息的维护。2）寝室信息管理模块。寝室信息管理查询功能可以根据楼号、寝室编号进行查询；同时可以对其信息进行修改。3）访客信息管理模块。访客登记信息包含学生学号、拜访人、关系、来访电话号码和来访时间信息；根据学生学号来查询访客记录；可以查看正在访客的信息，并可以对其进行访客结束。4）学生入住迁出信息模块。学生入住添加功能的添加信息包含学号、寝室编号、床位编号、入住时间信息；根据学生学号、寝室编号来查询入住信息；可以对查询出来的学生信息进行批量迁出管理；学生迁出信息，可以对查询出来的学生信息进行批量删除管理。5）个人信息管理模块可以对操作人员本身的个人信息包括登陆密码，登陆状态等进行编辑和查询。
2.3公寓管理系统系统管理模块实现的功能
1）对系统应用的学生信息及公寓信息的功能进行维护和修改。对学生信息管理模块的维护修改：添加功能：比如添加学生信息（包含学号，姓名，所在年级，联系电话，联系地址，密码，所在楼号，寝室号、备注等）；修改功能：修改入住学生的信息。查询功能：根据入住学生的姓名，学号，班级等信息查询学生的寝室，入住状态，水电费等信息。删除功能：根据学号对学生信息进行删除。公寓报修模块：添加功能：根据公寓报修的时间，可以添加报修的楼号，寝室号，报修项目，报修人联系电话等信息，并且。跟踪功能：根据报修系统报修的内容，进行跟踪，并且提供更新报修状态的功能。查询功能：可以根据姓名、楼号、寝室号进行查询。2）公寓信息管理模块。公寓信息的维护，包括公寓的公寓楼号，可以居住的人数，当前入住的人数，和公寓的类型（男/女）以及相关的备注。3）公寓管理员模块。公寓管理员的信息管理功能的可以对包含管理员姓名，电话，负责区域，值班信息等进行添加，编辑，删除等操作。4）访客信息管理模块，与学生管理类似，需要对访客的个人信息包括，姓名、访问原因、被访问人员姓名，进入和离开时间等信息进行记录。
3数据库的设计
1）学生基本信息表：该表中的数据Stnum（学生学号）、有Stname（姓名）、Sex（性别）、Age（年龄）、Dorid（寝室号）、Classid（班级）、Phone（电话）、Addr（地址）、Pwd（密码）。2）报修表：该表中的数据apart_id（楼号）、Dorid（寝室号）、Things（损害部位）、Why（原因）、Bxname（报修人姓名）、date（报修时间）和Repair-date（维修时间）。3）系统管理用户表：该表中的数据有Userid（用户编号）、Password（用户密码）、Manage（用户权限）。4）公寓楼信息表：该表中的数据apart_number（楼号）、Number（学生人数）、apart_sex（寝室楼为男/女寝）、People（管理该寝室的人）。5）宿舍信息表：该表中的数据apart_number（楼号）、有Dorid（寝室号）、leader_name（寝室长名字）、leader_phone（寝室长电话）、DorSex（男/女寝）、PeoNum（人数）、Bednum（床号）。6）公寓管理员信息表：该表中的数据apart_id（楼号）、Managename（管理员姓名）、Managephone（电话号码）、Anpai（安排）、Pwd（密码）。具体信息表略。7）访客登记表：该表中的数据Sid（学生学号）、Guanxi（关系）、Vistor_name（来访人的名字）、Vistor_phone（来访人的电话号码）、Visit-time（拜访时间）和endtime（拜访结束时间）。8）寝室水电费信息表：该表中的数据Dorid（寝室号）、Waterfei（已使用水（吨））、Dianfei（已使用电（度））。9）学生入住迁出信息表：该表中的数据Stnum（学号）、有Dorid（寝室号）、leader_phone（寝室长电话）、bednum（床位编号）、Intime（入住时间）、Outtime（迁出时间）。
4小结
通过以上的分析及管理系统和数据库设计，学生公寓管理系统为公寓管理提供科学、规范的现代管理模式，使学生公寓管理跨上一个新的台阶，其不仅能为学校带来巨大的直接经济效益，而且还能提高管理人员的工作效率，使公寓管理进入一个新层次。
参考文献：
[1]飞思科技产品研发中心编著《JSP应用开发祥解》电子工业出版社,2001,7.[2]杨钰,卢银娟,赵昊彤,等编著.《JSP网络开发技术》人民邮电出版社,2002,1.[3]曾云飞.MyEclipse应用开发详解东北大学出版社.2005.[4]印民.Java与面向对象程序设计教程高等教育出版社.2002,8,6.[5]陆武,蒋武,刘军,石正贵.Java项目开发实践.中国铁道出版社.2004,3.
第二篇：系统分析论文
一、系统的概念级特征
1.系统，所谓系统,就是由相互作用和相互联系的若干组成部分结合而成的整体。
2．系统的特征：1)整体性。整体性就是要用系统的方法研究系统的对象,立足整体,统筹全局,全面规划,协调处理,使系统的总体与部分之间、部分之间、系统与环境之间达到辩证统一,组成的整体功能,即系统功能,是各部分所不具备的。系统的功能大于各部分功能的和。2)综合性。综合性即从系统的总目标出发,将相关的经验和知识有机结合,协调运用,从而开发出全新的系统概念,创造出全新的系统结构和功能。综合创造,集成创新,获得综合效益。3)科学性。科学性要求分析问题时按规律办事,即处理问题时,要有严格的工作步骤和程序,定性与定量相结合,还要认识到整体与部分的协调与统一。整体是更大系统的部分,又是本系统的整体。整体具有一定结构、层次和功能,组成整体部分相互联系、相互作用。4)创新性。创新性要求人们在运用科学技术的同时,充分发挥人的创新能力,大胆地进行系统的开发,实现系统的最优效果,要超前预测,持续创新。
二、系统分析的概念及特征
1.系统分析的概念: 将所得到的文档资料集中到一起,对组织内部整体管理状况和信息处理过程进行分析。系统分析所确定的内容是今后系统设计、系统实现的基础。
2．系统分析的特征：
系统分析从系统需求入手，从用户观点出发建立系统用户模型。用户模型从概念上全方位表达系统需求及系统与用户的相互关系。系统分析在用户模型的基础上，建立适应性强的独立于系统实现环境的逻辑结构。系统分析是咨询研究的最基本的方法，我们可以把一个复杂的咨询项目看成为系统工程，通过系统目标分析、系统要素分析、系统环境分析、系统资源分析和系统管理分析，可以准确地诊断问题，深刻地揭示问题起因，有效地提出解决方案和满足客户的需求。
三、系统分析的产生及发展
20世纪60年代以来,许多学者对系统工程解决问题、处理问题的方法进行了大量研究,虽然目前还找不到能处理所有问题的标准方法, 但是,Hall在1969年提出的系统工程的三维结构是影响较大而且比较完善的方法, Hall认为:现实问题都可以归结为工程问题,从而可以应用定量分析方法求得最优的系统方案。Hall方法论适应了60年代系统工程的应用需要。当时系统工程主要用来寻求各种战术问题的最优策略,或者用来组织管理大型工程建设项目。
从70年代中期开始,Checkland经过大量系统实践,提出了软系统方法。由于社会经济系统不可能像工程技术系统那样将各种方案进行科学地定量分析,因而难以评价出最优方案,所以Checkland方法的核心不是最优化而是比较或者是学习,即是从模型和现状的比较中来学习改善现状的途径。
80年代末以来,钱学森等学者从各种系统中分离出一种系统,即开放复杂巨系统,并研究其方法论。钱学森早年在兰彻斯特的工作中提炼出半经验半理论的处理复杂对阵问题的方法论,后来又进一步发展为处理复杂行为系统的定量方法学,从经验假设出发,通过定量方法途径获得结论,强调数学模型的经验含义和定量定性相结合。
1987年,钱学森提出了定性和定量相结合的系统研究方法,之后提出综合集成的概念,并把处理复杂巨系统的方法命名为定性定量相结合的综合集成方法,又把它表述为从定性到定量的综合集成技术。
1992年,又提出从定性到定量的综合集成研讨厅体系,进而把处理开放复杂巨系统的方法与使用这种方法的组织形式有机结合起来。对于难度自增值系统,王浣尘提出了“旋进原则”,即不断地跟踪系统的变化,选用多种方法,采用循环交替结合的方式,逐步推进问题的深度和广度。张文泉等将系统思维分为硬、软系统思维。并将以传统的运筹学(OR)、系统工程等为代表的用常规数学模型就能优化解决硬问题的方法称为硬系统方法。而注重人的因素,考虑人的世界观、价值观以便处理包括人在内的软问题的方法则称为软系统方法。其中,根底定义由系统的受益者或受害者C(Customer)、系统(变换T)的执行者A(Actors)、系统输入输出变换T(Transformation Process)、赋予根底定义实际意义的世界观W(Worldview)、系统所有者O(Owners)、系统的环境约束E(Environ-mental constraints)组成。CATWOE的具体含义是系统所有者O使系统在环境约束E下,由系统执行者A通过变换T将其输入变换为输出。而系统的受益者或受变换影响的人,赋予变换具体含义的世界观至少包括W。在硬、软系统方法的基础上,研究探索硬、软方法兼容,自然科学和人文社会科学胶合的广义系统方法GSM(General Systmes Methodol-ogy),在理论(模型世界)和实践(现实世界)相结合的原则下,GSM由五部分组成(见图3)。GSM是以知识综合集成为其基本特征的。
四、系统分析有哪些内容
霍尔方法论是出现最早、影响最大的结构模型方法论。霍尔结构模型包括三维,即时间维、逻辑维和专业维。其中,粗结构时间维划分为7个阶段,即规划、设计、研制(开发)、生产、安装、运行和更新等阶段。细结构逻辑维又将时间维的每个阶段分为6个具体工作步骤,即摆明问题、确定目标、系统综合、系统分析、决策和实施。专业维是系统工程涉及的专业。
霍尔方法论解决的是结构化良好的工程问题,也称为硬系统方法论。
英国学者P.B.Checkland提出软系统方法论。其他典型的方法论还有我国学者钱学森院士、顾基发研究员等在20世纪80年代~90年代提出的综合集成法和综合集成研讨体系,以及“物理—事理—人理”系统方法论。
最主要的是钱学森等所提出的开放的复杂巨系统理论及其方法论,即从定性到定量的综合集成方法,包括知识体系专家体系和工具体系的定性到定量的综合集成研讨厅体系。王浣尘把系统方法论概括为五种类型:即内核原则;系统原理包括6条基本原理(组成原理、关联原理、整体原理、层次原理、阶段原理和对环境的相对独立原理)和2条辅助原理(功能原理、目的原理);结合原则;从定性到定量综合集成技术;旋进原则。随着科学技术的发展,人们固然重视一个个能解决实际问题的具体方法,同时人们更重视从中研究和提炼相应的方法论,尤其是针对系统分类去研究相应的系统方法论,具有极其重要的理论意义和实践意义。
五、系统工程方法论在建筑企业管理中的应用
模型和模拟方法在系统工程研究中具有极为重要的地位。因为系统工程的研究对象不仅是有待建立的,而且是无样本的、信息不充分的,这就使得系统工程研究包含着建立新的概念,对各种方案进行分析、评定、选择以及检验各种环境因素对系统的影响等极为复杂的问题,于是就特别需要运用模型和模拟方法来表达和考察这些问题。只有这样才能对问题有更深入的认识,从而帮助启发思想和加速系统工程研究的进程。
明确企业基本使命和目标。在充分认识企业基本使命的基础上,确定企业发展的目标,并力求使目标与基本使命保持一致,基于目标市场预期与企业方向选择制定企业发展目标,建立指标体系客观地反映和描述企业发展目标,各项指标准确定量计算或者容易进行定性分析。实施战略的总结,总结经验,发现问题,为研究新战略提供依据。
现状分析:分析环境。环境是企业生存和发展的空间,是企业战略管理行动的主要制约因素;发现机会和威胁,在分析了环境之后,就需要评估企业有哪些机会可以发掘、利用,以及企业可能会面临哪些威胁;分析企业的资源,识别优势和劣势;把握未来发展趋势,影响中国建筑市场未来发展趋势的驱动与抑制因素分析;中国建筑市场未来的发展格局与可能的前景;未来竞争格局;未来产业格局如法规及监管的变化,技术的进步等;未来长、中、短期主要市场格局,用户细分与用户需求变化,以及业务态势等的分析预测。可采用数学模型法、交叉影响分析法等预测方法。
战略态势的确定。把握战略时机、充分考虑客观条件、充分考虑进行战略调整或转移的动力。
形成新战略。经营战略:建筑市场的转型与建筑企业发展的重点,建筑业务的统一战略安排与管理,单一业务的运营模式选择与创新;业务发展战略:高档环保业务发展、增值业务发展;市场开拓战略:高档与环保业务相互进入、海外市场拓展策略;营销战略:企业品牌宣传、产品市场营销;竞争战略:与各大运营商的竞争与合作;合作伙伴战略:与上、下游企业的合作与对整体生态环境的控制;技术与网络支持战略;企业信息化与管理现代化战略;网络演进与技术发展战略;资本运作战略;资本管理战略;战略投资战略;风险投资战略;集团运作战略;人力资源战略;公共关系、政府关系与企业风险管理战略。
战略评价和选择。对新提出战略的合理性、可行性及对实现企业目标的潜在作用做出严格评价,从而为战略选择提供依据。
战略筹划。确定战略阶段、战略重点、战略目标及战略措施等。
战略实施。制定中、长期规划和短期计划,沟通思想、储备人力、完善政策体系。
从系统的观点看,企业战略与企业战略环境、企业战略能力有关。因此,将企业战略环境、企业战略能力因素建立量化的尺度。可采用专家评分法对企业战略环境(SE)进行量化。可采用功效系数法对企业战略能力(SC)进行量化。
利用系统动力学方法确定一个适当的模型,综合、有效地反映各种复杂因素之间的关系,通过分析、观察各因素发生波动时,对总体战略目标的影响,找出关键因素,并研究其稳定性。系统建模的原则:数学模型要满足现实性、简洁性、适应性、强壮性。系统建模的步骤主要有:形成问题;选定变量;变量关系的确定;确定模型的数学结构及参数辨识;模型真实性检验。
通过对博弈论中激励理论、代理模型的研究,分析企业价格战略、竞争战略以及多方合作经营战略。“竞争”是目前国内建筑行业发展最为显著的特点,也是国内建筑企业面临的首要问题,国内建筑企业必须改变原来的经营理念和管理方法,采用更多科学的分析方法,进行细致的分析,才能做大做强,在国际竞争中占据一席之地.
第三篇：VB+Access学生公寓管理系统-论文
VB+Access学生公寓管理系统-论文
中文摘要
随着电脑的普及与使用，现在的管理也提升了一个档次，渐渐实现了无纸化办公，即从原来的人工记录管理模式转变为电脑一体化管理。高校是科研的阵地，后勤的公寓管理也应该一改传统的人工管理，更加信息化，时代化，节省人力物力，提高效率。基于这一点，开发此学生公寓管理软件。学生公寓管理软件，是以高校的管理方式为实例而设计的一种实用型管理系统。本系统最大的特点是通用性、简单操作性，适用于同行业以及一些同类型的企业管理。随着学校寄宿人员的增多，公寓管理人员的负担越来越重，为了让所有公寓管理人员能从繁重的工作中解脱出来，实现无纸化办公；使工作更有条理，更方便，更有效率而开发出这套公寓管理软件。软件从对学生的分房开始到最后的公寓管理全部电脑化。它主要包括：公寓、寝室的配置、住宿人员登记、卫生检查、公寓资产、学生违纪、值班老师记录以及对学生住宿情况查询，可以更快地了解到每个学生的住宿情况,使公寓的管理效率更高，做的更好！
关键字：配置、登记、检查 Abstract
With the popularization and use of the computer, present management has been promoted much, more and more jobs have been done by computer.It namely changes the original artificial record management mode into computer''s integrating and managing.The university is the position of scientific research, the apartment management should change traditional managing artificially too, for the efficiency.So , develop the management software of student''s apartment.Student Apartment Management System is a utility management system based on the managing mode of many universities and colleges.Universal and easy-operating are the greatest features of the system ,which is also applicable for enterprises of the same type.Apartment keepers bear a increasingly heavy burden because of the gradually added number of roomers.In order to free apartment keepers from the heave work,and make the work more convienent and efficient.The apartment management system is developed.The system computerized all the processes concerning the apartment management which include apartment,dormitory distribution,roomer registration,santitation examination,and the query for apartment property,students'' violation of discipline,teachers'' records and rooming situation.It makes the apartment management more efficient and much better.Key word: dispose、register、check 目录
引言...4 第一章系统分析...5 1.1开发工具简介及系统运行环境...5 1.2开发的必要性...6 1.3系统开发的可行性...7 1.4数据来源...8 1.5新系统数据流程图...9 第二章 数据库设计...12 第三章功能模块设计...16 3.1新系统功能结构图及运行图如下：...16 3.2系统设置:.17 3.3公寓管理...18 3.4 卫生检查...19 3.5 公寓资产...20 3.6 记录查看与记录删除...20 3.7值班记录...20 3.8帮助制作...21 第四章 程序设计...22 主程序流程图...22 4.1 登录界面...23 4.2 程序主界面...26 4.3系统设置...32 4.4公寓管理...57 4.5卫生检查...60 4.6 公寓资产...64 4.7记录查看...66 4.8记录删除...74 4.9值班记录...81 4.10 Help制作...88 第五章 系统测试...90 总结...91 参考文献...92 引言
随着电脑的普及与应用，现在的管理也需要提升一个档次。即从原来的手工记录管理模式转变为电脑一体化管理。这样会给公寓的管理人员带来很多好处，让他们管理的效率更高、效果更好，管理起来更方便。由此而产生了本管理软件――学生公寓管理软件。学生公寓管理软件是用Microsoft Visual Basic 编写完成。由于Visual Basic率先采用了可视化（VISUAL）的程序设计方法。所以利用系统提供的大量可视化控件，可以方便的以可视化方式直接绘制用户图形界面，并可直观，动态的调整界面的风格和样式，直到满意为止，从而克服了以前必须用大量代码去描述界面元素的外观和位置的传统编程模式。做起来方便，使用起来更为快捷。
作为一个学生公寓的管理软件，要十分全面的贴近以及适合大学公寓的管理方法。本软件的参考资料主要有两种来源：一是参考本学校公寓的管理结构，管理方法。如各个公寓的分布特色，以及公寓的各种管理制度。这些资料是本软件的主要依据，也可以说这些资料来源于普通的生活，比较真实一些。二是来源于网络上的各种同类软件，通过这些软件可以看出一个公寓最低需要哪些管理与设置，在这些软件中，有些软件功能比较齐全，但是在管理上显的非常的不方便，使用起来十分麻烦、繁琐，有些虽然简单，但是功能上又不是十分完善，对这些软件首先要进行取其精华，弃其糟粕，从而进行编写。
本软件主要包括以下方面：系统设置、公寓管理、卫生检查、公寓资产、记录查看、记录删除、值班记录、帮助制作。
学生公寓管理软件目前版本为1.0.1，为一个测试版本。它目前在功能上，以及操作的简便上有很大的改进。但是还是存在一些不足，在有些功能的实现上还不是十分的理想，这也是本人在时间和精力上留下的遗憾。但是相信这些会在以后的版本中得到完善，使这个软件成为一个功能上最全，使用上最简捷方便的管理软件。431
[10]...>> 第一章系统分析
系统采用MICROSOFT公司的 VISUAL BASIC语言编写的学生公寓管理系统,本系统在研制开发过程中，严格遵循软件工程方法，完全采用结构化程序设计方法。
本系统的主要功能可以方便的对学生公寓进行管理，系统采用ACCESS数据库使数据具有较强的完整性、较好的数据安全性等特点以及提供了标准的帮助，使用户方便的获得所需的帮助。界面友好、操作简单、功能齐全、具有较好的人机接口界面是本系统的最大优点。1.1开发工具简介及系统运行环境 1．1．1
VB6简介
本软件的开发工具为VISUAL BASIC，作为一种开发语言，VISUAL BASIC率先采用了可视化（VISUAL）的程序设计方法。利用系统提供的大量可视化控件，可以方便的以可视化方式直接绘制用户图形界面，并可直观、动态的调整界面的风格和样式，直到满意为止，从而克服了以前必须用大量代码去描述界面元素的外观和位置的传统编程模式。
它还拥有面向对象的编程方法。面向对象的程序设计是伴随WIDNOWS图形界面的诞生而产生的一种新的程序设计思想，与传统程序设计有着较大的区别，VISUAL BASIC采用了面向对象的程序设计思想。所谓“对象”就是现实生活中的每个一人，每一个可见的实体。同样，在VISUAL BASIC中，用来构成用户图形界面的可视化控件，也可视为是一个对象。不同的对象，在程序中所赋给它的功能是不同的，比如，在图形界面上有两个命令按钮，一个用来实现数据的统计计算，另一个用来实现数据的打印，这两个按钮就可视为是两个不同的对象，为了实现这两个对象各自不同的功能，接下来就应该分别针对这两个对象编写程序代码，这种编程的思想和方法即为所谓的“面向对象的程序设计”。它还支持第三方软件商为其开发的可视化控制对象，如本例中就用到了一个。这些可视化控件对应的文件扩展名这OCX。只要拥有控件的OCX文件，就可将其加入到VB系统中，从而大大增强VB的编程实力。使软件做起来会更加得心应手。1．1．2 HELP 制作
制作help文档需要一个专业制作软件，本人使用的是破解版的QuickCHM，此软件无论在功能上还在是操作上用起来都是很方便。它属于一个傻瓜型的制作软件，利用它可以快速的制作出各种你所需要的帮助文档。但是如果想制作出帮助文档，就需要使用制作网页的软件把内容先做成html形式，本人使用Dreamweaver制作的网页，然后在用此软件进行加载，最后生成chm文档。1.2开发的必要性
信息资源已成为各个部门的重要财富和资源，建立一个满足各级部门信息处理需要的信息系统，也一个企业或组织生存越来越重要的信息资源。长期以来，使用传统人工的方法管理高校公寓，这种管理方式存在着许多缺点，如：效率低。而且时间一长，将产生大量的文件和数据，这对于查找、更新、维护都带来了不少的困难。
随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥越来越重要的作用。学生公寓管理软件，是以高校的管理方式为实例而设计的一种实用型管理软件。
本系统最大的特点是通用性、简单操作性。随着学校寄宿人员的增多，公寓管理人员的负担越来越重，为了让所有公寓管理人员能从繁重的工作中解脱出来，实现无纸化办公，使工作更有条理、更方便、更有效率，而开发出这套公寓管理软件。1.3系统开发的可行性 1．3．1 技术上的可行性 我们正走进一个信息时代，信息技术将从根本上改变人类社会的生产方式和生活方式，各行各业的业务管理现在都已经相继使用计算机来处理，可以说用计算机进行信息管理是一个总趋势。学生公寓管理软件主要是对公寓、寝室的配置、住宿人员登记、卫生检查、公寓资产、学生违纪、值班老师记录以及对学生住宿情况查询，修改，更新等。可以更快地了解到每个学生的住宿情况。开发一个学生公寓管理系统可以达到事半功倍的效果。随着数据库管理系统的普及以及可视化编程软件的出现，使数据库管理信息系统的开发变得更为简单，因此开发一个学生公寓管理系统是完全可行的。1．3．2 经济上的可行性
本单位有自己的微机室可以使用，不必重新购置计算机，不需要花费大量资金，是一个节约人力物力的好办法。
1．3．3 组织管理上的可行性
本单位的领导干部具有较高的素质，它们对管理现代化有较高的认识水平，并且有各级领导的大力支持和重视。
综上所述，建立一个学生公寓管理软件与人工操作相比具有速度更快，操作更准确，更节约开支等有利之处，因此建立一个学生公寓管理软件是必要可行。
1.4数据来源
作为一个学生公寓的管理软件，要十分全面的贴近以及适合大学公寓的管理方法。本软件的参考资料主要有两种来源：一是参考本学校公寓的管理结构，管理方法，这些资料是本软件的主要依据，也可以说这些资料来源于普通的生活，比较真实一些。二是来源于网络上的各种同类软件，通过这些软件可以看出一个公寓最低需要哪些管理与设置，在这些软件中，有些软件功能比较齐全，但是在管理上显的非常的不方便，使用起来十分麻烦、繁琐，有些虽然简单，但是功能上又不是十分完善，对这些软件首先要进行取其精华，弃其糟粕，从而进行编写。
[10]...>> 1.5新系统数据流程图
图1.1数据流程图
数据字典
图1.2 数据元素 注：其它数据元素略
图1.3 数据流 注：其它数据流略
图1.4 加工 注：其它加工略
注：其它数据存储略
第二章 数据库设计
1、E-R图
图2.1 E-R图
2、信息的数量越来越大，数据库的作用越发突出,所以数据库的建立是系统施实的主要部分之一，它关系到整个系统的运行情况，是整个系统的重要组成部分。本系统数据库为db.mdb，在数据库中包括十个表。分别是：用户表、公寓表、班级表、寝室表、卫生等级表、学生基本情况表、学生请假情况表、学生违规情况表、寝室卫生情况表、资产表。下面介绍几个主要的表：
⑴ 学生基本情况表主要是存放学生的基本情况，字段包括：姓名、性别、学号、班级、公寓、寝室、入学时间、年制、寝室电话、个人电话、备注。数据结构如下表：
字段名 数据类型 数据长度 姓名 文本 8 性别 文本 2 学号 文本 10 班级 文本 10 公寓 文本 20 寝室 文本 10 入学时间 文本 14 年制 文本 8 个人电话 文本 15 备注 备注
⑵ 学生请假情况表主要存放学生请假情况，字段包括：日期、姓名、班级、公寓、寝室、天数、原因、老师、备注。数据结构如下表： 字段名 数据类型 数据长度 日期 文本 14 姓名 文本 8 班级 文本 10 公寓 文本 20 寝室 文本 10 天数 文本 10 原因 备注
老师 文本 8 备注 备注
⑶ 学生违规情况表主要存放学生违规情况，字段包括：日期、姓名、班级、公寓、寝室、原因、程度、处罚、备注。数据结构如下表：
字段名 数据类型 数据长度 日期 文本 14 姓名 文本 8 班级 文本 10 公寓 文本 20 寝室 文本 10 原因 备注
程度 备注
处罚 备注
备注 备注
⑷ 卫生情况表主要存放寝室卫生情况，字段包括：日期、公寓、寝室、检查1到
5、得分、减分、等级、备注。其中检查1到5是为了在没有使用者想输入的记录的情况下自己输入而设计的，保证了系统的可修改性、可扩展性。数据结构如下表： 字段名 数据类型 数据长度 日期 文本 14 公寓 文本 20 寝室 文本 10 检查1 文本 40 检查2 文本 40 检查3 文本 40 检查4 文本 40 检查5 文本 40 得分 文本 4 减分 文本 4 等级 文本 6 备注 备注
⑸ 资产表主要存放寝室新增资产情况，字段包括：日期、公寓、名称、数量、单价、总价、用途、备注。数据结构如下表： 字段名 数据类型 数据长度 日期 文本 14 公寓 文本 20 名称 文本 20 数量 文本 4 单价 文本 10 总价 文本 10 用途 备注
备注 备注
第三章功能模块设计
3.1新系统功能结构图及运行图如下：
1、系统功能结构图：
[10]...>> 图3.1系统功能结构图
2、系统功能结构图运行图：
图3.2系统功能结构运行图
经过系统分析，确定了本软件主要包括以下方面：系统设置、公寓管理、卫生检查、公寓资产、记录查看、记录删除、值班记录、帮助制作。3.2系统设置: 主要完成：用户管理、公寓设置、数据备份、数据转换、退出的功能。运行图如下:
图3.3系统设置运行图 3.2.1 用户管理
可以进行管理人员的添加和修改以及删除操作。添加人员可以分为两类：普通用户、管理员。可以视不同人员而添加。管理员拥有所有权力，对整个系统的操作。普通用户只有浏览、及一些简单的添加操作权力。无用户设置、公寓设置及记录删除等权力。3.2.2公寓设置
分为三个主要的操作：公寓设置、寝室设置、班级设置。在这里可以添加学校所有的公寓、所有班级、每个公寓的所有寝室,也可以用此软件管理一幢公寓。这样操作起来会更简单、操作一目了然。3.2.3数据备份
这是一个数据管理软件所必不可少的一部分，利用它可以及时的备份当前的数据库以及在出现故障后利用已保存的数据进行恢复。3.2.4数据转换
利用数据转换将当前数据库中的表转换成Excel表格的形式，显示更为直观，可以进行打印等操作。3.3公寓管理
主要完成：学生请假、学生违规、床位设置的功能。运行图如下:
图3.4公寓管理运行图 3.3.1学生请假
主要是对学生请假记录做一个添加。利用它可以把学生的基本的请假资料保存起来。3.3.2学生违规
主要是对学生违规记录做一个添加。利用它可以把学生的基本的违规资料保存起来。3.3.3床位设置
通过床位设置可以简单查看每个公寓每个寝室的床位使用情况以及床位剩余情况。还可以通过详细查看，查看到某个公寓某个寝室住宿人员的人数，以及具体的住宿人员的名字。3.4 卫生检查
主要完成：添加检查记录的功能。卫生检查可以对卫生检查的结果进行记录。这里的卫生标准一共有五项可以填写，在每一项里已经基本设置了所不合标准的记录，你可以在下拉列表框中进行选择即可，但是如果没有你想输入的记录的话，也可以自己输入。运行图如下:
图3.5卫生检查运行图 3.5 公寓资产
主要完成：添加新增物品的功能。可以对公寓资产的收入或其它物品的入库进行记录。运行图如下:
图3.6公寓资产运行图 3.6 记录查看与记录删除
主要是对学生请假、学生违规、卫生记录，公寓资产等记录所进行的操作，利用这两个功能可以对任一记录进行查看与删除。运行图如下:
图3.7记录查看
图3.8记录删除运行图 3.7值班记录
它的功能主要是针对值班人员开发出来的，在这里可以让值班人员对当天值班情况进行一个小记，以便日后查看。运行图如下:
图3.9值班记录运行图 3.8帮助制作
对于一个稍显正规的软件来说帮助的制作都是必不可少的内容，本程序也不例外，制作了此帮助文档。在程序中可以按F1或点击帮助菜单来显示此help.Chm文档。以便对本软件进行快速操作。运行图如下:
图3.10帮助运行图
第四章 程序设计 主程序流程图
4.1 登录界面
此界面是由Photoshop制作而成。在做这个登录面的时候想了很多，最后选择了这种，感觉它看起来干净，整齐。又不失其庄雅。加上本单位最有特色的建筑，会让人一目了然。
4.1.1 登录图片显示
图4.1登录界面
4.1.2 界面制作与实现
在这个界面中，主要处理的是判断当前用户输入的信息是否正确。如果正确，那么它属于哪种类型用户。因为此管理软件在登录后不同类型的用户显示的窗体与实现的功能都不是一样的，它们会有所差别！(1)浮动按钮的实现
确定和取消两个按钮在鼠标没有放上去之前看上去只是一个普通的平面字效果，但是当你把鼠标放在这几个字上面后，它会显示凸出的效果，按下后呈现凹陷的效果。总体实现立体的感觉。原理主要是在鼠标mousemove事件与线的颜色变化组合来实现。主要代码如下：
在窗体中的鼠标移动过程中，以及在窗体初始化的时候，要把添加的线的.Visible 属性设置为 False，只有在鼠标按下的时候在改变其颜色即
[10]...>> 可。
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)Line1.Visible = False Line2.Visible = False Line3.Visible = False Line4.Visible = False Line5.Visible = False Line6.Visible = False Line7.Visible = False Line8.Visible = False End Sub
鼠标按下的时候设置线条的颜色如下：
Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)Line1.BorderColor = &H808080 Line2.BorderColor = &H808080 Line3.BorderColor = &HE0E0E0 Line4.BorderColor = &HE0E0E0 End Sub
鼠标移动到标签的时候设置线条的颜色如下： Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)Line1.BorderColor = &HE0E0E0 Line2.BorderColor = &HE0E0E0 Line3.BorderColor = &H808080 Line4.BorderColor = &H808080 Line1.Visible = True Line2.Visible = True Line3.Visible = True Line4.Visible = True End Sub(2)用户类型判断
在数据库中建了一人yonghu表。在添加管理人员时有两种默认级别。管理员、普通用户。管理员拥有对数据库操作的一切权限。普通用户只有普通的查看，数据转换等。没有删除等操作功能。前用户成功登录后，会在主窗体的状态栏中显示出当前用户及其用户类型。主要代码如下：
设置当前控件连接的数据库 Dim provider As String Dim datasource As String provider = “provider=Microsoft.jet.oledb.4.0” datasource = “data source=” & App.Path & “DB.mdb” With Adodc1.Mode = adModeReadWrite.ConnectionString = provider & “;” & datasource.CommandType = adCmdTable.RecordSource = “yonghu”.Refresh.Recordset.MoveFirst End With 对用户进行判断
If Text1.Text = “" Then MsgBox ”请输入用户名!“, 48, ”提示“ Exit Sub End If Adodc1.Recordset.Find ”用户=''“ & Text1.Text & ”''“ If Adodc1.Recordset.EOF = False And Text2.Text = Trim(Adodc1.Recordset.Fields(”pass“))Then main.Text1.Text = Adodc1.Recordset.Fields(”级别“)main.Text2.Text = Adodc1.Recordset.Fields(”用户“)main.Show Unload Me Else Text1.Text = ”“ Text2.Text = ”“ MsgBox ”登录不成功,请重新登录!“, 48, ”提示“ End If 4.2 程序主界面
程序主界面为本软件的显示的核心部分。一切主要操作及显示都通过这里完成。整个界面主要由五部分组成。菜单部分、工具栏、左侧操作栏、右侧显示栏以及状态栏。①界面效果图如下：
图4.2程序主界面
菜单栏的详见附录内容，这里就不提了。左侧操作栏和右侧显示栏会在下面的内容中做介绍，现在只简单介绍一下工具栏和状态栏，以及主窗体的各个事件。
工具栏主要是由coolbar制作而成。由它制做的工具栏的显示效果会更有立体感一些。这里只列出了几个常用的按钮。其中的添加按钮是用来对公寓住宿人员进行添加，修改也是对所住宿人员进行修改，想要进行修改时必须显示所有记录时才可以进行。在这里值得一提的是删除DataGrid的操作，由于不知道它的当前数据源是哪个，所以在删除前要确定它的数据源，也就是它所链接的adodc1的数据源，或者是其它ado控件对它的数据源进行重新绑定后的数据库表，也有可能是经过一个查询后得到的记录。②它的实现方法如下所示： Dim o As Adodc Set o = DataGrid1.datasource
o.Recordset.Delete
o.Recordset.Update 这里主要是用到了ado对像的方法。用这个方法得到数据源。
下面是整个工具栏运行时代码： Select Case Button.Index Case 1 sel.Show 1 Case 3 add.Show 1 Case 5 On Error GoTo next2 Dim s As Adodc Set s = DataGrid1.datasource If s.RecordSource = ”users“ Then edit.Show 1 End If next2: Case 7 On Error Resume Next Dim o As Adodc Set o = DataGrid1.datasource
o.Recordset.Delete
o.Recordset.Update Case 9 back.Show 1 Case 11 With Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdTable.RecordSource = ”users“ ''.Refresh End With Set DataGrid1.datasource = Adodc1 DataGrid1.Refresh Call dx Case 13 Unload Me End Select 状态栏分四个部分。第一个为固定显示当前所用软件名称及作者。其中第二个和第三部分为动态显示的，它会显示出每次用户登录名称及其管理模式。由上图可以看出，lf为本软件管理员。第四部分为日期与时间的显示。其中第三部分的代码实现如下： main.Text1.Text = Adodc1.Recordset.Fields(”级别“)main.Text2.Text = Adodc1.Recordset.Fields(”用户“)StatusBar1.Panels(2).Text = ”当前用户：“ & Text2.Text StatusBar1.Panels(3).Text = ”用户模式：“ & Text1.Text StatusBar1.Panels(4).Text = Date & ”
“ & Time ''设置普通用户模式
If Text1.Text = ”普通用户“ Then yhgl.Visible = False g1.Visible = False jlsc.Visible = False gysz.Visible = False Toolbar1.Buttons(5).Visible = False Toolbar1.Buttons(6).Visible = False Toolbar1.Buttons(7).Visible = False Toolbar1.Buttons(8).Visible = False End If 主窗体在程序运行中会遇到不断改变其大小，最小化，最大化，以及用鼠标来改变，这里需要在窗体的Resize事件中添加代码，让程序中用到的各个控件随时可以适应窗体改变后的大小，在这里改变的控件主要有DataGrid、TreeView系列及Frame控件、StatusBar。下面就是设置它们大小的程序代码：
DataGrid1.Width = main.WidthStatusBar1.Height750 SSTab1.Height = main.HeightCoolBar1.HeightStatusBar1.Height1200 Frame2.Height = main.HeightCoolBar1.HeightStatusBar1.Height1200 TreeView1.Height=main.HeightCoolBar1.HeightStatusBar1.Height1500 TreeView3.Height=main.HeightCoolBar1.Heightz)/ 4 StatusBar1.Panels(1).Width = u + x StatusBar1.Panels(2).Width = v + x StatusBar1.Panels(3).Width = w + x StatusBar1.Panels(4).Width = m + x 这个软件的主要部分都在这里运行、查看，所以在主窗体的load事件里要把所用的到的东西都要加载进来，例如所在程序运行时所用到的表，左侧treeview部分树形显示的初始化。在这里几乎用到了所有的表，如下所示： provider = ”provider=Microsoft.jet.oledb.4.0“ datasource = ”data source=“ & App.Path & ”DB.mdb“ With Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdTable.RecordSource = ”users“ ''.Refresh End With
With Adodc2.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdTable.RecordSource = ”gongyu“.Refresh End With
With Adodc3.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdTable.RecordSource = ”class“.Refresh End With
With Adodc4.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdTable.RecordSource = ”weisheng“.Refresh End With
With Adodc5.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource End With
With Adodc6.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdTable.RecordSource = ”dengji“.Refresh End With
With Adodc7.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdTable.RecordSource = ”qinshi“.Refresh End With
With Adodc9.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdTable.RecordSource = ”zichan“.Refresh End With treeview部分树形显示的初始化在这里已经做了几个过程，调用即可。4.3系统设置 4.3.1用户管理 ①界面效果图
[10]...>>
② 界面制作与实现方法
这个界面总体来说各个控件比较简单，但是作为一个添加删除管理员的操作，它已经连接到了数据库，与数据库的yonghu表相联。各个控件也与数据库中表的字段绑定。在窗体初始化的时候要判断当前数据库表中是否有记录，如果没有记录那么有些按钮将会被设置成为失效状态，否则会出现错误。设置代码如下： Dim provider As String Dim datasource As String provider = ”provider=Microsoft.jet.oledb.4.0“ datasource = ”data source=“ & App.Path & ”DB.mdb“ With Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdTable.RecordSource = ”yonghu“.Refresh End With Option1.Enabled = False Option2.Enabled = False If Adodc1.Recordset.RecordCount = 0 Then Command2.Enabled = False Command3.Enabled = False Command5.Enabled = False Command6.Enabled = False End If Text2.Text = Text3.Text 上一条与下一条的功能一目了然，它们可以对当前表进行上一条记录或下一条记录依次查看。当找到记录后，可以对其进行相对的删除、修改等操作。上一条记录与下一条的记录在查看时有一个判断。当表中记录移到最前面（BOF）或最后面（EOF）时，会把上一条或下一条其中的一个按钮的enable属性设置为true。即不可以前查看或向后查看。上一条与下一条主要代码如下：
Adodc1.Recordset.MovePrevious ''移动记录 Command6.Enabled = True If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveFirst
Command5.Enabled = False End If Adodc1.Recordset.MoveNext ''移动记录 Command5.Enabled = True If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
Command6.Enabled = False End If 添加用户可以添加使用该管理软件的用户。添加的时候可以选择所添加人物的级别。软件默认为两个级别：管理员、普通用户。管理员拥有对此软件管理操作等一切的权力。普通用户，只有普通的查看、查询、备份、添加等权力。没有对记录删除等权力。在添加用户时你可以选择一个且必须选择一个。然后输入此用户的用户名和密码即可！添加用户主要代码：
If Command1.Caption = ”添加“ Then Command2.Enabled = False Command5.Enabled = False Command6.Enabled = False Command1.Caption = ”确定“ Command3.Caption = ”取消“ Adodc1.Recordset.AddNew Option1.Enabled = True Option2.Enabled = True Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text2.Text = ”“ ElseIf Text1.Text = ”“ Then MsgBox ”用户名不能为空！“, 48, ”提示“ ElseIf Text2.Text = ”“ Then MsgBox ”密码不能为空！“, 48, ”提示“ ElseIf Text2.Text <> Text3.Text Then MsgBox ”密码两次需一致！“, 48, ”提示“ ElseIf Text4.Text = ”“ Then MsgBox ”请选择所建用户类型！“, 48, ”提示“ Else Command2.Enabled = True Command3.Enabled = True Command5.Enabled = True Command6.Enabled = True Command3.Caption = ”编辑“ Command1.Caption = ”添加“ Adodc1.Recordset.Update Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Option1.Value = False Option2.Value = False Option1.Enabled = False Option2.Enabled = False End If 删除操作可以把当前记录删除掉。一经删除即不可以在恢复。所以在操作前要想好。删除操作部分代码：
If Adodc1.Recordset.RecordCount = 1 Then Command2.Enabled = False End If If(MsgBox(”你真的想删除当前记录吗？“, vbOKCancel, ”系统提示“))= vbOK Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveFirst Adodc1.Refresh End If 编辑操作可以对当前所选择的用户进行编辑，可以修改其用户名与密码。当当前用户感觉自己用户名称或密码有泄露时，可以进行修改。修改记录即更新表中的某一条记录。编辑操作主要代码如下： Command2.Enabled = False Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text4.Enabled = True Option1.Enabled = True Option2.Enabled = True Command1.Caption = ”确定“ ElseIf Command3.Caption = ”取消“ Then Command3.Caption = ”编辑“ Command1.Caption = ”添加“ Command2.Enabled = True Command5.Enabled = True Command6.Enabled = True Text2.Text = Text3.Text Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Option1.Value = False Option2.Value = False Option1.Enabled = False Option2.Enabled = False End If 4.3.2 公寓设置
公寓设置可以说是本程序中一关键部分。因为所有的设置都在此进行。包括公寓添加、修改、删除。寝室的添加、修改、删除以及班级的添加、修改和删除操作。只有正确的对这些设置进行添加修改，才能输入正确的记录。这里主要涉及到的问题是datagrid的显示，以及treeview及时形成新的结构。还有一些就是对表记录的复杂操作。在点击sstab各版的时候，要在这时重新生成寝室设置中的树型结构，Select Case PreviousTab
Case 0
Call startree1
Case 1
Combo1.Clear
Dim I As Integer
I = 1
If Adodc1.Recordset.RecordCount <> 0 Then
Adodc1.Recordset.MoveFirst
Do While I < Adodc1.Recordset.RecordCount
Combo1.AddItem(Adodc1.Recordset.Fields(”公寓名称“))
Adodc1.Recordset.MoveNext
I = I + 1
Loop
End If
Call startree1
Case 2
Call startree1 End Select End Sub(1)公寓设置
① 公寓设置效果图
图4.4公寓设置
② 界面制作与实现方法
在这个界面中主要用到了一个Sstab控件与一个显示表中内容的Datagrid控件。以及起到美观作用的Frame控件。
在右下角的文本框中可以输入想要添加的公寓名称。然后点击添加即可完成添加操作。Datagrid中会立即刷新显示更新内容。要修改某条记录时，要先对所要修改的记录进行选择，确认选择后，点击下面的修改按钮，会在下面的文本中显示出所要修改公寓的名称，此时即可输入要修改的名字。然后点击更新就会完成此操作。Datagrid也会即时更新其内容。删除操作更为简单，选择想要删除的公寓名称，点击删除，确认后完成此操作。但是删除后不会影响其它表中的数据。其它表的有关此公寓的信息还会存在。在进行所有操作前，先要确定数据库已连接。
在添加前要判断所写公寓名称是否正确，即是否输入名称，该记录不能为空，不为空则对数据库表进行查找，判断当前输入记录是否已在表中存在，如果已存在，则会给出提示，不存在，添加成功。
Adodc1.Recordset.Find ”公寓名称=''“ & Text2.Text & ”''“ If Adodc1.Recordset.EOF = False Then MsgBox ”此公寓已存在“, , ”提示“ Adodc1.Recordset.MoveFirst Exit Sub End If Text3.Text = ”“ If Text2.Text = ”“ Then MsgBox ”输入所要添加公寓的名称“, , ”提示“ Exit Sub End If 添加：
Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(”公寓名称“)= Text2.Text Adodc1.Recordset.Update Adodc1.RecordSource = ”gongyu“ Text2.Text = ”“ Set DataGrid2.datasource = Adodc1 DataGrid2.Refresh
修改公寓名称：
If Text3.Text = ”“ Then MsgBox ”选择要修改的公寓“, , ”提示“ Exit Sub End If If Command12.Caption = ”修改“ Then Text2.Text = Text3.Text Label6.Caption = ”输入想要修改的公寓名称“ Command12.Caption = ”更新“ Command3.Enabled = False Command7.Enabled = False ElseIf Command12.Caption = ”更新“ Then Command3.Enabled = True Command7.Enabled = True Label6.Caption = ”输入想要添加的公寓名称“ Adodc1.Recordset.Fields(”公寓名称“)= Text2.Text Adodc1.Recordset.Update Adodc2.Recordset.ActiveConnection.Execute ”update qinshi set 公寓名称=''“ & Text2.Text & ”'' where 公寓名称=''“ & Trim(Text3.Text)& ”''“ Adodc2.Recordset.Update Command12.Caption = ”修改“ End If Set DataGrid2.datasource = Adodc1 DataGrid2.Refresh Adodc5.Recordset.Update Set main.DataGrid1.datasource = Adodc5 main.DataGrid1.Refresh
删除公寓名称
If Text3.Text = ”“ Then MsgBox ”选择所要删除公寓的名称“, , ”提示“ Exit Sub End If If(MsgBox(”你真的想删除公寓名称为
“ & Text3.Text & ” 的记录吗？“, vbOKCancel, ”系统提示“))= vbOK Then
Adodc1.Recordset.Delete
Adodc1.Recordset.Update End If Text3.Text = ”“ Set DataGrid2.datasource = Adodc1 DataGrid2.Refresh(2)寝室设置
①寝室设置效果图
图4.5寝室设置
②界面制作与实现方法 此界面实现相对比公寓设置来说相对复杂一些。用到的控件主要是Sstab与Treeview。但是在程序方面比较复杂。
在添加一个寝室前先要选择所要添加寝室所在的公寓。这个公寓可以点击下面的树中的节点，也可以在列表框中选择。树中的节点在点击后会把父节点显示在选择公寓后面的列表框中，而选中的节点会出现在寝室名称里。你也可以自己进行添写，确认公寓后即可添加完成了。添加后会把Treeview重新刷新一下。以显示更新后的记录。添加源码： Adodc1.Refresh Adodc1.Recordset.Find ”公寓名称=''“ & Combo1.Text & ”''“ If Adodc1.Recordset.EOF = True Then MsgBox ”此公寓不存在“, , ”提示“ Adodc1.Recordset.MoveFirst Exit Sub End If If Combo1.Text = ”“ Or Text1.Text = ”“ Then MsgBox ”请输入所要添加的寝室及其所属公寓“, , ”提示“ Exit Sub End If With Adodc2.Recordset.AddNew.Recordset.Fields(0).Value = Combo1.Text.Recordset.Fields(1).Value = Text1.Text.Recordset.Update End With Combo1.Text = ”“ Text1.Text = ”“ Call startree1 修改操作可以把当前选中的寝室进行名称修改与其所属公寓进行修改。当要对名称进行修改时，先要选择所要修改的寝室名，选择后会在寝室名称里显示出来，把当前寝室名称改成要修改的寝室名称，然后点击修改即完成名称修改操作。当要对当前寝室的所属公寓进行修改时，需要先选择所要修改的寝室，然后在上面的公寓名称后填写所要修改的寝室名称。点击修改后完成此操作。但是这种操作不是常见。修改源码： Adodc1.Refresh Adodc1.Recordset.Find ”公寓名称=''“ & Combo1.Text & ”''“ If Adodc1.Recordset.EOF = True Then MsgBox ”此公寓不存在“, , ”提示“ Adodc1.Recordset.MoveFirst Exit Sub End If
Dim sql As String On Error Resume Next If Combo1.Text = ”“ Or Text1.Text = ”“ Then MsgBox ”请在下面选择所要修改的寝室“, , ”提示“ Exit Sub End If ''sql = ”select * form qinshi where 公寓名称=''“ & Trim(Combo1.Text)& ”'' and 寝室=''“ & Trim(Text1.Text)& ”''“
Adodc2.Recordset.ActiveConnection.Execute ”update qinshi set 寝室=''“ & Text1.Text & ”'',公寓名称=''“ & Trim(Combo1.Text)& ”''where 寝室=''“ & Trim(Text6.Text)& ”''and 公寓名称=''“ & Trim(Text7.Text)& ”''“ Adodc2.Recordset.Update Combo1.Text = ”“ Text1.Text = ”“ Call startree1 删除操作可以删除掉当前树型显示中的任何一个子节点，也就是这个树型节点中的寝室名称，注意的是，删除后这个记录只在qinshi表中删除，其相关记录不会被删除掉的，如果想删除，还需要人工操作。实现的方法主要是对qinshi表操作，先对其进行查询，查询当前想要被删除的表是否存在，如果不存在，则给出提示，如果存在这条记录，则在表中把它删除掉，删除后调用生成树过程，把当前寝室设置中的树型结构重新生成，更新记录。实现的部分代码如下所示：
If Combo1.Text = ”“ Or Text1.Text = ”“ Or Combo1.Text = ”公寓管理系统“ Then MsgBox ”选择所要删除的寝室“, , ”提示“ Exit Sub End If If(MsgBox(”你真的想删除
“ & Combo1.Text & ” “ & ”寝室为“ & Text1.Text & ” 的记录吗？“, vbOKCancel, ”系统提示“))= vbOK Then Adodc2.Refresh
[10]...>>
Adodc2.Recordset.ActiveConnection.Execute ”delete from qinshi where 公寓名称=''“ & Trim(Combo1.Text)& ”'' and 寝室=''“ & Trim(Text1.Text)& ”''“ Adodc2.Recordset.Update End If Combo1.Text = ”“ Text1.Text = ”“ Call startree1 在treeview点击的时候，上面的文本框中会显示相应的记录，这主要是对treeview进行了设置，代码如下：
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)On Error Resume Next Text1.Text = TreeView1.SelectedItem.Text Combo1.Text = TreeView1.SelectedItem.Parent Text6.Text = TreeView1.SelectedItem.Text Text7.Text = TreeView1.SelectedItem.Parent End Sub(3)班级设置
①班级设置效果图
图4.6班级设置
②界面制作与实现方法
此界面制作与公寓设置基本一致。在这个界面中主要用到了一个Sstab控件与一个显示表中内容的Datagrid控件。以及起到美观作用的Frame控件。
在右下角的文本框中可以输入想要添加的班级名称。然后点击添加即可完成添加操作。Datagrid中会立即刷新显示更新内容。要修改某条记录时，要先对所要修改的记录进行选择，确认选择后，点击下面的修改按钮，会在下面的文本中显示出所要修改班级的名称，此时即可输入要修改的名字。然后点击更新就会完成此操作。Datagrid也会即时更新其内容。删除操作更为简单，选择想要删除的班级名称，点击删除，确认后完成此操作。添加班级源码：
Adodc3.Recordset.Find ”class=''“ & Text4.Text & ”''“ If Adodc3.Recordset.EOF = False Then MsgBox ”此班级已存在“, , ”提示“ Adodc3.Recordset.MoveFirst Exit Sub End If Text5.Text = ”“ If Text4.Text = ”“ Then MsgBox ”输入所要添加班级的名称“, , ”提示“ Exit Sub End If Adodc3.Recordset.AddNew Adodc3.Recordset.Fields(”class“)= Text4.Text Adodc3.Recordset.Update Adodc3.RecordSource = ”class“ Text4.Text = ”“ Set DataGrid3.datasource = Adodc3 DataGrid3.Refresh 修改班级源码：
If Command10.Caption = ”修改“ Then Text4.Text = Text5.Text Label6.Caption = ”输入想要修改的班级名称“ Command10.Caption = ”更新“ Command6.Enabled = False Command9.Enabled = False ElseIf Command10.Caption = ”更新“ Then Command9.Enabled = True Command6.Enabled = True Label6.Caption = ”输入想要添加的班级名称“ Adodc3.Recordset.Fields(”class“)= Text4.Text Adodc3.Recordset.Update Command10.Caption = ”修改“ End If 删除班级源码：
If Text5.Text = ”“ Then MsgBox ”选择所要删除班级的名称“, , ”提示“ Exit Sub End If If(MsgBox(”你真的想删除班级名称 为
“ & Text5.Text & ” 的记录吗？“, vbOKCancel, ”系统提示“))= vbOK Then
Adodc3.Recordset.Delete
Adodc3.Recordset.Update End If Text5.Text = ”“ Set DataGrid3.datasource = Adodc3
DataGrid3.Refresh End Sub 4.3.3数据备份：
数据备份是一个数据库软件必不可少的一部分，利用它可以把当前数据库表进行全面的备份，以备以后使用。因为在操作中可能会导致数据遭到破坏，或者是系统的原因使数据库损坏，或者是一些其它的人为原因，这样你可以用此功能把数据恢复到最后一次备份的状态，使损失做到最少，经常备份，操作起来更有安全感。①数据备份效果图
图4.7数据备份效果图 ② 功能实现
界面制作相对程序来说比较简单，用到的是coolbar控件，点击按钮可以选择备份路径。然后点击数据备份即可。窗体初始化部分代码如下： Dim cnn1 As ADODB.Connection Dim rstschema As ADODB.Recordset Dim strcnn As String Set cnn1 = New ADODB.Connection strcnn = ”provider=Microsoft.jet.oledb.4.0;“ & ”data source=“ & App.Path & ”db.mdb“ cnn1.Open strcnn Set rstschema = cnn1.OpenSchema(adSchemaTables)Do Until rstschema.EOF temp = rstschema!Table_Name If Left(temp, 1)<> ”M“ Then End If rstschema.MoveNext Loop cnn1.Close On Error GoTo err PathName = App.Path & ”db.MDB“ dbasize = FileLen(PathName)err: Exit Sub 数据备份部分在本程序中用到了一个模块，在模块中有一个方法，dobackup。点击备份按钮后开始备份，代码如下： If txtDestination <> ”“ Then DoBackup PathName, txtDestination MsgBox ”备份成功！“, , ”提示“ ElseIf txtDestination = ”“ Then MsgBox ”You must specify a distination for the backup“, vbCritical 其中DoBackup为模块中已定义的方法，在这里进行调用。Dobackup实现方法代码如下所示： Dim lFileOp As Long Dim lresult As Long Dim lFlags
As Long Dim SHFileOp As SHFILEOPSTRUCT Dim strSourceDir As String Dim strDestinationDir As String Screen.MousePointer = vbHourglass BackupFolderName = strDestinationPath MkDir BackupFolderName & ”Backup“ & Format(Date, ”yyyy.mm.dd“)& vbNullChar
.fFlags = lFlags End With lresult = SHFileOperation(SHFileOp)Screen.MousePointer = vbDefault frmBackupDba.lblStatus = ”Backup Complete“ 在备份分前先要选择一个备份路径，点击…那个按钮开始进行选择，实现方法如下： Dim strTemp As String strTemp = fBrowseForFolder(Me.hwnd, ”Select backup path“)If strTemp <> ”“ Then
txtDestination = strTemp End If 数据恢复界面同上，它的功能主要是在当前数据库遭到破坏后，可以利用它来进行数据恢复，在数据恢复前要选择所要恢复的数据库路径，如下： Dim strTemp As String strTemp = fBrowseForFolder(Me.hwnd, ”Restore From“)If strTemp <> ”“ Then
txtSource = strTemp
dbasize2 = FileLen(txtSource & ”db.MDB“)
lblSelectedDba = ”Selected Backup Database is : “ & Format((dbasize2 / 1024)/ 1024, ”standard“)& ”MB.“
cmdRestore.Enabled = True End If Erro:
Select Case err.Number
Case 53 ''File Not Found
lblSelectedDba = ”No Backup at this location“
Toolbar2.Enabled = False
End Select 它主要是查看数据库是否存在，如果所恢复的数据不存在，则会提示错误。数据恢复也用到了一个方法，在模块中也已经定义了该方法DoRestore。数据恢复代码如下： If MsgBox(”Restoring database from location “ & txtSource & ” will replace existing database files.Do you want to Contunue“, vbYesNo)= vbYes Then DoRestore txtSource.Text, App.Path If NoDba = True Then MsgBox ”Database Restored Click Ok to Exit Program“ frmRestoreDba.Hide Unload frmRestoreDba End If Else lblStatus.Caption = ”Database Restore Canceled“ End If 其中DoRestore实现的功能源码如下所示：
DEFSOURCE = ”PROVIDER=Microsoft.jet.oledb.4.0;Persist Security Info=False;Data Source=“ DBName = ”db.MDB;Jet OLEDB:Database Password=matrix-se;“ Set Db = New ADODB.Connection
Db.Open DEFSOURCE & App.Path & DBName Dim lFileOp As Long Dim lresult As Long Dim lFlags
As Long Dim SHFileOp As SHFILEOPSTRUCT Dim strSourceDir As String Dim strDestinationDir As String Db.Close Screen.MousePointer = vbHourglass BackupFolderName = strDestinationPath lFileOp = FO_COPY lFlags = lFlags And Not FOF_SILENT lFlags = lFlags Or FOF_NOCONFIRMATION lFlags = lFlags Or FOF_NOCONFIRMMKDIR lFlags = lFlags Or FOF_FILESONLY With SHFileOp
.wFunc = lFileOp
.pFrom = strSourcePath & ”db.MDB“ & vbNullChar
.pTo = strDestinationPath & vbNullChar
.fFlags = lFlags End With lresult = SHFileOperation(SHFileOp)Set Db = New ADODB.Connection Db.Open DEFSOURCE & App.Path & DBName Screen.MousePointer = vbDefault frmRestoreDba.lblStatus = ”Restore Complete“ 说明：本程序中此部分内容参考了网上的同类型代码，对其进行修改后得到此成型作品，从功能上来讲，它已经实现了它所要完成的工作，经过测试已经没有问题，但是实现的源代码，也只有部分掌握。这实属本人精力与能力有限所置。4.3.4 数据转换
这个功能可以把当前列表框中的任何一个表转换成excel形式，转换后你可以看到表中的内容，也可以对表进行操作，保存，修改，打印等。①界面效果图
图4.8数据转换效果图 ②实现方法
在这里用到了一个显示gif图片的控件。选择左面list中的一个表后，点击导出后即可完成，进度条中显示当前转换进度程度。
首先要在list中加载各表名。以便进行选择转换。添加表名部分在load进行加载，其中的导出与取消按钮是由coolbar制作而成。Form的load事件处理内容如下：
TMaxAni1.FileName = App.Path & ”iconfind.gif“ TMaxAni1.ShowGif Dim cnn1 As ADODB.Connection Dim rstschema As ADODB.Recordset Dim strcnn As String Set cnn1 = New ADODB.Connection strcnn = ”provider=Microsoft.jet.oledb.4.0;“ & ”data source=“ & App.Path & ”db.mdb“ cnn1.Open strcnn Set rstschema = cnn1.OpenSchema(adSchemaTables)Do Until rstschema.EOF temp = rstschema!Table_Name If Left(temp, 1)<> ”M“ Then List2.AddItem temp End If rstschema.MoveNext Loop cnn1.Close List2.ListIndex = 0 On Error GoTo err PathName = App.Path & ”db.MDB“ dbasize = FileLen(PathName)数据转换成excel用到了一个部件，在引用中用到了Microsoft Excel9.0 Object library。转换代码如下：
Select Case Button.Index Case 1 Dim provider As String Dim datasource As String provider = ”provider=Microsoft.jet.oledb.4.0“ datasource = ”data source=“ & App.Path & ”DB.mdb“ With Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdTable.RecordSource = List2.Text.Refresh End With ProgressBar1.Max = Adodc1.Recordset.RecordCount ProgressBar1.Min = 0 ''开始转换
Dim Irow, Icol As Integer
Dim Irowcount, Icolcount As Integer
Dim Fieldlen()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject(”Excel.Application“)
Set xlBook = xlApp.Workbooks.add
Set xlSheet = xlBook.Worksheets(1)With Adodc1.Recordset
.MoveLast
If.RecordCount < 1 Then
MsgBox(”Error!“)
Exit Sub
End If
Irowcount =.RecordCount
Icolcount =.Fields.Count
ReDim Fieldlen(Icolcount)
.MoveFirst
For Irow = 1 To Irowcount + 1
For Icol = 1 To Icolcount
Select Case Irow
Case 1
xlSheet.Cells(Irow, Icol).Value =.Fields(Icol1))= True Then
Fieldlen(Icol)= LenB(.Fields(Icol1))
End If
xlSheet.Columns(Icol).ColumnWidth = Fieldlen(Icol)
xlSheet.Cells(Irow, Icol).Value =.Fields(Icol1))
If Fieldlen(Icol)< Fieldlen1 Then
xlSheet.Columns(Icol).ColumnWidth = Fieldlen1
Fieldlen(Icol)= Fieldlen1
Else
xlSheet.Columns(Icol).ColumnWidth = Fieldlen(Icol)
End If
xlSheet.Cells(Irow, Icol).Value =.Fields(Icol1)).Font.Name = ”黑体“
.Range(.Cells(1, 1),.Cells(1, Icol1)).Borders.LineStyle = xlContinuous
End With
xlApp.Visible = True
'' xlBook.Save
''xlBook.Close
Set xlApp = Nothing
Adodc1.Recordset.ActiveConnection = Nothing End With Toolbar4.Buttons(1).Enabled = False Case 2 Unload Me End Select
[10]...>>
4.4公寓管理 4.4.1学生请假
学生请假与违规在一个公寓管理中是最常见的问题了，所以在此软件中加上了这两项功能。用它们可以随时记录请假记录。①学生请假记录图片显示
图4.9学生请假效果图 ② 界面制作与实现
此界面主要是对学生请假记录做一个添加。利用它可以把学生的基本的请假资料保存起来。其中的日期是系统当前的日期，它是不可以进行更改的，然后在其它文本框中输入其它详细资料即可以。这里的添加操作用的是Adodc控件，所有的文本框在初始的时候没有同Adodc绑定，而是在代码中与数据库中表的字段进行的绑定，然后进行添加操作。这样做在使用的时候有很大的方便之处。第一是窗体在初始化时不会显示任何记录，不用设置文本框为空等一系列的操作。第二是当进行记录输入时，发现问题不用输入时，不按添加按钮记录就不会进行添加。注意的是，在添加前要确定所有的文本框都要进行详细填写，否则会提示输入详细信息。添加主要代码如下：
If 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 ”请输入详细信息！“, , ”系统提示“ Else With 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.Update End With Set main.DataGrid1.datasource = Adodc1 main.DataGrid1.Refresh End If 4.4.2学生违规
①学生违规记录图片显示
图4.10学生违规效果图
此界面与上面的请假记录差不多。它主要是对学生的违规记录做一个添加。其中的日期也是系统当前的日期，它是不可以进行更改的，然后在其它文本框中输入其它详细资料即可以这里的违规操作用的也是Adodc控件，所有的文本框在初始的时候也没有同Adodc绑定，它也是在代码中与数据库中表的字段进行的绑定，然后进行添加操作。其它操作同上面基本是一致的，对于违规在主界面的左侧并没有快速显示操作，只可以用记录查看里面的违规查看进行选择查看。在这里所添写的记录也要全面一些，主要是为了以后查找更为方便，如果不全，系统会提示的！②违规部分代码如下：
在load事件里对数据库链接的处理，以及日期文本框的设置，代码如下： provider = ”provider=Microsoft.jet.oledb.4.0“ datasource = ”data source=“ & App.Path & ”DB.mdb“ With Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdTable.RecordSource = ”qingjia“.Refresh End With Text1.Text = Date Text1.Enabled = False 确定无误后，进行添加，代码如下：
If 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 ”请输入详细信息！“, , ”系统提示“ Else With 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.Update End With Set main.DataGrid1.datasource = Adodc1 main.DataGrid1.Refresh 4.5卫生检查
公寓卫生可以说是一个公寓管理中最常见到的问题了。公寓卫生每天要清扫，寝室卫生每天要检查，但是如果这些都用纸来进行填写，一定会十分麻烦，且保存也不是十分方便，在一些评比中也会忙的很遭。所以在这个软件中编写了此功能。4.5.1 公寓卫生添加效果图
图4.11公寓卫生添加效果图 ①在这个界面中主要用到了文本框以及起到美观作用的frame控件。日期已经设置成只读属性，检查记录的日期是不能随便改写的。公寓名称可以在下拉列表框中进行选择，如果在下拉列表框中没有发现，可以人工输入，但是要确定公寓名称的正确性。寝室名称需要自己输入。这里的卫生标准一共有五项可以填写，在每一项里已经基本设置了所不全标准的记录，你可以在下拉列表框中进行选择即可，但是如果没有你想输入的记录的话，你也可以自己输入。输入完成后，在减分后面的文本框中输入一共要对此寝室减掉的分数，单击得分后面的文本框会自动算出应该得到的分数。然后跟据得分的分数，你要选择该寝室的卫生等级，卫生等级为必选值且为固定值，正确的选择此项可以在主界面的左侧中快速对卫生等级进行查看。②公寓选择栏中代码的实现： Combo3.Clear Dim I As Integer I = 1 If Adodc1.Recordset.RecordCount <> 0 Then Do While I < Adodc1.Recordset.RecordCount
Combo3.AddItem(Adodc1.Recordset.Fields(”公寓名称“))
Adodc1.Recordset.MoveNext
I = I + 1 Loop End If 卫生选择栏中的代码实现基本同上，它也是一个表中的字段值！Dim J As Integer J = 1 If Adodc4.Recordset.RecordCount <> 0 Then Do While J < Adodc4.Recordset.RecordCount
Combo2.AddItem(Adodc4.Recordset.Fields(”等级“))
Adodc4.Recordset.MoveNext
J = J + 1 Loop End If Combo2.Text = ”优秀“ 不合标准的卫生记录填写情况如下： Combo4.AddItem(”门窗不干净“)Combo4.AddItem(”地面不干净“)Combo4.AddItem(”阳台不干净“)Combo4.AddItem(”床铺不整齐“)Combo4.AddItem(”不叠被“)Combo4.AddItem(”桌面不整齐“)Combo4.AddItem(”书柜摆放不整齐“)由于此窗体中涉及到公寓与寝室，在填写时要确定其名称的正确，所以在添加记录前要对它们进行检查，如发现不存在的记录，则显示提示。检查记录时用的是adodc中的find命令。类似于用户登录时的判断，同样记录的输入也要详细。代码如下： Adodc1.Refresh Adodc1.Recordset.Find ”公寓名称=''“ & Combo3.Text & ”''“ If Adodc1.Recordset.EOF = True Then MsgBox ”查无此公寓“, , ”提示“ Adodc1.Recordset.MoveFirst Exit Sub End If Adodc3.Refresh Adodc3.Recordset.Find ”寝室=''“ & Text5.Text & ”''“ If Adodc3.Recordset.EOF = True Then MsgBox ”查无此寝室“, , ”提示“ Adodc3.Recordset.MoveFirst Exit Sub End If If Combo3.Text = ”“ Or Combo2.Text = ”“ Or Text5.Text = ”“ Or Text2.Text = ”“ Or Text3.Text = ”“ Then MsgBox ”请输入详细信息！“, , ”系统提示“ Else 确认一切无误后，开始对所填写记录进行添加并显示： With 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.Update End With Set main.DataGrid1.datasource = Adodc2 main.DataGrid1.Refresh 4.6 公寓资产
公寓资产可以及时对公寓里进出财务进行统计，以免遗忘，造成不必要的损失或不必要的麻烦，它的实现方法基本同上面的卫生记录的添加，相对比来说比上面的简单一些。不足的是目前只做出了入库管理，对于出库记录还没有实现。4.6.1公寓资产添加设置效果图
[10]...>>
图4.12公寓资产添加效果图 4.6.2 界面制作与实现方法 日期的设置同上面一样，只读属性。公寓名称与寝室名称要人工输入，没有选择，这是因为考虑到它不会像卫生记录那样每天要添加一次，每次要添加很多，所以为了减少系统进程，它没有使用combo，没有在窗体中进行加载。窗体中的数量与单价在填写之后会自动把总价格计算出来，类似于上图中的得分一样。部分代码如下： If Text5.Text = ”“ Or Text2.Text = ”“ Or Text3.Text = ”“ Then MsgBox ”请输入详细信息！“, , ”提示“ Else With 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.Update End With Set main.DataGrid1.datasource = Adodc1 main.DataGrid1.Refresh Text2.Text = ”“ Text3.Text = ”“ Text4.Text = ”“ Text5.Text = ”“ Text6.Text = ”“ Text7.Text = ”“ End If 4.7记录查看
记录查看可以让你对已录入的记录进行各种符合条件的查找，显示符合条件的记录。这里主要包括四个方面的查看：卫生查看、请假查看、违规查看、资产查看。下面分别介绍。4.7.1 卫生查看 ①界面效果图
图4.13卫生查看效果图 ②界面制作与实现方法
这是一个比较简单的窗体操作。看起来精简、小巧。它主要的功能是对已经录入的卫生记录进行符合条件的查询。在查询类别中选择可以选择全部查看以及按日期查看。查看全部即显示所有记录，选择按日期查看后在下面的列表框中选择所要查看的日期，点击确定后即可以看到该日期的记录。
在进行查询前，要对所操作的表进行绑定，代码如下： Dim s As String provider = ”provider=Microsoft.jet.oledb.4.0“ datasource = ”data source=“ & App.Path & ”DB.mdb“ With Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdTable.RecordSource = ”weigui“.Refresh End With 日期后面的下拉列表框中可以显示出所有已经录入记录的日期，它是通过对当前表进行分类查询后得到的结果，然后将其添加在combo中，实现代码如下： s = ”select distinct 日期 from weisheng“ With Adodc2.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdText.RecordSource = s.Refresh End With
For I = 1 To Adodc2.Recordset.RecordCount Combo1.AddItem(Adodc2.Recordset.Fields(”日期“))Adodc2.Recordset.MoveNext Next 查看全部，即把当前表中的记录全部赋给当前用来显示的表格，按日期查看，则是在表中先进行查询，然后对结果进行重绑定，在赋值。它们的判断主要是通过单选框的选取来完成的，实现方法如下： s = Combo1.Text If Option1.Value = True Then Set main.DataGrid1.datasource = Adodc1 main.DataGrid1.Refresh ElseIf Option2.Value = True Then sql = ”select * from weisheng where 日期=''“ & Trim(s)& ”''“ With Adodc3.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdText.RecordSource = sql.Refresh End With Set main.DataGrid1.datasource = Adodc3 main.DataGrid1.Refresh End If Unload Me 4.7.2其它记录查看 在记录查看中还有其它三项查看方式，分别是请假、违规、资产三项记录查看。它们的实现方法与窗体与上面的卫生查看基本相同。①请假查看
图4.14请假查看效果图
用它可以对当前所有记录以及有效日期内的记录进行查看。代码如下：
Dim sql As String Dim s As String s = Combo1.Text If Option1.Value = True Then Set main.DataGrid1.datasource = Adodc1 main.DataGrid1.Refresh ElseIf Option2.Value = True Then sql = ”select * from qingjia where 日期=''“ & Trim(s)& ”''“ With Adodc3.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdText.RecordSource = sql.Refresh End With Set main.DataGrid1.datasource = Adodc3 main.DataGrid1.Refresh End If Unload Me 在窗体的load中要设置已经添加的日期，需要对表进行条件查询，代码如下： s = ”select distinct 日期 from qingjia“ With Adodc2.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdText.RecordSource = s.Refresh End With For I = 1 To Adodc2.Recordset.RecordCount Combo1.AddItem(Adodc2.Recordset.Fields(”日期“))Adodc2.Recordset.MoveNext Next ②违规查看
图4.15违规查看效果图
目前此类功能还不是十分理想，有些查看方式会在以后的程序中进行升级。在Load事件设置了窗体运行时所有需要的东西。代码如下：
Option1.Value = True Dim s As String provider = ”provider=Microsoft.jet.oledb.4.0“ datasource = ”data source=“ & App.Path & ”DB.mdb“ With Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdTable.RecordSource = ”weigui“.Refresh End With s = ”select distinct 日期 from weigui“ With Adodc2.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdText.RecordSource = s.Refresh End With For I = 1 To Adodc2.Recordset.RecordCount Combo1.AddItem(Adodc2.Recordset.Fields(”日期“))Adodc2.Recordset.MoveNext Next 查看部分的源代码如下： Dim sql As String Dim s As String s = Combo1.Text If Option1.Value = True Then Set main.DataGrid1.datasource = Adodc1 main.DataGrid1.Refresh ElseIf Option2.Value = True Then sql = ”select * from weigui where 日期=''“ & Trim(s)& ”''“ With Adodc3.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdText.RecordSource = sql.Refresh End With Set main.DataGrid1.datasource = Adodc3 main.DataGrid1.Refresh End If Unload Me ③资产查看
图4.16资产查看效果图
在Load事件设置了窗体运行时所有需要的东西。代码如下：
On Error Resume Next Option1.Value = True Dim s As String provider = ”provider=Microsoft.jet.oledb.4.0“ datasource = ”data source=“ & App.Path & ”DB.mdb“ With Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdTable.RecordSource = ”zichan“.Refresh End With s = ”select distinct 日期 from zichan“ With Adodc3.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdText.RecordSource = s.Refresh End With For I = 1 To Adodc3.Recordset.RecordCount Combo1.AddItem(Adodc3.Recordset.Fields(”日期“))Adodc3.Recordset.MoveNext Next 查看部分代码如下所示： On Error Resume Next Dim sql As String Dim s As String s = Combo1.Text If Option1.Value = True Then Set main.DataGrid1.datasource = Adodc1 main.DataGrid1.Refresh ElseIf Option2.Value = True Then sql = ”select * from zichan where 日期=''“ & Trim(s)& ”''“ With Adodc2.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdText.RecordSource = sql.Refresh End With Set main.DataGrid1.datasource = Adodc2 main.DataGrid1.Refresh End If Call dx1 Unload Me 4.8记录删除
删除是一个数据库软件中最基本的操作之一。在本软件的工具栏中也有一个删除按钮，其功能也是将所找到的记录删除，但是它每次只能删除一条记录，且此删除记录的前提是在右侧的显示中容易找出，即记录不多的情况下使用。如果一旦数据记录很多，一条条查找比较不方便时，即可以使用此窗体进行删除。这里的删除也有四个窗体，分别为卫生删除、请假删除、违规删除、资产删除。下面分别介绍。4.8.1 卫生删除 ①效果图
图4.17卫生删除效果图
②界面制作与实现方法
这个界面总体来说各个控件比较简单，但是作为一个删除操作，它已经连接到了数据库，与数据库的表相联。且有三种删除记录方式可以选择。默认为单条删除，选择此项后需要在日期中选择所删除记录的添加日期，以及所在的公寓与寝室，当这三条全部符合要求后，在表中进行查找，找到后确认删除。选择批量删除后，在下面只有一个日期可以选择，这样将会把所选日期内的所有记录都将删除掉，所以称其为批量删除。全部即是把当前表清空，全部删除掉，建议使用此操作前对当前数据库进行备份处理，否则数据将不会恢复。首先要进行数据库连接，如上面例子所示，这里就不在介绍，接下来要对本窗体中的日期进行加载，如下所示： s = ”select distinct 日期 from weisheng“ With Adodc2.Mode = adModeReadWrite.ConnectionString = provider & ”;“ & datasource.CommandType = adCmdText.RecordSource = s.Refresh End With For I = 1 To Adodc2.Recordset.RecordCount Combo1.AddItem(Adodc2.Recordset.Fields(”日期“))Combo2.AddItem(Adodc2.Recordset.Fields(”日期“))Adodc2.Recordset.MoveNext Next Option1.Value = True Frame3.Visible = True Frame5.Visible = False Frame6.Visible = False 在单条删除前要确定所有条件符合要求，单条删除操作的代码主要部分如下：
If(MsgBox(”你真的想删除日期为
“ & Combo1.Text & ”
公寓为
“ & Text1.Text & ”
寝室为
“ & Text2.Text & ” 的记录吗？“, vbOKCancel, ”系统提示“))= vbOK Then Adodc1.Refresh Adodc1.Recordset.ActiveConnection.Execute ”delete from weisheng where 日期=''“ &
Trim(s)& ”''and 公寓=''“ & Trim(Text1.Text)& ”''and 寝室=''“ & Trim(Text2.Text)& ”''“
'', , adExecuteNoRecords Adodc1.Recordset.Update Combo1.Text = ”“ Text1.Text = ”“ Text2.Text = ”“ MsgBox ”删除成功“, , ”系统提示“ End If Unload Me 当选择某一日期后进行批量删除代码如下：
If(MsgBox(”你真的想删除日期为
“ & Combo2.Text & ” 的记录吗？“, vbOKCancel, ”系统提示“))= vbOK Then Adodc1.Refresh Adodc1.Recordset.ActiveConnection.Execute ”delete from weisheng where 日期=''“ & Trim(Combo2.Text)& ”''“ Combo2.Text = ”“ MsgBox ”删除成功“, , ”系统提示“ End If Unload Me 清空数据表代码为：
If(MsgBox(”你真的想删除所有的记录吗？一旦删除即不可恢复“, vbOKCancel, ”系统提示“))= vbOK Then For I = 1 To Adodc1.Recordset.RecordCount Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext Next I End If MsgBox ”删除成功“, , ”系统提示“ Unload Me 4.8.2请假记录 ①效果图
[10]...>>
图4.18请假记录删除效果图 ②界面制作与实现方法
这个窗体与上面不同的是多了一个姓名条件，其它的都基本一致。由于在一个公寓中会有很多人要得名，但是在某一公寓某一寝室中只会有一个人，这也是一个公寓分配住宿人员时的基本标准，因为这样也便于公寓本身的管理。此删除窗体只有单条删除与上面不同，单条删除部分代码如下：
If(MsgBox(”你真的想删除日期为
“ & Combo1.Text & ”
公寓为
“ & Text1.Text & ”
寝室为
“ & Text2.Text & ”
姓名为
“ & Text3.Text & ” 的请假记录吗？“, vbOKCancel, ”系统提示“))= vbOK Then Adodc1.Refresh Adodc1.Recordset.ActiveConnection.Execute ”delete from qingjia where 日期=''“ & Trim(s)& ”''and 公寓=''“ & Trim(Text1.Text)& ”''and 寝室=''“ & Trim(Text2.Text)& ”''and 姓名=''“ & Trim(Text3.Text)& ”''“
'', , adExecuteNoRecords Adodc1.Recordset.Update Combo1.Text = ”“ Text1.Text = ”“ Text2.Text = ”“ MsgBox ”删除成功“, , ”系统提示“ End If 4.8.3 违规删除 ①效果图
图4.19违规记录删除效果图 ②界面制作与实现方法
违规删除操作与请假删除操作基本一致，不同之处只是在于后台对不同的表进行处理，前台界面大体相同。其实现方法与上现的也差不太多，这里就不在叙述。单条删除记录： Dim sql As String Dim s As String Dim panduan As Boolean If Combo1.Text = ”“ And Text1.Text = ”“ And Text2.Text = ”“ Then MsgBox ”请输入删除条件!“, , ”提示“ Exit Sub End If s = Combo1.Text If(MsgBox(”你真的想删除日期为
“ & Combo1.Text & ”
公寓为
“ & Text1.Text & ”
寝室为
“ & Text2.Text & ”
姓名为
“ & Text3.Text & ” 的违规记录吗？“, vbOKCancel, ”系统提示“))= vbOK Then Adodc1.Refresh Adodc1.Recordset.ActiveConnection.Execute ”delete from weigui where 日期=''“ & Trim(s)& ”''and 公寓=''“ & Trim(Text1.Text)& ”''and 寝室=''“ & Trim(Text2.Text)& ”'' and 姓名=''“ & Trim(Text3.Text)& ”''“
'', , adExecuteNoRecords Adodc1.Recordset.Update Combo1.Text = ”“ Text1.Text = ”“ Text2.Text = ”“ MsgBox ”删除成功“, , ”系统提示“ End If Unload Me 成批删除记录：
If(MsgBox(”你真的想删除日期为
“ & Combo2.Text & ” 的记录吗？“, vbOKCancel, ”系统提示“))= vbOK Then Adodc1.Refresh Adodc1.Recordset.ActiveConnection.Execute ”delete from weigui where 日期=''“ & Trim(Combo2.Text)& ”''“ Combo2.Text = ”“ MsgBox ”删除成功“, , ”系统提示“ End If Unload Me 删除所有记录：
If(MsgBox(”你真的想删除所有的记录吗？一旦删除即不可恢复“, vbOKCancel, ”系统提示“))= vbOK Then For I = 1 To Adodc1.Recordset.RecordCount Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext Next I End If MsgBox ”删除成功“, , ”系统提示“ Unload Me 4.8.4 资产删除 ①效果图
图4.20资产删除效果图 ② 界面制作与实现方法
与卫生记录删除不同的是寝室改为了名称。值得注意的是，此处公寓与名称都要人工输入，所以在输入的时候要注意不要有多余字符，否则会出错删除不掉的情况。单条删除部分源码如下：
If(MsgBox(”你真的想删除日期为
“ & Combo1.Text & ”
公寓为
“ & Text1.Text & ”
名称为
“ & Text2.Text & ” 的资产记录吗？“, vbOKCancel, ”系统提示“))= vbOK Then Adodc1.Refresh Adodc1.Recordset.ActiveConnection.Execute ”delete from zichan where 日期=''“ & Trim(s)& ”''and 公寓=''“ & Trim(Text1.Text)& ”''and 名称=''“ & Trim(Text2.Text)& ”''“
'', , adExecuteNoRecords Adodc1.Recordset.Update Combo1.Text = ”“ Text1.Text = ”“ Text2.Text = ”“ MsgBox ”删除成功“, , ”系统提示“ End If 4.9值班记录
值班记录这项可以说是此软件的一个新增功能。它的界面小巧，并且它可以让值班人员记录前天发生的一些事情，字数在1000字左右。可以说是一个小型的日记本。4.9.1 值班记录 ①值班记录效果图
图4.21值班记录效果图 ② 实现思想与功能
此窗体的功能以及其源代码是经过修改之后而形成的，源文件是一个电子记事本，发现后经过修改后做出一个日记本。
在上面的日期后面的文本框中，你可以输入如窗口标题后面所示的日期格式后，点击查看，即可以查看到所选日期的详细记录。这是一种查询方法，当然你也可以用右面简单的上一条与下一条进行快速查看，但是它只能查看当日日期起开始的记录，如果与你所想要查看的日期相差很远，那么你就需要使用第一种方法了。这个日记本还支持修改与删除功能。当你想编辑或删除某一日期的时候时，你需要用查看方法找到该记录，然后对当前记录使用编辑或删除即可完成操作。删除后，记录即不可恢复，且此日记目前还没有备份功能，慎重操作。
如果你今天值班，还没有写值班记录，那么你可以点击增加按钮，开始写当日的值班记录，说明的是，每天只可以写一次记录。当你写完今天记录后，在点击增加时会提示你今日已写完。但是你可以对今日记录进行编辑修改。
本程序源码较为复杂，主要都是对文件进行操作，并没有把记录添加到数据库中，所以不支持备份操作，且本窗体中的操作程序还用到了一个模块。部分代码如下： 查看上一条记录：
If giCurrentRecord > 1 Then
giCurrentRecord = giCurrentRecord1
Form_Load
End If 4.9.2 增加记录 ①增加记录效果图
图4.22增加记录效果图 ② 实现思想与程序源码
日期后显示当前日期，但是可以修改。每篇记录的字数要求在1000字以内。支持对当前字符输入的统计，确定完成本日记录后，点击保存即可。部分代码如下：
Dim bSaved As Boolean, bCF If txtDate = ”“ Or txtMemo = ”“ Then Exit Sub '' 如果记录未填,则退出 If riji.Tag = ”addnew“ Then
If giRecordCount >= 1 Then
''新增时,检查记录是否重复
gsSql = frminput.txtDate
bCF = FindData(gsSql)
If bCF Then
MsgBox ”今天你已经写过日记了!“, vbExclamation + vbOKOnly, ”每日一记“
txtMemo.SetFocus
Exit Sub
End If
End If
giRecordCount = giRecordCount + 1
bSaved = WriteData()ElseIf riji.Tag = ”modify“ Then ''
bSaved = ModifyData()End If If bSaved = True Then
AddNext = MsgBox(”保存完毕!“, vbExclamation + vbOKOnly, ”每日一记“)End If Unload Me 由于此段代码中用到了一个模块，在模块中定义了很多过程，各过程实现功能及代码如下所示：
读取数据：
Public Sub ReadData(curRecord As Integer)''读取数据 On Error Resume Next Dim strcaption$
riji.txtDate = goDiarys(curRecord).fldDate
riji.txtMemo = goDiarys(curRecord).fldMemo
strcaption = ”每日一记
[“ & Date & ”] “ & Time & ” WeekdayName(Weekday(Date))& “ 记录:” & giCurrentRecord & “/” & giRecordCount
riji.Caption = strcaption End Sub 查询数据：
Public Function FindData(sql As String)As Boolean ''查询数据 On Error Resume Next
Dim I%
For I = 1 To giRecordCount
If goDiarys(I).fldDate = sql Then
giCurrentRecord = I
FindData = True
Exit For
End If
Next
ReadData giCurrentRecord End Function 新增数据：
Public Function WriteData()As Boolean ''新增数据 On Error Resume Next
Dim iFreefile%, I%
iFreefile = FreeFile()
Open gsPath & “DATA.DAT” For Random As #iFreefile Len = en(goDiary)
ReDim Preserve goDiarys(giRecordCount)
goDiarys(giRecordCount).fldDate = frminput.txtDate
goDiarys(giRecordCount).fldMemo = frminput.txtMemo
goDiary = goDiarys(giRecordCount)
Put #iFreefile, giRecordCount, goDiary
giCurrentRecord = giRecordCount
ReadData(giCurrentRecord)
Close #iFreefile
WriteData = True
“ & End Function 修改数据：
Public Function ModifyData()As Boolean ''修改数据 On Error Resume Next
Dim iFreefile%, I%
iFreefile = FreeFile()
Open gsPath & ”DATA.DAT“ For Random As #iFreefile Len =len(goDiary)
goDiarys(giCurrentRecord).fldDate = frminput.txtDate
goDiarys(giCurrentRecord).fldMemo = frminput.txtMemo
goDiary = goDiarys(giCurrentRecord)
Put #iFreefile, giCurrentRecord, goDiary
ReadData(giCurrentRecord)
Close #iFreefile
ModifyData = True End Function 删除数据：
Public Sub DeleteData()''删除数据 On Error Resume Next
Dim iFreefile%, I%, J%
I = 1: J = 1
iFreefile = FreeFile()
Open gsPath & ”temp.dat“ For Random As #iFreefile Len = Len(goDiary)
goDiarys(giCurrentRecord).fldMemo = ”IWantToKillIt*“ & goDiarys(giCurrentRecord).fldMemo ''加删除标记
For I = 1 To giRecordCount
''无删除标记的记录保存到临时文件,TEMP.DAT
If Left(goDiarys(I).fldMemo, 14)<> ”IWantToKillIt*“ Then
goDiary = goDiarys(I)
Put #iFreefile, J, goDiary
''在此必须有I,J两个变量,因为使用二进制保存文件，J = J + 1
''从1开始到后面,中间如有间隔就会出现乱码
End If
Next
Close #iFreefile
Kill gsPath & ”data.dat“
Name gsPath & ”temp.dat“ As gsPath & ”data.dat“
riji.txtDate = ”“
riji.txtMemo = ”“ End Sub 说明：由于本人能力有限，对文件部分还不算是很了解，这个功能的实现主要是借用了网上的一个电子记事本。本人只是对其做了一些修改，做成了这个每日一记，但个人认为此功能还算是可以。4.10 Help制作 Help文档的制作也标志着本软件基本完成。制作help文档需要一个专业制作软件，本人使用的是破解版的QuickCHM，此软件无论在功能上还在是操作上用起来都是很方便。QuickCHM软件的界面及其使用如下：
[10]...>>
图4.23 QuickCHM软件的界面 它属于一个傻瓜型的制作软件，利用它可以快速的制作出各种你所需要的帮助文档。但是如果想制作出如下图所示的文档，那么需要使用制作网页的软件把内容先做成html形式，然后在用此软件进行加载，最后生成chm文档。在制作前要制作出相差的网页形式，本人使用Dreamweaver。用它先做出要用到的相差页面，大约一共为十个。然后在用QuickCHM把所有的网页添加进去，然后对QuickCHM进行各项设置，最后点击编译即可生成help文档，后缀为.Chm。在本管理软件中可以按F1或点击帮助菜单下的帮助主题即可显示该帮助文档，调用的过程也很简单，两条语句即可以实现。代码如下：
在主窗体的load事件中添加下面语句： App.HelpFile = App.Path & ”help.chm“ 在帮助主题的click事件中添加下面语句： SendKeys ”{F1}" 上面这两条语句即可以实现调用帮助文档的功能。
第五章 系统测试
编写出的各功能模块需要进行测试，对于模块化应用程序，软件开发的最后一部分便是不断的测试程序最终编译成可执行的.exe文件，该阶段主要对系统的正确性及完整性等方面进行测试。主要进行：功能确认测试、运行测试、健壮性测试、安全性测试以及查错方面的测试等，系统测试的测试人员由测试组成员（或质量保证人员）或测试组成员与用户共同测试，在整个系统开发完成，即将交付用户使用前进行。在这一阶段，对整个系统进行测试，系统测试结束后我们应该打软件打包，使其脱离VB的环境下也能正常运行。打包应将所有程序需要的文件加载进去，如数据库（DB.MDB），每日一记和帮助的文件都要进行加载。在调试程序过程中，由于某些内在的错误影响程序的运行，在采用上述调试方法对程序进行调试后，程序运行情况良好，达到了预期的设计目标，基本上满足了用户的需要。
总结
到目前为止，学生公寓管理软件基本开发完毕，软件界面美观，运行时间短，执行功能强，其功能基本符合用户需求。能够完成对学生公寓中学生基本资料的存储和查询，并提供数据转换、数据备份等系统维护功能，可以使用查找、修改、添加和删除对学生公寓管理软件的操作等。
由于本人知识有限，又是刚初学软件，时间比较仓促，又缺乏经验，必定有不足和不周之处，希望各位老师给予指导，本人将继续完善修改，使此系统能更好地发挥性能。
参考文献
Visual Basic 程序设计
王栋
清华大学出版社 Visual Basic 高级编程宋伟
吴建国
清华大学出版社 Visual Basic 6.0 入门与提高 戴红 陈哲 清华大学出版社 Visual Basic 6.0应用指南
何斌 王运坚
冯峰 刘醒
人民邮电出版社
Visual Basic 高级编程技术 陈 明
杨劲松
北京希望电子出版社
Visual Basic实用教程
陈弘原
中国水利水电出版社
数据库系统概论
萨师煊、王珊 高等教育出版社
软件系统开发技术
潘锦平施小姚 西安电子科技大学出版
<<
[11]
第四篇：高校学生公寓管理系统设计
毕业设计（论文）开题报告
高校学生公寓管理系统设计
学生姓名
学号
系别
专业计算机毕业设计
届别
指导教师
职称
年月日
第五篇：学生公寓管理
学生公寓管理
1、学生公寓应该坚持什么的工作理念？A
A 以人为本，育人为先
B 科学管理，育人为先 C 育人为先，物资奖励
D 以人为本，科学管理
2、学生公寓应该坚持什么原则？D A 教育管理
B 物业服务
C学生自律
D 三者都有
3、我校学生公寓管理的专门机构是什么？A A 宿舍管理中心
B 保卫科
C 学生科
D 教务科
4、我校学生公寓实行什么形式管理？C A 以楼或小区为单位
B以学生为主体
C 按楼管理与小区管理
D由宿管中心调配
5、学生公寓管理的校级学生自律组织有D A 校大学生自律委员会
B 学生楼管会
C 宿管科
D
A与B
6、宿舍内违纪行为无法落实责任人的，其责任由谁承担？A A 同宿舍全体成员
B 宿管阿姨
C 同班同学
D 三者都有
7、申请走读手续多久办理一次？C A 二年
B 6个月
C 一年
D 3个月
8、申请走读手续，新生需在什么时间内办理？A A 一周内
B 二周内
C三周内
D一个月
9、申请走读手续，除新生外，其他年级学生须在什么时候办理？A A 五月份
B 六月份
C 七月份
D八月份
10、学生因退学、转学、休学、出国等原因中途停止住宿，住宿不满一学期（含满一学期）的收取住宿费的标准是什么？D A 半学期
B八个月
C 九个月
D一学期
11、学生因退学、转学、休学、出国等原因中途停止住宿，超过一学期不满一学年的收取住宿费的标准是什么？A A 一学年
B八个月
C 九个月
D一学期
12、住宿学生能不能添置室内家具?C A能
B随你愿意
C不能
D不知道
13、宿管中心接到公务报修后，正常水电零修应在什么时间内完成？A A 当天
B二天
C三天
D一周
14、宿管中心接到公务报修后，门窗家具零修应在什么时间内完成？A A 24 小时
B 12小时
C 13小时
D 20小时
15、宿管中心接到公务报修后，土建管修应在什么时间内完成？C A 两周 B 当天
C 一周 D 三天
16、学生进出学生公寓楼，应服从谁的管理？D :A 所处二级学院
B 学生科
C 保卫科
D 管理人员 17学生原则上不得离开学生公寓楼的时间是A
A 22：30—5:30
B 22:00—5:00 C 23:00—5:00 D23;00—5:30
18、宿舍管理员在每周内应检查多少次宿舍？A A 二至三次
B 每天都检查
C 一次
D 四次
19、校大学生自律委员会原则上在什么时候检查宿舍卫生？B A 周一下午
B 周三下午
C 周四下午
D 周二下午 20、学生公寓的供电时间是A A 6:00—23;00
B 6:00—8:00
C 12:00—14:00
D B与C
21、在学生公寓区内组织的集体活动，须经谁的批准？D A 学生科
B 教务科
C 保卫科
D 宿管中心
22、学校决定在全校学生寝室中开展学生寝室评比级暨“文明寝室”评比活动的目的是什么？D A 为学生营造安全的环境
B 营造学生氛围
C 营造安全文明的生活
D 营造安全文明的生活、学习环境
23、A级宿舍将被授予学期什么称号？A A 文明寝室
B 安全卫生寝室
C 合格宿舍
D 不合格宿舍
24、宿舍评价结论分为几个等级？B A 一个
B 三个
C 二个
D四个
25、宿舍评比依据是什么？A A 盐城工学院学生寝室卫生检查评分标准
B盐城工学院学生 C盐城工学院学生行为准则
D 盐城工学院学生网络行为规范
26、基础免费电量是根据什么核定的？ A
A 学生所交住宿费的多少
B 宿舍人数的多少
C 学校管理制度
D 三者都有
27、为保证必要的休息时间，对考研学生的供电时间不超过夜:B A 12:00
B 12:30
C 11:30 D 11:00
28、学生购电及办理延时，增容手续，应在正常工作的什么时间段办理？C A 早上8:00—11:30
B 早上8:00—9;30 C 下午3:00—5:00
D 下午3:00—6:00
29、申请走读的学生可凭书面申请到所在的二级学院学生科取《盐城工学院学生申请走读审批表》，一式几份？C A 1 B 2 C 3 D 4 30、每学年开学初所有学生寝室按多少个安培送电？C A 2
B 3 C 2—3
D 2—4
31、学生在校学习期间原则上不得提出校外住宿要求，情况特殊应办理C A 休学
B 退学
C 走读
D 转学
32、每间开学后一周内选出的寝室长任期是A A 一年
B 二年
C 三年
D 四年
33、被授予什么将发证书D A 安全卫生宿舍
B 文明宿舍
C 合格宿舍
D 文明示范宿舍
34、公用部分卫生寝室多久一循环？A A 三周B 三月
C 六周D 半年
35、学生住宿由宿管中心提出方案报——批准后，由宿管中心赫各级二级学院学生共同实B
A 学院科长
B 学生处处长室
C 辅导员
D 校长
36、对于指定房间床位的调整，应经——同意。B A 宿管阿姨
B 宿管中心
C 学生处处长室
D 学院科长
37、放假期间，学生想留住学校在填写审批表，经学生处——审批后，被统一安排住宿。B A 宿管中心
B 二级学院
C 辅导员
D 学生处处长室
38、学生宿舍去公共场所卫生由——负责D A 值日生
B 管理员
C 无人
D 保洁员
39、学生公寓管理方法由——负责解释。A A 学生处
B 宿管中心
C 教务处
D 二级学院 40、学生寝室评比结果由——公布。A A 学生处宿管中心
B 网站
C 教务处
D 二级学院
41、大学一级学生——及所在寝室评为D级的学生不具备带电脑资格。A A 上一学期期末考试成绩不及格出现重修
B 被通报批评
C 挂科者
D 走读生
42、应被学生家长将电脑领回而没被领回的，由——代为保管。B A 学生处
B 二级学院学生科
C 宿管中心
D 管理员
43、以人为本，育人为先是学生公寓管理应坚持的抢答：A A 工作理念
B 原则
C 方针
D 政策
44、宿舍管理中心是我校学生公寓管理的B A 部门
B 专门机构
C 单位
D 代表
45、我校学生公寓管理以——为单位。D A 管理员
B 学生
C 楼
D楼或小区
46、我校学生公寓管理实行——负责制。A A 管理员
B 学生
C 寝室长
D 辅导员
47、学生自律委员会与学生楼管会是学生公寓管理的——B A 院级学生自律组织
B 校级学生自律组织
C 学生机构
D 学生自律组织
48、宿管中心接到公务报修后，须在两周完成的是——B A 门窗家具
B 土建管修
C 正常水电零修
D三者都是
49、宿管中心接到公务报修后，须在当天完成的是——C A 门窗家具
B 土建管修
C 正常水电零修
D三者都是 50、宿管中心接到公务报修后，须在24小时内完成的是——A A 门窗家具
B 土建管修
C 正常水电零修
D三者都是 51、22:30—5;30是学生原则上不得离开———时间A
A 学生公寓
B 学校
C 教室
D 食堂
52、在每周应检查二到三次宿舍是——该做的。C A 学生科
B 教务科
C 宿舍管理员
D保卫科
53、学生公寓是学生——的重要场所。D A 学生
B生活
C 休息
D三者都是
54、坚持教育管理、物业服务、学生自律三结合是学生公寓管理——A A 工作原则
B 方针
C 政策
D规定
55、原则上在周三下午时候检查宿舍卫生的是——D A 宿管中心
B 学生科
C 保卫科
D自律委
56、“文明寝室”称号是哪类宿舍？A A A级
B B级
C C级
D D级
57、“安全卫生寝室” 称号是哪类宿舍？B A A级
B B级
C C级
D D级
58、“合格宿舍” 称号是哪类宿舍？C A A级
B B级
C C级
D D级
59、“不合格宿舍” 称号是哪类宿舍？D A A级
B B级
C C级
D D级 60、“文明示范寝室” 称号是哪类宿舍？A A
A级中特优
B B 级中特优
C C 级中特优
D D级中特优
61、“文明示范寝室” 称号是哪类宿舍？A A AAA
B AA
C BBB
D BB 62、学生寝室评级和“文明寝室”评比活动，根据各寝室的——等方面的情况综合评定。D A 卫生
B 安全
C 文化建设
D三者都有 63、——等住宿纪律检查由管理员、自律委每天检查。D A 晚归
B 不归
C 离校
D 晚归、不归
64、凡被评为“文明寝室”、“安全卫生寝室” 的寝室将——D A 予以通报表扬
B 授予相应标志牌
C 发证书
D A与B 65、被授予“文明示范寝室” 将——C A 发证书
B 给予一定的物质奖励
C A与B
D 表扬 66、不合格宿舍将予以——A A 通报批评
B 取消资格
C 扣学分
D 三者都有 67、在宿舍评分标准中，项目室风的分值是——A A 15
B25 C 35 D 10 68、在宿舍评分标准中，项目环境的分值是——B
A 15
B25 C 35 D 10 69、在宿舍评分标准中，项目壁面的分值是——A A 15
B25 C 35 D 10
70、在宿舍评分标准中，项目橱柜的分值是——D A 15
B25 C 35 D 10 71、宿舍评比总分为100，采用——B A 加分制
B 扣分制 C 多劳多得
D 乘除制
72、年住宿费为500元的宿舍，每生每月用电指标为——B A 2
B 3
C 4
D 5 73、年住宿费为800元的宿舍，每生每月用电指标为——C A 2
B 3
C 4
D 5 74、年住宿费为1000元的宿舍，每生每月用电指标为——D
A 2
B 3
C 4
D 5 75、基础免费电量学期初由——一次性发送到每间寝室。A A 宿管中心
B 学生科
C 保卫科
D 教务科
76、学生基础免费电量由学校免费提供，超量用电费用由学生自理，——B A 先用后购
B 先购后用
C 不用付费
D 先用再说 77、宿舍所有张贴物均用——固定。A A 透明胶带
B 浆糊
C 双面胶
D 图钉
78、根据——管理员、自律委会每周分别做出一次评比。B A 得分高低
B 宿舍成员表现
C 宿舍成员与宿管阿姨的关系的好坏
D宿舍成员与自律委成员的关系的好坏
79、在学生寝室检查评分标准中，分值是25分的是——A A 室风
B 环境
C 壁面
D 床铺
80、学生寝室自备计算机实行——制度。B A 审批
B 登记
C A与 B
D 视察
81、凡因学习需要在寝室自备计算机的学生，须到——登记备案。A A 学生处宿舍管理中心
B 学生科
C 教务科 D 保卫 82、学生公寓管理应坚持——工作理念。AB
A 以人为本
B 育人为先
C 教育管理
D 物业服务 83、学生公寓管理应坚持——工作原则。ABC A 教育管理
B 物业服务
C 学生自律
D 育人为先 84、学生公寓管理着力实现——ABCD A 常规制度管理化
B 特色工作正常化
C 学生服务亲情化
D 环境氛围人文化
85、我校学生公寓实行——相结合方式。AB A 按楼管理
B 小区管理
C 以楼或区
D 管理员、学生 86、学生公寓设——岗位。ABC A 管理员
B 保安员
C 保洁员
D 学生 87、学生公寓是学生学习——重要场所。ABC A 学习
B 生活
C 休息
D 娱乐
88、学生公寓管理的校级学生自律组织有——ABC A 自律委
B 校学生公寓楼自我管理
C 校学生公寓楼服务委员会
D 学生科
89、校级学生自律委组织在校党委——的直接指导下工作。ABD A 学工部
B 学生处
C 学生科
D 招生就业处 90、校级学生自律委组织开展——等工作。ABC
A 文明宿舍的创建
B 学生住宿纪律
C 安全卫生检查工作
D 查晚归工作
91、住宿学生应把学生公寓作为——场所。ABC A 学习进修
B 陶冶情操
C 培养文明习惯的场所
D 娱乐
92、对在学生公寓内行为不当者，同寝室人员有责人及时劝阻并向——举报。ABD A 宿管中心
B 保卫科
C 学生科 D 相关二级学院
93、对同宿舍成员不良行为——的同宿舍成员给予批评及处分。ABC A 知情不报
B 包庇纵容
C 违纪者做假证
D 逃避 94、公物报修包括以下几类。ABC A 水电维修
B 门窗家具零修
C 土建零修
D 空调维修
95、寝室卫生应做到——ABCD A 室内、阳台地面干净
B 无纸屑杂物
C 无卫生死角
D 卫生间整洁无异味
96、学生不能在寝室内和楼道内——ABCD A 乱贴
B 乱刻画
C 乱挂衣物 D 乱钉钉子 97、严禁学生——ABCD A 私拉乱接电源线
B私拉乱接电话线
C 私拉乱接网线
D 改动室内线路
98、文明寝室评比可分为几个档次？ABCD A 文明寝室
B 安全卫生寝室
C 合格寝室
D 不合格寝室 99、下列属于学生公寓文明公约地是——
ABCD A 热爱公寓
B 讲究卫生
C 安全用电
D 节约用水 100、宿舍所有张贴物不应使用——张贴。ABCD A 浆糊
B 双面胶
C 图钉
D 胶水
101、学院学生寝室评比暨“文明宿舍”评比方法的评级内容有——ABC A 全是人员学习态度端正、学风良好
B 爱护公共设施、室内房器俱安好无损、节约用电
C 全是人员言谈举止文明礼貌，同学之间团结友爱，和睦相处 D 在公寓内抽烟、喝酒
102、发生以下哪类情况之一的，可视为不合格寝室。ABC A 发生消防、人身伤害等恶性安全事件
B 安全隐患不及时整改的 C 寝室成员经常晚归、不归的 D 宿舍环境好，摆放整齐
103、在宿舍卫生检查评分标准中，分值都是15的有——ACD A 室风
B环境
C 壁面
D床铺
104、在宿舍卫生检查评分标准中，分值都是10的有——BCD A 床铺
B橱柜
C 门窗
D 物品
105、凡被评为——的寝室将予以通报表扬，并授予相应标志牌。AC A 文明寝室
B 文明示范寝室
C 安全卫生寝室
D 合格寝室 106、学生宿舍卫生重点检查——ABCD A 空气清新度
B 物品整齐度
C 壁面清洁度
D安全文明度 107、学生在使用计算机过程中，必须遵守——ABC A 国家、教育行政部门的规定
B 学校计算机及网络管理的有关规定 C 与寝室成员商定的用机时间
D 宿管阿姨的规定 108、学生寝室自备计算机实行——制度。BC A 自己保管
B 审批
C 登记
D 松散
109、出现下列哪些情况的学生，学生科应视情节分别给予教育、通报、批评、取消在学校寝室用的自备计算机资格并通知家长领回计算机。ABCD A 不遵守学校作息时间，妨碍他人学习和休息的
B 跨寝室联网使用计算机
C 不配合学校管理和监督检查，态度恶劣者 D 因使用计算机旷课、迟到
110、学员宿舍的年住宿费有哪几种？ACD A 500
B 600
C 800
D1000元以上
111、学校努力为广大学生营造——的住宿环境。ABCDE A 安全
B 整洁
C 舒适
D 文明
E 和谐
112、宿管中心在学校处领导下负责——工作。ABCDE A 学生公寓资源调配
B 物资管理
C 零星维修
D 卫生保洁
E 水电管理
113、住宿学生应——ABCDE A 遵守住宿纪律
B 爱护公私物
C 增强安全意识
D 注意防火防盗
E 搞好个人卫生
114、寝室成员应——ABCDE A 团结友爱
B 和睦相处
C 文明交往 D 互帮互助
E 遵纪守法
115、学生因——等原因需要退宿的，应凭有效证明到宿管中心办理退宿手续。ABCDE A 毕业
B 休学
C 退学
D 转学
E 出国 116、学生寝室不得拥有或使用——ABCDE A 热得快
B 电炉
C 电热杯
D电取暖器
E电吹风 117、住宿学生应保持学生公寓区安静，需做到——ABCDE A 在午休时间和晚上熄灯后，接听电话应轻声，以不影响他人休息为宜 B 不利用电话长时间闲聊，不利用电话骚扰别人
C 不得弹奏乐器、播放音乐。晚归学生回宿后，洗漱应轻拿轻放
D 禁止进行妨碍他人休息的娱乐活动
E 在学校规定的学习时间内，不准在寝室内下棋、打扑克、玩电子游戏 118、学生寝室布置的原则是——ABCDE A 安全整洁
B 美观大方
C 健康高雅
D 和谐有序
E 富有个性
点击咨询 