Aplikasi Penjualan Tiket pesawat – microsoft Visual Studio 2012

 

Assalamu’alaiku warahmaatullahi wabarakatuh.

Salah satu tugas Ujian Akhir Semester, dan untuk memenuhi kelengkapan nilai mata kuliah pemrograman 1.

Untuk penjelasan penulis sudah membuat perancangannya di pecan UAS lalu.

Program yang telah dibuat adalah Aplikasinya PEMESANAN TIKET PESAWAT. Mungkin ini hanya program sederhana saja atau bisa dibilang program untuk programmer pemula.

Deskripsi dari program ini adalah untuk user sudah bisa menampilkan data, dan menyimpan data.

Dalam artian program yang saya buat ini user sudah bisa memanipulasi semua data yang akan di input.

Untuk pengoperasiannya :

  • Input Nama pemesan
  • Input No. telepon
  • Pilih ID pewawat
  • Lalu klik cari untuk menampilkan Nama pesawat, Jurusan, Harga tiket,
  • Input jumlah pembelian tiket
  • Klik beli untuk mengetahui total bayar tiket tersebut,
  • Button tampil untuk menampilkan data yang telah di input,
  • Button simpan untuk menyimpan data yang telah di input.
  • Data yang sudah disimpan sudah terkoneksioleh Database Ms. Acces.

Yang akan saya berikan di blog ini :

  • Flow Chart
  • Contoh design
  • Source code
  • Hasil Run

7

 

2

 

1

 

3

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Public Class fromtiket

Inherits System.Web.UI.Page
Private constring As String = ConfigurationManager.ConnectionStrings(“ConnectionString2”).ConnectionString
Private oConn As New OleDbConnection(constring)
Private xReader As OleDbDataReader

Protected Sub cari_Click(sender As Object, e As EventArgs) Handles cari.Click
oConn.Close()
oConn.Open()
Dim ocmd As New OleDb.OleDbCommand(“SELECT * FROM tiket where idpesawat =” & id.SelectedValue() & “”, oConn)
xReader = ocmd.ExecuteReader
If xReader.HasRows Then
xReader.Read()
pesawat.Text = xReader(“namapesawat”)
jurusan.Text = xReader(“jurusan”)
harga.Text = xReader(“Hargatiket”)
Else
pesawat.Text = “Nama Pesawat Tidak ada”

End If
xReader.Close()




End Sub

Protected Sub beli_Click(sender As Object, e As EventArgs) Handles beli.Click
total.Text = harga.Text * jumlah.Text
End Sub

Protected Sub simpan_Click(sender As Object, e As EventArgs) Handles simpan.Click
Dim sql As String = “INSERT INTO Tablepembeli VALUES (‘” & nama.Text & “‘,'” & telepon.Text & “‘,'” & id.Text & “‘,'” & pesawat.Text & “‘,'” & jurusan.Text & “‘,'” & harga.Text & “‘,'” & jumlah.Text & “‘,'” & total.Text & “‘)”
Dim oCmd As New OleDbCommand
oConn.Open()
oCmd.Connection = oConn
oCmd.CommandText = sql
oCmd.ExecuteNonQuery()
End Sub

Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Response.Redirect(“webfromRezatriharyadi_161011400143.aspx”)
End Sub
End Class

 

  • SOURCE CODE PADA BUTTON BELI

total.Text = harga.Text * jumlah.Text
End Sub

  • SOURCE PADA BUTTON SIMPAN

Dim sql As String = “INSERT INTO Tablepembeli VALUES (‘” & nama.Text & “‘,’” & telepon.Text & “‘,’” & id.Text & “‘,’” & pesawat.Text & “‘,’” & jurusan.Text & “‘,’” & harga.Text & “‘,’” & jumlah.Text & “‘,’” & total.Text & “‘)”
Dim oCmd As New OleDbCommand
oConn.Open()
oCmd.Connection = oConn
oCmd.CommandText = sql
oCmd.ExecuteNonQuery()
End Sub

 

4

 

5

 

8

6

6

Sekian blog dari saya kurang dan lebihnya saya mohon maaf, semoga bermanfaat..

Wassalamu’alaikum. wr. wb..