学院后勤管理系统

石家庄铁道大学四方学院

集中实践报告书

课题名称 四方学院后勤管理

姓 名 学 号 系、 部 土木工程系

专业班级 指导教师

刘仁芬

2015年 6 月 25 日

※※※※※※※※

※ ※※ ※

※ ※

※

※

※

※

※

※※※※※

2014级

高级语言程序设计

四方学院后勤管理系统的开发

1选题的意义

对后勤管理来说，对后勤管理状况起决定作用的是建立一个完整的报修维修管理系统。如何利用先进的管理手段来提高后勤管理的水平是我们的主要发展方向。面对信息时代的新情况，利用科技手段提高后勤管理无疑是一条行之有效的途径。因此，使后勤管理工作规范化，系统化，提高后勤数据处理的速度和准确性，使该系统能够及时、准确、有效的查询和修改报修情况才可以更方便快捷且行之有效的施行后勤管理。

2 系统功能需求分析

2.1系统概述

该系统是以管理为基础开发的学院正常运行的管理与统计系统，适合各类型院校使用。该系统应有较高的可靠性，学院后勤管理系统包括信息查询、保修管理、维修管理、验收管理、物料管理、系统管理等多种功能。我们所设计的后勤管理系统具有以上功能，可以方便快捷准确的获取以上信息，为学校生活提供方便。

信息查询：系统用户可查：最新报修信息、最新维修信息、学校相关通知等。

保修管理：报修用户可以随时对损毁物品和设施进行报修，修改和查询报修信息等。

维修管理：维修中心的用户对报修信息的管理。

验收管理：施工结束由维修中心用户记录相关报修项目处理情况。

物料管理：维修中心用户根据施工结束登记的维修用料信息。

系统管理：由系统管理员对登录用户、工作人员列表（系统中报修人员、维修人员、验收人员均提供下拉列表选择）、维修价目等参数进行管理和设置。

2.2系统的组成及各模块的功能

学院后勤管理系统的组成主要包括以下几点功能:

1.用户登录模块：账户，姓名，密码，角色

2.维修管理模块：ID，维修楼，寝室号，维修时间，维修人，状况，维修物品

3.保修管理模块：ID，损坏物品设施，个数

4.物料管理模块：维修用料信息，维修日期，栋，寝室号

5.系统管理模块：ID，登录用户，保修人员，维修人员，验收人员，维修价目

6.验收管理模块：维修楼，寝室号，是否维修完

2.3系统的运行环境

1.系统使用环境

操作系统:Windows XP/7。

系统支持：Visual basic 6.0及以上版本支持库。

数据库：Access。

硬件环境：处理器;Intel Pentium 166MX或者更高。

硬盘：剩余使用空间1GB以上。

内存：32MB以上。

显卡：SVGA显示适配器。

2.系统开发环境

操作系统：Windows XP/7。

系统支持：Visual Basic 6.0。

3系统设计

3.1总体结构设计

图1 总体模块图

3.2数据库实现

表1 登录界面数据表

字段名称数据类型字段大小编号自动编号长整型

账号文本50

密码文本50

表2 报修管理数据表

字段名称数据类型字段大小损毁物品、设施文本255

个数数字长整形编号自动编号长整型

表3 验收管理数据表

字段名称数据类型字段大小维修楼数字长整形寝室号数字长整形是否维修完成文本255

表4 信息查询数据库

字段名称数据类型字段大小报修楼数字长整形寝室号数字长整形

报修物品报修时间状况

维修时间维修人文本

日期/时间

文本

日期时间

文本

255

255

255

4系统实现

4.1登录模块的设计与实现

图2登录界面

Private Sub Command1_Click()

UserName = Combo1.Text

If Option1(0).Value = True Then

Adodc1.RecordSource = "select * from 登陆界面where 账户='" + Combo1.Text + "' and 角色='学生'"

Else

Adodc1.RecordSource = "select * from 登陆界面where 账户='" + Combo1.Text + "' and 角色='管理员'"

End If

Adodc1.Refresh

If Adodc1.Recordset.Fields(2).Value = Text1 Then

If Option1(0).Value = True Then

Form11.Show

Else

主要功能.Show

End If

Else

MsgBox "密码错误！"

End If

Unload Me

End Sub

Private Sub Command2_Click()

登陆界面.Hide

主界面.Show

End Sub

Private Sub Form_Load()

Adodc1.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=四方学院后勤管理系统.accdb;Persist Security Info=False"

Adodc1.RecordSource = "select * from 登陆界面"

Adodc1.Refresh

Combo1.Clear

Do While Not Adodc1.Recordset.EOF

Combo1.AddItem Adodc1.Recordset.Fields(0).Value