yddfjsqd.~cpp

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

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

#include <vcl.h>
#pragma hdrstop

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

 YDData->TBpqdm->Open();
 YDData->TBpqdm->First();
 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;
 if (RadioButton4->Checked)
   {
    if (RadioButton1->Checked)
      sql="select * from yhda0000";
    if (RadioButton2->Checked)
      sql="select * from yhda0000 WHERE YHDA0000.KLBS='"+ComboBox1->Text+"'";
    if (RadioButton3->Checked)
      sql="select * from yhda0000 WHERE YHDA0000.XZQ LIKE '"+ComboBox2->Text.SubString(1,ComboBox2->Text.AnsiPos(":")-1)+"%'";
    Query1->SQL->Clear();
    Query1->SQL->Add(sql);
    Query1->ExecSQL();
    Query1->Open();
    if (Query1->RecordCount>0)
     {
      Fdydfjsqd=new TFdydfjsqd(Application);
      Fdydfjsqd->QuickRep1->Preview();
      delete Fdydfjsqd;
     }
    else
     ShowMessage("指定范围内没有任何用户！");
 }
 if (RadioButton5->Checked)
  {
   sql="select yhda0000.hhhh,yhda0000.yhmc,yhda0000.yhdz,dbda0000.dblb,dbda0000.bl,dbda0000.sycj,";
   sql=sql+"dbda0000.bycj,dbda0000.cs,dbda0000.bldl,dbda0000.fldl,dbda0000.bsdl,dbda0000.xsdl,dbda0000.zdl,";
   sql=sql+"dbda0000.blf,dbda0000.sycjf,dbda0000.bycjf,dbda0000.csf,dbda0000.bldlf,dbda0000.fldlf,dbda0000.bsdlf,dbda0000.xsdlf,dbda0000.zdlf,";
   sql=sql+"dbda0000.blg,dbda0000.sycjg,dbda0000.bycjg,dbda0000.csg,dbda0000.bldlg,dbda0000.fldlg,dbda0000.bsdlg,dbda0000.xsdlg,dbda0000.zdlg";
   sql=sql+" from yhda0000,dbda0000";
    if (RadioButton1->Checked)
      sql=sql+" where yhda0000.hhhh=dbda0000.hhhh";
    if (RadioButton2->Checked)
      sql=sql+" WHERE yhda0000.hhhh=dbda0000.hhhh and YHDA0000.KLBS='"+ComboBox1->Text+"'";
    if (RadioButton3->Checked)
      sql=sql+" WHERE yhda0000.hhhh=dbda0000.hhhh and YHDA0000.XZQ LIKE '"+ComboBox2->Text.SubString(1,ComboBox2->Text.AnsiPos(":")-1)+"%'";
    Query2->SQL->Clear();
    Query2->SQL->Add(sql);
    Query2->ExecSQL();
    Query2->Open();

   if (Query2->RecordCount>0)
     {
      Table1->Close();
      Table1->EmptyTable();
      Table1->Open();
      AnsiString hhhh="%%%%";
      Query2->First();
      while (!Query2->Eof)
         {
          Table1->Append();
          if (Query2->FieldByName("hhhh")->AsString!=hhhh)
            {
             hhhh=Query2->FieldByName("hhhh")->AsString;
             Table1->FieldByName("hhhh")->AsString=Query2->FieldByName("hhhh")->AsString;
             Table1->FieldByName("yhmc")->AsString=Query2->FieldByName("yhmc")->AsString;
             Table1->FieldByName("yhdz")->AsString=Query2->FieldByName("yhdz")->AsString;
            }

          if (Query2->FieldByName("dblb")->AsString.SubString(5,2)!="复")
           {
            Table1->FieldByName("dblb")->AsString=Query2->FieldByName("dblb")->AsString;
            Table1->FieldByName("bl")->AsFloat=Query2->FieldByName("bl")->AsFloat;
            Table1->FieldByName("sycj")->AsFloat=Query2->FieldByName("sycj")->AsFloat;
            Table1->FieldByName("bycj")->AsFloat=Query2->FieldByName("bycj")->AsFloat;
            Table1->FieldByName("cs")->AsFloat=Query2->FieldByName("cs")->AsFloat;
            Table1->FieldByName("bldl")->AsFloat=Query2->FieldByName("bldl")->AsFloat;
            Table1->FieldByName("fldl")->AsFloat=Query2->FieldByName("fldl")->AsFloat;
            Table1->FieldByName("bsdl")->AsFloat=Query2->FieldByName("bsdl")->AsFloat;
            Table1->FieldByName("xsdl")->AsFloat=Query2->FieldByName("xsdl")->AsFloat;
            Table1->FieldByName("zdl")->AsFloat=Query2->FieldByName("zdl")->AsFloat;
           }
           else
           {
            Table1->FieldByName("dblb")->AsString=Query2->FieldByName("dblb")->AsString.SubString(1,4)+"(平)";
            Table1->FieldByName("bl")->AsFloat=Query2->FieldByName("bl")->AsFloat;
            Table1->FieldByName("sycj")->AsFloat=Query2->FieldByName("sycj")->AsFloat;
            Table1->FieldByName("bycj")->AsFloat=Query2->FieldByName("bycj")->AsFloat;
            Table1->FieldByName("cs")->AsFloat=Query2->FieldByName("cs")->AsFloat;
            Table1->FieldByName("bldl")->AsFloat=Query2->FieldByName("bldl")->AsFloat;
            Table1->FieldByName("fldl")->AsFloat=Query2->FieldByName("fldl")->AsFloat;
            Table1->FieldByName("bsdl")->AsFloat=Query2->FieldByName("bsdl")->AsFloat;
            Table1->FieldByName("xsdl")->AsFloat=Query2->FieldByName("xsdl")->AsFloat;
            Table1->FieldByName("zdl")->AsFloat=Query2->FieldByName("zdl")->AsFloat;
            Table1->Append();
            Table1->FieldByName("dblb")->AsString=Query2->FieldByName("dblb")->AsString.SubString(1,4)+"(峰)";
            Table1->FieldByName("bl")->AsFloat=Query2->FieldByName("blf")->AsFloat;
            Table1->FieldByName("sycj")->AsFloat=Query2->FieldByName("sycjf")->AsFloat;
            Table1->FieldByName("bycj")->AsFloat=Query2->FieldByName("bycjf")->AsFloat;
            Table1->FieldByName("cs")->AsFloat=Query2->FieldByName("csf")->AsFloat;
            Table1->FieldByName("bldl")->AsFloat=Query2->FieldByName("bldlf")->AsFloat;
            Table1->FieldByName("fldl")->AsFloat=Query2->FieldByName("fldlf")->AsFloat;
            Table1->FieldByName("bsdl")->AsFloat=Query2->FieldByName("bsdlf")->AsFloat;
            Table1->FieldByName("xsdl")->AsFloat=Query2->FieldByName("xsdlf")->AsFloat;
            Table1->FieldByName("zdl")->AsFloat=Query2->FieldByName("zdlf")->AsFloat;
            Table1->Append();
            Table1->FieldByName("dblb")->AsString=Query2->FieldByName("dblb")->AsString.SubString(1,4)+"(谷)";
            Table1->FieldByName("bl")->AsFloat=Query2->FieldByName("blg")->AsFloat;
            Table1->FieldByName("sycj")->AsFloat=Query2->FieldByName("sycjg")->AsFloat;
            Table1->FieldByName("bycj")->AsFloat=Query2->FieldByName("bycjg")->AsFloat;
            Table1->FieldByName("cs")->AsFloat=Query2->FieldByName("csg")->AsFloat;
            Table1->FieldByName("bldl")->AsFloat=Query2->FieldByName("bldlg")->AsFloat;
            Table1->FieldByName("fldl")->AsFloat=Query2->FieldByName("fldlg")->AsFloat;
            Table1->FieldByName("bsdl")->AsFloat=Query2->FieldByName("bsdlg")->AsFloat;
            Table1->FieldByName("xsdl")->AsFloat=Query2->FieldByName("xsdlg")->AsFloat;
            Table1->FieldByName("zdl")->AsFloat=Query2->FieldByName("zdlg")->AsFloat;
           }
           Query2->Next();
         }
       Table1->Post();
       Fdydljsqd=new TFdydljsqd(Application);
       Fdydljsqd->QuickRep1->Preview();
       delete Fdydljsqd;
      }
   else
     ShowMessage("指定范围内没有任何用户！");

  }

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



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

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

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

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

void __fastcall TFdfjsqd::RadioButton3Click(TObject *Sender)
{
  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();
Query1->Close();
Table1->Close();


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