SISTEM INFORMASI AKUNTANSI PENJUALAN BARANG PADA CV.SINAR JAYA - JURNAL

PERANCANGAN SISTEM INFORMASI PENJUALAN BARANG PADA CV.SINAR JAYA

DESAIGN FORM JURNAL UMUM

DESAIGN DATABASE

LISTING PROGRAM JURNAL UMUM

Imports MySql.Data.MySqlClient

Public Class JURNAL

    Public db As New MySql.Data.MySqlClient.MySqlConnection

    Public sql As String

    Public cmd As MySqlCommand

    Public rs As MySqlDataReader

    Sub opendb()

        sql = "server=localhost;uid=root;pwd;database=jurnal"

        Try

            db.ConnectionString = sql

            db.Open()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Sub bersih()

        fktr.Text = ""

        ktrngn.Text = ""

        plnggn.Text = ""

        nm.Text = ""

        KA.Text = ""

        NA.Text = ""

        REF.Text = ""

        KB.Text = ""

        NB.Text = ""

        HRG.Text = ""

        D.Text = ""

        K.Text = ""

        rubahtombol(True, False, False, False, True)

        fktr.Enabled = True

    End Sub

    Sub rubahtombol(ByVal btn1 As Boolean, ByVal btn2 As Boolean, ByVal btn3 As Boolean, ByVal btn4 As Boolean, ByVal btn5 As Boolean)

        br.Enabled = btn1

        smpn.Enabled = btn2

        hps.Enabled = btn3

        btl.Enabled = btn4

        klr.Enabled = btn5

    End Sub

    Sub buattable()

        lv.Columns.Add("faktur", 80, HorizontalAlignment.Center)

        lv.Columns.Add("ktrngn", 180, HorizontalAlignment.Left)

        lv.Columns.Add("plnggn", 80, HorizontalAlignment.Left)

        lv.Columns.Add("nama", 80, HorizontalAlignment.Left)

        lv.Columns.Add("kd_akun", 80, HorizontalAlignment.Left)

        lv.Columns.Add("nm_akun", 80, HorizontalAlignment.Left)

        lv.Columns.Add("ref", 80, HorizontalAlignment.Left)

        lv.Columns.Add("kd_brng", 80, HorizontalAlignment.Left)

        lv.Columns.Add("nm_brng", 80, HorizontalAlignment.Left)

        lv.Columns.Add("harga", 80, HorizontalAlignment.Left)

        lv.Columns.Add("d", 80, HorizontalAlignment.Left)

        lv.Columns.Add("k", 80, HorizontalAlignment.Left)

        lv.GridLines = True

        lv.FullRowSelect = True

        lv.View = View.Details

    End Sub

    Sub isitable()

        lv.Items.Clear()

        sql = "select * from jrnl"

        cmd = New MySqlCommand(sql, db)

        rs = cmd.ExecuteReader

        Try

            While rs.Read

                Dim lst As New ListViewItem

                lst.Text = rs("faktur")

                lst.SubItems.Add(rs("ktrngn"))

                lst.SubItems.Add(rs("plnggn"))

                lst.SubItems.Add(rs("nama"))

                lst.SubItems.Add(rs("kd_akun"))

                lst.SubItems.Add(rs("nm_akun"))

                lst.SubItems.Add(rs("ref"))

                lst.SubItems.Add(rs("kd_brng"))

                lst.SubItems.Add(rs("nm_brng"))

                lst.SubItems.Add(rs("harga"))

                lst.SubItems.Add(rs("d"))

                lst.SubItems.Add(rs("k"))

                lv.Items.Add(lst)

            End While

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        rs.Close()

    End Sub

    Sub prosesdb(ByVal log As Integer)

        Dim pesan As String = ""

        Select Case log

            Case 0

                sql = "insert into jrnl(faktur,ktrngn,plnggn,nama,kd_akun,nm_akun,ref,kd_brng,nm_brng,harga,d,k,TD,TK)" & _

                        "values('" & fktr.Text & _

                        "','" & ktrngn.Text & _

                        "','" & plnggn.Text & _

                        "','" & nm.Text & _

                        "','" & KA.Text & _

                        "','" & NA.Text & _

                        "','" & REF.Text & _

                        "','" & KB.Text & _

                        "','" & NB.Text & _

                        "','" & HRG.Text & _

                        "','" & D.Text & _

