sas.~cpp

销售分析,JUSCO,日月周查询,待完善.

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

#include <vcl.h>
#pragma hdrstop

#include "sas.h"
#include "mainform.h"
#include "datam.h"
#include "daysql.h"
#include "chmain.h"
#include "sumsql.h"
#include "monsql.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SUIForm"
#pragma link "SUIButton"
#pragma resource "*.dfm"
Tanay *anay;
//---------------------------------------------------------------------------
__fastcall Tanay::Tanay(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------




void __fastcall Tanay::DBChart1BeforeDrawSeries(TObject *Sender)
{
   //DBChart1->Title->Text->CommaText=dm->dayseq->FieldByName("item_desc")->AsString+"分析图";
}
//---------------------------------------------------------------------------

void __fastcall Tanay::DBChart1AfterDraw(TObject *Sender)
{
  // DBChart1->Title->Text->CommaText=dm->dayseq->FieldByName("item_desc")->AsString+"分析图";
      
}
//---------------------------------------------------------------------------


void __fastcall Tanay::FormCreate(TObject *Sender)
{
  DBChart1->Title->Text->CommaText=dm->dayseq->FieldByName("item_desc")->AsString+"("+dm->dayseq->FieldByName("item_code")->AsString+")分析图";
}
//---------------------------------------------------------------------------


void __fastcall Tanay::suiButton1Click(TObject *Sender)
{
  DBChart1->Print();
}
//---------------------------------------------------------------------------

void __fastcall Tanay::suiButton2Click(TObject *Sender)
{

if (SaveDialog1->Execute()) {
try{
DBChart1->SaveToBitmapFile(SaveDialog1->FileName);
}catch(...){
}
}

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