Newest Post
// On :Rabu, 10 Juli 2019
Slip Pembayaran Dengan Koneksi SQL SERVER
Slip / bukti pembayaran kuliah melalui Bank. tugas ini untuk memenuhi nilai UASMataKuliah BasisDataII. Dan menggunakan apalikasi visual studio Berikut adalah penjelasan dan contoh gambar dari slip pembayaran kuliah.
 |
| Bukti Slip Pembayaran |
Diatas adalah gambar bukti pembayaran kuliah.
1. Relasi
 |
| Relasi |
Relasi adalah sebagai hubungang.
selanjutnya adalah kita buat form dengan menggunakan VB.net dari visual studio berikut adalah gambar dari form slip pembayaran.
2. View DataBase
 |
| View DataBase |
3. Form Slip Pembayaran
Di atas adalah tampilan dari form slip pembayaran. dimana mempunyai inputan seperti, Tanggal/Jam , Jenis transaksi , data rekening , pembayaran kepada , no.tagihan , jumlah , biaya , no.referensi dan status.
4. Tampilan SQL SERVER
 |
| SQL SERVER |
5. Bentuk dari 1nf
Gambar Diatas adalah bentuk dari 1nf
- Merubah dari bentuk tabel tidak normal (unnormalized table) menjadi bentuk normal pertama (1NF)
6. bentuk dari 2nf
Gambar diatas adalah bentuk dari 2nf
- Menghilangkan duplikasi kolom dari tabel yang sama.
- Buat tabel terpisah untuk masing-masing kelompok data terkait dan mengidentifikasi setiap baris dengan kolom yang unik (primary key).
7.Bentuk dari 3nf
Gambar di atas adalah bentuk dari 3nf
normalisasi data dalam bentuk ketiga bertujuan untuk menghilangkan
seluruh atribut atau field yang sama sekali tidak berhubungan dengan
primary key.8. Source Code Dari Manipulasidata
Imports System.Data
Imports System.Data.SqlClient
Partial Class SlipPembayaran
Inherits System.Web.UI.Page
Dim Conn As SqlConnection
Dim Da As SqlDataAdapter
Dim Ds As DataSet
Dim Cmd As SqlCommand
Dim RD As SqlDataReader
Dim LokasiDB As String
Sub Koneksi()
LokasiDB = "data source=DESKTOP-BQBB64M\SQLEXPRESS;initial catalog=DB_KELVINGUNAWAN_161021450233;integrated security =true"
Conn = New SqlConnection(LokasiDB)
If Conn.State = ConnectionState.Closed Then Conn.Open()
End Sub
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Call Koneksi()
Dim simpan As String = "insert into slipPembayaran values ('" & txtjam.Text & "','" & txtjenis.Text & "','" & txtdari.Text & "', '" & txtpembayaran.Text & "','" & txtnotag.Text & "','" & txtjumlah.Text & "','" & txtbiaya.Text & "','" & txtref.Text & "','" & txtstatus.Text & "')"
Cmd = New SqlCommand(simpan, Conn)
Cmd.ExecuteNonQuery()
MsgBox("Input data berhasil")
End Sub
Protected Sub btnview_Click(sender As Object, e As EventArgs) Handles btnview.Click
Response.Redirect("view.aspx")
End Sub
Protected Sub btnclear_Click(sender As Object, e As EventArgs) Handles btnclear.Click
txtbiaya.Text = ""
txtdari.Text = ""
txtjam.Text = ""
txtjenis.Text = ""
txtjumlah.Text = ""
txtnotag.Text = ""
txtpembayaran.Text = ""
txtref.Text = ""
txtstatus.Text = ""
End Sub
Protected Sub btnsearch_Click(sender As Object, e As EventArgs) Handles btnsearch.Click
Call Koneksi()
Dim search As String = "select * from slipPembayaran where NoTagihan like '%" & TextCari.Text & "'"
Cmd = New SqlCommand(search, Conn)
Dim xReader As SqlDataReader
xReader = Cmd.ExecuteReader()
If xReader.HasRows Then
xReader.Read()
txtjam.Text = xReader("TanggalJam")
txtjenis.Text = xReader("JenisTransaksi")
txtdari.Text = xReader("DariRekening")
txtpembayaran.Text = xReader("PembayaranKepada")
txtnotag.Text = xReader("NoTagihan")
txtjumlah.Text = xReader("Jumlah")
txtbiaya.Text = xReader("Biaya")
txtref.Text = xReader("NoReferensi")
txtstatus.Text = xReader("Status")
btnsearch.Enabled = True
Else
MsgBox("Data Tidak Ditemukan")
Exit Sub
End If
Conn.Close()
End Sub
Imports System.Data.SqlClient
Partial Class SlipPembayaran
Inherits System.Web.UI.Page
Dim Conn As SqlConnection
Dim Da As SqlDataAdapter
Dim Ds As DataSet
Dim Cmd As SqlCommand
Dim RD As SqlDataReader
Dim LokasiDB As String
Sub Koneksi()
LokasiDB = "data source=DESKTOP-BQBB64M\SQLEXPRESS;initial catalog=DB_KELVINGUNAWAN_161021450233;integrated security =true"
Conn = New SqlConnection(LokasiDB)
If Conn.State = ConnectionState.Closed Then Conn.Open()
End Sub
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Call Koneksi()
Dim simpan As String = "insert into slipPembayaran values ('" & txtjam.Text & "','" & txtjenis.Text & "','" & txtdari.Text & "', '" & txtpembayaran.Text & "','" & txtnotag.Text & "','" & txtjumlah.Text & "','" & txtbiaya.Text & "','" & txtref.Text & "','" & txtstatus.Text & "')"
Cmd = New SqlCommand(simpan, Conn)
Cmd.ExecuteNonQuery()
MsgBox("Input data berhasil")
End Sub
Protected Sub btnview_Click(sender As Object, e As EventArgs) Handles btnview.Click
Response.Redirect("view.aspx")
End Sub
Protected Sub btnclear_Click(sender As Object, e As EventArgs) Handles btnclear.Click
txtbiaya.Text = ""
txtdari.Text = ""
txtjam.Text = ""
txtjenis.Text = ""
txtjumlah.Text = ""
txtnotag.Text = ""
txtpembayaran.Text = ""
txtref.Text = ""
txtstatus.Text = ""
End Sub
Protected Sub btnsearch_Click(sender As Object, e As EventArgs) Handles btnsearch.Click
Call Koneksi()
Dim search As String = "select * from slipPembayaran where NoTagihan like '%" & TextCari.Text & "'"
Cmd = New SqlCommand(search, Conn)
Dim xReader As SqlDataReader
xReader = Cmd.ExecuteReader()
If xReader.HasRows Then
xReader.Read()
txtjam.Text = xReader("TanggalJam")
txtjenis.Text = xReader("JenisTransaksi")
txtdari.Text = xReader("DariRekening")
txtpembayaran.Text = xReader("PembayaranKepada")
txtnotag.Text = xReader("NoTagihan")
txtjumlah.Text = xReader("Jumlah")
txtbiaya.Text = xReader("Biaya")
txtref.Text = xReader("NoReferensi")
txtstatus.Text = xReader("Status")
btnsearch.Enabled = True
Else
MsgBox("Data Tidak Ditemukan")
Exit Sub
End If
Conn.Close()
End Sub
Sekian pembahasan saya dari bentuk normalisasi kurang lebihnya saya mohon maaf terimaaksih..
