pemasukan

Imports System.Data.OleDb
Public Class FPemasukan
    Sub TampilGrid()
        Try
            DA = New OleDbDataAdapter("select * from Pemasukan order by TglPemasukan 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 FPemasukan_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 Pemasukan where IdPemasukan='" & lblidkas.Text & "'", Conn)
        DR = CMD.ExecuteReader
        DR.Read()
        Try
            If Not DR.HasRows Then
                'Simpan Pemasukan
                Dim simpan As String = "insert into Pemasukan values ('" & lblidkas.Text & "','" & dtpPemasukan.Text & "','" & TxtKet.Text & "','" & txtJumlah.Text & "')"
                CMD = New OleDbCommand(simpan, Conn)
                CMD.ExecuteNonQuery()

                'Simpan Kas
                Dim simpankas As String = "insert into Kas values ('" & lblidkas.Text & "','" & dtpPemasukan.Text & "','" & TxtKet.Text & "','" & txtJumlah.Text & "',0,'" & txtJumlah.Text & "')"
                CMD = New OleDbCommand(simpankas, Conn)
                CMD.ExecuteNonQuery()
            Else
                'Update Pemasukan
                Dim editpemasukan As String = "update Pemasukan set [TglPemasukan]='" & dtpPemasukan.Text & "', [KetPemasukan]='" & TxtKet.Text & "', [JPemasukan]='" & txtJumlah.Text & "' where IdPemasukan='" & lblidkas.Text & "'"
                CMD = New OleDbCommand(editpemasukan, Conn)
                CMD.ExecuteNonQuery()

                'Update Kas
                Dim editkas As String = "update Kas set [TglKas]='" & dtpPemasukan.Text & "', [KetKas]='" & TxtKet.Text & "', [JPemasukan]='" & 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
        If MessageBox.Show("yakin akan dihapus..?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
            Dim hapus As String = "delete * from Pemasukan where IdPemasukan='" & lblidkas.Text & "'"
            CMD = New OleDbCommand(hapus, Conn)
            CMD.ExecuteNonQuery()
            Call Kosongkan()
        Else
            Call Kosongkan()
        End If
    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
            dtpPemasukan.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