您的当前位置：首页 12毕业设计_基于Visual_Basic平台的学生宿舍管理系统的开发与设计

12毕业设计_基于Visual_Basic平台的学生宿舍管理系统的开发与设计

来源：九壹网

重庆航天职业技术学院

毕业设计（论文）

毕业设计题目：基于Visual Basic平台的学生

宿舍管理系统的开发与设计

系别：计算机工程系专业班级： 12级计算机应用技术3班学生姓名：龚胜英指导教师：钟文龙

2012 年 9 月 10 日

重庆航天职业技术学院毕业设计（论文）任务书

班级 07051013 姓名龚胜英指导教师钟文龙设计（论文）题目学生宿舍管理系统 1、研究现状：为了方便学校对学生宿舍的管理。针对设计（论当前学生量的与日俱增，对学生宿舍管理的记录，因此需文）工作开发一个学生成绩管理系统； 2、拟解决的问题：对学生的信息以及寝室的进行添研究现状、加、删除、修改等操作和可对学生之间进行寻找同学；拟解决的3、技术与方法：采用Visual Basic + Microsoft 问题、方法 Access MDB的方式进行开发。按照开发软件的基本步骤完成： 1、可对学生信息、寝室以及权限进行管理；设计（论2、用户根据不同的权限可对学生信息及寝室信息进文）工作行添加、删除、修改等操作；主要内容 3、可对学生的信息及寝室进行查询； 4、具有良好的帮助环境。设计（论文）工作基本要求 2

设计（论文）工作进度安排 1. 2010年3月3日~2010年3月31日完成毕业设计C级； 2. 2010年4月1日~2009年4月30日完成毕业设计B或A级；（由指导老师指定50%的同学参加） 3. 2010年5月4日~2009年5月31日完成毕业答辩。主要参考资料及文献 1. 《Visual Basic 6.0程序设计（第二版）》谭浩强清华大学出版社开始执行任务书日期 2010年 3 月毕业论文完成日期

指导教师（签名）指导教师（签名）钟文龙钟文龙 2010年 5 月摘要

学生宿舍管理系统主要功能包括两大部分：管理员部分和一

般用户部分。

其中管理员可对一般用户的基本信息进行管理（包括个人信息管理，学生寝室管理，更新通知等），个人信息管理又包括个人信息的输入、输出、添加、修改、删除。寝室管理包括寝室人员，室长，卫生检查结果，公务损坏后的赔偿，水电费通知等。更新通知即宿管员及时将通知更新，供学生查看。

一般用户则可以通过相应的用户名和密码查询自己的个人信息，查看通知，查看水电费，卫生检查结果，公务赔偿以及寻找同学（即通过学生姓名可查找到该生寝室号，寝室电话等）。

本系统采用Visual Basic以及内部数据库Microsoft Access MDB进行开发。

关键字：管理员，一般用户，Visual Basic，Microsoft Access MDB

前言„„„„„„„„„„„„„„„„„„„„„„„„6 第1章系统分析

1.1 系统运行环境及工具„„„„„„„„„„„„„„„7 1.2系统开发条件„„„„„„„„„„„„„„„„„„ 8 第2章学生宿舍管理系统的开发与设计 2.1 管理员窗口的设计

2.1.1 登陆„„„„„„„„„„„„„„„„„„„„10 2.1.2 过渡„„„„„„„„„„„„„„„„„„„„13 2.1.3 管理员主窗口„„„„„„„„„„„„„„„„13 2.1.4 更新通知„„„„„„„„„„„„„„„„„„16 2.1.5 人员管理„„„„„„„„„„„„„„„„„„17 2.1.6 水电费管理„„„„„„„„„„„„„„„„„18 2.1.7 维修情况„„„„„„„„„„„„„„„„„„20 2.1.8 卫生检查„„„„„„„„„„„„„„„„„„22 2.1.9 来访人员„„„„„„„„„„„„„„„„„„23 2.1.10 学生信息„„„„„„„„„„„„„„„„„„24 2.2 普通用户界面的设计

