Form Log in Dengan Delphi

Hari ini saya akan membagikan tutorial membuat form log in

Yaitu terdiri dari Username dan password

Dan ketika di klik log in maka anda akan diantar ke form selanjutnya yaitu yang utama . ….

Langsung anda buat form anda seperti ini

Setelah anda buat  form anda seperti diatas . . .. .

Maka klik 2X button submit anda

Kemudian masukan listing program dibawah ini

procedure TForm1.Button1Click(Sender: TObject);

begin

if (Edit1.text = '') and (edit2.text = '') then

Application.MessageBox('password benar', 'Information',

      MB_OK or MB_ICONINFORMATION)

else

Application.MessageBox('Pastikan password benar', 'Warning',

      MB_OK or MB_ICONERROR)

end;

*Listing source tombol reset

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Text := '';

Edit2.Text := '';

end;

Jika anda ingin membuat password nya dengan password anda

Atau nama anda tinggal anda edit di

if (Edit1.text = 'disini anda set nama') and (edit2.text = 'disini anda set password anda')

jika anda bingung silahkan tinggalkan coment anda ..

Selamat Berjuang Go n Keep Your Spirit . .