TUTORIAL
MEMBUAT APLIKASI FORUM PENJUALAN TIKET PERJALANAN TRAVEL BESERTA DATABASE
MS.ACCESS DENGAN VISUAL STUDIO 2012
Assalamualaikum
Wr.wb
Langsung aja disini saya akan menjelaskan bagaimana cara
membuat Program Penjualan Tiket Perjalanan Travel dengan menggunakan
aplikasi Visual Studio 2012.
Oke langsung aja....
Pertama-pertama sediakan komponen-komponen yang
dibutuhkannya :
·
Pc/laptop
·
Aplikasi Visual Studio 2012
·
Aplikasi Ms.Access
·
Kopi cemilan dan lain-lainnya
Flowchart:
Sebelum kita melangkah membuat aplikasi-nya, saya akan sedikit menjelaskan alur program aplikasinya dari awal program sampai dengan proses pembeliannya
-
Pertama kita pilih dahulu
menggunakan kendaraan apa
-
klik gambar kendaraannya
-
Lalu setelah dipilih maka akan
masuk ke proses pembelianya
-
Proses pembeliannya:
§ Pertama
kita input dulu Nama
§ Lalu
kita pilih Kode kendaraannya
§ Setelah
dipilih, klik button Cari untuk
mengetahui Nama Kendaraan, Jurusan, dan Harga Tiketnya
§ Setelah
berhasil mengetahui diCari maka,
input jumlah tiket yang ingin kita beli
§ Setelah
diinput jumlah tiketnya klik button Beli
untuk mengetahui berapa Total Bayarnya
§ Setelah
mengetahui TotalBayarnya, kita simpan dahulu ke Database khusus Pembeli dengan
cara klik button Simpan setelah
berhasil maka akan ada notifikasinya
§ Dan
selanjutnya apabila sudah tersimpan datanya klik button Tampil untuk mengetahui data sang pembeli
§ Terakhir
apabila kita ingin mengulang proses dari awal program maka kita hanya perlu
mengklik button Kembali pada bagian
bawah tabel pembeli.
Setelah mengetahui alur programnya mari kita
buat apliksainya:
1.
Pertama-tama kita buat dulu
databasenya dulu di Ms.Access
a.
Buka software Ms.Accessnya >
pilih blank database > pilih create Database dan beri nama daatbasenya
b.
Lalu buat tabelnya seperti gambar
dibawah
Disini
saya membuat 5 tabel deeengan masing-masing nama
TableKereta,TableBus,TablePesawat,TableKapal,dan TablePembeli
Untuk
TableBus,Kereta,Kapal,dan Pesawat memiliki field yang sama
Dan
untuk Table Pembelinya
c. setelah
kita membuat DataBasenya maka kita langsung buat aplikasinya diVisual Studio
2.
Pertama , kalian jalankan aplikasi
nya
Lalu kita akan muncul seperti gambar dibawah
ini
3.
Lalu kita klik file > NewProject, lalu akan muncul gambar dibawah ini
4. kita
pilih Web > ASP.NET Web Form
Application > masukan Nama Webprojectnya >ok
5.
selanjutnya kita akan buat design formnya terlebih dahulu, disini
saya buat 6 Webform..
cara membuat WebForm:
-
pada pojok kanan , klik kanan nama
projectnya lalu add > webform
-
Beri nama Webform sesuai keinginan
kita
-
Setelah diberi nama lalu ok >
lalu buatlah design WebFormnya seperti gambar dibawah
Form
pertama (cover/sampul)
Form
kedua sampai dengan Form kelima (proses)
Form terakhir ( data daftar pembeli )
Disini saya akan merangkumm apa saja yang
dibutuhkan dalam pembuatan Form-form
FORM AWAL
|
||||||||||
FORM BUS
|
FORM
KERETA
|
FORM
PESAWAT
|
FORM
KAPAL LAUT
|
FORM
PEMBELI
|
Setelah kalian membuat seperti yang saya
contohkan diatas, lalu kita harus ubah dahulun terlebih dahulu masing masing
nama variabelnya supaya bisa mempermudah kita dalam proses peng-codingannya.
Oke kita mulai saja memasukan masing-masing
codingan pada setiap Toolbox yang
sudah ditaruh di masing-masing Form..kuy
Form1(AWAL)
Masukan code dibawah untuk BTNBUS
Response.Redirect("WebFormBUS.aspx")
Masukan code dibawah untuk BTNKERETA
Response.Redirect("WebFormKERETA.aspx")
Masukan code dibawah untuk BTNPESAWAT
Response.Redirect("WebForPESAWAT.aspx")
Masukan code dibawah untuk BTNKAPALLAUT
Response.Redirect("WebFormKAPAL.aspx")
Form
kedua sampai dengan Form kelima (proses)
Untuk masalah codingnya sama saja hanya yang
membedakan cuman nama variable(id),
sebelum kita memasukan codingnya kita harus mengimport terlebih dahulu, isi
dengan coding dibawah diatas classnya
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Public Class WebFormPESAWAT
Selanjutnya kita
mengkonnfigurasi dahulu ke databasenya,masukan coding dibawah untuk
mengkonfigurasikannya.
Inherits System.Web.UI.Page
Private constring As String = ConfigurationManager.ConnectionStrings("ConnectionString3").ConnectionString
Private oConn As New OleDbConnection(constring)
Private xReader As OleDbDataReader
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Masukkan coding dibawah untuk
bagian button Cari
Protected Sub Btncari_Click(sender As Object, e As EventArgs) Handles Btncari.Click
oConn.Close()
oConn.Open()
Dim ocmd As New OleDb.OleDbCommand("SELECT * FROM
TablePESAWAT where KODEPESAWAT =" &
ddkode.SelectedValue() & "", oConn)
xReader = ocmd.ExecuteReader
If xReader.HasRows Then
xReader.Read()
Txtpesawat.Text = xReader("NAMAPESAWAT")
Txtjurusan.Text = xReader("JURUSAN")
Txtharga.Text = xReader("HARGA")
Else
Txtpesawat.Text = "Nama PESAWAT Tidak ada"
End If
xReader.Close()
End Sub
Sebelum kita memasukkan
codinganya kita harus terlebih dahulu mengkoneksi kan pada toolbox
Dropdownlistnya terlebih dahulu
Klik gambar yang saya
bulatbirukan > lalu pilih seperti gambar dibawah
Lalu pilih
Lalu pilih
Pilih bagian database sql
> lalu ok
Pilih new connection
Pilih MS.ACCESS database File
> ok
Lalu browse untuk mencari
dimana database yang tadi buat untuk dikoneksikan
Setelah dibrowse lalu ok
Apabila berhasil dikoneksikan
maka akan muncl gambar diatas > lalu next > next lagi
Gambar diatas adalah database
yang sudah terkoneksikan, lalu kita tigggal pilih ingin mengkoneksikan dengan
Table yang mana, setelah dipilih tablenya, disini kita hanya menampilkan field
Kode saja maka ceklis hanya bagian Kode saja.> lalu next> finish
Apabila ragu dengan data yang
inginditampilakn maka kita bisa mengeceknya dahulu dengan klik Test Query atau
apabila sudah yakin maka langsung klik finish saja
Masukan codingan yang
dibaawah untuk button Beli
Protected Sub Btnbeli_Click(sender As Object, e As EventArgs) Handles Btnbeli.Click
Txtbayar.Text = Txtharga.Text *
Txtjumlah.Text
End Sub
Masukan codingan yang
dibaawah untuk button Hapus
Protected Sub Btnhapus_Click(sender As Object, e As EventArgs) Handles Btnhapus.Click
Txtnama.Text = ""
Txtjurusan.Text = ""
Txtpesawat.Text = ""
Txtjumlah.Text = ""
Txtharga.Text = ""
Txtbayar.Text = ""
Txtnama.Focus()
End Sub
Masukan codingan yang
dibaawah untuk button Kembali
Protected Sub Btnkembali_Click(sender As Object, e As EventArgs) Handles Btnkembali.Click
Response.Redirect("WebFormAWAL.aspx")
End Sub
Masukan codingan yang
dibaawah untuk button Tampil
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Response.Redirect("WebFormPEMBELI.aspx")
End Sub
Masukan codingan yang
dibaawah untuk button Simpan
Protected Sub Btnsimpan_Click(sender As Object, e As EventArgs) Handles Btnsimpan.Click
Dim sql As String = "INSERT INTO
TablePEMBELI VALUES ('" & Txtnama.Text
& "','" & ddkode.Text & "','" & Txtpesawat.Text & "','" &
Txtjurusan.Text & "','" & Txtharga.Text & "','" & Txtjumlah.Text & "','" & Txtbayar.Text & "')"
Dim oCmd As New OleDbCommand
oConn.Open()
oCmd.Connection = oConn
oCmd.CommandText = sql
oCmd.ExecuteNonQuery()
MsgBox("DATA
SUDAH TERSIMPAN", MsgBoxStyle.Information, "SIMPAN")
End Sub
End Class
FormPembeli
diFormPembeli ini codingannya hanya pada button kembali
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Response.Redirect("WebFormAWAL.aspx")
End Sub
Namun disini
kita pakai ToolBox Gridview untuk menampilkan hasil data yang tersimpan di
TablePembeli. Cara sama saja dengan mengkoneksikan seperti yang diatas.
Nah setelah
selesai mengikuti langkah-langkah seperti yanng diatas dibawah ini hasil
running nya salah satu proses pembelian Tiketnya:
Sekian tutorial dari saya,
mohon maaf apabila ada salah kata
Wassalamualaikum Wr.Wb
