| Class TfEventDemo (unit Evntdem1) |
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);
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;