SISTEM INFORMASI AKUN PENJUALAN

PERANCANGAN SISTEM INFORMASI AKUNTANSI PENJUALAN BARANG PADA CV. SINAR JAYA

Disini kita akan menggunakan M.accses, dan desaign dengan nama table: Akun

NAMA	TIPE	UKURAN	KETERANGAN
JENIS	CHAR	30	JENIS AKUN
KODE	CHAR	10	KODE AKUN
NAMA	CHAR	35	NAMA AKUN

Kemudian rancang Desaign VB seperti dibawah ini...

Keterangan;

Textbox : jenis_akun, kode_akun, nama_akun 
Button : btnbaru, btnsimpan, btnhapus, btnbatal, btnkeluar

Data gridview

Listing Program...

Imports System.Data.OleDb

Public Class AKUN

    Public db As OleDbConnection

    Public cmd As OleDbCommand

    Public adp As OleDbDataAdapter

    Public ds As New DataSet

    Dim sql As String

    Public Sub opendb()

        Dim LOKASI = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = c:\ltnhakun\unyuk.mdb"

        db = New OleDbConnection(LOKASI)

        If db.State = ConnectionState.Closed Then

            db.Open()

        End If

    End Sub

    Sub tampilakun()

        adp = New OleDbDataAdapter("SELECT*FROM akun", db)

        ds = New DataSet

        adp.Fill(ds, "akun")

        DataGridView1.DataSource = ds.Tables("akun")

    End Sub

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

        Call opendb()

        Call tampilakun()

    End Sub

    Sub bersihakun()

        JNSAKUN.Text = ""

        KDAKUN.Text = ""

        NMAKUN.Text = ""

    End Sub

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

        sql = "INSERT INTO akun (JENIS, KODE, NAMA)" & _

                    "values ('" & JNSAKUN.Text & "','" & _

                    KDAKUN.Text & "','" & _

                    NMAKUN.Text & "')"

        cmd = New OleDbCommand(sql, db)

        cmd.ExecuteNonQuery()

        Call br_Click(sender, e)

        Call tampilakun()

    End Sub

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

        Call bersihakun()

        JNSAKUN.Focus()

    End Sub

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

        sql = "DELETE FROM akun where Jenis='" & JNSAKUN.Text & "'"

        cmd = New OleDbCommand(sql, db)

        cmd.ExecuteNonQuery()

        Call br_Click(sender, e)

        Call tampilakun()

    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 btl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btl.Click

        Call bersihakun()

        JNSAKUN.Focus()

    End Sub

End Class

  

SELAMAT MENCOBA...