机房管理详细设计说明书.docVIP

项目名称 详细设计说明书 学号 姓名 所完成的任务 成绩 1111311111 施融 1111311127 丁海祥 2013 年 10 月 31 日 1.引言 1.1编写目的 在这个日益信息化、智能化的时代，学校等教育机构已经将机房以及多媒体教室作为信息化教育的有力工具，而机房作为一个公用的教育场所，有着使用量大，难于管理，用户流动量大，不便登记管理等特点。如果使用人工管理的方式，那么将会浪费大量的人力资源，降低工作效率，无法实时的记录机器使用以及损坏情况，对相关责任人无法追究其责任，这给我们的机房管理带来了许多的不便。而我们软件学院的机房管理体制依然停留在人工管理的原始阶段，在软件管理系统日益广泛使用的今天，开发一个有效并且适用于我们软件学院的机房上机管理系统将会解决许多的人力资源管理机房所存在的许多弊端，将会为机房管理节省许多的时间，既方便了教师的管理又方便了学生上机统计。 读者对象：超级管理员，学生管理员，学生，教师 1.2背景 上机管理系统系统开发 任务提出者： 开发者： 用户： 上机管理系统要实现对的管理要求，包括：录入、浏览、删除、修改、检索和统计等。 JavaScript的定义： JavaScript是一种由Netscape的LiveScript发展而来的脚本语言，它提高与Java的兼容性。JavaScript采用HTML页作为其接口。JavaScript就是适应动态网页制作的需要而诞生的一种新的编程语言。 接口：接口是一种非常有效的编码工具，它可将对象的定义与实现分离，从而在不破坏现有应用程序的情况下使对象得以扩充完善，减少了系统维护的负担。 2. 系统的结构 系统的功能模块图图2.1系统的功能模块图多层架构关系图 图2.2多层架构关系图 根据图2.1功能结构图和图2.2多层架构关系图可得到如下图2.3所示的系统结构设计图 图2.3系统结构设计图 Private Sub cmdExit_Click() If MsgBox(退出登录将不能进入系统！是否真的退出？, vbYesNo + vbQuestion, 退出登录) = vbYes Then Unload Me End If End Sub Private Sub cmdOk_Click() 验证用户身份，最多尝试3次 用户名是否为空 If Trim(txtname) = Then MsgBox 请输入用户名, vbExclamation, 验证登录 txtname.SetFocus Exit Sub End If If Trim(txtpswd) = Then 登录密码是否为空 MsgBox 请输入密码, vbExclamation, 验证登录 txtpswd.SetFocus Exit Sub End If 使用静态变量保存登录次数 Static intTimes As Integer intTimes = intTimes + 1 If intTimes MaxTimes Then MsgBox 已超过登录次数！退出系统, vbCritical, 验证登录 End End If 创建检验用户身份、用户名和密码合法性的Recorset对象 Dim objLoginRcd As New Recordset 将不同身份Recordset对象赋值给objLoginRcd对象 Select Case cmbIdentity Case 管理员 Set objLoginRcd = objAdmin.Clone Case 用户 Set objLoginRcd = objStudent.Clone End Select Dim strPswdFld As String With objLoginRcd 取得用户的密码 If .RecordCount 0 Then .MoveFirst If cmbIdentity = 管理员 Then .Find 管理员= Trim(txtname) strPswdFld = 密码 Else .Find 用户= Trim(txtname) strPswdFld = 密码 End If If .EOF Then 判断用户名是否正确 MsgBox 用户名错误！, vbCritical, 验证登录 txtname.SetFocus txtname.SelStart = 0