unitorder3.~pas

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

         Edit_Xiebo_Val7.Text  := FloatToStr( RoundTo((fXB_Ib[7]  / fXb_Ib[1]*100), -3) ) + '%';
         Edit_Xiebo_Val9.Text  := FloatToStr( RoundTo((fXB_Ib[9]  / fXb_Ib[1]*100), -3) ) + '%';
         Edit_Xiebo_Val11.Text := FloatToStr( RoundTo((fXB_Ib[11] / fXb_Ib[1]*100), -3) ) + '%';
         Edit_Xiebo_Val13.Text := FloatToStr( RoundTo((fXB_Ib[13] / fXb_Ib[1]*100), -3) ) + '%';
         Edit_Xiebo_Val15.Text := FloatToStr( RoundTo((fXB_Ib[15] / fXb_Ib[1]*100), -3) ) + '%';
         Edit_Xiebo_Val17.Text := FloatToStr( RoundTo((fXB_Ib[17] / fXb_Ib[1]*100), -3) ) + '%';
         Edit_Xiebo_Val19.Text := FloatToStr( RoundTo((fXB_Ib[19] / fXb_Ib[1]*100), -3) ) + '%';

      end;  //end if not nil
    end;    //end if RecordCount <> 0
  end;      //end with
end;

procedure TFormOrder3.Show_DyRate(strID : string; strName : string);
var
  strCurTime : string;
  strSQL     : string;
  Flag       : Integer;
begin
  strCurTime := DateToStr(now);
  strCurTime := strCurTime + ' 00:00:00';
  strSQL := Format('select * from tx_DyRate where fd_BianTaiID=%s and fd_SysTime>= ''%s'' and fd_OrderIndex=%d ',[strID,strCurTime,OrderIndex]);
  //ShowMessage(strSQL);
  with  MyModule.AdoQuery do
  begin
    Close();
    SQL.Clear();
    SQL.Add(strSQL);
    try
      Open();
    except
      ExecSQL();
    end;

    if RecordCount <> 0 then
    begin
      Flag := 0;
      First();
      while not eof do
      begin
        if (Flag = 0) then
        begin
           Edit_DyRate_Name.Text       := strName;
           Edit_DyRate_SysTime.Text    := FieldByName('fd_SysTime').AsString;

           Edit_DyRate_Time.Text    := FieldByName('fd_Time').AsString;
           Edit_DyRate_A.Text       := FloatToStr( FieldByName('fd_A').AsFloat*100 ) + '%';
           Edit_DyRate_B.Text       := FloatToStr( FieldByName('fd_B').AsFloat*100 ) + '%';
           Edit_DyRate_C.Text       := FloatToStr( FieldByName('fd_C').AsFloat*100 ) + '%';

        end
        else begin
           Edit_DyRate_Name.Text       := strName;
           Edit_DyRate_SysTime.Text    := FieldByName('fd_SysTime').AsString;

           Edit_DyRate_Time2.Text    := FieldByName('fd_Time').AsString;
           Edit_DyRate_A2.Text       := FloatToStr( FieldByName('fd_A').AsFloat*100 ) + '%';
           Edit_DyRate_B2.Text       := FloatToStr( FieldByName('fd_B').AsFloat*100 ) + '%';
           Edit_DyRate_C2.Text       := FloatToStr( FieldByName('fd_C').AsFloat*100 ) + '%';
        end;

        Inc(Flag, 1);
        Next();
      end;  //end while not nil
    end;    //end if RecordCount <> 0
  end;      //end with
end;

procedure TFormOrder3.Show_GdRate(strID : string; strName : string);
var
  strCurTime : string;
  strSQL     : string;
  Flag       : Integer;
begin
  strCurTime := DateToStr(now);
  strCurTime := strCurTime + ' 00:00:00';
  strSQL := Format('select * from tx_GdRate where fd_BianTaiID=%s and fd_SysTime>= ''%s'' and fd_OrderIndex=%d ',[strID,strCurTime,OrderIndex]);
  //ShowMessage(strSQL);
  with  MyModule.AdoQuery do
  begin
    Close();
    SQL.Clear();
    SQL.Add(strSQL);
    try
      Open();
    except
      ExecSQL();
    end;

    if RecordCount <> 0 then
    begin
      Flag := 0;
      First();
      while not eof do
      begin
        if (Flag = 0) then
        begin
           Edit_GdRate_Name.Text       := strName;
           Edit_GdRate_SysTime.Text    := FieldByName('fd_SysTime').AsString;

           Edit_GdRate_Time.Text       := FieldByName('fd_Time').AsString;
           Edit_GdRate_Val.Text        := FloatToStr( FieldByName('fd_Val').AsFloat*100 ) + '%';
        end
        else begin
           Edit_GdRate_Name.Text       := strName;
           Edit_GdRate_SysTime.Text    := FieldByName('fd_SysTime').AsString;

           Edit_GdRate_Time2.Text      := FieldByName('fd_Time').AsString;
           Edit_GdRate_Val2.Text       := FloatToStr( FieldByName('fd_Val').AsFloat*100 ) + '%';
        end;
        Inc(Flag, 1);
        Next();
      end;  //end while not nil
    end;    //end if RecordCount <> 0
  end;      //end with
