[Tutorial-3] Membuat Aplikasi dengan Visual Basic .NET 2008

Ok, sorry rada telat postingnya.. kemarin sempat ada proyek n juga beberapa hari kemarin lagi sakit.

Langsung aja, di tutorial ke-2 kemarin kita telah sedikit mengenal tentang LINQ dan juga telah membuat suatu form barang. Kali ini kita akan mencoba menambahkan kode-kode yang akan diproses oleh tiap tombol dalam form barang tersebut. Untuk kali ini validasi dalam setiap proses akan diabaikan terlebih dahulu, nanti pasti menyusul... ;)

Sebagai tambahan, lebih tepatnya "update", pada tiap tabel dalam database semua yang bertype nchar di ubah ke nvarchar.. tanya kenapa??

Sebelum dilanjutkan, ada baiknya semua kode-kode dalam form barang di hapus dahulu, kecuali, kode-kode di bawah ini:

Public Class frmBarang

 Private Sub frmBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 End Sub
End Class

1. Dekarasi beberapa variabel umum

Masukkan kode berikut pada bagian atas setelah Public Class frmBarang :

    Private db As New DataClasses1DataContext
    Private edit As Boolean

1.a. Sub Procedure buka

Digunakan untuk mengunci dan membuka TextBox dan ComboBox dalam frmBarang:

Private Sub buka(ByVal t As Boolean)
        Dim daftarTextBox = From myControl In Me.Controls _
                            Where TypeOf myControl Is TextBox _
                            Select myControl

        For Each myTeksBoks As TextBox In daftarTextBox
            If t Then
                myTeksBoks.Enabled = True
                Me.cmbKodeKategori.Enabled = True
            Else
                myTeksBoks.Enabled = False
                Me.cmbKodeKategori.Enabled = False
            End If
        Next
    End Sub

1.b. Sub Procedure isiCombo

Digunakan untuk mengisi daftar kategori untuk ComboBox pada frmBarang:

    Private Sub isiCombo()
        Me.cmbKodeKategori.ResetText()
        Dim cmbKate = From kategori In db.kategoris _
                     Select kategori.NmKategori

        For Each kate As String In cmbKate
            Me.cmbKodeKategori.Items.Add(kate)
        Next
    End Sub

1.c. Sub Procedure resData

Digunakan untuk me-refresh (mengisi) data dalam DataGridView1 dengan data yang baru (Kodenya sedikit berbeda dari tutorial 2 kemarin):

    Private Sub resData()
        Dim qBarang = From barang In db.barangs _
                      Join kategori In db.kategoris _
                      On kategori.KDKategori Equals barang.KDKategori _
                      Select Kode = barang.KDBarang, Nama = barang.NmBarang, _
                      Kategori = kategori.NmKategori, Jumlah = barang.Jumlah, Harga = barang.HargaJual

        Me.DataGridView1.DataSource = qBarang
    End Sub

1.d. Sub Procedure dgKlik

Digunakan untuk mengisi tiap TextBox dan ComboBox berdasarkan data yang ada dalam DataGridView1 saat setiap kali data dalam DataGridView1 dipilih.

    Private Sub dgKlik()
        Try
            Me.txtKodeBarang.Text = Me.DataGridView1.Item(0, Me.DataGridView1.CurrentRow.Index).Value
            Me.txtNamaBarang.Text = Me.DataGridView1.Item(1, Me.DataGridView1.CurrentRow.Index).Value
            Me.txtJumlah.Text = Me.DataGridView1.Item(3, Me.DataGridView1.CurrentRow.Index).Value
            Me.txtHarga.Text = Me.DataGridView1.Item(4, Me.DataGridView1.CurrentRow.Index).Value

            Dim dkate = From kategori In db.kategoris _
                        Where kategori.NmKategori Is Me.DataGridView1.Item(2, Me.DataGridView1.CurrentRow.Index).Value _
                        Select kategori.NmKategori
            Me.cmbKodeKategori.Text = dkate.Single

        Catch ex As Exception
            MessageBox.Show("Error: " & ex.Message)
        End Try
    End Sub

1.e. Sub Procedure resTeks

Digunakan untuk mengosongkan semua TextBox dan Combobox dalam frmBarang :

    Private Sub resTeks()
        isiCombo()
        Dim daftarTextBox = From myControl In Me.Controls _
                            Where TypeOf myControl Is TextBox _
                            Select myControl
        For Each myTeksBoks As TextBox In daftarTextBox
            myTeksBoks.Text = ""
        Next
    End Sub

1.f. Function katPerNama

Digunakan untuk mengambil kode Kategori barang berdasarkan nama kategorinya :

