Cara Membuat Form Login Dengan Delphi 7

Form   login   ini   akan   digunakan   sebagai   sistem   keamanan   yang diperuntukkan  kepada  administrator  untuk  mengubah  struktur  database.  Form login  bersifat  khusus  karena  diperlukan  password  yang  hanya  diketahui  oleh administrator saja. Form Login sebagai berikut :

Cara membuat Form Login Dengan Delphi 7 :

1. Desai Formnya dlu seperti gambar di bawah ini 

Desain Form Login

Form Login

Sorce Code Login :

procedure TFrmLogin.BLoginClick(Sender: TObject);
begin
  if(Edit1.Text='Admin')and(Edit2.Text='Admin')then
   begin
   MessageBox(0,'Log In Sukses','information',MB_OK+ MB_ICONINFORMATION);
   FrmMenu.Show;
   end
   else
      if(Edit1.Text='User')and(Edit2.Text='User')then
   begin
   MessageBox(0,'Log In Sukses','Information',MB_OK+ MB_ICONINFORMATION);
   FrmMenuUser.Show;
   end
   else
   MessageBox(0,'Log In Gagal Pastikan Username dan Password Benar','error',MB_OK+ MB_ICONERROR);