学生公寓管理系统

系统分析
系统采用MICROSOFT公司的 VISUAL BASIC语言编写的学生公寓管理系统,本系统在研制开发过程中，严格遵循软件工程方法，完全采用结构化程序设计方法。
本系统的主要功能可以方便的对学生公寓进行管理，系统采用ACCESS数据库使数据具有较强的完整性、较好的数据安全性等特点以及提供了标准的帮助，使用户方便的获得所需的帮助。界面友好、操作简单、功能齐全、具有较好的人机接口界面是本系统的最大优点。
1.1开发工具简介及系统运行环境
1．1．1 VB6简介 
本软件的开发工具为VISUAL BASIC，作为一种开发语言，VISUAL BASIC率先采用了可视化（VISUAL）的程序设计方法。利用系统提供的大量可视化控件，可以方便的以可视化方式直接绘制用户图形界面，并可直观、动态的调整界面的风格和样式，直到满意为止，从而克服了以前必须用大量代码去描述界面元素的外观和位置的传统编程模式。
它还拥有面向对象的编程方法。面向对象的程序设计是伴随WIDNOWS图形界面的诞生而产生的一种新的程序设计思想，与传统程序设计有着较大的区别，VISUAL BASIC采用了面向对象的程序设计思想。所谓“对象”就是现实生活中的每个一人，每一个可见的实体。同样，在VISUAL BASIC中，用来构成用户图形界面的可视化控件，也可视为是一个对象。不同的对象，在程序中所赋给它的功能是不同的，比如，在图形界面上有两个命令按钮，一个用来实现数据的统计计算，另一个用来实现数据的打印，这两个按钮就可视为是两个不同的对象，为了实现这两个对象各自不同的功能，接下来就应该分别针对这两个对象编写程序代码，这种编程的思想和方法即为所谓的“面向对象的程序设计”。

