三相多功能电能表检定软件设计与开发

　　系统工作流程

　　该系统包括的主要校验项目如图1所示，检定人员可以任意选择一个或者几个项目进行。另外，为了让检定人员从重复劳动中解脱出来，降低工作强度，提高效率，同时也减少了人为因素的影响，使检定数据的采集更加准确可靠，本系统增加了自动校验。当选择自动校验时，设定完参数后，系统将根据图1完成所有的校验项目，直到保存校验结果、打印鉴定记录和鉴定证书试验结束。

　　系统主要功能实现

　　本系统以Delphi 7 为开发平台，Delphi 7具有强大的数据库支持能力，通过引擎BDE(Borland Database Engine)对数据库进行操作和管理并与各种数据库接口。同时，Delphi 7提供功能强大的数据窗口画板及其交互功能，可以提高开发效率，缩短开发周期。

　　该系统从RS-232串口接收数据，然后转化成记录结构，各功能模块根据记录的数据进行处理和显示。主界面消息分发处理机制的主要代码如下：

　　procedure Tmain_form.OnGetData(var Msg :TMsg);

　　var

　　lPort, mPort: integer;

　　while CheckRecData(lPort, mPort, OutData) = 1 do

　　begin

　　if OutData.Order = UI_Order then

　　Power; //电源显示

　　if (OutData.Order = Error_Order)

　　then

　　if stand_check_form <> nil then

　　//电能表误差检定

　　SendMessage(stand_check_form.

　　handle, MSG_ERR, 0, 0);

　　end;

　　if (OutData.Order = Hits_Order) or

　　(OutData.Order = Capture_Order)

　　then

　　begin

　　if Start_test_form <> nil then

　　//起动、潜动试验

　　SendMessage(Start_test_form.

　　handle, MSG_StartTest, 0, 0);

　　if Under_Test_Form <> nil then

　　SendMessage(Under_test_form.

　　handle, MSG_UnderTest, 0, 0);

　　end;