Private Function katPerNama(ByVal n As String) As Integer
        Dim kat As Integer = 0
        Dim kate = From kategori In db.kategoris _
                 Where kategori.NmKategori Is n _
                 Select kategori.KDKategori
        kat = kate.Single
        Return kat
    End Function

2. DataGridView1_Click

Pada designer view, double klik Control DataGridView1 > akan masuk ke dalam tampilan Code View. Pada bagian Method Name, pilih Click. Lihat Gambar :

DataGridView1_Method

Ketikkan kode berikut pada bagian DataGridView1_Click :

    Private Sub DataGridView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.Click
        dgKlik()
    End Sub

3. Sub Procedure Saat Tombol Edit Diklik

Double klik tombol edit dan masukkan kode berikut :

    Private Sub cmdEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEdit.Click
        Me.cmdBaru.Text = "Batal"
        Me.cmdEdit.Enabled = False
        Me.cmdHapus.Enabled = False
        Me.cmdSimpan.Enabled = True
        edit = True
        buka(True)
        Me.txtKodeBarang.Enabled = False
        Me.txtNamaBarang.Focus()
    End Sub

4. Sub Procedure Saat Tombol Baru Diklik

Double klik tombol baru dan masukkan kode berikut :

    Private Sub cmdBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBaru.Click
        If Me.cmdBaru.Text = "Baru" Then
            Me.cmdBaru.Text = "Batal"
            Me.resTeks()
            buka(True)
            Me.DataGridView1.Enabled = False
            Me.cmdSimpan.Enabled = True
            Me.cmdEdit.Enabled = False
            Me.cmdHapus.Enabled = False
            Me.cmdKeluar.Enabled = False
            Me.txtKodeBarang.Focus()
        Else
            Me.cmdBaru.Text = "Baru"
            buka(False)
            Me.DataGridView1.Enabled = True
            edit = False
            Me.cmdSimpan.Enabled = False
            Me.cmdEdit.Enabled = True
            Me.cmdHapus.Enabled = True
            Me.cmdKeluar.Enabled = True
            dgKlik()
        End If
    End Sub

5. Sub Procedure Saat Tombol Simpan Diklik

Double klik tombol simpan dan masukkan kode berikut :

    Private Sub cmdSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSimpan.Click
        'Validasi data inputan, akan dijelaskan nanti...

        If edit Then
            Dim updatebrg = (From barang In db.barangs _
                    Where barang.KDBarang = Me.txtKodeBarang.Text).ToList()(0)

            With updatebrg
                .NmBarang = Me.txtNamaBarang.Text
                .KDKategori = katPerNama(Me.cmbKodeKategori.Text)
                .Jumlah = Me.txtJumlah.Text
                .HargaJual = Me.txtHarga.Text
            End With

        Else
            Dim brg As New barang With { _
                    .KDBarang = Me.txtKodeBarang.Text, _
                    .NmBarang = Me.txtNamaBarang.Text, _
                    .KDKategori = katPerNama(Me.cmbKodeKategori.Text), _
                    .Jumlah = Me.txtJumlah.Text, _
                    .HargaJual = Me.txtHarga.Text}
        End If

        Try
            db.SubmitChanges()

        Catch ex As Exception
            MessageBox.Show("Error :" & ex.Message)
        End Try

        resData()
        dgKlik()
        buka(False)
        Me.cmdSimpan.Enabled = False
        Me.cmdBaru.Text = "Baru"
        Me.cmdEdit.Enabled = True
        Me.cmdKeluar.Enabled = True
        edit = False
        Me.cmdHapus.Enabled = True
        Me.DataGridView1.Enabled = True
    End Sub

6. Sub Procedure Saat Tombol Hapus Diklik

Double klik tombol hapus dan masukkan kode berikut :

    Private Sub cmdHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHapus.Click
        If Me.txtKodeBarang.Text = "" Then Exit Sub
        Dim rep As Integer = MessageBox.Show("Data tersebut akan dihapus?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If rep = MsgBoxResult.No Then Exit Sub

        Dim deleteBrg = (From barang In db.barangs _
                    Where barang.KDBarang = Me.txtKodeBarang.Text).ToList()(0)

        db.barangs.DeleteOnSubmit(deleteBrg)

        Try
            db.SubmitChanges()
        Catch ex As Exception
            MessageBox.Show("Error :" & ex.Message)
        End Try

        resData()
        dgKlik()

    End Sub

7. Sub Procedure Saat Tombol Keluar Diklik

Double klik tombol keluar dan masukkan kode berikut :

    Private Sub cmdKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKeluar.Click
        Me.Close()
    End Sub

Terakhir, tambahkan kode berikut pada bagian frmBarang_Load :

    Private Sub frmBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        resData()
        isiCombo()
        buka(False)
        Me.cmdSimpan.Enabled = False
 edit = False
    End Sub

Yups, dengan semua tombol telah memiliki kode masing-masing, coba jalankan program dengan mengklik tanda play atau menekan tombol F5 pada keyboard.

Pada bagian selanjutnya kita akan langsung mencoba membuat form untuk menampilkan data laporan dari data barang yang barusan dibuat..

Selamat bereksperimen semoga sukses... ;)

