Halo! Selamat Tahun baru bagi kita semua!
Pada sore hari ini, saya akan menjelaskan
mengenai koneksi database pada Microsoft Visual Studio 2008.
Project yang saya buat kali mengenai
Program Pemesanan Tiket Penerbangan di
Indonesia.
1.Pertama,
yang kita butuhkan adalah databasenya terlebih dahulu. Nah, database ini bisa
kita buat melalui Microsoft Office Access.
Seperti Ini databasenya. (2 Table dan 1
Query)
a.
Kemudian Querynya
2. Kedua,
Setelah database selesai, selanjutnya siapkan formnya. Di project ini, terdapat
5 form yang selanjutnya akan saya jelaskan per bagian.
Form 1 adalah form halaman utama, form ini bisa dibuat melalui MDI Parent Form (Project>Add new item>MDI Parent Form) atau bisa melalui Windows Form biasa dengan tambahan tools MenuStrip
3. Ketiga,
Setelah menyiapkan form 1, selanjutnya persiapkan form 2 dan form 3 untuk
database yang sudah dibuat sebelumnya. Form 2 dan 3 ini disambungkan dengan
Form Penumpang yang terdapat di Form MDI Parent
Sebelum itu, sambungkan database tadi ke
projectnya. Caranya seperti ini:
a.Klik data>Show Data Source>Add Data
Source hingga muncul menu seperti dibawah ini
Pilih Database, kemudian klik next
Selanjutnya akan muncul menu ini, Pilih New Connection
Pilih Browse, kemudian pilih file database
yang tadi sudah dibuat
Selanjutnya, klik Ok, kemudian Next
Ceklist bar Tables untuk Table yang ada di
database dan bar Views untuk Querynya, klik Finish
4.
Di tab Data Sources akan muncul seperti ini
Buat form 2 , lalu drag and drop isi dari
tab Penumpang,dan atur menjadi seperti dibawah ini:
Dan ketika di Debug menjadi seperti dibawah
ini
7.Sekarang
kita akan membuat Report Viewernya
Buat Form 3, tambahkan Microsoft Report
Viewer yang terdapat di toolbox.
Kemudian buat Report Wizardnya dengan cara,
Project>Add New Item>Report Wizard
Klik Next
Pilih Tab Penumpang, kemudian Next
Pilih Desainnya, jika ingin melanjutkan
klik Next, jika selesai klik Finish
Inilah tampilan Report Wizardnya
Jika di debug akan menjadi seperti ini
8. Lakukan hal yang sama pada Form Tiket
yang terdapat pada Form MDI Parentnya, dengan membuat 2 Form lagi yaitu Form 4
dan 5.
Note:
Untuk Form tiket, databasenya menggunakan database QueryTicketReservation
Sekian penjelasan dari program Pemesanan
Tiket Penerbangan yang saya buat. Kurang lebihnya mohon maaf. Semoga bermanfaat
bagi bara pembaca semuanya :D
Have a Nice Day !
Koding:
Form Penumpang (Form 2)
Public Class Penumpang
Private Sub PenumpangBindingNavigatorSaveItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
PenumpangBindingNavigatorSaveItem.Click
Me.Validate()
Me.PenumpangBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.TA_VB2DataSet)
End Sub
Private Sub Form2_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'TODO: This
line of code loads data into the 'TA_VB2DataSet.Penumpang' table. You can move,
or remove it, as needed.
Me.PenumpangTableAdapter.Fill(Me.TA_VB2DataSet.Penumpang)
End Sub
Button Cetak (Form 2)
Private Sub Cetak_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Cetak.Click
Form3.Show()
End Sub
Form Data (Form 3)
Public Class Data
Private Sub Form3_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'TODO: This
line of code loads data into the 'TA_VB2DataSet.Penumpang' table. You can move,
or remove it, as needed.
Me.PenumpangTableAdapter.Fill(Me.TA_VB2DataSet.Penumpang)
Me.ReportViewer1.RefreshReport()
End Sub
Private Sub ReportViewer1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles ReportViewer1.Load
End Sub
End Class
Form
Tiket (Form 4)
Public Class Pemesanan Tiket
Private Sub Form4_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'TODO: This
line of code loads data into the 'TA_VB2DataSet.QueryTicketReservation' table.
You can move, or remove it, as needed.
Me.QueryTicketReservationTableAdapter.Fill(Me.TA_VB2DataSet.QueryTicketReservation)
End Sub
Button Cetak (Form 4)
Private Sub Cetak_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Cetak.Click
Form5.Show()
End Sub
Form Pemesanan Tiket (Form 5)
Public Class Form4
Private Sub Form4_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'TODO: This
line of code loads data into the 'TA_VB2DataSet.QueryTicketReservation' table. You
can move, or remove it, as needed.
Me.QueryTicketReservationTableAdapter.Fill(Me.TA_VB2DataSet.QueryTicketReservation)
Me.ReportViewer1.RefreshReport()
End Sub
Private Sub ReportViewer1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles ReportViewer1.Load
End Sub
End Class
