基于VisualBasic平台的学生宿舍管理系统的开发与设计设计

《基于VisualBasic平台的学生宿舍管理系统的开发与设计设计》由会员分享，可在线阅读，更多相关《基于VisualBasic平台的学生宿舍管理系统的开发与设计设计（49页珍藏版）》请在装配图网上搜索。

1、重庆航天职业技术学院毕业设计（论文）毕业设计题目： 基于Visual Basic平台的学生 宿舍管理系统的开发与设计 毕业设计（论文）原创性声明和使用授权说明原创性声明本人郑重承诺：所呈交的毕业设计（论文），是我个人在指导教师的指导下进行的研究工作及取得的成果。尽我所知，除文中特别加以标注和致谢的地方外，不包含其他人或组织已经发表或公布过的研究成果，也不包含我为获得 及其它教育机构的学位或学历而使用过的材料。对本研究提供过帮助和做出过贡献的个人或集体，均已在文中作了明确的说明并表示了谢意。作 者 签 名： 日 期： 指导教师签名： 日期： 使用授权说明本人完全了解 大学关于收集、保存、使用毕业

2、设计（论文）的规定，即：按照学校要求提交毕业设计（论文）的印刷本和电子版本；学校有权保存毕业设计（论文）的印刷本和电子版，并提供目录检索与阅览服务；学校可以采用影印、缩印、数字化或其它复制手段保存论文；在不以赢利为目的前提下，学校可以公布论文的部分或全部内容。作者签名： 日 期： 学位论文原创性声明本人郑重声明：所呈交的论文是本人在导师的指导下独立进行研究所取得的研究成果。除了文中特别加以标注引用的内容外，本论文不包含任何其他个人或集体已经发表或撰写的成果作品。对本文的研究做出重要贡献的个人和集体，均已在文中以明确方式标明。本人完全意识到本声明的法律后果由本人承担。作者签名： 日期： 年 月

3、日学位论文版权使用授权书本学位论文作者完全了解学校有关保留、使用学位论文的规定，同意学校保留并向国家有关部门或机构送交论文的复印件和电子版，允许论文被查阅和借阅。本人授权 大学可以将本学位论文的全部或部分内容编入有关数据库进行检索，可以采用影印、缩印或扫描等复制手段保存和汇编本学位论文。涉密论文按学校规定处理。作者签名：日期： 年 月 日导师签名： 日期： 年 月 日重庆航天职业技术学院毕业设计（论文）任务书班 级07姓 名指导教师设计（论文）题目学生宿舍管理系统设计（论文）工作研究现状、拟解决的问题、方法1、 研究现状：为了方便学校对学生宿舍的管理。针对当前学生量的与日俱增，对学生宿舍管理的

4、记录，因此需开发一个学生成绩管理系统；2、 拟解决的问题： 对学生的信息以及寝室的进行添加、删除、修改等操作和可对学生之间进行寻找同学；3、 技术与方法：采用Visual Basic + Microsoft Access MDB的方式进行开发。设计（论文）工作主要内容按照开发软件的基本步骤完成： 1、 可对学生信息、寝室以及权限进行管理；2、 用户根据不同的权限可对学生信息及寝室信息进行添加、删除、修改等操作；3、 可对学生的信息及寝室进行查询；4、 具有良好的帮助环境。设计（论文）工作基本要求设计（论文）工作进度安排1. 2010年3月3日2010年3月31日完成毕业设计C级；2. 2010

5、年4月1日2009年4月30日完成毕业设计B或A级；（由指导老师指定50%的同学参加）3. 2010年5月4日2009年5月31日完成毕业答辩。主要参考资料及文献1. Visual Basic 6.0程序设计（第二版）谭浩强 清华大学出版社开始执行任务书日期2010年 3 月指导教师（签名）钟文龙毕业论文完成日期2010年 5 月指导教师（签名）钟文龙摘 要 学生宿舍管理系统主要功能包括两大部分：管理员部分和一般用户部分。其中管理员可对一般用户的基本信息进行管理（包括个人信息管理，学生寝室管理，更新通知等），个人信息管理又包括个人信息的输入、输出、添加、修改、删除。寝室管理包括寝室人员，室长，

