Class TForm1 (unit MKTablEx)

Inherits from

TForm

Renamed from Example.pas 6/7/1998 Paul Rice to avoid conflict with 32-bit version.

Constructors



Functions

procedure Button1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);

remember that the key is prov+area+sector+subsector

procedure Button3Click(Sender: TObject);

remember that the key is prov+area+sector+subsector

procedure Button4Click(Sender: TObject);


procedure Button5Click(Sender: TObject);


procedure Button6Click(Sender: TObject);

remember that the key is prov+area+sector+subsector

procedure Button7Click(Sender: TObject);


procedure Button8Click(Sender: TObject);


procedure DataSource1DataChange(Sender: TObject; Field: TField);


function FilterEvent(DataSet: TDataset): Boolean;


procedure FormCreate(Sender: TObject);


Properties

Events

Variables

Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


Button4 : TButton;


Button5 : TButton;


Button6 : TButton;


Button7 : TButton;


Button8 : TButton;


DataSource1 : TDataSource;


DBGrid1 : TDBGrid;


DBNavigator1 : TDBNavigator;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel4 : TPanel;


RecNum : TPanel;


Table1 : tTableDBF;


TableFilter1 : TTableFilter;



Constructors


Functions


procedure Button1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);

remember that the key is prov+area+sector+subsector


procedure Button3Click(Sender: TObject);

remember that the key is prov+area+sector+subsector


procedure Button4Click(Sender: TObject);


procedure Button5Click(Sender: TObject);


procedure Button6Click(Sender: TObject);

remember that the key is prov+area+sector+subsector


procedure Button7Click(Sender: TObject);


procedure Button8Click(Sender: TObject);


procedure DataSource1DataChange(Sender: TObject; Field: TField);


function FilterEvent(DataSet: TDataset): Boolean;


procedure FormCreate(Sender: TObject);


Properties


Events


Variables


Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


Button4 : TButton;


Button5 : TButton;


Button6 : TButton;


Button7 : TButton;


Button8 : TButton;


DataSource1 : TDataSource;


DBGrid1 : TDBGrid;


DBNavigator1 : TDBNavigator;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel4 : TPanel;


RecNum : TPanel;


Table1 : tTableDBF;


TableFilter1 : TTableFilter;