Tugas UTS Program Aplikasi "Data Penjualan Bengkel Firdaus" Berbasis Database dengan Visual Studio

PROGRAM APLIKASI

DATA PENJUALAN BENGKEL FIRDAUS
BERBASIS DATABASE
 DENGAN VISUAL STUDIO

• NAMA  : JIKRI FIRDAUS

• NIM   : 161021450160

• KELAS : 05TPLP001 / RUANG 509

• KAMPUS: STMIK ERESHA

Tugas UTS Project kali ini saya akan Membuat Program Aplikasi "DATA PENJUALAN BENGKEL FIRDAUS". (BERBASIS DATABASE ASP.NET)

Dengan membuat normalisasi database dari sebuah Struk Belanja dan membuat Web Designnya serta saya akan menampilkan hasil dari database tersebut kedalam Web menggunakan Visual Studio (ASP.NET)  dan juga terkoneksi Microsoft Office Access.

Rancangan ini dibuat dengan menggunakan normalisasi dengan cara UN-Normalized, 1NF, 2NF, 3NF dan juga Relasinya.

Berikut Adalah contoh Foto Struk yang akan dinormalisasikan :

Struk Penjualan Bengkel Firdaus

1. Rancangan Basis Data Menggunakan Normalisasi

        - Bentuk UN-NORMALIZED

Berikut adalah data apa adanya yang tertera pada struk normalisasi tersebut, tidak ada format dan inputan apapun.

Bentuk UNNORMALIZED

         - Bentuk NORMALIZED

Bentuk normal pertama jika relasi tersebut tidak mengandung atribut yang bernilai ganda, harus mengandung 1 nilai dan harus di isi datanya (tidak boleh kosong).

Bentuk NORMALIZED

            - Bentuk RELASI

Bentuk dari hubungan semua table yang sudah dibuat.

Bentuk RELASI

 

2. Bentuk Form pada Visual Studio

Setelah semua normalisasi dibuat pada Ms.Access , kemudian membuat Website pada Visual Studio (ASP.NET)

Form Visual Studio

Notifikasi Jika Berhasil menambahkan / menginput data

Notifikasi Jika Berhasil Mengubah / Mengedit Data

Notifikasi Jika Berhasil Menghapus Data

Hasil Inputan pada Database :

Hasil Inputan Database

- Berikut adalah Source Code yang digunakan :

Imports System.Data
Imports System.Data.OleDb

Public Class Data_Penjualan_Bengkel_Firdaus
    Inherits System.Web.UI.Page
    Dim koneksi As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Semester 5\Selasa\Bpk. Agus\TUGAS_UTS.mdb"
    Dim con As New OleDb.OleDbConnection(koneksi)
    Dim xReader As OleDb.OleDbDataReader

    Protected Sub btnInput_Click(sender As Object, e As EventArgs) Handles btnInput.Click
        con.Open()
        Dim add As String = "INSERT INTO TBL_UNNORMALIZED VALUES ('" + txtNo.Text + "','" + txtNamaBarang.Text + "','" + txtQty.Text + "','" + txtHargaSatuan.Text + "','" + txtJumlah.Text + "','" + txtJumlahTotal.Text + "','" + txtNamaPembeli.Text + "','" + txtTanggal.Text + "')"
        Dim cmd = New OleDbCommand(add, con)
        cmd.ExecuteNonQuery()
        con.Close()
        MsgBox("Berhasil Menambahkan List Data!")
    End Sub

    Protected Sub btnEdit_Click(sender As Object, e As EventArgs) Handles btnEdit.Click
        con.Open()
        Dim edit As String = "UPDATE TBL_UNNORMALIZED set QTY ='" + txtQty.Text + "' WHERE Nama_Barang = '" + txtNamaBarang.Text + "'"
        Dim cmd = New OleDbCommand(edit, con)
        cmd.ExecuteNonQuery()
        con.Close()
        MsgBox("Berhasil Mengubah Data!")
    End Sub

    Protected Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
        con.Open()
        Dim delete As String = "DELETE * From TBL_UNNORMALIZED WHERE Nama_Barang = '" + txtNamaBarang.Text + "'"
        Dim cmd = New OleDbCommand(delete, con)
        cmd.ExecuteNonQuery()
        con.Close()
        MsgBox("Berhasil Menghapus Data!")
    End Sub

   
End Class



Demikian Hasil Project yang telah saya buat.



Thanks & Regards,


JIKRI FIRDAUS