Şimdi Ara

DELPHİ YARDIM !!

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
1 Misafir - 1 Masaüstü
5 sn
4
Cevap
0
Favori
353
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • ...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....



     DELPHİ YARDIM !!







  • Kullanıcıların bilgilerini nerede saklıyorsun ? Bir db var mı ?
  • 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....



     DELPHİ YARDIM !!


    Projenin açık kodunu yayınlar mısın düzenleyip ve açıklama satırlarını da yazıp teslim edebilirim.




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