UAS LAB SMBD

Untuk tugas Ujian Akhir Semester Lab SMBD(Sistem Manajemen Basis Data) saya membuat aplikasi tempat sewa kostum menggunakan asp.net yang digunakan untuk mengelola data kostum toko tersebut yang memiliki 3 tabel,yaitu TabelKostum,TabelSewa dan TabelTransaksi.

Tabel Kostum

Tabel Sewa

Tabel Transaksi

Screenshoot desainnya adalah sebagai berikut

Desain Tabel Transaksi

Memiliki 4 tombol,yaitu insert,update,delete dan view. Tampilan data grid nya adalah sebagai berikut

Data Grid

Source Code

Imports System.Data

Imports System.Data.OleDb

Public Class WebFormSewaKostum

    Inherits System.Web.UI.Page

    Public constring As String = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString

    Public oConn As New OleDbConnection(constring)

    Public oTbl As New DataTable

    Public xReader As OleDbDataReader

    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

        Dim sql As String = "INSERT INTO TabelTransaksi VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')"

        Dim oCmd As New OleDbCommand

        oConn.Open()

        oCmd.Connection = oConn

        oCmd.CommandText = sql

        oCmd.ExecuteNonQuery()

    End Sub

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

        Dim sql As String = " UPDATE TabelTransaksi set NoTransaksi  ='" & TextBox1.Text & "', NoPenyewa = " & TextBox2.Text & ", KodeKostum = '" & TextBox3.Text & "', Jumlah = '" & TextBox4.Text & "' where TotalHarga = " & TextBox5.Text & ""

        Dim oCmd As New OleDbCommand

        oConn.Close()

        oConn.Open()

        oCmd.Connection = oConn

        oCmd.CommandText = sql

        oCmd.ExecuteNonQuery()

    End Sub

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

        Dim hapus = MsgBox("Konfirmasi", MsgBoxStyle.YesNo, "Hapus")

        If hapus = vbYes Then

            oConn.Close()

            oConn.Open()

            Dim delet As String = "DELETE FROM TabelTransaksi where NoTransaksi =" + TextBox1.Text + ""

            Dim oCmd As New OleDbCommand

            oConn.Close()

            oConn.Open()

            oCmd.Connection = oConn

            oCmd.CommandText = delet

            oCmd.ExecuteNonQuery()

            MsgBox("Sudah terhapus", vbArchive)

            TextBox1.Text = ""

            TextBox2.Text = ""

            TextBox3.Text = ""

            TextBox4.Text = ""

        End If

    End Sub

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

        Response.Redirect("WebForm1.aspx")

    End Sub

End Class