ydcbtj.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "YDcbtj.h"
#include "YDdatam.h"
#include "YDcbztdy.h"
#include "YDwcqd.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFcbtj *Fcbtj;
//---------------------------------------------------------------------------
__fastcall TFcbtj::TFcbtj(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFcbtj::FormCreate(TObject *Sender)
{
  YDData->TBpqdm->Open();
  YDData->TBbzyhda->Open();
  Table1->Open();
  Table1->EmptyTable();
  TTreeNode *nod;
  nod=TreeView1->Items->Add(NULL,"全部片区");
  YDData->TBpqdm->First();
  while (!YDData->TBpqdm->Eof)
     {
      TreeView1->Items->AddChild(nod,YDData->TBpqdm->FieldByName("PQDM")->AsString+"("+
      YDData->TBpqdm->FieldByName("PQMC")->AsString+")");
      YDData->TBpqdm->Next();
     }
  int yhzs,ychs,wchs;
  YDData->TBpqdm->First();
  while (!YDData->TBpqdm->Eof)
     {
      yhzs=0;ychs=0;wchs=0;
      YDData->TBbzyhda->First();
       while (!YDData->TBbzyhda->Eof)
         {
          if (YDData->TBbzyhda->FieldByName("YD_CSZT")->AsString=="0"&&
          YDData->TBbzyhda->FieldByName("YD_QH")->AsString==YDData->TBpqdm->FieldByName("PQDM")->AsString)
               wchs+=1;
          if (YDData->TBbzyhda->FieldByName("YD_CSZT")->AsString!="0"&&
              YDData->TBbzyhda->FieldByName("YD_QH")->AsString==YDData->TBpqdm->FieldByName("PQDM")->AsString)
               ychs+=1;
          if (YDData->TBbzyhda->FieldByName("YD_QH")->AsString==YDData->TBpqdm->FieldByName("PQDM")->AsString)
               yhzs+=1;
          YDData->TBbzyhda->Next();
         }
       Table1->Append();
       Table1->FieldByName("QH")->AsString=YDData->TBpqdm->FieldByName("PQDM")->AsString;
       Table1->FieldByName("PQMC")->AsString=YDData->TBpqdm->FieldByName("PQMC")->AsString;
       Table1->FieldByName("YHZS")->AsString=yhzs;
       Table1->FieldByName("YCHS")->AsString=ychs;
       Table1->FieldByName("WCHS")->AsString=wchs;
       Table1->Post();
       YDData->TBpqdm->Next();
     }
  Table1->First();

}
//---------------------------------------------------------------------------
void __fastcall TFcbtj::FormClose(TObject *Sender, TCloseAction &Action)
{
  YDData->TBbzyhda->Filtered=false;
  YDData->TBpqdm->Close();
  YDData->TBbzyhda->Close();
  Table1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TFcbtj::TreeView1Click(TObject *Sender)
{
  if (TreeView1->Selected!=NULL)
   {
    YDData->TBbzyhda->Filtered=false;
    YDData->TBbzyhda->Filtered=true;
    YDData->TBbzyhda->Filter="YD_QH='"+TreeView1->Selected->Text.SubString(1,4)+"' AND YD_CSZT='0'";
    YDData->TBbzyhda->First();
   }
}
//---------------------------------------------------------------------------
void __fastcall TFcbtj::SpeedButton2Click(TObject *Sender)
{
 Close();        
}
//---------------------------------------------------------------------------

void __fastcall TFcbtj::SpeedButton4Click(TObject *Sender)
{
 Close();        
}
//---------------------------------------------------------------------------

void __fastcall TFcbtj::SpeedButton1Click(TObject *Sender)
{
  Fcbtjdy=new TFcbtjdy(Application);
  Fcbtjdy->QuickRep1->Preview();
  delete Fcbtjdy;

}
//---------------------------------------------------------------------------

void __fastcall TFcbtj::SpeedButton3Click(TObject *Sender)
{
  Fwcyhdy=new TFwcyhdy(Application);
  Fwcyhdy->QuickRep1->Preview();
  delete Fwcyhdy;
        
}
//---------------------------------------------------------------------------