UAS Lab Pemrograman Bisnis 2 Aplikasi Penjualan HP

Posted by Unknown Posted on 08:45 with No comments
Aplikasi Penjualan HP

            Saya akan menjelaskan tentang aplikasi Penjualan hp yang dibuat untuk memudahkan admin yang akan menginput dan melihat laporan penjualan yang terjadi selama penjualan. Serta aplikasi ini juga memudahkan kepada pembeli untuk memesan hp dan melihat list barang barang yang di jual ditoko tersebut.
            Untuk mempersingkat waktu saya akan menjelaskan penggunaan dari aplikasi ini



Ini merupakan screenshot tampilan awal jika anda menggunakan aplikasi ini. Aplikasi ini mengunakan system login untuk admin namun jika anda bukan admin atau hanya seorang pembeli biasa maka anda hanya bisa memesan dan melihat barang barang yang tersedia dalam toko.

Untuk login anda bisa mengklik “File” dipojok kiri atas kemudian akan keluar form login seperti di bawah.
Anda dapat mengisi Username = Admin serta Password =Admin untuk password defaultnya.
Setelah login anda dapat mengakses penuh aplikasi toko hp ini. Dibawah ini merupakan form pemesanan.
                                       

Dibawah ini merupakan form list barang yang tersedia di toko hp.

Dibawah ini merupakan form untuk mengisi list admin atau mendaftar admin baru.
Dibawah ini merupakan untuk melihat laporan penjualan yang terjadi.

ScreenShot DataBase :

Sekian penjelasan penggunaan dari aplikasi yang saya buat. Dan dibawah ini merupakan source codenya :

FormAdmin :

Imports System.Data
Imports System.Data.OleDb
Public Class FormAdmin
    Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Faisal\Documents\PenjualanHP.accdb"
    Dim objkoneksi As New OleDb.OleDbConnection(Koneksi)
    Private xReader As OleDbDataReader
    Dim DAdpater As OleDbDataAdapter
    Dim Dset As DataSet

    Sub clean()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
    End Sub
    Sub updatetable()
        DAdpater = New OleDbDataAdapter("Select * from TableAdmin", objkoneksi)
        Dset = New DataSet
        Dset.Clear()
        DAdpater.Fill(Dset, "TableAdmin")
        DataGridView1.DataSource = (Dset.Tables("TableAdmin"))
    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 = "" Then
            MsgBox("Data belum lengkap")
        Else
            objkoneksi.Close()
            objkoneksi.Open()
            Dim tambah As String = "INSERT INTO TableAdmin values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "', '" & TextBox4.Text & "')"
            Dim ocmd = New OleDbCommand(tambah, objkoneksi)
            ocmd.ExecuteNonQuery()
            objkoneksi.Close()
            MsgBox("Sukses")
            updatetable()
            clean()
        End If
    End Sub

    Private Sub FormAdmin_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'PenjualanHPDataSet.TableAdmin' table. You can move, or remove it, as needed.
        Me.TableAdminTableAdapter.Fill(Me.PenjualanHPDataSet.TableAdmin)
        updatetable()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim A As String = InputBox("Masukan username yang anda cari !")
        objkoneksi.Close()
        objkoneksi.Open()

        Dim odc As New OleDbCommand("SELECT * FROM TableAdmin where Username='" + A + "'", objkoneksi)
        xReader = odc.ExecuteReader

        If xReader.HasRows Then
            xReader.Read()
            TextBox1.Text = xReader("Username")
            TextBox2.Text = xReader("Password")
            TextBox3.Text = xReader("Nama")
            TextBox4.Text = xReader("Email")
        Else
            MsgBox("Username tidak terdaftar !")
            clean()
        End If

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        objkoneksi.Close()
        objkoneksi.Open()
        Dim delete As String = "Delete From TableAdmin where Username='" & TextBox1.Text & "'"
        Dim odc = New OleDbCommand(delete, objkoneksi)
        Dim x As String = MsgBox("Apakah Anda yakin ingin menghapus ?", MsgBoxStyle.YesNo, "Konfirmasi")
        If x = vbYes Then
            If TextBox1.Text = "" Then
                MsgBox("Data masih kosong, mohon cek kembali !", , "Konfirmasi")
            Else
                odc.ExecuteNonQuery()
                Call clean()
            End If
        Else
            Exit Sub
        End If
        objkoneksi.Close()
        updatetable()
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        FormMenu.Show()
        Me.Close()
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        objkoneksi.Close()
        objkoneksi.Open()
        Dim update As String = "Update TableAdmin set Username='" & TextBox1.Text & "'Password='" & TextBox2.Text & "'Nama='" & TextBox3.Text & "'Email='" & TextBox4.Text & "'"
        Dim odc = New OleDbCommand(update, objkoneksi)
        odc.ExecuteNonQuery()
        objkoneksi.Close()
    End Sub
