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:

 

 

Sosyal Medyada Paylaş Facebook Twitter Google+

Etiketler: , , , , , , , , ,
Eklenme Tarihi: 16 Ocak 2017

Konu hakkında yorumunuzu yazın


Delphi- Kullanıcı Girişi (if else yapısı ile) (1 Yorum)

  1. form2.show yazıyorum hata veriyor ıd ve şifre girip giriş yapıldıgında mesaj vermesini istiyorum diğer forma geçip