Selasa, 02 Oktober 2012

MEMBUAT PASSWORD DI DELPHI


  1.  Form ini terdiri dari minimal field Username dan Password
  2.  Jika pengguna memasukan username = ADMIN dan password=12345, maka form kedua akan tampil
  3.  Jika salah memasukan username dan/atau password, maka munculkan pesan kesalahan.

JAWABANNYA
 

 
procedure TForm2.Button1Click(Sender: TObject);
begin
if (edit2.text<>'12345') then
        begin
        Messagedlg('Username anda salah!',mterror,[mbok],0);
        Edit1.setfocus;
        end
else
if (edit1.text<>'admin') then
        begin
        Messagedlg('Password anda salah!',mterror,[mbok],0);
        Edit1.setfocus;
        end
else
else
begin
form1.show;
form2.Hide;
end;
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit1.SetFocus;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
if(application.MessageBox('Apakah Anda Yakin Akan keluar ?','Warning',MB_YESNO)=IDYES) then
        close;
end;

procedure TForm2.FormActivate(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
end;
end.










Tidak ada komentar:

Posting Komentar