Pembuatan Aplikasi Penjualan

Salam sejahtera untuk teman teman semua, disini saya menjelaskan bagaimana cara membuat aplikasi penjualan menggunakan visual studio dan data base access

Tujuan saya membuat aplikasi penjualan yaitu guna membantu transaksi secara sistem dan menyimpan lapooran kedalam data base

Aplikasi yang dibutuhkan :

- Visual Studio
- Microsoft access 2010

Langkah Pertama yaitu membuat data base nya guna menyimpan data data barang penjualan

lalu save database yang kita buat di folder  > bin > debug


kemudan buka visual studio dan pilih windows form aplication klik ok
jika sudah akan muncul tampilan seperti di bawah ini

Kita membutuhkan toolbox

- Label
- TextBox
- Datagridview
- ComboBox
- Button

kemuadian atur tool box tersebut seperti di bawah ini

Jika sudah, kemuadian jalankan aplikasi denga klik run / start

Berikut Coure Code nya

Imports System.Data.OleDb
Public Class Form1
    Dim CONN As OleDbConnection
    Dim da As OleDbDataAdapter
    Dim ds As DataSet
    Dim LokasiDB As String
    Sub Koneksi()
        LokasiDB = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DBJNM.accdb"
        CONN = New OleDbConnection(LokasiDB)
        If CONN.State = ConnectionState.Closed Then CONN.Open()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Koneksi()
        da = New OleDbDataAdapter("Select * from TBL_BARANG", CONN)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "TBL_BARANG")
        DataGridView1.DataSource = (ds.Tables("TBL_BARANG"))
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or ComboBox1.Text = "" Then
            MsgBox("Silahkan Isi Semua Form")
        Else
            Dim CMD As OleDbCommand
            Call Koneksi()
            Dim simpan As String = "insert into TBL_BARANG values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & ComboBox1.Text & "')"
            CMD = New OleDbCommand(simpan, CONN)
            CMD.ExecuteNonQuery()
            MsgBox("Input data berhasil")
        End If
    End Sub

    Private Sub TextBox1_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        TextBox1.MaxLength = 6
        If e.KeyChar = Chr(13) Then
            Call Koneksi()
            Dim CMD As OleDbCommand
            Dim RD As OleDbDataReader
            CMD = New OleDbCommand("Select * From TBL_BARANG  where KodeBarang='" & TextBox1.Text & "'", CONN)
            RD = CMD.ExecuteReader
            RD.Read()
            If Not RD.HasRows Then
                MsgBox("Kode Barang Tidak Ada, Silahkan coba lagi!")
                TextBox1.Focus()
            Else
                TextBox2.Text = RD.Item("NamaBarang")
                TextBox3.Text = RD.Item("HargaBarang")
                TextBox4.Text = RD.Item("JumlahBarang")
                ComboBox1.Text = RD.Item("SatuanBarang")
                TextBox2.Focus()
            End If
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Call Koneksi()
        Dim CMD As OleDbCommand
        Dim edit As String = "update TBL_BARANG set NamaBarang='" & TextBox2.Text & "',HargaBarang='" & TextBox3.Text & "',JumlahBarang='" & TextBox4.Text & "',SatuanBarang='" & ComboBox1.Text & "' where KodeBarang='" & TextBox1.Text & "'"
        CMD = New OleDbCommand(edit, Conn)
        CMD.ExecuteNonQuery()
        MsgBox("Data Berhasil diUpdate")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If TextBox1.Text = "" Then
            MsgBox("Silahkan Pilih Data yang akan di hapus dengan Masukan NIM dan ENTER")
        Else
            If MessageBox.Show("Yakin akan dihapus..?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
                Call Koneksi()
                Dim CMD As OleDbCommand
                Dim hapus As String = "delete From TBL_BARANG  where KodeBarang='" & TextBox1.Text & "'"
                CMD = New OleDbCommand(hapus, Conn)
                CMD.ExecuteNonQuery()
            End If
        End If
    End Sub

Semoga dengan adanya aplikasi ini dapat membatu penjualan yang sebelumnya manual dan berubah menjadi sistem.

Sekian dari saya, semoga tugas ini bermanfaat, kurang lebihnya mohon maaf