系統工作流程

　　該系統包括的主要校驗項目如圖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;