setform.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "SetForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TSetJLForm *SetJLForm;
bool HaveNext=false;
//---------------------------------------------------------------------------
__fastcall TSetJLForm::TSetJLForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TSetJLForm::OKBitBtnClick(TObject *Sender)
{
//AnsiString TheSQLSet="Select * From MMTable where ";
AnsiString TheSQLSet="Select * From MMTable ";

AnsiString SQLSet="";

if(SetJLForm->LocateComboBoxCity->Text.Trim()!="")
{
SQLSet= "where DiShi LIKE '%" + SetJLForm->LocateComboBoxCity->Text.Trim()  + "%' " ;
HaveNext=true;
}

if(SetJLForm->CheckBoxDate->Checked)
{
 if(SetJLForm->LocateComboBoxCity->Text.Trim()!="")
 {
  TDateTime TheDate = SetJLForm->DateTimePicker1->Date;
 AnsiString sDate = DateToStr(  TheDate );
  if ( HaveNext )
                 SQLSet += " and  RiQi = '" + sDate + "' " ;
          else
          {}       //SQLSet += " Wzrq = '" + sDate + "' " ;

          HaveNext = true ;
 }
 else
{
 TDateTime TheDate = SetJLForm->DateTimePicker1->Date;
 AnsiString sDate = DateToStr(  TheDate );
  if ( HaveNext )
                 SQLSet += " where RiQi = '" + sDate + "' " ;
          else
          {}       //SQLSet += " Wzrq = '" + sDate + "' " ;

          HaveNext = true ;
}
}
TheSQLSet+= SQLSet ;

      QueryDingWei->Close();
      QueryDingWei->SQL->Clear() ;
      QueryDingWei->SQL->Add(TheSQLSet);
      QueryDingWei->Open() ;
int SetRecCount;
SetRecCount=QueryDingWei->RecordCount;
ShowMessage("共找到"+IntToStr(SetRecCount)+"记录");
}
//---------------------------------------------------------------------------

void __fastcall TSetJLForm::LocateCheckBoxCityClick(TObject *Sender)
{
if(LocateCheckBoxCity->Checked)
{
 LocateComboBoxCity->Enabled=true;
}
else
{
 LocateComboBoxCity->Enabled=false;
}
}
//---------------------------------------------------------------------------

void __fastcall TSetJLForm::CheckBoxDateClick(TObject *Sender)
{
if(CheckBoxDate->Checked)
{
 DateTimePicker1->Enabled=true;
 HaveNext=true;
}
/*else
{
DateTimePicker1->Enabled=false;
} */
}
//---------------------------------------------------------------------------

void __fastcall TSetJLForm::FormCreate(TObject *Sender)
{
 DateTimePicker1->Date=Now().CurrentDate();       
}
//---------------------------------------------------------------------------