end;

procedure TFormOrder3.Show_DN(strID : string; strName : string);
var
  strCurTime : string;
  strSQL     : string;
begin
  strCurTime := DateToStr(now);
  strCurTime := strCurTime + ' 00:00:00';
  strSQL := Format('select * from tx_DN where fd_BianTaiID=%s and fd_SysTime>= ''%s'' and fd_OrderIndex=%d ',[strID,strCurTime,OrderIndex]);
  //ShowMessage(strSQL);

  with  MyModule.AdoQuery do
  begin
    Close();
    SQL.Clear();
    SQL.Add(strSQL);
    try
      Open();
    except
      ExecSQL();
    end;

    if RecordCount <> 0 then
    begin
      if not eof then
      begin
         Edit_DN_Name.Text := strName;
         Edit_DN_Time.Text := FieldByName('fd_Time').AsString;

         if FieldByName('fd_Type').AsInteger = 0 then
         begin
           Panel_DN_Kwh.Caption  := '总电能';
           Panel_DN_Jian.Caption := '尖电能';
           Panel_DN_Feng.Caption := '峰电能';
           Panel_DN_Ping.Caption := '平电能';
           Panel_DN_Gu.Caption   := '谷电能';
           panel_DN_Gu.Visible   := True;
           Edit_DN_Gu.Visible    := True;

           Edit_DN_Kwh.Text  := FieldByName('fd_Kwh').AsString;
           Edit_DN_Jian.Text := FieldByName('fd_Jian').AsString;
           Edit_DN_Feng.Text := FieldByName('fd_Feng').AsString;
           Edit_DN_Ping.Text := FieldByName('fd_Ping').AsString;
           Edit_DN_Gu.Text   := FieldByName('fd_Gu').AsString;
         end
         else begin
           Panel_DN_Kwh.Caption  := '正向有功电能';
           Panel_DN_Jian.Caption := '反向有功电能';
           Panel_DN_Feng.Caption := '正向无功电能';
           Panel_DN_ping.Caption := '反向无功电能';
           panel_DN_Gu.Visible   := False;
           Edit_DN_Gu.Visible    := False;

           Edit_DN_Kwh.Text  := FieldByName('fd_Kwh').AsString;
           Edit_DN_Jian.Text := FieldByName('fd_Jian').AsString;
           Edit_DN_Feng.Text := FieldByName('fd_Feng').AsString;
           Edit_DN_Ping.Text := FieldByName('fd_Ping').AsString;
         end;

      end;  //end if not nil
    end;    //end if RecordCount <> 0
  end;      //end with
end;

procedure TFormOrder3.Show_QueXian(strID : string; strName : string);
var
  strCurTime : string;
  strSQL     : string;
begin
  strCurTime := DateToStr(now);
  strCurTime := strCurTime + ' 00:00:00';
  strSQL := Format('select * from tx_QueXian where fd_BianTaiID=%s and fd_SysTime>= ''%s'' and fd_OrderIndex=%d ',[strID,strCurTime,OrderIndex]);
  //ShowMessage(strSQL);

  with  MyModule.AdoQuery do
  begin
    Close();
    SQL.Clear();
    SQL.Add(strSQL);
    try
      Open();
    except
      ExecSQL();
    end;

    if RecordCount <> 0 then
    begin
      if not eof then
      begin
         Edit_QX_Name.Text    := strName;
         Edit_QX_Info.Text    := FieldByName('fd_Info').AsString;
         Edit_QX_BgnTime.Text := FieldByName('fd_BgnTime').AsString;
         Edit_QX_EndTime.Text := FieldByName('fd_EndTime').AsString;

      end;  //end if not nil
    end;    //end if RecordCount <> 0
  end;      //end with
