实验室器材管理系统的开发与应用作者：刘兴红来源：《中国教育技术装备》2006年第12期摘要实验器材是完成实验的保障，实验器材的管理是一项非常烦琐的工作。
实验室器材管理系统的开发和应用使实验器材的管理工作变得简单了。
关键字实验室器材管理系统；系统结构；关键代码；运行环境中图分类号： G482 文献标识码：A文章编号：1671-489X（2006）12-0057-03Development and Application of System about Laboratory Device Manages//LIU XinghongAbstractExperiment 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 environmentAuthor’s address Hubei Normal University,435002, Hubei, China实验室工作是一所学校教学工作的重要组成部分，而实验器材是完成教学任务的物质基础。
实验器材的管理非常烦琐，比如通常实验仪器的信息要素就包括编号、仪器名称、启用日期、价格、位置、状况、型号、分类、出厂序号、所属实验、经费来源、入库单号、产地和备注等，其中状况、所属实验、分类这些要素有相当大的重复性，例如状况只有“新品”、“堪用”、“待修”、“报废”这几种可能。
所以，为了使教学工作能够更顺利地进行，更好发挥仪器在教学中的作用，特设计并开发一套实验器材管理系统，以利于实验室的人员更好地利用实验器材的各种数据资源。
1系统结构本系统包含六个子系统：设备管理系统、固定资产管理系统、药品管理系统、贵重仪器管理系统、损坏情况记录系统、密码管理系统，每个子系统有不同的分工。
系统主界面如下：2 系统主要功能及关键代码在本实验器材管理系统中可以做到实现如下的功能。
2.1 添加功能可以对新的贵重仪器进行添加记录（设备名称、分类号、编号、出厂年月、价格、出厂号、型号、购入年月、规格、供应商、保管单位、变动情况、使用情况、损坏情况等），添加之后，即可在主窗口中显示该记录所有信息。
Public Sub insert()Dim Rc As Longdb_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_disconnectEnd Sub2.2 修改功能可以对器材信息进行任意修改。
Public Sub update(ByVal tmpid As String)Dim Rc As Longdb_connectsqlstmt = "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_disconnect2.3 删除功能当器材、药品等因报废、用完了或其它原因调出所管理的范围，可以对器材、药品进行删除。
执行删除操作时，系统会弹出一个确认对话框。
Private Sub Cmd_Del_Click()Dim tmpid As LongIf Adodc1.Recordset.EOF = True ThenMsgBox "请选择所有删除的记录"Exit SubEnd Iftmpid = Adodc1.Recordset.Fields(0)If MsgBox("是否删除当前行？", vbYesNo, "确认") = vbYes ThenCall myvaluable.delete(tmpid)End IfAdodc1.RefreshEnd Sub2.4查询功能对实验器材进行查询是经常有的，有了本系统，可以完成实验仪器的各种查询任务。
2.5 密码功能此功能主要用于验证用户更改。
当用户输入正确的旧密码后，系统允许用户进行密码修改，如果输入的旧密码有误，系统将给出提示，并且不允许其进行进一步的操作。
Public Function in_db(ByVal tmpuser As String) As BooleanDim Rc As Longdb_connectsqlstmt = "Select *From [user] where username='" + Trim(tmpuser) + "'"OdbcExt (sqlstmt)If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Thenin_db = FalseElsein_db = TrueEnd IfRc = SQLFreeStmt(Hstmt, SQL_DROP)db_disconnectEnd FunctionExit Sub3系统运行环境本系统是基于Visual Basic6.0和SQL SERVER 7.0开发的,系统应在windows 2000 下运行,系统在运行之前首先要安装SQLSERVER4应用举例由于现在高校招生规模在不断扩大，教师的工作量更加繁重，开发本系统就是为了减轻教师的工作压力与难度。
比如要给学生开设"电泳"实验，先看这实验需要哪些器材，利用本系统的仪器查询功能，很快将仪器位置、台数、好坏等等全部显示出来，实验就可以最快的速度准备好。
即便是新老师去上课也易于掌握。
许多实验室教师不固定，同一个实验许多教师去上，教师之间的仪器交接是一桩头痛的事，有本系统的帮助，交接时就交得相对容易。
另外，手工记账时代，领导要对实验室的全局状况深入了解是不太容易的，往往为了一个数据，要等好几天甚至更长的时间。
现在，领导想了解哪方面的情况，就可以很快得到。
比如想知道该修理的设备，利用自由统计，统计待修的所有仪器，瞬间得到结果。
利用数据合并功能将全体实验室的数据合并，借助多样的统计与输出功能，获得预期的报表与图表，全方位展示整个单位的实验仪器状况。
5 使用本系统要注意的问题所有的工作成果的具体表现就是系统数据库，本系统充分考虑了安全问题，系统内嵌自动备份与修复。
为避免硬盘损坏，还应有备份，如果系统数据无法自动恢复，先重新安装系统，新系统的数据是空的，然后利用数据合并功能从软盘或其他硬盘备份恢复数据。