基于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—），男，漢族，陜西西安人。現任甘肅林業職業技術學院生態旅游教研室專業教師，講師，主要從事信息技術的教學和研究工作。