TIKET PESAWAT (UAS LAB SMBD)

TIKET PESAWAT

Aplikasi ini sangat berguna saat mencari tiket untuk liburan menggunakan pesawat

1. Table Tiket Customer

2.  Table Customer

3.  Table Tiket Penerbangan

4. Tampilan DBMS

 
CODING

Imports System.Data

Imports System.Data.OleDb

Public Class WebForm1

    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 INSERT_Click(sender As Object, e As EventArgs) Handles INSERT.Click

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

        Dim oCmd As New OleDbCommand

        oConn.Open()

        oCmd.Connection = oConn

        oCmd.CommandText = sql

        oCmd.ExecuteNonQuery()

    End Sub

    Protected Sub DELETE_Click(sender As Object, e As EventArgs) Handles DELETE.Click

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

        If hapus = vbYes Then

            oConn.Close()

            oConn.Open()

            Dim delet As String = "DELETE FROM Table_Customer""

            Dim oCmd As New OleDbCommand

            oConn.Close()

            oConn.Open()

            oCmd.Connection = oConn

            oCmd.CommandText = delete

            oCmd.ExecuteNonQuery()

            MsgBox("Sudah terhapus", vbArchive)

            TextBox1.Text = ""

            TextBox2.Text = ""

            TextBox3.Text = ""

            TextBox4.Text = ""

        End If

    End Sub

    Protected Sub UPDATE_Click(sender As Object, e As EventArgs) Handles UPDATE.Click

        Dim sql As String = " UPDATE ""

        Dim oCmd As New OleDbCommand

        oConn.Close()

        oConn.Open()

        oCmd.Connection = oConn

        oCmd.CommandText = sql

        oCmd.ExecuteNonQuery()

    End Sub

    Protected Sub VIEW_Click(sender As Object, e As EventArgs) Handles VIEW.Click

        Response.Redirect("WebForm2.aspx")

    End Sub

    Protected Sub SEARCH_Click(sender As Object, e As EventArgs) Handles SEARCH.Click

        oConn.Close()

        oConn.Open()

        Dim Cmd As New OleDbCommand("SELECT * FROM Table_Tiket Pesawat"", oConn)

        xReader = Cmd.ExecuteReader

        If xReader.HasRows Then

            xReader.Read()

            TextBox1.Text = xReader("")

            TextBox2.Text = xReader("")

            TextBox3.Text = xReader("")

        Else

            MsgBox("Data tiket Pesawat tidak ada")

            TextBox1.Text = ""

            TextBoxt2.Text = ""

            TextBox3.Text = ""

            TextBox4.Text = ""

            Exit Sub

        End If

        xReader.Close()

    End Sub

End Class