Membuat Aplikasi Login Sederhana (Delphi)

Baiklah Sobat AKE (Anak Kos Entertainment) sekalian, kali ini saya akan berbagi source kode Delphi, yaitu Login Form Sederhana lengkap dengan MessageDlg...

 

procedure TForm1.Button1Click(Sender: TObject );

var button : integer;

    user,pass : string;

begin

user := edit1.Text;

pass := edit2.Text;

if (user = 'admin') and (pass = 'admin')  then

  begin

  form1.Hide;

  messagedlg ('Anda Login Sebagai '+edit1.text+' '+chr(13)+'Welcome '+edit1.Text+'. ..!!! ',mtinformation,[mbok],0);

  form2.show;

  form2.button1.Enabled := true;

  form2.Button2.Enabled := true;

  form2.Button3.Enabled := true;

  form2.Edit1.SetFocus;

  end

else

begin

button := messagedlg ('User Name or Password Invalid',mterror,[mbretry,mbabort],0);

  if button = mrretry then

  begin

  refresh;

  end;

  if button = mrabort then

  form1.Close;

  end;

end;

 

Untuk exe nya bisa download disini

 

Source Kode bersambung ke Form 2.