Muhamad Irsan Firdaus

Perancangan Basis Data SQL SERVER 2012 Dan Visual Studio Menggunakan Metode Normalisasi

Deskripsi

Pada postingan kali ini saya menulis tentang perancangan Basis Data dari sebuah struk Apotek, rancangan ini meliputi Unnormalized, 1NF, 2NF, 3NF, Setelah itu membuat tabel pada SQL Server 2012, Terakhir buat Project Web dengan Visual Studio Dan Koneksikan Database tersebut.

Struk Pembelian

Struk Apotek

Bentuk Unnormalized

Bentuk Normal 1NF

Bentuk Normal 2NF

Bentuk Normal 3NF

Basis Data Pada SQL Server

Tabel Barang

Tabel Kasir

Tabel Penjualan

WEBSITE Pada Visual Studio

Tabel Barang

Imports System.Data.Sql

Imports System.Data.SqlClient

Partial Class Tabel_Barang

    Inherits System.Web.UI.Page

    Public CON As SqlConnection

    Public CMD As SqlCommand

    Public DR As SqlDataReader

    Sub Koneksi()

        Try

            CON = New SqlConnection("Data Source=RUMGA;Initial Catalog=Muhamad_Irsan_Firdaus;Integrated Security=True")

            CON.Open()

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

    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

        Call Koneksi()

        Dim Input As String

        Input = "insert into Tabel_Barang values('" & TextBox2.Text & "','" & TextBox3.Text & "')"

        CMD = New SqlCommand(Input, CON)

        CMD.ExecuteNonQuery()

        MsgBox("Berhasil")

        Response.Redirect("Tabel_Barang.aspx")

    End Sub

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

        TextBox2.Text = ""

        TextBox3.Text = ""

    End Sub

End Class

Tabel Kasir

Imports System.Data.Sql

Imports System.Data.SqlClient

Partial Class Tabel_Kasir

    Inherits System.Web.UI.Page

    Public CON As SqlConnection

    Public CMD As SqlCommand

    Public DR As SqlDataReader

    Sub Koneksi()

        Try

            CON = New SqlConnection("Data Source=RUMGA;Initial Catalog=Muhamad_Irsan_Firdaus;Integrated Security=True")

            CON.Open()

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

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

    End Sub

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

        Call Koneksi()

        Dim Input As String

        Input = "insert into Tabel_Kasir values('" & TextBox6.Text & "','" & TextBox7.Text & "')"

        CMD = New SqlCommand(Input, CON)

        CMD.ExecuteNonQuery()

        MsgBox("Berhasil")

        Response.Redirect("Tabel_Kasir.aspx")

    End Sub

    Protected Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

        TextBox6.Text = ""

        TextBox7.Text = ""

    End Sub

End Class

Tabel Penjualan

Imports System.Data.Sql

Imports System.Data.SqlClient

Partial Class Tabel_Penjualan

    Inherits System.Web.UI.Page

    Public CON As SqlConnection

    Public CMD As SqlCommand

    Public DR As SqlDataReader

    Sub Koneksi()

        Try

            CON = New SqlConnection("Data Source=RUMGA;Initial Catalog=Muhamad_Irsan_Firdaus;Integrated Security=True")

            CON.Open()

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

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

        End Sub

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

        Call Koneksi()

        Dim Input As String

        Input = "insert into Tabel_Penjualan values('" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "','" & TextBox10.Text & "','" & TextBox11.Text & "')"

        CMD = New SqlCommand(Input, CON)

        CMD.ExecuteNonQuery()

        MsgBox("Berhasil")

        Response.Redirect("Tabel_Penjualan.aspx")

    End Sub

    Protected Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

        TextBox6.Text = ""

        TextBox7.Text = ""

        TextBox8.Text = ""

        TextBox9.Text = ""

        TextBox10.Text = ""

        TextBox11.Text = ""

    End Sub

End Class

Sekian laporan dari saya

Terimakasih,