membuatformlogin

							                          http://www.vbawam.com/
      Tutorial, Source code, Request Program Visual Basic
                                 Oleh : Moh. A Azis


            Membuat Form Login Program Persediaan Barang
Form Login digunakan untuk membuat akses masuk bagi user / pengguna aplikasi
program dengan terlebih dahulu memasukkan kode user dan password pengguna sesuai
ketentuan. From login dengan vb berikut ini mempunyai hak akses untuk dapat masuk ke
menu utama, jika hak akses nya user biasa maka pilihan menu utama akan dibatasi, dan
jika hak aksesnya admin maka semua pilihan di menu utama semua akan aktif. Untuk itu
ikuti langkah-langkah di bawah ini




   1. Perhatikan gambar di bawah ini, pada form baru anda tambahkan komponen
       Image, Label, Textbox dan CommandButton




                                          1

             (Step By Step membuat program persediaan barang)
                               http://www.vbawam.com/
2. Lihat table di bawah ini, ubah properties komponen yang tertempel pada lembar
   form
   Nama Control                  Properties                Nilai
   Form 1                        Name                      FrmLogin
                                 Caption                   Login
   Label 1                       Caption                   Silahkan masuk…
   Label 2                       Caption                   Kode User :
   Label 3                       Caption                   Password :
   TextBox 1                     Name                      Txtkode
   CommandButton1                Name                      Cmdok
                                 Text                      Login
   CommandButton2                Name                      Cmdcancel
                                 Text                      cancel


3. Klik icon view code lalu copy pastekan listing kode di bawah ini :

   Sub login()
   If txtkode.Text = "" Then txtkode.SetFocus: Exit Sub
   If txtpsw.Text = "" Then txtpsw.SetFocus: Exit Sub
   Call Koneksi_Database
   sql = "select * from users where kd_user= '" & txtkode.Text & _
   "' and password = '" & txtpsw.Text & "'"
   rs.Open sql, db, adOpenDynamic, adLockBatchOptimistic
   With rs
   If .EOF = False Then
   Dim lvl As String
   lvl = rs.Fields("Level")
   If lvl = "USER" Then
   FrmMenu_Utama.Enabled = True

                                        2

          (Step By Step membuat program persediaan barang)
                              http://www.vbawam.com/
FrmMenu_Utama.StatusBar1.Panels(1).Text = txtkode.Text
FrmMenu_Utama.StatusBar1.Panels(2).Text = rs.Fields("NM_USER")
FrmMenu_Utama.MnuPengguna.Enabled = False
For x = 1 To 7
FrmMenu_Utama.Toolbar1.Buttons(x).Visible = True
Next x
FrmMenu_Utama.Show
Unload Me
Else
FrmMenu_Utama.Enabled = True
FrmMenu_Utama.StatusBar1.Panels(1).Text = txtkode.Text
FrmMenu_Utama.StatusBar1.Panels(2).Text = rs.Fields("NM_USER")
FrmMenu_Utama.MnuPengguna.Enabled = True
For x = 1 To 7
FrmMenu_Utama.Toolbar1.Buttons(x).Visible = True
Next x
FrmMenu_Utama.Show
Unload Me
End If
Else
MsgBox "users tidak dikenal !", vbCritical, "Peringatan"
SendKeys "{home}+{end}"
txtkode.SetFocus
End If
End With
End Sub


Private Sub cmdcancel_Click()
End
End Sub
                                    3

         (Step By Step membuat program persediaan barang)
                        http://www.vbawam.com/
   Private Sub cmdok_Click()
   Call login
   End Sub


   Private Sub Form_Activate()
   txtkode.SetFocus
   End Sub


   Private Sub Form_Load()
   txtkode.Text = ""
   txtpsw.Text = ""
   End Sub


   Private Sub txtkode_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then txtpsw.SetFocus
   End Sub


   Private Sub txtpsw_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then Call login
   End Sub


4. Simpan Form Login dengan nama FrmLogin di Folder Persediaan Barang
   dimana Project & Database Persediaan Barang dibuat.




                                      4

         (Step By Step membuat program persediaan barang)
                          http://www.vbawam.com/