Program Database Visual Basic Connection (Ms. Access)

PENJELASAN PROGRAM

    Sekarang saya akan menjelaskan tentang program yang saya buat di Visual Basic 2012. Program ini bernama "Program Manajemen Data Bioskop CineMax 26", merupakan program manajemen data bioskop yang tidak hanya untuk meng-input data pemesanan tiket saja melainkan juga bisa membuat laporan data berdasarkan tiket bioskop yang terjual lengkap dengan kode transaksi, no. bangku, taggal pesan, waktu penayangan,  judul film dan harga tiket. Saya menggunakan data source Ms. Access yang diberi nama "Database Bioskop" dan mneggunaka Tabel Source yang diberi nama "Theatre 2".

     

CARA MENGGUNAKAN APLIKASI

Berikut adalah cara menggunakan aplikasi ini :

•      Pada saat program dijalankan , akan muncul form pemesanan untuk memesan tiket bioskop. Disitu terdapat tempat untuk mengisi : Kode Transaksi ( isi textbox kode transaksi dengan awalan "C0" lalu diikuti dengan nomor urut), No. Bangku (terdapat button "Lihat Tempat Duduk" disamping combobox No.Bangku untuk memudahkan customer melihat dimana posisi mereka duduk saat di dalam bioskop,lalu jika sudah menemtukan pilihan, pilihnomor bangku dari combobox yang disediakan), Tanggal Pesan (terdapat Date Time Picker untuk memudahkan customer memilih kapan mereka mau melihat film yang ditayangkan di bioskop), Judul Film (berupa combobox yang menyediakan pilihan film yang ditayangkan pada bulan tersebut), Show Time ( berupa combobox yang menyediakan pilihan waktu penayangan film di bioskop tersebut), Harga Tiket (berupa label yang menunjukan harga 1 tiket bioskop).
•      Setelah data diisi sesuai dengan permintaan customer, terdapat 6 button dan 1 button tambahan untuk memproses data. Button Tambah (dapat berubah tulisan menjadi "Simpan" jika user menekannya,bertujuan untuk menyimpan data yang telah dimasukan), Button Cari (untuk menemukan data yang telah disimpan dengan memasukan kode transaksi), Button Sunting(untuk memudahkan user untuk mengganti data apabila terjadi kesalahan input di peng-input-an sebelumnya), Button Cetak (untuk memperlihatkan hasil data yang di-input dalam bentuk laporan yang tersusun rapi), Button Lihat Data (untuk memastikan apakah data yang sudah diinput masuk ke dalam data base dengan memperlihatkan data di database), Button Tutup ( untuk keluar dari Program), Button Poster Film (untuk memperlihatkan Poster Film yang dipilih), Button Hapus Data (untuk menghapus data yang sudah di entri ke dalam database).
• Berikutnya ada Form "Tempat Duduk" yang fungsinya hanya untuk memperlihatkan posisi tempat duduk dalam bioskop. Untuk mengakses form ini, user hanya perlu menekan tombol "Lihat Tempat Duduk" yang ada disamping textbox No.Bangku
• Lalu ada form "Data Pemesanan" yang berfungsi untuk memperlihatkan data yang telah diinput. Untuk mengakses form ini, user hanya perlu menekan Button Browse.
• Kemudian form "Output Data" untuk menampilkan data dari form"Data Pemesanan" dalam bentuk laporan  yanh lebih rapi. Umtuk mnegakses form ini, user hanya perlu menekan Button Print".

Berikut merupakan hasil screen shoot program yang sedang running :

Berikut adalah Source Code Program :

Form 1

Imports System.Data

Imports System.Data.SqlClient

Imports System.Data.OleDb