End Class

FormLogin :

Imports System.Data
Imports System.Data.OleDb
Public Class FormLogin
    Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Faisal\Documents\PenjualanHP.accdb"
    Dim objkoneksi As New OleDb.OleDbConnection(Koneksi)
    Private xReader As OleDbDataReader
    Private Sub FormLogin_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox2.PasswordChar = "*"
    End Sub
    Sub Enable()
        FormMenu.Button1.Enabled = True
        FormMenu.Button4.Enabled = True
        FormMenu.LogoutToolStripMenuItem.Enabled = True
        FormMenu.LaporanToolStripMenuItem.Enabled = True
    End Sub
    Sub Login()
        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MsgBox("Data login belum lengkap")
            Exit Sub
        Else
            objkoneksi.Close()
            objkoneksi.Open()

            Dim ocmd As New OleDbCommand("SELECT * FROM TableAdmin where Username='" & TextBox1.Text & "' and Password='" & TextBox2.Text & "'", objkoneksi)
            xReader = ocmd.ExecuteReader

            If xReader.HasRows Then
                MsgBox("Selamat Datang di Aplikasi Toko HP", MsgBoxStyle.Information, "konfirmasi")
                xReader.Read()
                
                Me.Close()
                Call enable()
            Else
                MsgBox("Username atau Password Salah", MsgBoxStyle.Information, "Konfirmasi")
            End If
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Login()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
End Class

Form Barang :

