Penjualan

Public Class Penjualan

    Private Sub Penjualan_Load(..)
        Cbfaktur.Items.Add("001-TOYAVZ13")
        Cbfaktur.Items.Add("001-TOYINO15")
        Cbfaktur.Items.Add("002-TOYAVZ15")
        Cbfaktur.Items.Add("002-TOYINO20")
        Cbfaktur.Items.Add("001-HONAVZ13")
        Cbfaktur.Items.Add("001-HONINO15")
        Cbfaktur.Items.Add("002-HONAVZ15")
        Cbfaktur.Items.Add("002-HONINO20")

        Cbfaktur.Items.Add("001-KIAAVZ13")
        Cbfaktur.Items.Add("001-KIAINO15")
        Cbfaktur.Items.Add("002-KIAAVZ15")
        Cbfaktur.Items.Add("002-KIAINO20")
        Cbfaktur.Items.Add("001-SUZAVZ13")
        Cbfaktur.Items.Add("001-SUZAINO15")
        Cbfaktur.Items.Add("002-SUZAVZ15")
        Cbfaktur.Items.Add("002-SUZINO20")
        Cbfaktur.Items.Add("001-FORAVZ13")
        Cbfaktur.Items.Add("001-FORINO15")
        Cbfaktur.Items.Add("002-FORAVZ15")
        Cbfaktur.Items.Add("002-FORINO20")
        Cbtahun.Items.Add("2010")
        Cbtahun.Items.Add("2011")
        Cbtahun.Items.Add("2012")

        Cbjlhbeli.Items.Add("1")
        Cbjlhbeli.Items.Add("2")
        Cbjlhbeli.Items.Add("3")
        Cbjlhbeli.Items.Add("4")
        Cbjlhbeli.Items.Add("5")

        Cblama.Items.Add("12")
        Cblama.Items.Add("24")
        Cblama.Items.Add("36")
        Call BUAT_TABEL()
 End Sub
    Sub BUAT_TABEL()
        LV.GridLines = True
        LV.View = View.Details
        LV.FullRowSelect = True
        Lv.Columns.Add("FAKTUR PENJUALAN")
        Lv.Columns.Add("MERK MOBIL")
        Lv.Columns.Add("TIPE")
        Lv.Columns.Add("HARGA")
        Lv.Columns.Add("TAHUN")
        Lv.Columns.Add("JUMLAH BELI")
        Lv.Columns.Add("DP")
        Lv.Columns.Add("LAMA")
        Lv.Columns.Add("CICILAN")
    End Sub

    Private Sub Cbfaktur_SelectedIndexChanged(...)
        Dim x As String
        Dim y As String
        x = Microsoft.VisualBasic.Mid(Cbfaktur.Text, 5, 3)
        y = Microsoft.VisualBasic.Mid(Cbfaktur.Text, 8, 3)
        If x = "TOY" Or x = "toy" Then
            Txmerk.Text = "TOYOTA"
            If y = "AVZ" Then
                Txtipe.Text = "AVANZA"
            ElseIf y = "INO" Then
                Txtipe.Text = "INOVA"
            End If
        End If
        If x = "HON" Or x = "hon" Then
            Txmerk.Text = "HONDA"
            If y = "AVZ" Then
                Txtipe.Text = "AVANZA"
            ElseIf y = "INO" Then
                Txtipe.Text = "INOVA"

            End If
        End If
        If x = "KIA" Or x = "kia" Then
            Txmerk.Text = "KIA"
            If y = "AVZ" Then
                Txtipe.Text = "AVANZA"
            ElseIf y = "INO" Then
                Txtipe.Text = "INOVA"
            End If
        End If
        If x = "SUZ" Or x = "suz" Then
            Txmerk.Text = "SUZUKI"
            If y = "AVZ" Then
                Txtipe.Text = "AVANZA"
            ElseIf y = "INO" Then
                Txtipe.Text = "INOVA"
            End If
        End If
        If x = "FOR" Or x = "for" Then
            Txmerk.Text = "FORTUNER"
            If y = "AVZ" Then
                Txtipe.Text = "AVANZA"
            ElseIf y = "INO" Then
                Txtipe.Text = "INOVA"
            End If
        End If
    End Sub

    Private Sub Btkeluar_Click(...)
        Me.Close()
    End Sub

    Private Sub Bthapuslist_Click(....)
        Lv.Items.Clear()
    End Sub

    Private Sub Btmasuk_Click(..)
        Dim LST As New ListViewItem
        LST.Text = Cbfaktur.Text
        LST.SubItems.Add(Txmerk.Text)
        LST.SubItems.Add(Txtipe.Text)
        LST.SubItems.Add(Txharga.Text)
        LST.SubItems.Add(Cbtahun.Text)
        LST.SubItems.Add(Cbjlhbeli.Text)
        LST.SubItems.Add(Txdp.Text)
        LST.SubItems.Add(Cblama.Text)
        LST.SubItems.Add(Txcicilan.Text)

        Lv.Items.Add(LST)

    End Sub

    Private Sub Bthapusrecord_Click(...)
        Lv.Items.Remove(Lv.SelectedItems(0))
    End Sub

    Private Sub Cbtahun_SelectedIndexChanged(....)
        If Cbtahun.Text = 2010 And Txtipe.Text = "AVANZA" Then
            Txharga.Text = 65000000
        ElseIf Cbtahun.Text = 2010 And Txtipe.Text = "INOVA" Then
            Txharga.Text = 70000000
        ElseIf Cbtahun.Text = 2011 And Txtipe.Text = "AVANZA" Then
            Txharga.Text = 75000000
        ElseIf Cbtahun.Text = 2011 And Txtipe.Text = "INOVA" Then
            Txharga.Text = 80000000
        ElseIf Cbtahun.Text = 2012 And Txtipe.Text = "AVANZA" Then
            Txharga.Text = 85000000
        ElseIf Cbtahun.Text = 2012 And Txtipe.Text = "INOVA" Then
            Txharga.Text = 90000000
        End If
    End Sub

    Private Sub Cbjlhbeli_SelectedIndexChanged(....)
        Txdp.Text = 0.2 * Txharga.Text * Cbjlhbeli.Text
    End Sub

    Private Sub Cblama_SelectedIndexChanged(.....)
        Txcicilan.Text = 0.1 * Txharga.Text * Cblama.Text
    End Sub
End Class