unitorder3.~pas

远程抄表系统的客户端程序 安徽六安项目-客户端程序 0 开发环境 Delphi 7.0 所需控件 mxOutlookBar 数 据 库 Sybase 11.5 1 04-12-

    Edit_Stat2_Cos1: TEdit;
    Panel_Stat2_Cos4: TPanel;
    Edit_Stat2_Cos2: TEdit;
    Panel_Stat2_Cos3: TPanel;
    Edit_Stat2_Cos4: TEdit;
    Panel1_Stat2_Cos2: TPanel;
    Edit_Stat2_Cos3: TEdit;
    GroupBo_Bala2: TGroupBox;
    Panel_Stat2_Bala1: TPanel;
    Edit_Stat2_Bala1: TEdit;
    Edit_Stat2_Bala2: TEdit;
    Panel_Stat2_AvgBala: TPanel;
    Panel_Stat2_Bala2: TPanel;
    Edit_Stat2_AvgBala: TEdit;
    GroupBo_U2: TGroupBox;
    Panel_Stat2_AvgDYRateA: TPanel;
    Edit_Stat2_AvgDYRateA: TEdit;
    Edit_Stat2_AvgDYRateB: TEdit;
    Panel_Stat2_AvgDYRateC: TPanel;
    Panel_Stat2_AvgDYRateB: TPanel;
    Edit_Stat2_AvgDYRateC: TEdit;
    GroupBo_GD2: TGroupBox;
    Panel_Stat2_AvgGDRateA: TPanel;
    Edit_Stat2_AvgGDRateA: TEdit;
    Edit_Stat2_AvgGDRateB: TEdit;
    Panel_Stat2_AvgGDRateC: TPanel;
    Panel_Stat2_AvgGDRateB: TPanel;
    Edit_Stat2_AvgGDRateC: TEdit;
    GroupBo_Ulow2: TGroupBox;
    Panel_Stat2_DYBelowA: TPanel;
    Edit_Stat2_DYBelowA: TEdit;
    Edit_Stat2_DYBelowB: TEdit;
    Panel_Stat2_DYBelowC: TPanel;
    Panel_Stat2_DYBelowB: TPanel;
    Edit_Stat2_DYBelowC: TEdit;
    GroupBo_Uup2: TGroupBox;
    Panel_Stat2_DYOverA: TPanel;
    Edit_Stat2_DYOverA: TEdit;
    Edit_Stat2_DYOverB: TEdit;
    Panel_Stat2_DYOverC: TPanel;
    Panel_Stat2_DYOverB: TPanel;
    Edit_Stat2_DYOverC: TEdit;
    TabSheet_DuanXiang: TTabSheet;
    TabSheet_QueXian: TTabSheet;
    TabSheet_MonthDrq: TTabSheet;
    Edit_QX_Info: TEdit;
    Edit_QX_Name: TEdit;
    Panel_QX_Name: TPanel;
    MemoMsg: TMemo;
    Panel_QX_BgnTime: TPanel;
    Edit_QX_BgnTime: TEdit;
    Panel_QX_EndTime: TPanel;
    Edit_QX_EndTime: TEdit;
    Panel_QX_Info: TPanel;
    Panel_DX_Name: TPanel;
    Edit_DX_Name: TEdit;
    Panel_DX_Time: TPanel;
    Edit_DX_Time: TEdit;
    GroupBox_DX_Sum: TGroupBox;
    Panel_DX_Sum_A: TPanel;
    Edit_DX_Sum_A: TEdit;
    Panel_DX_Sum_B: TPanel;
    Edit_DX_Sum_B: TEdit;
    Panel_DX_Sum_ABC: TPanel;
    Edit_DX_Sum_ABC: TEdit;
    Panel_DX_Sum_C: TPanel;
    Edit_DX_Sum_C: TEdit;
    GroupBo_TSum: TGroupBox;
    Panel_DX_TSum_A: TPanel;
    Edit_DX_TSum_A: TEdit;
    Panel_DX_TSum_B: TPanel;
    Edit_DX_TSum_B: TEdit;
    Panel_DX_TSum_ABC: TPanel;
    Edit_DX_TSum_ABC: TEdit;
    Panel_DX_TSum_C: TPanel;
    Edit_DX_TSum_C: TEdit;
    GroupBo_CurrBgnTime: TGroupBox;
    Panel_DX_CurrBgnTime_A: TPanel;
    Panel_DX_CurrBgnTime_B: TPanel;
    Edit_DX_CurrBgnTime_A: TEdit;
    Panel_DX_CurrBgnTime_A2: TPanel;
    Edit_DX_CurrEndTime_A: TEdit;
    Panel_DX_CurrBgnTime_C: TPanel;
    Panel_DX_CurrEndTime_A: TPanel;
    Panel_DX_CurrEndTime_A2: TPanel;
    Panel_DX_CurrBgnTime_B2: TPanel;
    Edit_DX_CurrBgnTime_B: TEdit;
    Panel_DX_CurrEndTime_B: TPanel;
    Panel_DX_CurrEndTime_B2: TPanel;
    Edit_DX_CurrEndTime_B: TEdit;
    Panel_DX_CurrBgnTime_C2: TPanel;
    Edit_DX_CurrBgnTime_C: TEdit;
    Panel_DX_CurrEndTime_C: TPanel;
    Panel_DX_CurrEndTime_C2: TPanel;
    Edit_DX_CurrEndTime_C: TEdit;
    Panel_MDrq_Name: TPanel;
    Edit_MDrq_Name: TEdit;
    Panel_MDrq_Time: TPanel;
    Edit_MDrq_Time: TEdit;
    GroupBox_Jiao: TGroupBox;
    Panel_MDrq_JiaoAB1: TPanel;
    Edit_MDrq_JiaoAB1: TEdit;
    Panel_JiaoBC1: TPanel;
    Edit_MDrq_JiaoBC1: TEdit;
    Panel_MDrq_JiaoCA1: TPanel;
    Edit_MDrq_JiaoCA1: TEdit;
    Panel_MDrq_JiaoAB2: TPanel;
    Edit_MDrq_JiaoAB2: TEdit;
    Edit_MDrq_JiaoBC2: TEdit;
    Panel_MDrq_JiaoBC2: TPanel;
    Panel_JiaoCA2: TPanel;
    Edit_MDrq_JiaoCA2: TEdit;
    Edit_MDrq_JiaoCA4: TEdit;
    Panel_JiaoCA4: TPanel;
    Edit_MDrq_JiaoBC4: TEdit;
    Panel_MDrq_JiaoBC4: TPanel;
    Edit_MDrq_JiaoAB4: TEdit;
    Panel_MDrq_JiaoAB4: TPanel;
    Edit_MDrq_JiaoCA3: TEdit;
    Panel_MDrq_JiaoCA3: TPanel;
    Edit_MDrq_JiaoBC3: TEdit;
    Panel_JiaoBC3: TPanel;
    Edit_MDrq_JiaoAB3: TEdit;
    Panel_MDrq_JiaoAB3: TPanel;
    Edit_MDrq_Sum_JiaoAB: TEdit;
    Panel_MDrq_Sum_JiaoAB: TPanel;
    Panel_MDrq_Sum_JiaoBC: TPanel;
    Edit_MDrq_Sum_JiaoBC: TEdit;
    Panel_MDrq_Sum_JiaoCA: TPanel;
    Edit_MDrq_Sum_JiaoCA: TEdit;
    GroupBo_Xing: TGroupBox;
    Panel_MDrq_XingA1: TPanel;
    Edit_MDrq_XingA1: TEdit;
    Panel_MDrq_XingB1: TPanel;
    Edit_MDrq_XingB1: TEdit;
    Panel_MDrq_XingC1: TPanel;
    Edit_MDrq_XingC1: TEdit;
    Panel_MDrq_XingA2: TPanel;
    Edit_MDrq_XingA2: TEdit;
    Edit_MDrq_XingB2: TEdit;
    Panel_MDrq_XingB2: TPanel;
    Panel_MDrq_XingC2: TPanel;
    Edit_MDrq_XingC2: TEdit;
    Edit_MDrq_XingC4: TEdit;
    Panel_MDrq_XingC4: TPanel;
    Edit_MDrq_XingB4: TEdit;
    Panel_MDrq_XingB4: TPanel;
    Edit_MDrq_XingA4: TEdit;
    Panel_MDrq_XingA4: TPanel;
    Edit_MDrq_XingC3: TEdit;
    Panel_MDrq_XingC3: TPanel;
    Edit_MDrq_XingB3: TEdit;
    Panel_MDrq_XingB3: TPanel;
    Edit_MDrq_XingA3: TEdit;
    Panel_MDrq_XingA3: TPanel;
    Edit_MDrq_Sum_XingA: TEdit;
    Panel_MDrq_Sum_XingA: TPanel;
    Panel_MDrq_MDrq_Sum_XingB: TPanel;
    Edit_MDrq_Sum_XingB: TEdit;
    Panel_MDrq_Sum_XingC: TPanel;
    Edit_MDrq_Sum_XingC: TEdit;
    GroupBox_Xiebo: TGroupBox;
    Panel_Xiebo_Val1: TPanel;
    Edit_Xiebo_Val1: TEdit;
    Panel_Xiebo_Val3: TPanel;
    Edit_Xiebo_Val3: TEdit;
    Panel_Xiebo_Val5: TPanel;
    Edit_Xiebo_Val5: TEdit;
    Panel_Xiebo_Val7: TPanel;
    Edit_Xiebo_Val7: TEdit;
    Panel_Xiebo_Val9: TPanel;
    Edit_Xiebo_Val9: TEdit;
    Panel_Xiebo_Val11: TPanel;
    Edit_Xiebo_Val11: TEdit;
    Panel_Xiebo_Val13: TPanel;
    Edit_Xiebo_Val13: TEdit;
    Panel_Xiebo_Val15: TPanel;
    Edit_Xiebo_Val15: TEdit;
    Panel_Xiebo_Val17: TPanel;
    Edit_Xiebo_Val17: TEdit;
    Panel_Xiebo_Val19: TPanel;
    Edit_Xiebo_Val19: TEdit;
    Btn_DN_Down: TSpeedButton;
    Btn_DN_Up: TSpeedButton;
    Btn_DX_Up: TSpeedButton;
    Btn_DX_Down: TSpeedButton;
    TabSheet_DyRate: TTabSheet;
    TabSheet_GdRate: TTabSheet;
    Panel_DyRate_Name: TPanel;
    Edit_DyRate_Name: TEdit;
    Panel_DyRate_SysTime: TPanel;
    Edit_DyRate_SysTime: TEdit;
    GroupBox1: TGroupBox;
    Panel_DyRate_A: TPanel;
    Edit_DyRate_A: TEdit;
    Panel_DyRate_B: TPanel;
    Edit_DyRate_B: TEdit;
    Panel_DyRate_C: TPanel;
    Edit_DyRate_C: TEdit;
    GroupBox2: TGroupBox;
    Panel_DyRate_A2: TPanel;
    Edit_DyRate_A2: TEdit;
    Panel_DyRate_B2: TPanel;
    Edit_DyRate_B2: TEdit;
    Panel_DyRate_C2: TPanel;
    Edit_DyRate_C2: TEdit;
    Panel_GdRate_Name: TPanel;
    Edit_GdRate_Name: TEdit;
    Panel_GdRate_SysTime: TPanel;
    Edit_GdRate_SysTime: TEdit;
    Panel_DyRate_Time: TPanel;
    Edit_DyRate_Time: TEdit;
    Edit_DyRate_Time2: TEdit;
    Panel_DyRate_Time2: TPanel;
    GroupBox3: TGroupBox;
    Panel_GdRate_Val: TPanel;
    Edit_GdRate_Val: TEdit;
    Panel_GdRate_Time: TPanel;
    Edit_GdRate_Time: TEdit;
    GroupBox4: TGroupBox;
    Panel_GdRate_Val2: TPanel;
    Edit_GdRate_Val2: TEdit;
    Panel_GdRate_Time2: TPanel;
    Edit_GdRate_Time2: TEdit;
    TabSheet_Day: TTabSheet;
    Panel_Name: TPanel;
    Panel_Ia: TPanel;
    Panel_Cosa: TPanel;
    Panel_Ua: TPanel;
    Panel_Pa: TPanel;
    Panel_Qa: TPanel;
    Panel_Kwh: TPanel;
    Panel_Jian: TPanel;
    Edit_Jian: TEdit;
    Edit_Kwh: TEdit;
    Edit_Qa: TEdit;
    Edit_Pa: TEdit;
    Edit_Ua: TEdit;
    Edit_Cosa: TEdit;
    Edit_Ia: TEdit;
    Edit_Name: TEdit;
    Panel_Ib: TPanel;
    Panel_Cosb: TPanel;
    Panel_Ub: TPanel;
    Panel1_Pb: TPanel;
    Panel_Qb: TPanel;
    Panel_fKwh: TPanel;
    Panel_Feng: TPanel;
    Edit_Feng: TEdit;
    Edit_fKwh: TEdit;
    Edit_Qb: TEdit;
    Edit_Pb: TEdit;
    Edit_Ub: TEdit;
    Edit_Cosb: TEdit;
    Edit_Ib: TEdit;
    Panel_Time: TPanel;
    Panel_Ic: TPanel;
    Panel_Cosc: TPanel;
    Panel_Uc: TPanel;
    Panel_Pc: TPanel;
    Panel_Qc: TPanel;
    Panel_zKvarh: TPanel;
    Panel_Ping: TPanel;
    Edit_Ping: TEdit;
    Edit_zKvarh: TEdit;
    Edit_Qc: TEdit;
    Edit_Pc: TEdit;
    Edit_Uc: TEdit;
    Edit_Cosc: TEdit;
    Edit_Ic: TEdit;
    Edit_Time: TEdit;
    Panel_I0: TPanel;
    Panel_Cos: TPanel;
    Edit_I0: TEdit;
    Edit_Cos: TEdit;
    Edit_fKvarh: TEdit;
    Edit_Gu: TEdit;
    Panel_fKvarh: TPanel;
    Panel_Gu: TPanel;
    Btn_Down: TSpeedButton;
    Btn_Up: TSpeedButton;
    procedure RefreshListTimerTimer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure MenuDataRefreshClick(Sender: TObject);
    procedure ListViewDblClick(Sender: TObject);
    procedure TabSheet_MonthStatShow(Sender: TObject);
    procedure TabSheet_DayShow(Sender: TObject);
    procedure TabSheet_DrqShow(Sender: TObject);
    procedure TabSheet_XieboShow(Sender: TObject);
    procedure TabSheet_DNShow(Sender: TObject);
    procedure TabSheet_MonthMaxShow(Sender: TObject);
    procedure TabSheet_MonthMinShow(Sender: TObject);
    procedure MemoClearClick(Sender: TObject);
    procedure TabSheet_MonthDrqShow(Sender: TObject);
    procedure TabSheet_DuanXiangShow(Sender: TObject);
    procedure TabSheet_QueXianShow(Sender: TObject);
    procedure Btn_UpClick(Sender: TObject);
    procedure Btn_DownClick(Sender: TObject);
    procedure Btn_DN_DownClick(Sender: TObject);
    procedure Btn_DN_UpClick(Sender: TObject);
    procedure Btn_DX_UpClick(Sender: TObject);
    procedure Btn_DX_DownClick(Sender: TObject);
    procedure TabSheet_DyRateShow(Sender: TObject);
    procedure TabSheet_GdRateShow(Sender: TObject);
  private
    { Private declarations }
    procedure ListViewRefresh();
    procedure Show_Day       (strID : string; strName : string);
    procedure Show_Drq       (strID : string; strName : string);
    procedure Show_Xiebo     (strID : string; strName : string);
    procedure Show_DN        (strID : string; strName : string);
    procedure Show_QueXian   (strID : string; strName : string);
    procedure Show_DuanXiang (strID : string; strName : string);
    procedure Show_Month_Max (strID : string; strName : string);
    procedure Show_Month_Min (strID : string; strName : string);
    procedure Show_Month_Stat(strID : string; strName : string);
    procedure Show_Month_Drq (strID : string; strName : string);
    procedure Show_DyRate    (strID : string; strName : string);
    procedure Show_GdRate    (strID : string; strName : string);

    Function  GetOrderTypeStr(OrderType : Integer) : string;
  public
    { Public declarations }
    //定时器是否更新
    bTimerRefresh :  Boolean;
    //指令序号
    OrderIndex :  Integer;
    //指令类型
    OrderType  :  Integer;
    //指令个数
    OrderCount :  Integer;
    //等待最大秒
    OrderDelay :  Integer;

    procedure DataRefresh();
    procedure ResetListColumnsTitle();
    procedure ResetTabSheetVisible();
  end;

