dbplanner.hpp

TMS component pack v4.2 for delphi

	__property TFieldsItemEvent OnFieldsToItem = {read=FOnFieldsToItem, write=FOnFieldsToItem};
	__property TFieldsItemEvent OnItemToFields = {read=FOnItemToFields, write=FOnItemToFields};
	__property Classes::TNotifyEvent OnChangeQuery = {read=FOnChangeQuery, write=FOnChangeQuery};
	__property TResourceToPosEvent OnResourceToPosition = {read=FOnResourceToPosition, write=FOnResourceToPosition};
	__property TPosToResourceEvent OnPositionToResource = {read=FOnPositionToResource, write=FOnPositionToResource};
	__property TDBItemSQLEvent OnInsertItem = {read=FOnInsertItem, write=FOnInsertItem};
	__property TDBItemSQLEvent OnDeleteItem = {read=FOnDeleteItem, write=FOnDeleteItem};
	__property TDBItemSQLEvent OnUpdateItem = {read=FOnUpdateItem, write=FOnUpdateItem};
	__property Classes::TNotifyEvent OnItemsRead = {read=FOnItemsRead, write=FOnItemsRead};
	__property TFieldsToTimeEvent OnFieldsToTime = {read=FOnFieldsToTime, write=FOnFieldsToTime};
	__property TTimeToFieldsEvent OnTimeToFields = {read=FOnTimeToFields, write=FOnTimeToFields};
	__property Classes::TNotifyEvent OnResourceChange = {read=FOnResourceChange, write=FOnResourceChange};
};


class PASCALIMPLEMENTATION TResourceDataSource : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	TDBItemSource* FDBItemSource;
	AnsiString FResourceIDField;
	AnsiString FResourceNameField;
	Db::TDataSource* __fastcall GetDataSource(void);
	void __fastcall SetDataSource(const Db::TDataSource* Value);
	
public:
	__fastcall TResourceDataSource(TDBItemSource* AOwner);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property Db::TDataSource* DataSource = {read=GetDataSource, write=SetDataSource};
	__property AnsiString ResourceIDField = {read=FResourceIDField, write=FResourceIDField};
	__property AnsiString ResourceNameField = {read=FResourceNameField, write=FResourceNameField};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TResourceDataSource(void) { }
	#pragma option pop
	
};


#pragma option push -b-
enum TDBDayMode { dmMultiDay, dmMultiResource, dmMultiDayRes, dmMultiResDay };
#pragma option pop

typedef void __fastcall (__closure *TResourceNameEvent)(System::TObject* Sender, int ResourceIndex, AnsiString &ResourceName);

class DELPHICLASS TDBDaySource;
class PASCALIMPLEMENTATION TDBDaySource : public TDBItemSource 
{
	typedef TDBItemSource inherited;
	
private:
	TDBDayMode FMode;
	int FDayIncrement;
	System::TDateTime FDay;
	bool FAutoHeaderUpdate;
	AnsiString FDateFormat;
	int FNumberOfDays;
	int FNumberOfResources;
	TResourceNameEvent FOnGetResourceName;
	void __fastcall SetDay(const System::TDateTime Value);
	void __fastcall SetMode(const TDBDayMode Value);
	void __fastcall SetNumberOfDays(const int Value);
	void __fastcall SetNumberOfResources(const int Value);
	void __fastcall ConfigurePlanner(int &Span);
	int __fastcall CalcItemPos(int DatePos, int ResourcePos);
	
protected:
	virtual void __fastcall ResourceUpdate(void);
	
public:
	__fastcall virtual TDBDaySource(Classes::TComponent* AOwner);
	virtual void __fastcall SynchDBItems(void);
	virtual void __fastcall ReadDBItems(AnsiString UpdateKey);
	virtual void __fastcall WriteDBItem(void);
	virtual void __fastcall ReadDBItem(void);
	virtual void __fastcall AddDBItem(void);
	virtual void __fastcall GotoDBItem(void);
	virtual void __fastcall DeleteDBItem(Planner::TPlanner* APlanner);
	virtual void __fastcall ItemChanged(AnsiString DBKey);
	virtual void __fastcall Next(void);
	virtual void __fastcall Prev(void);
	virtual void __fastcall PlannerChanged(void);
	virtual System::TDateTime __fastcall PosToDay(int Pos);
	virtual int __fastcall PosToRes(int Pos);
	virtual void __fastcall MapItemTimeOnPlanner(Planner::TPlannerItem* APlannerItem);
	
__published:
	__property bool AutoHeaderUpdate = {read=FAutoHeaderUpdate, write=FAutoHeaderUpdate, default=0};
	__property AnsiString DateFormat = {read=FDateFormat, write=FDateFormat};
	__property System::TDateTime Day = {read=FDay, write=SetDay};
	__property int DayIncrement = {read=FDayIncrement, write=FDayIncrement, default=1};
	__property TDBDayMode Mode = {read=FMode, write=SetMode, nodefault};
	__property int NumberOfDays = {read=FNumberOfDays, write=SetNumberOfDays, default=7};
	__property int NumberOfResources = {read=FNumberOfResources, write=SetNumberOfResources, default=1};
	__property RecurrencyField ;
	__property MinTimeField ;
	__property MaxTimeField ;
	__property TResourceNameEvent OnGetResourceName = {read=FOnGetResourceName, write=FOnGetResourceName};
public:
	#pragma option push -w-inl
	/* TDBItemSource.Destroy */ inline __fastcall virtual ~TDBDaySource(void) { }
	#pragma option pop
	
};


class DELPHICLASS TDBCustomPeriodSource;
class PASCALIMPLEMENTATION TDBCustomPeriodSource : public TDBItemSource 
{
	typedef TDBItemSource inherited;
	
private:
	int FNumberOfResources;
	TResourceNameEvent FOnGetResourceName;
	bool FAutoHeaderUpdate;
	void __fastcall ConfigurePlanner(void);
	void __fastcall SetNumberOfResources(const int Value);
	
protected:
	virtual void __fastcall ResourceUpdate(void);
	
public:
	__fastcall virtual TDBCustomPeriodSource(Classes::TComponent* AOwner);
	virtual void __fastcall SynchDBItems(void);
	virtual void __fastcall ReadDBItems(AnsiString UpdateKey);
	virtual void __fastcall WriteDBItem(void);
	virtual void __fastcall ReadDBItem(void);
	virtual void __fastcall AddDBItem(void);
	virtual void __fastcall GotoDBItem(void);
	virtual void __fastcall DeleteDBItem(Planner::TPlanner* APlanner);
	virtual void __fastcall ItemChanged(AnsiString DBKey);
	virtual void __fastcall Next(void);
	virtual void __fastcall Prev(void);
	
__published:
	__property bool AutoHeaderUpdate = {read=FAutoHeaderUpdate, write=FAutoHeaderUpdate, default=0};
	__property int NumberOfResources = {read=FNumberOfResources, write=SetNumberOfResources, default=1};
	__property TResourceNameEvent OnGetResourceName = {read=FOnGetResourceName, write=FOnGetResourceName};
	__property RecurrencyField ;
	__property MinTimeField ;
	__property MaxTimeField ;
public:
	#pragma option push -w-inl
	/* TDBItemSource.Destroy */ inline __fastcall virtual ~TDBCustomPeriodSource(void) { }
	#pragma option pop
	
};


class DELPHICLASS TDBPeriodSource;
class PASCALIMPLEMENTATION TDBPeriodSource : public TDBCustomPeriodSource 
{
	typedef TDBCustomPeriodSource inherited;
	
private:
	System::TDateTime FStartDate;
	System::TDateTime FEndDate;
	void __fastcall SetEndDate(const System::TDateTime Value);
	void __fastcall SetStartDate(const System::TDateTime Value);
	
public:
	__fastcall virtual TDBPeriodSource(Classes::TComponent* AOwner);
	virtual void __fastcall Loaded(void);
	virtual void __fastcall PlannerChanged(void);
	virtual void __fastcall UpdatePlanner(void);
	
__published:
	__property System::TDateTime StartDate = {read=FStartDate, write=SetStartDate};
	__property System::TDateTime EndDate = {read=FEndDate, write=SetEndDate};
public:
	#pragma option push -w-inl
	/* TDBItemSource.Destroy */ inline __fastcall virtual ~TDBPeriodSource(void) { }
	#pragma option pop
	
};


