纺织品甲醛含量计算机辅助检测管理员系统

摘 要：甲醛含量计算机辅助检测系统实现了甲醛测试试验工作的计算机化以及数据处理的自动化,可协助检测工程师快速、精准地完成甲醛含量测试工作.该系统的正常运转离不开良好的日常维护,因此本文研究开发了管理员系统,实现了甲醛标准曲线存储、试验工程师信息、检测项目的查找、添加和删除等功能.实践证明,该管理员系统满足了甲醛含量计算机辅助检测系统对日常维护的需求.

关 键 词：纺织品；甲醛含量；计算机辅助检测

检测实验室自动化成为现代实验室发展的趋势之一,目前国内研究人员已经开始部分检测项目自动化的研究[1-3].为提高纺织品甲醛测试的效率、减少差错和实现无纸化操作,我们研制了甲醛含量计算机辅助检测系统,目前该系统已经开始试运行.该系统的成功应用实现了甲醛测试试验工作的计算机化以及检测数据的自动化处理,可协助检测工程师快速、精准地完成甲醛含量测试工作,大大减轻试验工程师的工作量、劳动强度,减少了劳动时间,同时完全杜绝了人工计算产生的错误,实现了试验过程的无纸化操作,每年可以节约大量办公用纸张[1].

依据实验室管理规定,对于甲醛含量计算机辅助检测系统的管理和维护必须设置相应的权限,并由专门的管理人员来管理,因此有必要设计开发针对该系统的管理员系统,以保障甲醛含量计算机辅助检测系统的正常运转.

1系统模块结构及其功能

为满足管理需要,管理员系统包括甲醛标准曲线管理、登录功能、试验工程师管理（查找、添加、删除）功能、检测项目管理（查找、添加、删除、分组）功能、系统管理员账户及修改等功能.

本系统中甲醛标准曲线管理主要功能是根据GB/T2912.1—2009《纺织品甲醛的测定第1部分游离和水解的甲醛(水萃取法)》的要求,甲醛标准曲线数据需要定期更新.试验工程师管理模块主要功能是查找、添加新工程师账户或删除已有工程师账户信息.检测项目管理模块的功能为添加、删除、查找检测项目,另外还对检测项目进行分组.

2数据库设计

2.1数据库选择

Access2000是关系数据库开发工具.数据库能汇集各种信息以供查询、存储和检索.Access的优点在于它能使用数据表示图或自定义窗体收集信息.数据表示图提供了一种类似于Excel的电子表格,可以使数据库一目了然.Access也提供了数据存储库,可以使用桌面数据库文件把数据库文件置于网络文件怎么写作器,与其他网络用户共享数据库[4].

2.2数据库结构

表1为本管理员系统的数据库结构表.该数据库由甲醛曲线表、检测项目表和检测工程师表组成,用于存储相应数据信息.

3功能实现

3.1界面设计

3.1.1主操作界面

管理员操作界面包含的操作按钮有：人员管理按钮,负责调用检测工程师的编辑、添加和删除模块；检测项目管理按钮,负责调用添加和编辑检测项目模块；管理员信息修改按钮,负责调用管理员和修改模块.

3.1.2人员管理界面

在日常系统维护过程中常需要对检测工程师账户进行管理和维护.因此本系统设计了【人员管理】调用按钮,用来调用用户添加和用户删除界面.

3.1.3检测项目管理界面

在日常系统维护过程中常需要对检测项目进行管理和维护.因此本系统设计了【检测项目管理】按钮,用来调用检测项目添加和检测项目删除界面.

3.1.4管理员账户及管理界面

本系统还设计有管理员账户及修改功能,此功能的实现通过【及账户修改】按钮调用管理员及账户修改模块来完成.

3.2功能的实现

3.2.1删除功能的实现

删除步骤如下,双击控件MSHFlexGrid1中显示出的符合条件的信息,利用数据库查找功能查找出需要删除的检测工程师名称,然后执行删除操作,其源代码如下：

Dimstr_testerAsString

del等于“+MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row,0)+”

str_tester等于“select*fromtesterwheretesterName等于‘”+MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row,0)+“’”

Load_Module.main

rs_tester.CursorType等于adOpenStatic

rs_tester.Openstr_tester

IfMsgBox(“确认要删除该检测工程师吗”,vbCritical+vbYesNo,“删除”)等于vbYesThenn.Execute“delete*fromtesterwheretesterName等于”“+MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row,0)+”

MsgBox"删除成功"

n.Close

EndIf

3.2.2修改功能的实现

修改功能实现步骤如下,首先判断管理员原,如果不正确则跳出程序,如果原正确则进行新两次确定,确定正确后两次输入的新一致则提交数据库存储,其源代码如下：

Withrs_tester

If.State等于adStateOpenThen.Close

Load_Module.main

.CursorType等于adOpenStatic

.Openstr_tester

If.Fields(2)等于Txt_password1.TextThen

If.State等于adStateOpenThen.Close:n.Close