Imports MySql.Data.MySqlClient
Imports System.Windows.Forms.DataVisualization.Charting
Public Class frm_beranda
    Private Sub frm_beranda_Activated(sender As Object, e As EventArgs) Handles Me.Activated
        ' Call conn()
        Total_Transaksi()
        TransaksiRp()
        Total_Item()
        Total_Supplier()
        Total_Customer()
        Total_Limit()
        ReturRp()
        GRAFIK_Transaksi(Chart1)
    End Sub
    Private Sub frm_beranda_Load(sender As Object, e As EventArgs) Handles Me.Load
        lblNama.Text = nama_akses
        lblakses.Text = ID_User


        getTahun()
    End Sub


    Private Sub PRODUKToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PRODUKToolStripMenuItem.Click
        frm_entry_produk.ShowDialog()

    End Sub

    Private Sub KATEGORIToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KATEGORIToolStripMenuItem.Click
        frm_kategori.ShowDialog()

    End Sub

    Private Sub SATUANToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SATUANToolStripMenuItem.Click
        frm_satuan.ShowDialog()

    End Sub

    Private Sub SUPPLIERToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SUPPLIERToolStripMenuItem.Click
        frm_supplier.ShowDialog()

    End Sub

    Private Sub CUSTOMERToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CUSTOMERToolStripMenuItem.Click
        frm_Pelanggan.ShowDialog()

    End Sub
    Private Sub BARANGMASUKToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BARANGMASUKToolStripMenuItem.Click
        frm_product_in.ShowDialog()

    End Sub

    Private Sub KELUARToolStripMenuItem_Click(sender As Object, e As EventArgs)
        frm_login.Show()
        Me.Close()
    End Sub

    Private Sub LOGINToolStripMenuItem_Click(sender As Object, e As EventArgs)
        frm_login.ShowDialog()

    End Sub

    Private Sub TRANSAKSIPENJUALANToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TRANSAKSIPENJUALANToolStripMenuItem.Click
        frm_transaksiPenjualan.ShowDialog()
    End Sub

    Private Sub DAFTARPENJUALANToolStripMenuItem_Click(sender As Object, e As EventArgs)
        'view_penjualan.ShowDialog()

    End Sub
    Sub getTahun()
        Try
            SQL_QUERY = "SELECT DISTINCT YEAR (tgl_transaksi) AS tahun FROM tbl_penjualan GROUP BY tgl_transaksi ASC"
            CMD = New MySqlCommand(SQL_QUERY, connect)
            DR = CMD.ExecuteReader()
            While DR.Read()
                optTahun.Items.Add(DR("tahun"))
            End While
        Catch ex As Exception
            MessageBox.Show("Koneksi Gagal !!!, karena " & ex.Message)
            Exit Sub
            DR.Close()
        End Try

    End Sub
    Sub Total_Transaksi()
        Try
            SQL_QUERY = "SELECT COUNT(*) AS total_tran FROM tbl_penjualan WHERE tgl_transaksi=CURDATE() "
            CMD = New MySqlCommand(SQL_QUERY, connect)
            DR = CMD.ExecuteReader
            DR.Read()
            If DR.HasRows Then
                txtjumlahTran.Text = DR.Item("total_tran")

            End If
            DR.Close()
        Catch ex As Exception
            Exit Sub
        End Try


    End Sub
    Sub TransaksiRp()
        Try
            SQL_QUERY = "SELECT SUM(total) AS total FROM tbl_penjualan WHERE tgl_transaksi=CURDATE() "
            CMD = New MySqlCommand(SQL_QUERY, connect)
            DR = CMD.ExecuteReader
            DR.Read()
            If DR.HasRows Then
                txttotalTran.Text = DR.Item("total")

            End If
            DR.Close()
        Catch ex As Exception
            Exit Sub
        End Try


    End Sub
    Sub ReturRp()
        Try
            SQL_QUERY = "SELECT SUM(total_retur) AS total_retur FROM tbl_retur WHERE tgl_retur=CURDATE() "
            CMD = New MySqlCommand(SQL_QUERY, connect)
            DR = CMD.ExecuteReader
            DR.Read()
            If DR.HasRows Then
                txtTotalRetur.Text = DR.Item("total_retur")

            End If
            DR.Close()
        Catch ex As Exception
            Exit Sub
        End Try


    End Sub
    Sub Total_Item()
        Try
            SQL_QUERY = "SELECT COUNT(*) AS jumlah FROM tbl_barang "
            CMD = New MySqlCommand(SQL_QUERY, connect)
            DR = CMD.ExecuteReader
            DR.Read()
            If DR.HasRows Then
                txtsumItem.Text = DR.Item("jumlah")

            End If
            DR.Close()
        Catch ex As Exception
            Exit Sub
        End Try


    End Sub
    Sub Total_Supplier()
        Try
            SQL_QUERY = "SELECT COUNT(*) AS jumlah FROM tbl_supplier "
            CMD = New MySqlCommand(SQL_QUERY, connect)
            DR = CMD.ExecuteReader
            DR.Read()
            If DR.HasRows Then
                txtsumSupplier.Text = DR.Item("jumlah")

            End If
            DR.Close()
        Catch ex As Exception
            Exit Sub
        End Try


    End Sub
    Sub Total_Customer()
        Try
            SQL_QUERY = "SELECT COUNT(*) AS jumlah FROM tbl_pelanggan "
            CMD = New MySqlCommand(SQL_QUERY, connect)
            DR = CMD.ExecuteReader
            DR.Read()
            If DR.HasRows Then
                txtsumCustomer.Text = DR.Item("jumlah")

            End If
            DR.Close()
        Catch ex As Exception
            Exit Sub
        End Try


    End Sub
    Sub Total_Limit()
        Try
            SQL_QUERY = "SELECT COUNT(*) AS stok_barang FROM tbl_stok WHERE STATUS='1' AND stok_barang <=20 "
            CMD = New MySqlCommand(SQL_QUERY, connect)
            DR = CMD.ExecuteReader
            DR.Read()
            If DR.HasRows Then
                txtlimit.Text = DR.Item("stok_barang")

            End If
            DR.Close()
        Catch ex As Exception
            Exit Sub
        End Try


    End Sub


    Private Sub CetakStruToolStripMenuItem_Click(sender As Object, e As EventArgs)
        'frm_report_struk.ShowDialog()

    End Sub

    Private Sub PROFILETOKOToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PROFILETOKOToolStripMenuItem.Click
        frm_company.ShowDialog()
    End Sub

    Private Sub KELOLAAKSESToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KELOLAAKSESToolStripMenuItem.Click
        frm_akses.ShowDialog()
    End Sub

    Private Sub PENJUALANToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PENJUALANToolStripMenuItem.Click
        'frm_report_penjualan.ShowDialog()
        view_transakasiPenjualan.ShowDialog()
    End Sub

    Private Sub STRUKToolStripMenuItem_Click(sender As Object, e As EventArgs)
        'frm_report_struk.ShowDialog()

    End Sub

    Private Sub PRINTERToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PRINTERToolStripMenuItem.Click
        frm_printer.ShowDialog()

    End Sub

    Private Sub KELUARToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles KELUARToolStripMenuItem1.Click
        frm_login.Show()
        Me.Close()

    End Sub

    Private Sub IMPORTBARANGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IMPORTBARANGToolStripMenuItem.Click
        frm_import.ShowDialog()

    End Sub

    Private Sub HAKAKSESToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HAKAKSESToolStripMenuItem.Click
        frm_akses.ShowDialog()

    End Sub

    Private Sub BARANGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BARANGToolStripMenuItem.Click
        'frm_cetak_barang.ShowDialog()
        frm_entry_produk.ShowDialog()



    End Sub

    Private Sub STOKToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles STOKToolStripMenuItem.Click
        ' frm_cetakStok.ShowDialog()
        frm_stok.ShowDialog()
    End Sub

    Private Sub txttotalTran_TextChanged(sender As Object, e As EventArgs) Handles txttotalTran.TextChanged
        formatUang(txttotalTran)
    End Sub

    Private Sub txtTotalRetur_TextChanged(sender As Object, e As EventArgs) Handles txtTotalRetur.TextChanged
        formatUang(txtTotalRetur)
    End Sub

    Private Sub detailSupplier_Click(sender As Object, e As EventArgs) Handles detailSupplier.Click
        frm_supplier.ShowDialog()
    End Sub

    Private Sub detailCustomer_Click(sender As Object, e As EventArgs) Handles detailCustomer.Click
        frm_Pelanggan.ShowDialog()
    End Sub

    Private Sub detailItem_Click(sender As Object, e As EventArgs) Handles detailItem.Click
        frm_entry_produk.ShowDialog()
    End Sub

    Private Sub cmdtransaksi_Click(sender As Object, e As EventArgs) Handles cmdtransaksi.Click
        view_transakasiPenjualan.ShowDialog()
    End Sub

    Private Sub EXPORTPENUALANToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EXPORTPENUALANToolStripMenuItem.Click
        export_penjualanMonth.ShowDialog()

    End Sub

    Private Sub PENJUALANToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles PENJUALANToolStripMenuItem1.Click
        frm_cetak_penjualan.ShowDialog()
    End Sub

    Private Sub STOKToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles STOKToolStripMenuItem1.Click
        frm_cetak_barang.ShowDialog()
    End Sub
    Sub GRAFIK_Transaksi(ByVal chart1 As Chart)

        Try
            SQL_QUERY = "SELECT SUM(total) AS total, DATE_FORMAT(tgl_transaksi,'%b') AS bulan  FROM tbl_penjualan
                            WHERE YEAR(tgl_transaksi)='2019'
                            GROUP BY MONTH(tgl_transaksi) "
            CMD = New MySqlCommand(SQL_QUERY, connect)
            DA = New MySqlDataAdapter(CMD)
            TABLE = New DataTable
            DA.Fill(TABLE)
            chart1.Series("Month").XValueMember = "Bulan"
            chart1.Series("Month").YValueMembers = "Total"
            chart1.DataSource = TABLE

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub RETURPENJUALANToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RETURPENJUALANToolStripMenuItem.Click
        frm_returnPenjualan.ShowDialog()

    End Sub

    Private Sub detailLimit_Click(sender As Object, e As EventArgs) Handles detailLimit.Click
        frm_stok.ShowDialog()

    End Sub

    Private Sub optTahun_SelectedIndexChanged(sender As Object, e As EventArgs)
        TextBox1.Text = optTahun.Text
    End Sub



    Private Sub detailExport_Click(sender As Object, e As EventArgs) Handles detailExport.Click
        export_penjualanMonth.ShowDialog()

    End Sub

    Private Sub cmdLoad_Click(sender As Object, e As EventArgs) Handles cmdLoad.Click
        Call GRAFIK_Transaksi(Chart1)
    End Sub
End Class