end;

procedure TFormOrder3.Show_DuanXiang(strID : string; strName : string);
var
  strCurTime : string;
  strSQL     : string;
begin
  strCurTime := DateToStr(now);
  strCurTime := strCurTime + ' 00:00:00';
  strSQL := Format('select * from tx_DuanXiang where fd_BianTaiID=%s and fd_SysTime>= ''%s'' and fd_OrderIndex=%d ',[strID,strCurTime,OrderIndex]);
  //ShowMessage(strSQL);

  with  MyModule.AdoQuery do
  begin
    Close();
    SQL.Clear();
    SQL.Add(strSQL);
    try
      Open();
    except
      ExecSQL();
    end;

    if RecordCount <> 0 then
    begin
      if not eof then
      begin
         Edit_DX_Name.Text    := strName;
         Edit_DX_Time.Text    := FieldByName('fd_Time').AsString;

         Edit_DX_Sum_A.Text    := FieldByName('fd_Sum_A').AsString;
         Edit_DX_Sum_B.Text    := FieldByName('fd_Sum_B').AsString;
         Edit_DX_Sum_C.Text    := FieldByName('fd_Sum_C').AsString;
         Edit_DX_Sum_ABC.Text  := FieldByName('fd_Sum_ABC').AsString;
         Edit_DX_TSum_A.Text   := FieldByName('fd_TSum_A').AsString;
         Edit_DX_TSum_B.Text   := FieldByName('fd_TSum_B').AsString;
         Edit_DX_TSum_C.Text   := FieldByName('fd_TSum_C').AsString;
         Edit_DX_TSum_ABC.Text := FieldByName('fd_TSum_ABC').AsString;
         Edit_DX_CurrBgnTime_A.Text := FieldByName('fd_CurrBgnTime_A').AsString;
         Edit_DX_CurrBgnTime_B.Text := FieldByName('fd_CurrBgnTime_B').AsString;
         Edit_DX_CurrBgnTime_C.Text := FieldByName('fd_CurrBgnTime_C').AsString;
         Edit_DX_CurrEndTime_A.Text := FieldByName('fd_CurrEndTime_A').AsString;
         Edit_DX_CurrEndTime_B.Text := FieldByName('fd_CurrEndTime_B').AsString;
         Edit_DX_CurrEndTime_C.Text := FieldByName('fd_CurrEndTime_C').AsString;

      end;  //end if not nil
    end;    //end if RecordCount <> 0
  end;      //end with
end;


procedure TFormOrder3.Show_Month_Drq (strID : string; strName : string);
var
  strCurTime : string;
  strSQL     : string;
