VB .Net - Membuat Tabel Pelanggan dan Barang Aplikasi Penjualan

Pada tahap ini akan kami lanjutkan Tutorial Step by Step membuat Aplikasi Penjualan dengan VB .net dengan database SQL Server. Ini dalah Tahap ke Tujuh dalam melanjutkan pembuatan Aplikasi Penjualan VB .Net.

Jika dilihat pada Form Menu Utama, kita akan membuat Form Master Admin, Pelanggan dan Barang, sedangkan yang sudah kita buat pada Database baru TBL_ADMIN. oleh karena itu kita akan membuat Tabel Pelanggan dan Tabel Barang terlebih dahulu pada Database SQL Server

Silahkan buka : SQL Server Management Studio pada komputer anda

Klik Connect
Buatlah Tabel pada DBJNMJUAL

TBL_PELANGGAN

TBL_BARANG

Jika sudah Klik Save, dan kita akan melanjutkan pada tahap selanjutnya

VB .Net - Membuat Form Pelanggan Aplikasi Penjualan

Kita lanjutkan kembali Tutorial VB .Net aplikasi Penjualan dengan database SQL Server. Ini adalah tahap ke 8 dalam membuat Aplikasi penjualan dengan Visual Basic .Net, jika anda baru bergabung di tutorial kali ini, alangkah baiknya anda mengikuti dari tahap pertama sampai tahap sebelumnya yaitu tahap ke 7.

Berikut langkah dalam membuat Form Pelanggan.
Buka Project VB .Net anda sebelumnya.

Pada gambar diatas, anda telah sukses membuat Form Master Admin, dimana data yang diinput, edit dan delete berfungsi untuk membuat account untuk login ke Aplikasi

Klik Project - Add Form

Buatlah nama form : FormMasterPelanggan.vb
Jika sudah Klik Add
Buatlah Design FormMasterPelanggan seperti gambar dibawah ini :

Pada FormMenuUtama, untuk memanggil FormMasterPelanggan adalah :

 Private Sub PelangganToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PelangganToolStripMenuItem.Click
        FormMasterPelanggan.ShowDialog()
    End Sub

Kemudian masukan koding dibawah ini pada FormMasterPelanggan :

 Imports System.Data.SqlClient
