Kullanıcı Girisi Mysql ile Yardım Lazım

[arifakinti]

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

[bkantur]

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;

[arifakinti]

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;

Hocam cok teşekkürler 1 saat sonra musait olup deneyecegim. Benim kod da bunun benzeri ama cok ufak eksiklikler varmış simdi farkettim.

[arifakinti]

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

[bkantur]

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

[arifakinti]

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

Teşekkürler hocam oldu. Kusura bakmayın boyle ufak seyler icin rahatsiz ediyorum ama yarim saat ugrastim bulamadim onu
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.

[bkantur]

Rica ederim bu arada bana hocam deme bende bir acemi sayılırım

[arifakinti]

Rica ederim bu arada bana hocam deme bende bir acemi sayılırım

Benden acemi degilsiniz orası kesin Acemilikte üzerime tanımam