Delphi Kullanıcı Adı

[kaan_karabey]

Arkadaşlar delphide kullanıcı girişi yaptım burdaki gibi

http://www.izlesene.com/video/delphi-il ... uc/6017027



şifremi unuttum kısmında kullanıcı adı yazıldıgında ve ara butonuna basıldıgında dbgridde seçili olan kullanıcının şifresini göstermesini istiyorum. Bunun kodunu yazabilirmisiniz.

[greenegitim]

bunun gibi birşey olması lazım

Kod: Tümünü seç

ibquery1.close;
ibquery1.sql.text:='';
ibquery1.sql.text:='select sifre from kullanicilar where kullaniciadi='+quotedstr(edt_kullaniciadi.text);
ibquery1.open;
ibquery1.fetchall;

showmessage(ibquery1.fieldbyname('sifre').text);

[kaan_karabey]

Arkadaşlar buldum bunun kodu belki size de yardım olur diye eklemek istedim

Kod: Tümünü seç

var 
ara:variant;
mesaj:Integer;
begin
ara:=Table1.Lookup('kullanici_adi',Edit5.Text,'kullanici_adi;sifre');
if VarIsNull(ara) Then //Eğer boş sa
ShowMessage('Kayıt Bulunamadı')
else
ShowMessage('KULLANICI ADI='+ara[0]+#13#10+'ŞİFRE='+ara[1]);
end;