钱文伟
浙江环茂自控科技有限公司 浙江省杭州市 310001
摘要：污染源自动监测监控系统运行中，经常会发生自动分析仪器所使用的试剂过期现象，这种现象在生态环境部门的检查管理中属于不正常运行，严重时会被判定为弄虚作假，故需要采取可靠的手段，确保自动分析仪器在使用的过程中避免发生试剂过期现象。
关键词：数据库；VBA；自动监测监控系统运行；试剂过期
按照以往惯例，污染源自动监测监控系统中的自动分析仪所使用的试剂，由运行该系统的技术人员负责跟踪，在规定的试剂有效期到达前，及时跟换，保证自动分析仪所使用的试剂在有效期内，从而保证自动分析仪所监测的数据的准确性。但由于技术人员一般每个人要负责15-20套系统，每套系统包含2-5台自动分析仪，仪器总量较多，依靠人工跟踪和记忆，难免会有疏忽和遗漏，造成试剂过期的现象。按照《污染源自动监控设施现场监督检查技术指南》（环境保护部2012年三月）对试剂单元的检查规定，“试剂超过使用期限”属于不正常运行情形，根据《中华人民共和国水污染防治法》第二十三条“重点排污单位还应当安装水污染物排放自动监测设备，与环境保护主管部门的监控设备联网，并保证监测设备正常运行”之规定，已属于违法。所以在污染源自动监测监控系统运行中，迫切需要一种手段来避免此类情形发生，一种基于VBA编程的数据库管理工具应运而生。
该方法使用的是ACCESS数据库，对辖区内所有污染源自动监测监控系统的自动分析仪器的试剂配置和使用进行自动化管理，诸如试剂的配置时间、浓度、有效期、更换时间等均由程序记忆，不再需要人工记忆。实现的途径如下：
1、数据库设计
数据库表结构：污染源自动监测监控系统点位表、自动分析仪品种明细表、各种自动分析仪试剂库表、最后一次试剂更换时间表、历史更换记录存档表等
数据库查询：按日期设定的更换时间查询
报表：试剂更换明细、试剂配置明细和用量
2、VBA编程：
Msg = "试剂更换完毕？"
Style = vbYesNo
Response = MsgBox(Msg, Style)
If Response = vbYes Then ' 用户按下“是”、记录最近一次更换时间并计算下一次配置更换时间
stBm = Me.编码
stSbmc = Me.设备名称
Set rst1 = New ADODB.Recordset
sql1 = "SELECT zjghsj.编码, zjghsj.设备名称, zjghsj.耗材类别, zjghsj.耗材名, zjghsj.浓度, zjghsj.用量, zjghsj.下次更换时间 AS 在下列日期前更换, Format(DateAdd('d',-7,下次更换时间),'yyyy/mm/dd') AS 配置时间, Format(DateAdd('d',zjghsj.更换周期,配置时间),'yyyy/mm/dd') AS 有效期 FROM zjghsj INNER JOIN zdmx ON zjghsj.编码=zdmx.编码 WHERE zjghsj.编码='" & stBm & "'and zjghsj.设备名称='" & stSbmc & "'"
Set rst2 = New ADODB.Recordset
rst1.Open sql1, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rst1.MoveFirst
Do Until rst1.EOF
CurrentProject.Connection.Execute "insert into ghlsjl (编码,设备名称,耗材类别,耗材名,浓度,用量,配置时间,到期时间) values('" & rst1(0) & "','" & rst1(1) & "','" & rst1(2) & "','" & rst1(3) & "','" & rst1(4) & "','" & rst1(5) & "','" & rst1(7) & "','" & rst1(8) & "')"
sql2 = "select 下次更换时间 from zjghsj where 编码='" & rst1(0) & "'and 设备名称='" & rst1(1) & "'and 耗材类别='" & rst1(2) & "'and 耗材名='" & rst1(3) & "'and 浓度='" & rst1(4) & "'and 用量=" & rst1(5) & "and 下次更换时间=#" & rst1(6) & "#"
rst2.Open sql2, CurrentProject.Connection, 1, 3
Do Until rst2.EOF
rst2(0) = rst1(8)
rst2.Update
rst2.MoveNext
Loop
rst1.MoveNext
rst2.Close
Loop
Me.Report.Requery
Else ' 用户按下“否”、放弃操作
End If
3、主要界面
（1）按日期设定的更换时间查询：
.png)
结束语：通过采用基于VBA编程的ACCESS数据库对自动分析仪所用试剂进行配置和更换的时间管理，无缝衔接前一次和后一次的试剂更换时间，保证试剂使用在有效期内。经过两年多的实际工作检验，无一差错，完全满足生态环境部门的管理要求。另外，为提高对自动分析仪运行和维护的水平，还可以对数据库进行扩展，达到对需要定期更换的易耗品或需定期开展的检查项目进行时间管理，均能取得满意的效果。
参考文献：
《污染源自动监控设施现场监督检查技术指南》（环境保护部2012年三月）
作者简介：钱文伟（1966-03-22），男，汉族，籍贯：浙江省杭州市，当前职称：工程师，学历：大学，研究方向：环境保护