Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: Formunuzu 3 Hakta Şifreli Açmak.(Şifreyi,Form Çalışırken değiştirebilirsiniz.)  (Okunma sayısı 2063 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı HBV

  • Delphi 6 Level 5
  • *****
  • İleti: 298
  • Rep: +11/-7
  • Cinsiyet: Bay
Formunuzu 3 Hakta Şifreli Açmak.(Şifreyi,Form Çalışırken değiştirebilirsiniz.)
« : 05 Ocak 2007 21:27:51 »
Formunuz Şifreyle, açılsın! Kullanıcıya 3 Hak veriyor.Yapacaklarınız;önce Formunuza 1 Adet Edit  veya DBEdit(VT'ye şifre girişi için,Hangi bileşen kullanılıyorsa)  Bileşeni yerleştiriyoruz(Ve VT'ye ilk şifremizi kayıt ediyoruz;Açılış şifresi),sonra ObjectInspector'den;"PasswordChar"değerini "*" yapıyoruz.
ilerki zamanlarda Form çalışırken Kullanıcı şifreyi değiştirebilirsiniz,yeni şifre yazarken gözükmeyecektir,(Bir CheckBox'la,(Edit1.Visible:=true),Edit veya DBEdit Bileşeninin,Görünüp,şifre değişmesini sağlayabilirsiniz!). Burada önemli nokta kullanıcının şifreyi unutmaması.(Tabi siz başka varyasyonlar deniyebilirsiniz!artık dahada geliştirmek size kalıyor)
Bunun için aşağıdaki kod'u Tablonuzun "OnCreate" olayına yazınız.
Kod: [Seç]
Form’un On Create olayına
Var
 Sifre,sifreyaz:String;
 sayac:integer;
begin
 Edit1.Visible:=false;//Bir CheckBox'la Görünüp,şifre değişmesini sağlayabilirsiniz!
 sifreyaz:=String(Edit1.Text);//veya DBEdit'le VT'ye şifre girişi yapılacak
 sifre:=InputBox('Şifreyi Giriniz','Şifre','');
 sayac:=0;
 while(sifre<>sifreyaz)do
   begin
    if sayac>=2 then
      begin
       ShowMessage('Üç Hakkınızdada bilemediniz.Program Kapanacak');
       Application.Terminate;exit;
      end;
    inc(sayac);
    sifre:=InputBox(IntToStr(sayac)+'. Haktada Bilemediniz','Şifre Giriş','');
  end;
end;
Kolay Gelsin.
« Son Düzenleme: 07 Ocak 2007 00:23:27 by HBV »
Kayıtlı

Çevrimdışı Kocaturk

  • Administrator
  • *****
  • İleti: 2.474
  • Rep: +56/-5
  • Cinsiyet: Bay
    • Delphi Dünyası
Ynt: Tablonuzu 3 Hakta Şifreli Açmak.(Şifreyi,Tablo Çalışırken değiştirebilirsiniz.)
« Yanıtla #1 : 06 Ocak 2007 04:44:53 »
Merhaba ilginç bir yaklaşım bence güzel fakat burada tablodan kastın galiba Form olacak, tablo denilince akla veritabanı tabloları geliyorda, ayrıca bir sorum daha olacak bunu formun oncreate olayında tanımlayacaksan edit1 in text özelliğini designtime belirlemen gerekecek o zamanda program her kapatılıp açılınca default password edit1 in text özelliğine atanmış olmayacakmı ? checkbox a tıkladın edit gözüktü şifreyi değiştirdin ve programı kapattın tekrar açtığında şifre ne olacak mantık olarak bu koda göre designtime edit1 in text özelliğine atadığın değer olacak kısacası şifreyi değiştirdiğinde bir yerlere kaydetmek gerekmez mi? ve bunu onCreate olayında şifreyi sormadan önce edit1 e ataman gerekmez mi? bence kodu bu şekilde tasarlayıp başlığı makaleyi düzeltirsen acemi arkadaşların daha fazla işine yarar.
herşeye rağmen emeğin için teşekkürler.
Kayıtlı

Çevrimdışı HBV

  • Delphi 6 Level 5
  • *****
  • İleti: 298
  • Rep: +11/-7
  • Cinsiyet: Bay
Ynt: Tablonuzu 3 Hakta Şifreli Açmak.(Şifreyi,Tablo Çalışırken değiştirebilirsiniz.)
« Yanıtla #2 : 06 Ocak 2007 18:30:45 »
Uyarlarınız için çok teşekkür ediyorum! Tabloyu Form olarak düzelttim,(Ama genelde  her iki terimde kullanılıyor ).Edit'in Text olayına gelince;Genelde Proğramcılar VT'ye Editten giriş yaptırıyorlar(Bende Genelde Editten giriş yaptırırım),bunu hiç düşünmemiştim ,Ama Şifrenin Veritabanında saklanmasını belirtmem lazımdı, yeni başlayanlar için bununla iligili bilgileri ekleyerek düzeltiyorum.Yine çok teşekkür ediyorum.
« Son Düzenleme: 06 Ocak 2007 19:26:23 by HBV »
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »