Program Aplikasi Tiket Pesawat

Program Aplikasi Tiket Pesawat

Makalah ini dibuat untuk memenuhi tugas Mata Kuliah Pisual Studio II Amikhass Bandung |

Kata Pengantar

Segala pujidan syukur penulis panjatkan kehadirot Allah Subhanahu wa ta’ala, yang telah memberikan hidayah dan petunjuk kepada penulis dan atas kehendak-Nya pulalah penulis dapat menyelesaikan makalah ini untuk menco mencoba ba

ilmu-i ilmu-ilmu lmu

yang yang

dipero diperoleh leh

selama selama

mengik mengikuti uti

perkul perkuliah iahan an

pemrograma pemrograman n objek dengan Visual Studio 2005 dengan dengan judul “Program Aplikasi Tiket Pesawat”. Dalam Penulisan makalah ini penulis mendapatkan banyak bantuan dari berbagai berbagai pihak, pihak, baik moril maupun maupun materiil, materiil, sehingga makalah ini dapat diselesaikan oleh penulis. Untuk itu penulis mengucapkan terima kasih kepada: 1. Ibu Ibu Sri Sri Kusw Kusway ayat atii yang yang tela telah h memb membim imbi bing ng dan dan meng mengaj ajar ar ka kami mi dengan penuh kesabaran. 2. Kakak-kak Kakak-kakakku akku tersaya tersayang, ng, Dedi Dedi Wahyudin Wahyudin dan Entin Kartini Kartini yang yang telah banyak memberikan dukungan moril dan materiil. 3. Orang Orang tua tercinta tercinta yang yang telah telah member memberika ikan n dukung dukungan an dan Do’a, sehingga penulis dapat menyelesaikan Tugas makalah ini dengan baik. 4. Sahabat Sahabat penulis penulis yang selalu selalu menyema menyemangati ngati dan selalu selalu menema menemani ni disaat penulis membutuhkan dukungan. Penulis

menyadari

bahwa

didalam

makalah

ini

masih

terdapat

kekurangan dan masih jauh dari kesempurnaan, untuk itu dengan segala kerendahan kerendahan hati penulis penulis mengharapk mengharapkan an berbagai berbagai saran saran dan kritik yang membangun agar dapat di jadikan j adikan sesuatu yang menjadikan penulis mampu memperbaiki diri. Semoga Makalah ini bermanfaat bagi pembaca sekalian.

Amikhass Bandung | [Type the company address]

Bandung, Januari 2012

Penulis


BAB I

PENDAHULUAN A. Latarbela Latarbelakang kang Pada era globalisasi seperti sekarang ini kebutuhan akan informasi menjadi semakin penting sehubungan dengan tujuan informasi yaitu menghasilkan sesuatu yang lebih berarti dan berguna demi mengambil keputusan secara cepat dan akurat. Kebutuhan akan penyajian informasi yang cepat dan akurat ini semakin dibutuhkan oleh berbagai pihak, baik kalangan kalangan pemerintah pemerintah,, swasta swasta maupun maupun perorangan. perorangan. Berkaitan Berkaitan dengan itu diperlukan suatu media atau alat yang menyajikan informasi tersebut yaitu komputer. Dengan adanya komputerisasi, baik dalam dunia kerja maupun dunia bisnis efisiensi waktu dan efisiensi kerja sangat diutamakan agar dapat tercapai produktivitas kerja yang maksimal. Dalam aplikasi kerja pada saat ini komputerisasi sudah ada di setiap bidang pekerjaan apalagi yang yang berk berkai aita tan n deng dengan an data data-d -dat ata a yang yang pent pentin ing, g, baik baik yang yang sifa sifatn tnya ya sementara maupun sifatnya tetap. Laporan data Tiket Pesawat selama ini memang sudah terkomputerisasi menggunakan Word processor dan Spread sheet , akan tetapi masih tetap kurang efisien sehinga dapat dibangun suatu aplikasi khusus berupa perangkat perangkat lunak basis data, agar lebih efisien efisien dan efektif. efektif. Dengan latar belakang di atas maka penulis membuat makalah Tugas Akhir dengan judul “Program Aplikasi Tiket Pesawat”.

B. Tuju Tujuan an Secara Secara umum tujuan tujuan pembuatan pembuatan makalah makalah pemograman pemograman berorientas berorientasii objek objek dengan dengan Visual Visual Studio Studio 2005 2005 dengan dengan judul judul ”Progr ”Program am Aplika Aplikasi si Tiket Tiket Pesawat” ini ialah: Untuk mengetahui tentang bgaimana mengelola Sistem Informasi Tiket Pesawat dengan baik dan mudah di mengerti dan dipahami oleh Orang yang membutuhka informasi tersebut.


