Tugas 4 SMBD 2013/2014 ” Aplikasi Manajemen Pariwisata Dengan Visual Basic “

Kelompok kami membuat aplikasi travel menggunakan visual basic yang terdiri dari :

1. Form login
2. Form menu utama yang didalamnya terdapat  5 menu yang terdiri dari :
   1. Menu data master  yang didalam menu data master terdapat pilihan

• Form input data kategori
• Form input data wisata
• Form input data pelanggan
• From input data biro perjalanan

1. Menu data transaksi yang didalam menu data tranksaksi terdapat pilihan

• Form input data tiket
• Form input data tranksaksi
• Form input data agenda

1. Menu data layanan yang didalam menu data layanan terdapat pilihan

• Form Input data penginapan
• Form Input data kelas kamar penginapan
• Form Input data rumah makan
• Form Input data toko cindramata
• Form Input data jenis cindramata
• Form input data toko oleh oleh
• Form input jenis oleh oleh

1. Menu logout
2. Menu about yang didalam menu about terdapat pilihan

• Form tentang aplikasi yang berisi nama kelompok smbd aplikasi travel.

Aplikasi travel menggunakan visual basic
1. Sebelum kita masuk kemenu utama kita terlebih dahulu login terlebih dahulu .Dan kita login menggunakan user  admin

2. Menu utama

Source codenya :
Private Sub mnuAgenda_Click()
Data_agenda.Show
End Sub
Private Sub mnuaplikasi_Click()
about.Show
End Sub
Private Sub mnuBiro_Click()
Data_biro.Show
End Sub
Private Sub mnuJenisCindramata_Click()
Data_JenisCindramata.Show
End Sub
Private Sub mnuJenisOleh_Click()
Data_JenisOleh.Show
End Sub
Private Sub mnuKategori_Click()
Data_kategori.Show
End Sub
Private Sub mnukelas_Click()
Data_kelas.Show
End Sub
Private Sub mnuLogoutt_Click()
login.Show
Unload Me
End Sub
Private Sub mnuPelanggan_Click()
Data_pelanggan.Show
End Sub
Private Sub mnuPenginapan_Click()
Data_hotel.Show
End Sub
Private Sub mnuRumahMakan_Click()
Data_RumahMakan.Show
End Sub
Private Sub mnuTiket_Click()
Data_tiket.Show
End Sub
Private Sub mnuTokoCindramata_Click()
Data_cindramata.Show
End Sub
Private Sub mnuTokoOleh_Click()
Data_TokoOleh.Show
End Sub
Private Sub mnuTransaksii_Click()
Data_transaksi.Show
End Sub
Private Sub mnuWisata_Click()
Data_wisata.Show
End Sub

3. Form input data kategori

Source codenya :
Private Sub Combo1_Change()
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.Update
End Sub
Private Sub Command3_Click()
Adodc1.Recordset.Delete
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Form_Load()
Combo1.AddItem “Darat”
Combo1.AddItem “Laut (Pantai)”
Combo1.AddItem “Pegunungan”
End Sub

4. Form input data wisata

5. Form input data pelanggan

6. Form input data biro perjalanan

 
7. Form input data transaksi tiket

8. Form input data transaksi

9. Form input data agenda pelanggan

10. Form input data penginapan

11. Form input data kelas kamar penginapan

12. Form input data rumah makan

 
13. Form input data toko cindramata

14. Form input data jenis cindramatra

 
15. Form input data toko oleh oleh

16. Form input data oleh oleh

 
17. Form about