机房上机管理系统小型实用软件的设计与实现

《机房上机管理系统小型实用软件的设计与实现》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、机房上机管理系统小型实用软件的设计与实现陈亮(博尔塔拉蒙古自治州广播电视大学，新疆博乐)摘要：计算机课程的普及使各学校计算机机房的使用率明显提高，同时也带来了机房管理的难度和工作量增加问题。根据“实用第一”的原则，用EXCEL编制一个简单的数据管理系统——机房上机登记管理系统，必须通过对数据管理系统的构思、设计、实现及应用几个步骤。关键词：机房；上机管理系统；EXCEL;Office;VBA随着计算机技术的普及，各级各类学校广泛地开设了有关计算机技术的各种课程，随之而来的就是机房的使用率的明显提高带来的机房管理的难度和工作量增

2、加的问题。机房管理员常常碰到的问题就是每天进行大量的书面登记工作，而最终需要统计结果时，还要伏案计算很长时间。在这种情形下，需要一个具备自动登记、记录、统计等功能的机房上机管理软件，而一般这种软件的生成都是由使用单位请专门的软件公司或开发人员进行设计开发来实现的，这同样也存在一个后期维护的问题。而对于一个规模不是太大的学校来说，这样一个机房上机管理软件所需的功能并不是很多。因此，在考虑到种种因素之后，笔者编制了一套机房上机管理系统软件。一、机房上机管理系统分析1、机房上机管理系统所应具备的功能分析机房上机管理系统作为一个实用的

3、小型系统所具有的基本功能主要有这样几个方面：A．上机时的登记。可以记录上机时间、班级、人数、任课教师、上机课程及时长、值班人员等信息。B．能够进行简单的数据统计并具备查询功能。C．能够将记录打印生成报表或书面登记表。2、机房上机管理系统的数据库结构这个系统所需要的数据主要是：1）班级信息。包括班级代码、班级名称、班主任、班级人数、班级类别；2）上机记录信息。包括班级信息中的各项，以及上机人数、课程名称、辅导教师、上机时间、上机课时、使用机房、工作人员、备注等。由此可以建立一个班级信息表和一个上机记录信息表，同时再附加一些如班级

4、分类表、课程信息表、机房信息表、辅导教师信息表等数据信息表。3、对于界面的分析本系统满足界面简单、易学、易操作等要求。4、对系统的后期维护与二次开发的分析机房上机管理系统是一个面向各类学校的实用性软件，因此，软件本身的设计应考虑大部分学校容易进行维护的要求。同时，对于具有不同情况的学校或培训处，也可根据本校的情况进行二次开发。二、开发环境的选择由于本系统是面向广大规模较小的学校，因此其数据量并不是很大，加之机房管理人员水平参差不齐，绝大部分使用的是微软OFFICE办公系统软件，其界面都较为熟悉，操作起来也都易于上手。三、系统实

5、现收稿日期：2003——10——23作者简介：陈亮（1977—），男，汉族，安徽肖县人，新疆博尔塔拉蒙古自治州广播电视大学网络中心教师。1、系统主界面的实现：实现后的主界面如下图所示：此界面包括：1)7个组合框控件。各组合框控件的各相关属性如下表所示：2)一个命令按钮。用来将输入的数据转写入上机记录表中。控件类型控件属性属性值班级代码组合框（ComboBox）(名称)bjdmListRows8ListFillRangeclass!A2:B20上机人数组合框（ComboBox）(名称)sjrsListRows8ListFillR

6、angedict!E2:E52上机课程组合框（ComboBox）(名称)sjkcListRows8ListFillRangedict!B2:B20辅导教师组合框（ComboBox）(名称)fdjsListRows8ListFillRangedict!C2:C20上机课时组合框（ComboBox）(名称)ksListRows8ListFillRangedict!A2:A5使用机房组合框（ComboBox）(名称)jfListRows8ListFillRangedict!F2:F5(名称)gzry收稿日期：2003——10——23

7、作者简介：陈亮（1977—），男，汉族，安徽肖县人，新疆博尔塔拉蒙古自治州广播电视大学网络中心教师。工作人员组合框（ComboBox）ListRows8ListFillRangedict!D2:D51)若干单元格。这些单元格主要是用来显示一些相关信息。前一个图中序号、日期和班级名称等班级信息是数据库中数据成员之一。2、班级数据的自动显示班级数据的自动显示是利用OfficeVBA编制的一个函数来实现的，此函数通过调用class工作表中的班级信息表将所选择的班级信息显示在主界面中。它的定义如下：Functionclass1(be_

8、searched,k)found=FalseIfTrim(be_searched)=""Thenclass1=""ElseForx=2To15000IfTrim(be_searched)=Sheets("class").Cells(x,1)Thenfound=TrueExit