Public Class FormMasterPelanggan
    Sub Kosongkan()
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
    End Sub
    Sub TidakSiapIsi()
        TextBox1.Enabled = False
        TextBox2.Enabled = False
        TextBox3.Enabled = False
        TextBox4.Enabled = False
    End Sub
    Sub SiapIsi()
        TextBox1.Enabled = True
        TextBox2.Enabled = True
        TextBox3.Enabled = True
        TextBox4.Enabled = True
    End Sub
    Sub KondisiAwal()
        Button1.Text = "Input"
        Button2.Text = "Edit"
        Button3.Text = "Hapus"
        Button4.Text = "Tutup"
        Button1.Enabled = True
        Button2.Enabled = True
        Button3.Enabled = True
        Button4.Enabled = True
        Call TidakSiapIsi()
        Call Kosongkan()
        Call TampilGrid()
    End Sub
    Sub AturLebarGrid()
        DGV.Columns(0).Width = 85
        DGV.Columns(1).Width = 170
        DGV.Columns(2).Width = 180
        DGV.Columns(3).Width = 100
    End Sub
    Sub TampilGrid()
        Call Koneksi()
        Da = New SqlDataAdapter("select KodePelanggan as Kode,NamaPelanggan as Nama,AlamatPelanggan as Alamat,TelpPelanggan as Telepon from TBL_PELANGGAN ", Conn)
        Ds = New DataSet
        Da.Fill(Ds, "TBL_PELANGGAN")
        DGV.DataSource = Ds.Tables("TBL_PELANGGAN")
        DGV.ReadOnly = True
        DGV.AlternatingRowsDefaultCellStyle.BackColor = Color.Silver
        Call AturLebarGrid()
    End Sub
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Button1.Text = "Input" Then
            Call KodeOtomatis()
            Call SiapIsi()
            Button1.Text = "Simpan"
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Text = "Batal"
            TextBox1.Enabled = False
            TextBox2.Focus()
        Else
            If TextBox1.Text.Length < 6 Or TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Then
                MsgBox("Data belum lengkap, Pastikan Kode Pelanggan 6 Digit dan Semua form terisi")
                Exit Sub
            Else
                Call Koneksi()
                CMD = New sqlCommand("Select * from TBL_PELANGGAN  where kodePelanggan='" & TextBox1.Text & "'", CONN)
                RD = CMD.ExecuteReader
                RD.Read()
                If Not Rd.HasRows Then
                    Call Koneksi()
                    Dim simpan As String = "insert into TBL_PELANGGAN values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
                    Cmd = New SqlCommand(simpan, Conn)
                    Cmd.ExecuteNonQuery()

                Else
                    Call Koneksi()
                    Dim edit As String = "update TBL_PELANGGAN set namaPelanggan='" & TextBox2.Text & "',AlamatPelanggan='" & TextBox3.Text & "',TelpPelanggan='" & TextBox4.Text & "' where kodePelanggan='" & TextBox1.Text & "'"
                    Cmd = New SqlCommand(edit, Conn)
                    Cmd.ExecuteNonQuery()

                End If
                Call KondisiAwal()
                Call TampilGrid()
                Call Kosongkan()
            End If
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Button4.Text = "Tutup" Then
            Me.Close()
        Else
            Call KondisiAwal()
        End If
    End Sub

    Private Sub FormPelanggan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Koneksi()
        Call TampilGrid()
        Call KondisiAwal()
        Call Kosongkan()
    End Sub

    Private Sub TextBox1_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        TextBox1.MaxLength = 6
        If e.KeyChar = Chr(13) Then
            Call Koneksi()
            CMD = New sqlCommand("Select * from TBL_PELANGGAN  where kodePelanggan='" & TextBox1.Text & "'", CONN)
            RD = CMD.ExecuteReader
            RD.Read()
            If Not RD.HasRows Then
                MsgBox("Kode Pelanggan Tidak Ada, Silahkan coba lagi!")
                TextBox1.Focus()
            Else
                TextBox2.Text = RD.Item("namaPelanggan")
                TextBox3.Text = Rd.Item("AlamatPelanggan")
                TextBox4.Text = Rd.Item("TelpPelanggan")
                TextBox2.Focus()
                If Button2.Enabled = False Then
                    If MessageBox.Show("Yakin akan dihapus..?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
                        If TextBox1.Text = "ADM001" Then
                            MsgBox("ADM001 Tidak Boleh di Hapus")
                            Call KondisiAwal()
                        Else
                            Dim hapus As String = "delete * from TBL_PELANGGAN  where kodePelanggan='" & TextBox1.Text & "'"
                            Cmd = New SqlCommand(hapus, Conn)
                            Cmd.ExecuteNonQuery()
                            Call TampilGrid()
                            Call Kosongkan()
                            MsgBox("Data berhasil di Hapus", MsgBoxStyle.Information, "Information")
                            Call KondisiAwal()
                        End If
                    End If
                End If
            End If
        End If
    End Sub

    Private Sub TextBox2_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        TextBox2.MaxLength = 30
        If e.KeyChar = Chr(13) Then TextBox3.Focus()
    End Sub

    Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
        TextBox3.MaxLength = 50
        If e.KeyChar = Chr(13) Then TextBox4.Focus()
    End Sub
    Sub KodeOtomatis()
        Call Koneksi()
        Cmd = New SqlCommand("Select * from TBL_PELANGGAN  where KODEPelanggan in (select max(KODEPelanggan) from TBL_PELANGGAN )", Conn)
        Dim urutan As String
        Dim hitung As Long
        Rd = Cmd.ExecuteReader
        Rd.Read()
        If Not Rd.HasRows Then
            urutan = "PLG" + "001"
        Else
            hitung = Microsoft.VisualBasic.Right(Rd.GetString(0), 3) + 1
            urutan = "PLG" + Microsoft.VisualBasic.Right("000" & hitung, 3)
        End If
        TextBox1.Text = urutan
    End Sub
End Class

Silahkan anda Run Project Aplikasi VB .Net anda, silahkan ikuti terus tehap demi tahap dalam membuat Aplikasi Penjualan dengan SQL Server