Form Supplier dengan Data Environment

*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