Sabtu, 29 Juni 2013

Data Inventaris PT.POS Indonesia (Persero) Medan



Data Inventaris PT.POS Indonesia (Persero) Medan

1.Menu
Public Class Form1

    Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
        Data_Nama_Peralatan.Show()
    End Sub

    Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
        Data_Supplier.Show()
    End Sub

    Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
        Pemakaian.Show()
    End Sub

    Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem4.Click
        Pembelian.Show()
    End Sub

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

    Private Sub CetakRelasiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CetakRelasiToolStripMenuItem.Click
        cetak_relasi.MdiParent = Me
        cetak_relasi.Show()

    End Sub
End Class


2. Form Data Nama Barang


Imports MySql.Data.MySqlClient
Public Class Data_Nama_Peralatan
    Public db As New MySql.Data.MySqlClient.MySqlConnection
    Public sql As String
    Public cmd As MySqlCommand
    Public DS As DataSet
    Public rs As MySqlDataReader
    Sub openDB()
        sql = "server=localhost;uid=root;pwd;database=Inventaris"
        Try
            db.ConnectionString = sql
            db.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Sub Bersih()
        Kode.Text = ""
        Nama.Text = ""
        Harga.Text = ""
        Satuan.Text = ""
        Jumlah.Text = ""
        KelompokPeralatan.Text = ""
        Rubahbutton(True, False, False, False, False, True)
        Kode.Enabled = True
    End Sub
    Sub Rubahbutton(ByVal btn1 As Boolean, ByVal btn2 As Boolean, ByVal btn3 As Boolean, ByVal btn4 As Boolean, ByVal btn5 As Boolean, ByVal btn6 As Boolean)
        BtnTambah.Enabled = btn1
        BtnSimpan.Enabled = btn2
        BtnHapus.Enabled = btn3
        BtnBatal.Enabled = btn4
        BtnEdit.Enabled = btn5
        BtnClose.Enabled = btn6
    End Sub
    Sub buattable()
        LV.Columns.Add("Kode", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 180, HorizontalAlignment.Left)
        LV.Columns.Add("Harga", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Satuan", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Jumlah", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Rusak", 100, HorizontalAlignment.Left)
        LV.Columns.Add("KelompokPeralatan", 100, HorizontalAlignment.Left)
        LV.GridLines = True
        LV.FullRowSelect = True
        LV.View = View.Details
    End Sub
    Sub isitable()
        LV.Items.Clear()
        sql = "select*from data_nama"
        cmd = New MySqlCommand(sql, db)
        rs = cmd.ExecuteReader
        Try
            While rs.Read
                Dim lst As New ListViewItem
                lst.Text = rs("Kode_peralatan")
                lst.SubItems.Add(rs("Nama_peralatan"))
                lst.SubItems.Add(rs("Harga"))
                lst.SubItems.Add(rs("Satuan"))
                lst.SubItems.Add(rs("Jumlah_Tersedia"))
                lst.SubItems.Add(rs("Rusak"))
                lst.SubItems.Add(rs("Kelompokperalatan"))
                LV.Items.Add(lst)

            End While
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        rs.Close()
    End Sub
    Sub ProsesDB(ByVal log As Integer)
        Dim pesan As String = ""
        Select Case log
            Case 0
                sql = "Insert into data_nama (Kode_peralatan,Nama_peralatan,Harga,Satuan,Jumlah_tersedia,Rusak,KelompokPeralatan) " & _
                "values ('" & Kode.Text & _
                "','" & Nama.Text & _
                "','" & Harga.Text & _
                "','" & Satuan.Text & _
                "','" & Jumlah.Text & _
                "','" & Rusak.Text & _
                "','" & KelompokPeralatan.Text & "')"

                pesan = "Data Tersimpan"
            Case 1
                sql = "update data_nama set Nama_peralatan='" & Nama.Text & "', " & _
                "Harga='" & Harga.Text & "'," & _
                "Satuan='" & Satuan.Text & "'," & _
                "Jumlah_tersedia='" & Jumlah.Text & "'," & _
                "Rusak='" & Rusak.Text & "'," & _
                "KelompokPeralatan='" & KelompokPeralatan.Text & "'," & _
                 "where Kode_peralatan='" & Kode.Text & "'"
                pesan = "Data Terupdate"

            Case 2
                sql = "delete from data_nama where Kode_peralatan='" & Kode.Text & "'"
                pesan = "Data Dihapus"
        End Select
        Try
            cmd = New MySqlCommand(sql, db)
            cmd.ExecuteNonQuery()
            MsgBox(pesan, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Konfirmasi")
            Call Bersih()
            Call isitable()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Sub showDB()
        rs.Read()
        Kode.Text = rs("Kode_Peralatan")
        Nama.Text = rs("Nama_Peralatan")
        Harga.Text = rs("Harga")
        Satuan.Text = rs("Satuan")
        Jumlah.Text = rs("Jumlah_Tersedia")
        Rusak.Text = rs("Rusak")
        KelompokPeralatan.Text = rs("KelompokPeralatan")
        Rubahbutton(False, True, True, True, True, True)
        Kode.Enabled = False
    End Sub
    Private Sub Data_Nama_Peratan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call openDB()
        Call Bersih()
        Call buattable()
        Call isitable()
    End Sub

    Private Sub BtnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTambah.Click
        Call Bersih()
        Kode.Focus()
    End Sub

    Private Sub BtnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBatal.Click
        Call Bersih()
        Kode.Focus()
    End Sub

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

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        Dim x As String
        x = MsgBox("anda yakin akan menghapus", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "hapus")
        If x = vbYes Then
            Call ProsesDB(2)
        End If
    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
        Call ProsesDB(0)
    End Sub

    Private Sub BtnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEdit.Click
        Call ProsesDB(1)
    End Sub

    Private Sub Kode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Kode.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Dim x As String
            If Kode.Text = "" Then
                MsgBox("Isi Kode Terlebih Dahulu")
            Else
                sql = "select * from data_nama where kode_peralatan='" & Kode.Text & "'"
                cmd = New MySqlCommand(sql, db)
                rs = cmd.ExecuteReader
                Try
                    Call showDB()
                Catch ex As Exception
                    x = Kode.Text
                    Bersih()
                    Kode.Text = x
                    Rubahbutton(False, True, False, True, False, False)
                    BtnSimpan.Text = "Simpan"
                End Try
                Nama.Focus()
                rs.Close()
            End If
        End If
    End Sub
End Class

3. Data Supplier
Imports MySql.Data.MySqlClient
Public Class Data_Supplier
    Public db As New MySql.Data.MySqlClient.MySqlConnection
    Public sql As String
    Public cmd As MySqlCommand
    Public DS As DataSet
    Public rs As MySqlDataReader
    Sub openDB()
        sql = "server=localhost;uid=root;pwd;database=Inventaris"
        Try
            db.ConnectionString = sql
            db.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Sub Bersih()
        Kd_Supplier.Text = ""
        Nm_Perusahaan.Text = ""
        Nm_Supplier.Text = ""
        Alamat.Text = ""
        Jabatan.Text = ""
        Telepon.Text = ""
        Rubahbutton(True, False, False, False, False, True)
        Kd_Supplier.Enabled = True
    End Sub
    Sub Rubahbutton(ByVal btn1 As Boolean, ByVal btn2 As Boolean, ByVal btn3 As Boolean, ByVal btn4 As Boolean, ByVal btn5 As Boolean, ByVal btn6 As Boolean)
        BtnTambah.Enabled = btn1
        BtnSimpan.Enabled = btn2
        BtnHapus.Enabled = btn3
        BtnBatal.Enabled = btn4
        BtnEdit.Enabled = btn5
        BtnClose.Enabled = btn6
    End Sub
    Sub buattable()
        LV.Columns.Add("Kd_Supplier", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Perusahaan", 180, HorizontalAlignment.Left)
        LV.Columns.Add("Nama Supplier", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Alamat", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Jabatan", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Telepon", 100, HorizontalAlignment.Left)
        LV.GridLines = True
        LV.FullRowSelect = True
        LV.View = View.Details
    End Sub
    Sub isitable()
        LV.Items.Clear()
        sql = "select*from supplier2"
        cmd = New MySqlCommand(sql, db)
        rs = cmd.ExecuteReader
        Try
            While rs.Read
                Dim lst As New ListViewItem
                lst.Text = rs("Kd_supllier")
                lst.SubItems.Add(rs("Nm_perusahaan"))
                lst.SubItems.Add(rs("Nm_supplier"))
                lst.SubItems.Add(rs("Alamat"))
                lst.SubItems.Add(rs("Jabatan"))
                lst.SubItems.Add(rs("Telepon"))
                LV.Items.Add(lst)

            End While
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        rs.Close()
    End Sub
    Sub ProsesDB(ByVal log As Integer)
        Dim pesan As String = ""
        Select Case log
            Case 0
                sql = "Insert into supplier2 (Kd_supllier,Nm_perusahaan,Nm_supplier,Alamat,Jabatan,Telepon) " & _
                "values ('" & Kd_Supplier.Text & _
                "','" & Nm_Perusahaan.Text & _
                "','" & Nm_Supplier.Text & _
                "','" & Alamat.Text & _
                "','" & Jabatan.Text & _
                "','" & Telepon.Text & "')"

                pesan = "Data Tersimpan"
            Case 1
                sql = "update supplier2 set Nm_perusahaan ='" & Nm_Perusahaan.Text & "', " & _
                "Nm_supplier='" & Nm_Supplier.Text & "'," & _
                "Alamat='" & Alamat.Text & "'," & _
                "Jabatan='" & Jabatan.Text & "'," & _
                "Telepon='" & Telepon.Text & "' " & _
                 "where Kd_supllier='" & Kd_Supplier.Text & "'"
                pesan = "Data Terupdate"

            Case 2
                sql = "delete from supplier2 where Kd_supllier='" & Kd_Supplier.Text & "'"
                pesan = "Data Dihapus"
        End Select
        Try
            cmd = New MySqlCommand(sql, db)
            cmd.ExecuteNonQuery()
            MsgBox(pesan, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Konfirmasi")
            Call Bersih()
            Call isitable()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Sub showDB()
        rs.Read()
        Kd_Supplier.Text = rs("Kd_supllier")
        Nm_Perusahaan.Text = rs("Nm_perusahaan")
        Nm_Supplier.Text = rs("Nm_supplier")
        Alamat.Text = rs("Alamat")
        Jabatan.Text = rs("Jabatan")
        Telepon.Text = rs("Telepon")
        Rubahbutton(False, True, True, True, True, True)
        Kd_Supplier.Enabled = False
    End Sub

    Private Sub Data_Supplier_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call openDB()
        Call Bersih()
        Call buattable()
        Call isitable()
    End Sub
    Private Sub BtnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTambah.Click
        Call Bersih()
        Kd_Supplier.Focus()
    End Sub

    Private Sub BtnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBatal.Click
        Call Bersih()
        Kd_Supplier.Focus()
    End Sub

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

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        Dim x As String
        x = MsgBox("anda yakin akan menghapus", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "hapus")
        If x = vbYes Then
            Call ProsesDB(2)
        End If
    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
        Call ProsesDB(0)
    End Sub

    Private Sub BtnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEdit.Click
        Call ProsesDB(1)
    End Sub

    Private Sub Kd_Supplier_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Kd_Supplier.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Dim x As String
            If Kd_Supplier.Text = "" Then
                MsgBox("Isi Kode Terlebih Dahulu")
            Else
                sql = "select * from supplier2 where Kd_supllier='" & Kd_Supplier.Text & "'"
                cmd = New MySqlCommand(sql, db)
                rs = cmd.ExecuteReader
                Try
                    Call showDB()
                Catch ex As Exception
                    x = Kd_Supplier.Text
                    Bersih()
                    Kd_Supplier.Text = x
                    Rubahbutton(False, True, False, True, False, False)
                    BtnSimpan.Text = "Simpan"
                End Try
                Nm_Perusahaan.Focus()
                rs.Close()
            End If
        End If
    End Sub
End Class

4. Data Pemakaian Barang

Imports MySql.Data.MySqlClient
Public Class Pemakaian
    Public db As New MySql.Data.MySqlClient.MySqlConnection
    Public sql As String
    Public cmd As MySqlCommand
    Public DS As DataSet
    Public rs As MySqlDataReader
    Sub openDB()
        sql = "server=localhost;uid=root;pwd;database=Inventaris"
        Try
            db.ConnectionString = sql
            db.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Sub Bersih()
        No_Pakai.Text = ""
        NamaBagian.Text = ""
        NamaPimpinan.Text = ""
        Kode.Text = ""
        Nama.Text = ""
        KelompokPeralatan.Text = ""
        Satuan.Text = ""
        Jumlah.Text = ""
        Rubahbutton(True, False, False, False, False, True)
        No_Pakai.Enabled = True
    End Sub
    Sub Rubahbutton(ByVal btn1 As Boolean, ByVal btn2 As Boolean, ByVal btn3 As Boolean, ByVal btn4 As Boolean, ByVal btn5 As Boolean, ByVal btn6 As Boolean)
        BtnSimpan.Enabled = btn1
        BtnHapus.Enabled = btn2
        BtnBatal.Enabled = btn3
        BtnEdit.Enabled = btn4
        BtnClose.Enabled = btn5
    End Sub
    Sub buattable()
        LV.Columns.Add("No_Pakai", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nm_Bagian", 180, HorizontalAlignment.Left)
        LV.Columns.Add("Nm_Pimpinan", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Kode", 100, HorizontalAlignment.Left)
        LV.Columns.Add("NamaBarang", 100, HorizontalAlignment.Left)
        LV.Columns.Add("NamaPeralatan", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Satuan", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Jumlah", 100, HorizontalAlignment.Left)
        LV.GridLines = True
        LV.FullRowSelect = True
        LV.View = View.Details
    End Sub

    Sub isitable()
        LV.Items.Clear()
        sql = "select * from pemakaian"
        cmd = New MySqlCommand(sql, db)
        rs = cmd.ExecuteReader
        Try
            While rs.Read
                Dim lst As New ListViewItem
                lst.Text = rs("No_Pakai")
                lst.SubItems.Add(rs("Nm_Bagian"))
                lst.SubItems.Add(rs("Nm_Pimpinan"))
                lst.SubItems.Add(rs("Kode"))
                lst.SubItems.Add(rs("Nama"))
                lst.SubItems.Add(rs("NamaPeralatan"))
                lst.SubItems.Add(rs("Satuan"))
                lst.SubItems.Add(rs("Jumlah"))
                LV.Items.Add(lst)

            End While
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        rs.Close()
    End Sub
    Sub ProsesDB(ByVal log As Integer)
        Dim pesan As String = ""
        Select Case log
            Case 0
                sql = "Insert into pemakaian (No_Pakai,Nm_Bagian,Nm_Pimpinan,Kode,Nama,NamaPeralatan,Satuan,Jumlah) " & _
                "values ('" & No_Pakai.Text & _
                "','" & NamaBagian.Text & _
                "','" & NamaPimpinan.Text & _
                "','" & Kode.Text & _
                "','" & Nama.Text & _
                "','" & KelompokPeralatan.Text & _
                  "','" & Satuan.Text & _
                "','" & Jumlah.Text & "')"

                pesan = "Data Tersimpan"
            Case 1
                sql = "update pemakaian set Nm_Bagian='" & NamaBagian.Text & "', " & _
                "Nm_Pimpinan='" & NamaPimpinan.Text & "'," & _
                "Kode ='" & Kode.Text & "'," & _
                "Nama ='" & Nama.Text & "'," & _
                "NamaPeralatan ='" & KelompokPeralatan.Text & "'," & _
                "Satuan ='" & Satuan.Text & "'," & _
                "Jumlah ='" & Jumlah.Text & "'," & _
                 "where No_Pakai='" & No_Pakai.Text & "'"
                pesan = "Data Terupdate"

            Case 2
                sql = "delete from pemakaian where No_Pakai='" & No_Pakai.Text & "'"
                pesan = "Data Dihapus"
        End Select
        Try
            cmd = New MySqlCommand(sql, db)
            cmd.ExecuteNonQuery()
            MsgBox(pesan, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Konfirmasi")
            Call Bersih()
            Call isitable()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Sub showDB()
        rs.Read()
        No_Pakai.Text = rs("No_Pakai")
        NamaBagian.Text = rs("Nm_Bagian")
        NamaPimpinan.Text = rs("Nm_Pimpinan")
        Kode.Text = rs("Kode")
        Nama.Text = rs("Nama")
        KelompokPeralatan.Text = rs("NamaPeralatan")
        Satuan.Text = rs("Satuan")
        Jumlah.Text = rs("Jumlah")
        TotalPemakaian.Text = rs("TotalPemakaian")
        Rubahbutton(False, True, True, True, False, True)
        Kode.Enabled = False
    End Sub

    Private Sub Pemakaian_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call openDB()
        Call Bersih()
        Call buattable()
        Call isitable()
    End Sub

    Private Sub BtnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBatal.Click
        Call Bersih()
        Kode.Focus()
    End Sub

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

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        Dim x As String
        x = MsgBox("anda yakin akan menghapus", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "hapus")
        If x = vbYes Then
            Call ProsesDB(2)
        End If
    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
        Call ProsesDB(0)
    End Sub

    Private Sub BtnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEdit.Click
        Call ProsesDB(1)
    End Sub

    Private Sub No_Pakai_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles No_Pakai.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Dim x As String
            If No_Pakai.Text = "" Then
                MsgBox("Isi No_Pakai Terlebih Dahulu")
            Else
                sql = "select * from pemakaian where No_Pakai='" & No_Pakai.Text & "'"
                cmd = New MySqlCommand(sql, db)
                rs = cmd.ExecuteReader
                Try
                    Call showDB()
                Catch ex As Exception
                    x = No_Pakai.Text
                    Bersih()
                    No_Pakai.Text = x
                    Rubahbutton(True, False, True, False, False, False)
                    BtnSimpan.Text = "Simpan"
                End Try
                NamaBagian.Focus()
                rs.Close()
            End If
        End If
    End Sub
End Class




5.Data Pembelian Barang


Imports MySql.Data.MySqlClient
Public Class Pembelian
    Public db As New MySql.Data.MySqlClient.MySqlConnection
    Public sql As String
    Public cmd As MySqlCommand
    Public DS As DataSet
    Public rs As MySqlDataReader
    Sub openDB()
        sql = "server=localhost;uid=root;pwd;database=Inventaris"
        Try
            db.ConnectionString = sql
            db.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Sub Bersih()
        Kd_Supplier.Text = ""
        Nm_Perusahaan.Text = ""
        Nm_Supplier.Text = ""
        Kode.Text = ""
        Nama.Text = ""
        KelompokPeralatan.Text = ""
        Satuan.Text = ""
        Jumlah.Text = ""
        Harga.Text = ""
        Rubahbutton(True, False, False, False, False, True)
        Kd_Supplier.Enabled = True
    End Sub
    Sub Rubahbutton(ByVal btn1 As Boolean, ByVal btn2 As Boolean, ByVal btn3 As Boolean, ByVal btn4 As Boolean, ByVal btn5 As Boolean, ByVal btn6 As Boolean)
        BtnSimpan.Enabled = btn1
        BtnHapus.Enabled = btn2
        BtnBatal.Enabled = btn3
        BtnEdit.Enabled = btn4
        BtnClose.Enabled = btn5
    End Sub

    Sub buattable()
        LV.Columns.Add("Kd_Supplier", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Perusahaan", 180, HorizontalAlignment.Left)
        LV.Columns.Add("Nama Supplier", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Kode", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)
        LV.Columns.Add("KelompokPeralatan", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Satuan", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Jumlah", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Harga", 100, HorizontalAlignment.Left)
        LV.GridLines = True
        LV.FullRowSelect = True
        LV.View = View.Details
    End Sub
    Sub isitable()
        LV.Items.Clear()
        sql = "select * from pembelian"
        cmd = New MySqlCommand(sql, db)
        rs = cmd.ExecuteReader
        Try
            While rs.Read
                Dim lst As New ListViewItem
                lst.Text = rs("Kd_Supplier")
                lst.SubItems.Add(rs("Nm_Perusahaan"))
                lst.SubItems.Add(rs("Nm_Supplier"))
                lst.SubItems.Add(rs("Kode"))
                lst.SubItems.Add(rs("Nama"))
                lst.SubItems.Add(rs("KelompokPeralatan"))
                lst.SubItems.Add(rs("Satuan"))
                lst.SubItems.Add(rs("Jumlah"))
                lst.SubItems.Add(rs("Harga"))
                LV.Items.Add(lst)

            End While
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        rs.Close()
    End Sub
    Sub ProsesDB(ByVal log As Integer)
        Dim pesan As String = ""
        Select Case log
            Case 0
                sql = "Insert into Pembelian (Kd_Supplier,Nm_Perusahaan,Nm_Supplier,Kode,Nama,KelompokPeralatan,Satuan,Jumlah,Harga) " & _
                "values ('" & Kd_Supplier.Text & _
                "','" & Nm_Perusahaan.Text & _
                "','" & Nm_Supplier.Text & _
                "','" & Kode.Text & _
                "','" & Nama.Text & _
                "','" & KelompokPeralatan.Text & _
                "','" & Satuan.Text & _
                "','" & Jumlah.Text & _
                "','" & Harga.Text & "')"

                pesan = "Data Tersimpan"
            Case 1
                sql = "update pembelian set Nm_Perusahaan='" & Nm_Perusahaan.Text & "', " & _
                "Nm_Supplier='" & Nm_Supplier.Text & "'," & _
                "Kode ='" & Kode.Text & "'," & _
                "Nama ='" & Nama.Text & "'," & _
                " KelompokPeralatan='" & KelompokPeralatan.Text & "'," & _
                " Satuan='" & Satuan.Text & "'," & _
                " Jumlah='" & Jumlah.Text & "'," & _
                " Harga='" & Harga.Text & "'," & _
                 "where Kd_Supplier='" & Kd_Supplier.Text & "'"
                pesan = "Data Terupdate"

            Case 2
                sql = "delete from pembelian where Kd_Supplier='" & Kd_Supplier.Text & "'"
                pesan = "Data Dihapus"
        End Select
        Try
            cmd = New MySqlCommand(sql, db)
            cmd.ExecuteNonQuery()
            MsgBox(pesan, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Konfirmasi")
            Call Bersih()
            Call isitable()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Sub showDB()
        rs.Read()
        Kd_Supplier.Text = rs("Kd_Supplier")
        Nm_Perusahaan.Text = rs("Nm_Perusahaan")
        Nm_Supplier.Text = rs("Nm_Supplier ")
        Kode.Text = rs("Kode")
        Nama.Text = rs("Nama")
        KelompokPeralatan.Text = rs("KelompokPeralatan")
        Satuan.Text = rs("Satuan")
        Jumlah.Text = rs("Jumlah")
        Harga.Text = rs("Harga")
        Rubahbutton(False, True, True, True, True, True)
        Kd_Supplier.Enabled = False
    End Sub


    Private Sub Pembelian_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call openDB()
        Call Bersih()
        Call buattable()
        Call isitable()
    End Sub

    Private Sub BtnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBatal.Click
        Call Bersih()
        Kd_Supplier.Focus()
    End Sub

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

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        Dim x As String
        x = MsgBox("Anda Yakin Akan Menghapus?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Hapus")
        If x = vbYes Then
            Call ProsesDB(2)
        End If
    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
        Call ProsesDB(0)
    End Sub

    Private Sub BtnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEdit.Click
        Call ProsesDB(1)
    End Sub

    Private Sub Kd_Supplier_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Kd_Supplier.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Dim x As String
            If Kd_Supplier.Text = "" Then
                MsgBox("isi Kd_Supplier terlebih dahulu")
            Else
                sql = "select * from pembelian where Kd_Supplier='" & Kd_Supplier.Text & "'"
                cmd = New MySqlCommand(sql, db)
                rs = cmd.ExecuteReader
                Try
                    Call showDB()
                Catch ex As Exception
                    x = Kd_Supplier.Text
                    Bersih()
                    Kd_Supplier.Text = x
                    Rubahbutton(True, False, True, False, False, False)
                    BtnSimpan.Text = "Simpan"
                End Try
                Nm_Perusahaan.Focus()
                rs.Close()
            End If
        End If
    End Sub
End Class


6. Laporan



7. Database