ydcsqd.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "YDcsqd.h"
#include "YDdatam.h"
#include "YDmain.h"
#include "YDdycsqd.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFdfjsqd *Fdfjsqd;
//---------------------------------------------------------------------------
__fastcall TFdfjsqd::TFdfjsqd(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFdfjsqd::FormCreate(TObject *Sender)
{
//YDData->TByhda->Open();
 YDData->TBxlcs->Open();
 while (!YDData->TBxlcs->Eof)
   {
     ComboBox1->Items->Add(YDData->TBxlcs->FieldByName("xlmc")->AsString);
     YDData->TBxlcs->Next();
   }

 YDData->TBpqdm->Open();
 while (!YDData->TBpqdm->Eof)
    {
      ComboBox2->Items->Add(Trim(YDData->TBpqdm->FieldByName("pqdm")->AsString)+":"+YDData->TBpqdm->FieldByName("pqmc")->AsString);
      YDData->TBpqdm->Next();
    }

YDData->TBxtcs->Open();
Caption=YDData->TBxtcs->FieldByName("XT_HSQX")->AsString.SubString(1,4)+"年"+
YDData->TBxtcs->FieldByName("XT_HSQX")->AsString.SubString(6,2)+"月份电费清单打印";
}
//---------------------------------------------------------------------------




void __fastcall TFdfjsqd::SpeedButton6Click(TObject *Sender)
{
 AnsiString sql;
    sql="select * from yhda0000";
    if (RadioButton1->Checked)
      sql=sql+"select * from yhda0000";
    if (RadioButton3->Checked)
      sql=sql+"select * from yhda0000 WHERE YHDA0000.XZQ='"+ComboBox2->Text+"'";
    if (RadioButton2->Checked)
      sql=sql+"select * from yhda0000 WHERE YHDA0000.KLBS='"+ComboBox1->Text+"'";
    Query1->SQL->Clear();
    Query1->SQL->Add(sql);
    Query1->ExecSQL();
    Query1->Open();
  Fdycsqd=new TFdycsqd(Application);
  Fdycsqd->QuickRep1->Preview();
  delete Fdycsqd;

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



void __fastcall TFdfjsqd::SpeedButton7Click(TObject *Sender)
{
 Close();
}
//---------------------------------------------------------------------------

void __fastcall TFdfjsqd::RadioButton1Click(TObject *Sender)
{
   if (RadioButton1->Checked)
     {
      ComboBox1->Text="";
      ComboBox2->Text="";
      ComboBox1->Enabled=false;
      ComboBox2->Enabled=false;
     }

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

void __fastcall TFdfjsqd::RadioButton2Click(TObject *Sender)
{
  if (RadioButton2->Checked)
    {
      ComboBox1->Enabled=true;
      ComboBox2->Text="";
      ComboBox2->Enabled=false;
     }
}
//---------------------------------------------------------------------------

void __fastcall TFdfjsqd::RadioButton3Click(TObject *Sender)
{
  if (RadioButton3->Checked)
     {
      ComboBox1->Text="";
      ComboBox1->Enabled=false;
      ComboBox2->Enabled=true;
      }

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

void __fastcall TFdfjsqd::FormClose(TObject *Sender, TCloseAction &Action)
{
YDData->TBxtcs->Close();
YDData->TBxlcs->Close();
YDData->TBpqdm->Close();


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