2.2.1 普通用户主窗口„„„„„„„„„„„„„„„„25 2.2.2 最新通知„„„„„„„„„„„„„„„„„„„27 2.2.3历史通知„„„„„„„„„„„„„„„„„„„28 2.2.4水电费„„„„„„„„„„„„„„„„„„„„28 2.2.5公务赔偿„„„„„„„„„„„„„„„„„„„30 2.2.6密码修改„„„„„„„„„„„„„„„„„„„32 2.2.7个人信息„„„„„„„„„„„„„„„„„„„33 2.2.8寻找同学„„„„„„„„„„„„„„„„„„„34 总结„„„„„„„„„„„„„„„„„„„„„„„„37 致谢„„„„„„„„„„„„„„„„„„„„„„„„38 参考文献„„„„„„„„„„„„„„„„„„„„„„39

前言

Visual Basic 6.0是一种面向对象的高级语言开发工具。自从面世以来，它简单易学、功能强大的特点一直受到广大程序员和编程爱好者的青睐。使用Visual Basic 6.0可以直接设计功能的强大的可视化界面，是程序员编写应用程序变得很简单。另外，使用Visual Basic 6.0 不但可以开发数据库应用程序，还可以开发文件、图形图像、多媒体，系统应用程序和网络等相关的应用程序。因此，Visual Basic 6.0 是当今使用最广泛的高级语言之一。

随着学生量的与日俱增，学生宿舍的管理也变的越来越复杂，因此，针对学生宿舍的管理，开发了一个学生宿舍管理系统。可对大量宿舍进行有效的管理。其中包括学生个人信息管理、学生寝室管理、学生寻找同学。

学生寝室管理中包括，宿管员发出新的通知，卫生检查结果，人员管理，水电费管理，维修情况，来访人员，学生信息管理等。学生可以查询自己的个人信息，寻找同学，查看通知，水电费查询，公务赔偿查询以及密码修改等。

第1章系统简介

1.1 系统运行环境及开发工具

Visual Basic（简称VB）是一种新型的现代语言。与传统的语言相比，它在许多方面又重要的改革和突破。 1、

Visual Basic的特点

（1）、提供可视化的编程工具

Visual Basic为程序设计人员提供图形对象（窗体、空间、菜单等），以进行应用程序的界面设计。Visual Basic 提供一个“工具箱”，向内放油若干个“空间”。程序设计者可以自由地从工具箱中取出所需空间，放到窗体中的指定位置，而不必为此编写程序。也就是说，屏幕上的用户界面是用Visual Basic提供的可视化设计工具直接“画”出来的，而不是用程序“写”出来的。其实，这些编程工作只是不由用户来做，而由Visual Basic系统完成而已。（2）、采取“事件驱动”的方式编程

在设计好用户界面后，才开始编写程序。Visual Basic

中程序执行的基本方法是由“事件”来驱动子程序（在Visual Basic中将“子程序”称为“过程”）的运行。

Visual Basic是面向对象的、结构化的计算机语言。Visual Basic的界面由对象（窗体和控件）组成，每个对象有若干个苏醒，程序人员的任务是设计这些对象的事件过程。Visual Basic的语法与QBASIC和QBASIC的人，无须任何训练便可很熟练的进行Visual Basic编写代码的工作。 2、

程序设计的有关概念

计算机程序设计语言是人与计算机进行信息交换的工具。随着计算机技术的发展，计算机程序设计语言也在不断地发展，出现了功能、特点个不相同的多种程序设计语言。程序设计方法和技术也在不断发展。（1）、结构化程序设计

结构化程序设计强盗程序设计的风格和程序设计的规范化，提倡清晰的结构。结构或程序设计方法的基本思路是，把一个复杂问题的求解过程分为若干个阶段进行，每个阶段处理的问题都控制在人们容易理解和处理的范围内。具体地说，采取如下方法来保证得到结构化算法ａ自顶向下ｂ逐步细化ｃ模块化

这是结构化程序设计的3个要素，其中最核心的是“逐步细

化”。这种方法是“方”只是中重要的一部分。这种从抽象到具体、从总体到细目的分解过程，以及最后实现这些细化的过程都具有严密的逻辑性。逐步细化方法是由“程序设计目标”到写出源程序的正确途径。（2）、面向对象程序设计

尽管结构化程序设计方法已得到广泛的使用，但是仍有一些问题没有得到很好的解决。其中主要的问题是，这种设计方法重点在与用结构化的方法描述系统的操作过程。结构化程序设计语言又称为“面向过程的语言”将被处理的数据与相关操作分离，因此程序模块和数据机构的关系是松散的。面向对象的程序设计方法正式针对这个问题提出的一种新的程序设计技术。

