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.
Sql komutu ile İf şartı
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
-
- Üye
- Mesajlar: 254
- Kayıt: 16 Şub 2004 06:12
- Konum: istanbul
Re: Sql komutu ile İf şartı
Merhaba,
Aşağıda ki kod işini görecektir.
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;
Re: Sql komutu ile İf şartı
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
http://www.neonhaber.com/Static/mega-co ... index.html
www.delphican.con
Function PARSE( text, ilk, son:String ): String; //
begin
Delete(Text, 1, pos(ilk, Text) + Length(ilk)-1);
Result := Copy(Text, 1, Pos(Son, Text)-1);
end;
http://www.neonhaber.com/Static/mega-co ... index.html
www.delphican.con
Function PARSE( text, ilk, son:String ): String; //
begin
Delete(Text, 1, pos(ilk, Text) + Length(ilk)-1);
Result := Copy(Text, 1, Pos(Son, Text)-1);
end;