querydata.cpp

用C++ Builder编写的个人财务管理软件

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

#include <vcl.h>
#pragma hdrstop

#include "QueryData.h"
#include <jpeg.hpp>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TQueryDataForm *QueryDataForm;
//---------------------------------------------------------------------------
__fastcall TQueryDataForm::TQueryDataForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TQueryDataForm::FormCreate(TObject *Sender)
{
AnsiString selfPath    = ExtractFilePath( Application->ExeName );
   AnsiString xianshi=selfPath+"\\"+"Query.jpg";
   if( xianshi.IsEmpty() )
     return;
  Graphics::TBitmap *pBitmap   = new Graphics::TBitmap();
 TJPEGImage *pJpg = new  TJPEGImage();
  try
  {
      if(FileExists (xianshi) )
      {
         pJpg->LoadFromFile(xianshi);
         pBitmap->Assign(pJpg);

         ImageQuery->Canvas->StretchDraw(ImageQuery->ClientRect , pBitmap);

      }
  }
   __finally
  {
      delete  pBitmap;
      delete  pJpg;
  }
}
//---------------------------------------------------------------------------
void __fastcall TQueryDataForm::BitBtn1Click(TObject *Sender)
{
  AnsiString TheSQL = "Select * From MMTable where ";
  AnsiString SQLStartDateTime = "";
  AnsiString SQLEndDateTime   = "";

  AnsiString SQLStr           = "";
 //sql查询设置
  QuerySpdCarInfo->Active = false ;
  QuerySpdCarInfo->Close();
  QuerySpdCarInfo->SQL->Clear();

  bool HavePara = false ;
   if (  ComboBoxQueryCity->Text.Trim() != "")
    {
    SQLStr = " DiShi LIKE '%" + ComboBoxQueryCity->Text.Trim()  + "%' " ;
    HavePara = true ;
    }

   //如果日期参与查询选中
  if ( DateCheckBox->Checked  )
  {

    TDateTime TheStartDate = DateTimePickerStartDate->Date;
    AnsiString sStartDate = DateToStr(  TheStartDate );

    TDateTime TheEndDate = DateTimePickerEndDate->Date;
    AnsiString sEndDate = DateToStr(  TheEndDate );

    if(!CheckBoxEndDate->Checked )
        {
          if ( HavePara )
                 SQLStr += " and  RiQi = '" + sStartDate + "' " ;
          else
                 SQLStr += " RiQi = '" + sStartDate + "' " ;

          HavePara = true ;

        }
    else
        {
         if ( HavePara )
                 SQLStr += " and  RiQi between '" + sStartDate + "' and '" + sEndDate + "' " ;
         else
                 SQLStr += "RiQi between '" + sStartDate + "' and '" + sEndDate + "' " ;
        }

    HavePara = true ;

   }

  if ( SQLStr.IsEmpty() )
  {
    Application->MessageBox(AnsiString( "查询条件为空,请重新查询!").c_str(), "提示", MB_OK);
    return ;
  }

  TheSQL += SQLStr ;
  QuerySpdCarInfo->SQL->Add( TheSQL );
 // Screen->Cursor =crHourGlass  ; //屏幕鼠标
  QuerySpdCarInfo->Open( );
}
//---------------------------------------------------------------------------
void __fastcall TQueryDataForm::DateCheckBoxClick(TObject *Sender)
{
if(DateCheckBox->Checked)
{
 Label1->Enabled=true;
 DateTimePickerStartDate->Enabled=true;
 CheckBoxEndDate->Enabled=true;
}
else
{
 Label1->Enabled=false;
 DateTimePickerStartDate->Enabled=false;
 CheckBoxEndDate->Enabled=false;
}

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

void __fastcall TQueryDataForm::CheckBoxEndDateClick(TObject *Sender)
{
if(CheckBoxEndDate->Checked)
{
Label2->Enabled=true;
 DateTimePickerEndDate->Enabled=true;
}
else
{
Label2->Enabled=false;
 DateTimePickerEndDate->Enabled=false;

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

void __fastcall TQueryDataForm::BitBtn2Click(TObject *Sender)
{
if(!StaMoneyCheckBox->Checked&&!StaZoneCheckBox->Checked)
{
ADOQueryMoney->Close();
ADOQueryMoney->SQL->Clear();
ADOQueryMoney->SQL->Add("select sum(ShouRu) as Skey from MMTable");
ADOQueryMoney->ExecSQL();
ADOQueryMoney->Open();
AnsiString s1= ADOQueryMoney->FieldByName("Skey")->AsString.Trim();
AllCashInEdit->Text=s1;

ADOQueryMoney->Close();
ADOQueryMoney->SQL->Clear();
ADOQueryMoney->SQL->Add("select sum(ZhiChu) as Skey from MMTable");
ADOQueryMoney->ExecSQL();
ADOQueryMoney->Open();
AnsiString s2= ADOQueryMoney->FieldByName("Skey")->AsString.Trim();
AllCashOutEdit->Text=s2;

ADOQueryMoney->Close();
ADOQueryMoney->SQL->Clear();
ADOQueryMoney->SQL->Add("select sum(YuE) as Skey from MMTable");
ADOQueryMoney->ExecSQL();
ADOQueryMoney->Open();
AnsiString s3= ADOQueryMoney->FieldByName("Skey")->AsString.Trim();
AllCashNetEdit->Text=s3;
}

if(StaMoneyCheckBox->Checked||StaZoneCheckBox->Checked)
{
if(StaMoneyCheckBox->Checked&&!StaZoneCheckBox->Checked)
{
 AnsiString BeginRq, EndRq ,SQLStr;
 BeginRq = StaStartDateTimePicker->Date.FormatString("yyyy-mm-dd") ;
 EndRq   = StaEndDateTimePicker->Date.FormatString("yyyy-mm-dd");
// SQLStr = "SELECT * FROM MMTable  where RiQi >= '" + BeginRq + "' And RiQi <= '"+ EndRq + "'";
 ADOQueryMoney->Close();
ADOQueryMoney->SQL->Clear();
ADOQueryMoney->SQL->Add("select sum(ShouRu) as Skey from MMTable where RiQi >= '" + BeginRq + "' And RiQi <= '"+ EndRq + "'");
ADOQueryMoney->ExecSQL();
ADOQueryMoney->Open();
AnsiString s1= ADOQueryMoney->FieldByName("Skey")->AsString.Trim();
AllCashInEdit->Text=s1;

ADOQueryMoney->Close();
ADOQueryMoney->SQL->Clear();
ADOQueryMoney->SQL->Add("select sum(ZhiChu) as Skey from MMTable where RiQi >= '" + BeginRq + "' And RiQi <= '"+ EndRq + "'");
ADOQueryMoney->ExecSQL();
ADOQueryMoney->Open();
AnsiString s2= ADOQueryMoney->FieldByName("Skey")->AsString.Trim();
AllCashOutEdit->Text=s2;

ADOQueryMoney->Close();
ADOQueryMoney->SQL->Clear();
ADOQueryMoney->SQL->Add("select sum(YuE) as Skey from MMTable where RiQi >= '" + BeginRq + "' And RiQi <= '"+ EndRq + "'");
ADOQueryMoney->ExecSQL();
ADOQueryMoney->Open();
AnsiString s3= ADOQueryMoney->FieldByName("Skey")->AsString.Trim();
AllCashNetEdit->Text=s3;
 }
else if(!StaMoneyCheckBox->Checked&&StaZoneCheckBox->Checked)
{
 AnsiString statistic;
 statistic=StaZoneComboBox->Text;
  ADOQueryMoney->Close();
ADOQueryMoney->SQL->Clear();
ADOQueryMoney->SQL->Add("select sum(ShouRu) as Skey from MMTable where  DiShi LIKE '%" + statistic + "%'");
ADOQueryMoney->ExecSQL();
ADOQueryMoney->Open();
AnsiString s1= ADOQueryMoney->FieldByName("Skey")->AsString.Trim();
AllCashInEdit->Text=s1;

ADOQueryMoney->Close();
ADOQueryMoney->SQL->Clear();
ADOQueryMoney->SQL->Add("select sum(ZhiChu) as Skey from MMTable where DiShi LIKE '%" + statistic + "%'");
ADOQueryMoney->ExecSQL();
ADOQueryMoney->Open();
AnsiString s2= ADOQueryMoney->FieldByName("Skey")->AsString.Trim();
AllCashOutEdit->Text=s2;

ADOQueryMoney->Close();
ADOQueryMoney->SQL->Clear();
ADOQueryMoney->SQL->Add("select sum(YuE) as Skey from MMTable where DiShi LIKE '%" + statistic + "%'");
ADOQueryMoney->ExecSQL();
ADOQueryMoney->Open();
AnsiString s3= ADOQueryMoney->FieldByName("Skey")->AsString.Trim();
AllCashNetEdit->Text=s3;
 }
else if(StaMoneyCheckBox->Checked&&StaZoneCheckBox->Checked)
{
 AnsiString BeginRq, EndRq ,SQLStr;
 BeginRq = StaStartDateTimePicker->Date.FormatString("yyyy-mm-dd") ;
 EndRq   = StaEndDateTimePicker->Date.FormatString("yyyy-mm-dd");

 AnsiString statistic;
 statistic=StaZoneComboBox->Text;

  ADOQueryMoney->Close();
ADOQueryMoney->SQL->Clear();
ADOQueryMoney->SQL->Add("select sum(ShouRu) as Skey from MMTable where RiQi >= '" + BeginRq + "' And RiQi <= '"+ EndRq + "' and DiShi LIKE '%" + statistic + "%'");
ADOQueryMoney->ExecSQL();
ADOQueryMoney->Open();
AnsiString s1= ADOQueryMoney->FieldByName("Skey")->AsString.Trim();
AllCashInEdit->Text=s1;

ADOQueryMoney->Close();
ADOQueryMoney->SQL->Clear();
ADOQueryMoney->SQL->Add("select sum(ZhiChu) as Skey from MMTable where RiQi >= '" + BeginRq + "' And RiQi <= '"+ EndRq + "' and DiShi LIKE '%" + statistic + "%'");
ADOQueryMoney->ExecSQL();
ADOQueryMoney->Open();
AnsiString s2= ADOQueryMoney->FieldByName("Skey")->AsString.Trim();
AllCashOutEdit->Text=s2;

ADOQueryMoney->Close();
ADOQueryMoney->SQL->Clear();
ADOQueryMoney->SQL->Add("select sum(YuE) as Skey from MMTable where RiQi >= '" + BeginRq + "' And RiQi <= '"+ EndRq + "' and DiShi LIKE '%" + statistic + "%'");
ADOQueryMoney->ExecSQL();
ADOQueryMoney->Open();
AnsiString s3= ADOQueryMoney->FieldByName("Skey")->AsString.Trim();
AllCashNetEdit->Text=s3;
  }
}
}
//---------------------------------------------------------------------------

void __fastcall TQueryDataForm::StaMoneyCheckBoxClick(TObject *Sender)
{
if(StaMoneyCheckBox->Checked)
{
StaStartLabel->Enabled=true;
StaEndLabel->Enabled=true;
StaStartDateTimePicker->Enabled=true;
StaEndDateTimePicker->Enabled=true;
}
else
{
StaStartLabel->Enabled=false;
StaEndLabel->Enabled=false;
StaStartDateTimePicker->Enabled=false;
StaEndDateTimePicker->Enabled=false;

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

void __fastcall TQueryDataForm::StaZoneCheckBoxClick(TObject *Sender)
{
if(StaZoneCheckBox->Checked)
{
 StaZoneComboBox->Enabled=true;
}
else
{
StaZoneComboBox->Enabled=false;
StaZoneComboBox->Text="";
}
}
//---------------------------------------------------------------------------