SISTEM INFORMASI AKUNTANSI PENJUALAN BARANG PADA CV.SINAR JAYA - BUKU BESAR

PERANCANGAN SISTEM INFORMASI PENJUALAN BARANG PADA CV.SINAR JAYA

DESAIGN FORM BUKU BESAR

LISTING PROGRAM BUKU BESAR

Imports MySql.Data.MySqlClient

Public Class BB

    Public db As New MySql.Data.MySqlClient.MySqlConnection

    Public sql As String

    Public cmd As MySqlCommand

    Public rs As MySqlDataReader

   

    Private Sub klr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles klr.Click

        Me.Close()

    End Sub

   

    Private Sub NM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NM.SelectedIndexChanged

        If NM.Text = "BARANG PERABOT" Then NMAKUN.Text = "MEJA-KURSI"

        If NM.Text = "BARANG JADI" Then NMAKUN.Text = "BAJU-CELANA"

        If NM.Text = "BARANG ELEKTRONIK" Then NMAKUN.Text = "TV-CD-KULKAS-HP"

        If NM.Text = "ALAT TULIS" Then NMAKUN.Text = "BUKU-PENSIL"

    End Sub

    Private Sub KD_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KD.SelectedIndexChanged

        If KD.Text = "001" Then KBBRNG.Text = "TV"

        If KD.Text = "002" Then KBBRNG.Text = "LAPTOP"

        If KD.Text = "003" Then KBBRNG.Text = "HELM"

        If KD.Text = "004" Then KBBRNG.Text = "BAJU"

    End Sub

    Private Sub BB_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        NM.Items.Add("BARANG PERABOT")

        NM.Items.Add("BARANG JADI")

        NM.Items.Add("BARANG ELEKTRONIK")

        NM.Items.Add("ALAT TULIS")

        KD.Items.Add("001")

        KD.Items.Add("002")

        KD.Items.Add("003")

        KD.Items.Add("004")

    End Sub

End Class