Aplikasi Pemesanan Tiket Pesawat Berbasis Web/ASP Menggunakan Visual Studio

Deskripsi Program

Program yang akan di bahas kali ini adalah program sederhana berbasis WebSite/ASP.NET menggunakan Database Ms.Acces dan Software Visual Basic, Sehingga database yang kita buat dapat tersambung ke Software Visual Basic dan hasil Run akan otomatis masuk ke dalam WEB.

Di dalam WEB kita dapat menambahkan atau menghapus data yang sudah ada di database yang kita buat sebelumnya.

Step 1 :

Kita Buat terlebih dahulu database di Ms.Acces

Cara :

a.       Buka Ms.Acces .

Klik New Folder => Format sesuai gambar di bawah => Lalu OK.

b.     Setelah itu buat Tabel atau Database sesuai kebutuhan

Step 2 :

Kita buka Software Visual Basic dan buat project baru .

File => New => WebSite

Lalu, pilih ASP.NET Web From Site => Masukan nama sesuai keinginan dan OK.

Step 3 :

Untuk Connect database Acces yang kita buat tadi bisa ikuti gambar di bawah ini bro

Setelah database terconnect dengan Visual Basic, Selanjutnya kita desain Web Form dengan bahan bahan yang digunakan :

1.      Label

2.      Text Box

3.      Button

            Contoh Form desain nya :

Step 4 :

            Saatnya kita masukkan code atau script untuk menjalankan aplikasinya.

A.       Untuk Connect ke WEB

Source Code :

Imports System.Data

Imports System.Data.SqlClient

Imports System.Data.OleDb

Partial Class alvian

    Inherits System.Web.UI.Page

    Dim transaksi As OleDbConnection

    Dim constring As String = ConfigurationManager.ConnectionStrings("pesawatConnectionString").ConnectionString

    Dim oConn As New OleDbConnection(constring)

    'Dim oTbl As New DataTable

    Dim xReader As OleDbDataReader

    Dim Sql As String

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

  End Sub

B.       Button Tambah

Source Code :

Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim sql As String = "INSERT INTO customer VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')"

        Dim oCmd As New OleDbCommand

        oConn.Open()

        oCmd.Connection = oConn

        oCmd.CommandText = sql

        oCmd.ExecuteNonQuery()

    End Sub

C.      Button Cari

Source Code :

If Not Len(TextBox1.Text) = 0 Then

            oConn.Close()

            oConn.Open()

            Dim ocmd As New OleDbCommand("SELECT * FROM customer where id_passport ='" + TextBox1.Text + "'", oConn)

            xReader = ocmd.ExecuteReader

            If xReader.HasRows Then

                xReader.Read()

                TextBox1.Text = xReader("id_passport")

                TextBox2.Text = xReader("nama_customer")

            Else

                TextBox1.Text = "No Passport tidak ada"

                Exit Sub

            End If

            xReader.Close()

        End If

    End Sub

D.       Button Tampilkan

Source Code :

Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        Response.Redirect("AlvianSaputra_161011400311.aspx")

    End Sub

E.      Button Hapus

Source Code :

Dim sql As String = "DELETE FROM customer where nama_customer=('" & TextBox2.Text & "');"

        Dim oCmd As New OleDbCommand

        oConn.Open()

        oCmd.Connection = oConn

        oCmd.CommandText = sql

        oCmd.ExecuteNonQuery()

    End Sub

Step 5 :

                                Hasil Run yang otomatis masuk WEB

Ket :

-          Untuk menambahkan , kita bisa isi semua yang di perlukan lalu klik Tambah.

-          Untuk mencari , kita bisa masukan satu nama kue yang ingin di cari , lalu klik Cari dan akan menampilkan kode dan harga kue yang di tuju.

-          Kegunaan Hapus adalah untuk menghapus data yang sudah pernah di input atau tambahkan.

-          Untuk melihat atau menampilkan data yang sudah pernah kita tambah adalah dengan klik tombol Tampilkan.