ydldyhqd.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "YDldyhqd.h"
#include "YDdatam.h"
#include "YDmain.h"
#include "YDpqxz.h"
#include "YDldyhdy.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFldyhqd *Fldyhqd;
//---------------------------------------------------------------------------
__fastcall TFldyhqd::TFldyhqd(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFldyhqd::FormCreate(TObject *Sender)
{
//  YDData->TBbzyhda->Open();
  YDData->TBxtcs->Open();
  YDData->TBdbcs->Open();
  YDData->TBdbcs->Filtered=false;
  YDData->TBdbcs->Filtered=true;
  YDData->TBdbcs->Filter="DB_DD=DB_CJDD";
  YDData->TBdbcs->First();
  Label1->Caption=YDData->TBxtcs->FieldByName("XT_HSQX")->AsString.SubString(1,4)+"年"+
  YDData->TBxtcs->FieldByName("XT_HSQX")->AsString.SubString(6,2)+"月份"+Label1->Caption;
}
//---------------------------------------------------------------------------
void __fastcall TFldyhqd::SpeedButton2Click(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------
void __fastcall TFldyhqd::Button1Click(TObject *Sender)
{
  Fpqxz=new TFpqxz(Application);
  Fpqxz->ShowModal();
  Edit1->Text=YDData->TBpqdm->FieldByName("PQDM")->AsString+
  "("+YDData->TBpqdm->FieldByName("PQMC")->AsString+")";
  delete Fpqxz;

}
//---------------------------------------------------------------------------
void __fastcall TFldyhqd::SpeedButton1Click(TObject *Sender)
{
 if (RadioButton2->Checked)
 {
  YDData->TBdbcs->Filtered=false;
  YDData->TBdbcs->Filtered=true;
  YDData->TBdbcs->Filter="DB_DD=DB_CJDD AND DB_QH='"+Edit1->Text.SubString(1,4)+"'";
  YDData->TBdbcs->First();
 }
 else
 {
   YDData->TBdbcs->Filtered=false;
   YDData->TBdbcs->Filtered=true;
   YDData->TBdbcs->Filter="DB_DD=DB_CJDD";
   YDData->TBdbcs->First();
 }
  Fldyhdy=new TFldyhdy(Application);
  Fldyhdy->QuickRep1->Preview();
  delete Fldyhdy;

}
//---------------------------------------------------------------------------
void __fastcall TFldyhqd::RadioButton1Click(TObject *Sender)
{

 Edit1->Text="";
 Edit1->Enabled=false;
 Button1->Enabled=false;

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

void __fastcall TFldyhqd::RadioButton2Click(TObject *Sender)
{
 YDData->TBdbcs->Filtered=false;
 Edit1->Enabled=true;
 Button1->Enabled=true;
}
//---------------------------------------------------------------------------


void __fastcall TFldyhqd::FormClose(TObject *Sender, TCloseAction &Action)
{
  YDData->TBdbcs->Filtered=false;
  YDData->TBxtcs->Close();
  YDData->TBdbcs->Close();
}
//---------------------------------------------------------------------------