面向对象的程序设计最基本的概念是将数据与处理数据的函数合并成一个单元，每个单元称为一个对象。使用面向对象的设计原则编写程序时，重要的是如何将一个复杂的问题分解为一组对象。这种设计方法符合人们的思维习惯，便于分析复杂的问题，有利于软件的维护。

使用面向对象的程序设计，并不是放弃结构化程序设计方法。在对象的实现中，仍需要使用结构化程序设计技术。 Visual Basic是在BASIC和Quick Basic语言的基础上发展起来的，具有结构化的高级语言的语句结构，同时支持面向对象的程序设计技术，具有强大的功能。

1.2 系统开发条件

信息资源已成为各个部门的重要财富和资源，建立一个满足各级部门信息处理需要的信息系统，也一个企业或组织生存越来越重要的信息资源。长期以来，使用传统人工的方法管理高校公寓，这种管理方式存在着许多缺点，如：效率低。而且时间一长，将产生大量的文件和数据，这对于查找、更新、维护都带来了不少的困难。

随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥越来越重要的作用。学生公寓管理软件，是以高校的管理方式为实例而设计的一种实用型管理软件。

本系统最大的特点是通用性、简单操作性。随着学校寄宿人员的增多，公寓管理人员的负担越来越重，为了让所有公寓管理人员能从繁重的工作中解脱出来，实现无纸化办公，使工作更有条理、更方便、更有效率，而开发出这套公寓管理软件。

第2章学生宿舍管理系统的开发与设计

我们正走进一个信息时代，信息技术将从根本上改变人类社会的生产方式和生活方式，各行各业的业务管理现在都已经相继使用计算机来处理，可以说用计算机进行信息管理是一个总趋势。学生公寓管理软件主要是对公寓、寝室的配置、住宿人员登记、卫生检查、公寓资产、学生违纪、值班老师记录以及对学生

住宿情况查询，修改，更新等。可以更快地了解到每个学生的住宿情况。开发一个学生公寓管理系统可以达到事半功倍的效果。随着数据库管理系统的普及以及可视化编程软件的出现，使数据库管理信息系统的开发变得更为简单，因此开发一个学生公寓管理系统是完全可行的。

系统流程图：

管理员

通知：更新通知

人员管理

水电费管理

寝室管理维修情况

卫生检查

来访人员

学生宿舍学生管理：学生信息管理系统最新通知

通知

历史通知水电费普通用户缴费管理

公务赔偿密码修改信息查询个人信息寻找同学

2.1管理员窗口的设计

2.1.1登陆窗口的设计

在这个界面中，主要处理的是判断当前用户输入的信息是否正确。如果正确，那么它属于哪种类型用户。因为此管理软件在登录后不同类型的用户显示的窗体与实现的功能都不是一样的，它们会有所差别！ 1、登陆窗口截图

登陆窗口登陆后，分为两类：一、管理员窗口；二、普通用户窗口；

登陆窗口截图：

图2.1.1.1

“学号”、“密码”分别为标签框Label1和Label2；“确定”、“取消”、“退出”为命令按钮command1，command2，command3；“20071111”及“********”为文本框text1，text2；将text2的“passwordchar”属性设置为“*”即显示的密码为“*”表示。登陆窗口添加data1，连接数据库“loading”。 2、

登陆窗口代码

（1）、“确定”按钮代码 Private Sub Command1_Click()

If Text1.Text = \"\" Or Text2.Text = \"\" Then MsgBox \"请输入学号或密码\" loading.Show Else

