学生公寓管理系统

VB学生公寓管理系统论文摘要Abstract
With the popularization and use of the computer, present management has been promoted much, more and more jobs have  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
随着电脑的普及与使用，现在的管理也提升了一个档次，渐渐实现了无纸化办公，即从原来的人工记录管理模式转变为电脑一体化管理。高校是科研的阵地，后勤的公寓管理也应该一改传统的人工管理，更加信息化，时代化，节省人力物力，提高效率。基于这一点，开发此学生公寓管理软件。学生公寓管理软件，是以高校的管理方式为实例而设计的一种实用型管理系统。本系统最大的特点是通用性、简单操作性，适用于同行业以及一些同类型的企业管理。随着学校寄宿人员的增多，公寓管理人员的负担越来越重，为了让所有公寓管理人员能从繁重的工作中解脱出来，实现无纸化办公；使工作更有条理，更方便，更有效率而开发出这套公寓管理软件。软件从对学生的分房开始到最后的公寓管理全部电脑化。它主要包括：公寓、寝室的配置、住宿人员登记、卫生检查、公寓资产、学生违纪、值班老师记录以及对学生住宿情况查询，可以更快地了解到每个学生的住宿情况,使公寓的管理效率更高，做的更好！
关键字：配置、登记、检查395VB学生公寓管理系统引言第一章系统分析1.1开发工具简介及系统运行环境1.2开发的必要性1.3系统开发的可行性1.4数据来源1.5新系统数据流程图第二章 数据库设计第三章功能模块设计3.1新系统功能结构图及运行图如下：3.2系统设置:3.3公寓管理3.4 卫生检查3.5 公寓资产3.6 记录查看与记录删除第四章 程序设计主程序流程图4.1 登录界面4.2  程序主界面4.3系统设置4.4公寓管理4.5卫生检查4.6 公寓资产4.7记录查看第五章 系统测试总结参考文献
引言学生公寓管理软件是用Microsoft Visual Basic 编写完成。由于Visual Basic率先采用了可视化（VISUAL）的程序设计方法。所以利用系统提供的大量可视化控件，可以方便的以可视化方式直接绘制用户图形界面，并可直观，动态的调整界面的风格和样式，直到满意为止，从而克服了以前必须用大量代码去描述界面元素的外观和位置的传统编程模式。做起来方便，使用起来更为快捷。作为一个学生公寓的管理软件，要十分全面的贴近以及适合大学公寓的管理方法。本软件的参考资料主要有两种来源：一是参考本学校公寓的管理结构，管理方法。如各个公寓的分布特色，以及公寓的各种管理制度。这些资料是本软件的主要依据，也可以说这些资料来源于普通的生活，比较真实一些。二是来源于网络上的各种同类软件，通过这些软件可以看出一个公寓最低需要哪些管理与设置，在这些软件中，有些软件功能比较齐全，但是在管理上显的非常的不方便，使用起来十分麻烦、繁琐，有些虽然简单，但是功能上又不是十分完善，对这些软件首先要进行取其精华，弃其糟粕，从而进行编写。本软件主要包括以下方面：系统设置、公寓管理、卫生检查、公寓资产、记录查看、记录删除、值班记录、帮助制作。学生公寓管理软件。它目前在功能上，以及操作的简便上有很大的改进。但是还是存在一些不足，在有些功能的实现上还不是十分的理想，这也是本人在时间和精力上留下的遗憾。但是相信这些会在以后的版本中得到完善，使这个软件成为一个功能上最全，使用上最简捷方便的管理软件。
第一章系统分析系统采用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文档。VB学生公寓管理系统开发的必要性信息资源已成为各个部门的重要财富和资源，建立一个满足各级部门信息处理需要的信息系统，也一个企业或组织生存越来越重要的信息资源。长期以来，使用传统人工的方法管理高校公寓，这种管理方式存在着许多缺点，如：效率低。而且时间一长，将产生大量的文件和数据，这对于查找、更新、维护都带来了不少的困难。随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥越来越重要的作用。学生公寓管理软件，是以高校的管理方式为实例而设计的一种实用型管理软件。本系统最大的特点是通用性、简单操作性。随着学校寄宿人员的增多，公寓管理人员的负担越来越重，为了让所有公寓管理人员能从繁重的工作中解脱出来，实现无纸化办公，使工作更有条理、更方便、更有效率，而开发出这套公寓管理软件。1.3系统开发的可行性1．3．1 技术上的可行性我们正走进一个信息时代，信息技术将从根本上改变人类社会的生产方式和生活方式，各行各业的业务管理现在都已经相继使用计算机来处理，可以说用计算机进行信息管理是一个总趋势。学生公寓管理软件主要是对公寓、寝室的配置、住宿人员登记、卫生检查、公寓资产、学生违纪、值班老师记录以及对学生住宿情况查询，修改，更新等。可以更快地了解到每个学生的住宿情况。开发一个学生公寓管理系统可以达到事半功倍的效果。随着数据库管理系统的普及以及可视化编程软件的出现，使数据库管理信息系统的开发变得更为简单，因此开发一个学生公寓管理系统是完全可行的。1．3．2 经济上的可行性本单位有自己的微机室可以使用，不必重新购置计算机，不需要花费大量资金，是一个节约人力物力的好办法。1．3．3 组织管理上的可行性本单位的领导干部具有较高的素质，它们对管理现代化有较高的认识水平，并且有各级领导的大力支持和重视。综上所述，建立一个学生公寓管理软件与人工操作相比具有速度更快，操作更准确，更节约开支等有利之处，因此建立一个学生公寓管理软件是必要可行。
1.4数据来源本软件的参考资料主要有两种来源：一是参考本学校公寓的管理结构，管理方法，这些资料是本软件的主要依据，也可以说这些资料来源于普通的生活，比较真实一些。二是来源于网络上的各种同类软件.1.5新系统数据流程图 图1.1数据流程图第二章 数据库设计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备注 备注 
⑸ 资产表主要存放寝室新增资产情况，字段包括：日期、公寓、名称、数量、单价、总价、用途、备注。VB学生公寓管理系统数据结构如下表：字段名 数据类型 数据长度日期 文本 14公寓 文本 20名称 文本 20数量 文本 4单价 文本 10总价 文本 10用途 备注 备注 备注 第三章功能模块设计3.1新系统功能结构图及运行图如下：1、系统功能结构图： 图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记录删除运行图VB学生公寓管理系统程序设计主程序流程图4.1 登录界面此界面是由Photoshop制作而成。在做这个登录面的时候想了很多，最后选择了这种，感觉它看起来干净，整齐。又不失其庄雅。加上本单位最有特色的建筑，会让人一目了然。
4.1.1 登录图片显示 图4.1登录界面4.1.2 界面制作与实现  (1) 浮动按钮的实现    确定和取消两个按钮在鼠标没有放上去之前看上去只是一个普通的平面字效果，但是当你把鼠标放在这几个字上面后，它会显示凸出的效果，按下后呈现凹陷的效果。总体实现立体的感觉。原理主要是在鼠标mousemove事件与线的颜色变化组合来实现。主要代码如下：    在窗体中的鼠标移动过程中，以及在窗体初始化的时候，要把添加的线的.Visible 属性设置为 False，只有在鼠标按下的时候在改变其颜色即可。    鼠标按下的时候设置线条的颜色如下：Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)Line1.BorderColor = &H808080Line2.BorderColor = &H808080Line3.BorderColor = &HE0E0E0Line4.BorderColor = &HE0E0E0End Sub    鼠标移动到标签的时候设置线条的颜色如下：Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)Line1.BorderColor = &HE0E0E0Line2.BorderColor = &HE0E0E0Line3.BorderColor = &H808080Line4.BorderColor = &H808080Line1.Visible = TrueLine2.Visible = TrueLine3.Visible = TrueLine4.Visible = TrueEnd Sub(2) 用户类型判断    在数据库中建了一人yonghu表。在添加管理人员时有两种默认级别。管理员、普通用户。管理员拥有对数据库操作的一切权限。普通用户只有普通的查看，数据转换等。没有删除等操作功能。前用户成功登录后，会在主窗体的状态栏中显示出当前用户及其用户类型。主要代码如下：设置当前控件连接的数据库Dim provider As StringDim datasource As Stringprovider = "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.MoveFirstEnd With对用户进行判断If Text1.Text = "" ThenMsgBox "请输入用户名!", 48, "提示"Exit SubEnd IfAdodc1.Recordset.Find "用户='" & Text1.Text & "'"If Adodc1.Recordset.EOF = False And Text2.Text = Trim(Adodc1.Recordset.Fields("pass")) Thenmain.Text1.Text = Adodc1.Recordset.Fields("级别")main.Text2.Text = Adodc1.Recordset.Fields("用户")main.ShowUnload MeElseText1.Text = ""Text2.Text = ""MsgBox "登录不成功,请重新登录!", 48, "提示"End If4.2  程序主界面程序主界面为本软件的显示的核心部分。一切主要操作及显示都通过这里完成。整个界面主要由五部分组成。菜单部分、工具栏、左侧操作栏、右侧显示栏以及状态栏。①界面效果图如下： 图4.2程序主界面工具栏主要是由coolbar制作而成。由它制做的工具栏的显示效果会更有立体感一些。这里只列出了几个常用的按钮。其中的添加按钮是用来对公寓住宿人员进行添加，修改也是对所住宿人员进行修改，想要进行修改时必须显示所有记录时才可以进行。在这里值得一提的是删除DataGrid的操作，由于不知道它的当前数据源是哪个，所以在删除前要确定它的数据源，也就是它所链接的adodc1的数据源，或者是其它ado控件对它的数据源进行重新绑定后的数据库表，也有可能是经过一个查询后得到的记录。②它的实现方法如下所示：Dim o As AdodcSet o = DataGrid1.datasource    o.Recordset.Delete    o.Recordset.UpdateSelect Case Button.IndexCase 1sel.Show 1Case 3add.Show 1Case 5On Error GoTo next2Dim s As AdodcSet s = DataGrid1.datasourceIf s.RecordSource = "users" Thenedit.Show 1End Ifnext2:Case 7On Error Resume NextDim o As AdodcSet o = DataGrid1.datasource    o.Recordset.Delete    o.Recordset.UpdateCase 9back.Show 1Case 11With Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ";" & datasource.CommandType = adCmdTable.RecordSource = "users" '.RefreshEnd WithSet DataGrid1.datasource = Adodc1DataGrid1.RefreshCall dxCase 13学生公寓管理系统Unload MeEnd Select状态栏分四个部分。第一个为固定显示当前所用软件名称及作者。其中第二个和第三部分为动态显示的，它会显示出每次用户登录名称及其管理模式。由上图可以看出，lf为本软件管理员。第四部分为日期与时间的显示。其中第三部分的代码实现如下：main.Text1.Text = Adodc1.Recordset.Fields("级别")main.Text2.Text = Adodc1.Recordset.Fields("用户")StatusBar1.Panels(2).Text = "当前用户：" & Text2.TextStatusBar1.Panels(3).Text = "用户模式：" & Text1.TextStatusBar1.Panels(4).Text = Date & "    " & Time'设置普通用户模式If Text1.Text = "普通用户" Thenyhgl.Visible = Falseg1.Visible = Falsejlsc.Visible = Falsegysz.Visible = FalseToolbar1.Buttons(5).Visible = FalseToolbar1.Buttons(6).Visible = FalseToolbar1.Buttons(7).Visible = FalseToolbar1.Buttons(8).Visible = FalseEnd If
4.3系统设置4.3.1用户管理①界面效果图 图4.3用户管理② 界面制作与实现方法    这个界面总体来说各个控件比较简单，但是作为一个添加删除管理员的操作，它已经连接到了数据库，与数据库的yonghu表相联。各个控件也与数据库中表的字段绑定。在窗体初始化的时候要判断当前数据库表中是否有记录，如果没有记录那么有些按钮将会被设置成为失效状态，否则会出现错误。设置代码如下：Dim provider As StringDim datasource As Stringprovider = "provider=Microsoft.jet.oledb.4.0"datasource = "data source=" & App.Path & "\DB.mdb"With Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ";" & datasource.CommandType = adCmdTable.RecordSource = "yonghu".RefreshEnd WithOption1.Enabled = FalseOption2.Enabled = FalseIf Adodc1.Recordset.RecordCount = 0 ThenCommand2.Enabled = FalseCommand3.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = FalseEnd IfText2.Text = Text3.Text上一条与下一条的功能一目了然，它们可以对当前表进行上一条记录或下一条记录依次查看。当找到记录后，可以对其进行相对的删除、修改等操作。上一条记录与下一条的记录在查看时有一个判断。当表中记录移到最前面（BOF）或最后面（EOF）时，会把上一条或下一条其中的一个按钮的enable属性设置为true。即不可以前查看或向后查看。上一条与下一条主要代码如下：Adodc1.Recordset.MovePrevious '移动记录Command6.Enabled = TrueIf Adodc1.Recordset.BOF Then  Adodc1.Recordset.MoveFirst  Command5.Enabled = FalseEnd IfAdodc1.Recordset.MoveNext  '移动记录Command5.Enabled = TrueIf Adodc1.Recordset.EOF Then   Adodc1.Recordset.MoveLast   Command6.Enabled = FalseEnd If添加用户可以添加使用该管理软件的用户。添加的时候可以选择所添加人物的级别。软件默认为两个级别：管理员、普通用户。管理员拥有对此软件管理操作等一切的权力。普通用户，只有普通的查看、查询、备份、添加等权力。没有对记录删除等权力。在添加用户时你可以选择一个且必须选择一个。然后输入此用户的用户名和密码即可！添加用户主要代码：If Command1.Caption = "添加" ThenCommand2.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = FalseCommand1.Caption = "确定"Command3.Caption = "取消"Adodc1.Recordset.AddNewOption1.Enabled = TrueOption2.Enabled = TrueText1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText2.Text = ""ElseIf Text1.Text = "" ThenMsgBox "用户名不能为空！", 48, "提示"ElseIf Text2.Text = "" ThenMsgBox "密码不能为空！", 48, "提示"ElseIf Text2.Text <> Text3.Text ThenMsgBox "密码两次需一致！", 48, "提示"ElseIf Text4.Text = "" ThenMsgBox "请选择所建用户类型！", 48, "提示"ElseCommand2.Enabled = TrueCommand3.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = TrueCommand3.Caption = "编辑"Command1.Caption = "添加"Adodc1.Recordset.UpdateText1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseOption1.Value = FalseOption2.Value = FalseOption1.Enabled = FalseOption2.Enabled = FalseEnd If删除操作可以把当前记录删除掉。一经删除即不可以在恢复。所以在操作前要想好。删除操作部分代码：If Adodc1.Recordset.RecordCount = 1 ThenCommand2.Enabled = FalseEnd IfIf (MsgBox("你真的想删除当前记录吗？", vbOKCancel, "系统提示")) = vbOK ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveFirstAdodc1.RefreshEnd If编辑操作可以对当前所选择的用户进行编辑，可以修改其用户名与密码。当当前用户感觉自己用户名称或密码有泄露时，可以进行修改。修改记录即更新表中的某一条记录。编辑操作主要代码如下：Command2.Enabled = FalseText1.Enabled = True学生公寓管理系统Text2.Enabled = TrueText3.Enabled = TrueText4.Enabled = TrueOption1.Enabled = TrueOption2.Enabled = TrueCommand1.Caption = "确定"ElseIf Command3.Caption = "取消" ThenCommand3.Caption = "编辑"Command1.Caption = "添加"Command2.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = TrueText2.Text = Text3.TextText1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseOption1.Value = FalseOption2.Value = FalseOption1.Enabled = FalseOption2.Enabled = FalseEnd If4.4公寓管理4.4.1学生请假   学生请假与违规在一个公寓管理中是最常见的问题了，所以在此软件中加上了这两项功能。用它们可以随时记录请假记录。①学生请假记录图片显示 图4.9学生请假效果图② 界面制作与实现    主要代码如下：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 "请输入详细信息！", , "系统提示"4.4.2学生违规①学生违规记录 图片显示
图4.10学生违规效果图代码如下：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".RefreshEnd WithText1.Text = DateText1.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 "请输入详细信息！", , "系统提示"4.5卫生检查4.5.1 公寓卫生添加效果图 图4.11公寓卫生添加效果图
公寓选择栏中代码的实现：Combo3.ClearDim I As IntegerI = 1If Adodc1.Recordset.RecordCount <> 0 ThenDo While I < Adodc1.Recordset.RecordCount    Combo3.AddItem (Adodc1.Recordset.Fields("公寓名称"))    Adodc1.Recordset.MoveNext    I = I + 1LoopEnd If卫生选择栏中的代码实现基本同上，它也是一个表中的字段值！Dim J As IntegerJ = 1If Adodc4.Recordset.RecordCount <> 0 ThenDo While J < Adodc4.Recordset.RecordCount    Combo2.AddItem (Adodc4.Recordset.Fields("等级"))    Adodc4.Recordset.MoveNext    J = J + 1LoopEnd IfCombo2.Text = "优秀"不合标准的卫生记录填写情况如下：Combo4.AddItem ("门窗不干净")Combo4.AddItem ("地面不干净")Combo4.AddItem ("阳台不干净")Combo4.AddItem ("床铺不整齐")Combo4.AddItem ("不叠被")Combo4.AddItem ("桌面不整齐")Combo4.AddItem ("书柜摆放不整齐")4.6 公寓资产    公寓资产可以及时对公寓里进出财务进行统计，以免遗忘，造成不必要的损失或不必要的麻烦，它的实现方法基本同上面的卫生记录的添加，相对比来说比上面的简单一些。不足的是目前只做出了入库管理，对于出库记录还没有实现。4.6.1公寓资产添加设置效果图学生公寓管理系统图4.12公寓资产添加效果图4. 6. 2 界面制作与实现方法代码如下：If Text5.Text = “” Or Text2.Text = “” Or Text3.Text = “” Then MsgBox “请输入详细信息！”, , “提示”ElseWith 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.UpdateEnd WithSet main.DataGrid1.datasource = Adodc1main.DataGrid1.RefreshText2.Text = “”Text3.Text = “”Text4.Text = “”Text5.Text = “”Text6.Text = “”Text7.Text = “”End If4.7记录查看4.7.1 卫生查看①界面效果图 图4.13卫生查看效果图②界面制作与实现方法这是一个比较简单的窗体操作。看起来精简、小巧。它主要的功能是对已经录入的卫生记录进行符合条件的查询。在进行查询前，要对所操作的表进行绑定，代码如下：Dim s As Stringprovider = "provider=Microsoft.jet.oledb.4.0"datasource = "data source=" & App.Path & "\DB.mdb"With Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ";" & datasource.CommandType = adCmdTable.RecordSource = "weigui".RefreshEnd With日期后面的下拉列表框中可以显示出所有已经录入记录的日期，它是通过对当前表进行分类查询后得到的结果，然后将其添加在combo中，实现代码如下：s = "select distinct 日期 from weisheng"With Adodc2.Mode = adModeReadWrite.ConnectionString = provider & ";" & datasource.CommandType = adCmdText.RecordSource = s.RefreshEnd With
For I = 1 To Adodc2.Recordset.RecordCountCombo1.AddItem (Adodc2.Recordset.Fields("日期"))Adodc2.Recordset.MoveNextNext查看全部，即把当前表中的记录全部赋给当前用来显示的表格，按日期查看，则是在表中先进行查询，然后对结果进行重绑定，在赋值。它们的判断主要是通过单选框的选取来完成的，实现方法如下：s = Combo1.TextIf Option1.Value = True ThenSet main.DataGrid1.datasource = Adodc1main.DataGrid1.RefreshElseIf Option2.Value = True Thensql = "select * from weisheng where 日期='" & Trim(s) & "'"With Adodc3.Mode = adModeReadWrite.ConnectionString = provider & ";" & datasource.CommandType = adCmdText.RecordSource = sql.RefreshEnd WithSet main.DataGrid1.datasource = Adodc3main.DataGrid1.RefreshEnd IfUnload MeVB学生公寓管理系统系统测试编写出的各功能模块需要进行测试，对于模块化应用程序，软件开发的最后一部分便是不断的测试程序最终编译成可执行的.exe文件，该阶段主要对系统的正确性及完整性等方面进行测试。主要进行：功能确认测试、运行测试、健壮性测试、安全性测试以及查错方面的测试等，系统测试的测试人员由测试组成员（或质量保证人员）或测试组成员与用户共同测试，在整个系统开发完成，即将交付用户使用前进行。在这一阶段，对整个系统进行测试，系统测试结束后我们应该打软件打包，使其脱离VB的环境下也能正常运行。打包应将所有程序需要的文件加载进去，如数据库（DB.MDB），每日一记和帮助的文件都要进行加载。在调试程序过程中，由于某些内在的错误影响程序的运行，在采用上述调试方法对程序进行调试后，程序运行情况良好，达到了预期的设计目标，基本上满足了用户的需要。 总结到目前为止，学生公寓管理软件基本开发完毕，软件界面美观，运行时间短，执行功能强，其功能基本符合用户需求。能够完成对学生公寓中学生基本资料的存储和查询，并提供数据转换、数据备份等系统维护功能，可以使用查找、修改、添加和删除对学生公寓管理软件的操作等。由于本人知识有限，又是刚初学软件，时间比较仓促，又缺乏经验，必定有不足和不周之处，希望各位老师给予指导，本人将继续完善修改，使此系统能更好地发挥性能。参考文献[1] 孙淑扬、邱晓威主编《档案计算机管理教程》中国人民大学出版社，1999年[2] 丁海斌《电子文件与电子档案管理》辽宁大学出版社，2000年版[3] 刘家真编著《电子文件管理导论》武汉大学出版社，1999年版。[4] 崔海源、徐卫军《Visual Basic.Net程序设计教程》，机械工业出版社 2006[5] 韩万江、姜立新《软件项目管理案例教程》，机械工业出版社 2006[6] 甘仞初《信息系统分析与设计》，高等教育出版社 2005[7] 黄梯云、李一军《管理信息系统》 高等教育出版社 三版[8] 陈晓江《信息系统教程》 清华大学出版社 2003