<筛选条件:主样信息导入表_明细.主样编号 = 本报表.Sheet1:样品编号>
l销毁修改2(子样品修改公式)
保存后, 回写刷新 [子样信息导入表_明细] 中满足如下条件的数据:
<筛选条件:子样信息导入表_明细.子样编号 = 本报表.Sheet1:样品编号>
3.5 样品实体库管理和样品信息查看
样品在实体库中的存放需要直观地在Excel表上显示,并使用Excel服务器进行管理。使用Excel服务器能方便的地对其进行修改,而不需要像通过编程去改变动代码。
根据需求,样品存放的架共设有16个样品库存架,其编号为A至-P,除了F、G、N、O架是6行7列共42个格之外,其余每一个库存架是6行8列共有48个格,分6行8列,其中编号为G、F、O、N的架是6行7列共42个格。规定约定每一个格最多存放20个样品,具体存放样式如图86所示。

图8 6 样品库存架
在设计上,要求是分开样品库存存放架和样品库存存放格是不同的概念,用户自行在“样品存放库存架表”上选择要存放样品库存的架的编号,再从选中的样品存放架的编号转到该编号所对于的“样品存放库存格表”,“样品存放库存格表”是一张模拟现实样品存放库存架结构的Excel表,在表上可模拟与实际一样对样品进行存放。
样品信息查看按钮的VBA程序如下:
Private SubCommandButton1_Click()
Dim r As Long, c As Long
r= ActiveCell.Row '确定当前的行号
c= ActiveCell.Column '确定当前的列号
'如果当前行没有数据,什么也不做,返回。
If Cells(c, r) = '' Then Exit Sub '用当前行的数据新建“样品信息查看表”
Dim oAdd As Object
Set oAdd = Application.COMAddIns('ESClient.Connect').Object
oAdd.addInitData'样品编号', Cells(r,c)
oAdd.newReport'样品信息查看表'
Set oAdd = Nothing
End Sub
图9显示了在EXCEL表上的样品库存格。

图9 样品库存格4 结束语
将样品管理模块建立在Excel服务器之上,不但丰富了系统的功能,简化了系统的设计,同时也提高了对信息管理的能力。通过LIMS,不但能对整个样品检测流程进行严格而有效的控制,同时也能在Excel服务器上进行样品的情况跟踪,对其严格管理,从而使实验室可以达到自动化运行、信息化管理和无纸化办公的目的。
参考文献
[1]林茂.实验室信息管理系统LIMS的选择与建立[J].现代科学仪器,2008(05).118-120.
[2]郑中华,闻向东.LIMS技术的研究进展[J].分析试验室,2007(21).252-254.
[3]王振丰等.实验室信息管理系统设计与探讨[J].现代测量与实验室管理,2006(05).49-51.
[4]李辉等.Excel 2003 VBA办公应用[M].人民邮电出版社,2006.
[5]陈胤等.实验室信息管理系统研究与开发[J].理化检验-化学分册,2006(07).594-596.
2/2 首页 上一页 1 2 |