Kode Selengkapnya :

Public Class frmBarang
    Private db As New DataClasses1DataContext
    Private edit As Boolean 'penentuan apakah sedang dalam proses edit atau bukan

    Private Sub frmBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        resData() 'memanggil sub resData untuk mengisi data ke dalam DataGridView1
        isiCombo() 'mengisi ComboBox kategori
        buka(False) 'kunci semua textbox
        Me.cmdSimpan.Enabled = False 'matikan tombol simpan
        edit = False 'variabel edit di atur menjadi false
    End Sub
    Private Sub buka(ByVal t As Boolean) 'enable dan disable control TextBox dan ComboBox
        'Pilih semua control yang merupakan TextBox
        Dim daftarTextBox = From myControl In Me.Controls _
                            Where TypeOf myControl Is TextBox _
                            Select myControl
        'Looping setiap control TextBox
        For Each myTeksBoks As TextBox In daftarTextBox
            If t Then
                myTeksBoks.Enabled = True 'textbox aktif
                Me.cmbKodeKategori.Enabled = True 'combobox aktif
            Else
                myTeksBoks.Enabled = False
                Me.cmbKodeKategori.Enabled = False
            End If
        Next
    End Sub
    Private Sub isiCombo() 'Mengisi Combobox dengan daftar kategori dari tabel kategori
        Me.cmbKodeKategori.ResetText() 'reset Combo kategori
        'ambil semua nama kategori dari tabel kategori
        Dim cmbKate = From kategori In db.kategoris _
                     Select kategori.NmKategori
        'looping setiap hasil dari cmbkate dan tambahkan ke dalam combo kategori
        For Each kate As String In cmbKate
            Me.cmbKodeKategori.Items.Add(kate)
        Next
    End Sub
    Private Sub resData() 'mengisi ulang data ke dalam DataGridView1
        Dim qBarang = From barang In db.barangs _
                      Join kategori In db.kategoris _
                      On kategori.KDKategori Equals barang.KDKategori _
                      Select Kode = barang.KDBarang, Nama = barang.NmBarang, _
                      Kategori = kategori.NmKategori, Jumlah = barang.Jumlah, Harga = barang.HargaJual

        Me.DataGridView1.DataSource = qBarang
    End Sub
    Private Sub resTeks() 'mengosongkan semua combobox dan textbox
        isiCombo()
        Dim daftarTextBox = From myControl In Me.Controls _
                            Where TypeOf myControl Is TextBox _
                            Select myControl

        For Each myTeksBoks As TextBox In daftarTextBox
            myTeksBoks.Text = ""
        Next
    End Sub
    Private Sub dgKlik() 'sub procedure saat baris dalam DataGridView1 diklik
        Try
            Me.txtKodeBarang.Text = Me.DataGridView1.Item(0, Me.DataGridView1.CurrentRow.Index).Value
            Me.txtNamaBarang.Text = Me.DataGridView1.Item(1, Me.DataGridView1.CurrentRow.Index).Value
            Me.txtJumlah.Text = Me.DataGridView1.Item(3, Me.DataGridView1.CurrentRow.Index).Value
            Me.txtHarga.Text = Me.DataGridView1.Item(4, Me.DataGridView1.CurrentRow.Index).Value

            'isi combo kategori berdasarkan kategori tiap barang dari DataGridView1
            Dim dkate = From kategori In db.kategoris _
                        Where kategori.NmKategori Is Me.DataGridView1.Item(2, Me.DataGridView1.CurrentRow.Index).Value _
                        Select kategori.NmKategori
            Me.cmbKodeKategori.Text = dkate.Single

        Catch ex As Exception 'Jika terjadi error, ya know lah...
            MessageBox.Show("Error: " & ex.Message)
        End Try
    End Sub

    Private Function katPerNama(ByVal n As String) As Integer 'mengambil kode kategori berdasarkan nama kategori
        Dim kat As Integer = 0
        Dim kate = From kategori In db.kategoris _
                 Where kategori.NmKategori Is n _
                 Select kategori.KDKategori

        kat = kate.Single
        Return kat
    End Function
    Private Sub DataGridView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.Click
        dgKlik() 'memanggil sub procedure dgKlik saat DataGridView1 diklik.
    End Sub

    Private Sub cmdEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEdit.Click
        'saat tombol edit diklik
        Me.cmdBaru.Text = "Batal"
        Me.cmdEdit.Enabled = False
        Me.cmdHapus.Enabled = False
        Me.cmdSimpan.Enabled = True
        edit = True 'sedang dalam proses edit
        buka(True) 'buka semua control
        Me.txtKodeBarang.Enabled = False 'kunci txtKodeBarang
        Me.txtNamaBarang.Focus() 'Fokuskan cursor pada txtNamaBarang
    End Sub

    Private Sub cmdBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBaru.Click
        'Tombol baru diklik
        'lakukan pengeceka apakah sekarang tombol baru atau tombol batal
        If Me.cmdBaru.Text = "Baru" Then 'jika yang diklik tombol baru
            Me.cmdBaru.Text = "Batal" 'ubah text tombol baru menjadi batal
            Me.resTeks() 'memanggil sub procedure resTeks : mengosongkan semua teks
            buka(True) 'buka semua control
            Me.DataGridView1.Enabled = False 'non aktifkan DataGridView1 sehingga tidak bisa diklik 
            Me.cmdSimpan.Enabled = True
            Me.cmdEdit.Enabled = False
            Me.cmdHapus.Enabled = False
            Me.cmdKeluar.Enabled = False
            Me.txtKodeBarang.Focus() 'Fokuskan cursor pada txtKodeBarang
        Else 'jika yang diklik adalah tombol baru dengan teks Batal
            Me.cmdBaru.Text = "Baru" 'ubah teks tombol baru menjadi Baru
            buka(False) 'Kunci semua kontrol
            Me.DataGridView1.Enabled = True
            edit = False 'pastikan bukan dalam proses edit
            Me.cmdSimpan.Enabled = False
            Me.cmdEdit.Enabled = True
            Me.cmdHapus.Enabled = True
            Me.cmdKeluar.Enabled = True
            dgKlik()
        End If
    End Sub

    Private Sub cmdSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSimpan.Click
        'Validasi data inputan, belakangan akan dijelaskan...

        If edit Then 'jika dalam proses edit / tombol edit diklik
            Dim updatebrg = (From barang In db.barangs _
                    Where barang.KDBarang = Me.txtKodeBarang.Text).ToList()(0)

            With updatebrg
                .NmBarang = Me.txtNamaBarang.Text
                .KDKategori = katPerNama(Me.cmbKodeKategori.Text)
                .Jumlah = Me.txtJumlah.Text
                .HargaJual = Me.txtHarga.Text
            End With

        Else 'jika bukan proses edit / tombol baru diklik
            Dim brg As New barang With { _
                    .KDBarang = Me.txtKodeBarang.Text, _
                    .NmBarang = Me.txtNamaBarang.Text, _
                    .KDKategori = katPerNama(Me.cmbKodeKategori.Text), _
                    .Jumlah = Me.txtJumlah.Text, _
                    .HargaJual = Me.txtHarga.Text}
        End If

        Try
            db.SubmitChanges() 'simpan semua perubahan, baik itu proses update maupun insert

        Catch ex As Exception
            MessageBox.Show("Error :" & ex.Message)
        End Try

        resData()
        dgKlik()
        buka(False)
        Me.cmdSimpan.Enabled = False
        Me.cmdBaru.Text = "Baru"
        Me.cmdEdit.Enabled = True
        Me.cmdKeluar.Enabled = True
        edit = False
        Me.cmdHapus.Enabled = True
        Me.DataGridView1.Enabled = True
    End Sub

    Private Sub cmdHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHapus.Click
        'saat tombol hapus diklik
        If Me.txtKodeBarang.Text = "" Then Exit Sub 'jika kodebarang kosong, keluar dari sub procedure
        'mencoba memastikan apakah data akan benar2 dihapus?
        Dim rep As Integer = MessageBox.Show("Data tersebut akan dihapus?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If rep = MsgBoxResult.No Then Exit Sub 'jika hasilnya NO, data tidak akan dihapus

        Dim deleteBrg = (From barang In db.barangs _
                    Where barang.KDBarang = Me.txtKodeBarang.Text).ToList()(0)

        db.barangs.DeleteOnSubmit(deleteBrg)

        Try
            db.SubmitChanges() 'simpan semua perubahan ke dalam database
        Catch ex As Exception
            MessageBox.Show("Error :" & ex.Message)
        End Try

        resData()
        dgKlik()

    End Sub

    Private Sub cmdKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKeluar.Click
        Me.Close() 'tutup form
        'bisa juga menggunakan : Application.Exit()
    End Sub
End Class