Membuat Form Login Menggunakan Borlan Delphi 7

11.       Buka software Delphi 7

22.       Tambahkan 1 Form lagi dengan menekan New Form seperti tampilan berikut ini

 

 

33. Setelah Muncul 2 Form tekan Alt+F11 pada form 1 dan form 2 secara begantian untuk  menggabungkan kedua form, pilih unit 2 jika kita menekan F11 pada form 1 kemudian klik use unit dan pilih unit 1 jika kita menekan F11 pada form 2 kemudian klik use unit

 

  

44. Pada Form 1 tambahkan 2 Label. Pada bagian properties carilah bagian caption dan ganti namanya menjadi username dan Password

55.  Tambahkan 2 Edit. Pada bagian Properties carilah bagian Teks dan hapus. Sehingga muncul tampilan sebagai berikut.

66. Tambahkan 2 Button. Button 1 pada bagian Properties -à Caption ganti nama jadi Log In, sedangkan pada Button 2 ubah nama menjadi Close

Menu Label, Edit dan Button terletak pada Menu Standar di bagian atas

 

77. Save program terlebih dahulu. Klik menu File à Save All à Pilih folder untuk menyimpanàPilih Simpan

88.  Klik ganda pada button Log In sehingga muncul tampilan sebagai berikut

 

99.       Masukkan syntak program berikut

procedure TForm1.Button1Click(Sender: TObject);

begin

  if (Edit1.Text='And Many More') and (Edit2.Text='Corporation') then

    begin

      MessageBox(0,'Log In Sukses','information',MB_OK+MB_ICONINFORMATION);

      Form1.Hide;

      Form2.Show;

    end

  else

    MessageBox(0,'Log In Gagal','error',MB_OK+MB_ICONERROR);

end;

110.   Klik ganda pada button close. Dan tuliskan syntak sebagai berikut

procedure TForm1.Button2Click(Sender: TObject);

begin

  Application.Terminate;

end;

end.

111.   Untuk menjalankan program tekan F9. Form Log in pun siap digunakan

112.   Jangan lupa simpan program, karena Delphi 7 tidak dapat menyimpan secara otomatis.