basefrm.pas

能对电子式电能表通过485接口进行通讯测试的软件

unit BaseFrm;

interface

uses
  Windows, Messages,  Registry,SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cpEventRecord, cpEventProgram, cpBurthCurve645, cpGerenralWrite,
  cpComm, cpDL645, SPComm, ComCtrls, StdCtrls, TFlatComboBoxUnit, ExtCtrls,
  TFlatCheckBoxUnit, TFlatEditUnit, cpCheckEdit, TFlatGroupBoxUnit,
  TFlatSpeedButtonUnit, TFlatPanelUnit;


const CountVale = 20;
const CountElect = 32;
const CountDelay = 12;
const CountVoltCurr = 12;
const CountBreadPos = 10;
const CountEvent = 10;
const CountOther = 13;
const CountBreak = 16;

const WM_INITCOMM=WM_USER+102;

type
  TBaseForm = class(TForm)
    FlatPanel1: TFlatPanel;
    FEB_Read: TFlatSpeedButton;
    FEB_Write: TFlatSpeedButton;
    SB_Close: TFlatSpeedButton;
    shqDl645: TshqDl645;
    cpGeneralWrite: TcpGeneralWrite;
    BurthCurve645: TBurthCurve645;
    cpEventProgram: TcpEventProgram;
    Comm: TComm;
    cpEventRecord: TcpEventRecord;
    PageControl: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet_Elect: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    TabSheet8: TTabSheet;
    SelectAll_CB0: TFlatCheckBox;
    FlatGroupBox1: TFlatGroupBox;
    ChEdit_LoseVTop: TCheckedEdit;
    ChEdit_OverVTop: TCheckedEdit;
    ChEdit_OweVTop: TCheckedEdit;
    ChEdit_DXVTop: TCheckedEdit;
    ChEdit_NLoseVBut: TCheckedEdit;
    ChEdit_BerrVTop: TCheckedEdit;
    ChEdit_DissVTop: TCheckedEdit;
    ChEdit_DisBanVTop: TCheckedEdit;
    FlatGroupBox2: TFlatGroupBox;
    ChEdit_DLCTop: TCheckedEdit;
    ChEdit_DLCBut: TCheckedEdit;
    ChEdit_GDlTop: TCheckedEdit;
    ChEdit_BigCTop: TCheckedEdit;
    ChEdit_NoVolTop: TCheckedEdit;
    ChEdit_BerrCTop: TCheckedEdit;
    ChEdit_DisCTop: TCheckedEdit;
    ChEdit_DisBanCTop: TCheckedEdit;
    FlatGroupBox3: TFlatGroupBox;
    ChEdit_DemTop: TCheckedEdit;
    ChEdit_DemBerrTop: TCheckedEdit;
    ChEdit_PowerFacTop: TCheckedEdit;
    ChEdit_Judge: TCheckedEdit;
    SelectAll_CB1: TFlatCheckBox;
    GB_Copper: TFlatGroupBox;
    ChEdit_CoppZ: TCheckedEdit;
    ChEdit_CoppA: TCheckedEdit;
    ChEdit_CoppB: TCheckedEdit;
    ChEdit_CoppC: TCheckedEdit;
    GB_Iron: TFlatGroupBox;
    ChEdit_IronZ: TCheckedEdit;
    ChEdit_IronA: TCheckedEdit;
    ChEdit_IronB: TCheckedEdit;
    ChEdit_IronC: TCheckedEdit;
    GB_Lose: TFlatGroupBox;
    ChEdit_LoseZ: TCheckedEdit;
    ChEdit_LoseA: TCheckedEdit;
    ChEdit_LoseB: TCheckedEdit;
    ChEdit_LoseC: TCheckedEdit;
    SelectAll_CB2: TFlatCheckBox;
    GB_FormerDelay: TFlatGroupBox;
    ChEdit_FormerS: TCheckedEdit;
    ChEdit_FormerG: TCheckedEdit;
    ChEdit_FormerQ: TCheckedEdit;
    ChEdit_FormerDX: TCheckedEdit;
    ChEdit_FormerDL: TCheckedEdit;
    ChEdit_FormerGDL: TCheckedEdit;
    GB_LatterDelay: TFlatGroupBox;
    ChEdit_LatterS: TCheckedEdit;
    ChEdit_LatterG: TCheckedEdit;
    ChEdit_LatterQ: TCheckedEdit;
    ChEdit_LatterDX: TCheckedEdit;
    ChEdit_LatterDL: TCheckedEdit;
    ChEdit_LatterGDL: TCheckedEdit;
    SelectAll_CB3: TFlatCheckBox;
    GB_HarmVolt: TFlatGroupBox;
    ChEdit_HarmVoltA: TCheckedEdit;
    ChEdit_HarmVoltB: TCheckedEdit;
    ChEdit_HarmVoltC: TCheckedEdit;
    GB_HarmCurr: TFlatGroupBox;
    ChEdit_HarmCurrA: TCheckedEdit;
    ChEdit_HarmCurrB: TCheckedEdit;
    ChEdit_HarmCurrC: TCheckedEdit;
    GB_VoltAberrence: TFlatGroupBox;
    ChEdit_VoltAberrA: TCheckedEdit;
    ChEdit_VoltAberrB: TCheckedEdit;
    ChEdit_VoltAberrC: TCheckedEdit;
    GB_CurrAberrence: TFlatGroupBox;
    ChEdit_CurrAberrA: TCheckedEdit;
    ChEdit_CurrAberrB: TCheckedEdit;
    ChEdit_CurrAberrC: TCheckedEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    FlatEdit1: TFlatEdit;
    FlatEdit2: TFlatEdit;
    FlatEdit3: TFlatEdit;
    FlatEdit4: TFlatEdit;
    FlatEdit5: TFlatEdit;
    FlatEdit6: TFlatEdit;
    FlatEdit7: TFlatEdit;
    FlatEdit8: TFlatEdit;
    FlatEdit9: TFlatEdit;
    FlatEdit10: TFlatEdit;
    FE_ItemName: TFlatEdit;
    SelectAll_CB5: TFlatCheckBox;
    Label1: TLabel;
    ChEdit_Time1: TCheckedEdit;
    ChEdit_Time2: TCheckedEdit;
    ChEdit_Time3: TCheckedEdit;
    ChEdit_Time4: TCheckedEdit;
    ChEdit_Time5: TCheckedEdit;
    ChEdit_Time6: TCheckedEdit;
    ChEdit_Time7: TCheckedEdit;
    ChEdit_Time8: TCheckedEdit;
    ChEdit_Time9: TCheckedEdit;
    ChEdit_Time10: TCheckedEdit;
    ChEdit_Value110: TFlatEdit;
    ChEdit_Value19: TFlatEdit;
    ChEdit_Value18: TFlatEdit;
    ChEdit_Value17: TFlatEdit;
    ChEdit_Value16: TFlatEdit;
    ChEdit_Value15: TFlatEdit;
    ChEdit_Value14: TFlatEdit;
    ChEdit_Value13: TFlatEdit;
    ChEdit_Value12: TFlatEdit;
    ChEdit_Value11: TFlatEdit;
    Label_ValName: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    Label43: TLabel;
    Label44: TLabel;
    Label46: TLabel;
    Label49: TLabel;
    RG_Select: TRadioGroup;
    FE_Time: TFlatEdit;
    FE_Block: TFlatEdit;
    FE_BaseElectABC: TFlatEdit;
    FlatGroupBox14: TFlatGroupBox;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    FE_ActHave: TFlatEdit;
    FE_SenseHave: TFlatEdit;
    FE_ReActHave: TFlatEdit;
    FE_SenseNo: TFlatEdit;
    FlatGroupBox15: TFlatGroupBox;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    FE_Qurdrant1: TFlatEdit;
    FE_Qurdrant2: TFlatEdit;
    FE_Qurdrant3: TFlatEdit;
    FE_Qurdrant4: TFlatEdit;
    FlatGroupBox16: TFlatGroupBox;
    Label37: TLabel;
    Label38: TLabel;
    FE_HDemand: TFlatEdit;
    FE_NDemand: TFlatEdit;
    FlatGroupBox17: TFlatGroupBox;
    Label39: TLabel;
    Label40: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    FE_VoltBread: TFlatEdit;
    FE_CurrBread: TFlatEdit;
    FE_VoltPos: TFlatEdit;
    FE_CurrPos: TFlatEdit;
    FE_HarmInElect: TFlatEdit;
    FE_BaseInElect: TFlatEdit;
    FE_HarmElectABC: TFlatEdit;
    FE_HarmDegree: TFlatEdit;
    FE_Squence: TFlatEdit;
    TV_BreadPos: TTreeView;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    FE_VoltA: TFlatEdit;
    FE_VoltB: TFlatEdit;
    FE_CurrA: TFlatEdit;
    FE_CurrB: TFlatEdit;
    FE_CurrC: TFlatEdit;
    FE_HavePowerA: TFlatEdit;
    FE_HavePowerB: TFlatEdit;
    FE_HavePowerC: TFlatEdit;
    FE_NoPowerA: TFlatEdit;
    FE_NoPowerB: TFlatEdit;
    FE_NoPowerC: TFlatEdit;
    FE_FactorA: TFlatEdit;
    FE_FactorB: TFlatEdit;
    FE_FactorC: TFlatEdit;
    FE_HarmVoltA: TFlatEdit;
    FE_HarmVoltB: TFlatEdit;
    FE_HarmVoltC: TFlatEdit;
    FE_HarmCurrA: TFlatEdit;
    FE_HarmCurrB: TFlatEdit;
    FE_HarmCurrC: TFlatEdit;
    FE_HavePowerZ: TFlatEdit;
    FE_NoPowerZ: TFlatEdit;
    FE_FactorZ: TFlatEdit;
    FE_HFlagA: TFlatEdit;
    FE_HFlagB: TFlatEdit;
    FE_HFlagC: TFlatEdit;
    FE_NFlagA: TFlatEdit;
    FE_NFlagB: TFlatEdit;
    FE_NFlagC: TFlatEdit;
    FE_HFlagZ: TFlatEdit;
    FE_NFlagZ: TFlatEdit;
    FE_VoltC: TFlatEdit;
    Label2: TLabel;
    Label3: TLabel;
    FE_VoltATHD: TFlatEdit;
    FE_VoltBTHD: TFlatEdit;
    FE_VoltCTHD: TFlatEdit;
    FE_CurrATHD: TFlatEdit;
    FE_CurrBTHD: TFlatEdit;
    FE_CurrCTHD: TFlatEdit;
    FSB_Stop: TFlatSpeedButton;
    FlatGroupBox5: TFlatGroupBox;
    FlatGroupBox4: TFlatGroupBox;
    FlatCheckBox1: TFlatCheckBox;
    FlatCheckBox3: TFlatCheckBox;
    FlatCheckBox4: TFlatCheckBox;
    FlatCheckBox5: TFlatCheckBox;
    FlatCheckBox6: TFlatCheckBox;
    FlatCheckBox19: TFlatCheckBox;
    FlatCheckBox21: TFlatCheckBox;
    FlatCheckBox22: TFlatCheckBox;
    FlatCheckBox23: TFlatCheckBox;
    FlatCheckBox24: TFlatCheckBox;
    FlatCheckBox25: TFlatCheckBox;
    FlatCheckBox27: TFlatCheckBox;
    FlatCheckBox28: TFlatCheckBox;
    FlatCheckBox29: TFlatCheckBox;
    FlatCheckBox30: TFlatCheckBox;
    FlatCheckBox31: TFlatCheckBox;
    FlatCheckBox33: TFlatCheckBox;
    FlatCheckBox34: TFlatCheckBox;
    FlatCheckBox35: TFlatCheckBox;
    FlatCheckBox36: TFlatCheckBox;
    FlatCheckBox37: TFlatCheckBox;
    FlatCheckBox39: TFlatCheckBox;
    FlatCheckBox40: TFlatCheckBox;
    FlatCheckBox41: TFlatCheckBox;
    FlatCheckBox42: TFlatCheckBox;
    FlatCheckBox2: TFlatCheckBox;
    FlatCheckBox20: TFlatCheckBox;
    FlatCheckBox26: TFlatCheckBox;
    FlatCheckBox32: TFlatCheckBox;
    FlatCheckBox38: TFlatCheckBox;
    FlatCheckBox43: TFlatCheckBox;
    FlatCheckBox44: TFlatCheckBox;
    FlatCheckBox45: TFlatCheckBox;
    ChEdit_BurthMode2: TCheckedEdit;
    FlatCheckBox7: TFlatCheckBox;
    FlatCheckBox9: TFlatCheckBox;
    FlatCheckBox10: TFlatCheckBox;
    FlatCheckBox11: TFlatCheckBox;
    FlatCheckBox12: TFlatCheckBox;
    FlatCheckBox8: TFlatCheckBox;
    FlatCheckBox13: TFlatCheckBox;
    FlatCheckBox15: TFlatCheckBox;
    FlatCheckBox16: TFlatCheckBox;
    FlatCheckBox17: TFlatCheckBox;
    FlatCheckBox18: TFlatCheckBox;
    FlatCheckBox14: TFlatCheckBox;
    GB_BaseIN: TFlatGroupBox;
    ChEdit_BaseInZ: TCheckedEdit;
    ChEdit_BaseInA: TCheckedEdit;
    ChEdit_BaseInB: TCheckedEdit;
    ChEdit_BaseInC: TCheckedEdit;
    GB_Harm: TFlatGroupBox;
    ChEdit_HarmInZ: TCheckedEdit;
    ChEdit_HarmInA: TCheckedEdit;
    ChEdit_HarmInB: TCheckedEdit;
    ChEdit_HarmInC: TCheckedEdit;
    GB_HarmPower: TFlatGroupBox;
    ChEdit_HarmPZ: TCheckedEdit;
    ChEdit_HarmPA: TCheckedEdit;
    ChEdit_HarmPB: TCheckedEdit;
    ChEdit_HarmPC: TCheckedEdit;
    FlatGroupBox6: TFlatGroupBox;
    ChEdit_HarmOutZ: TCheckedEdit;
    ChEdit_HarmOutA: TCheckedEdit;
    ChEdit_HarmOutB: TCheckedEdit;
    ChEdit_HarmOutC: TCheckedEdit;
    GB_BaseOut: TFlatGroupBox;
    ChEdit_BaseOutZ: TCheckedEdit;
    ChEdit_BaseOutA: TCheckedEdit;
    ChEdit_BaseOutB: TCheckedEdit;
    ChEdit_BaseOutC: TCheckedEdit;
    FCB_SunSelectAll: TFlatCheckBox;
    TabSheet2: TTabSheet;
    SelectAll_Break: TFlatCheckBox;
    FlatGroupBox7: TFlatGroupBox;
    ChEdit_BreakDegreeZ: TCheckedEdit;
    ChEdit_BreakDegreeA: TCheckedEdit;
    ChEdit_BreakDegreeB: TCheckedEdit;
    ChEdit_BreakDegreeC: TCheckedEdit;
    FlatGroupBox8: TFlatGroupBox;
    ChEdit_BreakTimesZ: TCheckedEdit;
    ChEdit_BreakTimesA: TCheckedEdit;
    ChEdit_BreakTimesB: TCheckedEdit;
    ChEdit_BreakTimesC: TCheckedEdit;
    FlatGroupBox9: TFlatGroupBox;
    ChEdit_LatelyBreakZ: TCheckedEdit;
    ChEdit_LatelyBreakA: TCheckedEdit;
    ChEdit_LatelyBreakB: TCheckedEdit;
    ChEdit_LatelyBreakC: TCheckedEdit;
    FlatGroupBox10: TFlatGroupBox;
    ChEdit_ResumeBreakZ: TCheckedEdit;
    ChEdit_ResumeBreakA: TCheckedEdit;
    ChEdit_ResumeBreakB: TCheckedEdit;
    ChEdit_ResumeBreakC: TCheckedEdit;
    Label45: TLabel;
    Label54: TLabel;
    Label55: TLabel;
    Label56: TLabel;
    Label61: TLabel;
    Label62: TLabel;
    FlatGroupBox18: TFlatGroupBox;
    Label50: TLabel;
    Label51: TLabel;
    Label52: TLabel;
    Label53: TLabel;
    ChEdit_RepairAR: TFlatEdit;
    ChEdit_RepairBR: TFlatEdit;
    ChEdit_RepairCR: TFlatEdit;
    ChEdit_RepairAB: TFlatEdit;
    ChEdit_RepairCB: TFlatEdit;
    ChEdit_RepairBB: TFlatEdit;
    ChEdit_RepairAX: TFlatEdit;
    ChEdit_RepairCX: TFlatEdit;
    ChEdit_RepairBX: TFlatEdit;
    ChEdit_RepairAG: TCheckedEdit;
    ChEdit_RepairBG: TCheckedEdit;
    ChEdit_RepairCG: TCheckedEdit;
    SelectAll_CB7: TFlatCheckBox;
    ChEdit_RecSpace7: TCheckedEdit;
    ChEdit_RecSpace8: TCheckedEdit;
    ChEdit_RecSpace9: TCheckedEdit;
    ChEdit_BaseVolt: TCheckedEdit;
    ChEdit_BaseCurr: TCheckedEdit;
    FE_BreadPosTitle: TLabel;
    FlatGroupBox11: TFlatGroupBox;
    Label57: TLabel;
    Label58: TLabel;
    Label59: TLabel;
    Label60: TLabel;
    CB_Byte0: TFlatComboBox;