Private Sub jcbutton1_Click() Dim sl As Integer sl = Val(Text3.Text) sqlstr = "update ssws set 宿 舍 号 ='" & Text1.Text & "', 卫 生 评 分 ='" & Text2.Text & "', 评分时间='" & sl & "',评分员='" & Text4.Text & "' where 宿舍号 ='" & DataGrid1.Columns(0).Text & "'"
注销登记表 贵重物品申请出入单
图 2-4 贵重物品登记信息业务流程图
学生离返校信息业务流程图
宿舍管 理员
学生离返校记录表
查询学生离返校情况
宿舍管 理数据
申请离返校表格
离返校 学生
删除学生离返校情况
图 2-5 学生离返校信息业务流程图
2.4 系统数据流程图
管理员
宿舍状况
学生
宿舍信息
宿舍学生信息 宿舍信息 信息处理 学生可查询信息
具体如下图所示：
主界面之后便是各个小系统的设计，首先从学生基本信息系统设计开始，学 生基本信息包括学生姓名、学生学号、宿舍号、床位、入学时间、年龄六个方面。
图 3-3 学生信息录入界面
其他四个小系统的设计就如学生基本信息系统一般，只要把该系统中的因素
将进行替换就行了。
当系统的界面设计完成后就可以进行界面与数据库的连接了，只要先对该界
面进行变量的设定，在该改表整体进行编程，并对界面上按钮进行编程，如果该
界面需要连接数据库的表格并输出显示的话，就可以用 VB 中的 DataGrid、Adodc
这两个控件进行设计并对这两个控件分别进行数据库连接就行了。
下面的就是宿舍卫生界面连接数据库的程序编辑：
Dim DBCon As New ADODB.Connection Dim DBrs As New ADODB.Recordset Dim connectStr As String Dim sqlstr As String
onString = connectStr If DBCon.State = 0 Then
DBCon.Open connectStr End If Adodc1.RecordSource = "select 宿 舍 号 , 卫 生 评 分 , 评 分 时 间 , 评 分 员 from ssws" Set DataGrid1.DataSource = Adodc1
1.2.1 技术可行性
该学生宿舍管理系统运用到的软件有开发工具 Visual Basic6.0、数据库 SQL Server 2000，Visual Basic6.0 和 SQL Server 2000 可以很好的把宿舍管理系统中的 各个功能很好地设计出来，由于 Visual Basic 本身是面对对象的编程程序，因此 界面设计也是有很好的保障，SQL Server 2000 软件建立数据库比较方便简单， 因此数据库的建立花费的时间也是比较短的，而 Visual Basic6.0 可以很好地与 SQL Server 2000 衔接起来，在技术上宿舍管理系统的制作也是可行的。
反馈
有关 人员
图 2-2 学生晚归信息业务流程图
宿舍管 理员
宿舍卫生信息业务流程图
编辑卫生信息
卫生评 分员
卫生评分表
宿舍管 理数据
查询卫生信息
删除卫生信息
宿舍 学生
图 2-3 宿舍卫生信息业务流程图
贵重物品登记信息业务流程图
查询物品登记状况
宿舍管 理数据
注销物品登记记录 物品登记表格
宿舍管 理员
申请出入 物品学生
晚归时间 卫生评分 评分时间 评分员 物品名称 登记时间
类别 时间
地点
别名 学生姓名
学号 宿舍号 床位
入学时间 年龄
晚归学生姓 名
晚归时间 卫生评分 评分时间
评分员 物品名称 登记时间
类别 时间
地点
简述 无 学生代码 无 1~4 学生入校时 间 学生年龄
类型及宽度 char，8 位 char，9 位 char，3 位 char，3 位
无 10:30 以后
0~100 无 无 无 无
离、返 无
char，8 位
无
第 3 章 系统设计
3.1 引言
设计阶段主要是将需求分析阶段得到的用户需求抽象为信息结构(概念模型) 的过程,它是整个数据库设计的关键，包括了概念模型设计和新系统流程两个阶 段。
3.2 概念模型设计
E—R 模型 学生信息系统
Text1.Text = DataGrid1.Columns(0).Text Text2.Text = DataGrid1.Columns(1).Text Text3.Text = DataGrid1.Columns(2).Text Text4.Text = DataGrid1.Columns(3).Text End Sub
Private Sub jcbutton3_Click() Unload Form_宿舍卫生编辑系统 End Sub
因此在 Visual Basic6.0 中保存、编辑、删除、查询的编写程序都是差不多的， 所以编写程序的难度也是小了许多。
当数据库的设计、VB 界面的设计、界面与数据库的连接都完成后，整个学 生宿舍管理信息系统的编辑也就差不多了，剩下的就是一些细节方面的处理和修
DBCon.Execute sqlstr
Adodc1.Refresh MsgBox "修改成功", vbOKOnly, "修改成功确认" End Sub
Private Sub jcbutton2_Click() connectStr = "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sa;Initial Catalog=ssglxt;Data Source=WW-814546F819B3" If DBCon.State = 0 Then DBCon.Open connectStr End If If MsgBox("确定要删除该入库单记录吗", vbYesNo, "确认删除") = vbYes Then sqlstr = "delete from ssws where 宿舍号='" + Trim(Text1) + "'" DBrs.Open sqlstr, DBCon, adOpenDynamic, adLockOptimistic Adodc1.Refresh 'MsgBox "删除成功" End If End Sub
Private Sub DataGrid1_Click() Text1.Text = DataGrid1.Columns(0).Text Text2.Text = DataGrid1.Columns(1).Text Text3.Text = DataGrid1.Columns(2).Text Text4.Text = DataGrid1.Columns(3).Text
饰了。
第 4 章 总结
这次经过差不多半个月的管理信息系统的设计，我从中又了许许多多的感
悟。
在一开始做这个课程设计时，可以说对整个概念还是十分模糊的，而且 SQL Server 2000、Visual Basic6.0 这两个软件工具，也就 SQL 在大二时学过一学期，
第 2 章 系统分析
2.1 系统包含的处理对象
系统需要处理的对象有学生基本信息、学生晚归状况、宿舍卫生评分、贵重 物品登记及学生离返校状况几个方面，各个对象所包含的信息有：
1．学生基本信息包含学生姓名、学生学号、宿舍号、床位、入学时间、年 龄六个方面；
2．学生晚归状况系统信息包含晚归学生姓名、晚归时间、宿舍号三个方面； 3．宿舍卫生评分系统信息包含宿舍号、卫生评分、评分时间、评分员四个 方面； 4．贵重物品登记系统信息包含学生姓名、宿舍号、物品名称、登记时间四 个方面； 5．学生离返校系统包含类别、学生姓名、时间、地点四个方面。
状况；
2.3 系统业务流程图
学生信息业务流程图（学生姓名、学生学号、宿舍号、床位、入学时间、年 龄等信息）
编辑学生信息
查询结果单
宿舍管理 数据
学生信息单
宿舍管 理员
所需 人员
删除学生信息
图 2-1 学生信息业务流程图
学生晚归信息业务流程图
编辑晚归信息
查询晚归信息
宿舍管理 数据
晚归学生信息单 删除学生晚归信息
（1）确定数据库的物理结构，在关系数据库中主要是存取方法和存储结构；
（2）对物理结构进行评价，评价的重点是时间和空间效率。 数据库利用 SQL Server 2000 进行设计，SQL Server 2000 本身设计表格是比 较简单的。 数据库设计中需要建立五张表格：学生基本信息、学生晚归状况、宿舍卫生 评分、贵重物品登记及学生离返校状况。 在五张表格中设计自己需要的要素，并对每个要素的类型、宽度进行选择与 设计，只要进行这些设计就可以了。
2.2 系统所需要实现的功能
系统主要完成一下几个功能： 1．学生基本信息的查询及更新，时时了解学生的生活情况； 2．每日学生迟到晚归情况的记录及查询； 3．宿舍楼寝室每日卫生状况的评分、查询及更新； 4．宿舍楼贵重物品的出入，防止物品的丢失； 5． 每学期开始及结束时学生返校及离校时间的记录，从而更好地了解学生