Pemesanan Tiket Pesawat

Oleh : AHMAD RAFI’I (1506761192)

Berikut adalah database yang saya gunakanuntuk Pemesanan Tiket Pesawat

*1NF (table1) = Kode Pesawat,Nama Pesawat, Tanggal pemesanan, Jumlah Tiket

*2NF (tabel2) = Nama Pemesan, Tanggal Penerbangan, Jam Penerbangan, Berat Bagasi

*3NF(tabel3) = Nomor Tiket Pesawat, Kode Pesawat, Nama Pemesan,Tanggal Penerbangan, Jam Penerbangan, Tanggal Pemesanan, Berat Bagasi

Menggunakan Coddingan Visual Basic :

Imports System.Data

Imports System.Data.OleDb

Public Class WebForm2

    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

    'Insert

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

        Dim sql As String = "INSERT INTO Table_RentalMobil VALUES ('" & TxtIDPenyewa.Text & "','" & txtNama.Text & "','" & txtIDMerk.Text & "','" & txtTingkatHarga.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

        Response.Redirect("WebForm1.aspx")

    End Sub

    'Delete

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

        Dim hapus = MsgBox("Konfirmasi", "Hapus")

        If hapus = vbYes Then

            oConn.Close()

            oConn.Open()

            Dim delet As String = "DELETE FROM Table_RentalMobil where ID_Penyewa =" + TxtIDPenyewa.Text + ""

            Dim oCmd As New OleDbCommand

            oConn.Close()

            oConn.Open()

            oCmd.Connection = oConn

            oCmd.CommandText = delet

            oCmd.ExecuteNonQuery()

            MsgBox("Sudah terhapus", vbArchive)

            TxtIDPenyewa.Text = ""

            txtNama.Text = ""

            txtIDMerk.Text = ""

            txtTingkatHarga.Text = ""

        End If

    End Sub

    'Search

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

        oConn.Close()

        oConn.Open()

        Dim Cmd As New OleDbCommand("SELECT * FROM Table_Rental where ID_Penyewa =" + TxtIDPenyewa.Text + "", oConn)

        xReader = Cmd.ExecuteReader

        If xReader.HasRows Then

            xReader.Read()

            txtNama.Text = xReader("Nama_Penyewa")

            txtIDMerk.Text = xReader("ID_Merk")

            txtTingkatHarga.Text = xReader("Tingkatan_Harga")

        Else

            MsgBox("Kode Buku Tidak Ada")

            TxtIDPenyewa.Text = ""

            txtNama.Text = ""

            txtIDMerk.Text = ""

            txtTingkatHarga.Text = ""

            Exit Sub

        End If

        xReader.Close()

    End Sub

    'Update

    Protected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        Dim sql As String = " UPDATE Table_RentalMobil set Nama_Penyewa  ='" & txtNama.Text & "', ID_Merk = " & txtIDMerk.Text & ", Tingkatan_Harga = '" & txtTingkatHarga.Text & "' where ID_Penyewa = " & TxtIDPenyewa.Text & ""

        Dim oCmd As New OleDbCommand

        oConn.Close()

        oConn.Open()

        oCmd.Connection = oConn

        oCmd.CommandText = sql

        oCmd.ExecuteNonQuery()

    End Sub

End Class

PEMESANAN TIKET

A.      Penjelasan

Adalah aplikasi yang sederhana dan di gunakan untuk pemesanan tiket pesawat Garuda, CitiLink, AdamAir, SusiAir, dan Lion. Untuk kelas nya pun ada Internasional,  Bisnis, dan Ekonomi.

B.      Untuk toolbox yang digunakan:

1.       Button 6

2.       Label 3

3.       ComboBox 1

4.       DataBase 1

C.      Coddingan

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load


    End Sub
    Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Q\DataBarang.accdb"
    Dim objekkoneksi As New OleDb.OleDbConnection(koneksi)
    Dim xreader As OleDbDataReader
   
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        objekkoneksi.Close()
        objekkoneksi.Open()
        Dim tambah As String = "INSERT INTO TabelBarang values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & ComboBox1.Text & "')"
        Dim ocmd = New OleDbCommand(tambah, objekkoneksi)
        ocmd.ExecuteNonQuery()
        objekkoneksi.Close()
        MsgBox("Sukses")

        Form2.Show()

    End Sub


    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim VKode = InputBox("Masukkan Kode Barang")

        objekkoneksi.Close()
        objekkoneksi.Open()
        Dim ocmd As New OleDbCommand("SELECT*FROM TabelBarang where KodeBarang = '" + VKode + "'", objekkoneksi)
        xreader = ocmd.ExecuteReader

        If xreader.HasRows Then
            xreader.Read()
            TextBox1.Text = xreader("KodeBarang")
            TextBox2.Text = xreader("NamaBarang")
            ComboBox1.Text = xreader("StokBarang")
        Else
            MsgBox("Kode Barang Tidak Ada")
            Exit Sub

        End If
        xreader.Close()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim sql As String = "update TabelBarang set NamaBarang='" + TextBox2.Text + "' where KodeBarang = '" + TextBox1.Text + "'"
        Dim ocmd As New OleDbCommand
        objekkoneksi.Close()

        objekkoneksi.Open()
        ocmd.Connection = objekkoneksi
        ocmd.CommandText = sql
        ocmd.ExecuteNonQuery()


    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Form2.Show()

    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Dim x As Integer
        x = MsgBox("Konfirmasi", MsgBoxStyle.OkCancel)
        If x = vbOK Then
            Dim sql As String = "DELETE From TabelBarang where NamaBarang = '" + TextBox2.Text + "'"
        Dim ocmd As New OleDbCommand
        objekkoneksi.Close()

        objekkoneksi.Open()
        ocmd.Connection = objekkoneksi
        ocmd.CommandText = sql
            ocmd.ExecuteNonQuery()

        End If


    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs)
        Form3.Show()

    End Sub

    Private Sub TextBox1_LostFocus(sender As Object, e As EventArgs) Handles TextBox1.LostFocus


        objekkoneksi.Close()
        objekkoneksi.Open()
        Dim ocmd As New OleDbCommand("SELECT*FROM TabelBarang where KodeBarang = '" + TextBox1.Text + "'", objekkoneksi)
        xreader = ocmd.ExecuteReader

        If xreader.HasRows Then
            xreader.Read()
            Dim mKode = MsgBox("sudah ada")
        End If

    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Me.Close()
    End Sub
End Class