Cara membuat from login menggunakan Delphi 7

Untuk memanajemen suatu database seorang admin tentunya harus memiliki suatu form khusus untuk memasukan id serta password yang bertindak sebagai admin. Nah form login ini sangat dibutuhkan untuk memfilter user agar tak semua bisa mengakses panel admin. Dengan pembatasan user hal itu mampu diralisasikan. Untuk itulah form login sangat diperlukan dalam suatu manajemen database. 

Form login  bersifat  khusus  karena  diperlukan  password  yang  hanya  diketahui  oleh administrator saja. Berikut adalah Cara membuat Form Login Dengan Delphi 7 : 

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);

Source Arif information

Terimakasih telah mengunjungi website kami, semoga apa yang saya share di web ini bisa membantu memberikan informasi bagi kita semua.