Bde.DBTables.TSession.GetPassword

Aller au parent : TSession

Delphi

function GetPassword: Boolean;

C++

bool __fastcall GetPassword();

Propriétés

Type	Visibilité	Source	Unité	Parent
function	public	Bde.DBTables.pas Bde.DBTables.hpp	Bde.DBTables	TSession

Description

Appelle le gestionnaire d'événement OnPassword pour la session ou affiche la boîte de dialogue de mot de passe par défaut.

La méthode GetPassword déclenche le gestionnaire d'événement OnPassword de la session et gère la réponse quand une application utilise des tables Paradox protégées par mot de passe. Si aucun gestionnaire d'événement OnPassword n'est défini, GetPassword affiche la boîte de dialogue de mot de passe par défaut.

Une application peut utiliser la valeur renvoyée par GetPassword pour contrôler la logique du programme. GetPassword renvoie true si l'utilisateur a choisi OK et false s'il a choisi Cancel.

var
rslt: Boolean;
begin
rslt := Session.GetPassword;
try
if rslt then
Table1.Open
else
ShowMessage('Pas de mot de passe spécifié');
except
ShowMessage('Impossible d''ouvrir la table!');
end;
ifnot Table1.Active then
Application.Terminate;
end;

void __fastcall TForm1::OpenTableButtonClick(TObject *Sender)
{
bool rslt = Session->GetPassword();
try
{
if (rslt)
Table1->Open();
else
ShowMessage("Pas de mot de passe spécifié");
}
catch (...)
{
ShowMessage("Impossible d'ouvrir la table!");
}
if (!Table1->Active)
Application.Terminate();
}