unitorder3.~pas

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

unit UnitOrder3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls, Menus, Buttons, IdBaseComponent,
  IdComponent, IdUDPBase, IdUDPServer,IdSocketHandle,Math;

type
  TFormOrder3 = class(TForm)
    Splitter: TSplitter;
    ListView: TListView;
    RefreshListTimer: TTimer;
    PageControl: TPageControl;
    TabSheet_Msg: TTabSheet;
    TabSheet_Drq: TTabSheet;
    PanelMsg: TPanel;
    PopupMenu: TPopupMenu;
    MenuDataRefresh: TMenuItem;
    MenuDataShow: TMenuItem;
    Panel_Drq_Ia1: TPanel;
    Panel_Drq_Cosa1: TPanel;
    Panel_Drq_XingA: TPanel;
    Edit_Drq_XingA: TEdit;
    Edit_Drq_Cosa1: TEdit;
    Edit_Drq_Ia1: TEdit;
    Panel_Drq_Ib1: TPanel;
    Panel_Drq_Cosb1: TPanel;
    Pane_Drq_XingB: TPanel;
    Edit_Drq_XingB: TEdit;
    Edit_Drq_Cosb1: TEdit;
    Edit_Drq_Ib1: TEdit;
    Panel_Drq_Ic1: TPanel;
    Panel_Drq_Cosc1: TPanel;
    Panel_Drq_XingC: TPanel;
    Edit_Drq_XingC: TEdit;
    Edit_Drq_Cosc1: TEdit;
    Edit_Drq_Ic1: TEdit;
    Panel_Drq_I01: TPanel;
    Panel_Drq_Cos1: TPanel;
    Edit_Drq_Cos1: TEdit;
    Edit_Drq_I01: TEdit;
    Panel_Drq_Ia2: TPanel;
    Edit_Drq_Ia2: TEdit;
    Panel_Drq_Ib2: TPanel;
    Edit_Drq_Ib2: TEdit;
    Panel_Drq_Ic2: TPanel;
    Edit_Drq_Ic2: TEdit;
    Panel_Drq_I02: TPanel;
    Edit_Drq_I02: TEdit;
    Panel_Drq_Cosa2: TPanel;
    Edit_Drq_Cosa2: TEdit;
    Panel_Drq_Cosb2: TPanel;
    Edit_Drq_Cosb2: TEdit;
    Panel_Drq_Cosc2: TPanel;
    Edit_Drq_Cosc2: TEdit;
    Panel_Drq_Cos2: TPanel;
    Edit_Drq_Cos2: TEdit;
    Panel_Drq_JiaoAB: TPanel;
    Edit_Drq_JiaoAB: TEdit;
    Panel_Drq_JiaoBC: TPanel;
    Edit_Drq_JiaoBC: TEdit;
    Panel_Drq_JiaoCA: TPanel;
    Edit_Drq_JiaoCA: TEdit;
    Panel_Drq_Type1: TPanel;
    Edit_Drq_Type1: TEdit;
    Panel_Drq_Type2: TPanel;
    Edit_Drq_Type2: TEdit;
    Panel_Drq_Ua2: TPanel;
    Edit_Drq_Ua2: TEdit;
    Panel_Drq_Ub2: TPanel;
    Edit_Drq_Ub2: TEdit;
    Panel_Drq_Uc2: TPanel;
    Edit_Drq_Uc2: TEdit;
    TabSheet_Xiebo: TTabSheet;
    Panel_Drq_Name: TPanel;
    Edit_Drq_Name: TEdit;
    Panel_Drq_Time: TPanel;
    Edit_Drq_Time: TEdit;
    Edit_Xiebo_Time: TEdit;
    Edit_Xiebo_Name: TEdit;
    Panel_Xiebo_Name: TPanel;
    Panelt_Xiebo_Time: TPanel;
    Panel_Xiebo_1: TPanel;
    Edit_Xiebo_1: TEdit;
    Panel_Xiebo_2: TPanel;
    Edit_Xiebo_2: TEdit;
    Panel_Xiebo_3: TPanel;
    Edit_Xiebo_3: TEdit;
    Panel_Xiebo_4: TPanel;
    Edit_Xiebo_4: TEdit;
    Panel_Xiebo_5: TPanel;
    Edit_Xiebo_5: TEdit;
    Panel_Xiebo_6: TPanel;
    Edit_Xiebo_6: TEdit;
    Panel_Xiebo_7: TPanel;
    Edit_Xiebo_7: TEdit;
    Panel_Xiebo_8: TPanel;
    Edit_Xiebo_8: TEdit;
    Panel_Xiebo_9: TPanel;
    Edit_Xiebo_9: TEdit;
    Panel_Xiebo_10: TPanel;
    Edit_Xiebo_10: TEdit;
    Panel_Xiebo_11: TPanel;
    Edit_Xiebo_11: TEdit;
    Panel_Xiebo_12: TPanel;
    Edit_Xiebo_12: TEdit;
    Panel_Xiebo_13: TPanel;
    Edit_Xiebo_13: TEdit;
    Panel_Xiebo_14: TPanel;
    Edit_Xiebo_14: TEdit;
    Panel_Xiebo_15: TPanel;
    Edit_Xiebo_15: TEdit;
    Panel_Xiebo_16: TPanel;
    Edit_Xiebo_16: TEdit;
    Panel_Xiebo_17: TPanel;
    Edit_Xiebo_17: TEdit;
    Panel_Xiebo_18: TPanel;
    Edit_Xiebo_18: TEdit;
    Panel_Xiebo_19: TPanel;
    Edit_Xiebo_19: TEdit;
    Panel_Xiebo_20: TPanel;
    Edit_Xiebo_20: TEdit;
    Panel_Xiebo_21: TPanel;
    Edit_Xiebo_21: TEdit;
    Panel_Xiebo_22: TPanel;
    Edit_Xiebo_22: TEdit;
    Panel_Xiebo_23: TPanel;
    Edit_Xiebo_23: TEdit;
    Panel_Xiebo_24: TPanel;
    Edit_Xiebo_24: TEdit;
    Panel_Xiebo_25: TPanel;
    Edit_Xiebo_25: TEdit;
    Panel_Xiebo_26: TPanel;
    Edit_Xiebo_26: TEdit;
    Panel_Xiebo_27: TPanel;
    Edit_Xiebo_27: TEdit;
    Panel_Xiebo_28: TPanel;
    Edit_Xiebo_28: TEdit;
    Panel_Xiebo_29: TPanel;
    Edit_Xiebo_29: TEdit;
    Panel_30: TPanel;
    Edit_Xiebo_30: TEdit;
    Panel_Xiebo_31: TPanel;
    Edit_Xiebo_31: TEdit;
    Panel_Xiebo_32: TPanel;
    Edit_Xiebo_32: TEdit;
    Panel_Xiebo_33: TPanel;
    Edit_Xiebo_33: TEdit;
    Panel_Xiebo_34: TPanel;
    Edit_Xiebo_34: TEdit;
    Panel_Xiebo_35: TPanel;
    Edit_Xiebo_35: TEdit;
    Panel_Xiebo_36: TPanel;
    Edit_Xiebo_36: TEdit;
    Edit_Xiebo_37: TEdit;
    Panel_Xiebo_38: TPanel;
    Panel_Xiebo_37: TPanel;
    Edit_Xiebo_38: TEdit;
    Panel_Xiebo_39: TPanel;
    Edit_Xiebo_39: TEdit;
    Panel_Xiebo_40: TPanel;
    Edit_Xiebo_40: TEdit;
    TabSheet_DN: TTabSheet;
    Panel_DN_Name: TPanel;
    Panel_DN_Kwh: TPanel;
    Edit_DN_Kwh: TEdit;
    Edit_DN_Name: TEdit;
    Panel_DN_Jian: TPanel;
    Edit_DN_Jian: TEdit;
    Panel_DN_Time: TPanel;
    Panel_DN_Feng: TPanel;
    Edit_DN_Time: TEdit;
    Edit_DN_Feng: TEdit;
    Edit_DN_Ping: TEdit;
    Panel_DN_Ping: TPanel;
    Panel_DN_Gu: TPanel;
    Edit_DN_Gu: TEdit;
    Panel_Xiebo_Type: TPanel;
    Edit_Xiebo_Type: TEdit;
    TabSheet_MonthMax: TTabSheet;
    Panel_Max_Name: TPanel;
    Edit_Max_Name: TEdit;
    Panel_Max_Time: TPanel;
    Edit_Max_Time: TEdit;
    Panel_Max_Ia: TPanel;
    Edit_Max_Ia: TEdit;
    Edit_Max_TIa: TEdit;
    Panel_Max_Ib: TPanel;
    Edit_Max_Ib: TEdit;
    Edit_Max_TIb: TEdit;
    Panel_Max_Ic: TPanel;
    Edit_Max_Ic: TEdit;
    Edit_Max_TIc: TEdit;
    Panel_Max_Ua: TPanel;
    Edit_Max_Tua: TEdit;
    Edit_Max_Ua: TEdit;
    Edit_Max_Ub: TEdit;
    Panel_Max_Ub: TPanel;
    Edit_Max_TUb: TEdit;
    Panel_Max_Uc: TPanel;
    Edit_Max_Uc: TEdit;
    Edit_Max_TUc: TEdit;
    Panel_Max_Pa: TPanel;
    Edit_Max_TPa: TEdit;
    Edit_Max_Pa: TEdit;
    Edit_Max_Pb: TEdit;
    Panel_Max_Pb: TPanel;
    Edit_Max_TPb: TEdit;
    Panel_Max_Pc: TPanel;
    Edit_Max_Pc: TEdit;
    Edit_Max_TPc: TEdit;
    Panel_Max_Qa: TPanel;
    Edit_Max_TQa: TEdit;
    Edit_Max_Qa: TEdit;
    Edit_Max_Qb: TEdit;
    Panel_Max_Qb: TPanel;
    Edit_Max_TQb: TEdit;
    Panel_Max_Qc: TPanel;
    Edit_Max_Qc: TEdit;
    Edit_Max_TQc: TEdit;
    Panel_Max_Cosa: TPanel;
    Edit_Max_TCosa: TEdit;
    Edit_Max_Cosa: TEdit;
    Edit_Max_Cosb: TEdit;
    Panel_Max_Cosb: TPanel;
    Edit_Max_TCosb: TEdit;
    Panel_Max_Cosc: TPanel;
    Edit_Max_Cosc: TEdit;
    Edit_Max_TCosc: TEdit;
    Panel_Max_I15a: TPanel;
    Edit_Max_TI15a: TEdit;
    Edit_Max_I15a: TEdit;
    Edit_Max_I15b: TEdit;
    Panel_Max_I15b: TPanel;
    Edit_Max_TI15b: TEdit;
    Panel_Max_I15c: TPanel;
    Edit_Max_I15c: TEdit;
    Edit_Max_TI15c: TEdit;
    Panel_Max_I0: TPanel;
    Edit_Max_I0: TEdit;
    Edit_Max_TI0: TEdit;
    Panel_Max_Use: TPanel;
    Edit_Max_Use: TEdit;
    Edit_Max_TUse: TEdit;
    Panel_Max_Bala: TPanel;
    Edit_Max_Bala: TEdit;
    Edit_Max_TBala: TEdit;
    TabSheet_MonthMin: TTabSheet;
    Edit_Min_TCosc: TEdit;
    Edit_Min_Cosc: TEdit;
    Edit_Min_Qc: TEdit;
    Edit_Min_TQc: TEdit;
    Edit_Min_TPc: TEdit;
    Edit_Min_Pc: TEdit;
    Edit_Min_Uc: TEdit;
    Edit_Min_TUc: TEdit;
    Edit_Min_TIc: TEdit;
    Edit_Min_Ic: TEdit;
    Edit_Min_Time: TEdit;
    Panel_Min_Ic: TPanel;
    Panel_Min_Uc: TPanel;
    Panel_Min_Pc: TPanel;
    Panel_Min_Qc: TPanel;
    Panel_Min_Cosc: TPanel;
    Edit_Min_TCosb: TEdit;
    Edit_Min_TQb: TEdit;
    Edit_Min_TPb: TEdit;
    Edit_Min_TUb: TEdit;
    Edit_Min_TIb: TEdit;
    Panel_Min_Time: TPanel;
    Edit_Min_Ib: TEdit;
    Edit_Min_Ub: TEdit;
    Edit_Min_Pb: TEdit;
    Edit_Min_Qb: TEdit;
    Edit_Min_Cosb: TEdit;
    Panel_Min_Cosb: TPanel;
    Panel_Min_Qb: TPanel;
    Panel_Min_Pb: TPanel;
    Panel_Min_Ub: TPanel;
    Panel_Min_Ib: TPanel;
    Edit_Min_TIa: TEdit;
    Edit_Min_TUa: TEdit;
    Edit_Min_TPa: TEdit;
    Edit_Min_TQa: TEdit;
    Edit_Min_TCosa: TEdit;
    Edit_Min_Cosa: TEdit;
    Edit_Min_Qa: TEdit;
    Edit_Min_Pa: TEdit;
    Edit_Min_Ua: TEdit;
    Edit_Min_Ia: TEdit;
    Panel_Min_Ia: TPanel;
    Panel_Min_Ua: TPanel;
    Panel_Min_Pa: TPanel;
    Panel_Min_Qa: TPanel;
    Panel_Min_Cosa: TPanel;
    Panel_Min_Name: TPanel;
    Edit_Min_Name: TEdit;
    TabSheet_MonthStat: TTabSheet;
    Edit_Stat_Time: TEdit;
    Panel_Stat_Time: TPanel;
    Edit_Stat_Name: TEdit;
    Panel_Stat_Name: TPanel;
    GroupBo_FH1: TGroupBox;
    Panel_Stat_Use1: TPanel;
    Edit_Stat_Use1: TEdit;
    Panel_Stat_Use2: TPanel;
    Edit_Stat_Use2: TEdit;
    Panel_Stat_Use4: TPanel;
    Edit_Stat_Use4: TEdit;
    Panel_Stat_AvgUse: TPanel;
    Edit_Stat_AvgUse: TEdit;
    GroupBo_Cos1: TGroupBox;
    Panel_Stat_Cos1: TPanel;
    Edit_Stat_Cos1: TEdit;
    Panel_Stat_Cos4: TPanel;
    Edit_Stat_Cos2: TEdit;
    Panel_Stat_Cos3: TPanel;
    Edit_Stat_Cos4: TEdit;
    Panel_Stat_Use3: TPanel;
    Edit_Stat_Use3: TEdit;
    Panel_Stat_Cos2: TPanel;
    Edit_Stat_Cos3: TEdit;
    GroupBo_Bala1: TGroupBox;
    Panel_Stat_Bala1: TPanel;
    Edit_Stat_Bala1: TEdit;
    Edit_Stat_Bala2: TEdit;
    Panel_Stat_AvgBala: TPanel;
    Panel_Stat_Bala2: TPanel;
    Edit_Stat_AvgBala: TEdit;
    GroupBo_U1: TGroupBox;
    Panel_Stat_AvgDYRateA: TPanel;
    Edit_Stat_AvgDYRateA: TEdit;
    Edit_Stat_AvgDYRateB: TEdit;
    Panel_Stat_AvgDYRateC: TPanel;
    Panel_Stat_AvgDYRateB: TPanel;
    Edit_Stat_AvgDYRateC: TEdit;
    GroupBo_GD1: TGroupBox;
    Panel_Stat_AvgGDRateA: TPanel;
    Edit_Stat_AvgGDRateA: TEdit;
    Edit_Stat_AvgGDRateB: TEdit;
    Panel_Stat_AvgGDRateC: TPanel;
    Panel_Stat_AvgGDRateB: TPanel;
    Edit_Stat_AvgGDRateC: TEdit;
    GroupBo_Uup1: TGroupBox;
    Panel_Stat_DYOverA: TPanel;
    Edit_Stat_DYOverA: TEdit;
    Edit_Stat_DYOverB: TEdit;
    Panel_Stat_DYOverC: TPanel;
    Panel_Stat_DYOverB: TPanel;
    Edit_Stat_DYOverC: TEdit;
    GroupBo_Ulow1: TGroupBox;
    Panel_Stat_DYBelowA: TPanel;
    Edit_Stat_DYBelowA: TEdit;
    Edit_Stat_DYBelowB: TEdit;
    Panel_Stat_DYBelowC: TPanel;
    Panel_Stat_DYBelowB: TPanel;
    Edit_Stat_DYBelowC: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    PopupMenu2: TPopupMenu;
    MemoClear: TMenuItem;
    TabSheet_MonthStat2: TTabSheet;
    Panel_Stat2_Name: TPanel;
    Edit_Stat2_Name: TEdit;
    PanelStat2_Time: TPanel;
    Edit_Stat2_Time: TEdit;
    GroupBo_FH2: TGroupBox;
    Panel_Stat2_Use1: TPanel;
    Edit_Stat2_Use1: TEdit;
    Panel_Stat2_Use2: TPanel;
    Edit_Stat2_Use2: TEdit;
    Panel_Stat2_Use4: TPanel;
    Edit_Stat2_Use4: TEdit;
    Panel_Stat2_AvgUse: TPanel;
    Edit_Stat2_AvgUse: TEdit;
    Panel_Stat2_Use3: TPanel;
    Edit_Stat2_Use3: TEdit;
    GroupBo_Cos2: TGroupBox;
    Panel_Stat2_Cos1: TPanel;