*Tambahkan komponen data grid:
Ctrl + T → beri tanda centang pada Microsoft
DataGrid Control 6.0 → apply → ok
*Setelah itu tambahkan data environment
Klik kanan project → add → data environment
Klik kanan connection → properties → Microsoft Jet
4.0 OLE DB Provider (karena filenya berupa acces.mdb) → next → klik button pada
select or enter a database name → cari file accesnya → open → test connection
hingga muncul test connection succeeded → ok → ok
Kemudian, klik kanan connection → add command
Klik kanan command → properties → pada tab general
command name: ketik nama command misal supp
Connection: nama connection yang dibuat sebelumnya
Database object: pilih table
Object name: pilih nama table(tb_supplier)
Pada tab advanced lock type pilih optimistic (supaya
data bisa diedit maupun ditambah) → apply → ok
*Buatlah form baru
lik kanan project → add → form.
Buatlah tampilan seperti pada gambar berikut.Untuk mempercepat pembuatan
layoutnya buka data environment kemudian drag supp pada form. Tambahkan button,
data grid dan status bar.
Koding
*Form Load
Private Sub Form_Load()
de.rssup.MoveFirst
tampil
End Sub
Private Sub tampil()
Me.StatusBar1.Panels(1).Text = "Record ke- " & de.rssup.AbsolutePosition
Me.StatusBar1.Panels(2).Text = "Jumlah data = " &
de.rssup.RecordCount
End Sub
*Navigasi
Private Sub cmdnav_Click(Index As Integer)
With de.rssup
Select
Case Index
Case 0
.MovePrevious
If
.BOF Then .MoveFirst
Case 1
.MoveNext
If
.EOF Then .MoveLast
End Select
tampil
End With
End Sub
*Operasi
Private Sub cmdop_Click(Index As Integer)
With de.rssup
Select
Case Index
Case 0
.AddNew
Me.txtkdspl.SetFocus
Case 1
.UpdateBatch
Case 2
.CancelBatch
.MoveFirst
Case 3
.Delete
.UpdateBatch
.MoveFirst
End Select
tampil
End With
End Sub
*Ketika ditekan enter text box akan pindah ke text
box berikutnya.
Private Sub txtkdspl_KeyPress(KeyAscii As Integer)
If
KeyAscii = 13 Then Me.txtNmspl.SetFocus
End Sub
Private Sub txtNmspl_KeyPress(KeyAscii As Integer)
If
KeyAscii = 13 Then Me.txtalamat.SetFocus
End Sub
Private Sub txtalamat_KeyPress(KeyAscii As Integer)
If
KeyAscii = 13 Then Me.txtkota.SetFocus
End Sub
Private Sub txtkota_KeyPress(KeyAscii As Integer)
If
KeyAscii = 13 Then Me.txttelp.SetFocus
End Sub
*Supaya texttelp hanya bisa diisi angka
Private Sub txttelp_KeyPress(KeyAscii As Integer)
If
KeyAscii = 13 Then
Me.txtket.SetFocus
Else
If
IsNumeric(Chr$(KeyAscii)) = False Then KeyAscii = 0
End If
End Sub
