實驗室器材管理系統的開發與應用

摘要實驗器材是完成實驗的保障，實驗器材的管理是一項非常煩瑣的工作。實驗室器材管理系統的開發和應用使實驗器材的管理工作變得簡單了。

關鍵字 實驗室器材管理系統；系統結構；關鍵代碼；運行環境

中圖分類號： G482 文獻標識碼：A文章編號：1671-489X（2006）12-0057-03

Development and Application of System about Laboratory Device Manages//LIU Xinghong

AbstractExperiment device is the complete guarantee of experience and it is a very trivial work to manage experiment device .It is that the development and application of the system about laboratory device managesmakes management worksimpler.

KeywordsThe system about laboratory device manages; system structure; key code; circulate environment

Author’s address Hubei Normal University，435002， Hubei， China

實驗室工作是一所學校教學工作的重要組成部分，而實驗器材是完成教學任務的物質基礎。實驗器材的管理非常煩瑣，比如通常實驗儀器的信息要素就包括編號、儀器名稱、啟用日期、價格、位置、狀況、型號、分類、出廠序號、所屬實驗、經費來源、入庫單號、產地和備注等，其中狀況、所屬實驗、分類這些要素有相當大的重復性，例如狀況只有“新品”、“堪用”、“待修”、“報廢”這幾種可能。所以，為了使教學工作能夠更順利地進行，更好發揮儀器在教學中的作用，特設計并開發一套實驗器材管理系統，以利于實驗室的人員更好地利用實驗器材的各種數據資源。

1系統結構

本系統包含六個子系統：設備管理系統、固定資產管理系統、藥品管理系統、貴重儀器管理系統、損壞情況記錄系統、密碼管理系統，每個子系統有不同的分工。系統主界面如下：

2 系統主要功能及關鍵代碼

在本實驗器材管理系統中可以做到實現如下的功能。

2.1 添加功能

可以對新的貴重儀器進行添加記錄（設備名稱、分類號、編號、出廠年月、價格、出廠號、型號、購入年月、規格、供應商、保管單位、變動情況、使用情況、損壞情況等），添加之后，即可在主窗口中顯示該記錄所有信息。

Public Sub insert()

Dim Rc As Long

db_connect'創建數據庫鏈接，打開數據庫

sqlstmt = \"insert into valuable(yqid，yqnumber，yqname，yqtype，yqstyle，\" _

+ \"provider，outnumber，yqprice，outdate，indate，store，yqchange，\" _

+ \"yqmethod)values('\" + Trim(yqid) + \"'，'\" + Trim(str(yqnumber)) _

+ \"'，'\" + Trim(yqname) + \"'，'\" + Trim(yqtype) + \"'，'\" + Trim(yqstyle) + \"'，'\"

+ Trim(provider) _

+ \"'，'\" + Trim(outnumber) + \"'，\" + Trim(yqprice) + \"，'\" + Trim(outdate) _+ \"'，'\" + Trim(indate) + \"'，'\" + Trim(store) + \"'，'\" + Trim(yqchange) + \"'，'\" + Trim(yqmethod)_

+ \"')\"

OdbcExt (sqlstmt)

MsgBox \"數據添加成功！\"

Rc = SQLFreeStmt(Hstmt， SQL_DROP)

db_disconnect

End Sub

2.2 修改功能

可以對器材信息進行任意修改。

Public Sub update(ByVal tmpid As String)

Dim Rc As Long

db_connect

sqlstmt = \"update valuable set yqid='\" + Trim(yqid) + \"'，yqnumber='\" + Trim(yqnumber) _

+ \"'，yqname='\" + Trim(yqname) + \"'，yqtype='\" + Trim(yqtype) + \"'，yqstyle='\" + Trim(yqstyle) _ + \"'，provider='\" + Trim(provider) + \"'，outnumber='\" + Trim(outnumber) _

+ \"'，yqprice=\" + Trim(yqprice) + \"，outdate='\" + Trim(outdate) _

+ \"' ，indate='\" + Trim(indate) + \"'，store='\" + Trim(store) + \"'，yqchange='\" + Trim(yqchange) _+ \"'，yqmethod='\" + Trim(yqmethod) + \"' where yqid=\" + Trim(tmpid)

OdbcExt (sqlstmt)

MsgBox \"數據修改成功！\"

Rc = SQLFreeStmt(Hstmt， SQL_DROP)

db_disconnect

2.3 刪除功能

當器材、藥品等因報廢、用完了或其它原因調出所管理的范圍，可以對器材、藥品進行刪除。執行刪除操作時，系統會彈出一個確認對話框。

Private Sub Cmd_Del_Click()

Dim tmpid As Long

If Adodc1.Recordset.EOF = True Then

MsgBox \"請選擇所有刪除的記錄\"

Exit Sub

End If

tmpid = Adodc1.Recordset.Fields(0)

If MsgBox(\"是否刪除當前行？\"， vbYesNo， \"確認\") = vbYes Then

Call myvaluable.delete(tmpid)

End If

Adodc1.Refresh

End Sub

2.4查詢功能

對實驗器材進行查詢是經常有的，有了本系統，可以完成實驗儀器的各種查詢任務。

2.5 密碼功能

此功能主要用于驗證用戶更改。當用戶輸入正確的舊密碼后，系統允許用戶進行密碼修改，如果輸入的舊密碼有誤，系統將給出提示，并且不允許其進行進一步的操作。

Public Function in_db(ByVal tmpuser As String) As Boolean

Dim Rc As Long

db_connect

sqlstmt = \"Select *From [user] where username='\" + Trim(tmpuser) + \"'\"

OdbcExt (sqlstmt)

If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then

in_db = False

Else

in_db = True

End If

Rc = SQLFreeStmt(Hstmt， SQL_DROP)

db_disconnect

End Function

Exit Sub

3系統運行環境

本系統是基于Visual Basic6.0和SQL SERVER 7.0開發的，系統應在windows 2000 下運行，系統在運行之前首先要安裝SQLSERVER

4應用舉例

由于現在高校招生規模在不斷擴大，教師的工作量更加繁重，開發本系統就是為了減輕教師的工作壓力與難度。比如要給學生開設\"電泳\"實驗，先看這實驗需要哪些器材，利用本系統的儀器查詢功能，很快將儀器位置、臺數、好壞等等全部顯示出來，實驗就可以最快的速度準備好。即便是新老師去上課也易于掌握。許多實驗室教師不固定，同一個實驗許多教師去上，教師之間的儀器交接是一樁頭痛的事，有本系統的幫助，交接時就交得相對容易。

另外，手工記賬時代，領導要對實驗室的全局狀況深入了解是不太容易的，往往為了一個數據，要等好幾天甚至更長的時間。現在，領導想了解哪方面的情況，就可以很快得到。比如想知道該修理的設備，利用自由統計，統計待修的所有儀器，瞬間得到結果。利用數據合并功能將全體實驗室的數據合并，借助多樣的統計與輸出功能，獲得預期的報表與圖表，全方位展示整個單位的實驗儀器狀況。

5 使用本系統要注意的問題

所有的工作成果的具體表現就是系統數據庫，本系統充分考慮了安全問題，系統內嵌自動備份與修復。為避免硬盤損壞，還應有備份，如果系統數據無法自動恢復，先重新安裝系統，新系統的數據是空的，然后利用數據合并功能從軟盤或其他硬盤備份恢復數據。