Delphi- Kullanıcı Girişi (if else yapısı ile)
Merhaba arkadaşlar,
Bugün delphide if else yapısı ile kullanıcı giriş formu oluşturacağız.
İlk önce delphi ile açtığımız formumuza 2 adet buton ve 2 adet edit ekliyoruz.
Butonlarımızdan biri giriş biri ise çıkış olacak. Editlerden ise kullanıcı adı ve şifreyi çekeceğiz.
Şimdi giriş butonumuzun için aşağıdaki kodları yazıyoruz.
procedure TForm1.Button1Click(Sender: TObject); begin if (edit1.Text='Deneme') and (Edit2.Text='123456') then ShowMessage('Tebrikler başarıyla giriş yaptınız.') else ShowMessage('Yanlış Kullanıcı Adı veya Şifre!'); end;
Burada yaptırdığımız işlemler butona tıkladığında editlerdeki değerleri alarak sorgulaması ve ekrana mesaj vermesidir. Eğer istersek mesaj vermek yerine projemize yeni bir form ekleyerek, eklediğimiz formu Form2.show; komutuyla açtırabiliriz.
Giriş butonumuzu hallettikten sonra çıkış butonumuza ise aşağıdaki kodu yazarak programımızın tamamen kapatılmasını sağlıyoruz.
procedure TForm1.Button2Click(Sender: TObject); begin Application.Terminate; end;
Ve işlemleri tamamladıktan sonra ekran çıktılarımız aşağıdaki gibi oluyor.
ÖNEMLİ NOT: Şifre için kullandığımız editin properties kısmından password char kısmını * olarak değiştirirsek şifreler gözükmeyecektir.
DOĞRU GİRİŞ İÇİN:
YANLIŞ GİRİŞ İÇİN:
Etiketler: delphi, delphi çıkış butonu, delphi formda çıkış işlemi, delphi ile kullanıcı girişi, delphi kullanıcı girişi, if else yapısı, kullanıcı girişi, programlama, teknoloji, yazılım
Eklenme Tarihi: 16 Ocak 2017
form2.show yazıyorum hata veriyor ıd ve şifre girip giriş yapıldıgında mesaj vermesini istiyorum diğer forma geçip