"','" & K.Text & "')"

                pesan = "Data telah tersimpan"

            Case 1

                sql = "update jrnl set ktrngn='" & ktrngn.Text & "', " & _

                    "plnggn='" & plnggn.Text & "'," & _

                    "nama='" & nm.Text & "'," & _

                    "kd_akun='" & KA.Text & "'," & _

                    "nm_akun='" & NA.Text & "'," & _

                    "ref='" & REF.Text & "'," & _

                    "kd_brng='" & KB.Text & "'," & _

                    "nm_brng='" & NB.Text & "'," & _

                    "harga='" & HRG.Text & "'," & _

                    "d='" & D.Text & "'," & _

                    "k='" & K.Text & "' " & _

  "where faktur='" & fktr.Text & "'"

                pesan = "Data telah terupdate"

            Case 2

                sql = "Delete from jrnl where faktur='" & fktr.Text & "'"

                pesan = "Data telah dihapus"

        End Select

        Try

            cmd = New MySqlCommand(sql, db)

            cmd.ExecuteNonQuery()

            MsgBox(pesan, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "konfirmasi")

            Call bersih()

            Call isitable()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Sub showdb()

        rs.Read()

        fktr.Text = rs("faktur")

        ktrngn.Text = rs("ktrngn")

        plnggn.Text = rs("plnggn")

        nm.Text = rs("nama")

        KA.Text = rs("kd_akun")

        NA.Text = rs("nm_akun")

        REF.Text = rs("ref")

        KB.Text = rs("kd_brng")

        NB.Text = rs("nm_brng")

        HRG.Text = rs("harga")

        D.Text = rs("d")

        K.Text = rs("k")

        rubahtombol(False, True, True, True, False)

        smpn.Text = "Edit"

        fktr.Enabled = False

    End Sub

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

        Me.Close()

    End Sub

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

        Call opendb()

        Call bersih()

        Call buattable()

        Call isitable()

        plnggn.Items.Add("A")

        plnggn.Items.Add("B")

        plnggn.Items.Add("C")

        plnggn.Items.Add("D")

        plnggn.Items.Add("E")

        KA.Items.Add("001")

        KA.Items.Add("002")

        KA.Items.Add("003")

        KA.Items.Add("004")

        KB.Items.Add("100")

        KB.Items.Add("200")

        KB.Items.Add("300")

        KB.Items.Add("400")

    End Sub

    Private Sub br_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles br.Click

        Call bersih()

        fktr.Focus()

    End Sub

    Private Sub btl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btl.Click

        Call bersih()

        fktr.Focus()

    End Sub

    Private Sub smpn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles smpn.Click

        If smpn.Text = "Simpan" Then prosesdb(0) Else prosesdb(1)

    End Sub

    Private Sub hps_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hps.Click

        Dim x As String

        x = MsgBox("Anda yakin akan dihapus", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Hapus")

        If x = vbYes Then

            Call prosesdb(2)

        End If

    End Sub

    Private Sub fktr_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles fktr.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        If tombol = 13 Then

            Dim x As String

            If fktr.Text = "" Then

                MsgBox("isi faktur terlebih dahulu")

            Else

                sql = "select*from jrnl where faktur='" & fktr.Text & "'"

                cmd = New MySqlCommand(sql, db)

                rs = cmd.ExecuteReader

                Try

                    Call showdb()

                Catch ex As Exception

                    x = fktr.Text

                    bersih()

                    fktr.Text = x

                    rubahtombol(False, True, False, True, False)

                    smpn.Text = "Simpan"

                End Try

                ktrngn.Focus()

                rs.Close()

            End If

        End If

    End Sub

    Private Sub KA_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KA.SelectedIndexChanged

        If KA.Text = "001" Then NA.Text = "BARANG JADI"

        If KA.Text = "002" Then NA.Text = "BARANG PERABOT"

        If KA.Text = "003" Then NA.Text = "BARANG ELEKTRONIK"

        If KA.Text = "004" Then NA.Text = "ALAT TULIS"

    End Sub

    Private Sub KB_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB.SelectedIndexChanged

        If KB.Text = "100" Then NB.Text = "BAJU-CELANA"

        If KB.Text = "200" Then NB.Text = "MEJA-KURSI"

        If KB.Text = "300" Then NB.Text = "LAPTOP"

        If KB.Text = "400" Then NB.Text = "BUKU-PENSIL"

    End Sub

End Clas

DESAIGN CETAK - JURNAL UMUM 

CETAK - RELASI