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.
