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)
Kemudian Querynya
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
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
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 AsSystem.Object, ByVal e As System.EventArgs) HandlesPenumpangBindingNavigatorSaveItem.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 AsSystem.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 AsSystem.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 AsSystem.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 eAs 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 AsSystem.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 AsSystem.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 AsSystem.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 eAs System.EventArgs) Handles ReportViewer1.Load
End Sub
End Class
