电子天平检定管理系统的研发及应用

安民军

甘肃省计量研究院 甘肃兰州 730050

随着我国经济及社会的发展，各行各业对电子天平的检定需求量增多，特别是2017年4月强检免费开始以后，电子天平作为强检器具，我院的电子天平检定台件数也猛增，从过去每年2000台件数增加到现在3000多台件数。我院的原始记录还是手工填写，随着工作量的增加，导致天平检定项目无法按时完成检定工作，在这种情况下，研发出电子天平检定管理系统。本系统主要通过232、485串口通信接口读取数据或者通过电脑直接现场手工输入读取的数据。通过VB6.0编程将证书号、委托方、委托单号、制造厂商、出厂编号、型号规格、检定日期等信息输入后通过选择电子天平不同模板，选择保存在Word2007固定位置显示出来。

其界面主要包含有信息输入、模板管理、信息查询、退出等功能，模板管理主要有添加、删除、刷新、修改等功能。

通过输入委托方、委托单号、制造厂商、出厂编号、委托单号、检定日期等信息来查询对应信息。

在输入基本信息结束后，打开对应原始记录，可以通过连接串口读取数据或者直接通过手动输入读取的电子天平信息。主要是考虑到各种电子天平生产厂家及型号众多及各种接口信息不同，本系统前期考虑进行手动输入信息。在输入采集到的信息后，通过Word的VBA编程生成三个宏。

其生成的快捷方式如图3左上角，相对应电子天定有几个拐点。电子天平有0个拐点对应宏1，电子天平有1个拐点对应宏2，电子天平有2个拐点对应宏3，点击对应按钮，自动填写计算电子天平的偏载误差、重复性和示值误差。

图1 信息输入界面

图2 信息查询界面

图3 Word三个宏快捷方式

在选择的模板中，由于对于模板除了进行宏编程外，对其偏载误差、重复性、试验载荷的误差也进行了公式运算，通过点击宏快捷按钮，可以进行对宏的更新。及时发现手动输入信息是否有错，保证了原始记录的正确性,减少了我单位过去手写的原始记录经常出错的问题。

下面程序是自动更新宏：

Dim aField As Field

Dim aStory As Range

''' Update all fields in the document

For Each aStory In ActiveDocument.StoryRanges

For Each aField In aStory.Fields

aField.Update

Next aField

Next aStory

Set adoc=ActiveDocument

下面程序是求电子天平偏载误差程序：

With adoc

Set tb2=.Tables(2)

maxValue=0

maxValue=(Replace(tb2.Rows(2).Cells(5).Range.Text，Chr(7)，""))

For i=3 To tb2.Rows.Count

If Abs(maxValue)< Abs(Replace(tb2.Rows(i).Cells(5).Range.Text，Chr(7)，""))Then

maxValue=(Replace(tb2.Rows(i).Cells(5).Range.Text，Chr(7)，""))

End If

Next

a=Val(tb2.Cell(2，1))

.Tables(5).Cell(5，2)=Format(maxValue / a，"0.0")& "e"

.Tables(5).Cell(5，2).Range.Characters(.Tables(5).Cell(5，2).Range.Characters.Count-1).Font.Italic=True

Set tb2=.Tables(3)

下面程序是求重复性程序：

Set tb1=.Tables(2)

minV=(Replace(tb2.Rows(2).Cells(5).Range.Text，Chr(7)，""))

maxV=(Replace(tb2.Rows(2).Cells(5).Range.Text，Chr(7)，""))

For i=2 To tb2.Rows.Count

If minV > Replace(tb2.Rows(i).Cells(5).Range.Text，Chr(7)，"")Then

minV=Replace(tb2.Rows(i).Cells(5).Range.Text，Chr(7)，"")

End If

If maxV < Replace(tb2.Rows(i).Cells(5).Range.Text，Chr(7)，"")Then

maxV=Replace(tb2.Rows(i).Cells(5).Range.Text，Chr(7)，""

End If

Next

b=Val(tb1.Cell(2，1))

.Tables(5).Cell(6，2)=Format(Abs((maxV-minV)/ b)，"0.0")& "e"

.Tables(5).Cell(6，2).Range.Characters(.Tables(5).Cell(6，2).Range.Characters.Count-1).Font.Italic =True

Set tb2=.Tables(2)

maxValue=0

maxValue=(Replace(tb2.Rows(2).Cells(5).Range.Text，Chr(7)，""))

For i=3 To tb2.Rows.Count

If Abs(maxValue)< Abs(Replace(tb2.Rows(i).Cells(5).Range.Text，Chr(7)，""))Then

maxValue=(Replace(tb2.Rows(i).Cells(5).Range.Text，Chr(7)，""))

End If

Next

a=Val(tb2.Cell(2，1))

.Tables(5).Cell(5，2)=Format(maxValue / a，"0.0")& "e"

.Tables(5).Cell(5，2).Range.Characters(.Tables(5).Cell(5，2).Range.Characters.Count-1).Font.Italic=True

在原始记录管理中应用百度云同步盘将原始记录定期将存在百度云中，防止因电脑等外部原因丢失原始记录。

同时为了满足我省地县对电子天平检定的需求，在上述的基础上开发出生成其记录的功能，其VB中添加了如下代码：

Private Sub Command2_Click()

Dim fso1 As New FileSystemObject

Dim StrDoc1 As String

StrDoc1=App.Path & "" & Cmb证书号.Text & "证书" & ".doc"

fso1.CopyFile App.Path & "证书模板.doc"，StrDoc1，True

Call EditWord(StrDoc1)

End Sub

在word宏中加入如下代码：

Sub zhengshu()

Dim myPath As String

myPath=ActiveDocument.Name

Selection.Copy

myDoc=Left(myPath，Len(myPath)-4)

myDoc1=Word.Application.Documents.Open("E：天平地县检定" & "" & myDoc & "证书" & ".doc")

Selection.Find.ClearFormatting

With Selection.Find

.Text="检 定 结 果"

.Replacement.Text=""

.Forward=True

.Wrap=wdFindContinue

.Format=False

.MatchCase=False

.MatchWholeWord=False

.MatchByte=True

.MatchWildcards=False

.MatchSoundsLike=False

.MatchAllWordForms=False

End With

Selection.Find.Execute

Selection.GoTo What：=wdGoToLine，Which：=wdGoToNext，Count：=1，Name：=""

Selection.PasteAndFormat(wdPasteDefault)

Selection.Tables(1).AutoFitBehavior(wdAutoFitWindow)

End Sub

电子天平检定管理系统的研发及应用节省了大量的人力和物力，实现了记录和证书的自动化和错误率的下降，为我省的计量检定工作做出了一定贡献。