6、卫生检查结果，公务损坏后的赔偿，水电费通知等。更新通知即宿管员及时将通知更新，供学生查看。一般用户则可以通过相应的用户名和密码查询自己的个人信息，查看通知，查看水电费，卫生检查结果，公务赔偿以及寻找同学（即通过学生姓名可查找到该生寝室号，寝室电话等）。本系统采用Visual Basic以及内部数据库Microsoft Access MDB进行开发。关键字： 管理员，一般用户，Visual Basic，Microsoft Access MDB目 录前言6第1章 系统分析1.1 系统运行环境及工具71.2系统开发条件 8第2章 学生宿舍管理系统的开发与设计2.1 管理员窗口的设计2.1.1 登陆1

7、02.1.2 过渡132.1.3 管理员主窗口132.1.4 更新通知162.1.5 人员管理172.1.6 水电费管理182.1.7 维修情况202.1.8 卫生检查222.1.9 来访人员232.1.10 学生信息242.2 普通用户界面的设计2.2.1 普通用户主窗口252.2.2 最新通知272.2.3历史通知282.2.4水电费282.2.5公务赔偿302.2.6密码修改322.2.7个人信息332.2.8寻找同学34总结37致谢38参考文献39前 言Visual Basic 6.0是一种面向对象的高级语言开发工具。自从面世以来，它简单易学、功能强大的特点一直受到广大程序员和编程爱好

8、者的青睐。使用Visual Basic 6.0可以直接设计功能的强大的可视化界面，是程序员编写应用程序变得很简单。另外，使用Visual Basic 6.0 不但可以开发数据库应用程序，还可以开发文件、图形图像、多媒体，系统应用程序和网络等相关的应用程序。因此，Visual Basic 6.0 是当今使用最广泛的高级语言之一。随着学生量的与日俱增，学生宿舍的管理也变的越来越复杂，因此，针对学生宿舍的管理，开发了一个学生宿舍管理系统。可对大量宿舍进行有效的管理。其中包括学生个人信息管理、学生寝室管理、学生寻找同学。学生寝室管理中包括，宿管员发出新的通知，卫生检查结果，人员管理，水电费管理，维修情

9、况，来访人员，学生信息管理等。学生可以查询自己的个人信息，寻找同学，查看通知，水电费查询，公务赔偿查询以及密码修改等。第1章 系统简介1.1 系统运行环境及开发工具Visual Basic（简称VB）是一种新型的现代语言。与传统的语言相比，它在许多方面又重要的改革和突破。1、 Visual Basic的特点（1）、提供可视化的编程工具Visual Basic为程序设计人员提供图形对象（窗体、空间、菜单等），以进行应用程序的界面设计。Visual Basic 提供一个“工具箱”，向内放油若干个“空间”。程序设计者可以自由地从工具箱中取出所需空间，放到窗体中的指定位置，而不必为此编写程序。也就是说

10、，屏幕上的用户界面是用Visual Basic提供的可视化设计工具直接“画”出来的，而不是用程序“写”出来的。其实，这些编程工作只是不由用户来做，而由Visual Basic系统完成而已。（2）、采取“事件驱动”的方式编程 在设计好用户界面后，才开始编写程序。Visual Basic中程序执行的基本方法是由“事件”来驱动子程序（在Visual Basic中将“子程序”称为“过程”）的运行。 Visual Basic是面向对象的、结构化的计算机语言。Visual Basic的界面由对象（窗体和控件）组成，每个对象有若干个苏醒，程序人员的任务是设计这些对象的事件过程。Visual Basic的语法

11、与QBASIC和QBASIC的人，无须任何训练便可很熟练的进行Visual Basic编写代码的工作。2、 程序设计的有关概念计算机程序设计语言是人与计算机进行信息交换的工具。随着计算机技术的发展，计算机程序设计语言也在不断地发展，出现了功能、特点个不相同的多种程序设计语言。程序设计方法和技术也在不断发展。（1）、结构化程序设计结构化程序设计强盗程序设计的风格和程序设计的规范化，提倡清晰的结构。结构或程序设计方法的基本思路是，把一个复杂问题的求解过程分为若干个阶段进行，每个阶段处理的问题都控制在人们容易理解和处理的范围内。具体地说，采取如下方法来保证得到结构化算法自顶向下逐步细化模块化这是结构

