Sql komutu ile İf şartı

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
byraymond42
Üye
Mesajlar: 2
Kayıt: 14 Ara 2019 02:15

Sql komutu ile İf şartı

Mesaj gönderen byraymond42 »

Merhaba arkadaşlar. Final yerine geçecek olan bir proje ödevim var. Ve ödevime dair herşeyi halletim tek bir şey hariç.
Yapmak istediğim şey şu programımın giriş ekranında yapmak istediğim şey şu ;
kullanıcıadı.Text veritabanındaki kullanıcıadı kısmına ve sifre.Text veritabanındaki şifre kısmına eşit ise şeklinde bir koşul girmem gerek. Bu bağlantıyı nasıl kuracağımı bulamadım bir türlü. Veritabanım ile program arasında bağlantım sağlıklı şekilde çalışıyor.

denizfatihi
Üye
Mesajlar: 245
Kayıt: 16 Şub 2004 06:12
Konum: istanbul

Re: Sql komutu ile İf şartı

Mesaj gönderen denizfatihi »

Merhaba,

Aşağıda ki kod işini görecektir.

Kod: Tümünü seç

procedure TForm32.BitBtn1Click(Sender: TObject);
begin
inc(a);
while a < 3 do
begin
if (sifre = edit1.Text) and (kullanici = edit2.Text)  then

begin
Form32.hide();

Form1.Show();
Form1.Timer1.Enabled:=True;
Abort();
end
else
begin
application.MessageBox('Üzgünüz Yanlış Kullanıcı veya Şifre Girdiniz yada Lisans Süreniz Dolmuş Olabilir... !!!',
                                   'Bilgi Mesajı',mb_ok+mb_iconinformation);
Edit1.Clear();
Edit1.Setfocus();
Abort();
end;
end;
Application.MessageBox('3 Hakkınızı da Kullandınız, Program Kapanıyor... !!!',
                                   'Bilgi Mesajı',mb_ok+mb_iconinformation);

Application.Terminate();
end;

Kullanıcı avatarı
Commandx
Üye
Mesajlar: 159
Kayıt: 01 Oca 2008 05:34

Re: Sql komutu ile İf şartı

Mesaj gönderen Commandx »

form uzerine iki adet dbedit koy (kullaniciadi. text ve sifre. text) sifre. text visible false yap, alttaki kodu edit1 in onchange eventine yaz tamamdır.

Kod: Tümünü seç

var
kullaniciadi,sifre,sorgu:string;
begin
kullaniciadi:=kullaniciadi.text; // Burası veritabanına bağladığın db editlerden - kullanıcı adı (visible:= true) olacak 
sifre:=sifre.text;                 // Burası veritabanına bağladığın db editlerden - şifre (visible:=false) olacak 
              sorgu:=kullaniciadi+sifre;
   if (SORGU)<> EDIT1.TEXT THEN BEGIN // edit1 kutusu visible:=True) 
   FORM2.show; // buraya yapmak istediğin prosedür
   END;
   
   if (SORGU)= EDIT1.TEXT THEN BEGIN
   FORM2.hide ; // buraya da yapmak istemediğin prosedür
   END;
END; end;
http://www.delphibasics.co.uk/RTL.asp?Name=DaysBetween
Function PARSE( text, ilk, son:String ): String; // Çok Lazım oluyor da :)=
begin
Delete(Text, 1, pos(ilk, Text) + Length(ilk)-1);
Result := Copy(Text, 1, Pos(Son, Text)-1);
end;

Resim

Cevapla