Class TfmDemo (unit HTMLDDe1)

Inherits from

TForm

This unit demonstrates a component that allows the contents of database tables to be generated into HTML tables. Written by Keith Wood - 22 Jun 1996.

Constructors



Functions

procedure btnBackgroundColourClick(Sender: TObject);

Set table background colour

procedure btnGenerate1Click(Sender: TObject);

Generate HTML to display the contents of the PARTS table

procedure btnGenerate2Click(Sender: TObject);

Generate HTML to display the contents of the WEBSITE table

procedure btnHeaderColourClick(Sender: TObject);

Set header background colour

procedure FormCreate(Sender: TObject);

Initialise the list of indexes

procedure HTMLDataSourceCellShow(Sender: TObject; fField: TField; var ahAlignHoriz: THTMLAlignHoriz; var avAlignVert: THTMLAlignVert; var clrBackground, clrBorder, clrBorderLight, clrBorderDark: TColor);

Highlight the cost column

procedure HTMLDataSourceRowShow(Sender: TObject; var ahAlignHoriz: THTMLAlignHoriz; var avAlignVert: THTMLAlignVert; var clrBackground, clrBorder, clrBorderLight, clrBorderDark: TColor);

Highlight rows with less than 20 items on hand

procedure rbSourceClick(Sender: TObject);

Dis/enable approriate options for data source

Properties

Events

Variables

btnBackgroundColour : TButton;


btnGenerate1 : TButton;


btnGenerate2 : TButton;


btnHeaderColour : TButton;


cbxBackgroundDefault : TCheckBox;


cbxCost : TCheckBox;


cbxHeaderDefault : TCheckBox;


cbxHeaders : TCheckBox;


cbxPercent : TCheckBox;


cmbIndex : TComboBox;


DBGrid1 : TDBGrid;


dlgColour : TColorDialog;


dsWeb : TDataSource;


edCaption : TEdit;


edDescr : TEdit;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


HTMLDataSource : THTMLDataSource;


HTMLWriter : THTMLWriter;


Label1 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


lblDescr : TLabel;


lblIndex : TLabel;


pnlBackgroundColour : TPanel;


pnlHeaderColour : TPanel;


pnlSQL : TPanel;


pnlTable : TPanel;


qryParts : TQuery;


qryPartsCost : TCurrencyField;


qryPartsDescription : TStringField;


qryPartsListPrice : TCurrencyField;


qryPartsOnHand : TFloatField;


qryPartsOnOrder : TFloatField;


qryPartsPartNo : TFloatField;


qryPartsVendorNo : TFloatField;


rbSQL : TRadioButton;


rbTable : TRadioButton;


spnBorder : TSpinEdit;


spnPadding : TSpinEdit;


spnSpacing : TSpinEdit;


spnWidth : TSpinEdit;


TabbedNotebook1 : TTabbedNotebook;


tblParts : TTable;


tblPartsCost : TCurrencyField;


tblPartsDescription : TStringField;


tblPartsListPrice : TCurrencyField;


tblPartsOnHand : TFloatField;


tblPartsOnOrder : TFloatField;


tblPartsPartNo : TFloatField;


tblPartsVendorNo : TFloatField;


tblWeb : TTable;


tblWebLastVisited : TDateField;


tblWebURL : TStringField;


tblWebWebSite : TStringField;



Constructors


Functions


procedure btnBackgroundColourClick(Sender: TObject);

Set table background colour


procedure btnGenerate1Click(Sender: TObject);

Generate HTML to display the contents of the PARTS table


procedure btnGenerate2Click(Sender: TObject);

Generate HTML to display the contents of the WEBSITE table


procedure btnHeaderColourClick(Sender: TObject);

Set header background colour


procedure FormCreate(Sender: TObject);

Initialise the list of indexes


procedure HTMLDataSourceCellShow(Sender: TObject; fField: TField; var ahAlignHoriz: THTMLAlignHoriz; var avAlignVert: THTMLAlignVert; var clrBackground, clrBorder, clrBorderLight, clrBorderDark: TColor);

Highlight the cost column


procedure HTMLDataSourceRowShow(Sender: TObject; var ahAlignHoriz: THTMLAlignHoriz; var avAlignVert: THTMLAlignVert; var clrBackground, clrBorder, clrBorderLight, clrBorderDark: TColor);

Highlight rows with less than 20 items on hand


procedure rbSourceClick(Sender: TObject);

Dis/enable approriate options for data source


Properties


Events


Variables


btnBackgroundColour : TButton;


btnGenerate1 : TButton;


btnGenerate2 : TButton;


btnHeaderColour : TButton;


cbxBackgroundDefault : TCheckBox;


cbxCost : TCheckBox;


cbxHeaderDefault : TCheckBox;


cbxHeaders : TCheckBox;


cbxPercent : TCheckBox;


cmbIndex : TComboBox;


DBGrid1 : TDBGrid;


dlgColour : TColorDialog;


dsWeb : TDataSource;


edCaption : TEdit;


edDescr : TEdit;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


HTMLDataSource : THTMLDataSource;


HTMLWriter : THTMLWriter;


Label1 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


lblDescr : TLabel;


lblIndex : TLabel;


pnlBackgroundColour : TPanel;


pnlHeaderColour : TPanel;


pnlSQL : TPanel;


pnlTable : TPanel;


qryParts : TQuery;


qryPartsCost : TCurrencyField;


qryPartsDescription : TStringField;


qryPartsListPrice : TCurrencyField;


qryPartsOnHand : TFloatField;


qryPartsOnOrder : TFloatField;


qryPartsPartNo : TFloatField;


qryPartsVendorNo : TFloatField;


rbSQL : TRadioButton;


rbTable : TRadioButton;


spnBorder : TSpinEdit;


spnPadding : TSpinEdit;


spnSpacing : TSpinEdit;


spnWidth : TSpinEdit;


TabbedNotebook1 : TTabbedNotebook;


tblParts : TTable;


tblPartsCost : TCurrencyField;


tblPartsDescription : TStringField;


tblPartsListPrice : TCurrencyField;


tblPartsOnHand : TFloatField;


tblPartsOnOrder : TFloatField;


tblPartsPartNo : TFloatField;


tblPartsVendorNo : TFloatField;


tblWeb : TTable;


tblWebLastVisited : TDateField;


tblWebURL : TStringField;


tblWebWebSite : TStringField;