Membuat form login database menggunakan VB

MEMBUAT FORM LOGIN DATABASE MENGGUNAKAN VB

1. Buat dulu database di Microsoft Access 2007 dan save dengan nama sewa_studio.mdb

2. Buatlah tabel dengan nama login dan masukan field-field berikut ini

 

 

3. Setelah itu, buka Microsoft Visual Basic 6.0 di komputer anda.

4. Buatlah sebuah project dan form loginnya. Kira-kira seperti ini tampilannya:

5. Gambar di atas terdapat beberapa component, yaitu

Label ada 2 buah : USER ID dan PASSWORD
Text ada 2 buah : txtusername dan txtpassword
CommandButton ada 2 buah: LOGIN dan CANCEL
ADODC ada 1 buah: Adodc1



6. Tambahkan Module. Caranya, klik menu Project lalu pilih Add Module. Kemudian klik Open.
7. Taruh coding di bawah ini di dalam Module tersebut:

Public conn As New ADODB.Connection
Public RS As New ADODB.Recordset

8. Kemudian masuk Form lagi, lalu tambahkan coding di bawah ini di dalam tombol LOGIN. Caranya tinggal klik dua kali di tombol LOGIN tersebut.

If conn.State = 1 Then conn.Close
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\sewa_studio.mdb;Persist Security Info=False"

If RS.State = 1 Then RS.Close
RS.Open "select * from login where user_id= '" & txtusername.Text & "' And password = '" & txtpassword.Text & "'", conn, 3, 3
If Not RS.EOF Then
MsgBox "BERHASIL"
Form3.Show
Else
MsgBox "Data Salah", vbCritical, "L O G I N"
txtusername.Text = ""
txtpassword.Text = ""
txtusername.SetFocus
End If


9. Coding yang bercetak tebal itu adalah koneksi ke database Access. Itu tergantung kita meletakkan database sewa_studio.mdb itu dimana. Untuk koneksi ke database sewa_studio.mdb caranya, klik kanan di Adodc1 itu lalu klik ADODC properties.

10. Maka muncul kotak di bawah ini:

11. Klik tombol Build lalu muncul kotak di bawah ini:

12. Lalu pilih "Microsoft Jet 4.0 OLE DB Provider" dan klik Next lalu muncul kotak di bawah ini:

13. Lalu klik tombol yang diarahkan oleh panah di atas. Lalu pilih database yang sudah dibuat tadi. Kalau sudah klik Open. Terus klik OK. Maka muncul kotak di bawah ini: Coba klik gambar di bawah ini:

14. Silahkan copy yang di blok biru seperti di gambar atas. lalu Pastekan ke coding yang bercetak tebal tadi (langkah 8)

15. Untuk tombol CANCEL silahkan tambahkan coding seperti di bawah ini:

Unload Me

16. Selesai.

Kode untuk visual basic (Pilih Bulan)

                                                       PILIH BULAN
Kode untuk pilih bulan

1. Masukan code pada Form Load
cmbBulan.AddItem "Januari"
 cmbBulan.AddItem "Februari"
 cmbBulan.AddItem "Maret"
cmbBulan.AddItem "April"
 cmbBulan.AddItem "Mei"
 cmbBulan.AddItem "Juni"
 cmbBulan.AddItem "Juli"
 cmbBulan.AddItem "Agustus"
 cmbBulan.AddItem "September"
 cmbBulan.AddItem "Oktober"
 cmbBulan.AddItem "November"
 cmbBulan.AddItem "Desember"
 cmbBulan.ListIndex = 0

2. Masukan code untuk ComboBox1 proses pilih bulan
Select Case cmbBulan.ListIndex
Case 0
        txtNamaBulan.Text = cmbBulan.Text
        txtBulan.Text = cmbBulan.ListIndex + 1
Case 1
        txtNamaBulan.Text = cmbBulan.Text
        txtBulan.Text = cmbBulan.ListIndex + 1
 Case 2
        txtNamaBulan.Text = cmbBulan.Text
        txtBulan.Text = cmbBulan.ListIndex + 1
 Case 3
        txtNamaBulan.Text = cmbBulan.Text
        txtBulan.Text = cmbBulan.ListIndex + 1
 Case 4
       txtNamaBulan.Text = cmbBulan.Text
       txtBulan.Text = cmbBulan.ListIndex + 1
Case 5
       txtNamaBulan.Text = cmbBulan.Text
       txtBulan.Text = cmbBulan.ListIndex + 1
Case 6
       txtNamaBulan.Text = cmbBulan.Text
       txtBulan.Text = cmbBulan.ListIndex + 1
 Case 7
       txtNamaBulan.Text = cmbBulan.Text
       txtBulan.Text = cmbBulan.ListIndex + 1
Case 8
      txtNamaBulan.Text = cmbBulan.Text
      txtBulan.Text = cmbBulan.ListIndex + 1
Case 9
      txtNamaBulan.Text = cmbBulan.Text
      txtBulan.Text = cmbBulan.ListIndex + 1
 Case 10
      txtNamaBulan.Text = cmbBulan.Text
      txtBulan.Text = cmbBulan.ListIndex + 1
 Case 11
      txtNamaBulan.Text = cmbBulan.Text
      txtBulan.Text = cmbBulan.ListIndex + 1
End Select

3. Masukan code untuk CommandButton Keluar
 Unload Me

4.  Tekan F5 untuk menjalankan program (Running)

Contoh Looping

                                                CONTOH LOOPING

code untuk looping

1. Masukan code untuk CommandButton Looping

Dim Count As Integer 

Dim i As Integer

 Count = Val(Text1.Text)

If Count <= 0 Then

   MsgBox "Nilai harus besar dari 0", vbInformation, "Error"

Else

 List1.Clear

 i = 0 

Select Case cmbJenisLooping.ListIndex 

Case 0 :

For i = 0 To Count - 1

 List1.AddItem Text2.Text & " data ke - " & i + 1 & " For -- Next", i

 Next i

 Case 1: 

While i < Count 

List1.AddItem Text2.Text & " data ke - " & i + 1 & " While -- Wend", i

 i = i + 1

Wend

 Case Else

 Do

 List1.AddItem Text2.Text & " data ke - " & i + 1 & " Do -- Loop Until", i

        i = i + 1

 Loop Until i > Count - 1

 End Select 

End If

2. Masukan code untuk FormLoad

 cmbJenisLooping.AddItem "For -- next"

 cmbJenisLooping.AddItem "While -- wend"

 cmbJenisLooping.AddItem "Do loop until"

 cmbJenisLooping.ListIndex = 0

3. Masukan code untuk CommandButton Keluar 

Unload Me 

4. Tekan F5 untuk menjalankan program (Running)