学生宿舍管理系统的设计与实现本科毕业论文(编辑修改稿)

学生宿舍管理系统的设计与实现本科毕业论文(编辑修改稿)内容摘要：

班人员对当天值班情况进行一个小记，以便日后查看。 运行图 如下 : 图 对于一个稍显正规的软件来说帮助的制作都是必不可少的内容，本程序也不例外，制作了此帮助文档。 在程序中可以按 F1 或点击帮助菜单来显示此。 以便对本软件进行快速操作。 运行图如下 : 图 13 学生宿舍管理系统的设计与实现 第四章 程序设计 作为宿舍管理是从新生入学开始的，包括了新生籍贯信息、性别、专业、班级、学号等学生个人信息录入整个数据库中，再与宿舍信息的状况结合，安排新生的住宿情 况，再将整个信息作为统一数据，对学生的在校情况进行管理。 图 登录界面 此界面是由 Photoshop 制作而成。 在做这个登录面的时候想了很多，最后选择了这种，感觉它看起来干净，整齐。 又不失其庄雅。 加上本单位最有特色的建筑，会让人一目了然。 第四章 程序设计 登录图片显示 图 登录界面 界面制作与实现 在这个界面中，主要处理的是判断当前用户输入的信息是否正确。 如果正确，那么它属于哪种类型用户。 因为此管理软件在登录后不同类型的用户显示的窗体与实现的功能都不是一样的，它们会有所差别。 (1) 浮动按钮的实现 确定和取消两个按钮在鼠标没有放上去之前看上去只是一个普通的平面字效果，但是当你把鼠标放在这几个字上面后，它会显示凸出的效果，按下后呈现凹陷的效果。 总体实现立体的感觉。 原理主要是在鼠标 mousemove 事件与线的颜色变化组合来实现。 主要代码如下： 在窗体中的鼠标移动过程中，以及在窗体初始化的时候，要把添加的线的 .Visible 属性设置为 False，只有在鼠标按下的时候在改变其颜色即可。 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) = False = False = False 14 学生宿舍管理系统的设计与实现 = False = False = False = False = False End Sub 鼠标按下的时候设置线条的颜色如下： Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single) = amp。 H808080 = amp。 H808080 = amp。 HE0E0E0 = amp。 HE0E0E0 End Sub 鼠标移动到标签的时候设置线条的颜色如下： Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) = amp。 HE0E0E0 = amp。 HE0E0E0 = amp。 H808080 = amp。 H808080 = True = True = True = True End Sub (2) 用户类型判断 在数据库中建了一人 yonghu 表。 在添加管理人员时有两种默认级别。 管理员、普通用户。 管理员拥有对数据库操 作的一切权限。 普通用户只有普通的查看，数据转换等。 没有删除等操作功能。 前用户成功登录后，会在主窗体的状态栏中显示出当前用户及其用户类型。 主要代码如下： 设置当前控件连接的数据库 Dim provider As String Dim datasource As String 15 第四章 程序设计 provider = provider= datasource = data source= amp。 amp。 \ With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider amp。 amp。 datasource .CommandType = adCmdTable .RecordSource = yonghu .Refresh . End With 对用户进行判断 If = Then MsgBox 请输入用户名 !, 48, 提示 Exit Sub End If 用户 =39。 amp。 amp。 39。 If = False And = Trim((pass)) Then = (级别 ) = (用户 ) Unload Me Else = = MsgBox 登录不成功 ,请重新登录 !, 48, 提示 End If 程序主界面 程序主界面为本软件的显示的核心部分。 一切主要操作及显示都通过这里完成。 整个界面主要由五部分组成。 菜单部分、工具栏、左侧操作栏、右侧显示栏以及状态栏。 ①界面效果图如下： 16 17 学生宿舍管理系统的设计与实现 图 菜单栏的详见附录内容，这里就不提了。 左侧操作栏和右侧显示栏会在下面的内容中做介绍，现在只简单介绍一下工具栏和状态栏，以及主窗体的各个事件。 工具栏主要是由 coolbar 制作而成。 由它制做的工具栏的显示效果会更有立体感一些。 这里只列出了几个常用的按钮。 其中的添加按钮是用来对 宿舍 住宿人员进行添加，修改也是对所住宿人员进行修改，想要进行修改时必须显示所有记录时才可以进行。 在这里值得一提的是删除 DataGrid 的操作，由于不 知道它的当前数据源是哪个，所以在删除前要确定它的数据源，也就是它所链接的 adodc1 的数据源，或者是其它 ado 控件对它的数据源进行重新绑定后的数据库表，也有可能是经过一个查询后得到的记录。 ②它的实现方法如下所示： Dim o As Adodc Set o = 这里主要是用到了 ado 对像的方法。 用这个方法得到数据源。 下面是整个工具栏运行时代码： Select Case Case 1 1 Case 3 1 Case 5 On Error GoTo next2 Dim s As Adodc Set s = If = users Then 1 End If 18 第四章 程序设计 next2: Case 7 On Error Resume Next Dim o As Adodc Set o = Case 9 1 Case 11 With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider amp。 amp。 datasource .CommandType = adCmdTable .RecordSource = users 39。 .Refresh End With Set = Adodc1 Call dx Case 13 Unload Me End Select 状态栏分四个部分。 第一个为固定显示当前所用软件名称及作者。 其中第二个和第三部分为动态显示的，它会显示出每次用户登录名称及其管理模式。 由上图可以看出， lf为本软件管理员。 第四部分为日期与时间的显示。 其中第三部分的代码实现如下： = (级别 ) = (用户 ) (2).Text = 当前用户： amp。 (3).Text = 用户模式： amp。 (4).Text = Date amp。 amp。 Time 39。 设置普通用户模式 If = 普通用户 Then = False = False 19 学生宿舍管理系统的设计与实现 = False = False (5).Visible = False (6).Visible = False (7).Visible = False (8).Visible = False End If 主窗体在程序运行中会遇到不断改变其大小，最小化，最大化，以及用鼠标来改变，这里需要在窗体的 Resize 事件中添加代码，让程序中用到的各个控件随时可以适应窗体改变后的大小，在这里改变的控件主要有 DataGrid、 TreeView 系列及 Frame 控件、StatusBar。 下面就是设置它们大小的程序代码： = = 750 = 750 = 1200 = 1200 = 1200 = 1500 = 1500 = 1500 Y = x = (Y z) / 4 (1).Width = u + x (2).Width = v + x (3).Width = w + x (4).Width = m + x 这个软件的主要部分都在这里运行、查看，所以在主窗体的 load 事件里要把所用的到的东西都要加载进来，例如所在程序运行时所用到的表，左侧 treeview 部分树形显示的初始化。 在这里几乎用到了所有的表，如下所示： provider = provider= datasource = data source= amp。 amp。 \ With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider amp。 amp。 datasource .CommandType = adCmdTable 20 第四章 程序设计 .RecordSource = users 39。 .Refresh End With With Adodc2 .Mode = adModeReadWrite .ConnectionString = provider amp。 amp。 datasource .CommandType = adCmdTable .RecordSource = gongyu .Refresh End With With Adodc3 .Mode = adModeReadWrite .ConnectionString = provider amp。 amp。 datasource .CommandType = adCmdTable .RecordSource = class .Refresh End With With Adodc4 .Mode = adModeReadWrite .ConnectionString = provider amp。 amp。 datasource .CommandType = adCmdTable .RecordSource = weisheng .Refresh End With With Adodc5 .Mode = adModeReadWrite .ConnectionString = provider amp。 amp。 datasource End With With Adodc6 .Mode = adModeReadWrite 21 学生宿舍管理系统的设计与实现 .ConnectionString = provider amp。 amp。 datasource .CommandType = adCmdTable .RecordSource = dengji .Refresh End With With Adodc7 .Mode = adModeReadWrite .ConnectionString = provider amp。 amp。 datasource .CommandType = adCmdTable .RecordSource = qinshi .Refresh End With With Adodc9 .Mode = adModeReadWrite .ConnectionString = provider amp。 amp。 datasource .CommandType = adCmdTable .RecordSource = zichan .Refresh End With treeview 部分树形显示的初始化在这里已经做了几个过程，调用即可。 用 户管理 ①界面效果图 22 第四章 程序设计 图 ② 界面制作与实现方法 这个界面总体来说各个控件比较简单，但是作为一个添加删除管理员的操作，它已经连接到了数据库，与数据库的 yonghu 表相联。 各个控件也与数据库中表的字段绑定。 在窗体初始化的时候要判断当前数据库表中是否有记录，如果没有记录那么有些按钮将会被设置成为失效状态，否则会出现错误。 设置代码如下： Dim provider As String Dim datasource As String provid。