yardımlarınız için şimdiden teşekkürler.
Kod: Tümünü seç
UserName := EdtKullaniciAdi.Text;
Password := EdtSifre.Text;
with IBSecurityService1 do
begin
Active := True;
try
ModifyUser;
finally
Active := False;
end;
end;