Membuat Form Login dengan MS Access

Salah satu hal yang harus dibuat saat membuat aplikasi jaringan adalah form login. Form login adalah langkah praktis agar suatu aplikasi tidak dapat dimasuki sembarang orang. Disamping itu, kita bisa membuat aplikasi mempunyai aksi berbeda sesuai dengan "siapa yang masuk saat itu"

Artikel ini memberikan sedikit ide membuat form login yang paling sederhana. Pada saat mengerjakan tutorial dbawah ini, kita mengasumsikan sudah mempunyai database MS Access bernama dataku.mdb. Database tersebut diletakkan sama dengan tempat file executable aplikasi. dataku.mdb mempunyai satu tabel bernama DaftarUser

Contoh:
jika Anda meletakkan jual.exe di D:\jual maka file database juga diletakkan di D:\jual

1. Buat Aplikasi Baru
   
   
   
   
   
2. Buat Form Baru Sebagai Form Utama
   
   
   
   
   Beri nama sebagai formUtama
   
3. Buat Form Data Module
   
   
   
    Namakan form ini DM
   
4. Tambahkan TAdoConnection pada DM
   Setelah Anda menambahkan TAdoConnection, maka penampakan DM akan menjadi seperti ini:
   
   
   
   
   pada OnCreate milik DM, tambahkan kode berikut:
   
   with  AdoConnection1 do
   begin
           ConnectionString :=
               'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
               ExtractFilePath(Application.ExeName) +
               'Beli.mdb;Persist Security Info=False;' +
               'Jet OLEDB:Database Password=mypass';
           Name := 'Koneksi';
           LoginPrompt := False;
           Open;
   end;
   
   
5. Tambahkan VCL TAdoQuery
   Setelah Anda menambahkan TAdoQuery, keadaan DM akan menjadi seperti ini:
   
   
   
   
   Arahkan property Connection milik VCL TAdoQuery ke
   
   ADOQuery1.Connection := self.ADOConnection1;
   
   
6. Buat Form Login
   
   Lakukan langkah-langkah seperi no 1 dan 2 kembali untuk membuat satu form login. Namakan form ini formLogin
   
   Buatlah agar berpenampilan seperti ini
   
   
   
   
   Isi tombol TUTUP dengan
   
   Application.Terminate;
   
   Kemudian isi tombol MASUK dengan
   
   with DataModule1 do
   begin
           ADOQuery1.Close;
           ADOQuery1.SQL.Clear;
           ADOQuery1.SQL.Add(
           ' select count(*),Akses ' +
           ' from DaftarUser ' +
           ' where Nama = ' + QuotedStr(edit1.Text) +
           ' and Pass = ' + QuotedStr(edit2.Text) +
           ' group by Akses '
           );
           ADOQuery1.Open;
   
           if ADOQuery1.Fields[0].AsInteger > 0 then
           begin
               formUtama.Show;
               Hide;
           end else
           begin
               Application.MessageBox(
                   'Anda tidak berhak memakai aplikasi ini',
                   'Peringatan',
                   MB_ICONWARNING or MB_OK);
               edit1.Clear;
               edit1.Clear;
               edit1.SetFocus;
          end;
   end;
7. Buka Menu Project-Options
   
   
   
   Klik Options, akan menampilkan kotak seperti ini
   
   
   
   
8.  Pilih fomLogin. Klik Tombol Bertanda ">" Sekarang tulisan formLogin akan berpindah ke sebelah kanan
   
   
   
   
9. Buka Menu Project-View Source
   
   
   
   
10. Atur Form Login Agar Tampil untuk Pertama Kali Sebelum Form Utama
    
    
    • Beri kode berikut dibawah  Application.CreateForm(TformUtama, formUtama);
      
      Application.ShowMainForm :=  false;
      
    • tambahkan formLogin.Show, dibawah Application.CreateForm(TformLogin, formLogin);
    
    
    Hasil akhir di jendela view source akan tampak seperti ini:
    
     Application.Initialize;
     Application.CreateForm(TformUtama, formUtama);
     Application.ShowMainForm := false;
     Application.CreateForm(TformLogin, formLogin);
     formLogin.Show;
     Application.Run;

Membuat Form Login dengan MS Access 2015-07-08T11:25:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer