Tuesday, January 28, 2014

Penerbangan

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


  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



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


Monday, January 27, 2014

tugas Word dengan menghubungkan Excel

Tugas menghubungkan dengan aplikasi word (membuat  sertifikat )  dengan menghubungkan  excel 


buka file

buka  projert   ganti nama  yang di buat  dan klik ok

membuat coding 


coding   dengan
  membuat design   cari toolbox  pertama label yang dipakai  kedua textBox , Button  untuk  1 buat Word dan kedua 2buat Excel






buat file  "c; /defeui.doc" menggunakan Aplikasi MS word  dan lengkapi dengan sebuah bookmark, save lalu tutup aplikasi Word




buat projert baru , pada from, letakan 2 buah button  button 1 beri text =word dan button 2 beri text =excel
agar aplikasi vb net terhubung dgn aplikasi MSOffice kita harus memasukan refence dan kedalam vb net
klik menu Project  Add Refence lalu pilih  Tab  "COM" akan terlihat
MS Word {versi} Object Library  untuk  menggunakan aplikasi  MS Word
MS Excel {versi}Object Library menggunakan   aplikasi MS Word