Search for Knowledge
“A mistake is a signal that it is time to learn something new, something you didn’t know before.”

Coding Login Delphi

Coding Login Delphi

Pertama-tama buka aplikasi delphi terlebih dahulu.
Tambahkan label, edit, dan button.
Label1 (Caption) = Username
Label2 (Caption) = Password
Edit1 (text) = ‘ ‘
Edit2 (text) = ‘ ‘
Button1(Caption) = Login
Button2 = Cancel
Form2 Boleh tak diisi apa-apa

Gambar diatas merupakan gambaran dari fungsi label, edit, dan button.
Setelah terbuat seperti  tertera pada gambar diatas, Maka tambahkan suatu bahasa program (Coding)

Button 1(Login) berisi coding :

procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.Text = ‘Wykanova’) And (edit2.Text = ‘november’) then
begin
form1.Hide;
form2.Show;
Application.MessageBox(‘Anda Berhasil Login’, ‘Welcome’);
end
else if (edit1.Text = ”) And (edit2.Text = ‘ ‘) then
begin
Application.MessageBox(‘Masukkan Username dan Password’,’Warning!!!’);
end
else
label4.caption :=’Maaf Username dan Password tidak Valid’;

end;

Setelah button1(Login) sudah terisi oleh coding, Maka beralih ke Button2(Cancel) untuk mengisi coding :

procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;
end.

Setelah coding selesai dimasukkan ke dalam Button1, dan Button2. Maka Jalankan Program.

Jalankan Program, Lalu Login. Setelah login, maka form1 akan tersembunyi dana akan muncul form2.