Şifremi/Kullanıcı Adımı Unuttum
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Şimdi Ara

DELPHİ YARDIM !!

2
Cevap
0
Favori
297
Tıklama
Cevapla
Sayfaya Git:
Sayfa:
1
Giriş
Mesaj
    • Er
      8 Mesaj
      09 Nisan 2012 18:44:32 Konu Sahibi
      ...KULLANICI GİRİŞLİ İSİMDEN NUMARA VE NUMARADAN İSİM BULMA...
      ARKADAŞLAR ..
      Form1le aşağıdaki kodlarla kullanıcı giriş yapıp form2 sayfasına yönlendirilecek.


      procedure TForm1.Button1Click(Sender: TObject);
      var
      kul_ad,ad:ansistring;
      kul_sif,sifre:Integer;

      begin
      ad:='Ali';
      sifre:=1234;
      kul_ad:=InputBox('Giriş','Kullanıcı Adını Giriniz', '');
      kul_sif:= StrtoInt(InputBox('Sisteme Giriş','Şifreyi Giriniz',''));
      if(kul_ad=ad)and (kul_sif=sifre)then
      begin
      showmessage('Girişiniz Onaylandı');
      form2.show;
      form1.Hide;
      end
      else
      showmessage('Kullanıcı Adı veya Şifre Yanlış');
      end;
      end.



      Ardından Form2de 6 tane numara tanımlanacak..
      Kullanıcı ismi girip NUMARADAN BUL butonuna tıkladığında tanımlanan numaralardan kişinin İsmi, Numarası ve Adresi yan tarafındaki Labelda yazıcak
      aynı işlem numarayı girip İSİMDEN BUL butonuna tıkladığımızdada geçerli olucak.

      Form2 deki butonların kodlarını yazamadım lütfen yardım edermisiniz....






      |
      |




    • Yüzbaşı
      574 Mesaj
      11 Nisan 2012 04:13:40
      Kullanıcıların bilgilerini nerede saklıyorsun ? Bir db var mı ?
      |
      |
      _____________________________
    • Teğmen
      205 Mesaj
      11 Nisan 2012 10:21:43
      quote:

      Orijinalden alıntı: nilebr93

      ...KULLANICI GİRİŞLİ İSİMDEN NUMARA VE NUMARADAN İSİM BULMA...
      ARKADAŞLAR ..
      Form1le aşağıdaki kodlarla kullanıcı giriş yapıp form2 sayfasına yönlendirilecek.


      procedure TForm1.Button1Click(Sender: TObject);
      var
      kul_ad,ad:ansistring;
      kul_sif,sifre:Integer;

      begin
      ad:='Ali';
      sifre:=1234;
      kul_ad:=InputBox('Giriş','Kullanıcı Adını Giriniz', '');
      kul_sif:= StrtoInt(InputBox('Sisteme Giriş','Şifreyi Giriniz',''));
      if(kul_ad=ad)and (kul_sif=sifre)then
      begin
      showmessage('Girişiniz Onaylandı');
      form2.show;
      form1.Hide;
      end
      else
      showmessage('Kullanıcı Adı veya Şifre Yanlış');
      end;
      end.



      Ardından Form2de 6 tane numara tanımlanacak..
      Kullanıcı ismi girip NUMARADAN BUL butonuna tıkladığında tanımlanan numaralardan kişinin İsmi, Numarası ve Adresi yan tarafındaki Labelda yazıcak
      aynı işlem numarayı girip İSİMDEN BUL butonuna tıkladığımızdada geçerli olucak.

      Form2 deki butonların kodlarını yazamadım lütfen yardım edermisiniz....





      Projenin açık kodunu yayınlar mısın düzenleyip ve açıklama satırlarını da yazıp teslim edebilirim.
      |
      |
      _____________________________
      Uzmanlık : SQL , HTML&CSS&Javascript, JQuery , C#, ASP.NET MVC




Reklamlar
sohbet
#0850 Numara Tahsisi;#0850 Hat;#IP Santral;#Toplu
Kurumsal Web Tasarım Şirketi
Ankara Web Tasarım
SEO
haberler
Bu sayfanın
Mobil sürümü
Tablet sürümü
Mini Sürümü

DHSQLZ
0,109
1.2.165

Reklamlar
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.