Class TTestForm (unit TestUnit)

Inherits from

TForm

Constructors



Functions

procedure Button1Click(Sender: TObject);

ODCalendar1.

procedure CalendarDayDblClick(Sender: TObject; ADate: TDateTime);

as for a business year

procedure CalendarSelectYear(Sender: TObject; Year: Integer; var YearStart, YearFinish: TDateTime);

customise certain days -

procedure CalendarSetupDay(Sender: TObject; Date: TDateTime; var AColor: TColor; var AHint: String);


procedure CheckBox1Click(Sender: TObject);


procedure CheckBox2Click(Sender: TObject);


procedure CheckBox3Click(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure Last2MonthsBtnClick(Sender: TObject);


procedure Last6MonthsBtnClick(Sender: TObject);


procedure PageControl1Change(Sender: TObject);


procedure ThisMonthBtnClick(Sender: TObject);


procedure YearToDateBtnClick(Sender: TObject);


Properties

Events

Variables

Bevel1 : TBevel;


Bevel2 : TBevel;


Button1 : TButton;


CheckBox1 : TCheckBox;


CheckBox2 : TCheckBox;


CheckBox3 : TCheckBox;


DataSource1 : TDataSource;


DBGrid1 : TDBGrid;


DBNavigator1 : TDBNavigator;


Edit1 : TEdit;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


Image1 : TImage;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Last2MonthsBtn : TSpeedButton;


Last6MonthsBtn : TSpeedButton;


Memo1 : TMemo;


ODCalendar1 : TODCalendar;


ODCalendarDialog1 : TODCalendarDialog;


ODDBCalendar1 : TODDBCalendar;


ODDBPopupCalendar1 : TODDBPopupCalendar;


ODPopupCalendar1 : TODPopupCalendar;


PageControl1 : TPageControl;


Table1 : TTable;


Table1FinishDate : TDateField;


Table1StartDate : TDateField;


TabSheet1 : TTabSheet;


TabSheet2 : TTabSheet;


TabSheet3 : TTabSheet;


ThisMonthBtn : TSpeedButton;


YearToDateBtn : TSpeedButton;



Constructors


Functions


procedure Button1Click(Sender: TObject);

ODCalendar1.StartDate := EncodeDate(1998, 1, 15); ODCalendar1.FinishDate := Date;} { ODPopupCalendar1.StartDate := Date - 14; ODPopupCalendar1.FinishDate := Date;


procedure CalendarDayDblClick(Sender: TObject; ADate: TDateTime);

as for a business year


procedure CalendarSelectYear(Sender: TObject; Year: Integer; var YearStart, YearFinish: TDateTime);

customise certain days -


procedure CalendarSetupDay(Sender: TObject; Date: TDateTime; var AColor: TColor; var AHint: String);


procedure CheckBox1Click(Sender: TObject);


procedure CheckBox2Click(Sender: TObject);


procedure CheckBox3Click(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure Last2MonthsBtnClick(Sender: TObject);


procedure Last6MonthsBtnClick(Sender: TObject);


procedure PageControl1Change(Sender: TObject);


procedure ThisMonthBtnClick(Sender: TObject);


procedure YearToDateBtnClick(Sender: TObject);


Properties


Events


Variables


Bevel1 : TBevel;


Bevel2 : TBevel;


Button1 : TButton;


CheckBox1 : TCheckBox;


CheckBox2 : TCheckBox;


CheckBox3 : TCheckBox;


DataSource1 : TDataSource;


DBGrid1 : TDBGrid;


DBNavigator1 : TDBNavigator;


Edit1 : TEdit;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


Image1 : TImage;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Last2MonthsBtn : TSpeedButton;


Last6MonthsBtn : TSpeedButton;


Memo1 : TMemo;


ODCalendar1 : TODCalendar;


ODCalendarDialog1 : TODCalendarDialog;


ODDBCalendar1 : TODDBCalendar;


ODDBPopupCalendar1 : TODDBPopupCalendar;


ODPopupCalendar1 : TODPopupCalendar;


PageControl1 : TPageControl;


Table1 : TTable;


Table1FinishDate : TDateField;


Table1StartDate : TDateField;


TabSheet1 : TTabSheet;


TabSheet2 : TTabSheet;


TabSheet3 : TTabSheet;


ThisMonthBtn : TSpeedButton;


YearToDateBtn : TSpeedButton;