yddycsqd.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "YDdycsqd.h"
#include "YDdatam.h"
#include "YHDL.h"
#include "YDmain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFdycsqd *Fdycsqd;
//---------------------------------------------------------------------------
__fastcall TFdycsqd::TFdycsqd(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TFdycsqd::FormCreate(TObject *Sender)
{
/*
 double dddf=0.00;
 double fjf=0.00;
 double jjje=0.00;
 double lljf=0.00;
 double zgf=0.00;
 double dfhj=0.00;
 YDData->TBxtcs->Open();
 QRLabel23->Caption= QRLabel23->Caption+CLogin->czyname;
 YDData->Qdbcx->First();
  while (!YDData->Qdbcx->Eof)
  {
   dddf=dddf+YDData->Qdbcx->FieldByName("DB_DDDF")->AsFloat;
   fjf=fjf+YDData->Qdbcx->FieldByName("DB_FJF")->AsFloat;
   jjje=jjje+YDData->Qdbcx->FieldByName("DB_JJJE")->AsFloat;
   lljf=lljf+YDData->Qdbcx->FieldByName("DB_LLJF")->AsFloat;
   zgf=zgf+YDData->Qdbcx->FieldByName("DB_ZGF")->AsFloat;
   dfhj=dfhj+YDData->Qdbcx->FieldByName("DB_DFHJ")->AsFloat;
   YDData->Qdbcx->Next();
  }
  QRLabel27->Caption=FloatToStr(dddf);
  QRLabel28->Caption=FloatToStr(fjf);
  QRLabel29->Caption=FloatToStr(jjje);
  QRLabel30->Caption=FloatToStr(lljf);
  QRLabel31->Caption=FloatToStr(zgf);
  QRLabel32->Caption=FloatToStr(dfhj);
  QRLabel4->Caption=Fmain->GetBigMoney(FloatToStr(dfhj));
  QRLabel22->Caption=QRLabel22->Caption+Fmain->cby;
  QRLabel20->Caption=Fmain->rq;
  QRLabel2->Caption=QRLabel2->Caption+Fmain->pq;
 */
}
//---------------------------------------------------------------------------

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