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