Obtenir le nom de l'utilisateur connecté à une base de données

function TDM.GetLoggedUserName: string;
var
IBQuery: TIBQuery;
begin
result := '';

IBQuery := TIBQuery.Create(nil);
try
with IBQuery do begin
Database := IBDB;
Transaction := TibTransaction.Create(nil);
Transaction.DefaultDatabase := IBDB;
try
Transaction.StartTransaction;
SQL.Add('SELECT USER FROM rdb$database');

Prepare;
Open;
try
if FindField('USER') = nil then exit;

result := FieldByName('USER').AsString;

Transaction.Commit;
finally
Close;
end;
finally
Transaction.Active := False;
Transaction.Free;
end;
end; //with IBQuery
finally
IBQuery.Free;
end;
end;

procedure TfMain.Button2Click(Sender: TObject);
begin
Showmessage('utilisateur '+ DM.GetLoggedUserName);
end;
Commentaire des internautes
avatar
samir le 27/03/2012
merci
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour28/04/2009
VisualisationVu 2418 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Base de donnees
Auteur de l'article
fobec fobec
connecté le 28/07/2016
41 ans - France Nord-Est
44 articles dans la section
Contacter l'auteur