class DELPHICLASS TDBHalfDayPeriodSource;
class PASCALIMPLEMENTATION TDBHalfDayPeriodSource : public TDBPeriodSource 
{
	typedef TDBPeriodSource inherited;
	
public:
	virtual void __fastcall PlannerChanged(void);
	virtual void __fastcall UpdatePlanner(void);
public:
	#pragma option push -w-inl
	/* TDBPeriodSource.Create */ inline __fastcall virtual TDBHalfDayPeriodSource(Classes::TComponent* AOwner) : TDBPeriodSource(AOwner) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TDBItemSource.Destroy */ inline __fastcall virtual ~TDBHalfDayPeriodSource(void) { }
	#pragma option pop
	
};


class DELPHICLASS TDBMonthSource;
class PASCALIMPLEMENTATION TDBMonthSource : public TDBCustomPeriodSource 
{
	typedef TDBCustomPeriodSource inherited;
	
private:
	int FMonth;
	int FYear;
	void __fastcall SetMonth(const int Value);
	void __fastcall SetYear(const int Value);
	
public:
	__fastcall virtual TDBMonthSource(Classes::TComponent* AOwner);
	virtual void __fastcall Loaded(void);
	virtual void __fastcall PlannerChanged(void);
	void __fastcall UpdatePlanner(void);
	
__published:
	__property int Month = {read=FMonth, write=SetMonth, nodefault};
	__property int Year = {read=FYear, write=SetYear, nodefault};
public:
	#pragma option push -w-inl
	/* TDBItemSource.Destroy */ inline __fastcall virtual ~TDBMonthSource(void) { }
	#pragma option pop
	
};


class DELPHICLASS TDBWeekSource;
class PASCALIMPLEMENTATION TDBWeekSource : public TDBCustomPeriodSource 
{
	typedef TDBCustomPeriodSource inherited;
	
private:
	int FMonth;
	int FYear;
	int FWeekStart;
	int FWeeks;
	void __fastcall SetMonth(const int Value);
	void __fastcall SetYear(const int Value);
	void __fastcall SetWeekStart(const int Value);
	void __fastcall SetWeeks(const int Value);
	
public:
	__fastcall virtual TDBWeekSource(Classes::TComponent* AOwner);
	virtual void __fastcall Loaded(void);
	virtual void __fastcall PlannerChanged(void);
	void __fastcall UpdatePlanner(void);
	
__published:
	__property int Month = {read=FMonth, write=SetMonth, nodefault};
	__property int Year = {read=FYear, write=SetYear, nodefault};
	__property int WeekStart = {read=FWeekStart, write=SetWeekStart, nodefault};
	__property int Weeks = {read=FWeeks, write=SetWeeks, nodefault};
public:
	#pragma option push -w-inl
	/* TDBItemSource.Destroy */ inline __fastcall virtual ~TDBWeekSource(void) { }
	#pragma option pop
	
};


class DELPHICLASS TDBMultiMonthSource;
class PASCALIMPLEMENTATION TDBMultiMonthSource : public TDBItemSource 
{
	typedef TDBItemSource inherited;
	
private:
	int FNumberOfMonths;
	int FStartMonth;
	int FYear;
	System::TDateTime FStartDate;
	System::TDateTime FEndDate;
	bool FAutoHeaderUpdate;
	void __fastcall ConfigurePlanner(void);
	void __fastcall SetNumberOfMonths(const int Value);
	void __fastcall SetStartMonth(const int Value);
	void __fastcall SetYear(const int Value);
	
protected:
	virtual void __fastcall ResourceUpdate(void);
	
public:
	virtual void __fastcall Loaded(void);
	virtual void __fastcall PlannerChanged(void);
	void __fastcall UpdatePlanner(void);
	__fastcall virtual TDBMultiMonthSource(Classes::TComponent* AOwner);
	virtual void __fastcall SynchDBItems(void);