acediag.hpp

suite component ace report

// Borland C++ Builder
// Copyright (c) 1995, 1999 by Borland International
// All rights reserved

// (DO NOT EDIT: machine generated header) 'acediag.pas' rev: 4.00

#ifndef acediagHPP
#define acediagHPP

#pragma delphiheader begin
#pragma option push -w-
#include <DBTables.hpp>	// Pascal unit
#include <DsgnIntf.hpp>	// Pascal unit
#include <PageMan.hpp>	// Pascal unit
#include <SctBtn.hpp>	// Pascal unit
#include <AceOut.hpp>	// Pascal unit
#include <AceUtil.hpp>	// Pascal unit
#include <Printers.hpp>	// Pascal unit
#include <Menus.hpp>	// Pascal unit
#include <SctData.hpp>	// Pascal unit
#include <Buttons.hpp>	// Pascal unit
#include <DBGrids.hpp>	// Pascal unit
#include <Grids.hpp>	// Pascal unit
#include <DBCtrls.hpp>	// Pascal unit
#include <SctCtrl.hpp>	// Pascal unit
#include <StdCtrls.hpp>	// Pascal unit
#include <Db.hpp>	// Pascal unit
#include <SctRep.hpp>	// Pascal unit
#include <ExtCtrls.hpp>	// Pascal unit
#include <SctVar.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Acediag
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TAceDiagForm;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TAceDiagForm : public Forms::TForm 
{
	typedef Forms::TForm inherited;
	
__published:
	Sctrep::TSctReport* SctReport1;
	Sctrep::TSctGrouppage* ReportPage;
	Sctrep::TSctBand* ReportHeaderBand;
	Sctvar::TSctLevel* ReportHeaderBandlevel;
	Sctrep::TSctBand* PageHeaderBand;
	Sctvar::TSctLevel* PageHeaderBandlevel;
	Sctrep::TSctBand* DetailBand;
	Sctvar::TSctLevel* DetailBandlevel;
	Sctrep::TSctBand* PageFooterBand;
	Sctvar::TSctLevel* PageFooterBandlevel;
	Sctrep::TSctBand* ReportFooterBand;
	Sctvar::TSctLevel* ReportFooterBandlevel;
	Sctctrl::TSctTextLabel* SctTextLabel1;
	Sctvar::TSctDateTimeVar* svarDateTime;
	Sctvar::TSctPageVar* svarPage;
	Sctvar::TSctExprVar* AceVersion;
	Sctctrl::TSctTextLabel* SctTextLabel67;
	Sctctrl::TSctTextLabel* SctTextLabel68;
	Sctctrl::TSctTextLabel* SctTextLabel69;
	Sctctrl::TSctTextLabel* SctTextLabel55;
	Sctctrl::TSctTextLabel* SctTextLabel66;
	Sctctrl::TSctShape* SctShape7;
	Sctctrl::TSctTextLabel* SctTextLabel2;
	Sctvar::TSctExprVar* ReportOwner;
	Sctctrl::TSctvarlabel* Sctvarlabel18;
	Sctctrl::TSctTextLabel* SctTextLabel5;
	Sctctrl::TSctvarlabel* Sctvarlabel5;
	Sctctrl::TSctvarlabel* Sctvarlabel16;
	Sctctrl::TSctvarlabel* Sctvarlabel17;
	Sctctrl::TSctTextLabel* SctTextLabel16;
	Sctctrl::TSctvarlabel* Sctvarlabel10;
	Sctrep::TSctSubDataBand* Update;
	Sctvar::TSctLevel* DataLevel;
	Sctrep::TSctSubDataBand* Blank;
	Sctvar::TSctLevel* Data1Level;
	Sctrep::TSctSubDataBand* Misc;
	Sctvar::TSctLevel* Data2Level;
	Sctrep::TSctDataHeadBand* UpdateHeader;
	Sctvar::TSctLevel* UpdateHeaderLevel;
	Sctrep::TSctDataHeadBand* BlankHeader;
	Sctvar::TSctLevel* BlankHeaderLevel;
	Sctrep::TSctDataHeadBand* MiscHeader;
	Sctvar::TSctLevel* MiscHeaderLevel;
	Sctrep::TSctDataFootBand* MiscFooter;
	Sctvar::TSctLevel* MiscFooterLevel;
	Sctctrl::TSctTextLabel* SctTextLabel3;
	Sctctrl::TSctTextLabel* SctTextLabel4;
	Sctctrl::TSctTextLabel* SctTextLabel7;
	Sctctrl::TSctvarlabel* Sctvarlabel2;
	Sctctrl::TSctvarlabel* Sctvarlabel4;
	Sctctrl::TSctvarlabel* Sctvarlabel7;
	Sctctrl::TSctvarlabel* Sctvarlabel8;
	Sctvar::TSctExprVar* UpdateVar;
	Sctvar::TSctExprVar* BlankVar;
	Sctvar::TSctExprVar* MiscVar;
	Sctvar::TSctExprVar* MiscSumVar;
	Stdctrls::TButton* Button1;
	Sctvar::TSctExprVar* Update1;
	Sctrep::TSctSubDataBand* BlankLabels;
	Sctvar::TSctLevel* DataLevel1;
	Sctrep::TSctDataFootBand* BlankLabelsFooter;
	Sctvar::TSctLevel* BlankLabelsFooterLevel;
	Sctrep::TSctDataHeadBand* BlankLabelsHeader;
	Sctvar::TSctLevel* BlankLabelsHeaderLevel;
	Sctctrl::TSctTextLabel* SctTextLabel6;
	Sctctrl::TSctvarlabel* Sctvarlabel11;
	Sctctrl::TSctvarlabel* Sctvarlabel12;
	Sctvar::TSctExprVar* BlanklabVar;
	Sctctrl::TSctLine* SctLine2;
	Sctctrl::TSctLine* SctLine4;
	Sctvar::TSctExprVar* blanklabsum;
	Sctrep::TSctSubBand* subsevere;
	Sctrep::TSctSubBand* ReportFooterBandSub1;
	Sctrep::TSctSubBand* ReportFooterBandSub2;
	Sctctrl::TSctvarlabel* Sctvarlabel9;
	Sctctrl::TSctvarlabel* Sctvarlabel14;
	Sctctrl::TSctvarlabel* Sctvarlabel15;
	Sctctrl::TSctShape* SctShape4;
	Sctctrl::TSctShape* SctShape1;
	Sctctrl::TSctShape* SctShape2;
	Sctctrl::TSctShape* SctShape3;
	Sctrep::TSctDataFootBand* UpdateFooter;
	Sctvar::TSctLevel* UpdateFooterLevel;
	Sctctrl::TSctvarlabel* UpdateLevelSum;
	Sctctrl::TSctLine* SctLine1;
	void __fastcall DiagProc(Sctrep::TSctReport* Rep);
	void __fastcall Button1Click(System::TObject* Sender);
	void __fastcall ReportPageDataStart(System::TObject* Sender);
	void __fastcall UpdateDataSkip(System::TObject* Sender);
	void __fastcall BlankDataSkip(System::TObject* Sender);
	void __fastcall MiscDataSkip(System::TObject* Sender);
	void __fastcall UpdateDataStart(System::TObject* Sender);
	void __fastcall BlankDataStart(System::TObject* Sender);
	void __fastcall MiscDataStart(System::TObject* Sender);
	void __fastcall UpdateDataFilter(System::TObject* Sender, bool &Result);
	void __fastcall BlankDataFilter(System::TObject* Sender, bool &Result);
	void __fastcall MiscDataFilter(System::TObject* Sender, bool &Result);
	void __fastcall BlankLabelsDataSkip(System::TObject* Sender);
	void __fastcall BlankLabelsDataFilter(System::TObject* Sender, bool &Result);
	void __fastcall BlankLabelsDataStart(System::TObject* Sender);
	void __fastcall blanklabsumGetData(Sctvar::TSctVar* oVar);
	
private:
	int Spot;
	Sctrep::TSctReport* Report;
	Sctrep::TSctGrouppage* RPage;
	bool MiscError;
	bool BlankLabError;
	int m;
	int bl;
	Sctrep::TSctDataSourceGuide* DSG;
	Sctrep::TSctDataSourceGuide* __fastcall GetDSG(Db::TDataSource* DS);
	
public:
	Dsgnintf::_di_IFormDesigner PageDesigner;
public:
	#pragma option push -w-inl
	/* TCustomForm.Create */ inline __fastcall virtual TAceDiagForm(Classes::TComponent* AOwner) : Forms::TForm(
		AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomForm.CreateNew */ inline __fastcall virtual TAceDiagForm(Classes::TComponent* AOwner, int 
		Dummy) : Forms::TForm(AOwner, Dummy) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomForm.Destroy */ inline __fastcall virtual ~TAceDiagForm(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TAceDiagForm(HWND ParentWindow) : Forms::TForm(ParentWindow
		) { }
	#pragma option pop
	
};

#pragma pack(pop)

//-- var, const, procedure ---------------------------------------------------
extern PACKAGE TAceDiagForm* AceDiagForm;

}	/* namespace Acediag */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Acediag;
#endif
#pragma option pop	// -w-

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// acediag