Perancangan Database pada sql server, web dan asp.net

Assalamualaikum wr.wb...

Untuk posting kali ini saya membuat aplikasi web dengan menggunakan sql server dan asp.net, pada aplikasi ini saya membuat data dari struk belanja dan saya membuat normalisasi dari struk tersebut, setelah terbentuk menjadi 3NF atau normalisasi ke tiga, baru lah saya buat database nya didalam sql server dan dijalankan pada visual studio.

Bentuk Normalisasi :

Jika sudah sampai proses normalisasi ke 3 seperti gambar diatas maka selanjutnya buka aplikasi Sql servernya

 Jika sudah terbuka maka akan muncul tampilan seperti ini

(Server Name  itu adalah nama PC kalian jika sudah terisi server namenya lalu tinggal klik connect saja)

Lalu akan muncul folder folder di kolom object explorer jika sudah muncul klik kanan difolder Databases > pilih New database maka akan muncul tampilan seperti ini

(isi Database Name sesuai keinginan kalian > Ok)

Jika sudah jadi database yg tadi kalian buat maka akan muncul tampilan seperti ini

(Jika Database yg tadi kalian buat belum muncul klik refresh dibagian atas kolom object explorer)

Jika tahap diatas sudah selesai selanjutnya kalian akan membuat table disini saya menggunakan 3 table caranya klik kanan difolder Table lalu pilih New Table maka akan muncul tampilan seperti ini

(Isi Colum Name sesuai kebutuhan kalian dan isikan Data type sesuai kebutuhan isi dari Colum Name tersebut untuk menyimpan tinggal klik tanda silang atau tekan Ctrl+s)(Jangan lupa ganti nama tablenya)

Jika sudah maka akan seperti gambar dibawah ini

Lalu isikan data pada masing-masing tablenya caranya klik kanan pada table yg ingin kalian isikan data lalu pilih Edit Top 200 Rows lalu akan muncul tampilan seperti ini

(Lalu isikan sesuai kebutuhan kalian)

Digambar atas saya memilih Table barang saja yg saya isi karna dilangkah selanjutnya saya akan coba menampilkan table barang ini disebuah browser lewat aplikasi Visual Studio 2012, tapi jika kalian ingin mengisi semua table itu terserah kalian.

Next step buka aplikasi visual studionya

Jika sudah terbuka visual studionya lalu pilih File > New > Web site maka akan muncul tampilan seperti ini

(Lalu pilih ASP.NET Empty Web Site lalu Ok)

Jika sudah muncul layar kosong lakukan langkah berikut ini

(isikan item name sesuai keinginan kalian)

Maka akan muncul tampilan seperti ini

(pilih tulisan Design yg sudah saya berikan tanda kotak merah)

Jika sudah lalu desain seperti ini

Jika Desain sudah sekarang kalian harus mensetting Gridviewnya agar terhubung dengan data di Sql server yg tadi kalian buat caranya seperti gambar dibawah ini

(Kenapa digambar ada tulisan SqlDataSource1 sedangkan dilaptop atau pc kalian tidak? Karna Gridview saya itu sudah saya hubungkan dengan data di sql saya)

Jika sudah maka akan muncul tampilan seperti ini

(Pilih SQL > Ok)

Maka akan muncul tampilan seperti ini

(Pilih New Connection maka akan muncul tampilan seperti digambar isikan server name seperti langkah pertama kali lalu dikolom select or enter a database name pilih database yg tadi kalian buat di sql servernya lalu test connection jika sukses maka akan tampil seperti di gambar lalu ok)

Lalu akan muncul tampilan seperti ini

(Copy source code yg saya kasih tanda kotak merah lalu pindahkan ke Notepad karna ini nantinya akan digunakan)(Jika sudah next saja sampai keluar gambar sepeti ini)

(Nah disini kalian akan memilih table mana yg akan kalian tampilkan di browser nanti sebagai contoh saya akan menampilkan table barang, Jika sudah next lalu cari tulisan Test Query lalu klik itu untuk memastikan apakah table akan dimunculkan dibrowser sama dengan keinginan kalian lalu Finish)

Nah Gridview sudah terhubung dengan data di sql server sekarang lanjut kita koding deh Button-buttonnya disini saya akan lampirkan source code masing-masing Button secara terpisah sudah tahu kan cara memasukan source ke buttonnya? Jika belum klik 2x saja button apa yg akan kalian berikan source code atau memberikan fungsi pada si Button.

Button Insert

dbConn()

        Dim query As New SqlCommand("Insert Into Table_Barang values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.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("UTS.aspx")

Button Edit

dbConn()

        Dim query As New SqlCommand("Update Table_Barang set Nama_Barang = '" & TextBox2.Text & "', Harga_Satuan = '" & TextBox3.Text & "' where Kode_Barang='" & 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("UTS.aspx")

Button Delete

dbConn()

        Dim query As New SqlCommand("Delete Table_Barang where Kode_Barang = '" & 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("UTS.aspx")

Button Refresh

clear()

(Masih banyak yg error? Tenang jgn panik inikan belum kelar source codenya)

Tambahkan Source code ini dipaling atas diatas tulisan "Partial Class UTS"

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-V2SAOF1;Initial Catalog=UTS;Integrated Security=True"

        sqlCon = New SqlConnection(server)

        sqlCon.Open()

    End Sub

End Module

(Ganti source code disebelah tulisan "server =" dengan source code yg tadi saya minta pindahkan ke notepad)

Tambahkan Source Code ini dibawah tulisan "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 Table_Barang"

        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 = ""

    End Sub

(Oke udah tidak ada yg error kan)

Nah semua sudah selesai sekarang kita coba liat hasilnya deh

Oke Semua berjalan lancar. Selamat mencoba