ydqfll.~cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "YDqfll.h"
#include "YDmain.h"
#include "YDqfqddy.h"
#include "YDdatam.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFqfll *Fqfll;
//---------------------------------------------------------------------------
__fastcall TFqfll::TFqfll(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFqfll::FormClose(TObject *Sender, TCloseAction &Action)
{
  Query1->Close();
  YDData->TBhsdw->Close();
  Fmain->gnjs(Fmain->tcjc);
}
//---------------------------------------------------------------------------

void __fastcall TFqfll::SpeedButton5Click(TObject *Sender)
{
 AnsiString sql;
 sql="select * from yhda"+ComboBox1->Text+" where hsqx like '"+ComboBox1->Text+"%'";
 sql=sql+" and cszt<>'3' and hjdf>0";
  Query1->Close();
  Query1->SQL->Clear();
  Query1->SQL->Add(sql);
  Query1->ExecSQL();
  Query1->Open();
  if (Query1->RecordCount==0)
   {
      MessageBox(NULL,"本年度内未查找到欠费记录！","提示",MB_OK|MB_ICONWARNING);
      Query1->Close();
      SpeedButton1->Enabled=false;
      return;
    }
  SpeedButton1->Enabled=true;

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

void __fastcall TFqfll::FormCreate(TObject *Sender)
{
    TTable *Table2=new TTable(this);
    Table2->DatabaseName="YDDB";
    Table2->TableName="H_YEAR";
    Table2->Open();
    Table2->First();
    while (!Table2->Eof)
     {
      ComboBox1->Items->Add(Table2->FieldByName("Y_YEAR")->AsString);
      Table2->Next();
     }
    ComboBox1->Text=ComboBox1->Items->Strings[0];
    Table2->Close();
    delete Table2;
  YDData->TBhsdw->Open();
}
//---------------------------------------------------------------------------

void __fastcall TFqfll::SpeedButton3Click(TObject *Sender)
{
  Close();        
}
//---------------------------------------------------------------------------

void __fastcall TFqfll::SpeedButton1Click(TObject *Sender)
{
  Fqfqddy=new TFqfqddy(Application);
  Fqfqddy->QuickRep1->Preview();
  delete Fqfqddy;
}
//---------------------------------------------------------------------------