Do While Text1.Text <> Trim(Data1.Recordset.Fields(\"学号\"))

Data1.Recordset.MoveNext Loop

If Trim(Text1.Text) = Trim(Data1.Recordset.Fields(\"学号\")) And Trim(Text2.Text) = Trim(Data1.Recordset.Fields(\"密码\")) Then

If Trim(Data1.Recordset.Fields(\"权限\")) = Trim(1) Then tadm.Show

ElseIf Trim(Data1.Recordset.Fields(\"权限\")) = Trim(2) Then stu.Show End If ElseIf

Trim(Text1.Text)

Trim(Data1.Recordset.Fields(\"学号\")) Or Trim(Text2.Text) <> Trim(Data1.Recordset.Fields(\"密码\")) And Text1.Text <> \"\" And Text2.Text <> \"\" Then

MsgBox \"学号或密码错误，请重试!\登录\" Text1.SetFocus

Data1.Recordset.MoveFirst End If End If

sgerenxinxi.Label1.Caption=Trim(Data1.Recordset.Fields(\"学号\"))

sgerenxinxi.Label2.Caption=Trim(Data1.Recordset.Fields(\"姓名\"))

sgerenxinxi.Label3.Caption=Trim(Data1.Recordset.Fields(\"寝室号\"))

sgerenxinxi.Label4.Caption=Trim(Data1.Recordset.Fields(\"班级\"))

sgerenxinxi.Label5.Caption=Trim(Data1.Recordset.Fields(\"家庭住址\"))

sgerenxinxi.Label6.Caption=Trim(Data1.Recordset.Fields(\"个人电话\"))

sgerenxinxi.Label7.Caption=Trim(Data1.Recordset.Fields(\"寝室电话\")) End Sub

(2)、“取消”按钮代码

Private Sub Command2_Click() Text1.Text = \"\" Text2.Text = \"\" （3）、“退出”按钮代码

Private Sub Command3_Click() End End Sub

(4)、窗体的加载事件代码

Private Sub Form_Load() Data1.Visible = False End Sub

2.1.2管理员过渡窗口

提示用户当前日期，是否真的进入系统。“确定”即进入系统，“取消”即退出当前系统。 1、

过渡窗口截图

图2.1.2.1

“你好！欢迎您在”、“2010-02-28”、“登录学生宿舍管理系统”分别为Label1、Label2、Label3；“确定”、“取消”分别为command1、command2。如上图2、

显示的是每次登陆系统的当前日期。

过渡窗口代码

（1）、“确定”按钮代码 Private Sub Command1_Click() tadmguanli.Show End Sub

（2）、“取消”按钮代码 Private Sub Command2_Click() End End Sub

（3）、窗体的加载代码 Private Sub Form_Load() d$ = Date$

Label3.Caption = d$

2.1.3管理员主窗口

程序主界面为本软件的显示的核心部分。一切主要操作及显示都通过这里完成。 1、

管理员主窗口截图

图2.1.3.1

“通知”包括“更新通知”（mnugengxin）；“寝室管理”包括“人员管理”（mnurenyuan）、“水电费管理”（mnushuidian）、“卫生检查”（mnuweisheng）、“维修情况”(mnuweixiu)、“来访人员”

(mnulaifang)；“学生管理”包括“学生信息”(mnuxueshengxinxi)；“返回”包括“退出”(mnutuichu)、“返回”(mnufanhui)。

最后，为了使窗体看上去不单调，选择了设置窗体的picture属性，加载了一幅图片。

“更新通知”即管理员在学校发出通知的时候可以即使登陆系统，更改当前通知；“人员管理”即管理宿舍的寝室以及内部人员的详细管理；“水电费管理”即在学校财务部将各个寝室的水电费通知到各个寝室，其中包括水电费的度数，单价，总价等；“卫生检查”即学校定期检查卫生或系部定期检查卫生，并对各个寝室打出相应的分数；“维修情况”即宿舍设备非人为损害并且已经维修好的，做出相应的记录；“来访人员”即校外人员因事要进入宿舍登记或学生的到访人员登记记录；“学生信息”即对学生的详细信息作记录；“返回”即回到登陆界面；“退出”即管理员退出学生宿舍管理系统。 1、

管理员窗体代码

（1）、“更新通知”代码 Private Sub mnuzuixin_Click() tgengxintongzhi.Show tgengxintongzhi.Text1.Text slishitongzhi.Label1.Caption tgengxintongzhi.Text1.Text = \"\"

End Sub

（2）、“人员管理”代码

Private Sub mnurenyuan_Click() trenyuanguanli.Show End Sub

（3）、“水电费管理”代码 Private Sub mnushuidian_Click() tshuidianfeiguanli.Show End Sub

（4）、“卫生检查”代码

Private Sub mnuweisheng_Click() tweishengjiancha.Show End Sub

（5）、“维修情况”代码 Private Sub mnuweixiu_Click() tweixiuqingkuang.Show End Sub

（6）、“来访人员”代码

Private Sub mnulaifang_Click() tlaifangrenyuan.Show End Sub

（7）、“学生信息”代码

Private Sub mnuxueshengxinxi_Click() txueshengxinxi.Show End Sub

（8）、“返回”代码

Private Sub mnufanhui_Click() loading.Show End Sub

（9）、“退出”代码

Private Sub mnutuichu_Click() End End Sub

以上代码均是根据不同的菜单进入不同的界面，进入界面后再根据情况做出相应的操作即可。

2.1.4更新通知

管理员在学校发出通知的时候可以及时登陆系统，更改当前通知，以便及时通知到各个寝室。 1、更新通知窗口截图

图2.1.4.1

“确定”、“更改”、“返回”、“退出”、“首页”分别为命令按钮command1，command3，command2，command4，command5，以及一个text文本框。并设置其scrollbar属性为2（vertical）只加垂直滚动条。

单击“确定”按钮后，通知生效，此时不同用户登陆的窗口“查看通知”及时显示更新后的内容。点击“更改”后text文本框自动清空，此时管理员可以在文本框中输入通知内容。点击“返回”按钮后，则返回到管理员中窗口，可以进入其他操作。点击“退出”按钮后则退出该学生宿舍管理系统。“首页”则是返回到登陆界面。 2、更新通知窗口代码（1）、“确定”按钮的代码 Private Sub Command1_Click() Text1.Enabled = False

szuixintongzhi.Label1.Caption=tgengxintongzhi.Text1.Text

（2）、“更改“按钮的代码 Private Sub Command3_Click() Text1.Enabled = True Text1.SetFocus End Sub

（3）、“返回”按钮的代码 Private Sub Command2_Click() tadmguanli.Show End Sub

（4）、“退出”按钮的代码 Private Sub Command4_Click() End End Sub

（5）、“首页”按钮的代码 Private Sub Command5_Click() loading.Show End Sub

2.1.5人员管理

该功能是对各个的寝室进行管理，包括寝室号，室长，寝室人员等。可对寝室及寝室人员进行添加，删除，修改等操作。 1、管理窗口截图

图2.1.5.1

“寝室号”、“室长”、“寝室成员”分别为标签框Label1，Label2，Label3；添加3个文本框，分别为text1，text2，text3；“添加”、“删除”、“修改”、“刷新”、“返回”分别为command1，command2，command3，command4，command5.添加一个data1，连接数据库“寝室人员”。

该功能是设置寝室号，授权室长以及寝室成员等，同时也可对寝室添加，寝室人员添加，添加后授权一个室长。如果该寝室人员已经撤销则可以删除该寝室的所有信息。修改寝室寝室，包括室长，寝室人员。刷新功能是修改寝室信息后可以对寝室进行刷新操作。返回则是返回到管理员主窗口界面。 2、管理窗口

（1）、“添加”按钮的代码 Private Sub Command1_Click()

If Text1.Text = \"\" Or Text2.Text = \"\" Or Text3.Text = \"\" Then

MsgBox \"请输入完整信息\" Else

Data1.Recordset.AddNew End If End Sub

（2）、“删除”按钮的代码 Private Sub Command2_Click() Data1.Recordset.Delete End Sub

（3）、“修改”按钮的代码 Private Sub Command5_Click() Data1.Recordset.Edit Text1.SetFocus End Sub

（4）、“刷新”按钮的代码 Private Sub Command4_Click() Data1.Refresh End Su

（5）、“返回”按钮的代码 Private Sub Command3_Click() tadmguanli.Show End Sub

2.1.6水电费

水电费费管理窗口实现的功能是管理员在每次水电费通知出来后，准确地讲水单价，电单价，水量，电量，总的水费，总的电费，以及总费用通知各个寝室。 1、

水电费管理窗口截图

图2.1.6.1

“水／吨”，“电／度”，“水数量”，“水费”，“电数量”，“电费”，“总费”，“寝室号”均为标签框Label１～Label８；添加８个文本框分别text1~text8；“添加”，“删除”，“修改”，“确定”，“返回”，“退出”分别为command1~command6；添加data1和data2分别连接水电单价及水电费，连接数据库“水电费”及“水电单价”。

“添加”即添加新的记录，以往的历史记录则记录入数据库并存储。删除则可以删除以往想要删除的记录，修改则可以修改所有存在数据库中的所以数据，当单击确定按钮后，当前输入的所有信息则进入数据库系统，一杯存储。返回则是返回到管理员

主窗口，此时可以访问系统的其他功能，退出则是退出整个学生宿舍管理系统。 2、

水电费管理窗口代码

（1）、“添加”按钮代码 Private Sub Command1_Click() Data1.Recordset.AddNew End Sub

（2）、“删除”按钮代码 Private Sub Command2_Click() Data1.Recordset.Delete End Sub

（3）、“修改”按钮代码 Private Sub Command3_Click() Text1.SetFocus End Sub

（4）、“确定”按钮代码 Private Sub Command4_Click() tadmguanli.Show End Sub

（5）、“返回”按钮代码 Private Sub Command6_Click() tadmguanli.Show

End Sub

（6）、“退出”按钮代码 Private Sub Command5_Click() End End Sub

2.1.7维修情况

此功能则是在寝室设备损坏后，请工作人员维修好后的记录，如果是人为损害的情况则需要记录赔偿情况，如果是非人为的情况则不需记录入数据库。同时也可以查询所有寝室的维修情况。 1、

维修情况窗口截图

图2.1.7.1

“请输入寝室号查找”，“寝室号”、“维修情况”、“赔偿情况”、“时间”为标签框Label1~Label5；添加5个文本框text1~text5与之对应；“添加”、“更改”、“更新”、“返回”、“查找”分别为command1~command5.添加data1，连接数据库“维修情况”。

“添加”按钮则是在每次新的维修情况出现后添加新的记录入数据库，更改则是在记录出错的情况下可以进行信息的修改，更新则是在每次新的记录后或是修改记录后可以点击更新按钮则重新。 2、

维修情况窗口的代码

（1）、“添加”按钮的代码 Private Sub Command1_Click() Data1.Recordset.AddNew End Sub

（2）、“更改”按钮的代码 Private Sub Command2_Click() Text1.SetFocus End Sub

（3）、“更新”按钮的代码 Private Sub Command3_Click() Data1.Refresh End Sub

（4）、“返回”按钮的代码 Private Sub Command4_Click() tadmguanli.Show End Sub

（5）、“查找”按钮的代码

Private Sub Command5_Click() If

Text5.Text

\"\"

Text5.Text

Trim(Data1.Recordset.Fields(\"寝室号\")) Then MsgBox \"没有该寝室\" Else

Do While Text5.Text <> Trim(Data1.Recordset.Fields(\"寝室号\"))

Data1.Recordset.MoveNext Loop

If Trim(Text5.Text) = Trim(Data1.Recordset.Fields(\"寝室号\")) Then

Text1.Text = Data1.Recordset.Fields(\"寝室号\") Text2.Text = Data1.Recordset.Fields(\"维修情况\") Text3.Text = Data1.Recordset.Fields(\"赔偿情况\") Text4.Text = Data1.Recordset.Fields(\"时间\") End If End If End Sub 2.1.8卫生检查

该功能是在每次学校或是系部进行卫生检查后就进行评分，然后记录分数，并保存入数据库。在一学年后可调出记录进行总结，评优秀寝室等。

一、卫生检查窗口截图

图2.1.8.1

“寝室号”、“分数”、“时间”为标签框Label1~Label3；对应添加3个文本框text1~text3;“添加”、“修改”、“返回”、“退出”分别为command1~command4；添加data1，连接数据库“卫生检查”。

单击“添加”按钮则添加记录入数据库，以便以后随时查询，“修改”则是修改当前已有信息，“返回”则是返回管理员主窗口界面，“退出”则是退出整个学生宿舍管理系统。 2、卫生检查窗口的代码（1）、“添加”按钮代码 Private Sub Command1_Click() Data1.Recordset.AddNew End Sub

（2）、“修改”按钮代码 Private Sub Command2_Click() Text1.SetFocus

End Sub

（3）、“返回”按钮代码 Private Sub Command4_Click() tadmguanli.Show End Sub

（4）、“退出”按钮代码 Private Sub Command3_Click() End End Sub 2.1.9来访人员

来访人员登记则是在宿舍以外的人进入宿舍进行登记，然后记录入数据库。 1、

来访人员窗口截图

图2.1.9.1

“寝室号”、“访问者姓名”、“学生姓名”、“时间”、“事件”分别是由标签框Label1~Label5组成；对应添加5个文本框text1~text2；“添加”、“确定”、“返回”为3个命令按钮

command1~command3；添加data1，连接数据库“来访人员”。单击“添加”按钮是可以添加新的来访人员记录，并存入数据库。“确定”按钮则是在输入新的记录后确定保存入数据库。“返回”则是返回到管理员主窗口界面，课进行其他操作。 2、来访人员窗口代码（1）、“添加”窗口代码 Private Sub Command1_Click() Data1.Recordset.AddNew （2）、“确定”窗口代码 Private Sub Command2_Click() Data1.Refresh End Sub

（3）、“返回”窗口代码 Private Sub Command3_Click() tadmguanli.Show End Sub

2.1.10 学生信息

可以对学生的信息进行管理，包括学好、姓名、班级、寝室号、寝室电话、家庭住址、权限、个人电话等。以及对这些信息的添加、删除、修改等。一、学生信息窗口截图

图2.1.10.1

“学号”、“寝室号”、“姓名”、“寝室电话”、“班级”、“家庭住址”、“权限”、“个人电话”“（权限„为学生）”分别为Label1~Label9；对应有text1~text8；“添加”、“修改”、“删除”、“确定”、“返回”分别为command1~command5；添加data1，连接数据库“loading”。

单击“添加”按钮的时候则可以添加学生信息，修改则是可以对已有的学生的信息进行修改，删除则是在已有的信息上进行删除操作，确定则是确定讲信息存入数据库，返回则是回到管理员主窗口。 3、

学生信息窗口代码

（1）、“添加”按钮的代码 Private Sub Command1_Click()

If Text1.Text = \"\" Or Text2.Text = \"\" Or Text3.Text = \"\" Or Text4.Text = \"\" Or Text5.Text = \"\" Or Text6.Text = \"\" Or Text7.Text = \"\" Or Text8.Text = \"\" Then MsgBox \"请输入完整信息！\"

Else

Data1.Recordset.AddNew End If End Sub

（2）、“修改”按钮的代码 Private Sub Command2_Click() Text1.SetFocus End Sub

（3）、“删除”按钮的代码 Private Sub Command3_Click() Data1.Recordset.Delete End Sub

（4）、“确定”按钮的代码 Private Sub Command5_Click() Data1.Refresh End Sub

（5）、“返回”按钮的代码 Private Sub Command4_Click() tadmguanli.Show End Sub

2.2 普通用户界面的设计

2.2.1普通用户主窗口

该窗口的设计跟管理员过度窗口的设计是一样的，目的是提醒用户当前日期以及用户欢迎词。 1、

学生主窗口截图

图2.2.1.1

“通知”包括“最新通知”和历史通知；“收费管理”包括“水电费”和“公务赔偿”；“查询信息”“密码修改”包括“个人信息”和“寻找同学”；“返回”包括“返回”和“退出”；“欢迎你在”“2010-02-28”“登陆学生宿舍管理系统”分别为Label1~Label3；

作为普通用户，没有对信息的编辑权限，所以没必要设计可以编辑的菜单。 2、

学生主窗口代码

（1）、“最新通知”菜单代码 Private Sub mnuzuixin_Click() szuixintongzhi.Show End Sub

（2）、“历史通知”菜单代码

Private Sub mnulishitongzhi_Click() slishitongzhi.Show End Sub

（3）、“公务赔偿”菜单代码

Private Sub mnugongwupeichang_Click() sgongwupeichang.Show End Sub

（4）、“水电费”菜单代码

Private Sub mnushuidianfei_Click() sshuidianfei.Show End Sub

（5）、“个人信息”菜单代码 Private Sub mnugerenxinxi_Click() sgerenxinxi.Show End Sub

（6）、“寻找同学 ”菜单代码

Private Sub mnuxunzhaotongxue_Click() sxunzhaotongxue.Show End Sub

（7）、“密码修改”菜单代码 Private Sub mnumimaxiugai_Click()

smimaxiugai.Show End Sub

（8）、“返回”菜单代码 Private Sub mnufanhui_Click() loading.Show End Sub

（9）、“退出”菜单代码 Private Sub mnutuichu_Click() End End Sub

（10）、窗体加载代码 Private Sub Form_Load() d$ = Date$

Label2.Caption = d$ End Sub

2.2.2最新通知

该功能是当用户登录到该系统后，在管理员修改通知后，普通用户就可以查看新的通知。 1、