TUTORIAL MEMBUAT FORM LOGIN DI VB 06

TUTORIAL MEMBUAT FORM LOGIN DI VB 06

            Dalam kesempatan kali ini saya ingin berbagi ilmu tentang program Vb 06 yaitu bagaimana cara membuat aplikasi form login seperti contoh di bawah ini, menggunakan Microsoft Acces dan ADODC

1. Buka Aplikasi Vb 06
   
   
2. Klik Open
   
3. Desain Sesuai Inspirasi Kalian Sendiri Ini cuman Contoh saja
   
4. Klik Tombol Login Isi Coding
   
   Private Sub Command1_Click()
   Dim user, pass, pesan As String
   Dim isadmin As String
   
   user = TxtNama.Text
   pass = TxtPassword.Text
   
   If user = "" Then
       MsgBox "Nama belum di isi", vbExclamation, "KESALAHAN"
       TxtNama.SetFocus
       ElseIf pass = "" Then
       MsgBox "Password belum di isi", vbExclamation, "KESALAHAN"
       TxtPassword.SetFocus
   Else
   
   adologin.Refresh
   Do Until adologin.Recordset.EOF
       If adologin.Recordset.Fields("UserName").Value = user And adologin.Recordset.Fields("Password").Value = pass Then
          
           nama_karyawan = adologin.Recordset.Fields("Nama_Karyawan")
           Is_Admin = adologin.Recordset.Fields("IS_ADMIN")
          
           adologin.Recordset.Fields("LAST_LOGIN").Value = Now
           adologin.Recordset.Update
          
           FrmMaster.Caption = ".:: Aplikasi ::. - " + nama
           pesan = "Selamat Datang " + nama_karyawan + ", Login Sukses"
           Msg = MsgBox(pesan, vbInformation, "..:: PEMBERITAHUAN")
       
   MsgBox "Password Atau Username Tidak Ditemukan...Silahkan Coba Lagi!", vbExclamation, ".:: Kesalahan"
   Call bersih
   End If
   End Sub
   
   
5. Klik Tombol Refresh Isi Coding
   
   Private Sub Command2_Click()
   TxtNama = ""
   TxtPassword = ""
   TxtNama.SetFocus
   End Sub
   
   
6. Ini Hasilnya
   
   
   

Semoga Bermanfaat

jika mengalami kebingunan bisa kita berdiskusi

sukses untuk kita semua