fdfqd.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Fdfqd.h"
#include "YDdatam.h"
#include "DFQDDY.h"
#include "YDpqxz.h"
#include "YDmain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFdfcsqd *Fdfcsqd;
//---------------------------------------------------------------------------
__fastcall TFdfcsqd::TFdfcsqd(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFdfcsqd::FormCreate(TObject *Sender)
{
//YDData->TByhda->Open();
YDData->TBxtcs->Open();
Caption=YDData->TBxtcs->FieldByName("XT_HSQX")->AsString.SubString(1,4)+"年"+
YDData->TBxtcs->FieldByName("XT_HSQX")->AsString.SubString(6,2)+"月份电费清单打印";
}
//---------------------------------------------------------------------------




void __fastcall TFdfcsqd::SpeedButton6Click(TObject *Sender)
{
/*    AnsiString sql="";
    AnsiString pq="";
    AnsiString rq="";
    AnsiString cby="";
    sql="SELECT YHDA0000.HHHH,YHDA0000.YHMC,YHDA0000.YHDZ,";
    sql=sql+"DBDA0000.DBLB,DBDA0000.BL,DBDA0000.SYCJ,DBDA0000.BYCJ,DBDA0000.ZDL,DBDA0000.DDDJ,";
    sql=sql+"YHDA_DB.DB_DDDF,YHDA_DB.DB_FJF,YHDA_DB.DB_JJJE,YHDA_DB.DB_LLJF,YHDA_DB.DB_ZGF,YHDA_DB.DB_DFHJ";
    sql=sql+" FROM YHDA_A,YHDA_DB";
    if (RadioButton1->Checked)
      sql=sql+" WHERE YHDA_A.YD_SQH=YHDA_DB.DB_SQH";
    if (RadioButton2->Checked)
      sql=sql+" WHERE YHDA_A.YD_SQH=YHDA_DB.DB_SQH AND YHDA_A.YD_QH='"+Edit1->Text+"' AND YHDA_DB.DB_QH='"+Edit1->Text+"'";
    if (RadioButton3->Checked)
      sql=sql+" WHERE YHDA_A.YD_SQH='"+YDData->TBbzyhda->FieldByName("YD_SQH")->AsString+"' AND YHDA_DB.DB_SQH='"+YDData->TBbzyhda->FieldByName("YD_SQH")->AsString+"'";
    YDData->Qdbcx->SQL->Clear();
    YDData->Qdbcx->SQL->Add(sql);
    YDData->Qdbcx->ExecSQL();
    YDData->Qdbcx->Open();
    rq=Label1->Caption;
    if (RadioButton1->Checked)
       pq="全部片区";
    if (RadioButton2->Checked)
       {
        YDData->TBpqdm->Close();
        YDData->TBpqdm->IndexFieldNames="PQDM";
        YDData->TBpqdm->Open();
        YDData->TBpqdm->FindKey(new TVarRec(Edit1->Text),0);
        pq="("+Edit1->Text+")"+YDData->TBpqdm->FieldByName("PQMC")->AsString;
       }
    if (RadioButton3->Checked)
       {
        YDData->TBpqdm->Close();
        YDData->TBpqdm->IndexFieldNames="PQDM";
        YDData->TBpqdm->Open();
        YDData->TBpqdm->FindKey(new TVarRec(Edit1->Text),0);
        pq="("+Edit1->Text+")"+YDData->TBpqdm->FieldByName("PQMC")->AsString;
        cby=YDData->TBbzyhda->FieldByName("YD_CBY")->AsString;
       }
  Fmain->pq=pq;
  Fmain->rq=rq;
  Fmain->cby=cby;
  Fdfqddy=new TFdfqddy(Application);
  Fdfqddy->QuickRep1->Preview();
  delete Fdfqddy;
  */
}
//---------------------------------------------------------------------------



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

void __fastcall TFdfcsqd::RadioButton1Click(TObject *Sender)
{
   if (RadioButton1->Checked)
     {
      Edit1->Text="";
      Edit2->Text="";
      Edit1->Enabled=false;
      Edit2->Enabled=false;
     }

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

void __fastcall TFdfcsqd::RadioButton2Click(TObject *Sender)
{
/*  if (RadioButton2->Checked)
    {
      Edit1->Enabled=true;
      Edit2->Text="";
      Edit2->Enabled=false;
      Fpqxz=new TFpqxz(Application);
      Fpqxz->ShowModal();
      Edit1->Text=Fpqxz->pqdm;
      delete Fpqxz;

     }
  */
}
//---------------------------------------------------------------------------

void __fastcall TFdfcsqd::RadioButton3Click(TObject *Sender)
{
  if (RadioButton3->Checked)
     {
      Edit1->Enabled=false;
      Edit2->Enabled=true;
      Edit2->SetFocus();
      }
        
}
//---------------------------------------------------------------------------

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

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