Klasse TFDBEinstellungen

Unit

uFDBEinstellungen

Deklaration

type TFDBEinstellungen = class(TForm)

Beschreibung

Hierarchie

• TForm
• TFDBEinstellungen

Übersicht

Felder

	EdtHost: TLabeledEdit;
	EdtPort: TLabeledEdit;
	EdtDatenbank: TLabeledEdit;
	EdtNutzer: TLabeledEdit;
	EdtPasswort: TLabeledEdit;
	CBSSL: TCheckBox;
	BtnOk: TButton;
	BtnAbbrechen: TButton;
	BtnHilfe: TButton;
	BtnTesten: TButton;
	ThreadTestDBVerbindung: TJvThread;

Methoden

	procedure BtnOkClick(Sender: TObject);
	procedure BtnAbbrechenClick(Sender: TObject);
	procedure FormActivate(Sender: TObject);
	procedure BtnHilfeClick(Sender: TObject);
	procedure EdtPortKeyPress(Sender: TObject; var Key: Char);
	procedure BtnTestenClick(Sender: TObject);
	procedure FormCreate(Sender: TObject);
	procedure FormDestroy(Sender: TObject);
	procedure ThreadTestDBVerbindungExecute(Sender: TObject; Params: Pointer);
	procedure ThreadTestDBVerbindungFinish(Sender: TObject);
	function HasChanged : boolean;
	procedure SetDBEinstellungen(var pDB : pDBEinstellungen);

Beschreibung

Felder

	EdtHost: TLabeledEdit;

	EdtPort: TLabeledEdit;

	EdtDatenbank: TLabeledEdit;

	EdtNutzer: TLabeledEdit;

	EdtPasswort: TLabeledEdit;

	CBSSL: TCheckBox;

	BtnOk: TButton;

	BtnAbbrechen: TButton;

	BtnHilfe: TButton;

	BtnTesten: TButton;

	ThreadTestDBVerbindung: TJvThread;

Methoden

	procedure BtnOkClick(Sender: TObject);

	procedure BtnAbbrechenClick(Sender: TObject);

	procedure FormActivate(Sender: TObject);

	procedure BtnHilfeClick(Sender: TObject);

	procedure EdtPortKeyPress(Sender: TObject; var Key: Char);

	procedure BtnTestenClick(Sender: TObject);

	procedure FormCreate(Sender: TObject);

	procedure FormDestroy(Sender: TObject);

	procedure ThreadTestDBVerbindungExecute(Sender: TObject; Params: Pointer);

	procedure ThreadTestDBVerbindungFinish(Sender: TObject);

	function HasChanged : boolean;
Public-Deklarationen

	procedure SetDBEinstellungen(var pDB : pDBEinstellungen);