copyright think58 [资料来源：http://www.THINK58.com]

它还支持第三方软件商为其开发的可视化控制对象，如本例中就用到了一个。这些可视化控件对应的文件扩展名这OCX。只要拥有控件的OCX文件，就可将其加入到VB系统中，从而大大增强VB的编程实力。使软件做起来会更加得心应手。
1．1．2  HELP 制作
制作help文档需要一个专业制作软件，本人使用的是破解版的QuickCHM，此软件无论在功能上还在是操作上用起来都是很方便。它属于一个傻瓜型的制作软件，利用它可以快速的制作出各种你所需要的帮助文档。但是如果想制作出帮助文档，就需要使用制作网页的软件把内容先做成html形式，本人使用Dreamweaver制作的网页，然后在用此软件进行加载，最后生成chm文档。
1.2开发的必要性
信息资源已成为各个部门的重要财富和资源，建立一个满足各级部门信息处理需要的信息系统，也一个企业或组织生存越来越重要的信息资源。长期以来，使用传统人工的方法管理高校公寓，这种管理方式存在着许多缺点，如：效率低。而且时间一长，将产生大量的文件和数据，这对于查找、更新、维护都带来了不少的困难。
随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥越来越重要的作用。学生公寓管理软件，是以高校的管理方式为实例而设计的一种实用型管理软件。 copyright think58 [资料来源：www.THINK58.com]
本系统最大的特点是通用性、简单操作性。随着学校寄宿人员的增多，公寓管理人员的负担越来越重，为了让所有公寓管理人员能从繁重的工作中解脱出来，实现无纸化办公，使工作更有条理、更方便、更有效率，而开发出这套公寓管理软件。
1.3系统开发的可行性
1．3．1 技术上的可行性
我们正走进一个信息时代，信息技术将从根本上改变人类社会的生产方式和生活方式，各行各业的业务管理现在都已经相继使用计算机来处理，可以说用计算机进行信息管理是一个总趋势。学生公寓管理软件主要是对公寓、寝室的配置、住宿人员登记、卫生检查、公寓资产、学生违纪、值班老师记录以及对学生住宿情况查询，修改，更新等。可以更快地了解到每个学生的住宿情况。开发一个学生公寓管理系统可以达到事半功倍的效果。随着数据库管理系统的普及以及可视化编程软件的出现，使数据库管理信息系统的开发变得更为简单，因此开发一个学生公寓管理系统是完全可行的。
1．3．2 经济上的可行性
本单位有自己的微机室可以使用，不必重新购置计算机，不需要花费大量资金，是一个节约人力物力的好办法。
1．3．3 组织管理上的可行性
本单位的领导干部具有较高的素质，它们对管理现代化有较高的认识水平，并且有各级领导的大力支持和重视。 内容来自think58 [资料来源：http://think58.com]
综上所述，建立一个学生公寓管理软件与人工操作相比具有速度更快，操作更准确，更节约开支等有利之处，因此建立一个学生公寓管理软件是必要可行。
界面制作与实现
    在这个界面中，主要处理的是判断当前用户输入的信息是否正确。如果正确，那么它属于哪种类型用户。因为此管理软件在登录后不同类型的用户显示的窗体与实现的功能都不是一样的，它们会有所差别！
(1) 浮动按钮的实现
    确定和取消两个按钮在鼠标没有放上去之前看上去只是一个普通的平面字效果，但是当你把鼠标放在这几个字上面后，它会显示凸出的效果，按下后呈现凹陷的效果。总体实现立体的感觉。原理主要是在鼠标mousemove事件与线的颜色变化组合来实现。主要代码如下：
    在窗体中的鼠标移动过程中，以及在窗体初始化的时候，要把添加的线的.Visible 属性设置为 False，只有在鼠标按下的时候在改变其颜色即可。
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
Line1.Visible = False
Line2.Visible = False
Line3.Visible = False
Line4.Visible = False
Line5.Visible = False
Line6.Visible = False copyright think58 [资料来源：THINK58.com]
Line7.Visible = False
Line8.Visible = False
End Sub
    鼠标按下的时候设置线条的颜色如下：
Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
Line1.BorderColor = &H808080
Line2.BorderColor = &H808080
Line3.BorderColor = &HE0E0E0
Line4.BorderColor = &HE0E0E0
End Sub
    鼠标移动到标签的时候设置线条的颜色如下：
Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
Line1.BorderColor = &HE0E0E0
Line2.BorderColor = &HE0E0E0
Line3.BorderColor = &H808080
Line4.BorderColor = &H808080
Line1.Visible = True
Line2.Visible = True
Line3.Visible = True
Line4.Visible = True
End Sub
(2) 用户类型判断
    在数据库中建了一人yonghu表。在添加管理人员时有两种默认级别。管理员、普通用户。管理员拥有对数据库操作的一切权限。普通用户只有普通的查看，数据转换等。没有删除等操作功能。前用户成功登录后，会在主窗体的状态栏中显示出当前用户及其用户类型。

copyright think58

主要代码如下：
设置当前控件连接的数据库
Dim provider As String
Dim datasource As String
provider = "provider=Microsoft.jet.oledb.4.0"
datasource = "data source=" & App.Path & "\DB.mdb"
With Adodc1
.Mode = adModeReadWrite
.ConnectionString = provider & ";" & datasource
.CommandType = adCmdTable
.RecordSource = "yonghu"
.Refresh
.Recordset.MoveFirst
End With
对用户进行判断
If Text1.Text = "" Then
MsgBox "请输入用户名!", 48, "提示"
Exit Sub
End If
Adodc1.Recordset.Find "用户='" & Text1.Text & "'"
If Adodc1.Recordset.EOF = False And Text2.Text = Trim(Adodc1.Recordset.Fields("pass")) Then
main.Text1.Text = Adodc1.Recordset.Fields("级别")
main.Text2.Text = Adodc1.Recordset.Fields("用户")
main.Show
Unload Me
Else
Text1.Text = ""
Text2.Text = ""
MsgBox "登录不成功,请重新登录!", 48, "提示"
End If