Class TfEventDemo (unit Evntdem1)

Inherits from

TForm

Constructors



Functions

procedure cClearEventLogClick(Sender: TObject);


procedure cCreateDBClick(Sender: TObject);


procedure cCreateEventClick(Sender: TObject);


procedure cEventAlerterEventAlert(Sender: TObject; EventName: String; EventCount: Longint; var CancelAlerts: Boolean);

verify existence of EventDemo stored procedure and create if required

procedure cEventListChange(Sender: TObject);


procedure cRegisterEventsClick(Sender: TObject);


Properties

Events

Variables

cBDEDatabase : TDatabase;


cClearEventLog : TButton;


cCreateDB : TButton;


cCreateEvent : TButton;


cDatabase : TEdit;


cEvent : TEdit;


cEventAlerter : TIBEventAlerter;


cEventList : TMemo;


cEventLog : TListBox;


cEventProc : TStoredProc;


cIBDatabase : TIBDatabase;


cOpenDB : TButton;


cPassword : TEdit;


cRegisterEvents : TButton;


cUserName : TEdit;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


GroupBox3 : TGroupBox;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;



Constructors


Functions


procedure cClearEventLogClick(Sender: TObject);


procedure cCreateDBClick(Sender: TObject);


procedure cCreateEventClick(Sender: TObject);


procedure cEventAlerterEventAlert(Sender: TObject; EventName: String; EventCount: Longint; var CancelAlerts: Boolean);

verify existence of EventDemo stored procedure and create if required


procedure cEventListChange(Sender: TObject);


procedure cRegisterEventsClick(Sender: TObject);


Properties


Events


Variables


cBDEDatabase : TDatabase;


cClearEventLog : TButton;


cCreateDB : TButton;


cCreateEvent : TButton;


cDatabase : TEdit;


cEvent : TEdit;


cEventAlerter : TIBEventAlerter;


cEventList : TMemo;


cEventLog : TListBox;


cEventProc : TStoredProc;


cIBDatabase : TIBDatabase;


cOpenDB : TButton;


cPassword : TEdit;


cRegisterEvents : TButton;


cUserName : TEdit;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


GroupBox3 : TGroupBox;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;