Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports System.Data.OleDb
- Public Class Penjualan2
- Sub HitungBarang()
- Dim Hitung As Integer = 0
- For Baris As Integer = 0 To DGV.RowCount - 1
- Hitung = Hitung + DGV.Rows(Baris).Cells(3).Value
- Next
- LBLTotalBarang.Text = Hitung
- End Sub
- Sub HitungHarga()
- Dim Hitung As Integer = 0
- For Baris As Integer = 0 To DGV.RowCount - 1
- Hitung = Hitung + DGV.Rows(Baris).Cells(4).Value
- Next
- LBLTotalHarga.Text = Hitung
- End Sub
- Sub Bersihkan()
- ComboBox1.Text = ""
- LBLNamaCustomer.Text = ""
- LBLTotalBarang.Text = 0
- LBLTotalHarga.Text = 0
- TXTDibayar.Text = 0
- LBLKembali.Text = 0
- DGV.Rows.Clear()
- ComboBox1.Focus()
- End Sub
- Sub FakturOtomatis()
- cmd = New OleDbCommand("Select Faktur from tbl_penjualan order by Faktur desc", conn)
- dr = cmd.ExecuteReader
- dr.Read()
- If Not dr.HasRows Then
- LBLFaktur.Text = Format(Today, "yyMMdd") + "0001"
- Else
- If Microsoft.VisualBasic.Left(dr.Item("Faktur"), 6) = Format(Today, "yyMMdd") Then
- LBLFaktur.Text = dr.Item("Faktur") + 1
- Else
- LBLFaktur.Text = Format(Today, "yyMMdd") + "0001"
- End If
- End If
- End Sub
- Private Sub Penjualan2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- Call Koneksi()
- Call FakturOtomatis()
- LBLTanggal.Text = Format(Today, "dd-MMM-yyyy")
- Call Bersihkan()
- cmd = New OleDbCommand("Select Kode_Customer from tbl_customer", conn)
- dr = cmd.ExecuteReader
- Do While dr.Read
- ComboBox1.Items.Add(dr.Item("Kode_Customer"))
- Loop
- End Sub
- Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
- cmd = New OleDbCommand("Select * from tbl_customer where Kode_Customer='" & ComboBox1.Text & "'", conn)
- dr = cmd.ExecuteReader
- dr.Read()
- If dr.HasRows Then
- LBLNamaCustomer.Text = dr.Item("Nama_Customer")
- End If
- End Sub
- Private Sub BTNTutup_Click(sender As Object, e As EventArgs) Handles BTNTutup.Click
- Me.Close()
- End Sub
- Private Sub BTNBatal_Click(sender As Object, e As EventArgs) Handles BTNBatal.Click
- Call Bersihkan()
- End Sub
- Private Sub DGV_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles DGV.CellEndEdit
- If e.ColumnIndex = 0 Then
- For BarisAtas As Integer = 0 To DGV.RowCount - 1
- For BarisBawah As Integer = BarisAtas + 1 To DGV.RowCount - 1
- If DGV.Rows(BarisBawah).Cells(0).Value = DGV.Rows(BarisAtas).Cells(0).Value Then
- 'MsgBox("Kode Ini Sudah Dientri")
- DGV.Rows(BarisAtas).Cells(3).Value = DGV.Rows(BarisAtas).Cells(3).Value + 1
- DGV.Rows(BarisAtas).Cells(4).Value = DGV.Rows(BarisAtas).Cells(2).Value * DGV.Rows(BarisAtas).Cells(3).Value
- Call HitungBarang()
- Call HitungHarga()
- SendKeys.Send("{UP}")
- DGV.Rows(BarisBawah).Cells(0).Value = ""
- Exit Sub
- End If
- Next
- Next
- cmd = New OleDbCommand("Select * from tbl_barang where Kode_Barang='" & DGV.Rows(e.RowIndex).Cells(0).Value & "'", conn)
- dr = cmd.ExecuteReader
- dr.Read()
- If dr.HasRows Then
- DGV.Rows(e.RowIndex).Cells(1).Value = dr.Item("Nama_Barang")
- DGV.Rows(e.RowIndex).Cells(2).Value = dr.Item("Harga_Jual")
- DGV.Rows(e.RowIndex).Cells(3).Value = 1
- DGV.Rows(e.RowIndex).Cells(4).Value = DGV.Rows(e.RowIndex).Cells(2).Value * DGV.Rows(e.RowIndex).Cells(3).Value
- Else
- MsgBox("Kode Tidak Terdaftar")
- SendKeys.Send("{down}")
- DGV.Rows(e.RowIndex).Cells(0).Value = ""
- DGV.Rows.Remove(DGV.CurrentRow)
- End If
- End If
- If e.ColumnIndex = 3 Then
- Try
- cmd = New OleDbCommand("Select * from tbl_barang where Kode_Barang='" & DGV.Rows(e.RowIndex).Cells(0).Value & "'", conn)
- dr = cmd.ExecuteReader
- dr.Read()
- If DGV.Rows(e.RowIndex).Cells(3).Value > dr.Item("Stok") Then
- MsgBox("Stok Hanya Ada " & dr.Item("Stok") & "")
- SendKeys.Send("{UP}")
- DGV.Rows(e.RowIndex).Cells(3).Value = dr.Item("Stok")
- DGV.Rows(e.RowIndex).Cells(4).Value = DGV.Rows(e.RowIndex).Cells(2).Value * DGV.Rows(e.RowIndex).Cells(3).Value
- Else
- DGV.Rows(e.RowIndex).Cells(4).Value = DGV.Rows(e.RowIndex).Cells(2).Value * DGV.Rows(e.RowIndex).Cells(3).Value
- End If
- Catch ex As Exception
- MsgBox("Harus Angka")
- SendKeys.Send("{UP}")
- DGV.Rows(e.RowIndex).Cells(3).Value = 1
- DGV.Rows(e.RowIndex).Cells(4).Value = DGV.Rows(e.RowIndex).Cells(2).Value * DGV.Rows(e.RowIndex).Cells(3).Value
- End Try
- End If
- DGV.Columns(2).DefaultCellStyle.Format = "###,###,###"
- DGV.Columns(3).DefaultCellStyle.Format = "###,###,###"
- DGV.Columns(4).DefaultCellStyle.Format = "###,###,###"
- DGV.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
- DGV.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
- DGV.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
- Call HitungBarang()
- Call HitungHarga()
- End Sub
- Private Sub DGV_KeyPress(sender As Object, e As KeyPressEventArgs) Handles DGV.KeyPress
- On Error Resume Next
- If e.KeyChar = Chr(27) Then
- DGV.Rows.Remove(DGV.CurrentRow)
- Call HitungBarang()
- Call HitungHarga()
- End If
- If e.KeyChar = Chr(13) Then
- TXTDibayar.Focus()
- End If
- End Sub
- Private Sub TXTDibayar_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TXTDibayar.KeyPress
- If e.KeyChar = Chr(13) Then
- If Val(TXTDibayar.Text) < Val(LBLTotalHarga.Text) Then
- MsgBox("Pembayaran Kurang")
- TXTDibayar.Focus()
- Exit Sub
- ElseIf Val(TXTDibayar.Text) >= Val(LBLTotalHarga.Text) Then
- LBLKembali.Text = Val(TXTDibayar.Text) - Val(LBLTotalHarga.Text)
- BTNSimpan.Focus()
- End If
- End If
- If Not (e.KeyChar >= "0" And e.KeyChar <= "9" Or e.KeyChar = vbBack) Then
- e.Handled = True
- End If
- End Sub
- Private Sub BTNSimpan_Click(sender As Object, e As EventArgs) Handles BTNSimpan.Click
- If ComboBox1.Text = "" Or TXTDibayar.Text = 0 Then
- MsgBox("Transaksi Belum Lengkap")
- Exit Sub
- End If
- Dim SimpanPenjualan As String = "insert into tbl_penjualan values('" & LBLFaktur.Text & "','" & LBLTanggal.Text & "','" & ComboBox1.Text & "','" & LBLTotalBarang.Text & "','" & LBLTotalHarga.Text & "','" & TXTDibayar.Text & "','" & LBLKembali.Text & "','User')"
- cmd = New OleDbCommand(SimpanPenjualan, conn)
- cmd.ExecuteNonQuery()
- For Baris As Integer = 0 To DGV.RowCount - 2
- Dim SimpanDetail As String = "insert into tbl_detailjual values('" & LBLFaktur.Text & "','" & DGV.Rows(Baris).Cells(0).Value & "','" & DGV.Rows(Baris).Cells(2).Value & "','" & DGV.Rows(Baris).Cells(3).Value & "','" & DGV.Rows(Baris).Cells(4).Value & "')"
- cmd = New OleDbCommand(SimpanDetail, conn)
- cmd.ExecuteNonQuery()
- cmd = New OleDbCommand("Select * from tbl_barang where Kode_Barang ='" & DGV.Rows(Baris).Cells(0).Value & "'", conn)
- dr = cmd.ExecuteReader
- dr.Read()
- If dr.HasRows Then
- Dim KurangiStok As String = "update tbl_barang set Stok='" & dr.Item("Stok") - DGV.Rows(Baris).Cells(3).Value & "' where Kode_Barang='" & DGV.Rows(Baris).Cells(0).Value & "'"
- cmd = New OleDbCommand(KurangiStok, conn)
- cmd.ExecuteNonQuery()
- End If
- Next
- Call Bersihkan()
- Call FakturOtomatis()
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- ListBoxBedaForm.Show()
- End Sub
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- DataGridBedaForm.Show()
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement