还剩72页未读,继续阅读
本资源只提供10页预览,全部文档请下载后查看!喜欢就下载吧,查找使用更方便
文本内容:
河套大学宿舍管理系统摘要高校学生宿舍管理系统是典型的信息管理系统MIS其__主要包括后台数据库的建立和维护以及前端应用程序的__两个方面对于后台数据库的建立和维护要求建立起数据一致性、完整性强、数据安全性好的库而对于前端应用程序的__则要求应用程序能提供强大的数据操纵功能,界面友好、使用简单方便等特点我们使用VisualBasic
6.0和SQLServer2000数据库为__工具VisualBasic
6.0是简单实用的面向数据库__工具同时它提供的集成__环境及面向对象各种标准化控件利于对数据库和数据表的直接操作和处理,提高了编程效率和可靠性另外通过ASP为普通学生__一个简单查询界面,允许学生通过浏览器查询与学生个人密切相关的宿舍管理信息以及与宿舍中心进行信息交流以往的手工纪录的宿舍管理方式已经不能适应高速发展的信息化时代,新的宿舍管理系统__出来之后,学校的现有的宿舍信息管理将有很大的改观,由过去的人工方式转变为计算机方式,由效率低、数据冗余、易产生错误转变为检索迅速、查找方便、可靠性高、存储量大这些优点能够极大地提高效率也是学校科学化、正规化管理的重要条件关键词宿舍管理系统;数据库;VisualBasic
6.0第一章项目背景与需求分析1.1项目背景近几年,随着国家教育政策的调整和完善,我国高等院校大__扩招,给宿舍管理带来了不小的冲击,要使学生拥有一个好的学习环境和生活氛围,是每一所高校都必须面对的重要工作河套大学是一所综合性大学,学校下设人文学部、理工部、农牧科学系、外语系、数学与计算机系等2003年起学校与邻省区进行对__流招生整合后的河套大学目前具有各类在校生13000多人,学生__8栋宿舍管理系统对于一个学校来说是必不可少的组成部分目前学校还停留在宿舍管理人员手工记录数据的最初阶段,手工记录对于规模小的学校来说还勉强可以接受,但对于这样的综合性大学由于学生信息量比较庞大,需要记录存档的数据比较多的高校来说,人工记录是相当麻烦的而且当查找某条记录时,由于数据量庞大,还只能靠人工一条条的查找,这样不但麻烦还浪费了许多时间,效率也比较低当今社会是飞速进步的世界,原始的记录方式已经被社会所淘汰了,计算机化管理正是适应时代的产物信息世界永远不会是一个平静的世界,当一种技术不能满足需求时,就会有新的技术诞生并取代旧技术21世纪的今天信息社会占着主流地位,计算机在各行各业中的运用已经得到普及,自动化、信息化的管理越来越广泛应用于各个领域我们针对如此,设计了一套学生宿舍管理系统学生宿舍管理系统采用的是计算机化管理,系统做的尽量人性化,使用者会感到操作非常方便,管理人员需要做的就是将数据输入到系统的数据库中去由于数据库存储容量相当大,而且比较稳定,适合较长时间的保存,也不容易丢失这无疑是为信息存储量比较大的学校提供了一个方便、快捷的操作方式本系统具有运行速度快、安全性高、稳定性好的优点,能够快速的查询学校所需的住宿信息1.2功能需求1.2.1基本功能需求基于学校的宿舍管理采用的还是人工来进行管理的为了适应学校发展的实际状况,我通过实地调研之后,认为实现学生宿舍管理系统在设计时应尽可能的贴近学生便于学生用户操作,系统在实现上应具有入相功能
(1)系统实现用户身份认证并对登录用户的操作权限分级管理
(2)系统应提供学生入学的注册、基本信息的录入
(3)系统应提供宿舍基本情况的录入
(4)系统应提供学生住宿情况的基本登记
(5)系统应提供学生退宿情况的处理
(6)系统还应具有基本的查询功能
(7)系统不仅提供管理部门对宿舍管理信息的查询功能,还应提供普通学生通过Internet查询宿舍基础信息的功能1.2.2用户界面需求学生宿舍管理系统应提供简单、层次关系明了、清晰的操作界面,使用户一目了然尽可能的为用户的录入、查询等功能操作提供方便快捷按钮的创建也是非常需要的,以方便用户操作1.3性能需求1.3.1系统安全性学生宿舍管理系统中的增加用户、学生学期注册、学生毕业离校等模块都是和学生住宿费相__在一起的,所以在系统的管理权限上应当进行严格控制,具体思想如下
(1)要想对该学生宿舍管理系统进行操作就应当具有某些操作权限没有权限的用户将不能通过任何渠道来登录该系统,查看该系统的任何信息和数据,以确保系统的严密性和安全性
(2)在上述要求基础上,程序开始运行所有功能将是不可使用的,只有用户登录窗口可以使用,没有正确的用户名和__任何人都不能登录该系统
(3)在具体实现时还应为各用户设定不同的权限,系统___应当可以使用系统的所有模块,普通用户只能浏览系统中的宿舍及学生基本信息
(4)在系统开始试运行后,需要采取一定的技术手段对内部用户的访问和外部用户访问进行区分,采取一定的措施,严格控制Internet的用户的操作权限第二章宿舍管理系统的系统规划2.1系统规划规划,一般是对较长时期的活动进行总体的、全面的计划由于管理系统的建设耗资巨大,历时较长,技术复杂且涉及面广,系统规划是这一工作的起始间段这项工作的好坏直接影响到整个系统建设的成败,为了提高规划工作的科学性和有效性应注意以下关键问题
(1)战略计划是核心
(2)解决问题的有效性是关键
(3)应变能力是系统成功的关键问题之一,也是当前系统建设与应用的瓶颈问题
(4)人、管理、技术应协调发展,三者之间相互配合、相互促进,以加速系统的建设进程2.2管理信息系统理论宿舍管理系统是典型的信息管理系统(MIS),需要MIS的基本理论的指导,鉴于此,我们回顾一下MIS的基本理论2.2.1管理信息系统的概述管理信息系统是一个由人和计算机组成的能进行管理信息的收集、传递、__、保存、维护和使用的系统它能实测国民经济和企业的各种运行情况;管理信息系统利用历史数据预测未来;从全局出发辅助管理决策;利用信息控制企业的行为,帮助实现其规划目标管理信息系统是以计算为主要手段处理信息,强调信息处理的系统性、综合性,不但要求在事物处理上高效率,而且更强调对各级管理决策的有效支持,管理信息系统的建立,为各级管理决策提供了信息支持,从根本上改善了管理人员的劳动条件和工作性质,是管理手段现代化的重要标志2.2.2管理信息系统的特点管理信息系统的特点可归纳为数据集中统一,采用数据库数据模型的应用有预测和控制能力面向决策管理信息系统是一门新的学科,它引用其它学科如管理学与工程经济理论、统计学、运筹学以及计算机科学等多学科的概念和方法,融合成为一门新的综合性、边缘性的学科2.2.3管理信息系统__的基本方法用系统工程的方法__管理信息系统的具体方法有生命周期法、原型法、面向对象__方法和CASE方法等多种
(1)生命周期法所谓生命周期法,就是按照管理信息生命周期的概念,严格地按照系统生命周期的各个过程和步骤去__系统即分为五个阶段系统分析、系统设计、系统实施、系统运行、系统维护阶段对于大系统或系统__缺乏经验的情况,采用生命周期法可以立足全局,步步为营,减少返工,有利于提高__质量,加快工程进度生命周期法的不足之处是系统的__周期太长,有时系统__尚在__过程之中,而内外环境已有所变化,对系统的要求也发生了变化
(2)原型法原型法的基本思想是__者和用户在系统的主要需求上取得一致意见后,由__者很快__出一个初步的原型系统,然后通过用户使用和评价,提出改进意见,反复修改、扩展和完善,直到形成一个相对稳定的系统原型法能充分发挥用户的积极性,能及早发现__中出现的问题,因而系统的适用性较高,原型法主要用于以下一些场合用户事先难以说明需求的较小的应用系统;决策支持系统;与生命周期法结合起来使用,即整体上仍使用生命周期法,而仅对其__能__的模块采用原型法
(3)面向对象法面向对象法是一种认识问题和解决问题的思维方法,它把客观世界看成是由许多不同的对象构成在面向对象的系统中,我们把系统中所有资源(如系统、数据、模块)都看成是对象,每一对象都有自己的运动规律和内部状态不同对象间的相互__和相互作用构成一个完整的客观世界
(4)计算机辅助系统__法(CASE法)计算机辅助系统__方法是运用计算机软件工具辅助系统__的一种方法由于当前宿舍管理还处于手工管理阶段,管理水平还比较低,要求宿管部门的工作人员一次性地提供完整的需求确实存在困难,经过仔细分析,我决定采用原型法__即先很快建立一个系统的原型,让用户认识它、使用它、熟悉它、修改它、评价它,不断的满足用户提出的新的需求,进一步完善和提高系统地综合性能当然本系统的__设计过程仍严格遵守生命周期法的__有关规范第三章宿舍管理系统的系统分析3.1系统初步调查系统初步调查是系统分析阶段的第一项活动,其主要目标就是从系统分析人员和管理人员的角度看新项目__的可能性和必要性河套大学作为一所综合性大学,目前学校下设多个院系,尤其近年来与邻省区进行对__流招生后,生源大量增加,学生住宿管理问题引起了校__及主管学生住宿的宿管部门的重视现在学校宿舍管理主要依赖于手工管理方式,它存在着许多弊端,如学生开学入住登记繁琐且容易出错;数据冗余现象严重;查询不方便等为了完善这方面的管理,经多次与校__及宿舍管理负责人的讨论,我决定为河套大学__一个宿舍管理系统,以此来改善现有的管理模式,使学校各方面的管理向着系统化、科学化迈进3.2__方式选择面对当前的学生入学状况及校内现有的硬件资源,校__对学生宿舍管理可以做出以下三种计划安排
(1)继续采用当前的手工管理方式,需要再聘用几个生活老师加强对学生及宿舍的管理
(2)__市场上已有宿舍管理系统,一般来说能够帮助人们在某些环节上完成一些简单的、重复性的工作
(3)自己__一个宿舍管理系统,根据学校自身情况明确目标,__适合自己的系统对于第一种显然是个不可行的,那样既不可减少学校的支出也不可以改善学校宿舍管理制度,以往工作中的缺陷和问题仍没有得到根本的改变和解决对于第二种__理论上是可行的,但存在着这样一些问题,首先__现有的软件是比较昂贵的;其次__到真正满足学校需求、适应学校环境的软件是十分困难的;最后__来的软件是作用和可靠程度一般都不尽如人意,所以经过多次调查讨论后我决定借毕业设计的机会为学校__一个宿舍管理系统自己__软件目标明确、符合需求、便于进一步扩充和升级因此,自行__为自己所用的,适用于学校这一特定应用范围的,只支持宿舍管理这一局部功能的软件是学校最佳的选择3.3系统__的可行性分析与讨论可行性研究是系统分析阶段的第二项活动,其主要目标是进一步确定系统目标、规模与功能,对系统__背景、必要性和意义进行调查分析并根据需要和可能提出__系统的初步方案与计划下面,我从三个方面对河套大学宿舍管理系统的可行性进行分析
(1)技术可行性技术上的可行性要考虑将来采用的硬件和软件技术能否满足用户提出的要求基于当前的计算机网络技术和数据技术已成熟,而且管理信息系统(MIS)的各种__技术也已经相当成熟,并且在各个领域都不乏成熟的案例所以为河套大学__一套网络平台的多用户共享信息的宿舍管理系统在技术上是可行的
(2)经济可行性经济可行性主要是对项目的经济效益进行评价目前,河套大学已建立了校园网络系统,具备了运行网络平台的MIS的硬件基础,而且本系统是我作为毕业设计自行__,免费帮助设计并实施的因此__、设计这套系统的支出费用是学校可以承担的,即经济上是可行的
(3)运营可行性宿舍管理系统的__不会影响学校其它职能部门的正常运行现有的生活部负责人及生活老师素质比较高,所以宿舍管理系统的实施不会遭到阻力,加上校__的支持和其它各部分的配合,宿舍管理系统的实施在运营上是可行的3.4系统详细调查系统详细调查的目标是在可行性研究的基础上进一步对现有系统进行全面、深入的调查和分析,弄清楚现行系统的运行状况发现其薄弱环节,找出要解决的问题的实质,确保新系统比原系统更有效通过详细调查,学校现有在校学生13000多人,宿舍楼8座,男女生各4座目前,宿舍管理工作完全靠生活部老师手工完成学生注册后,入住管理都是手工方式进行由生活部老师按照学生的专业及到校的先后次序依次安排入住学生的基本记录,以及安排入住后的相关资料也由生活老师手工登记,这使的生活部工作量很大,而且宿舍实行统一标准的管理,也不能满足学生及家长的住宿要求,这些问题都亟待解决因此,即使目前全部宿舍都是统一的6人间标准,由于完全采用手工管理,生活部的老师已经非常辛苦而且随着多层次、多等级标准宿舍的出现,手工方式的管理已经完全不能适应管理工作的需要3.5系统逻辑模型的提出这一阶段是系统分析的最后一项活动,目标是明确用户的信息需求,确定新系统的逻辑功能,提出新系统的逻辑方案经过初步调查及详细调查后发现原有的手工管理方式不能满足学校现在的管理要求,学校将采用新的管理方式,对学生宿舍实行__化管理,将现有的宿舍化分为三个标准2人间、4人间和6人间,各种标准的__内部设施各不同,相应的住宿费也不同学生报到后持缴费单到生活部报到安排住宿,根据学生的不同情况,首先登记学生的基本信息,然后查询相应的宿舍情况,依次安排学生入住使学生很快适应新的环境,进入正常、健康的大学生活,为了丰富大学的生活我们开展各种评比活动并且学期结束,按评比结果进行奖励
(1)宿舍管理系统关联图如下图所示
(2)宿舍管理系统顶层图,如下图所示F1学生注册单F2宿舍标准信息F3学生基本信息F4宿舍信息F5评比依据F6评比结果F7退宿结果F8入住结果F9学生信息第四章宿舍管理系统的系统设计4.1数据库的设计4.1.1数据库需求分析需求分析阶段应该对系统的整个应用情况作全面的、详细的调查,确定系统的目标,收集支持系统总的设计目标的基础数据和对这些数据的要求,确定用户的需求要设计一个性能良好的数据库系统,收集和分析用户需求,明确应用环境对系统的要求是首要的和最基本的特别是数据库应用非常广泛,非常复杂,多个应用程序可以在同一个数据库上运行时,为了支持所有应用程序的运行,数据库设计就变的复杂因此事先对信息进行充分和细致的分析,是数据库设计取得成功的关键所在事实上确定全部的用户需求是一件很困难的事情,原因如下
(1)系统本身的需求是变化的,用户的需求必须不断调整,使之与这变化相一致
(2)由于用户缺少计算机信息系统设计方面的专业知识,要准确表达他们的需求很困难,特别是很难说清楚某部分工作的功能与发展过程
(3)要调动用户积极性,使他们能够积极的参与系统的分析与设计工作相当困难虽然面临这些困难,但它关系到数据库设计的成功与否所以一定要认真对待因此,我们应收集尽可能详细的资料,并且了解系统将来要发生的变化,收集未来应用所涉及的数据,充分考虑到系统可能的扩充和变动,使系统设计更符合未来发展的趋向,并且易于改动,以减少系统维护的代价4.1.2数据库概念模式设计(E-R图)在概念设计阶段中,设计人员从用户的角度看待数据及处理要求和约束,产生一个反映用户观点的概念模型为了使E-R图表示的更加清楚,我将E-R图分成实体及其属性图和实体及其__图如下所示4.1.3数据库逻辑结构设计逻辑设计主要是把概念模式转换成DBMS能处理的模式,E-R图到关系模式的转换是比较直接的,实体的__都可以表示成关系,E-R图中的属性也可以转换成关系的属性E-R图直接转化成的关系模式的不是唯一的,也不是一定是最优的,还得根据现实语义,运用范式规范化理论进行优化系统中所涉及到的实体有学生实体、宿舍实体、宿舍标准实体、奖励等级实体及奖品实体将其E-R图向关系模型转换结果如下用户表(用户ID,用户名,__,学生信息管理,宿舍信息管理,学生住宿管理,评比及奖励管理,综合信息查询) 用户ID为此关系的码(注学生信息管理,宿舍信息管理,学生住宿管理,评比及奖励管理,综合信息查询为权限分类)学生基本信息表(学号,姓名,性别,出生日期,入学时间,专业,家庭地址,联__,邮编) 学号为此表的码宿舍标准表(标准号,标准名称,住宿费,床,桌子,柜子,椅子,电视,网口,__,是否有__卫生间)标准号是此表的码宿舍信息表(宿舍号,标准号,位置,床位总数,已用床位,未用床位,__号码,) 宿舍号为此表的码奖品信息表(奖品号,奖品名称,数量,价值) 奖品号为此表的码奖励等级表(等级号,等级名称,评奖机构)等级号为此表的码奖品发放表(奖品号,等级号,数量)学生入宿表(入住编号,姓名,学号,宿舍号,入住时间,____) 学号和宿舍号为此表的码学生退宿表(退宿编号,宿舍号,学号,姓名,退宿日期,入住编号) 宿舍号和学号为此表的码宿舍评比等级表(领用编号,宿舍号,奖励等级号,评比时间,备注) 宿舍号和奖励等级号为此表的码系统自动编号表(编号名称,编号) 编号为此表的码4.1.4数据库的物理设计
(1)数据库和表名称在河套大学宿舍管理系统中数据库的名称设置为hostel 数据库中的表名称和字符标识,如下所示序号表名称字符标识1用户表usertable2学生基本信息表Stumess3宿舍信息表hosgrn4宿舍标准表statichostable5奖品等级表grademess6奖品表grademesslist7奖品发放表gradeset8学生入宿表gohostable9学生退宿表gobacktable10宿舍评比等级表gogrademess11系统自动编号表id
(2) 表结构设计用户表(usertable)序号字段名描述数据类型数据长度主键可否为空1userid用户idChar10√n2username用户名Char10n3userpwd__Char10y4stumess学生信息管理int4y5ho__ess宿舍信息管理int4y6statichostable宿舍标准表int4y7grademess评比奖励管理int4y8allmess综合信息查询int4y学生基本信息表(stumess)序号字段描述数据类型数据长度主键可否为空1stunumber学号Varchar10√n2stuname姓名Varchar12y3stu___性别Char2y4godate出生日期Datetime8y5schdata入学时间Datetime8y6class专业Varchar16y7address家庭住址Varchar36y8telnumber____Varchar14y9addnumber邮编Varchar6y宿舍信息表(hosgrn)序号字段描述数据类型数据长度主键可否为空1hosnumber宿舍号Varchar10√n2Staticnumber标准号Varchar4y3staticname标准名称varchar50y4Hostelnumber__号码Varchar16y5Hosadress位置Varchar50y6Hoskip床位总数Int4y7hossum已用床位Int4y8hosnosum未用床位Int4y宿舍标准表(statichostable)序号字段描述数据类型数据长度主键可否为空1staticnumber标准号varchar4√n2staticname标准名称varchar50y3ho__oney住宿费float4y4hoskip床Int4y5Hosdsk桌子Int4y6Hoscab柜子Int4y7Hoscha椅子Int4y8hosTV电视Int4y9hostelnum__Int4y10Hosnet网口Int4y11hostol是否有__卫生间Char10y奖励等级表(grademess)序号字段描述数据类型数据长度主键可否为空1gradcode等级号Varchar4√N2gradename等级名称Varchar50Y3grademejg评价机构varchar50Y奖品信息表(grademesslist)序号字段描述数据类型数据长度主键可否为空1grademesscode奖品号Varchar8√N2grademessname奖品名称Varchar50Y3grademesssum数量Int4Y4grademesspri__价值float4Y奖品发放表(gradeset)序号字段描述数据类型数据长度主键可否为空1grademesscode奖品号Varchar8√N2gradename等级号Varchar4Y3gradesum数量Int4Y学生入宿表(gohostable)序号字段描述数据类型数据长度主键可否为空1gonumber入住编号Varchar12n2hosnumber宿舍号Varchar10√n3stunumber学号Varchar10√n4stuname姓名Varchar12y5stutel____Varchar50y6godate入住日期Datetime8y学生退宿表(gobacktable)序号字段描述数据类型数据长度主键可否为空1gobacknumber退宿编号Varchar12n2hosnumber宿舍号Varchar10√n3stunumber学号Varchar10√n4stuname姓名Varchar12y5gobackdate退宿日期Datetime8y6gonumber入住编号Varchar12y宿舍评比等级表(gogrademess)序号字段描述数据类型数据长度主键可否为空1gonumber领用编号Varchar12n2hosnumber宿舍号Varchar10√n4gradecode等级号Varchar4√y5godata评比时间Datetime8y6dis备注Varchar200y系统自动编号表(id)序号字段描述数据类型数据长度主键可否为空1name编号名称Varchar50y2number编号Varchar12√n4.2安全性设计为了增强数据安全性学校要求采用大型数据库利用大型关系数据库自身的事务回卷,定期备份等功能,以便保证系统启用后不会出现数据丢失、死机等现象,并保证数据库的一致性、并发性和可移植性SQLServer2000数据库的安全性管理功能就非常强大,相对来说也比较复杂,下面将从系统__的实际情况出发,根据系统分析的结果,对系统安全性进行有针对性的设计
(1)后台SQLServer数据库以Sa为系统___,这一角色由河套大学的专职计算机人员担任,负责对后台数据库的维护
(2)对所有从“宿舍管理系统”前台登录的合法用户,都以DBO角色来访问后台数据库
(3)通过前台__工具VisualBasic
6.0对用户登录权限进行严格的控制管理4.3网络拓扑结构图4-2C/S和B/S混合结构的系统结构图4.4代码设计代码设计的主要原则是简单,易懂和可扩充性,代码设计的方法有好多,本系统选用层次叠加码作为河套大学的信息编码方案下表以资源信息代码表组成为例描述学生号的组成原理字段描述01计算机系0105计算机系2005级01051计算机系2005级计算机信息管理专业0105101计算机系2005级计算机信息管理专业01班010510101计算机系2005级计算机信息管理专业01班01号学生4.5界面设计界面设计应简单明了,一目了然一方面从用户应用需求出发,宿舍管理系统面对的最终用户是对计算机并不精通的学校生活部___;另一方面友好、清晰的界面也易学易用,易维护
(1)河套大学宿舍管理系统界面,如下图所示图 4-3宿舍系统主界面在屏幕最上方为主菜单区,显示本系统的主菜单,用户可以用鼠标来选择下拉菜单选项,选择权限范围内的选项当用户通过选择了菜单所要进行的工作后,系统进入相应的业务处理功能,这时整个业务处理活动在系统工作区进行当业务处理完毕后,系统自动返回到进入次处理之前的原始菜单显示状态
(2)输入界面的设计为了方便用户的使用,宿舍管理系统的界面大量的选用VisualBasic 所提供的标准控件,并配以一些下拉式菜单适当提高用户工作效率,宿舍管理系统的输入界面主要有学生信息管理录入、宿舍信息设置、入住信息录入、评比奖励登记等学生信息管理录入如下图所示图4-4学生信息录入界面4.6功能结构图的设计功能结构图主要从功能的角度描述了系统的结构,但并未能表达各功能这间的数据传送关系河套大学宿舍管理系统从功能上可以划分出如下几个模块,如下图所示图 4-5学生宿舍主功能图为了详细的描述系统功能,我将宿舍管理系统分为七个大的模块系统管理模块,学生信息管理模块,宿舍信息管理模块,学生住宿管理模块,评比及奖励管理模块,综合查询管理模块,帮助模块,每个模块将实现不同的功能下面将具体进行介绍4.6.1系统管理模块系统管理模块包括用户设置,操作销定,注销系统,退出系统,数据清空几个部分如下图所示图 4-6系统管理功能图从登录框登录后,只有系统___才具有用户设置的权限普通用户不可以使用,即没有添加、修改用户权限的权力
(1)用户设置设置用户信息,如用户ID,用户名称,用户__,以及用户权限(只有系统___system可以设置新用户权限)
(2)操作销定判断是否销定系统,以应付紧急情况
(3)注销系统注销当前工作用户重新登录系统
(4)退出系统单击退出系统
(5)数据清空清空所有数据(只有系统___system有此权限)4.6.2学生信息管理模块学生信息管理模块包括注册学生信息,学生信息浏览,学生信息查询三个部分,如下图所示图4-7学生信息管理功能图1注册学生信息登记学生基本信息2学生信息浏览浏览所有注册学生的信息3学生信息查询以学号或姓名或性别为关键字进行按条件查询4.6.3宿舍信息管理模块宿舍信息管理模块包括宿舍标准设置,宿舍信息设置如下图所示图 4-8宿舍信息管理功能图
(1)宿舍标准设置设置各个标准信息,实现不同宿舍标准的分级管理
(2)宿舍信息设置设置宿舍的所属的标准及宿舍相关情况4.6.4 学生住宿管理模块 学生住宿管理模块包括学生住宿登记,学生退宿登记,剩余宿舍查询三个部分如下图所示图 4-9学生住宿管理功能图
(1)学生住宿登记记录学生选择宿舍标准后的相关入宿情况
(2)学生退宿登记学生退宿归还宿舍资源(床位)情况的记录
(3)剩余宿舍查询统计未入住或未住满的宿舍情况4.6.5 评比及奖励管理模块评比及奖励管理模块包括评比标准,奖品管理,评比奖励登记如下图所示图4-10评比、奖励功能图评比标准以文本框的形式显示评比标准
(1)奖品管理A 奖品等级设置设置不同等级奖励奖品发放情况 B 奖品明细设置有关奖品信息的设置
(2)评比等级登记宿舍评比等级录入情况4.6.6综合信息查询学生注册入宿信息管理模块包括宿舍标准查询,学生入住信息查询两个模块如下图所示图 4-11综合信息查询功能图1宿舍标准查询统计所有宿舍标准,即宿舍设置情况以宿舍号或床位数为关键字查询相应设置情况2学生入住信息查询统计所有学生入住情况,以宿舍号或学号或姓名进行有条件查询4.6.7帮助模块此模块是对学生宿舍管理系统__者的相关信息的一个简单的介绍第五章 宿舍管理系统的系统实施经过了系统规划,系统分析和系统设计等阶段后,便开始了系统实施阶段,这个阶段要继承以前各阶段的工作成果,是系统分析和设计阶段的结晶5.1 __工具的选择5.1.1 前台__工具的选择比较几种__工具以后,我选择了VisualBasic
6.0作为河套大学宿舍管理系统前台__工具这主要是考虑到学习比较容易,而且相关__比较多,可以及时的完成任务BASIC语言是受到国内外千百万计算机爱好者欢迎的语言,自1964年问世以来,从实验室走向校园,从校园走向社会,从社会一度走向全世界,始终不衰BASIC是BeginnersAllPurposeSystemInterChangeCode(初学者通用符号代码)的缩写与其它高级语言相比,它的语法规则相对简单,容易理解和掌握,且具有使用价值,被认为是最理想的初学者语言BASIC语言自诞生以来,在广泛使用中不断的发展随着Windows环境的__使用,很多人正在学习和使用了在Windows环境中编程使用的BASIC—VisualBasic故我选用VisualBasic
6.0作为前台__工具5.1.2 后台数据库的选择数据库是数据管理的最新技术,是计算机科学的重要分支十年来,数据库管理系统已从专用的应用程序包发展成为通用系统软件由于数据库具有数据结构化、最低冗余度、较高的程序与数据__性、易于扩充、易于编制应用程序等优点,较大的信息系统都是建立在数据库设计之上的由于用到的数据表格多,另外考虑到实际情况,学生基本信息的变动,还有员工信息的多少的变化,我们选用SQLServer作为数据库__,而不用Ac__ss,主要是因为Ac__ss数据库是一个桌面数据库系统,不适合用户程序对数据库远程连接,而SQLServer是一种常用的关系数据库,能存放和读取大量的数据,管理众多并发的用户,故选用SQLServer数据库5.2程序实现(源代码)5.2.1系统源代码我用Visualbasic为河套大学__的宿舍管理系统,有大量的程序源代码,下面仅有几种重要的程序源代码,列示如下系统界面源代码――――――――――――――PrivateSubMDIForm_Load__inForm.Caption=StrSystem---------------------------------IfTrimLimStuMess=1ThenStuden__n.Enabled=TrueElseStuden__n.Enabled=FalseEndIfIfTrimLimHo__ess=1ThenHostel__n.Enabled=TrueElseHostel__n.Enabled=FalseEndIfIfTrimGoHo__a__ess=1ThenGoHo__an.Enabled=TrueElseGoHo__an.Enabled=FalseEndIfIfTrimLimGradeMess=1ThenStuGrade.Enabled=TrueElseStuGrade.Enabled=FalseEndIfIfTrimLi__llMess=1ThenAllData.Enabled=TrueElseAllData.Enabled=FalseEndIfStatu.Panels
1.Text=StrSystemSpa__10Version
1.0Statu.Panels
2.Text=当前操作员LoginNameStatu.Panels
3.Text=系统__人员王淑霞EndSubPrivateSubNoHosFind_ClickNoGoHosFind.ShowEndSubPrivateSubOpLock_ClickCallSysLockSubEndSubPrivateSubStaHosFind_ClickStaHosList.ShowEndSubPrivateSubStaticHos_ClickHosStaticMess.ShowEndSubPrivateSubStuFind_ClickStuMessFindList.ShowEndSubPrivateSubStuHosFind_ClickStuHosList.ShowEndSubPrivateSubStuMessList_ClickStuMessLook.ShowEndSubPrivateSubSy___it_ClickEndEndSubPrivateSubTimer1_TimerLabel
1.Caption=NowEndSubPrivateSubTryLogin_ClickDimIsYesNoAsStringSetrs=NothingSetcn=NothingIsYesNo=MsgBox是否确认注销系统?vbQuestion+vbYesNostrsytemIfIsYesNo=vbYesThenUnload__inFormLogin.ShowEndIfEndSubPrivateSubUserSys_ClickSysUser.ShowEndSubPublicSubSysLockSubDimISLOCKAsStringISLOCK=MsgBox是否确认锁定系统?vbCritical+vbYesNoStrSystemIfISLOCK=vbYesThenSysLock.Show1EndIfEndSub―――――――――――――――――――――――――――宿舍标准信息设置源代码――――――――――OptionExplicitPublicIsAddEditAsStringPrivateSubCmdAdd_ClickStaticNumber.Enabled=TrueStaticName.Enabled=TrueHo__oney.Enabled=TrueStaticNumber.Text=StaticName.Text=Ho__oney.Text=CmdAdd.Enabled=FalseCmdS__e.Enabled=TrueCmdFind.Enabled=FalseCmdDel.Enabled=FalseStaticNumber.SetFocusIsAddEdit=新增EndSubPrivateSubCmdDel_ClickDimrsAsNewADODB.RecordsetDimstrSQLAsStringDimIsYesNoAsStringIsYesNo=MsgBox是否确认删除记录?vbInfor__tion+vbYesNoStrSystemIfIsYesNo=vbYesThenstrSQL=DELETEFROMStaticHosTableWHEREStaticNumber=StaticNumber.TextIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticCallShowListDataEndIfEndSubPrivateSubCmdExt_ClickUnloadMeEndSubPrivateSubCmdFind_ClickDimStrWhereAsStringDimIsWhereAsStringIsWhere=InputBox请输入您要查找的宿舍标准号或标准名称请输入条件请输入您要查找的宿舍标准号或标准名称StrWhere=ANDStaticNumberLIKE%CheckStringIsWhere%ORStaticNameLIKE%CheckStringIsWhere%CallShowListDataStrWhereEndSubPrivateSubCmdS__e_ClickDimrsAsNewADODB.RecordsetDimstrSQLAsStringIfIsAddEdit=新增ThenIfTrimStaticNumber.Text=OrTrimStaticName.Text=OrTrimHo__oney.Text=ThenMsgBox宿舍标准号、标准名称、住宿费均不能为空!vbInfor__tionStrSystemExitSubEndIfstrSQL=SELECT*FROMStaticHosTableWHEREStaticNumber=CheckStringStaticNumber.TextIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticIfrs.EOF=FalseThenMsgBox宿舍号标准号不能重复!vbInfor__tionStrSystemExitSubEndIfstrSQL=INSERTINTOStaticHosTableStaticNumberStaticNameHo__oneyHoskipHosdskHoscabHosChaHosTvHosNetHosTelNumHosTolVALUESstrSQL=strSQLCheckStringStaticNumber.TextCheckStringStaticName.TextCheckStringHo__oney.TextstrSQL=strSQLCheckStringHosKip.TextCheckStringHosDsk.TextCheckStringHosCab.TextCheckStringHosCha.TextCheckStringHosTv.TextstrSQL=strSQLCheckStringHosNet.TextCheckStringHosTelNum.TextCheckStringHosTol.TextIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticEndIfIfIsAddEdit=修改ThenstrSQL=UPDATEStaticHosTableSETStaticName=CheckStringStaticName.TextHo__oney=CheckStringHo__oney.TextHosKip=strSQL=strSQLHosKip.TextHosDsk=HosDsk.TextHosCab=HosCab.TextHosCha=HosCha.TextHosTv=strSQL=strSQLHosTv.TextHosTelNum=HosTelNum.TextHosTol=HosTol.TextWHEREStaticNumber=StaticNumber.Textrs.OpenstrSQLcnadOpenStaticadLockOptimisticEndIfStaticNumber.Enabled=FalseStaticName.Enabled=FalseHo__oney.Enabled=FalseCmdAdd.Enabled=TrueCmdS__e.Enabled=FalseCmdFind.Enabled=TrueCmdDel.Enabled=TrueCallShowListDataEndSubPrivateSubForm_LoadHosStaticMess.Caption=StrSystem--宿舍标准信息设置CmdAdd.Enabled=TrueCmdS__e.Enabled=FalseCmdFind.Enabled=TrueCmdDel.Enabled=TrueStaticNumber.Enabled=FalseStaticName.Enabled=FalseHo__oney.Enabled=FalseCallShowListDataEndSubPrivateSubHosList_ClickIsAddEdit=修改DimrsAsNewADODB.RecordsetDimstrSQLAsStringExitSubEndIfIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticIfrs.EOF=FalseThenStaticNumber.Text=Trimrs![StaticNumber]StaticName.Text=Trimrs![StaticName]Ho__oney.Text=Trimrs![Ho__oney]HosKip.Text=Trimrs![HosKip]HosDsk.Text=Trimrs![HosDsk]HosCab.Text=Trimrs![HosCab]HosTv.Text=Trimrs![HosTv]HosNet.Text=Trimrs![HosNet]HosTelNum.Text=Trimrs![HosTelNum]HosTol.Text=Trimrs![HosTol]EndIfSetrs=NothingEndSubPrivateSubHosList_DblClickCmdAdd.Enabled=FalseCmdS__e.Enabled=TrueCmdFind.Enabled=FalseCmdDel.Enabled=FalseStaticNumber.Enabled=FalseStaticName.Enabled=TrueHo__oney.Enabled=TrueEndSubPrivateSubV1_ChangeHosKip.Text=V
1.ValueEndSubPrivateSubV2_ChangeHosDsk.Text=V
2.ValueEndSubPrivateSubV3_ChangeHosCab.Text=V
3.ValueEndSubPrivateSubV4_ChangeHosCha.Text=V
4.ValueEndSubPrivateSubV5_ChangeHosTv.Text=V
5.ValueEndSubPrivateSubV6_ChangeHosNet.Text=V
6.ValueEndSubPrivateSubV7_ChangeHosTelNum.Text=V
7.ValueEndSubPublicSubShowListDataByVallpWhereAsString************************************************************自定义过程,公共部分,为了实现显示数据************************************************************DimrsAsNewADODB.RecordsetDimstrSQLAsStringDimLvAsListItemstrSQL=SELECT*FROMStaticHosTableWHERE1=1IflpWhereThenstrSQL=strSQLlpWhereEndIfIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticIfrs.EOF=FalseThenrs.MoveFirstWhilers.EOF=FalseLv.SubItems1=Trimrs![StaticName]Lv.SubItems2=Trimrs![Ho__oney]Lv.SubItems3=Trimrs![HosKip]Lv.SubItems4=Trimrs![HosDsk]Lv.SubItems5=Trimrs![HosCab]Lv.SubItems6=Trimrs![HosCha]Lv.SubItems7=Trimrs![HosTv]Lv.SubItems8=Trimrs![HosNet]Lv.SubItems9=Trimrs![HosTelNum]Lv.SubItems10=Trimrs![HosTol]rs.MoveNextWendElseEndIfEndSub―――――――――――――――――――――5.2.2系统主要界面登陆框图5-1系统登录界面系统主界面(见图4-2)学生入住界面图5-2学生入住界面学生退宿管理界面图5-3学生退宿界面剩余宿舍查询界面图5-4剩余宿舍查询界面5.3系统运行环境5.3.1系统运行的硬件环境服务器CPU P43.0GHZ内存1024MB硬盘150GB显示器17”彩显软盘驱动器一个光盘驱动器一个目前,服务器由高档微机承担,建议在资金条件允许情况下,配置专用服务器客户端CPU P41.7 GHZ内存256MB硬盘60GB显示器17”彩显软盘驱动器一个光盘驱动器一个网络环境交换机一台网线若干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级计算机信息管理专业01班的刘艳同学”录入系统然后通过“查询”来检验数据是否正确插入了系统综合测试在以上测试的基础上对系统功能进行整体测试,依次来检验系统是否符合系统设计的要求第六章宿舍管理系统评价及展望6.1系统__总结历时三个月的毕业设计现在已经接近尾声了,回想起这段日子感觉收获颇多我这次毕业设计的任务是建立一个学生宿舍管理系统,它用到的__工具是VisualBasic语言,SQLServer数据库在设计的开始阶段为了尽快熟悉VB语言,我详细翻阅有关该方面的资料,对书中的基本理论知识逐章节地分析,同时还上机操作来加深理解特别是对书中的一些典型实例,认真学习它的编程思想,吸引它的编程技巧,弄懂程序中每句话的含义在对所要应用的技术有了一个基本认识后,就开始构思自己的系统设计认真听老师对设计要求的讲解,根据任务书的要求将整个系统分为几个模块,每个模块具体又要实现哪些功能,然后就逐个模块去一一详细设计,设计的过程中不时地翻阅资料,用一些巧妙的技术来优化程序程序代码完成之后,要进行运行调试,刚开始由于没有调试经验和方法效率很低,最后在老师和同学的帮助下,终于顺利完成了,自己也从中学到了不少东西总之,通过几个月的毕业设计,让我__了软件__的整个过程毕业设计不仅是对我在大学所学知识的一个综合运用,也是一次增长知识和经验的好机会,同时也使我学会了许多处理、解决问题的方法,大大提高了自己的动手能力,为即将走上工作岗位打下了良好的基础6.2 系统__中遇到的问题及解决措施一个系统的功能的实现,需要经过这么几步,首先把大致的骨架给设计好,然后根据系统要求写代码,接着是调试程序,最后完善总结其中最重要的两步就是中间的两步在此次毕业设计中,给我印象最深的就是系统的调试在调试过程中,遇到了不少的问题,不过经过我的不断的查阅资料,老师的指导,同学的商讨,这些问题都逐渐得到了解决6.3系统展望
(1)本系统将对学校工作的影响本系统校方计划将在下一学期开始运行,该系统的投入运行将使宿管部门工作人员的工作负担大减轻,工作效率得到提高,方便校内各部门实现信息共享,同时对于推动我校管理体制的__,也将起到积极的作用
(2)下一步的工作宿舍内部物资的管理相对而言也是十分重要的,也需要进行系统、规范的管理设计初学校急于强调学生住宿管理工作,所以对于物资管理仍保持以往管理方式,我和校方都已认识到这一方面还需改进如何将物资管理同样实施规范化管理是我们下一步需要解决的问题目前河套大学宿舍管理系统的B/S和C/S系统使用的后台数据库是同一台服务器上的SQLServer数据库,这种模式给我们的系统造成巨大的风险,为了避免一个服务器接入internet后可能遭到的各种各样的黑客的袭击,经过认真研究并__有关计算机专家,下一步我们决定对系统进行如下改进提供Web服务的服务器与提供宿舍管理C/S模式的主服务分离,二者以适当的防火墙隔离由于Web用户仅仅实施查询操作,而且查询信息对数据的实时性要求不太高,因此可采用主服器对Web服务器的数据库定时刷新的手段来解决Web服务器上的数据更新问题同时为了保证系统自身的安全,我们将采用一台普通的微机作为备份机,每天定时备份主服器的数据库,这里推荐使用海量备份方式,可利用windows的计划任务功能协助实现改进后的宿舍管理系统的结构图如下所示图6-1采用C/S和B/S混合结构的宿管系统结构图致 谢转眼间,三个多月的毕业设计就要结束了,在参加设计的这段时间里,能够完成这次毕业设计,除了我自己的努力外,老师和同学们也给予了我非常大的帮助首先要感谢我的指导老师马秀麟老师,在初次见面时,马老师就耐心的为我分析该系统,告诉我目前宿舍管理上的种种弊端,让我在就具体设计该系统时尽可能的考虑全面,使我对整个设计有了一个初步的认识对我进行全面、具体的指导,并给了我许多宝贵___在设计刚开始时,对许多东西都是陌生的,发VB语言之前都没有接触过,都是我的指导老师给予了我耐心的指导,使我对陌生的__环境产生了浓厚的学习兴趣毕业设计能够顺利完成,我非常感谢马老师不辞辛苦的对我的帮助,同时也感谢我的同学,在该系统的完成过程也给我提供了不少___和帮助总之,在老师尽心尽力的帮助下,我的毕业设计才能如期顺利完成,并且,我的导师就我的论文的编排和书写格式也为我提出了不少的修改意见在此,我衷心的感激他,真诚的向他说一声“谢谢”!附录一主要____《VisualBasic程序设计》__潭浩强袁玫清华大学出版《管理信息系统》主编黄梯云经济科学出版社《信息资源管理》主编甘仞初经济科学出版社《信息系统__》主编甘仞初经济科学出版社《SQLServer中文版基础培训教程》主编 刘遵仁 于忠清 人民邮电出版社附录二主要源程序代码用户登陆源代码―――――――――PrivateSubCmdExt_ClickEndEndSubPrivateSubCmdOK_ClickDimrsAsNewADODB.RecordsetDimstrSQLAsStringstrSQL=SELECT*FROMUserTableWHEREUserName=Repla__UserName.TextANDUserPwd=Repla__UserPwd.TextIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticIfrs.EOF=FalseThenLoginName=TrimUserName.TextLimStuMess=Trimrs![StuMess]LimHo__ess=Trimrs![Ho__ess]LimGradeMess=Trimrs![GradeMess]Li__llMess=Trimrs![AllMess]__inForm.ShowUnloadMeElseMsgBox__不正确,请重新输入!vbInfor__tionSystemNameUserPwd.SetFocusUserPwd.SelStart=0UserPwd.SelLength=LenUserPwd.TextEndIfEndSubPrivateSubForm_LoadSystemName.Caption=StrSystem系统名称Login.Caption=StrSystem--登陆IfLinkStartDatabase=FalseThenMsgBox数据库连接失败,请重新配置系统UserMode中LinkStartDatabase的部分代码!vbInfor__tionStrSystemEndEndIfEndSubPrivateSubUserID_Change********************************************************************如果用户输入的ID正确,把相应的用户名显示出来********************************************************************DimrsAsNewADODB.RecordsetDimstrSQLAsStringIfTrimUserID.TextThenstrSQL=SELECT*FROMUserTableWHEREUserID=Repla__UserID.TextIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticIfrs.EOF=FalseThenUserName.Text=Trimrs![UserName]UserPwd.SetFocusCmdOK.Enabled=TrueElseUserName.Text=CmdOK.Enabled=FalseEndIfEndIfSetrs=NothingEndSub――――――――――――――――――――――――――学生基本信息录入源代码――――――――――PublicISAddEditAsStringPrivateSubCmdAdd_ClickISAddEdit=ADDStuNumber.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=FalseCmdS__e.Enabled=TrueCmdFind.Enabled=TrueCmdDel.Enabled=FalseStuNumber.SetFocusEndSubPrivateSubCmdDel_ClickDimIsDelAsStringDimrsAsNewADODB.RecordsetDimstrSQLAsStringIsDel=MsgBox是否确认删除该学生的信息?vbInfor__tion+vbYesNostrsytemIfIsDel=vbYesThenExitSubEndIfIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticEndIfCallShowStuMessListEndSubPrivateSubCmdExt_ClickUnloadMeEndSubPrivateSubCmdFind_ClickDimstrWhereAsStringstrWhere=InputBox请输入您要查询学生学号或姓名关键字请输入条件请输入您要查询学生学号或姓名关键字strWhere=ANDStuNameLIKE%CheckStringstrWhere%ORStuNumberLIKE%CheckStringstrWhere%CallShowStuMessListstrWhere调用自定义过程,传递用户输入的条件!EndSubPrivateSubCmdS__e_ClickDimrsAsNewADODB.RecordsetDimstrSQLAsStringIfISAddEdit=ADDThenIfTrimStuNumber.TextThenstrSQL=SELECT*FROMStuMessWHEREStuNumber=CheckStringStuNumber.TextIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticIfrs.EOF=FalseThenMsgBox学生信息中学生不能重复!vbInfor__tionStrSystemStuNumber.Text=ExitSubEndIfEndIfIfTrimStuNumber.Text=OrTrimStuName.Text=ThenMsgBox学生的学号或姓名均不能为空!vbInfor__tionStrSystemExitSubEndIfstrSQL=INSERTINTOStuMessStuNumberStuNameStu___GoDateSchDateClassAddResAddNumberTelNumberVALUESstrSQL=strSQLCheckStringStuNumber.TextCheckStringStuName.TextCheckStringStuAge.TextstrSQL=strSQLCheckStringGoDate.ValueCheckStringSchDate.ValueCheckStringClass.TextstrSQL=strSQLCheckStringAddRess.TextCheckStringAddNumber.TextCheckStringTelNumber.TextIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticEndIfIfISAddEdit=EDITThenIfTrimStuNumber.Text=OrTrimStuName.Text=ThenMsgBox学生的学号或姓名均不能为空!vbInfor__tionStrSystemExitSubEndIfstrSQL=UPDATEStuMessSETStuName=CheckStringStuName.TextStu___=CheckStringStuAge.TextstrSQL=strSQLGoDate=CheckStringGoDate.ValueSchDate=CheckStringSchDate.ValueClass=CheckStringClass.TextstrSQL=strSQLAddRes=CheckStringAddRess.TextAddNumber=CheckStringAddNumber.TextTelNumber=CheckStringTelNumber.TextstrSQL=strSQLWHEREStuNumber=TrimStuNumber.TextIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticEndIfCallShowStuMessList显示数据该处为自定过程.StuNumber.Enabled=FalseStuName.Enabled=FalseStuAge.Enabled=False性别GoDate.Enabled=FalseSchDate.Enabled=FalseClass.Enabled=FalseAddRess.Enabled=FalseAddNumber.Enabled=FalseTelNumber.Enabled=FalseCmdAdd.Enabled=TrueCmdS__e.Enabled=FalseCmdFind.Enabled=TrueCmdDel.Enabled=TrueSetrs=NothingEndSubPrivateSubForm_LoadStuden.Caption=StrSystem--学生基本信息StuNumber.Enabled=FalseStuName.Enabled=FalseStuAge.Enabled=FalseGoDate.Enabled=FalseSchDate.Enabled=FalseClass.Enabled=FalseAddRess.Enabled=FalseAddNumber.Enabled=FalseTelNumber.Enabled=FalseCmdAdd.Enabled=TrueCmdS__e.Enabled=FalseCallShowStuMessListEndSubPublicSubShowStuMessListByVallpWhereAsString************************************************************自定义过程,公共部分,为了实现显示数据************************************************************DimrsAsNewADODB.RecordsetDimstrSQLAsStringDimLvAsListItemstrSQL=SELECT*FROMStuMessWHERE1=1IflpWhereThenstrSQL=strSQLlpWhereORDERBYStuNumberEndIfIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticIfrs.EOF=FalseThenrs.MoveFirstWhilers.EOF=FalseLv.SubItems1=Trimrs![StuName]Lv.SubItems2=Trimrs![Stu___]Lv.SubItems3=Trimrs![GoDate]Lv.SubItems4=Trimrs![SchDate]Lv.SubItems5=Trimrs![Class]Lv.SubItems6=Trimrs![Addres]Lv.SubItems7=Trimrs![AddNumber]Lv.SubItems8=Trimrs![TelNumber]rs.MoveNextWendElseEndIfEndSubPrivateSubStuList_ClickCallShowData调用自定义过程EndSubPrivateSubStuList_DblClickISAddEdit=EDITCallShowData用户双击修改数据StuNumber.Enabled=FalseStuName.Enabled=TrueStuAge.Enabled=TrueGoDate.Enabled=TrueSchDate.Enabled=TrueClass.Enabled=TrueAddRess.Enabled=TrueAddNumber.Enabled=TrueTelNumber.Enabled=TrueCmdAdd.Enabled=FalseCmdS__e.Enabled=TrueCmdFind.Enabled=FalseCmdDel.Enabled=FalseEndSubPublicSubShowData把用户选择的该条数据显示出来DimrsAsNewADODB.RecordsetDimstrSQLAsStringExitSubEndIfIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticIfrs.EOF=FalseThenStuNumber.Text=Trimrs![StuNumber]StuName.Text=Trimrs![StuName]StuAge.Text=Trimrs![Stu___]GoDate.Value=Trimrs![GoDate]SchDate.Value=Trimrs![SchDate]Class.Text=Trimrs![Class]AddRess.Text=Trimrs![Addres]AddNumber.Text=Trimrs![AddNumber]TelNumber.Text=Trimrs![TelNumber]EndIfEndSub―――――――――――――――――――――――――――――――学生入住管理源代码――――――――――OptionExplicitPublicstrStaticNumberAsString宿舍号标准号PrivateSubCmdAdd_ClickDimrsAsNewADODB.RecordsetDimstrSQLAsString*********************************strSQL=SELECTHosNumberFROMHosGrnWHEREHosNoSum=1Ifrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticIfrs.EOF=FalseThenHosNumber.Clearrs.MoveFirstWhilers.EOF=FalseHosNumber.AddItemTrimrs![HosNumber]rs.MoveNextWendHosNumber.Text=EndIf*********************************strSQL=SELECTstuNumberFROMStuMessIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticIfrs.EOF=FalseThenStuNumber.Clearrs.MoveFirstWhilers.EOF=FalseStuNumber.AddItemTrimrs![StuNumber]rs.MoveNextWendStuNumber.Text=EndIf****************************************************GoNumber.Text=CreateNumberGhstrSQL=SELECT*FROMGoHosTableWHEREGoNumber=TrimGoNumber.TextIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticIfrs.EOF=FalseThenMsgBox入住序号重复!vbInfor__tionStrSystemGoNumber.Text=CmdAdd.Enabled=TrueExitSubEndIf**********************************************HosNumber.Enabled=TrueStuNumber.Enabled=TrueStuName.Enabled=TrueStuTel.Enabled=TrueGoDate.Enabled=TrueCmdAdd.Enabled=FalseCmdS__e.Enabled=TrueCmdDel.Enabled=FalseCmdFind.Enabled=False************HosNumber.Text=StuNumber.Text=StuName.Text=StuTel.Text=***********************EndSubPrivateSubCmdDel_ClickDimrsAsNewADODB.RecordsetDimstrSQLAsStringDimIsDelAsStringIfLoginNamesystemThenMsgBox对不起,您没有此权限!vbCriticalStrSystemExitSubEndIfstrSQL=SELECT*FROMHosGrnWHEREHosSum=0ANDHosNumber=HosNumber.TextHosSum:占用床位数Ifrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticIfrs.EOF=FalseThenMsgBox系统中的床位数不符,不允许删除!vbInfor__tionStrSystemExitSubEndIf*****************************************************************防止用户多次__删聊,床位数出现混乱!*****************************************************************IsDel=MsgBox该功能主要用于用户输入错误时处理手段,是否确定删除?Chr13_删除成功后,占用床位人数减少,剩余床位数增加Chr13_以上是您选择的信息Chr13_入住序号GoNumber.Text,宿舍号HosNumber.Text,学号StuNumber.Text,姓名StuName.Text,入住时间GoDate.ValuevbInfor__tion+vbYesNoStrSystemIfIsDel=vbYesThenstrSQL=DELETEFROMGoHosTableWHEREGoNumber=TrimGoNumber.TextIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticEndIf**************************CallShowGoHosList*********************************************************strSQL=EXECGoBackHosSumTrimHosNumber.TextIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticSQLServer存储过程执行完成**************************************************************Setrs=NothingEndSubPrivateSubCmdExt_ClickUnloadMeEndSubPrivateSubCmdFind_ClickDimrsAsNewADODB.RecordsetDimstrSQLAsStringDimIsStrAsStringIsStr=InputBox请输入您要查找信息中,宿舍号或学号或姓名的关键字请输入条件strSQL=ANDHosNumberLikeCheckStringIsStr%ORStuNumberLike%strSQL=strSQLCheckStringIsStr%ORStuNameLike%CheckStringIsStr%CallShowGoHosListstrSQLEndSubPrivateSubCmdS__e_ClickDimrsAsNewADODB.RecordsetDimstrSQLAsString*************************************************************IfTrimGoNumber.Text=ThenMsgBox入住序号不能为空!vbInfor__tionStrSystemExitSubEndIf****************************************************************IfTrimHosNumber.TextThenIfTrimHosNumber.Text=所有宿舍号空位ThenMsgBox请选择要入住的宿舍号!vbInfor__tionStrSystemExitSubEndIfElseMsgBox请选择要入住的宿舍号!vbInfor__tionStrSystemExitSubEndIf****************************************************************IfTrimStuNumber.Text=OrTrimStuName.Text=OrTrimStuTel.Text=ThenMsgBox入住信息中,入住学生信息不能为空!vbInfor__tionStrSystemExitSubEndIf=======================================================strSQL=SELECT*FROMGoHosTableWHEREStuNumber=CheckStringStuNumber.TextANDGoDate=GoDate.ValueIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticIfrs.EOF=FalseThenMsgBox用户操作出现逻辑性错误,请核对后继续!vbInfor__tionStrSystemExitSubEndIf=========================================================*********************************************************************strSQL=INSERTINTOGoHosTableGoNumberHosNumberStuNumberStuNameStuTelGoDateVALUESCheckStringGoNumber.TextCheckStringHosNumber.TextstrSQL=strSQLCheckStringStuNumber.TextCheckStringStuName.TextCheckStringStuTel.TextCheckStringGoDate.ValueIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimistic*********************************************************************这里执行SQLServer存储过程,存储过程名称GoHosSum调用自定义过程过程名CheckGoHosDataCallCheckGoHosDataTrimHosNumber.Text************************************************开始保存入住信息HosNumber.Enabled=FalseStuNumber.Enabled=FalseStuName.Enabled=FalseStuTel.Enabled=FalseGoDate.Enabled=FalseCmdAdd.Enabled=TrueCmdS__e.Enabled=FalseCmdDel.Enabled=TrueCallShowGoHosList显示入住信息CallPrintGoHo__ess调用打印EndSubPrivateSubForm_LoadDimrsAsNewADODB.RecordsetDimstrSQLAsString****************************************************************StuHos.Caption=StrSystem--学生入住CallShowGoHosList显示入住信息HosNumber.Enabled=FalseStuNumber.Enabled=FalseStuName.Enabled=FalseStuTel.Enabled=FalseGoDate.Enabled=FalseCmdAdd.Enabled=TrueCmdS__e.Enabled=FalseCmdDel.Enabled=TrueCmdDel.Enabled=TrueEndSubPublicSubShowListDataByVallpWhereAsString************************************************************自定义过程,公共部分,为了实现显示数据宿舍标准信息************************************************************DimrsAsNewADODB.RecordsetDimstrSQLAsStringDimLvAsListItemstrSQL=SELECT*FROMStaticHosTableWHERE1=1IflpWhereThenstrSQL=strSQLlpWhereORDERBYStaticNumberEndIfIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticIfrs.EOF=FalseThenrs.MoveFirstWhilers.EOF=FalseLv.SubItems1=Trimrs![StaticName]Lv.SubItems2=Trimrs![HosKip]Lv.SubItems3=Trimrs![HosDsk]Lv.SubItems4=Trimrs![HosCab]Lv.SubItems5=Trimrs![HosCha]Lv.SubItems6=Trimrs![HosTv]Lv.SubItems7=Trimrs![HosNet]Lv.SubItems8=Trimrs![HosTelNum]Lv.SubItems9=Trimrs![HosTol]rs.MoveNextWendElseEndIfEndSubPublicSubShowGoHosListByVallpWhereAsString************************************************************自定义过程,公共部分,为了实现显示数据入住信息************************************************************DimrsAsNewADODB.RecordsetDimstrSQLAsStringDimLvAsListItemstrSQL=SELECT*FROMGoHosTableWHERE1=1IflpWhereThenstrSQL=strSQLlpWhereORDERByGoNumberEndIfIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticIfrs.EOF=FalseThenrs.MoveFirstWhilers.EOF=False入住序号Lv.SubItems1=Trimrs![HosNumber]Lv.SubItems2=Trimrs![StuNumber]Lv.SubItems3=Trimrs![StuName]Lv.SubItems4=Trimrs![StuTel]Lv.SubItems5=Trimrs![GoDate]rs.MoveNextWendElseEndIfEndSubPrivateSubGoList_ClickHosNumber.Enabled=FalseStuNumber.Enabled=FalseStuName.Enabled=FalseStuTel.Enabled=FalseGoDate.Enabled=FalseCmdAdd.Enabled=TrueCmdS__e.Enabled=FalseCmdDel.Enabled=TrueCallShowData把以前的入住信息显示出来EndSubPrivateSubHosNumber_ChangeIfTrimHosNumber.Text=所有宿舍号空位ThenCallShowListDataElsestrStaticNumber=ShowStaticMessHosNumber.TextCallShowListDataANDStaticNumber=CheckStringstrStaticNumberEndIfEndSubPrivateSubHosNumber_ClickIfTrimHosNumber.Text=所有宿舍号空位ThenCallShowListDataElsestrStaticNumber=ShowStaticMessHosNumber.TextCallShowListDataANDStaticNumber=CheckStringstrStaticNumberEndIfEndSubPublicSubShowStuMessByValLpStuNumberAsString显示学生信息DimrsAsNewADODB.RecordsetDimstrSQLAsStringstrSQL=SELECT*FROMStuMessWHEREStuNumber=CheckStringLpStuNumberIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticIfrs.EOF=FalseThenStuName.Text=Trimrs![StuName]姓名StuTel.Text=Trimrs![TelNumber]____ElseStuName.Text=StuTel.Text=EndIfSetrs=NothingEndSubPrivateSubPrint_ClickDimxlEx__lEndSubPrivateSubStuNumber_ChangeCallShowStuMessTrimStuNumber.TextEndSubPrivateSubStuNumber_ClickCallShowStuMessTrimStuNumber.TextEndSubPublicSubCheckGoHosDataByValLpHosNumberAsString***********************************************************************该处自定义过程,实现入住时,入住人数增加,空床数剩余床位数减少***********************************************************************DimrsAsNewADODB.RecordsetDimstrSQLAsStringstrSQL=EXECGoHosSumCheckStringLpHosNumberIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimistic************************************************************************Setrs=NothingEndSubPublicSubShowDataOnErrorResumeNextDimrsAsNewADODB.RecordsetDimstrSQLAsStringIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticIfrs.EOF=FalseThenGoNumber.Text=Trimrs![GoNumber]HosNumber.Text=Trimrs![HosNumber]StuNumber.Text=Trimrs![StuNumber]StuName.Text=Trimrs![StuName]StuTel.Text=Trimrs![StuTel]GoDate.Value=Trimrs![GoDate]EndIfEndSubPublicFunctionShowStaticMessByValLpStaticNumberAsStringAsString用户选择宿舍号时,自动检索该宿舍号对号的宿舍标准信息,得到标准号DimrsAsNewADODB.RecordsetDimstrSQLAsStringstrSQL=SELECT*FROMHosGrnWHEREHosNumber=CheckStringLpStaticNumberIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticIfrs.EOF=FalseThenShowStaticMess=Trimrs![StaticNumber]ElseShowStaticMess=EndIfSetrs=NothingEndFunctionPublicSubPrintGoHo__ess该功能用于打印学生入住信息!OnErrorResumeNextDimxlEx__lAsex__l.ApplicationDimxlWorkBookAsex__l.WorkbookDimxlSheetAsex__l.WorksheetDimIsPrintAsStringIsPrint=MsgBox是否打印入宿信息表?vbInfor__tion+vbYesNoStrSystemIfIsPrint=vbYesThenSetxlEx__l=CreateO__ectEx__l.Application内蒙古河套大学宿舍管理系统.xlsxlEx__l.Visible=TrueSetxlSheet=xlWorkBook.Worksheets1打开EX__L工作表Range入住序号.Value=TrimGoNumber.TextRange入住时间.Value=TrimGoDate.ValueRange宿舍号.Value=TrimHosNumber.TextRange学号.Value=TrimStuNumber.TextRange姓名.Value=TrimStuName.TextRange____.Value=TrimStuTel.TextEndIfSetxlEx__l=NothingEndSub――――――――――退宿管理源代码―――――――――――――――――――――――――――――――PrivateSubCmdAdd_ClickHosNumber.Text=StuNumber.Text=StuName.Text=GoNumber.Text=***********************************************GoBackNumber.Text=CreateNumberGoBk***********************************************GoHo__ess.Show1CmdAdd.Enabled=TrueCmdS__e.Enabled=TrueCmdFind.Enabled=FalseCmdDel.Enabled=FalseEndSubPrivateSubCmdDel_ClickDimrsAsNewADODB.RecordsetDimstrSQLAsStringDimIsYesNoAsStringIfLoginNamesystemThenMsgBox对不起,您没有此权限!vbCriticalStrSystemExitSubEndIf*****************************************************************strSQL=SELECT*FROMHosGrnWHEREHosNoSum=0ANDHosNumber=DelNumber.TextIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticIfrs.EOF=FalseThenMsgBox系统中的床位数不符,不允许删除!vbInfor__tionStrSystemExitSubEndIf*****************************************************************防止用户多次__删除,床位数出现混乱!*****************************************************************DelNumber.Text=要删除信息中的宿舍号ExitSubEndIfIfTrimDelNumber.Text=ThenMsgBox预删除信息中有未确定元素,请重新选择您要删除的退宿信息!vbInfor__tionstrNumberDelNumber.Text=要删除信息中的宿舍号ExitSubEndIfIsYesNo=MsgBox是否确认删除入选中的记录?vbInfor__tion+vbYesNoStrSystemIfIsYesNo=vbYesThenIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticElseDelNumber.Text=要删除信息中的宿舍号EndIf******************************************************************************************CallShowListData******************************************************************************************这里需要执行SQLServer存储过程strSQL=EXECGoBackHosNoSumTrimDelNumber.TextIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticDelNumber.Text=SQLServer存储过程执行完成***********************************************************************************EndSubPrivateSubCmdExt_ClickUnloadMeEndSubPrivateSubCmdFind_ClickDimStrWhereAsStringDimIsDelAsStringIsDel=InputBox请输入您要查找信息中的宿舍号或学号或姓名请输入条件请输入您要查找信息中的宿舍号或学号或姓名StrWhere=ANDHosNumberLIKE%CheckStringIsDel%ORStuNumberLIKE%CheckStringIsDel%ORStuNameLIKE%CheckStringIsDel%CallShowListDataStrWhereEndSubPrivateSubCmdS__e_ClickDimrsAsNewADODB.RecordsetDimstrSQLAsStringIfTrimGoBackNumber.Text=OrTrimHosNumber.Text=OrTrimGoNumber.Text=ThenMsgBox退宿序号、宿舍号、入住序号均不能为空!vbInfor__tionStrSystemExitSubEndIf**************************************************************************************************strSQL=SELECT*FROMHosGrnWHEREHosSum=0ANDHosNumber=TrimHosNumber.TextIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticIfrs.EOF=FalseThenMsgBox系统中的床位数不符,无法退宿!vbInfor__tionStrSystemExitSubEndIf=========================================================================================strSQL=SELECT*FROMGoBackTableWHEREStuNumber=CheckStringStuNumber.TextANDGoBackDate=GoBackDate.ValueIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticIfrs.EOF=FalseThenMsgBox用户操作出现了逻辑性错误,请核对后继续!vbInfor__tionstrsytemExitSubEndIf***************************************************************************************************strSQL=INSERTINTOGoBackTableGoBackNumberHosNumberStuNumberStuNameGoNumberGoBackDateVALUESCheckStringGoBackNumber.TextCheckStringHosNumber.TextstrSQL=strSQLCheckStringStuNumber.TextCheckStringStuName.TextCheckStringGoNumber.TextGoBackDate.ValueIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticCallShowListData**********************************************************************************strSQL=EXECGoBackHosSumTrimHosNumber.TextIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticSQLServer存储过程执行完成***********************************************************************************CmdS__e.Enabled=FalseCmdFind.Enabled=TrueIfLoginName=systemThenCmdDel.Enabled=TrueElseCmdDel.Enabled=FalseEndIfEndSubPrivateSubForm_LoadBackHos.Caption=StrSystem--学生退宿CmdAdd.Enabled=TrueCmdS__e.Enabled=FalseCmdFind.Enabled=TrueCmdDel.Enabled=TrueCallShowListDataEndSubPrivateSubGoNumber_ChangeDimrsAsNewADODB.RecordsetDimstrSQLAsStringstrSQL=SELECT*FROMGoHosTableWHEREGoNumber=TrimGoNumber.TextIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticIfrs.EOF=FalseThenHosNumber.Text=Trimrs![HosNumber]StuNumber.Text=Trimrs![StuNumber]StuName.Text=Trimrs![StuName]ElseHosNumber.Text=HosNumber.Text=HosNumber.Text=EndIfEndSubPublicSubShowListDataByVallpWhereAsString************************************************************自定义过程,公共部分,为了实现显示数据************************************************************DimrsAsNewADODB.RecordsetDimstrSQLAsStringDimLvAsListItemstrSQL=SELECT*FROMGoBackTableWHERE1=1IflpWhereThenstrSQL=strSQLlpWhereORDERBYGoBackNumberEndIfIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticIfrs.EOF=FalseThenrs.MoveFirstWhilers.EOF=FalseLv.SubItems1=Trimrs![HosNumber]Lv.SubItems2=Trimrs![StuNumber]Lv.SubItems3=Trimrs![StuName]Lv.SubItems4=Trimrs![GoNumber]Lv.SubItems5=Trimrs![GoBackDate]rs.MoveNextWendElseEndIfEndSubPrivateSubHosList_ClickDimrsAsNewADODB.RecordsetDimstrSQLAsStringExitSubEndIfIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticIfrs.EOF=FalseThenDelNumber.Text=Trimrs![HosNumber]EndIfEndSub――――――――――――――――――――――――――――――――――――――学生入住信息查询――――――――――――PrivateSubCom__nd1_ClickDimStrWhereAsStringIfTrimHosNumber.TextThenStrWhere=StrWhereANDHosNumberLIKE%CheckStringHosNumber.Text%EndIfIfTrimStuNumber.TextThenStrWhere=StrWhereANDStuNumberLIKE%CheckStringStuNumber.Text%EndIfIfTrimStuName.TextThenStrWhere=StrWhereANDstuNameLIKE%CheckStringStuName.Text%EndIfCallShowGoHosListStrWhereEndSubPrivateSubForm_LoadStuHosList.Caption=学生入住信息查询CallShowGoHosListStuHosList.Width=__inForm.WidthStuHosList.Height=__inForm.HeightGoList.Width=StuHosList.WidthGoList.Height=StuHosList.Height-3000EndSubPublicSubShowGoHosListByVallpWhereAsString************************************************************自定义过程,公共部分,为了实现显示数据入住信息************************************************************DimrsAsNewADODB.RecordsetDimstrSQLAsStringDimLvAsListItemstrSQL=SELECT*FROMShowHosStuListWHERE1=1ShowHostStuList为视图,SQL左连接,实现了显示入住学生的所有信息和宿舍信息IflpWhereThenstrSQL=strSQLlpWhereORDERBYGoNumberEndIfIfrs.State=1Thenrs.CloseEndIfrs.OpenstrSQLcnadOpenStaticadLockOptimisticIfrs.EOF=FalseThenrs.MoveFirstWhilers.EOF=FalseLv.SubItems1=Trimrs![HosNumber]Lv.SubItems2=Trimrs![StuNumber]Lv.SubItems3=Trimrs![StuName]Lv.SubItems4=Trimrs![Stu___]Lv.SubItems5=Trimrs![GoDate]Lv.SubItems6=Trimrs![SchDate]Lv.SubItems7=Trimrs![Class]Lv.SubItems8=Trimrs![Addres]Lv.SubItems9=Trimrs![AddNumber]Lv.SubItems10=Trimrs![TelNumber]rs.MoveNextWendElseEndIfEndSub―――――――――――――――――――――――――――――――――――――Asp源代码conn.asp―――――――――――%dimconndimconnstronerrorresumenextsetconn=server.createo__ectADODB.CONNECTIONconn.openconnstr%―――――――――――――――――――――――Asp源代码index.asp―――――――――――!--#includefile=conn.asp--html%const__xPerPage=20dimtotalPutdimCurrentPagedimTotalPagesdimijdimtypenamedimkeywordkeyword=trimrequestkeywordtypename=request.QuerystringtypenameifnotisemptyrequestpagethencurrentPage=cintrequestpageelsecurrentPage=1endif%headmetahttp-equiv=Content-Typecontent=text/html;charset=gb2312title信息查询系统/titlemetaname=GENERATORcontent=MicrosoftFrontPage
3.0script!--functionopenwinid{window.openviewarticle.aspid=+idheight=450width=550resizable=yesscrollbars=yesstatus=notoolbar=nomenubar=nolocation=no;}//--/scriptlinkhref=js.cssrel=stylesheettype=text/css/headbodyb__olor=#FFFFFFtop__rgin=0left__rgin=0__rginwidth=0__rginheight=0divalign=__nter/divtablewidth=800height=500border=0align=__nter__llpadding=0__llspacing=0trtdtableborder=1width=350bordercolorlight=#000000bordercolordark=#FFFFFF__llpadding=0__llspacing=0align=__ntertrtdheight=50b__olor=#B5D85Edivalign=__nterclass=textstrong宿舍管理系统/strong/div/td/trtrtdheight=150align=__ntervalign=middledivalign=__nterdivalign=__nterdivalign=__nterformname=form1method=postaction=second.asptablewidth=300border=0__llpadding=0__llspacing=0class=texttrtdwidth=100height=30divalign=__nter学号/div/tdtdheight=30inputname=stunametype=textid=stunamesize=15/td/trtrtdwidth=100height=30divalign=__nter生日/div/tdtdheight=30inputname=godatetype=textid=godatesize=15/td/trtrtdheight=30colspan=2tablewidth=200border=0align=__nter__llpadding=0__llspacing=0trtdnbsp;/tdtdnbsp;/td/tr/tabletablewidth=200height=30border=0align=__nter__llpadding=0__llspacing=0trtdinputtype=submitname=Submitvalue=查询/tdtdinputtype=resetname=Submit2value=重设/td/tr/table/td/tr/table/form/div/div/div/td/tr/table/td/tr/tablepalign=__nternbsp;/p/body/html―――――――――――――――――――――――Asp源代码second.asp―――――――――――!--#includefile=conn.asp--!DOCTYPEHTMLPUBLIC-//W3C//DTDHTML
4.01Transitional//ENhtmlheadmetahttp-equiv=Content-Typecontent=text/html;charset=gb2312title河套大学宿舍管理系统/titlelinkhref=js.cssrel=stylesheettype=text/cssstyletype=text/css!----/style/headbodytableborder=1width=980bordercolorlight=#000000bordercolordark=#FFFFFF__llpadding=0__llspacing=0align=__ntertrtdheight=50b__olor=#B5D85Edivalign=__nterclass=text01style1河套大学宿舍标标准信息一览表fontcolor=#000000/font/div/td/trtrtdalign=__ntervalign=topdivalign=__nterdivalign=__nterdivalign=__ntertablewidth=1border=0__llspacing=0__llpadding=0trtdnbsp;/td/tr/tableformname=form1method=postaction=tablewidth=98%border=1__llpadding=0__llspacing=0class=texttrb__olor=#EEEEEEtdwidth=80height=30divalign=__nter宿舍号/div/tdtdwidth=60height=30divalign=__nter住宿费/div/tdtdwidth=40height=30divalign=__nter床位/div/tdtdwidth=40height=30divalign=__nter衣柜/div/tdtdwidth=40height=30divalign=__nter桌子/div/tdtdwidth=40height=30divalign=__nter椅子/div/tdtdwidth=40height=30divalign=__nter电视/div/tdtdwidth=100height=30divalign=__nter__/div/tdtdwidth=40height=30divalign=__nter网口/div/tdtdwidth=50height=30divalign=__nter位置/div/tdtdwidth=100height=30divalign=__nter是否__卫生间/div/td/tr%sessionUserName=requeststunamedimrsstrcntsetrs=server.createo__ectadodb.recordsetstr=selectcount*ascntfromHosGrnwhereHosNumber=requeststunamers.openstrconn11cnt=rscntrs.closeifcnt=0thenresponse.writeSCRIPTlanguage=J__aScriptalert学号错误;response.write/scriptChr13response.endelsestr=select*fromHosGrnrs.openstrconn11ifrs.eofthenresponse.writedivalign=__nter暂时无记录/divelsers.PageSize=2dimabsolutePage1absolutePage1=Trimrequest.QueryStringabsolutePage1ifabsolutePage1=thenabsolutePage1=1elseifabsolutePage10orabsolutePage1rs.PageCountthenendifrs.AbsolutePage=absolutePage1dimifori=1tors.PageSizeifrs.Eofthenexitforendif%trtdwidth=80height=30spanclass=zhengwen%=rshosnumber%/span/tdtdwidth=60height=30spanclass=zhengwen%=rsho__oney%/span/tdtdwidth=40height=30spanclass=zhengwen%=rshoskip%/span/tdtdwidth=40height=30spanclass=zhengwen%=rshoscab%/span/tdtdwidth=40height=30spanclass=zhengwen%=rsHosDsk%/span/tdtdwidth=40height=30spanclass=zhengwen%=rshoscha%/span/tdtdwidth=40height=30spanclass=zhengwen%=rshostv%/span/tdtdwidth=100height=30spanclass=zhengwen%=rshostel%/span/tdtdwidth=40height=30spanclass=zhengwen%=rshosnet%/span/tdtdwidth=50height=30spanclass=zhengwen%=rsHosAddres%/span/tdtdwidth=100height=30spanclass=zhengwen%=rshostol%/span/td%rs.movenextnext%/trtrtdheight=22colspan=11%dimcolorScriptNamefori=1tors.PageCountifi=CIntabsolutePage1thencolor=#000000response.writefontsize=2color=colori/font/anbsp;elseScriptName=request.ServerVariablesscript_nameresponse.writefontsize=2ahref=ScriptName_absolutePage1=istuname=SessionUserNamei/font/anbsp;endifnextendifsetrs=nothingcnn.closesetcnn=nothing%/td/tr%endifrs.closesetrs=nothingconn.closesetconn=nothing%/table/formtablewidth=1border=0__llspacing=0__llpadding=0trtdnbsp;/td/tr/table/div/div/div/td/trtrtdheight=50b__olor=#E8E8E8divalign=__nterclass=text河套大学版权所有/div/td/tr/table/body/html―――――――――――――――――――――――宿舍宿舍号标准号床位总数占用床数__号码未占床数位置宿舍标准住宿费标准号标准名称 卫生间电视椅子床柜子__网口桌子。