var
  FormOrder3: TFormOrder3;
  strID2   : string;
  strName2 : string;

const  PAI = 3.14159265;


implementation

uses UnitBasic1, UnitMyModule, UnitMain;

{$R *.dfm}

procedure TFormOrder3.ResetListColumnsTitle();
begin
  ListView.Columns.Clear();
  ListView.Columns.Add();
  ListView.Columns.Items[0].Caption := '变台编号';
  ListView.Columns.Items[0].Width   := 65;

  ListView.Columns.Add();
  ListView.Columns.Items[1].Caption := '变台名称';
  ListView.Columns.Items[1].Width   := (FormMain.Width - FormMain.mxOutlookBarPro1.Width - 100) div 4;

  ListView.Columns.Add();
  ListView.Columns.Items[2].Caption := '指令类型';
  ListView.Columns.Items[2].Width   := (FormMain.Width - FormMain.mxOutlookBarPro1.Width - 100) div 4;

  ListView.Columns.Add();
  ListView.Columns.Items[3].Caption := '处理结果';
  ListView.Columns.Items[3].Width   := (FormMain.Width - FormMain.mxOutlookBarPro1.Width - 100) div 4;

  ListView.Columns.Add();
  ListView.Columns.Items[4].Caption := '结束时间';
  ListView.Columns.Items[4].Width   := (FormMain.Width - FormMain.mxOutlookBarPro1.Width - 100) div 4;
end;

procedure TFormOrder3.ResetTabSheetVisible();
begin
  case OrderType of