UTS Lab Pemrograman Bisnis 2 Aplikasi Toko HP

UTS Lab Pemrograman Bisnis 2

Saya akan menjelaskan aplikasi pembelian HP secara online aplikasi ini dapat memudahkan pembeli dalam mencari HP dan langsung dapat memilih HP yang di ingin kan dengan harga yang murah.

Dan saya akan menjelaskan bagaimana aplikasi ini berjalan.

1.       kita klik tombol "Stock HP" lalu akan keluar tabel yang berisi informasi tentang daftar Stock HP serta keterangannya.

2.       Jika HP yang kita ingin kan tidak terdapat pada Stock dan ingin request dapat menambahkannya dengan mengisi form lalu kelik “Pembelian”

3.       Ketika kita sudah selesai membeli dapat mengklik “Keluar”

Berikut screenshot aplikasinya :

Screen Shot Databasenya :

Source Code :

form 1 :

Imports System.Data

Imports System.Data.SqlClient

Imports System.Data.OleDb

Public Class Form1

    Dim database As Object = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database\Database11.mdb"

    Dim objkoneksi As New OleDb.OleDbConnection(database)

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        objkoneksi.Open()

        Dim tambah As String = "INSERT INTO Tabel1 values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')"

        Dim oCmd = New OleDbCommand(tambah, objkoneksi)

        oCmd.ExecuteNonQuery()

        MsgBox("Success")

        objkoneksi.Close()

    End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Form2.Show()

    End Sub

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

        Me.Close()

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

End Class

Form 2 :

Public Class Form2

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        'TODO: This line of code loads data into the 'Database11DataSet1.Table1' table. You can move, or remove it, as needed.

        Me.Table1TableAdapter.Fill(Me.Database11DataSet1.Table1)

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Form1.Show()

        Me.Close()

    End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        On Error GoTo SaveErr
       Table1bindingSource.EndEdit()
       Table1TableAdapter.Update(Database1Dataset1.Table1)
       MsgBox("Berhasil")

SaveErr:
               Exit Sub

    End Sub

End Class

Read more »