ydfltj.~cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "YDfltj.h"
#include "YDdatam.h"
#include "YDmain.h"
#include "YDfltjdy.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFydfltj *Fydfltj;
//---------------------------------------------------------------------------
__fastcall TFydfltj::TFydfltj(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFydfltj::FormCreate(TObject *Sender)
{
  YDData->TBhsdw->Open();
  YDData->TBxtcs->Open();
  Edit1->Text=YDData->TBxtcs->FieldByName("xt_hsqx")->AsString;
          
}
//---------------------------------------------------------------------------

void __fastcall TFydfltj::SpeedButton1Click(TObject *Sender)
{
 AnsiString ydfl,sql;
 TQuery *Query1=new TQuery(this);
 Query1->DatabaseName="YDDB";
 sql="select ydfl,'sdl'=sum(dlp+dlf+dlg),'dddf'=sum(jep+jef+jeg) from djkp0000 group by ydfl";
 Query1->Close();
 Query1->SQL->Clear();
 Query1->SQL->Add(sql);
 Query1->ExecSQL();
 Query1->Open();
  Table1->Close();
  Table1->EmptyTable();
  Table1->Open();
  YDData->TBydfl->Open();
  YDData->TBydfl->First();
  while (!YDData->TBydfl->Eof)
    {
     ydfl=YDData->TBydfl->FieldByName("fl_mc")->AsString;
     Query1->First();
     while (!Query1->Eof)
     {
       if (Query1->FieldByName("ydfl")->AsString==ydfl)
        {
         Table1->Append();
         Table1->FieldByName("name")->AsString=Query1->FieldByName("ydfl")->AsString;
         Table1->FieldByName("sdl")->AsFloat=Query1->FieldByName("sdl")->AsFloat;
         Table1->FieldByName("ysdf")->AsFloat=Query1->FieldByName("dddf")->AsFloat;
         Table1->FieldByName("ssdf")->AsFloat=0;
         Table1->FieldByName("ljye")->AsFloat=Query1->FieldByName("dddf")->AsFloat;
         Table1->Post();
        }
      Query1->Next();
     }
    YDData->TBydfl->Next();
    }
 sql="select ydfl,'dddf'=sum(jep+jef+jeg) from djkp0000 where cszt='3' group by ydfl";
 Query1->Close();
 Query1->SQL->Clear();
 Query1->SQL->Add(sql);
 Query1->ExecSQL();
 Query1->Open();
 while (!Query1->Eof)
  {
    Table1->First();
    while (!Table1->Eof)
     {
       if (Table1->FieldByName("name")->AsString==Query1->FieldByName("ydfl")->AsString)
         {
          Table1->Edit();
          Table1->FieldByName("ssdf")->AsFloat=Query1->FieldByName("dddf")->AsFloat;
          Table1->FieldByName("ljye")->AsFloat=Table1->FieldByName("ysdf")->AsFloat-Query1->FieldByName("dddf")->AsFloat;
          Table1->Post();
         }
       Table1->Next();
     }
    Query1->Next();
  }
 sql="select cszt,'jbdf'=sum(jbdf),'fjf'=sum(fjf),'lldf'=sum(lldf),'www'=sum(www),'ljye'=sum(syye) from yhda0000 group by cszt";
 Query1->Close();
 Query1->SQL->Clear();
 Query1->SQL->Add(sql);
 Query1->ExecSQL();
 Query1->Open();
 Query1->First();
 double ysfjf=0,ysjbdf=0,yslldf=0,yswww=0;
 double ssfjf=0,ssjbdf=0,sslldf=0,sswww=0;
 while (!Query1->Eof)
   {
    if (Query1->FieldByName("cszt")->AsString=="3")
       {
         ssfjf=ssfjf+Query1->FieldByName("fjf")->AsFloat;
         ssjbdf=ssjbdf+Query1->FieldByName("jbdf")->AsFloat;
         sslldf=sslldf+Query1->FieldByName("lldf")->AsFloat;
         sswww=sswww+Query1->FieldByName("www")->AsFloat;
       }
     ysfjf=ysfjf+Query1->FieldByName("fjf")->AsFloat;
     ysjbdf=ysjbdf+Query1->FieldByName("jbdf")->AsFloat;
     yslldf=yslldf+Query1->FieldByName("lldf")->AsFloat;
     yswww=yswww+Query1->FieldByName("www")->AsFloat;

    Query1->Next();
   }
    Table1->Append();
    Table1->FieldByName("name")->AsString="附加费";
    Table1->FieldByName("ysdf")->AsFloat=ysfjf;
    Table1->FieldByName("ssdf")->AsFloat=ssfjf;
    Table1->FieldByName("ljye")->AsFloat=ysfjf-ssfjf;
    Table1->Post();
    Table1->Append();
    Table1->FieldByName("name")->AsString="基本电费";
    Table1->FieldByName("ysdf")->AsFloat=ysjbdf;
    Table1->FieldByName("ssdf")->AsFloat=ssjbdf;
    Table1->FieldByName("ljye")->AsFloat=ysjbdf-ssjbdf;
    Table1->Post();
    Table1->Append();
    Table1->FieldByName("name")->AsString="力率电费";
    Table1->FieldByName("ysdf")->AsFloat=yslldf;
    Table1->FieldByName("ssdf")->AsFloat=sslldf;
    Table1->FieldByName("ljye")->AsFloat=yslldf-sslldf;
    Table1->Post();
    Table1->Append();
    Table1->FieldByName("name")->AsString="维管费";
    Table1->FieldByName("ysdf")->AsFloat=yswww;
    Table1->FieldByName("ssdf")->AsFloat=sswww;
    Table1->FieldByName("ljye")->AsFloat=yswww-sswww;
    Table1->Post();
    double zsdl=0,zysdf=0,zssdf=0,zljye=0;
    Table1->First();
    while (!Table1->Eof)
      {
       zsdl=zsdl+Table1->FieldByName("sdl")->AsFloat;
       zysdf=zysdf+Table1->FieldByName("ysdf")->AsFloat;
       zssdf=zssdf+Table1->FieldByName("ssdf")->AsFloat;
       zljye=zljye+Table1->FieldByName("ljye")->AsFloat;
       Table1->Next();
      }
    Table1->Append();
    Table1->FieldByName("name")->AsString="合计";
    Table1->FieldByName("sdl")->AsFloat=zsdl;
    Table1->FieldByName("ysdf")->AsFloat=zysdf;
    Table1->FieldByName("ssdf")->AsFloat=zssdf;
    Table1->FieldByName("ljye")->AsFloat=zljye;
    Table1->Post();
delete Query1;

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

void __fastcall TFydfltj::FormClose(TObject *Sender, TCloseAction &Action)
{
 YDData->TBhsdw->Close();
 YDData->TBxtcs->Close();
 Table1->Close();
 Fmain->gnjs(Fmain->tcjc);
}
//---------------------------------------------------------------------------

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

void __fastcall TFydfltj::SpeedButton2Click(TObject *Sender)
{
 Ffltjdy=new TFfltjdy(Application);
 Ffltjdy->QuickRep1->Preview();
 delete Ffltjdy;        
}
//---------------------------------------------------------------------------