公路动态地磅证书统一打印系统的开发
本系统主要是基于VB、ACCeSS、Word及Excel等技术开发的动态地磅证书及附件统一打印系统。 该系统具备录人、查询、打印、提醒等功能。在规范化管理的同时，提髙工作效率。
0.引言
自2006年我院在全省开展动态公路车辆自动 衡器检定以来，我们不断提出更高、更新的要求来 保证各收费站计重收费的顺利开展。加强信息化 服务，规范动态地磅的管理是我们的一贯目标。 如何对证书进行标准化、有效化管理，使其达到一 体式程序化，已成为工作重点。本着保证工作质 量，提高工作效率的原则，我们制作了动态地磅证书统一打印系统。
Visual Basic是Mirosoft公司开发的基于面向对 象的一种语言，具有功能强大、操作简单等特点，尤 其是与Mirosoft其它产品如Access、Word、Excel的 无缝连接，使它成为我们编程首选。
1.系统功能模块
系统主要功能包括:动态地磅数据录人及修 改;数据快速査询及表格方式数据査询结果输出； 自动、一体化的证书正、附件打印；检定到期提醒； 功能扩充。系统基本框架图如图1所示。
2.技术实现
本系统在Windows XP平台上开发，利用VB编 程语言和Access数据库管理技术进行编制。Win- dows XP及以上环境均可运行该程序。
2. 1权限管理
检定员经授权后凭用户名和密码进入系统，并 有权处理本人录入的数据，管理员权限则可进行任 意操作。采用权限管理有效加强了数据独立性。
2.2基本信息录入管理
采用菜单选择模式,通过数据库记忆功能自动 显示数据。运用数据库自动搜索技术,将数据显示于 下拉菜单列表中,若无所需信息,则进行首次录入。
通过选择高速公路名称，该公路所有已录收费 站名称及车道编号自动依次显示于相应列表中。系 统根据该高速公路名称及收费站名称进行自动组合 式检索，并将对应申请者地址及出厂编号一并显示。 当选择“生产厂家”，与该厂家信息相关的型号、仪器 名称则自动显示在对应菜单项中。部分代码如下： rs. Open " select distinct 申请者地址 from tab jz where高速公路名称=…& Combol. Text & and收费 站名称=…& Combo2. Text & , cnn, adOpenKeyset, ad- LockOptimistic
If rs. RecordCount > 0 Then
Text2. Text = rs. Fields ("申请者地址")
‘按高速公路及收费站名称查询数据库，定位 申请者地址
检定日期方面，我们采用DTpicker控件模式 显示日期，保持日期格式统一性。系统则根据其检 定日期自动计算并显示有效日期。代码如下：
If Month ( DTPickerl. Value) > = 7 And Month(DTPickerl. Value) =8 And Day( DTPickerl. Value) =29 Or Month( DTPickerl. Value) = 8 And Day ( DT-Pickerl .Value) = 30 Or Month( DTPickerl. Value)= 8 And Day(DTPickerl. Value) =31 Then
DTPicker3. Value = DTPickerl. Year + 1 & 11 - 3 - 1"
Elself Month ( DTPickerl. Value ) > = 7 And Month ( DTPickerl. Value ) = 10 And Day (DTPickerl. Value) =31 Then
DTPicker3. Value = DTPickerl. Year + 1 & " - 5-1"
Elself Month ( DTPickerl. Value) > = 7 And Month ( DTPickerl. Value ) = 12 And Day (DTPickerl. Value) =31 Then
DTPicker3. Value = DTPickerl. Year + 1 & "- 7-1"
Elself Month( DTPickerl. Value) < 7 And Month (DTPickerl. Value) =3 And Day( DTPickerl. Value)= 31 Then
DTPicker3. Value = DTPickerl. Year & ” -10 -1" Elself Month( DTPickerl. Value) < 7 And Month (DTPickerl. Value) =5 And Day(DTPickerl. Value)= 31 Then
DTPicker3. Value = DTPickerl. Year & " - 12 - 1" Elself Month(DTPickerl. Value) < 7 Then DTPicker3. Value = DTPickerl. Year & " - " & DTPickerl. Month + 6 & M -" & DTPickerl. Day Else
DTPicker3. Value = DTPickerl. Year + 1 & ?-" & DTPickerl. Month - 6 & M -" & DTPickerl. Day ‘除特殊日期单独设定外，其余按有效期六个 月计算 End If
DTPicker2. Value = DTPicker3 - 1，有效期为 六个月的前一天
采用选择方式录入基本信息，极大地避免了传 统手工方式输人文字的缺陷及人工计算的错误，大 大节约了工作时间。
3)数据结果录人界面，我们采用OLE对象链接 与嵌人技术,将Word文档嵌人到VB界面当中。把 预先准备好的Word文件模板嵌人其中将其格式固 化,录人时只需填写相应数据即可完成证书录人。
2.3证书査询及附件打印
通过对有效时间段内高速公路名称进行基本 数据查询，方便及时统计各检定周期公路动态地磅数量及其它重要信息。检索完毕，查询结果 亦可导入Excel工作表中进行统计核算或其它用 途的管理。本査询分为三部分:全部证书査询、合 格证书查询、结果通知书查询。我们在“合格证书 査询”中设计了双击表格中任意查询到的记录，系 统自动跳转到与之编号对应的证书附件打印预览 图中，若“申请者名称”超出单行显示字符数,系统 则自动进行换行处理。单击“打印”即可打印A3 纸张模式的证书附件。“结果通知书查询”及“全 部查询”中则不具备此项功能。此方法杜绝了对 不合格证书错误开具证书附件的情况。我们采用 VB编程中Print技术对证书预览界面进行打印设 计，对记录字体、字号及打印位置均做了详细处 理。部分代码如下：
Printer. PaperSize = vbPRPSA3 ’ 设置纸张大小 Printer. FontName ="仿宋—GB2312 "’设置字体 Printer. F'ontSize = 26 Printer. ScaleMode = vbmilimeters Printer. CurrentX = 3500 ： Printer. CurrentY = 6500 Printer. Print Textl ( 0) . Text ‘ 将指定记录按相 应格式打印 2.42.4证书修改与打印
通过输入证书编号对其相应内容进行修改。 证书的正本打印方面，亦通过输人证书编号进 人相应检定证书打印预览页面，预览页分为两页： 证书封面和证书数据结果页。检查无误后即可打 印A4纸张模式的证书正本。
2.5到期提醒服务
作为动态地磅的计量检定单位，我们根据JJG 907—2006要求对动态地磅每半年检定一次。目 前,我省周期检定台件数近600台，由于台件数之多， 时间之短，务必要求我们做好到期检定准备。如有次 月到期的动态地磅，系统会在提醒窗口中显示。
3.系统的特点及意义
1）减少数据冗余,保证数据的准确性和统一性。
2）快捷、自由式的查询方式及智能化的数据导 出功能，及时反馈信息，便于对全局的及时掌握及 有效化处理。
3）智能式录人及证书正本、附件的一体化打印 增强了对动态地磅的规范化、程序化管理，实现 自动化。
4)本系统解决的问题
a.证书正本及附件编号的不一致性。考虑到 时间因素，由于证书正本与附件有时不能同时出 具,所以在证书编号上易产生同证异号的问题，采 用此系统一次性输人证书正本与附件，杜绝了此类 问题的发生。
b.证书有效日期的不符合性及不统一性。在 手工计算有效日期的情况下，除输入失误和计算错 误外,还可能产生一些逻辑性错误，比如实际不存 在的日期，这些情况严重影响了工作质量。采用本 系统后，系统自动生成的有效日期不仅缩短了工作 时间，而且大大提高了准确度。
c.生产厂家的仪器名称及型号的不匹配性。 由于证书量大，开具时间短，难免产生仪器名称及 型号生产厂家不匹配等情况。本系统自动匹配功 能解决了此类问题。
d.采用合格证书与不合格证书的分类管理方式， 杜绝了以往误将不合格证书开据证书附件的情况。
4.结束语
以上介绍了本院力学所动态地磅管理系统。 此系统根据我所实际环境开发，除在减少工作量、 提高准确度、信息及时反馈等方面产生显著优势 外，我们仍可对其进行更多功能性的扩充，比如电 子签名、调修情况跟踪等。