Daftar Isi Kata Pengantar......................................................2 BAB I................................................................3 PENDAHULUAN.......................................................3 A. Latarbela Latarbelakang kang...... ............ ............ ............ ............ ............ ............ ............ ............ ............ ............ ............ ............ ..........3 ....3 B. Tujuan.... Tujuan......... .......... .......... .......... .......... ........... ............ ............ ............ ............ ............ ............ ............ ............ ............ ........... .....3 3 BAB II................................................................5 PERANCANGAN PROGRAM............... ....................... .............................5 .....................5 A. Konsep Konsep Sistem Sistem Informas Informasi... i........ .......... ........... ............ ............ ............ ............. ..................... .....................5 .......5 1. Definisi Definisi Sistem Informasi Informasi..... .......... ........... ............ ............ ............ ............ .................... ......................5 ........5 2. Visual Visual Basic Basic 2005....... 2005............. ............ ............ ............ ............ ............ ............ ............ ............ ............ ............ .......5 .5 3. SQL Server Server 2005..... 2005.......... ........... ............ ............ ............ ............ ............ ............ ............ ............ ................. ...........5 5 B. Rancangan Rancangan Database Database..... ........... ............ ............ ............ ................. ........................ ........................... .................6 ...6 1. Struktur Struktur Tabel.... Tabel.......... ........... .......... .......... .......... .......... ........... ............ ............ ............ ............ .................. ..............6 ..6 C. Relatio Relationshi nship p Diagram Diagram..... .......... .......... .......... .......... ........... .............. ..................... ........................... ...............7 .7 D. Rancangan Rancangan Interface Interface..... .......... .......... .......... .......... ........... ............ ............ ............ ............ ............ ............ ........8 ..8 E. Coding Coding (Kode (Kode Program) Program)..... .......... .......... .......... ........... ............ ............ ............ ............ ............ ............ .......12 .12 BAB III.............................................................35 PENUTUP...........................................................35 A. Kesimpul Kesimpulan... an........ .......... ........... ............ ............ ............ ............ ............ ............ ............ ............ ................. .................3 ......35 5 B. Saran..... Saran.......... .......... .......... ........... ............ ............ ............ ............ ............ ............ ............ .................... ......................... ...........35 35


Saran

BAB II

PERANCANGAN PROGRAM A. Konsep Sistem Informasi 1. Definisi Sistem Informasi

Sistem informasi dapat didefinisikan sebagai suatu kumpulan data yang sudah diolah, terintegrasi dan saling melengkapi yang menghasilkan informasi yang mempunyai nilai atau berguna dalam pengambilan keputusan. Sistem informasi akuntansi pada aplikasi ini merupakan sistem informasi yang memproses data transaksi bisnis sehingga menghasilkan keluaran berupa informasi keuangan yang berguna bagi pemakainya. 2. Visu Visual al Bas Basic ic 200 2005 5

Visual Basic 2005 (VB 2005) merupakan bahasa pemrograman berbasis GUI (Graphical User Interface) atau program yang memungkinkan pengguna berkomunikasi dengan komputer menggunakan gambar atau grafik. Visual Basic 2005 adalah salah satu bahasa pemrograman yang dibuat oleh microsoft corporation dan VB 2005 merupakan pengembangan dari Visual Basic 6.0 (VB6). Visual Basic 2005 merupakan bagian dari sebuah suite aplikasi pemrograman Visual Studio 2005. Visual Basic 2005 menggunakan .NET Framework 2.0. 3. SQ SQL L Ser Serve ver r 200 2005 5

SQL Sever 2005 merupakan merupakan salah satu jenis jenis database database server server yang menggunakan SQL sebagai bahasa dasar untuk mengakses databasenya. SQl Server 2005 merupakan jenis RDBMS (Relational Database Management Sistem) yang diluncurkan oleh microsoft corporation bersamaan dengan Visual Studio 2005. SQl Server 2005 merupakan pengembangan dari SQL Server 2000. Bahasa yang digunakan oleh SQL Server 2005 adalah SQL (Structured Query Language). SQL adalah bahasa standar yang digunakan secara khusus untuk memanipulasi data, berkomunikasi dengan basisdata relasional.


A. Rancangan Database Nama Database : DbTiket_Pesawat DbTiket_Pesawat Keterangan

: * = Primary Key(PK)

1. Struktur Tabel

Berikut adalah struktur tabel DbTiket_Pesawat: DbTiket_Pesawat: 1. Tabel Pesawat Data Field Name

Type

Size

Descriptions

*Id_Pesawat

Text

8

Nama_Pesawat

Text

30

Nomor Pesawat(PK) Nama_Pesawat

Jurusan

Text

25

Tujuan yang ditempuh

Jumlah_Awak

Text

150

Jumlah tempat duduk

2. Tabel Pemesanan Data Field Name

Type

*Id_Tiket

Text

8

Nama_Tiket

Text

30

Jurusan

Size

Text

Descriptions

20

Nomor Tiket(PK) Nama Tiket Tujuan yang ditempuh

3. Table Penumpang Data Field Name

T yp e

*Kode_Penumpang

Text

8

Nama_Penumpang

Text

25

Nama Penumpang

Alamat

Text

30

Alamat Al

No_Telpon

Number

Jenis_Kelamin Id_Tiket

Size

Descriptions

Byte

Text

Nomor Telpon 2

Text

Kode Penumpang(PK)

Jenis Kelamin 8

Nomor Tiket

4. Tabel Transaksi Data Field Name

Type

Size

Descriptions


*Id_Transaksi

Text

8

Id Transaksi(PK)

Id_Tiket

Text

8

I d Tiket Id

Id_Pesawat

Text

8

Id Pesawat

Kode_Penumpang

Text

8

Kode Penumpang

Long Harga_Tiket

Number

Integer Long

Harga Tiket

Jumlah_Pemesanan

Number

Integer Long

Jumlah Pemesanan

Total_Harga

Number

Integer

Total Ha Harga

Size

Descriptions

5. Tabel Login/User Data Field Name

T yp e

*User

Text

30

Nama Pengguna Untuk Login(PK)

Password

Text

10

Password

A. Relat Relation ionsh ship ip Diagra Diagram m

Berikut ini adalah bentuk relationship diagram dari DbTiket_Pesawat: DbTiket_Pesawat:


B. Rancangan Rancangan Interface

Berikut ini adalah Rancangan interface dari “Program Aplikasi Apl ikasi Tiket Pesawat“: 1. Menu Menu Ut Utam ama a


2. Log in Form

3. Form Pemesanan


4. Form Penumpang


5. Form Pesawat

6. Form Transaksi


7. Form Report Transaksi


A. Codin Coding g (Kode (Kode Program Program))

