...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....
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....
Projenin açık kodunu yayınlar mısın düzenleyip ve açıklama satırlarını da yazıp teslim edebilirim.
yeni mesaja git
Yeni mesajları sizin için sürekli kontrol ediyoruz, bir mesaj yazılırsa otomatik yükleyeceğiz.Bir Daha Gösterme