Perancangan Basis Data Menggunakan Microsoft SQL Server dan Visual Studio dari Sebuah Struk

Assalamualaikum Warohmatullahi Wabarokaatuh

Ketemu lagi di postingan saya yang selanjutnya J

Untuk kali ini sayan akan membuat postingan web dengan menggunakan sql server dan asp.net, pada aplikasi ini saya membuat data dari struk pembelanjaan obat, kemudian di normalisasikan.

Pada NF3 terdapat empat tabel, yaitu Tabel Barang, Tabel Pembelian, Tabel Transaksi, dan Tabel Transaksi Barang.

Tabel Unnormalisasi

Tabel 1NF

Tabel 2NF

Tabel 3NF

Setelah itu buat tabel-tabel pada SQL Server berdasarkan normalisasi ketiga/NF3. 

Cara membuat database(tabel) pada SQL Server :

- Klik kanan pada folder database pilih new database

- Ketik nama database yang diinginkan kemudian klik ok

- Buka folder database tersebut dan cari folder “Table”, klik kanan pada folder “Table” pilih

   new table

- Isi field-field tersebut sesuai data yang dibutuhkan kemudian save.

Ini adalah ss dari tabel-tabel tersebut

Tabel Barang

Tabel Pembelian

Tabel Transaksi

Tabel Transaksi Barang

Langkah selanjunya yaitu buat tabel pada aplikasi Visual studio 2012

Tabel yang saya ambil di SQL Server yang nantinya akan dijalankan/run melalui Visual Studio 2012 hanya satu yaitu Tabel Transaksi Barang.

Cara :

- Buka Microsoft Visual Studio

- Pilih File > New Web Site pilih ASP.NET Empity Web Site klik OK

- Klik kanan pada nama website yang sudah di buat, kemudian pilih Add > Web Form buat nama file nya kemudian pilih OK

- Buat Desain, contoh yang saya buat hanya seperti dibawah ini

Didalam desain tersebut terdapat label, textbox, button dan gridview.

Cara memasukkan data dari SQL Server nya dengan cara klik tanda panah keci disebelah kanan atas pada Gridview kemudian pilih Choose Data Source > New Data Source pilih SQL Database > OK. Pilih New Connection kemudian isi Servername. Untuk konek ke database pilih file nya di Select or enter a database name klik OK.

Setelah selesai semuanya, waktunya untuk kodiiiiiing :D

Imports System.Data

Imports System.Data.OleDb

Imports System.Data.SqlClient

Module Module1

    Public sqlCon As New SqlConnection

    Public Sub dbConn()

        Dim server As String

        server = "Data Source=DESKTOP-C76EJ1N;Initial Catalog=UTS;Integrated Security=True"

        sqlCon = New SqlConnection(server)

        sqlCon.Open()

    End Sub

End Module

Partial Class tabelapotek

    Inherits System.Web.UI.Page

    Dim sql As String

    Dim da As SqlDataAdapter

    Dim ds As DataSet

    Dim dt As DataTable

    Dim xReader As SqlDataReader

    Sub tampil_data()

        clear()

        dbConn()

        sql = "Select * From TabelTransaksiBarang"

        Dim da = New SqlDataAdapter(sql, sqlCon)

        Dim ds = New Data.DataSet

        ds.Reset()

        da.Fill(ds)

        GridView1.DataSource = ds.Tables(0)

    End Sub

    Sub clear()

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

    End Sub

Source Code untuk button Insert

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

        dbConn()

        Dim query As New SqlCommand("Insert Into TabelTransaksiBarang values('" & TextBox2.Text & "','" & TextBox1.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')", sqlCon)

        Dim x = query.ExecuteNonQuery()

        If x = 1 Then

            MsgBox("Data Berhasil Disimpan", MsgBoxStyle.Information, "Sukses")

            tampil_data()

        Else

            MsgBox("Data Gagal Disimpan", MsgBoxStyle.Critical, "Gagal")

        End If

        sqlCon.Close()

        Response.Redirect("tabelapotek.aspx")

    End Sub

Source Code untuk button Delete

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

        dbConn()

        Dim query As New SqlCommand("Delete TabelTransaksiBarang where KodeBarang = '" & TextBox1.Text & "'", sqlCon)

        Dim x = query.ExecuteNonQuery()

        If x = 1 Then

            MsgBox("Data Berhasil di Hapus", MsgBoxStyle.Information, "Sukses")

            tampil_data()

        Else

            MsgBox("Data Gagal di Hapus", MsgBoxStyle.Critical, "Gagal")

        End If

        sqlCon.Close()

        Response.Redirect("tabelapotek.aspx")

    End Sub

Source Code untuk button Edit

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

        dbConn()

        Dim query As New SqlCommand("Update TabelTransaksiBarang set NoTransaksi ='" & TextBox2.Text & "', Harga ='" & TextBox3.Text & "', Quantity ='" & TextBox4.Text & "', Jumlah='" & TextBox5.Text & "' where KodeBarang = '" & TextBox1.Text & "'", sqlCon)

        Dim x = query.ExecuteNonQuery()

        If x = 1 Then

            MsgBox("Data Berhasil di Edit", MsgBoxStyle.Information, "Sukses")

            tampil_data()

        Else

            MsgBox("Data Gagal di Edit", MsgBoxStyle.Critical, "Gagal")

        End If

        sqlCon.Close()

        Response.Redirect("tabelapotek.aspx")

    End Sub

Source Code untuk button Refresh

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

        clear()

    End Sub

End Class

Setelah semua source code nya selesai, waktunya kita untuk melakukan proses running nya dengan cara tekan tombol F5. Maka aplikasi akan berjalan seperti dibawah ini.

Selesai.. semoga bermanfaat yaa.. :) mohon maaf apabila ada salahnya, karena saya juga baru belajar, hehe...