Tugas uas perancangan basis data_sql server

PERANCANGAN APLIKASI KASIR DENGAN MENGGUNAKAN SQL server dan VISUAL STUDIO

Pada kesempatan kali ini saya akan menulis projek tentang perancangan basis data dari struk belanja, dan perancangannya menggunakan SQL server dan VISUAL STUDIO yang terkoneksi dengan database.

Struk belanja

Tahapan unnormalized
          unnormalized adalah suatu kondisi dimana sebuah tabel yang memiliki rangkap atau data yang terduplikasi. dalam perancangan database yang baik, hal ini tentunya akan mengurangi efesiensi.

Bentuk normal

membuat program pada SQL server

source codenya struk belanja

Imports System.Data.Sql

Imports System.Data.SqlClient

Public Class Struk_belanja

    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=YOESOEF-PC\SQLEXPRESS;Initial Catalog=Muhammd_yusuf;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 Save As String

        Save = "insert into Struk_belanja values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "')"

        CMD = New SqlCommand(Save, CON)

        CMD.ExecuteNonQuery()

        MsgBox("Berhasil")

        Response.Redirect("Struk_belanja.aspx")

source code tbl barang

Imports System.Data.Sql
Imports System.Data.SqlClient
Public Class tbl_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=YOESOEF-PC\SQLEXPRESS;Initial Catalog=Muhammd_yusuf;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 Save As String
        Save = "insert into tbl_barang values('" & TextBox1.Text & "','" & TextBox2.Text & "')"
        CMD = New SqlCommand(Save, CON)
        CMD.ExecuteNonQuery()
        MsgBox("Berhasil")
        Response.Redirect("tbl_barang.aspx")

source code tbl kasir

Imports System.Data.Sql
Imports System.Data.SqlClient
Public Class tbl_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=YOESOEF-PC\SQLEXPRESS;Initial Catalog=Muhammd_yusuf;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 Save As String
        Save = "insert into tbl_Kasir values('" & TextBox1.Text & "','" & TextBox2.Text & "')"
        CMD = New SqlCommand(Save, CON)
        CMD.ExecuteNonQuery()
        MsgBox("Berhasil")
        Response.Redirect("tbl_kasir.aspx")

mungkin sekian pada kesempatan kali ini, mohon maaf banyak kurang dan salah" kata.
terima kasih.