系統(tǒng)工作流程

　　該系統(tǒng)包括的主要校驗項目如圖1所示，檢定人員可以任意選擇一個或者幾個項目進行。另外，為了讓檢定人員從重復(fù)勞動中解脫出來，降低工作強度，提高效率，同時也減少了人為因素的影響，使檢定數(shù)據(jù)的采集更加準確可靠，本系統(tǒng)增加了自動校驗。當選擇自動校驗時，設(shè)定完參數(shù)后，系統(tǒng)將根據(jù)圖1完成所有的校驗項目，直到保存校驗結(jié)果、打印鑒定記錄和鑒定證書試驗結(jié)束。

　　系統(tǒng)主要功能實現(xiàn)

　　本系統(tǒng)以Delphi 7 為開發(fā)平臺，Delphi 7具有強大的數(shù)據(jù)庫支持能力，通過引擎BDE(Borland Database Engine)對數(shù)據(jù)庫進行操作和管理并與各種數(shù)據(jù)庫接口。同時，Delphi 7提供功能強大的數(shù)據(jù)窗口畫板及其交互功能，可以提高開發(fā)效率，縮短開發(fā)周期。

　　該系統(tǒng)從RS-232串口接收數(shù)據(jù)，然后轉(zhuǎn)化成記錄結(jié)構(gòu)，各功能模塊根據(jù)記錄的數(shù)據(jù)進行處理和顯示。主界面消息分發(fā)處理機制的主要代碼如下：

　　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;