12、化程序设计的3个要素，其中最核心的是“逐步细化”。这种方法是“方法论”只是中重要的一部分。这种从抽象到具体、从总体到细目的分解过程，以及最后实现这些细化的过程都具有严密的逻辑性。逐步细化方法是由“程序设计目标”到写出源程序的正确途径。（2）、面向对象程序设计尽管结构化程序设计方法已得到广泛的使用，但是仍有一些问题没有得到很好的解决。其中主要的问题是，这种设计方法重点在与用结构化的方法描述系统的操作过程。结构化程序设计语言又称为“面向过程的语言”将被处理的数据与相关操作分离，因此程序模块和数据机构的关系是松散的。面向对象的程序设计方法正式针对这个问题提出的一种新的程序设计技术。面向对象的程序设计

13、最基本的概念是将数据与处理数据的函数合并成一个单元，每个单元称为一个对象。使用面向对象的设计原则编写程序时，重要的是如何将一个复杂的问题分解为一组对象。这种设计方法符合人们的思维习惯，便于分析复杂的问题，有利于软件的维护。使用面向对象的程序设计，并不是放弃结构化程序设计方法。在对象的实现中，仍需要使用结构化程序设计技术。Visual Basic是在BASIC和Quick Basic语言的基础上发展起来的，具有结构化的高级语言的语句结构，同时支持面向对象的程序设计技术，具有强大的功能。1.2 系统开发条件信息资源已成为各个部门的重要财富和资源，建立一个满足各级部门信息处理需要的信息系统，也一个企

14、业或组织生存越来越重要的信息资源。长期以来，使用传统人工的方法管理高校公寓，这种管理方式存在着许多缺点，如：效率低。而且时间一长，将产生大量的文件和数据，这对于查找、更新、维护都带来了不少的困难。随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥越来越重要的作用。学生公寓管理软件，是以高校的管理方式为实例而设计的一种实用型管理软件。本系统最大的特点是通用性、简单操作性。随着学校寄宿人员的增多，公寓管理人员的负担越来越重，为了让所有公寓管理人员能从繁重的工作中解脱出来，实现无纸化办公，使工作更有条理、更方便、更有效率，而开发出这套公寓管理软

15、件。第2章 学生宿舍管理系统的开发与设计我们正走进一个信息时代，信息技术将从根本上改变人类社会的生产方式和生活方式，各行各业的业务管理现在都已经相继使用计算机来处理，可以说用计算机进行信息管理是一个总趋势。学生公寓管理软件主要是对公寓、寝室的配置、住宿人员登记、卫生检查、公寓资产、学生违纪、值班老师记录以及对学生住宿情况查询，修改，更新等。可以更快地了解到每个学生的住宿情况。开发一个学生公寓管理系统可以达到事半功倍的效果。随着数据库管理系统的普及以及可视化编程软件的出现，使数据库管理信息系统的开发变得更为简单，因此开发一个学生公寓管理系统是完全可行的。系统流程图： 通知： 更新通知 人员管理管

16、理员 水电费管理 寝室管理 维修情况 卫生检查 来访人员学生宿舍 学生管理：学生信息管理系统 最新通知通知 历史通知 水电费 普通用户 缴费管理 公务赔偿 密码修改 信息查询 个人信息 寻找同学2.1管理员窗口的设计2.1.1登陆窗口的设计在这个界面中，主要处理的是判断当前用户输入的信息是否正确。如果正确，那么它属于哪种类型用户。因为此管理软件在登录后不同类型的用户显示的窗体与实现的功能都不是一样的，它们会有所差别！1、登陆窗口截图 登陆窗口登陆后，分为两类：一、管理员窗口；二、普通用户窗口；登陆窗口截图：图2.1.1.1 “学号”、“密码”分别为标签框Label1和Label2；“确定”、“

