pengeluaran

Imports System.Data.OleDb
Public Class FPengeluaran
    Sub TampilGrid()
        Try
            DA = New OleDbDataAdapter("select * from Pengeluaran order by TglPengeluaran desc", Conn)
            DS = New DataSet
            DA.Fill(DS)
            dgv.DataSource = DS.Tables(0)
            dgv.ReadOnly = True
            dgv.Columns(0).Visible = False
            dgv.Columns(1).HeaderText = "Tanggal"
            dgv.Columns(2).HeaderText = "Keterangan"
            dgv.Columns(3).HeaderText = "Jumlah"
            dgv.Columns(3).DefaultCellStyle.Format = "0,00"
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
    Sub Kosongkan()
        TxtKet.Clear()
        txtJumlah.Clear()
        Call TampilGrid()
        Call idkas()
    End Sub
    Sub idkas()
        Try
            CMD = New OleDbCommand("select IdKas from Kas order by IdKas desc", Conn)
            DR = CMD.ExecuteReader
            DR.Read()
            If Not DR.HasRows Then
                lblidkas.Text = "00001"
            Else
                lblidkas.Text = Format(Microsoft.VisualBasic.Right(DR.Item("IdKas"), 5) + 1, "00000")
            End If
        Catch ex As Exception

        End Try
    End Sub

    Private Sub FPengeluaran_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Call Koneksi()
        Call Kosongkan()
    End Sub

    Private Sub btnBatal_Click(sender As Object, e As EventArgs) Handles btnBatal.Click
        Call Kosongkan()
    End Sub

    Private Sub btnSimpan_Click(sender As Object, e As EventArgs) Handles btnSimpan.Click
        If TxtKet.Text = "" Or txtJumlah.Text = "" Then
            MsgBox("Data belum lengkap!")
            Exit Sub
        End If

        CMD = New OleDbCommand("select * from Pengeluaran where IdPengeluaran='" & lblidkas.Text & "'", Conn)
        DR = CMD.ExecuteReader
        DR.Read()
        Try
            If Not DR.HasRows Then
                'Simpan Pengeluaran
                Dim simpan As String = "insert into Pengeluaran values ('" & lblidkas.Text & "','" & dtpPengeluaran.Text & "','" & TxtKet.Text & "','" & txtJumlah.Text & "')"
                CMD = New OleDbCommand(simpan, Conn)
                CMD.ExecuteNonQuery()

                'Simpan Kas
                Dim simpankas As String = "insert into Kas values ('" & lblidkas.Text & "','" & dtpPengeluaran.Text & "','" & TxtKet.Text & "',0,'" & txtJumlah.Text & "','" & "-" & txtJumlah.Text & "')"
                CMD = New OleDbCommand(simpankas, Conn)
                CMD.ExecuteNonQuery()
            Else
                'Update Pengeluaran
                Dim editPengeluaran As String = "update Pengeluaran set [TglPengeluaran]='" & dtpPengeluaran.Text & "', [KetPengeluaran]='" & TxtKet.Text & "', [JPengeluaran]='" & txtJumlah.Text & "' where IdPengeluaran='" & lblidkas.Text & "'"
                CMD = New OleDbCommand(editPengeluaran, Conn)
                CMD.ExecuteNonQuery()

                'Update Kas
                Dim editkas As String = "update Kas set [TglKas]='" & dtpPengeluaran.Text & "', [KetKas]='" & TxtKet.Text & "', [JPengeluaran]='" & txtJumlah.Text & "', [Saldo]='" & txtJumlah.Text & "' where IdKas='" & lblidkas.Text & "'"
                CMD = New OleDbCommand(editkas, Conn)
                CMD.ExecuteNonQuery()
            End If
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
        Call Kosongkan()
    End Sub

    Private Sub btnHapus_Click(sender As Object, e As EventArgs) Handles btnHapus.Click
        Try
            If MessageBox.Show("yakin akan dihapus..?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
                Dim hapus As String = "delete * from Pengeluaran where IdPengeluaran='" & lblidkas.Text & "'"
                CMD = New OleDbCommand(hapus, Conn)
                CMD.ExecuteNonQuery()
                Call Kosongkan()
            Else
                Call Kosongkan()
            End If
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

    Private Sub dgv_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgv.CellMouseClick
        Try
            lblidkas.Text = dgv.Rows(e.RowIndex).Cells(0).Value
            dtpPengeluaran.Text = dgv.Rows(e.RowIndex).Cells(1).Value
            TxtKet.Text = dgv.Rows(e.RowIndex).Cells(2).Value
            txtJumlah.Text = dgv.Rows(e.RowIndex).Cells(3).Value
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
End Class