Delphi 7 Login

Keterangan :
Username = Edit (Name = eiduser)
Password = Edit (Name = epass)
--
Koding,,
Click Masuk (button)
    if((eiduser.text='123')and(epass.text='admin'))then
  begin
      messagebox(self.Handle,'Login Suskses','welcome',MB_OK+MB_ICONINFORMATION);
      eiduser.Text:='';
      epass.Text:='';
      form2.show;
      form2.master1.enabled:=true;
      form2.laporan1.enabled:=false;
      end
      else
      if((eiduser.text='123')and(epass.text='manajer'))then
  begin
      messagebox(self.Handle,'Login Sukses','welcome',MB_OK+MB_ICONINFORMATION);
      eiduser.Text:='';
      epass.Text:='';
      form2.show;
      form2.laporan1.enabled:=true;
      form2.master1.enabled:=false;
      end
      else
      messagedlg('Username dan password anda salah',mtwarning,[mbOK],0);
      eiduser.Text:='';
      epass.Text:='';
--
Click Keluar (button)
if application.MessageBox('Apakah Anda yakin Keluar..??','Keluarprogram',36)=6then
      close; 

Selesai  "Delphi 7 Login"

Share :

Tweet

More