Channel PIN : C004874EF
"JOIN BBM Channel Official Anak Kos Entertainment"

Wednesday, April 17, 2013

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.

0 comments:

Post a Comment

Terimakasih telah berkunjung dan berkomentar disini...