17、取消”、“退出”为命令按钮command1，command2，command3；“20071111”及“*”为文本框text1，text2；将text2的“passwordchar”属性设置为“*”即显示的密码为“*”表示。登陆窗口添加data1，连接数据库“loading”。2、 登陆窗口代码（1）、“确定”按钮代码Private Sub Command1_Click()If Text1.Text = Or Text2.Text = ThenMsgBox 请输入学号或密码loading.ShowElseDo While Text1.Text Trim(Data1.Recordset.Fiel

18、ds(学号) Data1.Recordset.MoveNext LoopIf Trim(Text1.Text) = Trim(Data1.Recordset.Fields(学号) And Trim(Text2.Text) = Trim(Data1.Recordset.Fields(密码) ThenIf Trim(Data1.Recordset.Fields(权限) = Trim(1) Then tadm.Show ElseIf Trim(Data1.Recordset.Fields(权限) = Trim(2) Then stu.Show End If ElseIf Trim(Text1.Tex

19、t) Trim(Data1.Recordset.Fields(学号) Or Trim(Text2.Text) Trim(Data1.Recordset.Fields(密码) And Text1.Text And Text2.Text Then MsgBox 学号或密码错误，请重试!, , 登录 Text1.SetFocus Data1.Recordset.MoveFirstEnd IfEnd Ifsgerenxinxi.Label1.Caption=Trim(Data1.Recordset.Fields(学号)sgerenxinxi.Label2.Caption=Trim(Data1.Reco

20、rdset.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

21、.Fields(寝室电话)End Sub(2)、“取消”按钮代码Private Sub Command2_Click()Text1.Text = Text2.Text = （3）、“退出”按钮代码Private Sub Command3_Click()EndEnd Sub(4)、窗体的加载事件代码Private Sub Form_Load()Data1.Visible = FalseEnd Sub2.1.2管理员过渡窗口提示用户当前日期，是否真的进入系统。“确定”即进入系统，“取消”即退出当前系统。1、 过渡窗口截图图2.1.2.1 “你好！欢迎您在”、“2010-02-28”、“登录学生宿舍

22、管理系统”分别为Label1、Label2、Label3；“确定”、“取消”分别为command1、command2。如上图显示的是每次登陆系统的当前日期。2、 过渡窗口代码（1）、“确定”按钮代码Private Sub Command1_Click()tadmguanli.ShowEnd Sub（2）、“取消”按钮代码Private Sub Command2_Click()EndEnd Sub（3）、窗体的加载代码Private Sub Form_Load()d$ = Date$Label3.Caption = d$2.1.3管理员主窗口程序主界面为本软件的显示的核心部分。一切主要操作及显示

23、都通过这里完成。1、 管理员主窗口截图图2.1.3.1“通知”包括“更新通知”（mnugengxin）；“寝室管理”包括“人员管理”（mnurenyuan）、“水电费管理”（mnushuidian）、“卫生检查”（mnuweisheng）、“维修情况”(mnuweixiu)、“来访人员”(mnulaifang)；“学生管理”包括“学生信息”(mnuxueshengxinxi)；“返回”包括“退出”(mnutuichu)、“返回”(mnufanhui)。最后，为了使窗体看上去不单调，选择了设置窗体的picture属性，加载了一幅图片。“更新通知”即管理员在学校发出通知的时候可以即使登陆系统，更改

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

25、i.Showtgengxintongzhi.Text1.Text = slishitongzhi.Label1.Captiontgengxintongzhi.Text1.Text = End Sub（2）、“人员管理”代码Private Sub mnurenyuan_Click()trenyuanguanli.ShowEnd Sub（3）、“水电费管理”代码Private Sub mnushuidian_Click()tshuidianfeiguanli.ShowEnd Sub（4）、“卫生检查”代码Private Sub mnuweisheng_Click()tweishengjiancha

26、.ShowEnd Sub（5）、“维修情况”代码Private Sub mnuweixiu_Click()tweixiuqingkuang.ShowEnd Sub（6）、“来访人员”代码Private Sub mnulaifang_Click()tlaifangrenyuan.ShowEnd Sub（7）、“学生信息”代码Private Sub mnuxueshengxinxi_Click()txueshengxinxi.ShowEnd Sub（8）、“返回”代码Private Sub mnufanhui_Click()loading.ShowEnd Sub（9）、“退出”代码Private

27、Sub mnutuichu_Click()EndEnd Sub以上代码均是根据不同的菜单进入不同的界面，进入界面后再根据情况做出相应的操作即可。2.1.4更新通知管理员在学校发出通知的时候可以及时登陆系统，更改当前通知，以便及时通知到各个寝室。1、 更新通知窗口截图图2.1.4.1“确定”、“更改”、“返回”、“退出”、“首页”分别为命令按钮command1，command3，command2，command4，command5，以及一个text文本框。并设置其scrollbar属性为2（vertical）只加垂直滚动条。单击“确定”按钮后，通知生效，此时不同用户登陆的窗口“查看通知”及时显示

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

29、eText1.SetFocusEnd Sub（3）、“返回”按钮的代码Private Sub Command2_Click()tadmguanli.ShowEnd Sub（4）、“退出”按钮的代码Private Sub Command4_Click()EndEnd Sub（5）、“首页”按钮的代码Private Sub Command5_Click()loading.ShowEnd Sub2.1.5人员管理该功能是对各个独立的寝室进行管理，包括寝室号，室长，寝室人员等。可对寝室及寝室人员进行添加，删除，修改等操作。1、管理窗口截图图2.1.5.1“寝室号”、“室长”、“寝室成员”分别为标签框L

30、abel1，Label2，Label3；添加3个文本框，分别为text1，text2，text3；“添加”、“删除”、“修改”、“刷新”、“返回”分别为command1，command2，command3，command4，command5.添加一个data1，连接数据库“寝室人员”。 该功能是设置寝室号，授权室长以及寝室成员等，同时也可对寝室添加，寝室人员添加，添加后授权一个室长。如果该寝室人员已经撤销则可以删除该寝室的所有信息。修改寝室寝室，包括室长，寝室人员。刷新功能是修改寝室信息后可以对寝室进行刷新操作。返回则是返回到管理员主窗口界面。2、管理窗口（1）、“添加”按钮的代码Privat

31、e Sub Command1_Click()If Text1.Text = Or Text2.Text = Or Text3.Text = ThenMsgBox 请输入完整信息ElseData1.Recordset.AddNewEnd IfEnd Sub（2）、“删除”按钮的代码Private Sub Command2_Click()Data1.Recordset.DeleteEnd Sub（3）、“修改”按钮的代码Private Sub Command5_Click()Data1.Recordset.EditText1.SetFocusEnd Sub（4）、“刷新”按钮的代码Private

32、Sub Command4_Click()Data1.RefreshEnd Su（5）、“返回”按钮的代码Private Sub Command3_Click()tadmguanli.ShowEnd Sub2.1.6水电费水电费费管理窗口实现的功能是管理员在每次水电费通知出来后，准确地讲水单价，电单价，水量，电量，总的水费，总的电费，以及总费用通知各个寝室。1、 水电费管理窗口截图图2.1.6.1 “水吨”，“电度”，“水数量”，“水费”，“电数量”，“电费”，“总费”，“寝室号”均为标签框LabelLabel；添加个文本框分别text1text8；“添加”，“删除”，“修改”，“确定”，“返回

33、”，“退出”分别为command1command6；添加data1和data2分别连接水电单价及水电费，连接数据库“水电费”及“水电单价”。 “添加”即添加新的记录，以往的历史记录则记录入数据库并存储。删除则可以删除以往想要删除的记录，修改则可以修改所有存在数据库中的所以数据，当单击确定按钮后，当前输入的所有信息则进入数据库系统，一杯存储。返回则是返回到管理员主窗口，此时可以访问系统的其他功能，退出则是退出整个学生宿舍管理系统。2、 水电费管理窗口代码（1）、“添加”按钮代码Private Sub Command1_Click()Data1.Recordset.AddNewEnd Sub（2）

34、、“删除”按钮代码Private Sub Command2_Click()Data1.Recordset.DeleteEnd Sub（3）、“修改”按钮代码Private Sub Command3_Click()Text1.SetFocusEnd Sub（4）、“确定”按钮代码Private Sub Command4_Click()tadmguanli.ShowEnd Sub（5）、“返回”按钮代码Private Sub Command6_Click()tadmguanli.ShowEnd Sub（6）、“退出”按钮代码Private Sub Command5_Click()EndEnd Su

35、b2.1.7维修情况此功能则是在寝室设备损坏后，请工作人员维修好后的记录，如果是人为损害的情况则需要记录赔偿情况，如果是非人为的情况则不需记录入数据库。同时也可以查询所有寝室的维修情况。1、 维修情况窗口截图图2.1.7.1“请输入寝室号查找”，“寝室号”、“维修情况”、“赔偿情况”、“时间”为标签框Label1Label5；添加5个文本框text1text5与之对应；“添加”、“更改”、“更新”、“返回”、“查找”分别为command1command5.添加data1，连接数据库“维修情况”。 “添加”按钮则是在每次新的维修情况出现后添加新的记录入数据库，更改则是在记录出错的情况下可以进行信

36、息的修改，更新则是在每次新的记录后或是修改记录后可以点击更新按钮则重新。2、 维修情况窗口的代码（1）、“添加”按钮的代码Private Sub Command1_Click()Data1.Recordset.AddNewEnd Sub（2）、“更改”按钮的代码Private Sub Command2_Click()Text1.SetFocusEnd Sub（3）、“更新”按钮的代码Private Sub Command3_Click()Data1.RefreshEnd Sub（4）、“返回”按钮的代码Private Sub Command4_Click()tadmguanli.ShowEnd

37、 Sub（5）、“查找”按钮的代码Private Sub Command5_Click()If Text5.Text = Or Text5.Text Trim(Data1.Recordset.Fields(寝室号) Then MsgBox 没有该寝室ElseDo While Text5.Text Trim(Data1.Recordset.Fields(寝室号) Data1.Recordset.MoveNext Loop If Trim(Text5.Text) = Trim(Data1.Recordset.Fields(寝室号) Then Text1.Text = Data1.Recordset

38、.Fields(寝室号) Text2.Text = Data1.Recordset.Fields(维修情况) Text3.Text = Data1.Recordset.Fields(赔偿情况) Text4.Text = Data1.Recordset.Fields(时间)End If End IfEnd Sub2.1.8卫生检查 该功能是在每次学校或是系部进行卫生检查后就进行评分，然后记录分数，并保存入数据库。在一学年后可调出记录进行总结，评优秀寝室等。一、 卫生检查窗口截图图2.1.8.1“寝室号”、“分数”、“时间”为标签框Label1Label3；对应添加3个文本框text1text3;

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

40、b Command4_Click()tadmguanli.ShowEnd Sub（4）、“退出”按钮代码Private Sub Command3_Click()EndEnd Sub2.1.9来访人员 来访人员登记则是在宿舍以外的人进入宿舍进行登记，然后记录入数据库。1、 来访人员窗口截图图2.1.9.1 “寝室号”、“访问者姓名”、“学生姓名”、“时间”、“事件”分别是由标签框Label1Label5组成；对应添加5个文本框text1text2；“添加”、“确定”、“返回”为3个命令按钮command1command3；添加data1，连接数据库“来访人员”。 单击“添加”按钮是可以添加新的来

41、访人员记录，并存入数据库。“确定”按钮则是在输入新的记录后确定保存入数据库。“返回”则是返回到管理员主窗口界面，课进行其他操作。2、来访人员窗口代码（1）、“添加”窗口代码Private Sub Command1_Click()Data1.Recordset.AddNew（2）、“确定”窗口代码Private Sub Command2_Click()Data1.RefreshEnd Sub（3）、“返回”窗口代码Private Sub Command3_Click()tadmguanli.ShowEnd Sub2.1.10 学生信息可以对学生的信息进行管理，包括学好、姓名、班级、寝室号、寝室电

42、话、家庭住址、权限、个人电话等。以及对这些信息的添加、删除、修改等。一、学生信息窗口截图图2.1.10.1“学号”、“寝室号”、“姓名”、“寝室电话”、“班级”、“家庭住址”、“权限”、“个人电话”“（权限为学生）”分别为Label1Label9；对应有text1text8；“添加”、“修改”、“删除”、“确定”、“返回”分别为command1command5；添加data1，连接数据库“loading”。 单击“添加”按钮的时候则可以添加学生信息，修改则是可以对已有的学生的信息进行修改，删除则是在已有的信息上进行删除操作，确定则是确定讲信息存入数据库，返回则是回到管理员主窗口。3、 学生信息

43、窗口代码（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 = ThenMsgBox 请输入完整信息！ElseData1.Recordset.AddNewEnd IfEnd Sub（2）、“修改”按钮的代码Private Sub Command2_Click()Text1.SetFocusEnd Sub（3）、“删除

44、”按钮的代码Private Sub Command3_Click()Data1.Recordset.DeleteEnd Sub（4）、“确定”按钮的代码Private Sub Command5_Click()Data1.RefreshEnd Sub（5）、“返回”按钮的代码Private Sub Command4_Click()tadmguanli.ShowEnd Sub2.2 普通用户界面的设计2.2.1普通用户主窗口该窗口的设计跟管理员过度窗口的设计是一样的，目的是提醒用户当前日期以及用户欢迎词。1、 学生主窗口截图图2.2.1.1 “通知”包括“最新通知”和历史通知；“收费管理”包括“水

45、电费”和“公务赔偿”；“查询信息”“密码修改”包括“个人信息”和“寻找同学”；“返回”包括“返回”和“退出”；“欢迎你在”“2010-02-28”“登陆学生宿舍管理系统”分别为Label1Label3； 作为普通用户，没有对信息的编辑权限，所以没必要设计可以编辑的菜单。2、 学生主窗口代码（1）、“最新通知”菜单代码Private Sub mnuzuixin_Click()szuixintongzhi.ShowEnd Sub（2）、“历史通知”菜单代码Private Sub mnulishitongzhi_Click()slishitongzhi.ShowEnd Sub（3）、“公务赔偿”菜单

46、代码Private Sub mnugongwupeichang_Click()sgongwupeichang.ShowEnd Sub（4）、“水电费”菜单代码Private Sub mnushuidianfei_Click()sshuidianfei.ShowEnd Sub（5）、“个人信息”菜单代码Private Sub mnugerenxinxi_Click()sgerenxinxi.ShowEnd Sub（6）、“寻找同学 ”菜单代码Private Sub mnuxunzhaotongxue_Click()sxunzhaotongxue.ShowEnd Sub（7）、“密码修改”菜单代码

47、Private Sub mnumimaxiugai_Click()smimaxiugai.ShowEnd Sub（8）、“返回”菜单代码Private Sub mnufanhui_Click()loading.ShowEnd Sub（9）、“退出”菜单代码Private Sub mnutuichu_Click()EndEnd Sub（10）、窗体加载代码Private Sub Form_Load()d$ = Date$Label2.Caption = d$End Sub2.2.2最新通知该功能是当用户登录到该系统后，在管理员修改通知后，普通用户就可以查看新的通知。1、 最新通知窗口截图图2.2

48、.2.1通知是由一个文本框text1将其enabled属性设置为false；“返回”，“退出”分别由command1和command2组成。 由于是普通用户，所以没有权限编辑，只能查看，所以只需设置两个按钮即可“返回”、“退出”。“返回”即返回普通用户主菜单界面，“退出”即普通用户退出学生宿舍管理系统。2、最新通知窗口代码（1）、“返回”按钮代码Private Sub Command2_Click()stu.ShowEnd Sub（2）、“退出”按钮代码Private Sub Command1_Click()EndEnd Sub2.2.3历史通知普通用户可以进入此窗口进行历史通知的查询。1、

49、历史通知窗口截图图2.2.3.1 Label1由一个text1将起enabled属性设置成enabled；“返回”和“退出”command1和command2. 上图为无历史通知的情况下窗口的截图。“返回”则是返回普通用户主菜单窗口，“退出”则是普通用户退出学生宿舍管理系统。2、 历史通知窗口代码（1）、“返回”按钮代码Private Sub Command2_Click()stu.ShowEnd Sub（2）、“退出”按钮代码Private Sub Command1_Click()EndEnd Sub2.2.4水电费水电费窗口显示的是水单价、数量、总价，电单价、数量、总价以及共计价格，其中可

50、以以输入的方式查询要查询的寝室的具体情况。1、 水电费窗口截图图2.2.4.1“请输入寝室号”“（格式如：101）”“用水”“单价”“数量”“水费”“用电”“单价”“数量”“电费”“共计”均为label标签框；“确定”“继续查询”“返回”为command命令按钮；其余均为文本框，除text1外，其余text 的enabled属性均为false；添加data1和data2，连接数据库“水电单价”和“水电费”。2、水电费窗口代码（1）、“确定”按钮代码Private Sub Command1_Click()If Text1.Text = ThenMsgBox 请输入寝室号End IfDo Whil

51、e Text1.Text Trim(Data2.Recordset.Fields(寝室号) Data2.Recordset.MoveNext Loop If Trim(Text1.Text) = Trim(Data2.Recordset.Fields(寝室号) Then Label4.Caption = Data2.Recordset.Fields(水数量) Label5.Caption = Data2.Recordset.Fields(水费) Label6.Caption = Data2.Recordset.Fields(电数量) Label7.Caption = Data2.Records

52、et.Fields(电费) Label8.Caption = Data2.Recordset.Fields(总费) Text1.Enabled = FalseEnd If End Sub（2）、“继续查询”按钮代码Private Sub Command2_Click()Data2.Recordset.MoveFirstText1.Enabled = TrueEnd Sub（3）、“返回”按钮代码Private Sub Command3_Click()stu.ShowEnd Sub（4）、窗体加载代码Private Sub Form_Load()Data1.Visible = FalseData

53、2.Visible = FalseEnd Sub2.2.5公务赔偿该功能介绍的是在宿舍设备损害后进行维修的情况，包括人为的和非人为的，其中人为的要计算赔偿的。1、 公务赔偿窗口截图图2.2.5.1“请输入寝室号”“（格式101）”“寝室号”“维修情况”“赔偿情况”“时间”为label标签框；“确定”“继续查看”“返回”为三个命令按钮command1command3；其余均为text文本框，除text1外，其余text文本框的enabled属性均为false。添加data1并连接数据库。在上图的text1文本框中输入寝室号就可以对相应的寝室做出查询。单击“确定”按钮即在输入有效的寝室号的时候查询

54、到该寝室的赔偿情况，“继续查看”则是清空text1文本框，输入不同寝室号，进行查询。“返回”则是返回到普通用户菜单界面。2、公务赔偿窗口代码(1)、“确定”按钮代码Private Sub Command1_Click()If Text1.Text = ThenMsgBox 请输入寝室号End IfDo While Text1.Text Trim(Data1.Recordset.Fields(寝室号) Data1.Recordset.MoveNext Loop If Trim(Text1.Text) = Trim(Data1.Recordset.Fields(寝室号) Then Label1.C

55、aption = Data1.Recordset.Fields(寝室号) Label2.Caption = Data1.Recordset.Fields(维修情况) Label3.Caption = Data1.Recordset.Fields(赔偿情况) Label4.Caption = Data1.Recordset.Fields(时间) Text1.Enabled = False End IfEnd Sub(2)、“继续查看”按钮代码Private Sub Command2_Click()Text1.Enabled = TrueData1.Recordset.MoveFirstEnd S

56、ub(3)、“返回”按钮代码Private Sub Command3_Click()stu.ShowEnd Sub(4)、窗体加载代码Private Sub Form_Load()Data1.Visible = FalseEnd Sub2.2.6密码修改密码修改是管理员以及普通用户都可以操作的界面可以对用户密码进行修改。1、 密码修改图2.2.6.1“旧密码”“新密码”“重新输入新密码”为label标签框；“确定”“取消”“退出”为command命令按钮；其余为text文本框，设置起passwordchar属性为“*”。2、 密码修改窗口代码(1)、“确定”按钮代码Private Sub Command1_Click()If Text1.Text loading.Text2.Text ThenMsgBox 旧密码错误, vbOKOnly, 密码修改Text1.Text = Text2.Text = Text3.Text = End IfIf Text2.Text = Text3.Text And Text1.Text