begin
  strCurTime := DateToStr(now);
  strCurTime := strCurTime + ' 00:00:00';
  strSQL := Format('select * from tx_Month_Drq where fd_BianTaiID=%s and fd_SysTime>= ''%s'' and fd_OrderIndex=%d ',[strID,strCurTime,OrderIndex]);
  //ShowMessage(strSQL);

  with  MyModule.AdoQuery do
  begin
    Close();
    SQL.Clear();
    SQL.Add(strSQL);
    try
      Open();
    except
      ExecSQL();
    end;

    if RecordCount <> 0 then
    begin
      if not eof then
      begin
         Edit_MDrq_Name.Text    := strName;
         Edit_MDrq_Time.Text    := FieldByName('fd_Time').AsString;

         Edit_MDrq_JiaoAB1.Text    := FieldByName('fd_JiaoAB1').AsString + '小时';
         Edit_MDrq_JiaoBC1.Text    := FieldByName('fd_JiaoBC1').AsString + '小时';
         Edit_MDrq_JiaoCA1.Text    := FieldByName('fd_JiaoCA1').AsString + '小时';

         Edit_MDrq_JiaoAB2.Text    := FieldByName('fd_JiaoAB2').AsString + '小时';
         Edit_MDrq_JiaoBC2.Text    := FieldByName('fd_JiaoBC2').AsString + '小时';
         Edit_MDrq_JiaoCA2.Text    := FieldByName('fd_JiaoCA2').AsString + '小时';

         Edit_MDrq_JiaoAB3.Text    := FieldByName('fd_JiaoAB3').AsString + '小时';
         Edit_MDrq_JiaoBC3.Text    := FieldByName('fd_JiaoBC3').AsString + '小时';
         Edit_MDrq_JiaoCA3.Text    := FieldByName('fd_JiaoCA3').AsString + '小时';

         Edit_MDrq_JiaoAB4.Text    := FieldByName('fd_JiaoAB4').AsString + '小时';
         Edit_MDrq_JiaoBC4.Text    := FieldByName('fd_JiaoBC4').AsString + '小时';
         Edit_MDrq_JiaoCA4.Text    := FieldByName('fd_JiaoCA4').AsString + '小时';

         Edit_MDrq_XingA1.Text     := FieldByName('fd_XingA1').AsString + '小时';
         Edit_MDrq_XingB1.Text     := FieldByName('fd_XingB1').AsString + '小时';
         Edit_MDrq_XingC1.Text     := FieldByName('fd_XingC1').AsString + '小时';

         Edit_MDrq_XingA2.Text     := FieldByName('fd_XingA2').AsString + '小时';
         Edit_MDrq_XingB2.Text     := FieldByName('fd_XingB2').AsString + '小时';
         Edit_MDrq_XingC2.Text     := FieldByName('fd_XingC2').AsString + '小时';

         Edit_MDrq_XingA3.Text     := FieldByName('fd_XingA3').AsString + '小时';
         Edit_MDrq_XingB3.Text     := FieldByName('fd_XingB3').AsString + '小时';
         Edit_MDrq_XingC3.Text     := FieldByName('fd_XingC3').AsString + '小时';

         Edit_MDrq_XingA4.Text     := FieldByName('fd_XingA4').AsString + '小时';
         Edit_MDrq_XingB4.Text     := FieldByName('fd_XingB4').AsString + '小时';
         Edit_MDrq_XingC4.Text     := FieldByName('fd_XingC4').AsString + '小时';

         Edit_MDrq_Sum_JiaoAB.Text := FieldByName('fd_Sum_JiaoAB').AsString + 'kVar';
         Edit_MDrq_Sum_JiaoBC.Text := FieldByName('fd_Sum_JiaoBC').AsString + 'kVar';
         Edit_MDrq_Sum_JiaoCA.Text := FieldByName('fd_Sum_JiaoCA').AsString + 'kVar';
         Edit_MDrq_Sum_XingA.Text  := FieldByName('fd_Sum_XingA').AsString  + 'kVar';
         Edit_MDrq_Sum_XingB.Text  := FieldByName('fd_Sum_XingB').AsString  + 'kVar';
         Edit_MDrq_Sum_XingC.Text  := FieldByName('fd_Sum_XingC').AsString  + 'kVar';

      end;  //end if not nil
    end;    //end if RecordCount <> 0
  end;      //end with
end;

procedure TFormOrder3.Show_Month_Max(strID : string; strName : string);
var
  strCurTime : string;
  strSQL     : string;
begin
  strCurTime := DateToStr(now);
  strCurTime := strCurTime + ' 00:00:00';
  strSQL := Format('select * from tx_Month_Max where fd_BianTaiID=%s and fd_SysTime>= ''%s'' and fd_OrderIndex=%d ',[strID,strCurTime,OrderIndex]);
  //ShowMessage(strSQL);

  with  MyModule.AdoQuery do
  begin
    Close();
    SQL.Clear();
    SQL.Add(strSQL);
    try
      Open();
    except
      ExecSQL();
    end;

    if RecordCount <> 0 then
    begin
      if not eof then
      begin
         Edit_Max_Name.Text  := strName;
         Edit_Max_Time.Text  := FieldByName('fd_Time').AsString;

         Edit_Max_Ia.Text    := FieldByName('fd_Ia').AsString;
         Edit_Max_Ib.Text    := FieldByName('fd_Ib').AsString;
         Edit_Max_Ic.Text    := FieldByName('fd_Ic').AsString;
         Edit_Max_TIa.Text   := FieldByName('fd_TIa').AsString;
         Edit_Max_TIb.Text   := FieldByName('fd_TIb').AsString;
         Edit_Max_TIc.Text   := FieldByName('fd_TIc').AsString;

         Edit_Max_Ua.Text    := FieldByName('fd_Ua').AsString;
         Edit_Max_Ub.Text    := FieldByName('fd_Ub').AsString;
         Edit_Max_Uc.Text    := FieldByName('fd_Uc').AsString;
         Edit_Max_TUa.Text   := FieldByName('fd_TUa').AsString;
         Edit_Max_TUb.Text   := FieldByName('fd_TUb').AsString;
         Edit_Max_TUc.Text   := FieldByName('fd_TUc').AsString;

         Edit_Max_Pa.Text    :