UTS Lab SMBD : Normalisasi Database

Berikut ini normalisasi dalam Database Sewa Kostum

NORMALISASI

1NF

SEWA(NoPenyewa,KodeKostum,NamaPenyewa,TanggalSewa,NamaKostum,TipeKostum,Harga,TanggalPengembalian,LamaHari)

2NF

TabelSewa(NoPenyewa,KodeKostum,NamaPenyewa,TanggalSewa)
TabelKostum(KodeKostum,NamaKostum,TipeKostum,Harga)
TabelPeminjaman(TanggalSewa,TanggalPengembalian,LamaHari)

3NF sama dengan 2NF

3NF dalam Ms Access

Tabel Sewa

Tabel Kostum

Tabel Peminjaman

Query 

Tampilan data dalam website

SOURCE CODE

Imports System.Data

Imports System.Data.OleDb

Public Class WebForm1

    Inherits System.Web.UI.Page

    Public constring As String = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString

    Public oConn As New OleDbConnection(constring)

    Public oTbl As New DataTable

    Public xReader As OleDbDataReader

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

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

        Dim sql As String = "INSERT INTO TabelSewa VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"

        Dim oCmd As New OleDbCommand

        oConn.Open()

        oCmd.Connection = oConn

        oCmd.CommandText = sql

        oCmd.ExecuteNonQuery()

    End Sub

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

        Response.Redirect("WebForm1.aspx")

    End Sub

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

        Dim hapus = MsgBox("Konfirmasi", MsgBoxStyle.YesNo, "Hapus")

        If hapus = vbYes Then

            oConn.Close()

            oConn.Open()

            Dim delet As String = "DELETE FROM TabelSewa where NoPenyewa =" + TextBox1.Text + ""

            Dim oCmd As New OleDbCommand

            oConn.Close()

            oConn.Open()

            oCmd.Connection = oConn

            oCmd.CommandText = delet

            oCmd.ExecuteNonQuery()

            MsgBox("Sudah terhapus", vbArchive)

            TextBox1.Text = ""

            TextBox2.Text = ""

            TextBox3.Text = ""

            TextBox4.Text = ""

        End If

    End Sub

    Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        Dim sql As String = " UPDATE TabelSewa set NoPenyewa  ='" & TextBox1.Text & "', KodeKostum = " & TextBox2.Text & ", NamaPenyewa = '" & TextBox3.Text & "' where TanggalSewa = " & TextBox4.Text & ""

        Dim oCmd As New OleDbCommand

        oConn.Close()

        oConn.Open()

        oCmd.Connection = oConn

        oCmd.CommandText = sql

        oCmd.ExecuteNonQuery()

    End Sub

    Protected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        oConn.Close()

        oConn.Open()

        Dim Cmd As New OleDbCommand("SELECT * FROM TabelSewa where NoPenyewa =" + TextBox1.Text + "", oConn)

        xReader = Cmd.ExecuteReader

        If xReader.HasRows Then

            xReader.Read()

            TextBox2.Text = xReader("KodeKostum")

            TextBox3.Text = xReader("NamaPenyewa")

            TextBox4.Text = xReader("TanggalSewa")

        Else

            MsgBox("Nomor Penyewa Tidak Ditemukan")

            TextBox1.Text = ""

            TextBox2.Text = ""

            TextBox3.Text = ""

            TextBox4.Text = ""

            Exit Sub

        End If

        xReader.Close()

    End Sub

End Class