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