Gelandang Internet yang mencoba melewati lorong sempit tanpa batas ruang dan waktu
Joint Venture Adsense

Membuat Program Data Buku di VB

· · 2 comments
Assalmau'alaikum, w.wb

Cara Membuat Program Entry Data Buku Pada Visual Basic - Selamat datang kembali rekan-rekan di blog mungil ini. Disini saya akan membagikan tutorial membuat program sederhana dengan visual basic yaitu entri data buku. Sript kode yang saya buat kali ini agak berbeda dengan sourcode sebelumnya. Saya kira source kode ini lebih mudah dipahami dan lebih simple karena menggunakan select case pada proses simpan edit, hapus dan navigasi program. Jadi setiap commad button akan dikelompokkan dengan nilai properti yang sama.

Pogram ini sudah dilengkapi tombol simpan, edit, hapus, datagrid serta tombol navigasi next, back, kembali ke record awal atau akhir record data. Untuk perpindahan antar textbox juga telah diset menggunakan tombol enter.

Database yang digunakan adalah acces 2007 dengan format accdb. Koneksi yang saya pakai disini adalah menggunakan AdoDC. Nah disini saya tidak akan menjelaskan cara membuat database atau cara menghubungkan database tersebut dengan program memakai AdoDc. Jika rekan-rekan masih ragu silahkan baca posting ini Cara koneksi database acces 2007 pada bahasa pemograman Visual Basic.

Langkah-langkah membuat program data buku di VB (vsual basic) :

1. Buat database dengan acces 2007 dengan nama databuku.accdb
Untuk lebih memudahkan silahkan simpan project, form dan database pada sebuah folder khusus.

contoh program vsual basic data buku 
2. Desain tampilan program data bukunya seperti dibawah ini :
Untuk menyembunyikan AdoDc ketika program dijalankan, silahkan rubah pengaturan propertinya pada visible dari true menjadi false. Sebelumnya pastikan dulu componen AdoData dan Datagridnya sudah aktif ya. Untuk membuat scrollbar pada textbox keterangan silahkan atur pada scrollbars dengan -2 vertikal.

membuat program entry data buku dengan VB

3. Koneksikan databasenya.
Masukan mantera-mantera dabawah ini :

Sub TombolHidup()
     'Aktif Nav
   For i = 0 To 3
   Me.jos(i).Enabled = True
   Next
    'AktifAksi
  For i = 0 To 4
  Me.ok(i).Enabled = True
    Next
    Me.ok(2).Enabled = False
    Me.ok(4).Enabled = False

    'Kunci TextBox
    Me.Txtkode.Locked = True
    Me.Txtjudul.Locked = True
    Me.Txtpengarang.Locked = True
    Me.txtpenerbit.Locked = True
    Me.Txttahunterbit.Locked = True
    Me.txtKet.Locked = True
End Sub

Private Sub Form_Load()
    TombolHidup
    Set Me.DataGrid1.DataSource = Adodc1
End Sub

Sub TombolMati()
    'NonAktif Nav
    For i = 0 To 3
        Me.jos(i).Enabled = False
    Next
    'NonAktifAksi
    For i = 0 To 4
        Me.ok(i).Enabled = False
    Next
    Me.ok(2).Enabled = True
    Me.ok(4).Enabled = True
    'Kunci TextBox
    Me.Txtkode.Locked = False
    Me.Txtjudul.Locked = False
    Me.Txtpengarang.Locked = False
    Me.txtpenerbit.Locked = False
    Me.Txttahunterbit.Locked = False
    Me.txtKet.Locked = False
End Sub


Private Sub ok_Click(Index As Integer)
    With Me.Adodc1.Recordset
        Select Case Index
            Case 0
                'tambah
                .AddNew
                Me.Txtkode.SetFocus
                TombolMati
            Case 1
                'Edit
                Me.Txtjudul.SetFocus
                TombolMati
            Case 2
                'Simpan
                If MsgBox("Data ingin diSimpan", vbQuestion + vbYesNo, "Tanya") = vbYes Then
                    .Update
                    MsgBox "Data Tersimpan"
                Else
                    .CancelBatch
                    MsgBox "Data Tidak Disimpan"
                End If
                TombolHidup
            Case 4
                .CancelBatch
                .MoveFirst
                TombolHidup
            Case 3
                'hapus
                If MsgBox("Yakin ingin diHapus", vbQuestion + vbYesNo, "Mau??") = vbYes Then
                    .Delete
                    .MoveLast
                    MsgBox "Data Terhapus"
                Else
                    MsgBox "Data Tidak Terhapus"
                End If
         
        End Select
    End With
End Sub

Private Sub jos_Click(Index As Integer)
    With Me.Adodc1.Recordset
     'koneksi
        Select Case Index
            Case 0
                .MoveFirst
            Case 1
                .MovePrevious
                If .BOF Then
                    .MoveFirst
                    MsgBox "Awal Record", vbExclamation + vbOKOnly, "Info Penting"
                End If
            Case 2
                .MoveNext
                If .EOF Then
                    .MoveLast
                    MsgBox "Record Terakhir", vbCritical + vbOKOnly, "Konf Me"
                End If
            Case 3
                .MoveLast
        End Select
    End With
End Sub

Private Sub Txtkode_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = 13 Then Me.Txtjudul.SetFocus
End Sub

Private Sub Txtjudul_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then Me.Txtpengarang.SetFocus
End Sub

Private Sub Txtpengarang_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then Me.txtpenerbit.SetFocus
End Sub

Private Sub Txtpenerbit_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Then Me.Txttahunterbit.SetFocus
End Sub

Private Sub Txttahunterbit_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then Me.txtKet.SetFocus
End Sub



4. Setelah program dijalankan maka akan tampil seperti screenshot dibawah ini : 

contoh program VB data buku

Yang perlu diperhatikan juga adalah jangan sampai type data pada database tidak sama dengan jenis data yang digunakan pada form program. Awalnya saya bingung kenapa terjadi eror ketika penyimpanan data pada program diatas. Eh setelah dicek ternyata type data pada tabel database pada tahun terbit berbentuk time/date, sementara pada program saya buat textbox yang seharusnya menggunakan DTPicker.

Kedepan saya ingin melengkapi program ini disertai dengan menu editor hingga laporan, tentu dengan kompensasi rekan-rekan harus membayarnya dengan sedikit fulus, wkwkwk. Moga bermanfaat. Begitulah.

Baca juga --> Cara koneksi database acces menggunakan modul

2 comments:

  1. jadi mudah ya mas jika menggunakan program tertentu, apalagi untuk membuat buku :D

    ReplyDelete
    Replies
    1. Iya. betul mas. kalau sudah terkumpul menjadi sebuah program utuh. diatas hanya contoh program entrynya saja.

      Delete

- Komentar yang mengandung hujatan, negatif akan dianggap spam
- Komentar link akan dilaporkan ke posyandu terdekat & tidak akan ditampilkan