Tutorial Dasar Membuat Daftar Buku untuk Pemula

Hai....disini kami memberikan tutorial baru tentunya setiap saat, berikut ini Tutorial Dasar membuat data Buku di Vb.NET. Yokkk...... simak penjelasannya dibawah.

    1.  Pertama bukalah vb.net kemudian buatlah file untuk menyimpan form dibawah.

    2. Kalian membuat desain didalam form1/frmMain (seperti gambar dibawah).

    3. Kemudian, klik Ctrl + Shift + A untuk membuat form atau modul. Disini kita membuat modul cari modul > klik lalu beri nama mdlMain > create.

    4. Setelah membuat modul kemudian kita mengimport framework berupa .dll ke dalam vb.net caranya buka project > add reference > browse (tutorial di bawah untuk mendownload jemberprogram.dll), setelah selesai klik OK.

nb : Jember Program | Download Aplikasi Kasir Toko & Konter HP

    5. Agar tidak ada isues found kita menuju project kemudian properties kemudian klik . dan setelah muncul seperti gambar dibawah kalian pilih add > cari atau bisa langsung cari di imported file cari framework bernama JemberProgram jika sudah centanglah kemudian save(Ctrl + S).

    6. Kembali ke no.1 jika sudah beri nama Control pada form :

Form1        : frmMain

Modul        : mdlMain

DataGridView : dgv

scroll kebawah pada properties di pojok kanan bawah kemudian pilih Teks editlah seperti dibawah.

Button1      : Tambah

Button2      : Edit

Button3      : Hapus

    7. Setelah semua selesai kita menuju Codingan yang seperti tertera pada script dibawah :

Klik frmMain untuk menload .

Public Class frmMain
    Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Call mdlMain.Load()
        dgv.DataSource = dtAnggota
        dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnMode.Fill

    End Sub

    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        'frmTambah.Show(Me)
        JpData.ShowAdd(dgv, Me, "Tambah Anggota")
    End Sub

    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
        'frmEdit.Show(Me)
        JpData.ShowEdit(dgv, Me, "Edit Anggota")
    End Sub

    Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        Call mdlMain.Save()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        JpData.Delete(dgv, "Nama_Anggota")
    End Sub
End CLass

Isilah mdlMain dengan Code dibawah ini.

Module mdlMain
    Public dtAnggota As DataTable

    Public Sub Load()

        If JpConfig.Config("dtAnggota") Is Nothing Then
            dtAnggota = New DataTable
            With dtAnggota
                .Columns.Add("id", GetType(Integer))
                .Columns.Add("Nama_Anggota", GetType(String))
                .Columns.Add("Jenis_Kelamin", GetType(String))
                .Columns.Add("Alamat", GetType(String))

                JpConfig.Config("dtAnggota") = dtAnggota
            End With

        Else
            dtAnggota = JpConfig.Config("dtAnggota")
        End If
    End Sub

    Public Sub Save()
        JpConfig.Config("dtAnggota") = dtAnggota
    End Sub
End Modul