TUGAS UAS

Deskripsi Program 

program pemesanan makan pada sebuah tempat makan sederhana, yang dimana bertujuan untuk mempermudah membeli atau pengunjung dalam  memesan makanan yang ingin di pesan

Screenshot Program 

keterangan Program

pembeli cukup menuliskan pesanan pada field yang telah tersedia, lalu menekan tombol tambah untuk melakukan pesanan, yang kemudian akan tersimpan pada database.

• Tombol Tambah, yang juga berfungsi sebagai tombol pesan makanan, dimana makanan yang sudah di masukan oleh pembeli akan di simpan pada data base
• Tombol Hapus, berfungsi untuk menghapus data yang pernah di pesana atau yang sudah di pesan
• Tombol cari, berfungsi untuk mencari pesanan yang di pesan oleh pengunjung, cukup dengan memasukan nomor meja
• Tombol Ubah, berfungsi untuk melakukan perubahan pada pesanan yang pernah atau telah di pesan
• Tombol Clear, berfungsi untuk menghapus pesanan yang belum tersimpan pada data base

Souce Code Program 

Imports System.Data
Imports System.Data.OleDb
Public Class MenuUtama
    Inherits System.Web.UI.Page
    Dim sconn As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\URDAL\Downloads\Eresha\UAS Pemrograman\Database1.accdb"
    Dim con As New OleDb.OleDbConnection(sconn)
    Dim reader As OleDb.OleDbDataReader
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub btntambah_Click(sender As Object, e As EventArgs) Handles btntambah.Click
        con.Open()
        Dim tambah As String = "INSERT INTO Apriansyah VALUES('" + txtmeja.Text + "', '" + txtmakanan.Text + "', '" + txtminuman.Text + "')"
        Dim cmd = New OleDbCommand(tambah, con)
        cmd.ExecuteNonQuery()
        con.Close()
        MsgBox("Berhasil")
    End Sub

    Protected Sub btnhapus_Click(sender As Object, e As EventArgs) Handles btnhapus.Click
        con.Open()
        Dim hapus As String = "DELETE*FROM Apriansyah Where NoMeja = '" + txtmeja.Text + "' "
        Dim cmd = New OleDbCommand(hapus, con)
        cmd.ExecuteNonQuery()
        con.Close()
        MsgBox("Berhasil")
    End Sub

    Protected Sub btnubah_Click(sender As Object, e As EventArgs) Handles btnubah.Click
        con.Open()
        Dim ubah As String = "UPDATE Apriansyah set NoMeja = '" + txtmeja.Text + "'  WHERE Makanan = '" + txtmakanan.Text + "' & Minuman = '" + txtminuman.Text + "' "
        Dim cmd = New OleDbCommand(ubah, con)
        cmd.ExecuteNonQuery()
        con.Close()
        MsgBox("Berhasil")
    End Sub

    Protected Sub btncari_Click(sender As Object, e As EventArgs) Handles btncari.Click
        con.Open()
        Dim cmd As New OleDb.OleDbCommand("SELECT *FROM Apriansyah Where NoMeja = '" + txtmeja.Text + "'", con)
        If reader.HasRows Then
            reader.Read()
            txtmakanan.Text = reader("Makanan")
            txtminuman.Text = reader("Minuman")
        Else
            MsgBox("Data Tidak Ditemukan")
        End If
    End Sub

    Protected Sub btnclear_Click(sender As Object, e As EventArgs) Handles btnclear.Click
        txtmeja.Text = ""
        txtmakanan.Text = ""
        txtminuman.Text = ""
    End Sub
End Class