Imports System.Data
Imports System.Data.OleDb
Public Class FormBarang
    Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Faisal\Documents\PenjualanHP.accdb"
    Dim objkoneksi As New OleDb.OleDbConnection(Koneksi)
    Private xReader As OleDbDataReader
    Dim DAdpater As OleDbDataAdapter
    Dim Dset As DataSet

    Sub UpdateTable()
        DAdpater = New OleDbDataAdapter("Select * from TableBarang", objkoneksi)
        Dset = New DataSet
        Dset.Clear()
        DAdpater.Fill(Dset, "TableBarang")
        DataGridView1.DataSource = (Dset.Tables("TableBarang"))
    End Sub

    Sub clean()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""

    End Sub
    Private Sub FormBarang_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'PenjualanHPDataSet.TableBarang' table. You can move, or remove it, as needed.
        Me.TableBarangTableAdapter.Fill(Me.PenjualanHPDataSet.TableBarang)
        UpdateTable()
    End Sub

    Private Sub GroupBox1_Enter(sender As Object, e As EventArgs) Handles GroupBox1.Enter

    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 TextBox5.Text = "" Then
            MsgBox("Data belum lengkap")
        Else
            objkoneksi.Close()
            objkoneksi.Open()
            Dim tambah As String = "INSERT INTO TableBarang values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox4.Text & "', '" & TextBox3.Text & "','" & TextBox5.Text & "')"
            Dim ocmd = New OleDbCommand(tambah, objkoneksi)
            ocmd.ExecuteNonQuery()
            objkoneksi.Close()
            MsgBox("Barang Berhasil di Tambahkan")
            UpdateTable()
            clean()
        End If
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        FormMenu.Show()
        Me.Hide()

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        objkoneksi.Close()
        objkoneksi.Open()
        Dim update As String = "Update TableBarang set KodeBarang='" & TextBox1.Text & "'NamaBarang='" & TextBox2.Text & "'Harga='" & TextBox3.Text & "'MerekHP='" & TextBox4.Text & "'Jumlah='" & TextBox5.Text & "'"
        Dim odc = New OleDbCommand(update, objkoneksi)
        odc.ExecuteNonQuery()
        objkoneksi.Close()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim A As String = InputBox("Masukan Kode Barang yang anda cari !")
        objkoneksi.Close()
        objkoneksi.Open()

        Dim odc As New OleDbCommand("SELECT * FROM TableBarang where KodeBarang='" + A + "'", objkoneksi)
        xReader = odc.ExecuteReader

        If xReader.HasRows Then
            xReader.Read()
            TextBox1.Text = xReader("KodeBarang")
            TextBox2.Text = xReader("NamaHP")
            TextBox3.Text = xReader("Harga")
            TextBox4.Text = xReader("MerekHP")
            TextBox5.Text = xReader("JumlahBarang")
        Else
            MsgBox("Barang yang anda cari tidak ada !")
            clean()
        End If
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        objkoneksi.Close()
        objkoneksi.Open()
        Dim delete As String = "Delete From TableBarang where KodeBarang='" & TextBox1.Text & "'"
        Dim odc = New OleDbCommand(delete, objkoneksi)
        Dim x As String = MsgBox("Apakah Anda yakin ingin menghapus ?", MsgBoxStyle.YesNo, "Konfirmasi")
        If x = vbYes Then
            If TextBox1.Text = "" Then
                MsgBox("Data masih kosong, mohon cek kembali !", , "Konfirmasi")
            Else
                odc.ExecuteNonQuery()
                Call clean()
            End If
        Else
            Exit Sub
        End If
        objkoneksi.Close()
        UpdateTable()
    End Sub
End Class

Form Menu :

Public Class FormMenu

    Sub Disable()
        Button1.Enabled = False
        Button4.Enabled = False
        LogoutToolStripMenuItem.Enabled = False
        LaporanToolStripMenuItem.Enabled = False
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        FormAdmin.Show()
        Me.Hide()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        FormBarang.Show()
        Me.Hide()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        FormPemesanan.Show()
        Me.Hide()
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        FormReportWizard.Show()

    End Sub

    Private Sub FormMenu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Call Disable()
    End Sub

    Private Sub LoginToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LoginToolStripMenuItem.Click
        FormLogin.Show()
    End Sub

    Private Sub LogoutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LogoutToolStripMenuItem.Click
        LoginToolStripMenuItem.Enabled = True
        Disable()
        MsgBox("Berhasil Logout")
    End Sub
End Class

Form Pemesanan :

