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.
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
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;
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
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;