机房管理系统课程设计报告书
- 格式：doc
- 大小：243.50 KB
- 文档页数：19
第2学期
《软件设计基础-VB》
课程设计报告
设计名称： 机房管理系统
姓 名： 学 号：
专业班级：
学 院：
设计时间：
设计地点：
指导教师评语：
指导教师签字：
年 月 日 教师评定： 自评成绩： 《软件设计基础-VB》课程设计报告 第 2 页，共 19 页
目 录
1.课程设计目的 ·························
2.课程设计任务与要求 ······················
3.课程设计说明书 ························
4.课程设计成果 ·························
5.程序调试过程 ·························
6.设计问题的不足和改进方案 ···················
7.课程设计心得 ·························
8.附录 ·····························
9.参考文献 ··························· 《软件设计基础-VB》课程设计报告 第 3 页，共 19 页
1．课程设计目的
《软件设计基础-VB》课程设计是这门课程的实践性教学环节之一，本次设计结合实际应用的要求，使课程设计既覆盖VB的知识点，又接近工程实际需要。目的是通过课程设计的综合训练，培养学生实际分析问题、解决问题的能力，以及编程和动手能力，最终目标是通过课程设计这种形式，帮助学生系统掌握VB这门课程的主要内容，养成良好的编程习惯，更好的完成教学任务。
2．课程设计任务与要求：
要求：
本次课程设计利用《软件设计基础-VB》课程中所学到的编程知识和编程技巧，完成具有一定难度和工作量的程序设计题目，帮助学生掌握编程、调试的基本技能，独立完成所布置的任务。
要求：
1、对系统进行功能需求分析
2、设计合理的数据结构和系统框架
3、界面设计美观、清楚、合理
4、编程简练，程序功能齐全，能正确运行
5、具有一定的创新性
6、说明书、流程图要清楚
7、课题完成后必须按要求提交课程设计报告
任务：
将自己选择题目的任务要求简单填写在此处。
设计一个具有80台电脑的机房管理系统，可以安排学生上机，在学生下机后可以从按学生学号或按计算机号两种角度查询学生的使用的计算机号、开始时刻、结束时刻、使用时间等信息并把它们记录下来。如： 《软件设计基础-VB》课程设计报告
第 4 页，共 19 页
3．课程设计说明书 《软件设计基础-VB》课程设计报告 第 5 页，共 19 页
⑴功能描述
安排具有10为学号的学生使用1~80台计算机中的某一台，主界面上显示此学生当前的上机信息，并在其下机后把使用记录保存下来，可以从学生的学生号和计算机号的两个角度调出。
⑵概要设计
主要写模块说明，模块结构图，系统流程图（例N-S流程图）（五号，宋体）
模块结构图：
根据功能分析，建立系统的体系结构，即将整个系统分解成若干子模块，用框图表示各功能模块之间的接口关系。
Form1
一部分显示80台计算机的使用情况
另一部分分别有
1. text窗口用来输入学生的学号
2. 某台计算机的状态和使用信息
3. command1—按学生学号查询指令
4. command2—按计算机号查询指令
5. command3—程序退出指令 Form2
可以按学号查询某位同学上机的机号、开始时间、结束时间、和使用时间。
Form3
可以针对某台计算机查询它使用者的学号、开始时刻、结束时刻、和使用时间。 《软件设计基础-VB》课程设计报告 第 6 页，共 19 页
⑶详细设计
总体流程图：
各功能模块流程图：
2按学生学号查询
学生学号的text的输入框
某位学生使用计算机的机器号、开始时间、结束时间、使用时间等信息显示 显示1~80台计算机的使用情况、学生学号text输入框、按学号查询和按计算机号查询的两个command命令按钮
1按计算机号查询
计算机号的text的输入框
某台特定的计算机的使用者的学号、开始时刻、结束时刻、使用时间。 《软件设计基础-VB》课程设计报告 第 7 页，共 19 页
⑷代码实现
详细说明各功能模块的实现过程，所用到的算法、技巧等（附上代码）。如：本系统总共10个窗体：form1~form10详细如下：
form1—首页
作用：“进入应用程序”。
所用控件：5个标签，4个时钟。
设计思路：用时钟控制label1、2,3,4的运动。单击label1,2,5和命令选择器可进入后面窗体，label3.无链接窗体，无label4 。
详细内容：属性较特殊的需要说明。代码如下：
本程序共涉及3个窗体1个模块，各部分详细如下
模块里定义了全局的数据类型和变量：
Public Zd As Integer '指定的计算机的号
Public Jq(80) As Boolean '计算机是否被使用
Public Xh(80) As String '计算机使用者的学号
Public Ks(80) As String '开始时间
Public Js(80) As String '结束时间
Public Sj(80) As String '使用时间
Public Cx As Integer '查询种类
Form 1
（1）.所涉及的80台计算机的显示情况
《软件设计基础-VB》课程设计报告 第 8 页，共 19 页
Private Sub Form_Load()
For i = 1 To 80
Jq(i) = True
Label1(i).Caption = Format(i, "00")
Next
End Sub
（2）.用于完成指定计算机
Private Sub Text1_KeyPress(KeyAscii As Integer)
jl = True
If KeyAscii = 13 Then
For i = 1 To 80
If Xh(i) = Text1.Text Then
Zd = i
Call Xj
jl = False
End If
Next
If jl = True Then
Form2.Show
Form1.Hide
End If
End If 《软件设计基础-VB》课程设计报告 第 9 页，共 19 页
End Sub
（3）.计算上机时间并显示
Sub Kssj()
Jq(Zd) = False
Picture1(Zd).Picture = LoadPicture(App.Path & "\false.jpg")
Xh(Zd) = Text1.Text
Ks(Zd) = Year(Now) & "-" & Format(Month(Now), "00") & "-" & Format(Day(Now), "00") &
Chr(13) & Time
Label4.Caption = Xh(Zd)
Label9.Caption = Format(Zd, "00")
Label10.Caption = Ks(Zd)
Label11.Caption = "(开始上机)"
Label12.Caption = "(开始上机)"
Form2
指定对应学号所使用的计算机 代码如下：
Dim i As Integer
Private Sub Command1_Click()
Zd = List1.List(List1.ListIndex)
Call Form1.Kssj
Form1.Show 《软件设计基础-VB》课程设计报告 第 10 页，共 19 页
Unload Form2
End Sub
Private Sub Command2_Click()
Form1.Show
Unload Form2
End Sub
Private Sub Form_Activate()
List1.Clear
For i = 1 To 80
If Jq(i) = True Then
List1.AddItem Format(i, "00")
End If
Next
End Sub
Form3.
（1）用于针对学生学号和计算机号两种方式对上机情况进行查询。
在list中输出数据的格式编排比较特殊， 所用代码：
If Cx = 1 Then
For i = 1 To n
If a(i) = Text1.Text Then