Imports System.Data
Imports System.Data.OleDb
Public Class FormPemesanan
    Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Faisal\Documents\PenjualanHP.accdb"
    Dim objkoneksi As New OleDb.OleDbConnection(koneksi)
    Private xReader As OleDbDataReader
    Dim DAdapter As OleDbDataAdapter
    Dim Dset As DataSet
    Dim con As OleDbConnection
    Dim lokasiDataBase As String
    Dim tinggi As Double

    Sub updateTable()
        DAdapter = New OleDbDataAdapter("SELECT * from TablePemesanan", objkoneksi)
        Dset = New DataSet
        Dset.Clear()
        DAdapter.Fill(Dset, "TablePemesanan")
        DataGridView1.DataSource = (Dset.Tables("TablePemesanan"))
    End Sub
    Sub Clean()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        ComboBox2.Text = ""
        TextBox7.Text = ""
        TextBox8.Text = ""
        TextBox9.Text = ""
        ComboBox1.Text = ""

    End Sub
    Sub Combobox()
        Dim cmd As OleDbCommand
        Dim rdr As OleDbDataReader
        Dim Con As OleDbConnection

        Con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Faisal\Documents\PenjualanHP.accdb")
        Try
            Con.Open()
            cmd = New OleDbCommand("SELECT NamaHP FROM TableBarang", Con)
            rdr = cmd.ExecuteReader()

            While rdr.Read()
                ComboBox1.Items.Add(rdr("NamaHP"))
            End While

        Catch ex As Exception
            MessageBox.Show("Koneksi Gagal !!!" & ex.Message)
        End Try

        'ComboBox1.SelectedIndex = 0
    End Sub
    Sub KoneksiDB()
        lokasiDataBase = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Faisal\Documents\PenjualanHP.accdb"
        con = New OleDbConnection(lokasiDataBase)
        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
    End Sub
    Private Sub FormPemesanan_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'PenjualanHPDataSet.TablePemesanan' table. You can move, or remove it, as needed.
        Me.TablePemesananTableAdapter.Fill(Me.PenjualanHPDataSet.TablePemesanan)
        updateTable()
        Clean()
        Combobox()
        TextBox1.Focus()
    End Sub

    Private Sub TextBox7_TextChanged(sender As Object, e As EventArgs) Handles TextBox7.TextChanged

    End Sub

    Private Sub GroupBox2_Enter(sender As Object, e As EventArgs) Handles GroupBox2.Enter

    End Sub

    Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged

        If TextBox3.Text > 2 Then
            TextBox4.Text = 0.2
        Else
            TextBox4.Text = 0%
        End If

        TextBox5.Text = (Val(TextBox10.Text) * Val(TextBox3.Text) - Val(TextBox3.Text) * Val(TextBox10.Text) * Val(TextBox4.Text))
    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 TextBox5.Text = "" Or ComboBox2.Text = "" Or TextBox7.Text = "" Or TextBox8.Text = "" Or TextBox9.Text = "" Or ComboBox1.Text = "" Then
            MsgBox("Data belum lengkap")
        Else
            objkoneksi.Close()
            objkoneksi.Open()
            Dim tambah As String = "INSERT INTO TablePemesanan values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & ComboBox1.Text & "', '" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & ComboBox2.Text & "')"
            Dim odc = New OleDbCommand(tambah, objkoneksi)
            odc.ExecuteNonQuery()
            objkoneksi.Close()
            MsgBox("Terima kasih sudah memesan ditoko kami, segera lakukan pembayaran dan kami akan mengirim barang anda.", MsgBoxStyle.OkOnly, "Informasi")
            updateTable()
            Clean()
        End If
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        objkoneksi.Close()
        objkoneksi.Open()

        Dim Delete1 As String = "Delete from TablePemesanan where NoPemesanan='" & TextBox1.Text & "'"
        Dim odc = New OleDbCommand(Delete1, objkoneksi)
        Dim x As String = MsgBox("Apakah anda yakin ingin membatalkan pesanan ?", MsgBoxStyle.YesNo, "Konfirmasi")
        If x = vbYes Then
            If TextBox1.Text = "" Then
                MsgBox("Data Masih Kosong, Cek Kembali", , "Konfirmasi")
            Else
                odc.ExecuteNonQuery()
                Call Clean()
            End If
        Else
            Exit Sub
        End If
        objkoneksi.Close()
        updateTable()
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        objkoneksi.Close()
        objkoneksi.Open()

        Dim ocmd As New OleDbCommand("SELECT * FROM TableBarang where NamaHP='" + ComboBox1.Text + "'", objkoneksi)
        xReader = ocmd.ExecuteReader

        If xReader.HasRows Then
            xReader.Read()
            TextBox2.Text = xReader("KodeBarang")
            ComboBox1.Text = xReader("NamaHP")
            TextBox10.Text = xReader("Harga")
        End If
    End Sub

    Private Sub TextBox10_TextChanged(sender As Object, e As EventArgs) Handles TextBox10.TextChanged

    End Sub

    Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        FormMenu.Show()
        Me.Close()
    End Sub
End Class


Read more »