Berikut ini merupakan coding dari setiap Form dalam “Program Aplikasi Tiket Pesawat”: 1. Coding Form Menu Utama/ MDIParent1

Imports System.Windows.Forms

Public Class MDIParent1

Private Sub ShowNewForm(ByVal ShowNewForm(ByVal sender As Object Object, , ByVal e As EventArgs) ' Create a new instance of the child form. Dim ChildForm As New System.Windows.Forms.Form ' Make it a child of this MDI form before showing it. ChildForm.MdiParent = Me

m_ChildFormNumber += 1 ChildForm.Text ChildForm.Text = "Window " & m_ChildFormNumber

ChildForm.Show() End Sub

Private Sub OpenFile(ByVal OpenFile(ByVal sender As Object Object, , ByVal e As EventArgs)


Dim OpenFileDialog As New OpenFileDialog OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments My .Computer.FileSystem.SpecialDirectories.MyDocuments OpenFileDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*" If (OpenFileDialog.ShowDialog(Me Me) ) = System.Windows.Forms.DialogResult.OK) Then Dim FileName As String = OpenFileDialog.FileName ' TODO: Add code here to open the file. End If End Sub

Private Sub SaveAsToolStripMenuItem_Click( SaveAsToolStripMenuItem_Click(ByVal ByVal sender As Object, Object , ByVal e As EventArgs) Dim SaveFileDialog As New SaveFileDialog SaveFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments My .Computer.FileSystem.SpecialDirectories.MyDocuments SaveFileDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"

If (SaveFileDialog.ShowDialog(Me Me) ) = System.Windows.Forms.DialogResult.OK) Then Dim FileName As String = SaveFileDialog.FileName ' TODO: Add code here to save the current contents of the form to a file. End If End Sub


Private Sub ExitToolsStripMenuItem_Click( ExitToolsStripMenuItem_Click(ByVal ByVal sender As Object, Object , ByVal e As EventArgs) Handles ExitToolStripMenuItem.Click Global.System.Windows.Forms.Application.Exit() Global .System.Windows.Forms.Application.Exit() End Sub

Private Sub CutToolStripMenuItem_Click( CutToolStripMenuItem_Click(ByVal ByVal sender As Object Object, , ByVal e As EventArgs) ' Use My.Computer.Clipboard to insert the selected text or images into the clipboard End Sub

Private Sub CopyToolStripMenuItem_Click( CopyToolStripMenuItem_Click(ByVal ByVal sender As Object Object, , ByVal e As EventArgs) ' Use My.Computer.Clipboard to insert the selected text or images into the clipboard End Sub

Private Sub PasteToolStripMenuItem_Click( PasteToolStripMenuItem_Click(ByVal ByVal sender As Object, Object , ByVal e As EventArgs) 'Use My.Computer.Clipboard.GetText() or My.Computer.Clipboard.G My.Computer .Clipboard.GetData etData to retrieve information from the clipboard. End Sub

Private Sub ToolBarToolStripMenuItem_Click( ToolBarToolStripMenuItem_Click(ByVal ByVal sender As


Object, Object , ByVal e As EventArgs)

End Sub

Private Sub StatusBarToolStripMenuItem_Click( StatusBarToolStripMenuItem_Click(ByVal ByVal sender As Object, Object , ByVal e As EventArgs)

End Sub

Private Sub CascadeToolStripMenuItem_Click( CascadeToolStripMenuItem_Click(ByVal ByVal sender As Object, Object , ByVal e As EventArgs) Me.LayoutMdi(MdiLayout.Cascade) Me .LayoutMdi(MdiLayout.Cascade) End Sub

Private Sub TileVerticleToolStripMenuItem_Click( TileVerticleToolStripMenuItem_Click(ByVal ByVal sender As Object, Object , ByVal e As EventArgs) Me.LayoutMdi(MdiLayout.TileVertical) Me .LayoutMdi(MdiLayout.TileVertical) End Sub

Private Sub TileHorizontalToolStripMenuItem_Click( TileHorizontalToolStripMenuItem_Click(ByVal ByVal sender As Object Object, , ByVal e As EventArgs) Me.LayoutMdi(MdiLayout.TileHorizontal) Me .LayoutMdi(MdiLayout.TileHorizontal) End Sub

Private Sub ArrangeIconsToolStripMenuItem_Click( ArrangeIconsToolStripMenuItem_Click(ByVal ByVal sender As Object, Object , ByVal e As EventArgs)


Me.LayoutMdi(MdiLayout.ArrangeIcons) Me .LayoutMdi(MdiLayout.ArrangeIcons) End Sub

Private Sub CloseAllToolStripMenuItem_Click( CloseAllToolStripMenuItem_Click(ByVal ByVal sender As Object, Object , ByVal e As EventArgs) ' Close all child forms of the parent. For Each ChildForm As Form In Me Me.MdiChildren .MdiChildren ChildForm.Close() Next End Sub

Private m_ChildFormNumber As Integer = 0

Private Sub ToolStripMenuItem1_Click( ToolStripMenuItem1_Click(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles loginToolStripMenuItem1.Click fmlogin.Show() End Sub

Private Sub KapalToolStripMenuItem_Click( KapalToolStripMenuItem_Click(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KapalToolStripMenuItem.Click FmPesawat.Show() End Sub

Private Sub PenumpangToolStripMenuItem_Click( PenumpangToolStripMenuItem_Click(ByVal ByVal sender As


System.Object, ByVal e As System.EventArgs) FmPenumpang.Show() End Sub

Private Sub PemesananToolStripMenuItem_Click( PemesananToolStripMenuItem_Click(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub logoutToolStripMenuItem1_Click( logoutToolStripMenuItem1_Click(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles logoutToolStripMenuItem1.Click Me.MasterToolStripMenuItem.Enabled Me .MasterToolStripMenuItem.Enabled = False Me.TransaksiToolStripMenuItem.Enabled Me .TransaksiToolStripMenuItem.Enabled = False Me.logoutToolStripMenuItem1.Enabled Me .logoutToolStripMenuItem1.Enabled = False Me.loginToolStripMenuItem1.Enabled Me .loginToolStripMenuItem1.Enabled = True End Sub

Private Sub PemesananToolStripMenuItem_Click_1( PemesananToolStripMenuItem_Click_1(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PemesananToolStripMenuItem.Click FmPemesanan.Show() End Sub

Private Sub TransaksiToolStripMenuItem1_Click( TransaksiToolStripMenuItem1_Click(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TransaksiToolStripMenuI TransaksiToolStripMenuItem1.Click tem1.Click


Fmtransaksi.Show() End Sub

Private Sub PenumpangToolStripMenuItem_Click_1( PenumpangToolStripMenuItem_Click_1(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PenumpangToolStripMenuItem.Click FmPenumpang.Show() End Sub

Private Sub TransaksiToolStripMenuItem2_Click( TransaksiToolStripMenuItem2_Click(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TransaksiToolStripMenuI TransaksiToolStripMenuItem2.Click tem2.Click FrreportTransaksi.Show()

End Sub

Private Sub MDIParent1_Load( MDIParent1_Load(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase MyBase.Load .Load

End Sub End Class

2. Coding Form Login Public Class fmlogin Dim koneksi As New OleDb.OleDbConnection


Dim Da As New OleDb.OleDbDataAdapter Dim Dt, Dt2 As New DataTable Dim Sql, SQL2 As String Private Sub TextBox1_TextChanged( TextBox1_TextChanged(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtuser.TextChanged End Sub

Private Sub fmlogin_Load(ByVal fmlogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase MyBase.Load .Load koneksi.ConnectionStrin koneksi.ConnectionString g = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\tugas hungkul\VB\tiket hungkul\VB\ tiket pesawat\tike pesawat\tiket t pesawat\DbTiket_Pesawat_yudi_C111.mdb"

End Sub Sub cari() Dt.Clear() Sql = "SELECT *FROM Login WHERE User ='" & txtuser.Text & "'" Da.SelectCommand Da.SelectCommand = New OleDb.OleDbCommand(Sql, koneksi) Da.Fill(Dt) End Sub Sub cari2() Dt2.Clear() SQL2 = "SELECT *FROM Login WHERE Password ='" & txtPassword.Text txtPassword.Text & "'" Da.SelectCommand Da.SelectCommand = New OleDb.OleDbCommand(Sql, koneksi)


Da.Fill(Dt2) End Sub

Private Sub btnOK_Click(ByVal btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click On Error Resume Next cari() cari2() If Dt.Rows.Count Dt.Rows.Count <> 0 And txtPassword.Text = Dt2.Rows(0)(1) Then If Dt.Rows.Count Dt.Rows.Count <> 0 Then MessageBox.Show("Anda MessageBox.Show( "Anda Berhasil", Berhasil", "Informasi" "Informasi", , MessageBoxButtons.OK, MessageBoxIcon.Information) MDIParent1.MasterToolStripMenuItem.Enabled = True MDIParent1.TransaksiToolStripMenuItem.Enabled = True MDIParent1.logoutToolStripMenuItem1.Enabled = True MDIParent1.loginToolStripMenuItem1.Enabled = False MDIParent1.ReportToolStripMenuItem.Enabled = True Me.Close() Me .Close()

Else MessageBox.Show("gagal MessageBox.Show( "gagal login", login", "Informasi" "Informasi", , MessageBoxButtons.OK, MessageBoxIcon.Information) txtuser.Focus()


End If End If End Sub

Private Sub btncancel_Click( btncancel_Click(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncancel.Click txtuser.Text txtuser.Text = "" txtPassword.Text txtPassword.Text = "" txtuser.Focus() End Sub

Private Sub btnclose_Click(ByVal btnclose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclose.Click Me.Close() Me .Close() End Sub End Class

3. Coding Form Pemesanan

Public Class FmPemesanan Dim daPemesanan As OleDb.OleDbDataAdapter Dim con As New OleDb.OleDbConnection(Koneksi("Provider=Microsoft.Jet.OLEDB.4.0;Dat OleDb.OleDbConnection(Koneksi( "Provider=Microsoft.Jet.OLEDB.4.0;Dat a Source=D:\tugas hungkul\VB\tiket pesawat\tiket pesawat\DbTiket_Pesawat_yudi_C111.mdb")) pesawat\DbTiket_Pesawat_yudi_C111.mdb" )) Dim dtPemesanan As New DataTable()


Dim drPemesanan As DataRow Function Koneksi(ByVal Koneksi(ByVal strDatabase As String String) ) As String Dim kalimat As String kalimat = "Provider=Microsoft.Jet.OLEDB.4.0;" kalimat &= "Data Source=" & strDatabase & "" Return kalimat End Function Private Sub FmPemesanan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase MyBase.Load .Load Dim dc(1) As DataColumn Try

'daPesawat = New OleDb.OleDbDataAdapter("select * from Pemesanan ", con)

daPemesanan = New OleDb.OleDbDataAdapter( OleDb.OleDbDataAdapter("select "select * from Pemesanan ", ", con) daPemesanan.Fill(dtPemesanan) dc(0) = dtPemesanan.Columns("Id_Tiket" dtPemesanan.Columns("Id_Tiket") ) dtPemesanan.PrimaryKey = dc dgpemesanan.DataSource = dtPemesanan Catch errConn As OleDb.OleDbException MsgBox(errConn.Message) End Try End Sub


Private Sub btnsimpan_Click( btnsimpan_Click(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click Try Dim cbPPemesanan As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(daPemesanan) drPemesanan = dtPemesanan.NewRow

drPemesanan("Id_Tiket" drPemesanan("Id_Tiket") ) = txtid_tiket.Text txtid_tiket.Text drPemesanan("Nama_Tiket" drPemesanan("Nama_Tiket") ) = txtid_tiket.Text txtid_tiket.Text drPemesanan("Jurusan" drPemesanan("Jurusan") ) = txtjurusan1.Text

dtPemesanan.Rows.Add(drPemesanan)

con.Open() daPemesanan.Update(dtPemesanan) dtPemesanan.AcceptChanges() con.Close() Catch errTambah As Exception MsgBox(errTambah.Message) End Try

kosong() End Sub


Private Sub btnCari_Click(ByVal btnCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCari.Click Try drPemesanan = dtPemesanan.Rows.Find(txtid_tiket.Text)

txtnama_tiket.Text txtnama_tiket.Text = drPemesanan( drPemesanan("Nama_Tiket" "Nama_Tiket").ToString ).ToString txtjurusan1.Text txtjurusan1.Text = drPemesanan( drPemesanan("Jurusan" "Jurusan").ToString ).ToString

Catch errCari As Exception MsgBox(errCari.Message) End Try End Sub

Private Sub btnhapus_Click(ByVal btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click Try Dim cbPemesanan As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(daPemesanan) drPemesanan.Delete()

daPemesanan.DeleteCommand = cbPemesanan.GetDeleteCommand

daPemesanan.Update(dtPemesanan) dtPemesanan.AcceptChanges()


daPemesanan.DeleteCommand.Connection.Close()

Catch errHapus As Exception MsgBox(errHapus.Message)

End Try End Sub

Private Sub btnClear_Click(ByVal btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click kosong() End Sub

Private Sub kosong() txtid_tiket.Text txtid_tiket.Text = "" txtnama_tiket.Text txtnama_tiket.Text = "" txtjurusan1.Text txtjurusan1.Text = "" txtid_tiket.Focus() End Sub

Private Sub Button1_Click(ByVal Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Close() End Sub


Private Sub txtid_tiket_TextChanged( txtid_tiket_TextChanged(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtid_tiket.TextChanged

End Sub End Class

4. Coding Form Penumpang

Public Class FmPenumpang Dim daPemesanan As OleDb.OleDbDataAdapter Dim daPenumpang As OleDb.OleDbDataAdapter Dim con As New OleDb.OleDbConnection(Koneksi("Provider=Microsoft.Jet.OLEDB.4.0;Dat OleDb.OleDbConnection(Koneksi( "Provider=Microsoft.Jet.OLEDB.4.0;Dat a Source=D:\tugas hungkul\VB\tiket pesawat\tiket pesawat\DbTiket_Pesawat_yudi_C111.mdb")) pesawat\DbTiket_Pesawat_yudi_C111.mdb" )) Dim dtPemesanan As New DataTable() Dim dtPenumpang As New DataTable() Dim drPenumpang As DataRow Dim drPemesanan As DataRow

Function Koneksi(ByVal Koneksi(ByVal strDatabase As String String) ) As String Dim kalimat As String kalimat = "Provider=Microsoft.Jet.OLEDB.4.0;" kalimat &= "Data Source=" & strDatabase & ""


Return kalimat End Function Private Sub FmPenumpang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase MyBase.Load .Load Dim dc(1) As DataColumn Try

daPemesanan = New OleDb.OleDbDataAdapter( OleDb.OleDbDataAdapter("select "select * from Pemesanan", Pemesanan" , con) daPemesanan.Fill(dtPemesanan) dc(0) = dtPemesanan.Columns("Id_Tiket" dtPemesanan.Columns("Id_Tiket") ) dtPemesanan.PrimaryKey = dc

With lstid_tiket .DataSource = dtPemesanan .DisplayMember .DisplayMember = "Id_Tiket" .ValueMember .ValueMember = "Id_Tiket" End With

daPenumpang = New OleDb.OleDbDataAdapter( OleDb.OleDbDataAdapter("select "select * from Penumpang", Penumpang" , con) daPenumpang.Fill(dtPenumpang) dc(0) = dtPenumpang.Columns("Kode_Penumpang" dtPenumpang.Columns("Kode_Penumpang") ) dtPenumpang.PrimaryKey = dc


dgPenumpang.DataSource = dtPenumpang Catch errConn As OleDb.OleDbException MsgBox(errConn.Message) End Try End Sub Private Sub btnClear_Click(ByVal btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click kosong() End Sub Private Sub kosong() txtkdpenumpang.Text = "" txtname.Text txtname.Text = "" txtalamat.Text txtalamat.Text = "" txttelpon.Text txttelpon.Text = "" txtjk.Text = "" txtid.Text = "" txtkdpenumpang.Focus() End Sub Private Sub btnCari_Click(ByVal btnCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCari.Click Try drPenumpang = dtPenumpang.Rows.Find(txtkdpenumpang.Text)

txtkdpenumpang.Text = drPenumpang("Kode_Penumpang" drPenumpang("Kode_Penumpang").ToString ).ToString


txtname.Text txtname.Text = drPenumpang( drPenumpang("Nama" "Nama").ToString ).ToString txtalamat.Text txtalamat.Text = drPenumpang( drPenumpang("Alamat" "Alamat").ToString ).ToString txttelpon.Text txttelpon.Text = drPenumpang( drPenumpang("No_Telpon" "No_Telpon").ToString ).ToString txtid.Text = drPenumpang( drPenumpang("Id_Tiket" "Id_Tiket").ToString ).ToString txtjk.Text = drPenumpang( drPenumpang("Jenis_Kelamin" "Jenis_Kelamin").ToString ).ToString

Catch errCari As Exception MsgBox(errCari.Message)

End Try End Sub

Private Sub lstNama_tiket_SelectedIndexChanged( lstNama_tiket_SelectedIndexChanged(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstid_tiket.SelectedIndexChanged Try Dim drPemesanan As DataRow

drPemesanan = dtPemesanan.Rows.Find(lstid_tiket.Text)

txtnamtik.Text txtnamtik.Text = drPemesanan( drPemesanan("Nama_Tiket" "Nama_Tiket").ToString ).ToString txtjurusan.Text = drPemesanan("Jurusan" drPemesanan("Jurusan").ToString ).ToString

Catch errTampil As Exception End Try


End Sub

Private Sub btnHapus_Click(ByVal btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click Try Dim cbhapus As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(daPenumpang) drPenumpang.Delete()

daPenumpang.DeleteCommand = cbhapus.GetDeleteCommand

daPenumpang.Update(dtPenumpang) dtPenumpang.AcceptChanges()

daPenumpang.DeleteCommand.Connection.Close()


End Try End Sub

Private Sub btnSimpan_Click( btnSimpan_Click(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click Try Dim cbTambah As OleDb.OleDbCommandBuilder = New


OleDb.OleDbCommandBuilder(daPenumpang)

drPenumpang = dtPenumpang.NewRow

drPenumpang("Kode_Penumpang" drPenumpang("Kode_Penumpang") ) = txtkdpenumpang.Text txtkdpenumpang.Text drPenumpang("Nama" drPenumpang("Nama") ) = txtname.Text drPenumpang("Alamat" drPenumpang("Alamat") ) = txtalamat.Text txtalamat.Text drPenumpang("No_Telpon" drPenumpang("No_Telpon") ) = txttelpon.Text drPenumpang("Id_Tiket" drPenumpang("Id_Tiket") ) = txtid.Text drPenumpang("Jenis_Kelamin" drPenumpang("Jenis_Kelamin") ) = txtjk.Text dtPenumpang.Rows.Add(drPenumpang)

con.Open()

daPenumpang.Update(dtPenumpang) dtPenumpang.AcceptChanges()

con.Close()

Catch errTambah As Exception MsgBox(errTambah.Message) End Try


kosong() End Sub

Private Sub btnKeluar_Click( btnKeluar_Click(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click Me.Close() Me .Close() End Sub

Private Sub Button1_Click(ByVal Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim dc(1) As DataColumn Try

daPenumpang = New OleDb.OleDbDataAdapter( OleDb.OleDbDataAdapter("select "select * from Penumpang", Penumpang" , con)

daPenumpang = New OleDb.OleDbDataAdapter( OleDb.OleDbDataAdapter("select "select * from Penumpang", Penumpang" , con) daPenumpang.Fill(dtPenumpang) dc(0) = dtPenumpang.Columns("Kode_Penumpang" dtPenumpang.Columns("Kode_Penumpang") ) dtPenumpang.PrimaryKey = dc DataMhsBindingSource.D DataMhsBindingSource.DataSource ataSource = dtPenumpang Catch errConn As OleDb.OleDbException MsgBox(errConn.Message) End Try End Sub


Private Sub dgPenumpang_CellContentClick( dgPenumpang_CellContentClick(ByVal ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)

End Sub End Class

5. Coding Form Pesawat

Public Class FmPesawat Dim daPesawat As OleDb.OleDbDataAdapter Dim con As New OleDb.OleDbConnection(Koneksi("Provider=Microsoft.Jet.OLEDB.4.0;Dat OleDb.OleDbConnection(Koneksi( "Provider=Microsoft.Jet.OLEDB.4.0;Dat a Source=D:\tugas hungkul\VB\tiket pesawat\tiket pesawat\DbTiket_Pesawat_yudi_C111.mdb")) pesawat\DbTiket_Pesawat_yudi_C111.mdb" )) Dim dtPesawat As New DataTable() Dim drPesawat As DataRow Function Koneksi(ByVal Koneksi(ByVal strDatabase As String String) ) As String Dim kalimat As String kalimat = "Provider=Microsoft.Jet.OLEDB.4.0;" kalimat &= "Data Source=" & strDatabase & "" Return kalimat End Function Private Sub FmPesawat_Load(ByVal FmPesawat_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase MyBase.Load .Load Dim dc(1) As DataColumn


Try

'daPesawat = New OleDb.OleDbDataAdapter("select * from Kapal", con)

daPesawat = New OleDb.OleDbDataAdapter( OleDb.OleDbDataAdapter("select "select * from Kapal", Kapal" , con) daPesawat.Fill(dtPesawat) dc(0) = dtPesawat.Columns("Nama_Pesawat" dtPesawat.Columns("Nama_Pesawat") ) dtPesawat.PrimaryKey = dc dgpesawat.DataSource = dtPesawat Catch errConn As OleDb.OleDbException MsgBox(errConn.Message) End Try End Sub

Private Sub btnsimpan_Click( btnsimpan_Click(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click Try Dim cbPesawat As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(daPesawat) drPesawat = dtPesawat.NewRow

drPesawat("Nama_Pesawat" drPesawat("Nama_Pesawat") ) = txtnama.Text drPesawat("Id_Pesawat" drPesawat("Id_Pesawat") ) = txtid.Text drPesawat("Jurusan" drPesawat("Jurusan") ) = txtjurusan.Text txtjurusan.Text


drPesawat("Jumlah_Awak" drPesawat("Jumlah_Awak") ) = txtjumlah.Text

dtPesawat.Rows.Add(drPesawat)

con.Open() daPesawat.Update(dtPesawat) dtPesawat.AcceptChanges() con.Close() Catch errTambah As Exception MsgBox(errTambah.Message) End Try

kosong()

End Sub

Private Sub btnCari_Click(ByVal btnCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCari.Click Try drPesawat = dtPesawat.Rows.Find(txtnama.Text)

txtid.Text = drPesawat("Id_Pesawat" drPesawat("Id_Pesawat").ToString ).ToString txtjurusan.Text = drPesawat("Jurusan" drPesawat("Jurusan").ToString ).ToString


txtjumlah.Text txtjumlah.Text = drPesawat("Jumlah_Awak" "Jumlah_Awak").ToString ).ToString Catch errCari As Exception MsgBox(errCari.Message) End Try End Sub

Private Sub btnhapus_Click(ByVal btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click Try Dim cbPesawat As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(daPesawat) drPesawat.Delete()

daPesawat.DeleteCommand = cbPesawat.GetDeleteCommand

daPesawat.Update(dtPesawat) dtPesawat.AcceptChanges()

daPesawat.DeleteCommand.Connection.Close()


End Try End Sub


Private Sub btnClear_Click(ByVal btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click kosong() End Sub

Private Sub kosong() txtnama.Text txtnama.Text = "" txtid.Text = "" txtjurusan.Text = "" txtjumlah.Text txtjumlah.Text = "" txtnama.Focus() End Sub

Private Sub Button1_Click(ByVal Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Close() End Sub End Class

6. Coding Form Transaksi

Public Class Fmtransaksi Dim dapemesanan As OleDb.OleDbDataAdapter Dim dtpemesanan As New DataTable()


Dim drpemesanan As DataRow Dim dapenumpang As OleDb.OleDbDataAdapter Dim dtpenumpang As New DataTable() Dim drpenumpang As DataRow Dim dapesawat As OleDb.OleDbDataAdapter Dim dtpesawat As New DataTable() Dim drpesawat As DataRow Dim daTransaksi As OleDb.OleDbDataAdapter Dim con As New OleDb.OleDbConnection(Koneksi("Provider=Microsoft.Jet.OLEDB.4.0;Dat OleDb.OleDbConnection(Koneksi( "Provider=Microsoft.Jet.OLEDB.4.0;Dat a Source=D:\tugas hungkul\VB\tiket pesawat\tiket pesawat\DbTiket_Pesawat_yudi_C111.mdb")) pesawat\DbTiket_Pesawat_yudi_C111.mdb" )) Dim dtTransaksi As New DataTable() Dim drTransaksi As DataRow

Function Koneksi(ByVal Koneksi(ByVal strDatabase As String String) ) As String Dim kalimat As String kalimat = "Provider=Microsoft.Jet.OLEDB.4.0;" kalimat &= "Data Source=" & strDatabase & "" Return kalimat End Function Private Sub Fmtransaksi_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase MyBase.Load .Load Dim dc(1) As DataColumn Try


daTransaksi = New OleDb.OleDbDataAdapter( OleDb.OleDbDataAdapter("select "select * from Transaksi", Transaksi" , con) daTransaksi.Fill(dtTransaksi) dc(0) = dtTransaksi.Columns("Id_Transaksi" dtTransaksi.Columns("Id_Transaksi") ) dtTransaksi.PrimaryKey = dc dgTransaksi.DataSource = dtTransaksi With cbtransaksi .DataSource = dtTransaksi .DisplayMember .DisplayMember = "Id_Transaksi" .ValueMember .ValueMember = "Id_Transaksi" End With

dapemesanan = New OleDb.OleDbDataAdapter( OleDb.OleDbDataAdapter("select "select * from Pemesanan", Pemesanan" , con) dapemesanan.Fill(dtpemesanan) dc(0) = dtpemesanan.Columns("Id_Tiket" dtpemesanan.Columns("Id_Tiket") ) dtpemesanan.PrimaryKey = dc With CbIDTiket .DataSource = dtpemesanan .DisplayMember .DisplayMember = "Id_Tiket" .ValueMember .ValueMember = "Id_Tiket" End With


dapesawat = New OleDb.OleDbDataAdapter( OleDb.OleDbDataAdapter("select "select * from Kapal", Kapal" , con) dapesawat.Fill(dtpesawat) dc(0) = dtpesawat.Columns("Id_Pesawat" dtpesawat.Columns("Id_Pesawat") ) dtpesawat.PrimaryKey = dc With cbIdPesawat .DataSource = dtpesawat .DisplayMember .DisplayMember = "Id_Pesawat" .ValueMember .ValueMember = "Id_Pesawat" End With

dapenumpang = New OleDb.OleDbDataAdapter( OleDb.OleDbDataAdapter("select "select * from Penumpang", Penumpang" , con) dapenumpang.Fill(dtpenumpang) dc(0) = dtpenumpang.Columns("Kode_Penumpang" dtpenumpang.Columns("Kode_Penumpang") ) dtpenumpang.PrimaryKey = dc With cbkdPenumpang .DataSource = dtpenumpang .DisplayMember .DisplayMember = "Kode_Penumpang" .ValueMember .ValueMember = "Kode_Penumpang" End With Catch errConn As OleDb.OleDbException MsgBox(errConn.Message)


End Try End Sub

Private Sub btnproses_Click( btnproses_Click(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click txttotal.Text = Val(txtharga.Text) * Val(txtjumlah.Text) End Sub

Private Sub btnClear_Click(ByVal btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click kosong() cbtransaksi.Text cbtransaksi.Text = "" CbIDTiket.Text CbIDTiket.Text = "" cbIdPesawat.Text cbIdPesawat.Text = "" cbkdPenumpang.Text cbkdPenumpang.Text = "" txtjumlah.Text txtjumlah.Text = "" txttotal.Text = "" txtharga.Text = "" End Sub Private Sub kosong() cbtransaksi.Text cbtransaksi.Text = "" CbIDTiket.Text CbIDTiket.Text = "" cbIdPesawat.Text cbIdPesawat.Text = "" cbkdPenumpang.Text cbkdPenumpang.Text = "" txtjumlah.Text txtjumlah.Text = ""


txttotal.Text = "" txtharga.Text = "" cbtransaksi.Focus() End Sub

Private Sub btnsimpan_Click( btnsimpan_Click(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click Try Dim cbBuku As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(daTransaksi) drTransaksi = dtTransaksi.NewRow drTransaksi("Id_Transaksi" drTransaksi("Id_Transaksi") ) = cbtransaksi.Text cbtransaksi.Text drTransaksi("Id_Tiket" drTransaksi("Id_Tiket") ) = CbIDTiket.Text CbIDTiket.Text drTransaksi("Id_Pesawat" drTransaksi("Id_Pesawat") ) = cbIdPesawat.Text cbIdPesawat.Text drTransaksi("Kode_Penumpang" drTransaksi("Kode_Penumpang") ) = cbkdPenumpang.Text cbkdPenumpang.Text drTransaksi("Harga_Tiket" drTransaksi("Harga_Tiket") ) = txtharga.Text drTransaksi("Jumlah_Pemesanan" drTransaksi("Jumlah_Pemesanan") ) = txtjumlah.Text txtjumlah.Text drTransaksi("Total_Harga" drTransaksi("Total_Harga") ) = txttotal.Text

dtTransaksi.Rows.Add(drTransaksi)

con.Open() daTransaksi.Update(dtTransaksi) dtTransaksi.AcceptChanges() con.Close()


Catch errTambah As Exception MsgBox(errTambah.Message) End Try

kosong() End Sub

Private Sub btnkeluar_Click( btnkeluar_Click(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click Close() End Sub

Private Sub btnhapus_Click(ByVal btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click Try Dim cbhapus As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(daTransaksi) drTransaksi.Delete()

daTransaksi.DeleteCommand = cbhapus.GetDeleteCommand

daTransaksi.Update(dtTransaksi) dtTransaksi.AcceptChanges()

daTransaksi.DeleteCommand.Connection.Close()



End Try End Sub

Private Sub CbIDTiket_SelectedIndexChanged( CbIDTiket_SelectedIndexChanged(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CbIDTiket.SelectedIndexChanged Try Dim drpemesanan As DataRow drpemesanan = dtpemesanan.Rows.Find(cbIdPesawat.Text)

Catch errTampil As Exception

End Try End Sub

Private Sub cbIdPesawat_SelectedIndexChanged( cbIdPesawat_SelectedIndexChanged(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbIdPesawat.SelectedIndexChanged Try Dim drpesawat As DataRow drpesawat = dtpesawat.Rows.Find(cbIdPesawat.Text)


Catch errTampil As Exception End Try End Sub

Private Sub cbkdPenumpang_SelectedIndexChanged( cbkdPenumpang_SelectedIndexChanged(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbkdPenumpang.SelectedIndexChanged Try Dim drpenumpang As DataRow drpenumpang = dtpenumpang.Rows.Find(cbkdPenumpang.Text)

Catch errTampil As Exception

End Try End Sub

Private Sub cbtransaksi_LostFocus( cbtransaksi_LostFocus(ByVal ByVal sender As Object Object, , ByVal e As System.EventArgs) Handles cbtransaksi.LostFocus

End Sub

Private Sub btncari_Click(ByVal btncari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncari.Click Try drTransaksi = dtTransaksi.Rows.Find(cbtransaksi.Text) CbIDTiket.Text CbIDTiket.Text = drTransaksi( drTransaksi("Id_Tiket" "Id_Tiket").ToString ).ToString


cbIdPesawat.Text cbIdPesawat.Text = drTransaksi( drTransaksi("Id_Pesawat" "Id_Pesawat").ToString ).ToString cbkdPenumpang.Text cbkdPenumpang.Text = drTransaksi("Kode_Penumpang" drTransaksi("Kode_Penumpang").ToString ).ToString txtharga.Text = drTransaksi("Harga_Tiket" drTransaksi("Harga_Tiket").ToString ).ToString txtjumlah.Text txtjumlah.Text = drTransaksi("Jumlah_Pemesanan" drTransaksi("Jumlah_Pemesanan").ToString ).ToString txttotal.Text = drTransaksi("Total_Harga" drTransaksi("Total_Harga").ToString ).ToString

Catch errCari As Exception MsgBox(errCari.Message) End Try End Sub End Class

BAB III

PENUTUP A. Kesimpula Kesimpulan n Secara umum makalah ppemograman berorientasi objek dengan Visual Studio 2005 dengan judul “Program Aplikasi Akakdemik” ini dibuat untuk mengetahui bagaimana mengelola system informasi akademik dengan baik agar mudah di mengerti dan di pahami oleh pihak yang memerlukan informasi tersebut.

B. Sara Saran n ✔

Duharapkan Makalah ini berguna dan dapat menjadi sarana pembelajar oleh pembaca, semoga pembaca menjadi lebih paham mengenai database dan aplikasi lain pendukungnya.


✔

Selain memahami database yang ada pada makalah ini, diharapkan pembaca juga bias memperoleh informasi dari sumber-sumber lain yang membantu dalam mempeklajari database dan aplikasi visual studio.

✔

Aplikasi visual studio 2005 dirancang agar lebih mudah di pelajari dn dipakai dalam aplikasi-aplikasi yang akan dibuat sesuai dengan kebutuhan tidak hanya database saja, tapi pembuatan aplikasi lainnya.


Program Aplikasi Tiket Pesawat

Recommend Documents