Public Class Form1

    Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\DatabaseBioskop.accdb"

    Dim objKoneksi As New OleDb.OleDbConnection(koneksi)

    Dim xReader As OleDbDataReader

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

    End Sub

    Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click

        If btnAdd.Text = "Add" Then

            btnAdd.Text = "Save"

            txtTrans.Text = ""

            cmbNo.Text = ""

            cmbJudul.Text = ""

            cmbShow.Text = ""

            PictureBox1.Image = Nothing

            txtTrans.Focus()

        Else

            btnAdd.Text = "Add"

            objKoneksi.Open()

            Dim tambah As String = "Insert Into Theatre2 values ('" & txtTrans.Text & "','" & cmbNo.Text & "','" & DateTimePicker1.Text & "','" & cmbJudul.Text & "','" & cmbShow.Text & "','" & lblHarga.Text & "')"

            Dim OCMD = New OleDbCommand(tambah, objKoneksi)

            OCMD.ExecuteNonQuery()

            objKoneksi.Close()

            MsgBox("Sukses")

        End If

    End Sub

    Private Sub btnBrowse_Click(sender As Object, e As EventArgs) Handles btnBrowse.Click

        Form3.Show()

    End Sub

    Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click

        Me.Close()

    End Sub

    Private Sub btnFind_Click(sender As Object, e As EventArgs) Handles btnFind.Click

        Dim kode As String = InputBox("Masukan Kode Transaksi")

        If Not Len(kode) = 0 Then

            objKoneksi.Close()

            objKoneksi.Open()

            Dim cari As String = "SELECT * FROM Theatre2 where KodeTransaksi = '" + kode + "'"

            Dim ocmd = New OleDbCommand(cari, objKoneksi)

            xReader = ocmd.ExecuteReader

            If xReader.HasRows Then

                xReader.Read()

                txtTrans.Text = xReader("KodeTransaksi")

                cmbNo.Text = xReader("NoBangku")

                DateTimePicker1.Text = xReader("TanggalPesan")

                cmbJudul.Text = xReader("JudulFilm")

                cmbShow.Text = xReader("ShowTime")

                lblHarga.Text = xReader("HargaTiket")

            Else

                MsgBox("Kode Transaksi " + kode + " TIDAK ADA")

                Exit Sub

            End If

            xReader.close()

        End If

    End Sub

    Private Sub btnEdit_Click(sender As Object, e As EventArgs) Handles btnEdit.Click

        objKoneksi.Close()

        objKoneksi.Open()

        Dim ubah As String = "update Theatre2 set JudulFilm = '" & cmbJudul.Text & "' where TanggalPesan = '" & DateTimePicker1.Text & "'"

        Dim ocmd = New OleDbCommand(ubah, objKoneksi)

        ocmd.ExecuteNonQuery()

        objKoneksi.Close()

        MsgBox("Sukses")

    End Sub
   
 Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
        objKoneksi.Close()
        objKoneksi.Open()

        Dim Hapus As String = "DELETE FROM Theatre2 where KodeTransaksi = '" & txtTrans.Text & "'"
        Dim ocmd = New OleDbCommand(Hapus, objKoneksi)
        ocmd.ExecuteNonQuery()

        txtTrans.Text = ""
        cmbJudul.Text = ""
        cmbNo.Text = ""
        cmbShow.Text = ""

        MsgBox("Data Dihapus")

    End Sub

    Private Sub btnPrint_Click(sender As Object, e As EventArgs) Handles btnPrint.Click

        Form4.Show()

    End Sub

    Private Sub btnLihat_Click(sender As Object, e As EventArgs) Handles btnLihat.Click

        Form2.Show()

    End Sub

End Class

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

Form 3

Public Class Form3

    Private Sub Theatre2BindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles Theatre2BindingNavigatorSaveItem.Click

        Me.Validate()

        Me.Theatre2BindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.DatabaseBioskopDataSet)

    End Sub

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

        'TODO: This line of code loads data into the 'DatabaseBioskopDataSet.Theatre2' table. You can move, or remove it, as needed.

        Me.Theatre2TableAdapter.Fill(Me.DatabaseBioskopDataSet.Theatre2)

    End Sub

End Class

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

Form 4

Public Class Form4

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

        'TODO: This line of code loads data into the 'DatabaseBioskopDataSet.Theatre2' table. You can move, or remove it, as needed.

        Me.Theatre2TableAdapter.Fill(Me.DatabaseBioskopDataSet.Theatre2)

        Me.ReportViewer1.RefreshReport()

    End Sub

End Class