MEMBUAT PROGRAM FORM LOGIN/MASUK MENGGUNAKAN DELPHI d5a6sd5a6d

 

MEMBUAT PROGRAM FORM LOGIN/MASUK MENGGUNAKAN DELPHI d5a6sd5a6d

Oke kali ini ane mau berbagi cara membuat program login atau masuk menggunakan bahasa pemrograman Delphi. Biasanya pada aplikasi yang berhubungan dengan input data menggunakan keamanan seperti diharuskan memasukan username/nama pengguna dan pasword/kata sandi. Disinlah kita akan membahasnya.

Disini ane membahsnya lengkap dengan validasinya. Jadi ketika kata sandi atau nama pengguna yang masukan salah maka akan muncul pesan error. Dan apabila sudah benar maka muncul pesan berhasil. Dan langsung membuka form yang lainnya

Baik langsung saja agan bikin desain formnya seperti ini :

 

 

 

Pada tombol masuk silahkan agan ketik mantranya seperti ini :

 

 

procedure TFLogin.BitBtn1Click(Sender: TObject);

begin

if (Edit1.Text='admin') and (Edit2.Text='admin') then

    begin

      MessageBox(0,'Masuk Sukses','Information',MB_OK+MB_ICONINFORMATION);

      FLogin.Hide;

      FMenuUtama.ShowModal;

    end

  else

    MessageBox(0,'Masuk Gagal, silahkan isi nama dan kata sandi dengan benar','error',MB_OK+MB_ICONERROR);

end;

apabila mantra di atas sudah agan ketik sekarang coba agan jalankan programnya. Nanti akan jadi seperti ini