daystat.~cpp

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

//----------------------------------------------------------------------------
#include <vcl\vcl.h>
#pragma hdrstop

#include "DayStat.h"
#include "Preview.h"
//----------------------------------------------------------------------------
#pragma resource "*.dfm"


TFormDayStat *FormDayStat;
AnsiString makername;
//----------------------------------------------------------------------------
__fastcall TFormDayStat::TFormDayStat(TComponent* Owner): TQuickRep(Owner)
{
  FromDate = Now().CurrentDate() ;
  ToDate   = Now().CurrentDate() ;
}
//----------------------------------------------------------------------------
void __fastcall TFormDayStat::QuickRepPreview(TObject *Sender)
{
  /*
  AnsiString selfPath       = ExtractFileDir( Application->ExeName );

  QueryStat->DatabaseName = selfPath ;

  AnsiString sFromDate = DateToString(FromDate);
  AnsiString sToDate = DateToString(ToDate);

  QueryStat->Close();
  QueryStat->DatabaseName =  selfPath;
  QueryStat->SQL->Clear() ;
  QueryStat->SQL->Add(  "Select * FROM DownCarInfo WHERE wzrq between '" +  sFromDate + "' and '" + sToDate + "'" );
  QueryStat->ExecSQL();
  QueryStat->Active = true ;
  */
  PreviewForm->Show();
  PreviewForm->QRPreview->QRPrinter = (TQRPrinter *)Sender;
 
  QueryStat->Close();
}
//---------------------------------------------------------------------------

void __fastcall TFormDayStat::QuickRepBeforePrint(TCustomQuickRep *Sender,
      bool &PrintReport)
{
  AnsiString sFromDate = DateToStr(FromDate);
  AnsiString sToDate = DateToStr(ToDate);

  QRLabelTimeSkip->Caption = "从 " + sFromDate + "  到 " + sToDate ;

  QueryStat->Close();
  //QueryStat->DatabaseName =  selfPath;
  QueryStat->SQL->Clear() ;
  QueryStat->SQL->Add(  "Select * FROM MMTable WHERE RiQi between '" +  sFromDate + "' and '" + sToDate + "' " );

  if (  DayStatCity.Trim() != "")
       QueryStat->SQL->Add(  " and  DiShi = '" + DayStatCity.Trim() + "' " );
  QueryStat->ExecSQL();
  QueryStat->Active = true ;
  if (  DayStatCity.Trim() != "")
  {
    QRLabelTitle->Caption=""+DayStatCity.Trim()+" 地区/市 财务统计表";
  }
  else
  {
   QRLabelTitle->Caption="翔东科技发展有限公司财务统计表";
  }
  if(DayStatCity.Trim() != "")
  {
   ADOQueryDayStat->Close();
   ADOQueryDayStat->SQL->Clear();
   ADOQueryDayStat->SQL->Add("Select sum(ShouRu) as Skey1 FROM MMTable WHERE RiQi between '" +  sFromDate + "' and '" + sToDate + "' ");
   ADOQueryDayStat->SQL->Add(  " and  DiShi = '" + DayStatCity.Trim() + "' " );
   ADOQueryDayStat->ExecSQL();
   ADOQueryDayStat->Open();
  AnsiString s1= ADOQueryDayStat->FieldByName("Skey1")->AsString.Trim();
  QRLabel15->Caption=s1;

   ADOQueryDayStat->Close();
   ADOQueryDayStat->SQL->Clear();
   ADOQueryDayStat->SQL->Add("Select sum(ZhiChu) as Skey1 FROM MMTable WHERE RiQi between '" +  sFromDate + "' and '" + sToDate + "' ");
   ADOQueryDayStat->SQL->Add(  " and  DiShi = '" + DayStatCity.Trim() + "' " );
   ADOQueryDayStat->ExecSQL();
   ADOQueryDayStat->Open();
  AnsiString s2= ADOQueryDayStat->FieldByName("Skey1")->AsString.Trim();
  QRLabel23->Caption=s2;

  ADOQueryDayStat->Close();
   ADOQueryDayStat->SQL->Clear();
   ADOQueryDayStat->SQL->Add("Select sum(YuE) as Skey1 FROM MMTable WHERE RiQi between '" +  sFromDate + "' and '" + sToDate + "' ");
   ADOQueryDayStat->SQL->Add(  " and  DiShi = '" + DayStatCity.Trim() + "' " );
   ADOQueryDayStat->ExecSQL();
   ADOQueryDayStat->Open();
  AnsiString s3= ADOQueryDayStat->FieldByName("Skey1")->AsString.Trim();
  QRLabel24->Caption=s3;
  }
  else
  {
   ADOQueryDayStat->Close();
   ADOQueryDayStat->SQL->Clear();
   ADOQueryDayStat->SQL->Add("Select sum(ShouRu) as Skey1 FROM MMTable WHERE RiQi between '" +  sFromDate + "' and '" + sToDate + "' ");
   ADOQueryDayStat->ExecSQL();
   ADOQueryDayStat->Open();
  AnsiString s1= ADOQueryDayStat->FieldByName("Skey1")->AsString.Trim();
  QRLabel15->Caption=s1;

   ADOQueryDayStat->Close();
   ADOQueryDayStat->SQL->Clear();
   ADOQueryDayStat->SQL->Add("Select sum(ZhiChu) as Skey1 FROM MMTable WHERE RiQi between '" +  sFromDate + "' and '" + sToDate + "' ");
   ADOQueryDayStat->ExecSQL();
   ADOQueryDayStat->Open();
  AnsiString s2= ADOQueryDayStat->FieldByName("Skey1")->AsString.Trim();
  QRLabel23->Caption=s2;

  ADOQueryDayStat->Close();
   ADOQueryDayStat->SQL->Clear();
   ADOQueryDayStat->SQL->Add("Select sum(YuE) as Skey1 FROM MMTable WHERE RiQi between '" +  sFromDate + "' and '" + sToDate + "' ");
   ADOQueryDayStat->Open();
  AnsiString s3= ADOQueryDayStat->FieldByName("Skey1")->AsString.Trim();
  QRLabel24->Caption=s3;
  }
  double allpage;
  int allpage1;
  allpage=QueryStat->RecordCount;
  allpage=allpage/21;
  allpage1=int(allpage);
  allpage=allpage-int(allpage);
  if(allpage>0)
  allpage1=allpage1+1;
  QRLabel13->Caption=IntToStr(allpage1);
  //QRLabel15->Caption=makername;  
  QRLabel28->Caption=makername; 

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

void __fastcall TFormDayStat::QRDBTextCllxPrint(TObject *sender,
      AnsiString &Value)
{
   //QRDBTextCllx->Caption = QRDBTextCllx->Caption.SubString(1,10);
}
//---------------------------------------------------------------------------

void __fastcall TFormDayStat::QRDBTextWzxwPrint(TObject *sender,
      AnsiString &Value)
{
   //QRDBTextWzxw->Caption = QRDBTextWzxw->Caption.SubString(1,100);

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