UTS PEMROGRAMAN BISNIS 2

PESAN TIKET PESAWAT GARUDA INDONESIA

DATABASE AWAL:

DATABASE TIKET PESAWAT

DATABASE HARGA TIKET PESAWAT 

Di dalam aplikasi yang saya buat ini, pengguna hanya perlu mengisikan data dirinya secara manual, dan untuk kolom "Harga Tiket Satuan" diisikan manual juga dengan melihat daftar harga tiket pesawat dari 3 tipe kelas yang ditawarkan. 

Saya juga menggunakan 2 Database pada 2 DataGrid yaitu Database Harga untuk data harga tiket pesawat, dan Database Tiket Pesawat untuk data pemesanan tiket.

Pada Database Harga, harga yang dimunculkan hanyalah kota tujuan, karena perusahaan Garuda Indonesia tidak mempermasalahkan asal keberangkatan. Sehingga tarif yang ditetapkan bergantung pada tujuan keberangkatan tersebut.

--------------------------------------------------------------------------------------------------------------------------

PENGGUNAAN APLIKASI

1. Ketik secara manual seluruh data dari kolom " Nama Penumpang " sampai "Banyak Tiket Yang Dipesan"

2. Pilih tipe kelas yang diinginkan pada kolom "Tipe Kelas"

3. Ketik secara manual kolom "Harga Tiket Satuan" sesuai dengan daftar harga yang ada disamping 

kolom-kolom pengisian data pemesanan tiket

4. Klik tombol "Calculate" untuk menghitung jumlah uang yang harus dibayar pada pengisian kolom "Jumlah Yang Harus Dibayar"

5. Klik tombol "Booking" untuk mengkonfirmasi pemesanan tiket

6. Klik tombol "Check Hasil" untuk melihat apakah tiket pemesanan kita sudah terdaftar atau belum

Penjelasan Aplikasi :

Pada aplikasi ini, saya menggunakan 2 Form yang terdiri dari :

Form 1 : berisi ketentuan untuk pemesanan tiket pesawat Garuda Indonesia

Form 2 : berisi daftar hasil penumpang yang memesan tiket pesawat Garuda Indonesia

Di dalam Form 1 yang berisi ketentuan untuk pemesanan tiket pesawat Garuda Indonesia, saya menggunakan Label, Textbox, Combobox, DataGridView, dan Button. Berikut Rinciannya 

Judul "Form Tiket Pesawat Garuda Indonesia" : Label1

Nama Penumpang : Label2, Textbox1

No Identitas : Label3, Textbox2

Hari Keberangkatan : Label4, Textbox3

Jam Keberangkatan : Label5, Textbox4

Asal Keberangkatan : Label6, Textbox5

Tujuan Keberangkatan : Label7, Textbox6

Banyak Tiket Yang Dipesan : Label8, Textbox7 

Tipe Kelas : Label9, Combobox1

Harga Tiket Satuan : Label10, Textbox8

Booking : Button1

Calculate : Button2

Check Hasil : Button3

List Harga Tiket : DataGridView1

Didalam Form2 yang berisi daftar hasil penumpang yang memesan tiket pesawat Garuda Indonesia, saya menggunakan Label dan DataGridView

Judul "Form Bukti Pemesanan Tiket" : Label1

List Data Penumpang Yang Memesan Tiket : DataGridView1

pada aplikasi ini, saya juga menggunakan 2 Database yang terdiri dari :

 Source Code :

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb

Public Class Form1
    Dim koneksitiket As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\ASUS\Documents\Access Syavira\DatabaseTiketPesawat.accdb"
    Dim objkoneksitiket As New OleDb.OleDbConnection(koneksitiket)
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'DatabaseHargaDataSet.TableHargaTiket' table. You can move, or remove it, as needed.
        Me.TableHargaTiketTableAdapter.Fill(Me.DatabaseHargaDataSet.TableHargaTiket)
        'TODO: This line of code loads data into the 'DatabaseTiketPesawatDataSet.TableTiketPesawat' table. You can move, or remove it, as needed.
        Me.TableTiketPesawatTableAdapter.Fill(Me.DatabaseTiketPesawatDataSet.TableTiketPesawat)

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        objkoneksitiket.Open()
        Dim add As String = "Insert into TableTiketPesawat values('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & TextBox3.Text & "', '" & TextBox4.Text & "', '" & TextBox5.Text & "', '" & TextBox6.Text & "', '" & TextBox7.Text & "', '" & ComboBox1.Text & "', '" & TextBox8.Text & "', '" & TextBox9.Text & "')"
        Dim ocmd = New OleDbCommand(add, objkoneksitiket)
        ocmd.ExecuteNonQuery()
        MsgBox("Tiket Berhasil Dibooking!")
        objkoneksitiket.Close()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        TextBox9.Text = TextBox7.Text * TextBox8.Text
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Form2.Show()
    End Sub
End Class