ydhhflbb.cpp

营业用电管理系统(网络版)是本公司推出的新一代软件产品

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "YDhhflbb.h"
#include "YDdatam.h"
#include "YHDL.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFhyflbb *Fhyflbb;
//---------------------------------------------------------------------------
__fastcall TFhyflbb::TFhyflbb(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TFhyflbb::FormCreate(TObject *Sender)
{
  YDData->TBxtcs->Open();
  QRLabel11->Caption=QRLabel11->Caption+YDData->TBxtcs->FieldByName("XT_DWMC")->AsString;
  QRLabel14->Caption=YDData->TBxtcs->FieldByName("XT_HSQX")->AsString.SubString(1,4)+"年"+
  YDData->TBxtcs->FieldByName("XT_HSQX")->AsString.SubString(6,2)+"月";
  QRLabel12->Caption=QRLabel12->Caption+CLogin->czyname;
  Query1->Close();
  Query1->ExecSQL();
  Query1->Open();
  Table1->Close();
  Table1->EmptyTable();
  Table1->Open();
  YDData->TBhydm->Open();
  for (int i=0;i<40;i++)
  {
      Table1->Append();
      Table1->FieldByName("BH1")->AsString=YDData->TBhydm->FieldByName("HY_HYDM")->AsString;
      Table1->FieldByName("HYFL1")->AsString=TrimRight(YDData->TBhydm->FieldByName("HY_HYMC")->AsString);
      Table1->Post();
     YDData->TBhydm->Next();
  }
   Table1->First();
 while (!YDData->TBhydm->Eof)
   {
     Table1->Edit();
     Table1->FieldByName("BH2")->AsString=YDData->TBhydm->FieldByName("HY_HYDM")->AsString;
     Table1->FieldByName("HYFL2")->AsString=TrimRight(YDData->TBhydm->FieldByName("HY_HYMC")->AsString);
     Table1->Next();
     YDData->TBhydm->Next();
   }
  Table1->First();
  while (!Table1->Eof)
   {
    Table1->Edit();
    Query1->First();
    while (!Query1->Eof)
    {
      if (Table1->FieldByName("BH1")->AsString==Query1->FieldByName("DB_HYDM")->AsString)
       {
        Table1->FieldByName("HS1")->AsFloat=Query1->FieldByName("HS")->AsFloat;
        Table1->FieldByName("DL1")->AsFloat=Query1->FieldByName("DL")->AsFloat;
        break;
        }
       if (Table1->FieldByName("BH2")->AsString==Query1->FieldByName("DB_HYDM")->AsString)
        {
         Table1->FieldByName("HS2")->AsFloat=Query1->FieldByName("HS")->AsFloat;
         Table1->FieldByName("DL2")->AsFloat=Query1->FieldByName("DL")->AsFloat;
         break;
         }
      Query1->Next();
     }
    Table1->Post();
    Table1->Next();
   }
  Table1->First();
  int hs[81];
  int dl[81];
   for (int i=1;i<=39;i++)
   {
    if (Table1->FieldByName("BH1")->AsString=="79")
     Table1->Next();
     hs[i]=Table1->FieldByName("HS1")->AsInteger;
     dl[i]=Table1->FieldByName("DL1")->AsInteger;
     Table1->Next();
   }
  Table1->First();
   for (int i=40;i<=80;i++)
   {
     hs[i]=Table1->FieldByName("HS2")->AsInteger;
     dl[i]=Table1->FieldByName("DL2")->AsInteger;
     Table1->Next();
   }
   Table1->First();
   while (!Table1->Eof)
     {
       if (Table1->FieldByName("BH1")->AsString=="03")
         {
           Table1->Edit();
           Table1->FieldByName("HS1")->AsInteger=hs[5]+hs[6]+hs[7]+hs[8]+hs[9]+hs[10];
           Table1->FieldByName("DL1")->AsInteger=dl[5]+dl[6]+dl[7]+dl[8]+dl[9]+dl[10];
           Table1->Post();
          }
       if (Table1->FieldByName("BH1")->AsString=="11")
         {
           Table1->Edit();
           Table1->FieldByName("HS1")->AsInteger=hs[21]+hs[24]+hs[26]+hs[27]+hs[28]+hs[37]+hs[38]+
           hs[16]+hs[17]+hs[18]+hs[19]+hs[20]+hs[22]+hs[23]+hs[29]+hs[32]+hs[33]+hs[35]+hs[39]+hs[41]+hs[43]+hs[44]+hs[45]+hs[47]+hs[49]+hs[51];
           Table1->FieldByName("DL1")->AsInteger=dl[21]+dl[24]+dl[26]+dl[27]+dl[28]+dl[37]+dl[38]+
           dl[16]+dl[17]+dl[18]+dl[19]+dl[20]+dl[22]+dl[23]+dl[29]+dl[32]+dl[33]+dl[35]+dl[39]+dl[41]+dl[43]+dl[44]+dl[45]+dl[47]+dl[49]+dl[51];
           Table1->Post();
          }
       if (Table1->FieldByName("BH1")->AsString=="12")
         {
           Table1->Edit();
           Table1->FieldByName("HS1")->AsInteger=hs[21]+hs[24]+hs[26]+hs[27]+hs[28]+hs[37]+hs[38];
           Table1->FieldByName("DL1")->AsInteger=dl[21]+dl[24]+dl[26]+dl[27]+dl[28]+dl[37]+dl[38];
           Table1->Post();
          }

       if (Table1->FieldByName("BH1")->AsString=="13")
         {
           Table1->Edit();
           Table1->FieldByName("HS1")->AsInteger=hs[16]+hs[17]+hs[18]+hs[19]+hs[20]+hs[22]+hs[23]+hs[29]+hs[32]+hs[33]+hs[35]+
           hs[39]+hs[41]+hs[43]+hs[44]+hs[45]+hs[47]+hs[49]+hs[51];
           Table1->FieldByName("DL1")->AsInteger=dl[16]+dl[17]+dl[18]+dl[19]+dl[20]+dl[22]+dl[23]+dl[29]+dl[32]+dl[33]+dl[35]+
           dl[39]+dl[41]+dl[43]+dl[44]+dl[45]+dl[47]+dl[49]+dl[51];
           Table1->Post();
          }

       if (Table1->FieldByName("BH1")->AsString=="14")
         {
           Table1->Edit();
           Table1->FieldByName("HS1")->AsInteger=hs[16]+hs[17]+hs[18]+hs[19]+hs[20]+hs[21]+hs[22]+hs[23]+hs[24];
           Table1->FieldByName("DL1")->AsInteger=dl[16]+dl[17]+dl[18]+dl[19]+dl[20]+dl[21]+dl[22]+dl[23]+dl[24];
           Table1->Post();
          }

       if (Table1->FieldByName("BH1")->AsString=="15")
         {
           Table1->Edit();
           Table1->FieldByName("HS1")->AsInteger=hs[16]+hs[17]+hs[18]+hs[19]+hs[20]+hs[21]+hs[22];
           Table1->FieldByName("DL1")->AsInteger=dl[16]+dl[17]+dl[18]+dl[19]+dl[20]+dl[21]+dl[22];
           Table1->Post();
          }
       if (Table1->FieldByName("BH1")->AsString=="25")
         {
           Table1->Edit();
           Table1->FieldByName("HS1")->AsInteger=hs[26]+hs[27]+hs[28]+hs[29]+hs[32]+hs[33]+hs[35]+
           hs[37]+hs[38]+hs[39]+hs[41]+hs[43]+hs[44]+hs[45]+hs[47]+hs[49]+hs[51];
           Table1->FieldByName("DL1")->AsInteger=dl[26]+dl[27]+dl[28]+dl[29]+dl[32]+dl[33]+dl[35]+
           dl[37]+dl[38]+dl[39]+dl[41]+dl[43]+dl[44]+dl[45]+dl[47]+dl[49]+dl[51];
           Table1->Post();
          }
       if (Table1->FieldByName("BH2")->AsString=="55")
         {
           Table1->Edit();
           Table1->FieldByName("HS2")->AsInteger=hs[56]+hs[59];
           Table1->FieldByName("DL2")->AsInteger=dl[56]+dl[59];
           Table1->Post();
          }
       if (Table1->FieldByName("BH2")->AsString=="61")
         {
           Table1->Edit();
           Table1->FieldByName("HS2")->AsInteger=hs[62]+hs[65]+hs[66]+hs[67]+hs[68]+hs[69];
           Table1->FieldByName("DL2")->AsInteger=dl[62]+dl[65]+dl[66]+dl[67]+dl[68]+dl[69];
           Table1->Post();
          }
       if (Table1->FieldByName("BH2")->AsString=="70")
         {
           Table1->Edit();
           Table1->FieldByName("HS2")->AsInteger=hs[71]+hs[72]+hs[73]+hs[74]+hs[77];
           Table1->FieldByName("DL2")->AsInteger=dl[71]+dl[72]+dl[73]+dl[74]+dl[77];
           Table1->Post();
          }


       Table1->Next();
     }

//
 Table1->First();
  int hsz[81];
  int dlz[81];
   for (int i=1;i<=39;i++)
   {
    if (Table1->FieldByName("BH1")->AsString=="79")
     Table1->Next();
     hsz[i]=Table1->FieldByName("HS1")->AsInteger;
     dlz[i]=Table1->FieldByName("DL1")->AsInteger;
     Table1->Next();
   }
  Table1->First();
   for (int i=40;i<=80;i++)
   {
     hsz[i]=Table1->FieldByName("HS2")->AsInteger;
     dlz[i]=Table1->FieldByName("DL2")->AsInteger;
     Table1->Next();
   }
   Table1->First();
   while (!Table1->Eof)
     {
       if (Table1->FieldByName("BH1")->AsString=="01")
         {
           Table1->Edit();
           Table1->FieldByName("HS1")->AsInteger=hsz[03]+hsz[11]+hsz[53]+hsz[54]+hsz[55]+hsz[60]+hsz[61]+hsz[70];
           Table1->FieldByName("DL1")->AsInteger=dlz[03]+dlz[11]+dlz[53]+dlz[54]+dlz[55]+dlz[60]+dlz[61]+dlz[70];
           Table1->Post();
         }
       if (Table1->FieldByName("BH1")->AsString=="02")
         {
           Table1->Edit();
           Table1->FieldByName("HS1")->AsInteger=hsz[03]+hsz[11]+hsz[53]+hsz[54]+hsz[55]+hsz[60]+hsz[61];
           Table1->FieldByName("DL1")->AsInteger=dlz[03]+dlz[11]+dlz[53]+dlz[54]+dlz[55]+dlz[60]+dlz[61];
           Table1->Post();
         }
         Table1->Next();
      }

//
 }
//---------------------------------------------------------------------------
void __fastcall TFhyflbb::FormClose(TObject *Sender, TCloseAction &Action)
{
 YDData->TBhydm->Close();
 YDData->TBxtcs->Close();
 Query1->Close();
 Table1->Close();
}
//---------------------------------------------------------------------------