ydlsdldf.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "YDlsdldf.h"
#include "YDpqxz.h"
#include "YDlssjdy.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFlsdldf *Flsdldf;
//---------------------------------------------------------------------------
__fastcall TFlsdldf::TFlsdldf(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFlsdldf::SpeedButton3Click(TObject *Sender)
{
 Close();
}
//---------------------------------------------------------------------------
void __fastcall TFlsdldf::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;
    Qlsdldf->DatabaseName="YDDB";        
}
//---------------------------------------------------------------------------
void __fastcall TFlsdldf::RadioButton2Click(TObject *Sender)
{
 Edit2->Text="";
 Edit2->Enabled=false;

}
//---------------------------------------------------------------------------
void __fastcall TFlsdldf::SpeedButton5Click(TObject *Sender)
{
  AnsiString sql;
  Qlsdldf->Close();
  Qlsdldf->SQL->Clear();
if (RadioButton2->Checked)
  {
   sql="SELECT * FROM DB"+ComboBox1->Text+" WHERE SUBSTRING(DB_RQ,1,4)='"+ComboBox1->Text+"' AND SUBSTRING(DB_RQ,6,2)>='"+ComboBox2->Text+"'";
   sql=sql+" AND SUBSTRING(DB_RQ,6,2)<='"+ComboBox3->Text+"' AND DB_QH='"+Edit1->Text+"'";
  }
else
  {
   sql="SELECT * FROM DB"+ComboBox1->Text+" WHERE SUBSTRING(DB_RQ,1,4)='"+ComboBox1->Text+"' AND SUBSTRING(DB_RQ,6,2)>='"+ComboBox2->Text+"'";
   sql=sql+" AND SUBSTRING(DB_RQ,6,2)<='"+ComboBox3->Text+"' AND DB_QH='"+Edit2->Text.SubString(1,4)+"' AND DB_HH='"+Edit2->Text.SubString(5,5)+"'";
   }
  Qlsdldf->SQL->Add(sql);
  Qlsdldf->ExecSQL();
  Qlsdldf->Open();
  if (Qlsdldf->RecordCount==0)
   {
      MessageBox(NULL,"本期内未查找到用户记录！","提示",MB_OK|MB_ICONWARNING);
      Qlsdldf->Close();
      SpeedButton1->Enabled=false;
      return;
    }
  SpeedButton1->Enabled=true;
  DataSource1->DataSet=Qlsdldf;

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

void __fastcall TFlsdldf::Edit1DblClick(TObject *Sender)
{
 Fpqxz=new TFpqxz(Application);
 Fpqxz->ShowModal();
 Edit1->Text=Fpqxz->pqdm;
 Edit3->Text=Fpqxz->pqmc;
 delete Fpqxz;
}
//---------------------------------------------------------------------------

void __fastcall TFlsdldf::SpeedButton1Click(TObject *Sender)
{
  Flsdldfdy=new TFlsdldfdy(Application);
  Flsdldfdy->QuickRep1->Preview();
  delete Flsdldfdy;
}
//---------------------------------------------------------------------------