---

Hej.

Jeg har et program med en Firebird database.

Jeg vil gerne lave en login prompt i starten, der benytter de brugere og
adgangskoder, der findes i Firebirds system

Men hvordan får jeg Delphi og Firebird til at validere et brugernavn og
adgangskode?

---

"Sørensen" <.> skrev i en meddelelse
news:45db227e$0$4167$ba624c82@nntp02.dk.telia.net...
> Hej.
>
> Jeg har et program med en Firebird database.
>
> Jeg vil gerne lave en login prompt i starten, der benytter de brugere og
> adgangskoder, der findes i Firebirds system
>
> Men hvordan får jeg Delphi og Firebird til at validere et brugernavn og
> adgangskode?

Jeg har (muligvis) fundet ud af det.

Jeg har en indsat en TIBSecurityService komponent og skriver følgende kode i
login formens OK-knaps onclick hændelse.

procedure TformLogind.btnOKClick(Sender: TObject);
begin
with IBSecurityService do
begin
Params.Clear;
Params.Values['user_name'] := edtBrugernavn.Text;
Params.Values['password'] := edtAdgangskode.Text;
active := true;
end;
application.Run;
close;
end;

så virker det, men skriver jeg

procedure TformLogind.btnOKClick(Sender: TObject);
begin
with IBSecurityService do
begin
username:= edtBrugernavn.Text;
password:= edtAdgangskode.Text;
active := true;
end;
application.Run;
close;
end;

så får jeg en fejlmeddelelse.

Burde løsning 2 ikke kunne være OK?