2012 Makalah Sistem Reservasi Pesawat
10260141 Risti Nur Asokawati Manajemen
Informatika
AMIK HASS BANDUNG
KATA PENGANTAR
Puji syukur atas kehadirat Allah S.W.T dengan segala limpahan rahmat dan hidayahnya yang telah diberikan kepada penulis sehingga penulis dapat menyelesaikan makalah ini dengan baik. Makalah ini berjudul, ³SISTEM INFORMASI RESERVASI PESAWAT´. Makalah ini dibuat sebagai salah satu syarat untuk mengikuti UAS Teori Pemrograman Visual Basic. Dalam pelaksanaan tugas akhir dan penyusunan laporannya, penulis ingin meng menguc ucapk apkan an terim terimaa kasih kasih yang sebe sebesa sar-be r-besa sarny rnyaa k e p a d a s em u a p i h a k ya n g t el a h me mb a nt u d a l a m penul penulis isan an tugas tugas akhi akhirr ini, ini, anta antara ra lain lain : 1.
edua K edua
orang tua yang telah memberikan dukungan moril atau materil dan tak henti memberikan doa untuk penulis. 2. Ibu Sri K uswayati, uswayati, S.T. selaku dosen di AMIKHASS Bandung yang telah banyak memberikan masukan dalam pembuatan makalah tugas ahir ini. 3. Teman-teman dan semua pihak yang telah membantu serta memberikan dukungan yang tidak bisa penulis sebutkan satu persatu. Dalam penulisan makalah tugas ahir ini penulis menyadari bahwa makalah ini masih terdapat banyak kekurangan karena keterbatasan pengetahuan dan kemampuan. Oleh karena itu penulis sangat mengharapkan saran dan kritik yang membangun untuk proses pembelajaran penulis dan untuk perbaikan-perbaikan di masa masa yang akan data ng. Semoga makalah ini dapat memberi manfaat bagi penulis khususnya dan memberikan penambahan wawasan pengetahuan bagi yang membacanya. Akhir kata penulis ucapkan terima kasih atas perhatiannya.
Bandung, Januari 2012
Penulis
DAFTAR
ata K ata
ISI
Pengant Pengantar ar ............................................................................ ......................................................................................................... ............................. i
Daftar Daftar Isi ................................................................................................................ ................................................................................................................... ... ii BAB I Pendahuluan
1.1
Belakang Latar Belakang
............................................................................................... 1
1.2 Tujuan dan Manfaat Manfaat ........................................................................................ 2 BAB II PERANCANGAN PROGRAM
2.1 Perancang Perancangan an Database Database ................................................................................... 4 2.1.1 Struktur Struktur Tabel ...................................................................................... 6 2.1.2 Relationship Relationship ......................................................................................... 9 2.2 Perancangan Perancangan Interface Interface ................................................................................... 10 K oding oding
Form Transaksi Transaksi .................................................................................. 14
2.3 Perancangan Perancangan Output ...................................................................................... 20 BAB III IMPLEMENTASI PROGRAM
3.1 Spesifikasi Software dan Hardware ardware ............................................................... 23 3.1.1 Perangkat K eras eras (Hardware) ardware) ................................................................ 23 23 3.1.2 Perangkat Lunak (Software (Software)) ................................................................ 23 3.1.3 Pemakai Pemakai (Brainware (Brainware)) ........................................................................... 24 3.2 Cara Pengoperasia Pengoperasian n Program Program ........................................................................ 24 BAB IV PENUTUP
4.1
esimpulan K esimpulan
................................................................................................. ....................................................................................... .......... 31
4.2 Saran Saran .............................................................................................. ........................................................................................................... ............. 32
BAB I PENDAHULUAN
1.1
Latar Belakang Banyak programer handal saat ini memulai karirnya dengan mempelajari
Basic. Sebagai bahasa pemrograman yang mutakhir, Visual Basic didesain untuk dapat memanfaatkan fasilitas Windows, khususnya Windows 95/97/98 dan Windows NT. Visual Basic juga merupakan bahasa pemrograman Object Oriented Programming (OOP), yaitu pemrograman yang berorientasi objek. Visual Basic menyediakan objek-objek yang sangat kuat, berguna, dan mudah dipakai. Dengan fasilitas tersebut, membuat Visual Basic menjadi begitu diinginkan oleh programmer. Laporan
ini membahas tentang program aplikasi SISTEM INFORMASI
RESERVASI PESAWAT. Program aplikasi yang dibuat menggunakan bahasa pemrograman Visual Basic, Microsoft Visual Studio 2005. Program aplikasi ini digunakan untuk membantu menyelesaikan masalah-masalah yang timbul dalam pengolahan
data
dengan
menggunakan
computer
sebagai
sarananya
dan
mempercepat proses transaksi dan pengolahan data yang dilakukan. Mengingat masih banyak masalah-masalah yang timbul pada saat penyusun melakukan observasi, program ini diharapkan dapat membantu untuk memberikan solusi atau masalah-masalah masalah-masalah terseb t ersebut. ut.
1.2
Tujuan dan Manfaat Dalam penulisan laporan ini, terdapat tujuan dan manfaat yang akan
diuraikan secara rinci, guna memaparkan tujuan yang hendak dicapai serta memaparkan manfaat bagi pembaca laporan ini. Tujuan dilakukannya penulisan laporan ini secara umum yaitu sebagai berikut :
1. Untuk memenuhi mata
uliah K uliah
Pemrograman Visual Basic yang berbobot 4
sks yang harus dipenuhi oleh setiap Mahasiswa AMI KHASS Bandung. 2. Dapat menangani permasalahan dalam suatu system, sehingga diharuskan untuk mempelajari ilmu yang tidak dimiliki sebelumnya. 3. Mengimplementasikan Mengimplementasikan ilmu yang telah didapat di perkuliahan. Adapun tujuan khusus dari penulisan laporan ini yaitu sebagai berikut : 1. Membuat suatu sistem reservasi pesawat terbang guna mempermudah dalam pencarian data serta pembuatan laporan-laporan yang dibutuhkan. 2. Membuat database yang dapat menyimpan semua data customer dan semua data transaksi. Manfaat dilakukannya penulisan laporan ini semata-mata untuk pihak-pihak yang terkait didalamnya, antara lain : 1. AMIKHASS Bandung Dapat dijadikan tolak ukur oleh pihak kampus untuk mengetahui sejauh mana mahasiswa dapat mengimplementasikan ilmu yang sudah di dapat selama perkuliahan. 2. Mahasiswa Dapat dijadikan sarana berlatih untuk mengetahui sejauh mana mahasiswa tersebut dapat memecahkan masalah yang ada serta mengimplementasikan ilmu yang sudah didapat. 3. Pembaca Dapat menambah wawasan bagi pembaca, serta dapat dijadikan referensi atau sumber masalah dalam penulisan laporan selanjutnya yang berhubungan dengan topik yang telah dibahas pada laporan ini.
BAB II PERANCANGAN PROGRAM 2.1
PERANCANGAN DATABASE
2.1.1 Struktur Tabel a. Tabel Customer Tabel 2.1.1 struktur tabel customer
No
Field Name
Data Type
Size
1
odeCustomer K odeCustomer
Text
6
2
NamaCustomer NamaCustomer
Text
35
3
JenisK elamin elamin
Text
10
4
Alamat
Text
40
5
Telepon
Text
15
6
Email
Text
25
K ey ey
K et et
*
Primary key
b. Tabel Pesawat Tabel 2.1.2 struktur tabel pesawat
No
Field Name
Data Type
Size
1
odePesawat K odePesawat
Text
5
2
NamaPesawat
Text
15
3
JenisPesawat JenisPesa wat
Text
15
ey K ey *
Description Primary
ey K ey
Boeing dan Air Bus
c.
Tabel Tujuan Tabel 2.1.3 struktur tabel tujuan
No
Field Name
Data Type
Size
1
odeArea K odeArea
Text
5
2
Tujuan
Text
20
ey K ey
Description
*
Primary
ey K ey
d. Tabel Penerbangan Tabel 2.1.4 struktur tabel penerbangan
No
Field Name
Data Type
1
NoPenerbangan
Text
2
TglPenerbangan Date/Time
3
odeCustomer K odeCustomer
Text
Size
K ey ey
5
*
Description Primary
ey K ey
6
d. Tabel DetailPenerbangan Tabel 2.1.5 struktur tabel detail penerbangan
No
Field Name
Data Type
Size
ey K ey
Description
1
NoPenerbangan
Text
5
**
Foreign
2
K odePesawat odePesawat
Text
5
**
Foreign K ey ey
3
TarifPenerbangan
4
odeArea K odeArea
**
Foreign K ey ey
5
JumlahTiket
Number
Long
Integer
6
Pajak
Number
Long
Integer
7
Asuransi
Number
Long
Integer
Number
Long
Text
K ey ey
Integer 5
2.1.2 Relationship Antar Tabel
2.2
PERANCANGAN INTERFACE Form MDI Parent Par ent
Gambar 2.2.1 Gambar Rancangan Form Menu Utama
Form Data Customer
Gambar 2.2.2 Gambar Rancangan Form Customer
Form Sub Data Customer
Gambar 2.2.3 Gambar Rancangan Form Sub Customer
Form Data Pesawat
Gambar 2.2.4 Gambar Rancangan Form Pesawat
Form Sub Data Pesawat
Gambar 2.2.5 Gambar Rancangan Form Sub Pesawat
Form Tujuan
Gambar 2.2.6 Gambar Rancangan Form Tujuan
Form Sub Tujuan
Gambar 2.2.7 Gambar Rancangan Form Sub Tujuan
Form Penerbangan
Gambar 2.2.8 Gambar R ancangan Form Penerbangan K oding oding
Transaksi
Public Class frpenerbangan Dim dapenerbangan As OleDb.OleDbDataAdapter Dim con As New OleDb.OleDbConnection(Koneksi("Provider=M OleDb.OleDbConnection(Koneksi( "Provider=Microsoft.Jet.O icrosoft.Jet.OLEDB.4.0;Da LEDB.4.0;Da ta Source=E:\Asoka\Data_kuli Source=E:\A soka\Data_kuliah\Semester_3D\ ah\Semester_3D\VB_rie\gagal\P VB_rie\gagal\PENERBANGAN\D ENERBANGAN\D atabasePenerbangan.mdb")) atabasePenerbangan.mdb" )) Dim dtpenerbangan As New DataTable() Dim drpenerbangan As DataRow Dim dacustomer As OleDb.OleDbDataAdapter Dim dtcustomer As New DataTable() Dim drcustomer As DataRow Dim dapesawat As OleDb.OleDbDataAdapter Dim dtpesawat As New DataTable() Dim drpesawat As DataRow Dim dadetailpenerbangan As OleDb.OleDbDataAdapter Dim dtdetailpenerbangan As New DataTable() Dim drdetailpenerbangan As DataRow Dim datujuan As OleDb.OleDbDataAdapter Dim dttujuan As New DataTable() Dim drtujuan As DataRow Private Total As Double = 0.0 Private index As Integer = 0 Function 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 kosong() txtnamacust.Text txtnamacust.Text = "" txtnamapswt.Text txtnamapswt.Text = "" txttarif.Text = "" txtjumlah.Text txtjumlah.Text = "" txttotbiaya.Text txttotbiaya.Text = "" txttujuan.Text txttujuan.Text = ""
txtjenis.Text = "" txttotal.Text = "" txttotbiaya.Text txttotbiaya.Text = "" txtkodepswt.Text txtkodepswt.Text = "- Pilih -" txtkodearea.Text txtkodearea.Text = "- Pilih -" txtkodecust.Text txtkodecust.Text = "- Pilih -" txtpajak.Text = "" txtasuransi.Text txtasuransi.Text = "" txttotbayar.Text txttotbayar.Text = "" txtbayar.Text = "" txtkembali.Text = "" txtno.Text = "" txtno.Focus() End Sub Private Sub frpenerbangan_Load( frpenerbangan_Load(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase MyBase.Load .Load txtno.Focus() Dim dc(1) As DataColumn Try dapesawat = New OleDb.OleDbDataAdapter( OleDb.OleDbDataAdapter("select "select * from pesawat" , con) dapesawat.Fill(dtpesawat) dc(0) = dtpesawat.Columns( "KodePesawat" "KodePesawat") ) dtpesawat.PrimaryKey dtpesawat.PrimaryKey = dc datujuan = New OleDb.OleDbDataAdapter( OleDb.OleDbDataAdapter("select "select * from tujuan", tujuan" , con) datujuan.Fill(dttujuan) dc(0) = dttujuan.Columns( dttujuan.Columns( "KodeArea" ) dttujuan.PrimaryKey = dc dacustomer = New OleDb.OleDbDataAdapter( OleDb.OleDbDataAdapter("select "select * from customer", customer" , con) dacustomer.Fill(dtcustomer) dc(0) = dtcustomer.Columns( dtcustomer.Columns( "KodeCustomer" ) dtcustomer.PrimaryKey = dc dapenerbangan = New OleDb.OleDbDataAdapter( OleDb.OleDbDataAdapter("select "select * from penerbangan" , con) dapenerbangan.Fill(dtpenerbangan) dc(0) = dtpenerbangan.Columns( "NoPenerbangan" "NoPenerbangan") ) dtpenerbangan.PrimaryKey dtpenerbangan.PrimaryKey = dc dadetailpenerbangan = New OleDb.OleDbDataAdapter("select OleDb.OleDbDataAdapter( "select * from detail" , con) dadetailpenerbangan.Fill( dadetailpenerbangan.Fill(dtdetailpene dtdetailpenerbangan) rbangan) dc(0) = dtdetailpenerbangan.Columns( "NoPenerbangan" "NoPenerbangan") ) dtdetailpenerbangan.Prima dtdetailpenerbangan.PrimaryKey ryKey = dc Catch errConn As OleDb.OleDbException MsgBox(errConn.Message) End Try txtnamacust.Text txtnamacust.Text = "" txtnamapswt.Text txtnamapswt.Text = "" txttarif.Text = "" txtkodepswt.Text txtkodepswt.Text = "- Pilih -" txtkodearea.Text txtkodearea.Text = "- Pilih -" txtkodecust.Text txtkodecust.Text = "- Pilih -" End Sub Private Sub Button2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
ListView1.Items.Clear() kosong() End Sub Sub SetTotal() Dim x As Integer x = CInt CInt(txtjumlah. (txtjumlah.Text) Text) * CInt CInt(txttarif.Text) (txttarif.Text) txttotbayar.Text txttotbayar.Text = Format(CDbl Format( CDbl( (CStr CStr(x)), (x)), "##.####.####.###") "##.####.####.###" ) End Sub Private Sub btntambah_Click( btntambah_Click(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah.Click Dim Value() As String = {txtkodepswt.Text, {txtkodepswt.Text, txtnamapswt.Text, txtnamapswt.Text, txtjenis.Text, txtjenis.Text, txtkodearea.Text, txtkodearea.Text, txttujuan.Text, txttujuan.Text, txttarif.Text, txttarif.Text, txtjumlah.Text, txtjumlah.Text, txttotbiaya.Text, txttotbiaya.Text, txtpajak.Text, txtasuransi.Text, txtasuransi.Text, txttotbayar.Text} txttotbayar.Text} AddList(Value) Total = Val(txttotal.Text) + Val(txttotbayar.Text) txttotal.Text txttotal.Text = Format(CDbl Format( CDbl( (CStr CStr(Total)), (Total)), "##.####.####.###") "##.####.####.###" ) txtkodepswt.Text txtkodepswt.Text = "- Pilih -" txtnamapswt.Text txtnamapswt.Text = "" txtjenis.Text = "" txtkodearea.Text txtkodearea.Text = "- Pilih -" txttujuan.Text txttujuan.Text = "" txtjumlah.Text txtjumlah.Text = "" txttarif.Text = "" txttotbiaya.Text txttotbiaya.Text = "" txtpajak.Text = "" txtasuransi.Text txtasuransi.Text = "" txttotbayar.Text txttotbayar.Text = "" Button6.Enabled = False End Sub Sub AddList(ByVal AddList( ByVal Value() As String String) ) Dim subIndex As Integer ListView1.Items.Add( "" "") ) For subIndex = 0 To 10 ListView1.Items(index).Su ListView1.Items(index).SubItems.Add( bItems.Add( "" "") ) ListView1.Items(index).Su ListView1.Items(index).SubItems(subIn bItems(subIndex).Text dex).Text = Value(subIndex) Next index = index + 1 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 OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder OleDb.OleDbCommandBuilder(dapenerbangan) (dapenerbangan) Dim cbTambah1 As OleDb.OleDbCommandBuilder OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder OleDb.OleDbCommandBuilder(dadetailpener (dadetailpenerbangan) bangan) Dim i As Integer drpenerbangan = dtpenerbangan.NewRow drpenerbangan( "NoPenerbangan" "NoPenerbangan") ) = txtno.Text drpenerbangan( "TglPenerbangan" ) = dtm1.Text drpenerbangan( "KodeCustomer" ) = txtkodecust.Text dtpenerbangan.Rows.Add(dr dtpenerbangan.Rows.Add(drpenerbangan) penerbangan)
con.Open() dapenerbangan.Update(dtpenerbangan) dtpenerbangan.AcceptChanges() drdetailpenerbangan = dtdetailpenerbangan.NewRow For i = 0 To index - 1 drdetailpenerbangan("NoPenerbangan" drdetailpenerbangan( "NoPenerbangan") ) = txtno.Text drdetailpenerbangan("KodePesawat" drdetailpenerbangan( "KodePesawat") ) = ListView1.Items(i).SubItems(0).Text drdetailpenerbangan("KodeArea" drdetailpenerbangan( "KodeArea" ) = ListView1.Items(i).SubItems(3).Text drdetailpenerbangan("TarifPenerbangan" drdetailpenerbangan( "TarifPenerbangan") ) = ListView1.Items(i).SubItems(5).Text drdetailpenerbangan("JumlahTiket" drdetailpenerbangan( "JumlahTiket") ) = ListView1.Items(i).SubItems(6).Text drdetailpenerbangan("Pajak" drdetailpenerbangan( "Pajak") ) = ListView1.Items(i).SubItems(8).Text drdetailpenerbangan("Asuransi" drdetailpenerbangan( "Asuransi" ) = ListView1.Items(i).SubItems(9).Text i = i + 1 Next dtdetailpenerbangan.Rows. dtdetailpenerbangan.Rows.Add(drdetail Add(drdetailpenerbangan) penerbangan) dadetailpenerbangan.Updat dadetailpenerbangan.Update(dtdetailpe e(dtdetailpenerbangan) nerbangan) dtdetailpenerbangan.AcceptChanges() con.Close() MessageBox.Show( "Data Transaksi telah d isimpan" isimpan") ) Catch errTambah As Exception MsgBox(errTambah.Message) End Try ListView1.Items.Clear() txttotal.Text = "" txttotbiaya.Text txttotbiaya.Text = "" txtno.Text = "" txtkodepswt.Enabled = False txtkodearea.Enabled = False txtkodecust.Enabled = False kosong() End Sub Private Sub Button6_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click frdaftarcust.Show() 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 Button8_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click frdaftartujuan.Show() End Sub Private Sub Button7_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click frdaftarpesawat.Show() End Sub
Private Sub txtjumlah_TextChanged_1( txtjumlah_TextChanged_1(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtjumlah.TextChanged Dim tarif, jum, pajak, jumharga, asuransi As Integer tarif = Val(txttarif.Text) jum = Val(txtjumlah.Text) txttotbiaya.Text txttotbiaya.Text = tarif * jum jumharga = txttotbiaya.Text txttotbiaya.Text txtpajak.Text txtpajak.Text = (0.1 * jumharga) txtasuransi.Text txtasuransi.Text = 10000 * Val(txtjumlah.Text) Val(txtjumlah.Text) asuransi = txtasuransi.Text txtasuransi.Text pajak = txtpajak.Text txttotbayar.Text = jumharga + pajak + asuransi End Sub Private Sub txtbayar_TextChanged( txtbayar_TextChanged(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtbayar.TextChanged Dim bayar, kembali, jumbay As Integer bayar = Val(txtbayar.Text) kembali = Val(txtkembali.Text) jumbay = Val(txttotbayar.Text) Val(txttotbayar.Text) txtkembali.Text = bayar - jumbay End Sub End Class
Form Daftar Customer
Gambar 2.2.9 Gambar Rancangan Form Daftar Cu stomer
Form Daftar Tujuan
Gambar 2.3.0 Gambar Rancangan Form Sub Daftar Tujuan
Form Daftar Pesawat
Gambar 2.3.0 Gambar Rancangan Form Sub Daftar Pes awat
2.3
PERANCANGAN OUTPUT Output
Data
Customer
Gambar 2.3.1 Gambar Rancangan Report Daftar Customer
Output
Data
Pesawat
Gambar 2.3.2 Gambar Rancangan Report Daftar Pesawat
Output
Data
Tujuan
Gambar 2.3.3 Gambar Rancangan Report Daftar Tujuan
Output
Data
Transaksi
Gambar 2.3.4 Gambar Rancangan Report Transaksi
BAB III IMPLEMENTASI PROGRAM 3.1
Spesifikasi Software dan Hardware Pada implementasi system ini, akan diuraikan bentuk perancangan dan
pengkodean system reservasi pesawat secara online dengan menggunakan sebuah program computer dan pemanfaatan fasilitas database. Selain itu, akan diuraikan hal-hal lain yang berkaitan dengan system seperti perangkat keras (hardware), perangkat lunak (software), dan pemakai (brainware). 1.1.1
Perangkat Keras (Hardware)
Dalam pembuatan system reservasi pesawat secara online ini didukung dengan fasilitas perangkat keras computer (hardware) yang membantu dalam pembuatan program tersebut. Spesifikasi perangkat keras yang mendukung perancangan system ini adalah sebagai berikut :
Proccesor Procces or Intel® Atom 330 (TM) CPU @ 1.60ghz (4CPUs)
RAM 899 MB Single-Channel DDR2
Motherboard BYON Queva W9121 (CPU 1)
VGA HSD121P HW1 Sis Mirage 3 Graphics, 256 Mb
Hard
Mouse Optik
Canon Pixma MP287 Printer P rinter
1.1.2
Drives 313GB Seagate ST9320325AS (SATA)
Perangkat Lunak (Software)
Perangkat lunak pendukung yang dibutuhkan untuk pembuatan aplikasi reservasi pesawat secara online ini yaitu :
Sistem Operasi MS MS Windows Windows XP Professional Professional (5.1,Build 2600)
Microsoft Office Professional 2007
Adobe Photoshop CS
Microsoft Visual Studio 2005
3.2
Cara Pengoperasian Pengoperasian Program Untuk cara pengoperasian programnya yaitu dengan melakukan
Log-In
terlebih dahulu di Menu Utama pada program aplikasi Reservasi Pesawat ini dengan cara : K lik lik
atau Pilih Menu File Log-in di Form Menu Utama ini pada toolbar lalu isikan
User Name dan Password yang benar. Pada
Log-In
terdapat 3 level, yaitu master,
admin dan operator. Jika kita sebagai Master maka kita tidak akan bisa melihat ke menu transaksi, jika kita sebagaiMisalnya kita sebagai admin maka isikan User Name dengan Admin dan Passwordnya dengan admin juga.
Gambar 3.2.1Gambar ketika
Adapun tujuan dibuat Sistem
Log-In
Log-In
itu sendiri agar aplikasi ini
mempunyai pengamanan tersendiri, selain buat Privacy ( K eamanan) eamanan) itu sendiri Sistem
Log-In
ini juga berguna untuk mengetahui identitas yang memakai
Aplikasi ini, apabila ada penyimpangan dalam pembuatan diketahui orang yang menyimpang itu karena di system
Laporan
Log-in
maka akan
ini, ada identitas
Pengguna atau User yang sudah ditentukan sebelumnya. Setelah melakukan
Log-In
dengan benar, karena yang memakai sistem
aplikasi ini sebagai admin maka selanjutnya bisa ke Menu Master, didalamnya
terdapat Data Customer, Data Pesawat, Data Tujuan, Laporan
Laporan
Data Customer,
Data Pesawat dan juga Laporan Data Tujuan.
Pada Data Costomer kita bisa menginput data customer yang akan memesan tiket. Data yang di input yaitu
K ode ode
Customer sebagai primary key,
kode tersebut bersifat unik karena satu kode dipakai untuk satu customer, selanjutnya ada Nama Customer, Jenis
elamin, K elamin,
Alamat, Telepon dan Email.
Setelah semua data di input maka langkah selanjutnya simpan data tersebut dengan memilih tombol simpan. Di bawah ini gambar ketika kita memilih menu Master dengan Data Customer, form ini berfungsi untuk menginput data-data customer, tujuan dibuatnya form customer yaitu agar kita tidak menemukan kesulitan ketika harus mencari data customer, dan juga kita tidak akan kesulitan ketika harus mengetahui siapa saja yang memesan tiket.
Di form customer terdapat terdapat tombol seperti di bawah ini : Tombol ini berfungsi untuk melihat data-data customer yang telah di input sebelumnya. Pada Data Pesawat kita bisa menginput data pesawat apa saja yang bisa di pesan pada sistem Reservasi Pesawat Terbang ini . Data yang di input yaitu
K ode ode
Pesawat sebagai primary key, kode tersebut bersifat unik karena satu kode dipakai
untuk satu pesawat, selanjutnya ada Nama Pesawat dan Jenis Pesawat. Jenis Pesawat ada dua, yaitu Pesawat dengan jenis boeing dan air bus. Setelah semua data di input maka langkah selanjutnya simpan data tersebut dengan memilih tombol simpan. Selanjutnya untuk Data Transaksi kita bisa menginput data customer, data pesawat dan tujuan apa saja yang akan di pesan pada sistem Reservasi Pesawat Terbang ini . Data tersebut terdapat No Penerbangan sebagai primary key, karena No Penerbangan bersifat unik, sehingga dijadikan kunci utama. Di bawah ini gambar ketika kita memilih menu TRANSA K SI SI dengan nama Penerbangan, form ini berfungsi untuk menginput data-data customer, pesawat dan tujuan atau nama tempat yang bisa dituju pada system Reservasi Pesawat Terbang ini, tujuan dibuatnya form transaksi yaitu agar kita lebih mudah dalam penghitungan ketika melakukan reservasi pesawat.
Di form transaksi terdapat terdapat tombol seperti di bawah ini : Tombol ini dinamakan tombol cari, tombol yang terdapat di Data Customer ini akan menghubungkan ke form daftar customer.
etika K etika
akan langsung muncul form seperti gambar di bawah ini :
tombol ini di klik maka
Setelah itu maka akan muncul data-data yang telah di input di f orm customer, lalu pilih customer tersebut yang akan melakukan transaksi dengan cara double klik, setelah itu form daftar customer akan keluar dengan sendirinya sedangkan data yang dipilih akan langsung muncul d form transaksi pada Data Customer. Selain tombol cari dipakai pada data customer, tombol cari juga dapat terhubung ke form Daftar Pesawat dan Daftar Tujuan. Cara kerjanya sama seperti di atas. Setelah mengisi Data Customer, Data Pesawat dan Data Tujuan, maka tarif akan muncul secara otomatis, otomatis, setelah itu bisa isikan jumlah jumlah tiket yang akan di di pesan. Maka akan otomatis terisi jumlah harga, pajak dan asuransi. Dan ketika kita tekan tombol Tambah maka data-data yang tadi sudah diisi akan terisi pada List
Penerbangan (List View). Selanjutnya kita bisa menambahkan lagi pesawat
dan tujuan yang akan di pesan. Setelah selesai kita bisa menekan tombol Simpan untuk menyimpan data Transaksi Penerbangan pada Database. Setelah itu di aplikasi Reservasi Pesawat Terbang ini juga terdapat Report. Yang mana ada
Laporan
Data Customer,
Laporan
Tujuan, dan Laporan Transaksi P enerbangan.
Data Pesawat,
Laporan
Data
BAB IV PENUTUP
Pada bab ini berisi kesimpulan yang merupakan ringkasan yang diambil dari pembahasan perangkat lunak yang dibuat yaitu : Sistem Informasi Reservasi Pesawat Terbang. Sedangkan saran yang ada dibuat sebagai referensi untuk karya tulis selanjutnya.
4.1
Kesimpulan Sistem Aplikasi Reservasi Pesawat Terbang ini bisa membantu
proses pemesanan tiket yang menggunakan sistem komputerisasi , dan bahkan lebih efesien dan akurat di bandingkan dengan pemesanan tiket secara manual. Adapun kelebihan dan kekurangan dalam system aplikasi ini yaitu : elebihannya, K elebihannya,
data yang dihasilkan lebih akurat dan efisien. Sedangkan
kekurangannya yaitu membutuhkan space komputer yang lumayan tinggi dan juga membutuhkan software tambahan yaitu Microsoft Visual Studio 2005. esimpulan K esimpulan
lainnya yaitu sebagai berikut :
Dengan adanya system reservasi pesawat terbang maka proses pencarian data dan pembuatan laporan-laporan yang dibutuhkan lebih cepat.
Mempermudah transaksi pada system reservasi pesawat.
Penyimpanan data akan lebih aman dan terjaga karena data disimpan dalam database.
4.2
Saran Dari keterbatasan yang ada dapat diajukan kemungkinan untuk
mengembangkan program lebih lanjut, agar diperoleh kualitas program yang lebih baik. Penulis masih mengakuai banyak kekurangan dalam menulis makalah ini , oleh karena itu saya meminta kritik dan saran yang membangun untuk kemajuan saya khususnya. Semoga makalah ini bermanfaat bagi pembaca.
