procedure TForm1.Button1Click(Sender: TObject); begin FDQuery1.Open('select * from kullanicilar where kadi='+#39+kullanici.Text+#39+' and ksifre='+#39+sifreniz.Text+#39) ; if FDQuery1.RecordCount > 0 then //Eğer bilgi varsa begin form1.Hide; form3.Show; end else if FDQuery1.RecordCount <=0 then begin showmessage('Kullanıcı Adı veya Şifreniz Hatalı'); end; end;
Yardımcı olması dileği ile...
Proje dosyasına ve programa ulaşmak için tıklayınız.
showmessage('DelphiCan')