ado table ile kullanıcı adı şifre yardım!!

[ufb1453]

İyi geceler;

ben formumda kullanıcı adı şifre oluşturdum, ancak veritabanında 1. satırdaki kullanıcı adı ile 3. satırdaki, şifreyi edite yazdığımda bile kabul ediyor,
istediğim database de kullanıcı adı 1. satırda ise şifre de sadece 1. satırı kabul etsin yardımcı olurmusunuz?
saygılarımla

Kod: Tümünü seç

begin
  if  Edit1.Text='' then
   begin
    showmessage ('Kullanıcı Adını Giriniz');
    exit;
   end;

  if edit2.Text='' then
   begin
    showmessage(' Lütfen Şifrenizi Giriniz');
     exit;
   end
   else
   begin
      if Adotable1.locate ('kullaniadi', edit1.Text,[locaseinsensitive]) and adotable1.locate('sifre', edit2.Text,[locaseinsensitive])
        then
         begin
            form1.Hide;
            form3.Show;
            edit1.Text:='';
            edit2.Text:='';
          end;
    end;

end;

[xozcanx]

Kod: Tümünü seç

procedure Tf_giris.Button1Click(Sender: TObject);
var
   ara:Boolean;
begin
	if Edit1.Text='' then
           ShowMessage('Kullanıcı Adı Boş Olamaz!');
else
Begin
      ara:=data.UserT.Locate('Kadi;Sifre',varArrayof([Edit1.Text,Edit2.Text]),[]);
      if ara Then
Begin
    AnaMenu.Show;
    f_giris.Hide;
end
    ELSE
    ShowMessage('Kullanıcı Adı Veya Şifre Hatalı...!');

end;
End;

Kendine göre düzenleyerek birde bu şekilde denermisiniz..

[ufb1453]

hocam teşekkürler bu şekilde istediğim sonucu aldım
saygılarımla