custprev.h

suite component ace report

//---------------------------------------------------------------------------
#ifndef CustprevH
#define CustprevH
//---------------------------------------------------------------------------
#include <vcl\Classes.hpp>
#include <vcl\Controls.hpp>
#include <vcl\StdCtrls.hpp>
#include <vcl\Forms.hpp>
#include "SctRep.hpp"
#include <vcl\ExtCtrls.hpp>
#include "SctVar.hpp"
#include <vcl\DB.hpp>
#include <vcl\DBTables.hpp>
#include "SctBtn.hpp"
#include <vcl\Buttons.hpp>
#include <vcl\DBGrids.hpp>
#include <vcl\Grids.hpp>
#include "AcePrev.hpp"
#include "SctCtrl.hpp"
#include "AcePage.hpp"
#include <Db.hpp>
//---------------------------------------------------------------------------
class TFormCustomPreview : public TForm
{
__published:	// IDE-managed Components
	TSctReport *SctReport1;
	TSctGrouppage *ReportPage;
	TSctBand *ReportHeaderBand;
	TSctLevel *ReportHeaderBandlevel;
	TSctBand *PageHeaderBand;
	TSctLevel *PageHeaderBandlevel;
	TSctBand *DetailBand;
	TSctLevel *DetailBandlevel;
	TSctBand *PageFooterBand;
	TSctLevel *PageFooterBandlevel;
	TSctBand *ReportFooterBand;
	TSctLevel *ReportFooterBandlevel;
	TDataSource *VendorsSource;
	TTable *Vendors;
	TFloatField *VendorsVendorNo;
	TStringField *VendorsVendorName;
	TStringField *VendorsAddress1;
	TStringField *VendorsAddress2;
	TStringField *VendorsCity;
	TStringField *VendorsState;
	TStringField *VendorsZip;
	TStringField *VendorsCountry;
	TStringField *VendorsPhone;
	TStringField *VendorsFAX;
	TBooleanField *VendorsPreferred;
	TTable *Parts;
	TFloatField *PartsPartNo;
	TFloatField *PartsVendorNo;
	TStringField *PartsDescription;
	TFloatField *PartsOnHand;
	TFloatField *PartsOnOrder;
	TCurrencyField *PartsCost;
	TCurrencyField *PartsListPrice;
	TDataSource *PartsSource;
	TPanel *Panel1;
	TSctReportButton *SctReportButton1;
	TDBGrid *DBGrid1;
	TDBGrid *DBGrid2;
	TSctReportButton *SctReportButton2;
	TCheckBox *ScrollCheckBox;
	TPanel *Panel2;
	TLabel *PageNum;
	TButton *Button1;
	TButton *Button2;
	TAcePreview *MyPreview;
	TSctDateTimeVar *svarDateTime;
	TSctPageVar *svarPage;
	TSctDataSourceGuide *DataSourceGuide;
	TSctDataSourceGuide *DataSourceGuide1;
	TSctDBVar *vendorsVENDORNO1;
	TSctDBVar *vendorsVENDORNAME1;
	TSctDBVar *vendorsADDRESS11;
	TSctDBVar *vendorsADDRESS21;
	TSctDBVar *vendorsCITY1;
	TSctDBVar *vendorsSTATE1;
	TSctDBVar *vendorsZIP1;
	TSctDBVar *vendorsCOUNTRY1;
	TSctDBVar *vendorsPHONE1;
	TSctDBVar *vendorsFAX1;
	TSctDBVar *vendorsPREFERRED1;
	TSctDBVar *partsPARTNO1;
	TSctDBVar *partsVENDORNO1;
	TSctDBVar *partsDESCRIPTION1;
	TSctDBVar *partsONHAND1;
	TSctDBVar *partsONORDER1;
	TSctDBVar *partsCOST1;
	TSctDBVar *partsLISTPRICE1;
	TSctSubDataBand *SubDataDetailBand;
	TSctLevel *SubDataDetailBandlevel;
	TSctTextLabel *SctTextLabel1;
	TSctTextLabel *SctTextLabel2;
	TSctTextLabel *SctTextLabel3;
	TSctTextLabel *SctTextLabel4;
	TSctTextLabel *SctTextLabel5;
	TSctTextLabel *SctTextLabel6;
	TSctTextLabel *SctTextLabel7;
	TSctvarlabel *Sctvarlabel1;
	TSctvarlabel *Sctvarlabel2;
	TSctvarlabel *Sctvarlabel3;
	TSctvarlabel *Sctvarlabel4;
	TSctvarlabel *Sctvarlabel5;
	TSctvarlabel *Sctvarlabel6;
	TSctvarlabel *Sctvarlabel7;
	void __fastcall Button2Click(TObject *Sender);
	void __fastcall ReportPagePreview(TObject *Sender);
	void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
	void __fastcall SctReport1BeforePrint(TSctReport *Report);
	void __fastcall SctReport1AfterPrint(TSctReport *Report);
	
	void __fastcall ReportPageUpdateStatus(TSctPage *Page, TSctStatus Stat);
	void __fastcall Button1Click(TObject *Sender);
	
	
	
	void __fastcall ReportPageAfterDataSkip(TSctGrouppage *Page);
	
private:	// User declarations
    Boolean Scrolling;
public:		// User declarations
	virtual __fastcall TFormCustomPreview(TComponent* Owner);
    Boolean First;
};
//---------------------------------------------------------------------------
extern TFormCustomPreview *FormCustomPreview;
//---------------------------------------------------------------------------
#endif