ydyhhmc.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "YDyhhmc.h"
#include "YDdatam.h"
#include "YDmain.h"
#include "YDyhhmcdy.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFyhhmc *Fyhhmc;
//---------------------------------------------------------------------------
__fastcall TFyhhmc::TFyhhmc(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFyhhmc::SpeedButton3Click(TObject *Sender)
{
 Close();        
}
//---------------------------------------------------------------------------


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



void __fastcall TFyhhmc::SpeedButton2Click(TObject *Sender)
{
  Query1->Close();
  Query1->SQL->Clear();
  Query1->SQL->Add("select * from yhda0000 where xzq like '"+ComboBox1->Text.SubString(1,ComboBox1->Text.AnsiPos(":")-1)+"%'");
  Query1->ExecSQL();
  Query1->Open();
  Fyhhmcdy=new TFyhhmcdy(Application);
  Fyhhmcdy->QuickRep1->Preview();
  delete Fyhhmcdy;
}
//---------------------------------------------------------------------------

void __fastcall TFyhhmc::FormCreate(TObject *Sender)
{
YDData->TBpqdm->Open();
YDData->TBpqdm->First();
while (!YDData->TBpqdm->Eof)
  {
    ComboBox1->Items->Add(YDData->TBpqdm->FieldByName("pqdm")->AsString+":"+YDData->TBpqdm->FieldByName("pqmc")->AsString);
    YDData->TBpqdm->Next();
  }
}
//---------------------------------------------------------------------------