基于VB.NET的职业院校实验实训基地信息管理系统的实现

摘要：本文以職业院校实验实训基地信息管理系统的设计为背景，对使用VB .NET 2010程序设计语言和SQL Server 2008数据库管理系统编写代码，实现系统设计的各项功能和指标的思路、方法、技巧等技术问题进行了论述。

关键词：VB.NET；职业院校；实验实训基地；信息管理系统；实现

中图分类号：TP311.52 文献标识码：B 论文编号：1674-2117（2017）07-0076-03

● 引言

职业院校实验实训基地信息管理系统是以先进的信息技术为手段，对实验实训基地信息进行采集、加工、传递、存储和应用，对实验实训基地的教学活动进行战略规划，对教学活动中的要素进行计划、组织、领导和控制的决策过程，力求实验实训基地的教学资源能够有效配置、共建共享、协调运作，并且以最少的消耗获得最高的效率。

● 工具语言

经过调查、分析、对比，职业院校实验实训基地信息管理系统的实现应用基于Windows系统平台的面向对象的程序编程语言和企业级数据库管理系统作为开发工具，具体情况为：编程语言采用VB .NET 2010，数据库平台采用SQL Server 2008，运行环境采用Microsoft .NET Framework 4.0。

● 功能实现

根据职业院校实验实训基地信息管理系统的设计方案，系统的三大核心模块是资产管理、运行管理和人员管理模块，这三大模块又包含了相关的功能结构，各项功能的实现原理和过程如下。

1.资产管理

（1）资产登记管理

资产登记管理功能是资产管理模块的核心，资产信息被录入到系统并数字化后才能最终被使用，包括资产登记和仪器查询操作。具体工作流程如图1所示。

（2）设备维修管理

实验实训基地仪器设备需要维修时，管理人员可以使用设备维修管理功能进行报修、记录、查询等操作。具体工作流程如图2所示。

（3）设备报废管理

当设备处于报废状态时，管理人员可以通过设备报废管理功能向相关部门申请报废，经过审核后，相关部门即可从数据库删除报废信息，具体工作流程如图3所示。

（4）仪器使用管理

实训课堂上，需要使用相关仪器设备时，必须要履行借用手续，仪器的使用情况也都应该被记录下来，具体工作流程如图4所示。

2.运行管理

（1）教学安排管理

教学安排管理主要是对一定教学周期的课程情况进行安排，并为教师顺利地开展教学活动及管理人员监控教学提供依据，具体工作流程如图5所示。

（2）运行状态管理

为了宏观协调、管理实验实训基地，需要及时掌握各实验实训基地的运行状态，并根据实时状态安排教学任务，为教学工作服务，具体工作流程如图6所示。

（3）使用情况管理

作为培养技能型人才的重要场所，职业院校实验实训基地的总体规划、建设必须要有一定的依据，不能盲目为之。一方面要发挥实验实训基地训练学生技能的作用，另一方面要充分利用实验实训基地的仪器设备，不能造成资源浪费，使用情况管理功能的工作流程如图7所示。

3.人员管理

（1）实验员管理

实验员作为重要的教学服务人员，要求不能脱岗，系统在实现实验室管理人员考勤功能时，特别加入了机器识别功能，具体工作流程如图8所示。

（2）上课教师管理

上课教师的纪律考勤必不可少，这在实验实训基地开展教学活动时尤其重要，具体工作流程如图9所示。

（3）上课学生管理

上课学生的考勤工作由上课教师和班长、学习委员共同完成，考勤工作不仅要及时上报，还要作为教师对学生过程评价的重要依据，具体工作流程如图10所示。

● 系统编码

职业院校实验实训基地信息管理系统主要应用VB .NET程序设计语言中的ADO .NET技术编写代码实现其各项功能。系统各模块代码量庞大，下面列举课表编排模块中信息保存按钮的代码。

checkdata（）

If check = True Then

Select Case flag

Case "add"

Try

sqladapter.InsertCommand = New SqlCommand（"insert into [kebiao]（实验室，学期，时间，节次，星期一，星期二，星期三，星期四，星期五，星期六，星期日，备注） values（'" & ComboBox3.Text & "'，'" & ComboBox4.Text & "'，'" & ComboBox5.Text & "'，'" & ComboBox6.Text & "'，'" & TextBox1.Text & "'，'" & TextBox2.Text & "'，'" & TextBox3.Text & "'，'" & TextBox4.Text & "'，'" & TextBox5.Text & "'，'" & TextBox6.Text & "'，'" & TextBox7.Text & "'，'" & TextBox8.Text & "'）"， sqlconn）

If sqlconn.State = ConnectionState.Closed Then

sqlconn.Open（）

End If

sqladapter.InsertCommand.ExecuteNonQuery（）

MsgBox（"课表信息添加成功！"， MsgBoxStyle.Information， "成功提示"）

Catch sqlExceptionErr As SqlClient.SqlException

MessageBox.Show（sqlExceptionErr.Message）

Finally

sqlconn.Close（）

End Try

Kebiaobianpai_Load（sender， e）

Kebiaobianpai_Activated（sender， e）

Case "modify"

Try

sqladapter.UpdateCommand = New SqlCommand（"update [kebiao] set 实验室='" & ComboBox3.Text & "'，学期='" & ComboBox4.Text & "'，节次='" & ComboBox5.Text & "'，时间='" & ComboBox6.Text & "'，星期一='" & TextBox1.Text & "'，星期二='" & TextBox2.Text & "'，星期三='" & TextBox3.Text & "'，星期四='" & TextBox4.Text & "'，星期五='" & TextBox5.Text & "'，星期六='" & TextBox6.Text & "'，星期日='" & TextBox7.Text & "'，备注='" & TextBox8.Text & "' where id='" & DataGridView1.CurrentRow.Cells（"id"）.Value & "'"， sqlconn）

If sqlconn.State = ConnectionState.Closed Then

sqlconn.Open（）

End If

sqladapter.UpdateCommand.ExecuteNonQuery（）

MsgBox（"課表信息修改成功！"， MsgBoxStyle.Information， "成功提示"）

Catch ex As Exception

MessageBox.Show（ex.ToString）

Finally

sqlconn.Close（）

End Try

Kebiaobianpai_Load（Nothing， Nothing）

End Select

End If

● 小结

职业院校实验实训基地信息管理系统的实现是一件耗时费力并且严谨的工作，不仅要关注各项功能是否能够实现，还要考虑系统的运行效率、安全性、可靠性、稳定性等能否达到预期的设计目标。

参考文献：

[1]企业信息管理系统[EB/OL].[2016-09-04].http：//baike.baidu.com/item/企业信息管理系统.

[2]邵峰晶.VB .NET程序设计[M].北京：电子工业出版社，2011.

作者简介：张超（1983—），男，汉族，陕西西安人。现任甘肃林业职业技术学院生态旅游教研室专业教师，讲师，主要从事信息技术的教学和研究工作。