Membuat Login Form dengan Visual Basic

Membuat Form Login dengan VB 6

ini tulisan pertama saya, sambil iseng iseng mengisi waktu malam minggu ini, ya saya mencoba membuat artikel tentang membuat program login yah,,...

sambil ngerokok dan sambil minum kopi nih biar dapet inspirasi...

untuk membuat program ini yah pertama anda harus mempunyai program visual basic 6 dahulu... untuk pembelajaran ini memakai software visual basic 6 yang portable saja dahulu disini.

untuk Visual basic yang bukan Portable bisa anda searching sajalah di google atau beli CD nya saja biar gak lama2 nunggu...

langsung saja ke topiknya...

untuk belajar membuat program login ini anda membutuhkan :

• 2 buah Label, yang di ganti Text nya menjadi User Name dan Password
• 2 buah textbox, yang di hapus Text nya, dan di ganti Name nya menjadi txtuser dan txtpass
• 1 buah CommandButton, yang diganti menjadi Caption nya menjadi LOGIN

• Untuk mempercantik tampilan sediakan gambar dan rubah icon program login anda yah yang menarik dan susun lah sesuai keinginan anda... 
• Sediakan juga Form kosong caranya klik project add form
• di properties form1 dan form2, atur starupposition nya menjadi centerscreen.

contoh susunan program Login yang saya buat nih Bro...

Selanjutnya membuat database nya dari Microsoft Access 2003 saja yah yang mudah...

Kurasa Kalau Microsoft Office ya kalian semua sudah bisa yah...

Buat dan simpan ditempat yang sama dengan anda membuat program login diatas yah...
dengan nama Dbase.mdb yah....

setelah itu buat table dengan nama login yah di microsoft Access nya ok...

trus di dalam table login buat 2 field name yah ... filed name user and pass ok.... dengan data typenya text

setelah itu ya anda impukan lah filed name user dengan nama anda...
dan field name pass dengan password anda ok...

nah save yah sesuai prosedur diatas OK....

cara mengkoneksikan program Login ini cukup mudah yah...
 anda double klik di command1 yang bertuliskan LOGIN dan copy paste kan Script Dibawah ini....

Public conn As New ADODB.Connection
Public RS As New ADODB.Recordset
Private Sub command1_click()
   If conn.State = 1 Then conn.Close
   conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\dbase.mdb"
     
      If RS.State = 1 Then RS.Close
      RS.Open "select * from login where user= '" & txtuser.Text & "' And pass = '" & txtpass.Text & "'", conn, 3, 3
           
            If Not RS.EOF Then
                 Form1.Visible = False 'untuk menutup form1
                 Form2.Show            'untuk menampilkan form2
               Else
                  MsgBox "User Name dan Password yang anda masukan salah, Coba ulangi lagi !", vbCritical, "Informasi"
                  txtuser.Text = ""
                  txtpass.Text = ""
                  txtuser.SetFocus
             End If
End Sub
Private Sub txtPass_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then command1_click  'berfungsi apabila kita sedang mengetikan password lalu di tekan enter maka akan terpijit atau tertekan tombol login
End Sub

Private Sub txtUser_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then txtpass.SetFocus 'berfungsi apabila kita sedang mengetikan username lalu di tekan enter maka akan berpindah ke kolom password
End Sub

Save & Runningkan Program anda....

Apabila masih bingung yah ini ada Source nya bisa di download disini