KIsıtlama

[bymerag]

Kod: Tümünü seç

var
kullanici,sifre:string;
sonuc:integer;
begin
kullanici:=Edit2.Text;
sifre:=Edit1.Text;
IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('select * from ACCOUNT where KADI='+QuotedStr(kullanici));
IBQuery1.SQL.Add('and SIFRE='+QuotedStr(sifre));
IBQuery1.Open;
sonuc:=IBQuery1.RecordCount;

if sonuc=1 and  then
    begin
     KHA.Show;
    end
    else
    ShowMessage('Kullanıcı Adınız veya Şifreniz Hatalı'+ #13 +'Program Kapanacaktır...');
end;

şöyle bir sorgum

tablomdada 3 alan var
kadi,sifre,durum

kadi ve sifreyi doğrulayabiliyorum ancak benim dönen değere göre durum alanınnıda kontrol etmem gerekiyor
durum alanın kontrol ettirip sonuca göre formları açmam gerek.
Yardım edebilimisiniz?

[esistem]

selam;

Kod: Tümünü seç

    var
    kullanici,sifre:string;
    begin
    kullanici:=Edit2.Text;
    sifre:=Edit1.Text;
    IBQuery1.Close;
    IBQuery1.SQL.Clear;
    IBQuery1.SQL.Add('select kadi, sifre, durum from ACCOUNT where KADI='+QuotedStr(kullanici));
    IBQuery1.SQL.Add('and SIFRE='+QuotedStr(sifre));
    IBQuery1.Open;
    sonuc:=IBQuery1.RecordCount; // bu satırı kullanmayın düzgün çalışmaz

    if IBQuery1kadi.asstring<>''  then
        begin
    if IBQuery1durum.asstring='her ne ise'  then yapılacak işlem;
    if IBQuery1durum.asstring='her ne ise'  then yapılacak işlem;
        end
        else
        ShowMessage('Kullanıcı Adınız veya Şifreniz Hatalı'+ #13 +'Program Kapanacaktır...');
    end;