Class TForm1 (unit TESTDBC)

Inherits from

TForm

See dbcountr.pas for an explanation of what this project is all about. It is _not_ a demo of TDBCounter.

Constructors



Functions

procedure BtnTestClick(Sender: TObject);


procedure BtnTestMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure FormCreate(Sender: TObject);


procedure ListDBsClick(Sender: TObject);


procedure ListDBsDblClick(Sender: TObject);


Properties

Events

Variables

BtnTest : TButton;


DSTest : TDataSource;


ListDBs : TListBox;


QryTest : TQuery;


TblTest : TTable;


TblTestDescr : TStringField;


TblTestID : TStringField;



Constructors


Functions


procedure BtnTestClick(Sender: TObject);


procedure BtnTestMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure FormCreate(Sender: TObject);


procedure ListDBsClick(Sender: TObject);


procedure ListDBsDblClick(Sender: TObject);


Properties


Events


Variables


BtnTest : TButton;


DSTest : TDataSource;


ListDBs : TListBox;


QryTest : TQuery;


TblTest : TTable;


TblTestDescr : TStringField;


TblTestID : TStringField;