Membuat Aplikasi Kasir Restoran

Assalam'mualaikum wr.wb
Salah satu tugas akhir Semester, dan untuk memenuhi kelengkapan nilai mata kuliah Pemograman 1 di STMIK ERESHA. Untuk penjelasannya penulis sudah membuat perancangannya di pekan uas lalu. 
   Progam yang telah di buat adalah Aplikasi Pembayaran Restoran, mungkin ini hanya program sederhana saja atau bisa dibilang program untuk progamer pemula. Deskripsi dari program ini adalah untuk user sudah bisa menyimpan data, menghapus data ,dan mengedit data yang sudah tersimpan. Dalam artian program yang saya sudah buat ini, user sudah bisa memanipulasi semua data yang akan di input/diberikan user dan sesuai keinginan nya.

Untuk pengoprasian nya ;
- Input data ,
- Proses,
- Simpan,
- Selesai
- Data yang sudah di simpan , sudah terkoneksi oleh database Ms. Acces


Yang akan saya berikan di Blog ini :
- Flow Chart (Gambar)
- Contoh Design (Gambar)
- Grid View (Gambar)
-Data Base (Gambar)
-Source Kode Button Cari
-Source Kode Button Tampil
-Source Kode Button Simpan
-Source Kode Button  Beli
-Hasil Run (Gambar)

• Flow Chart

•  Contoh Design

 

• Grid View

• Data Base 

•  Source Kode 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 Tableresto where Paket_Hemat =" & ddkode.SelectedValue() & "", oConn)
        xReader = ocmd.ExecuteReader
        If xReader.HasRows Then
            xReader.Read()
            txtmenu.Text = xReader("Menu")
            txtharga.Text = xReader("Harga")
        Else
            txtmenu.Text = "Nama menu Tidak ada"

        End If
        xReader.Close()

    End Sub

•  Source Kode Button Tampil

Protected Sub btntampil_Click(sender As Object, e As EventArgs) Handles btntampil.Click
        Response.Redirect("WebFormPEMBELI.aspx")
    End Sub 

•  Source Kode 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 & "','" & txtmenu.Text & "','" & txtharga.Text & "','" & txtjumlah.Text & "','" & txttotalbayar.Text & "')"
        Dim oCmd As New OleDbCommand
        oConn.Open()
        oCmd.Connection = oConn
        oCmd.CommandText = sql
        oCmd.ExecuteNonQuery()

    End Sub 

•  Source Kode Button  Beli

    Protected Sub btnbeli_Click(sender As Object, e As EventArgs) Handles btnbeli.Click

    End Sub

• Hasil Run

 

- Source Code WebFromBeli

Public Class WebFormBELI
    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 Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

                Sekian Aplikasi Kasir Pembayaran Restowan, Mohon maaf masih banyak kesalahan di blog aplikasi saya. Karena saya masih pemula di codingan Program Aplikasi Visual Studio.

TERIMAKASIH