Kullanıcı Girisi Mysql ile Yardım Lazım
Forum kuralları
Bu forum sadece yapacağınız işle alakalı doğru bileşeni bulmak içindir. Şöyle bir şey yapmam lazım, hangi bileşeni kullanıyım diyorsanız, doğru yerdesiniz.
Bu forum sadece yapacağınız işle alakalı doğru bileşeni bulmak içindir. Şöyle bir şey yapmam lazım, hangi bileşeni kullanıyım diyorsanız, doğru yerdesiniz.
-
- Üye
- Mesajlar: 17
- Kayıt: 13 Mar 2015 04:06
Kullanıcı Girisi Mysql ile Yardım Lazım
Meraba arkadaşlar. Delphiye yeni başladım. Cok zor geliyor bana. Php ve java da 2 dk yazdigim kodu delphide yazamıyorum. Simdi benim bir formum var. Orda kullanici adi ve sifre girilecek. Eger dogru ise bu form gizlenip diger ana form acilacak. Ama ben yapamadım bi türlü. Firedac paketinden FDconnection ve fdquery waitcursor ve mysqldriverlinks nesnelerini ekledim. Veri tabani ile basariyla baglanti kurdum. Fakat bunu nasil konrtol edecegim bilmiyorum. Dogru nesneleri mi kullaniyorum ekstra bisey eklemem gerekiyo mu? Bir yardimci olsaniz
Re: Kullanıcı Girisi Mysql ile Yardım Lazım
Kod: Tümünü seç
begin
with FDQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('Select * From kullanici Where P_kullanici_adi='+quotedstr(kullaniciED.Text)+ ' and P_kullanici_parola='+quotedstr(parolaED.Text));
Open;
if FDQuery1.RecordCount>0 then
begin
main.Show;
login.close;
end
else
begin
Application.MessageBox('Kullanıcı Adı yada Şifre Yanlış….','UYARI',MB_OK);
kullaniciED.text:='';
parolaED.text:='';
kullaniciED.SetFocus
end;
end;
end;
-
- Üye
- Mesajlar: 17
- Kayıt: 13 Mar 2015 04:06
Re: Kullanıcı Girisi Mysql ile Yardım Lazım
Hocam cok teşekkürler 1 saat sonra musait olup deneyecegim. Benim kod da bunun benzeri ama cok ufak eksiklikler varmış simdi farkettim.bkantur yazdı:Kod: Tümünü seç
begin with FDQuery1 do begin Close; SQL.Clear; SQL.Add('Select * From kullanici Where P_kullanici_adi='+quotedstr(kullaniciED.Text)+ ' and P_kullanici_parola='+quotedstr(parolaED.Text)); Open; if FDQuery1.RecordCount>0 then begin main.Show; login.close; end else begin Application.MessageBox('Kullanıcı Adı yada Şifre Yanlış….','UYARI',MB_OK); kullaniciED.text:=''; parolaED.text:=''; kullaniciED.SetFocus end; end; end;
-
- Üye
- Mesajlar: 17
- Kayıt: 13 Mar 2015 04:06
Re: Kullanıcı Girisi Mysql ile Yardım Lazım
bkantur yazdı:Kod: Tümünü seç
begin with FDQuery1 do begin Close; SQL.Clear; SQL.Add('Select * From kullanici Where P_kullanici_adi='+quotedstr(kullaniciED.Text)+ ' and P_kullanici_parola='+quotedstr(parolaED.Text)); Open; if FDQuery1.RecordCount>0 then begin main.Show; login.close; end else begin Application.MessageBox('Kullanıcı Adı yada Şifre Yanlış….','UYARI',MB_OK); kullaniciED.text:=''; parolaED.text:=''; kullaniciED.SetFocus end; end; end;
Nerde yanlis yapiyorum
Re: Kullanıcı Girisi Mysql ile Yardım Lazım
End sonunda koyduğun noktalı virgülü kaldırırsan sorunun çözülür.
Kod: Tümünü seç
if DM1.Q1.RecordCount>0 then begin
GirisForm.Close;
end
else begin
-
- Üye
- Mesajlar: 17
- Kayıt: 13 Mar 2015 04:06
Re: Kullanıcı Girisi Mysql ile Yardım Lazım
Teşekkürler hocam oldu. Kusura bakmayın boyle ufak seyler icin rahatsiz ediyorum ama yarim saat ugrastim bulamadim onubkantur yazdı:End sonunda koyduğun noktalı virgülü kaldırırsan sorunun çözülür.
Kod: Tümünü seç
if DM1.Q1.RecordCount>0 then begin GirisForm.Close; end else begin
Edit: Hocam orda giris butonunun altinda labelde kalan limitiniz yaziyor. Basta bu limit 3 ama her yanlis girdiginde bu limit 1 düşecek ve en son limitniz doldu, yazip butun butonlar cikis haric pasif olacak. Ben bu limit olayini if else le yaptim ama bir defa tek dusuyor. 2 oluyor sonra hep oyle kaliyor.
Re: Kullanıcı Girisi Mysql ile Yardım Lazım
Rica ederim bu arada bana hocam deme bende bir acemi sayılırım
-
- Üye
- Mesajlar: 17
- Kayıt: 13 Mar 2015 04:06
Re: Kullanıcı Girisi Mysql ile Yardım Lazım
Benden acemi degilsiniz orası kesin Acemilikte üzerime tanımambkantur yazdı:Rica ederim bu arada bana hocam deme bende bir acemi sayılırım