Rekayasa Perangkat Lunak Aplikasi Jual Beli di Kantin

Analisa Kebutuhan Untuk Jual Beli kantin :

1. Untuk mempermudah melakukan transaksi Jual Beli

2. Mempermudah pengontrolan stok barang

Struktur Data Base

Data Base Name : Database2.mdb

Table Name        : tugas_uas

Field                   : ID                                     : AutoNumber

                             nama_barang                    : Text

                             banyak_barang                 :Text

                             harga_barang                   :Text

                             total_harga                       :Text

Screen Shoot Tampilan Form Penjualan

Tampilan Sukses

Form View Data

Source Code Form Penjualan

Imports System.Data
Imports System.Data.OleDb


Public Class WebForm1
    Inherits System.Web.UI.Page
    Dim Koneksi As String = "Provider=Microsoft.jet.OLEDB.4.0;Data Source= C:\Users\ASUS\Documents\Visual Studio 2012\Projects\Tugas_uas\Tugas_uas\app\Database2.mdb"
    Dim objekKoneksi As New OleDb.OleDbConnection(Koneksi)


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

    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim a As Single
        Dim b As Single
        Dim c As Single
        Dim d As Single
        Dim Hasil1 As Single
        Dim Hasil2 As Single
        Dim Hasil3 As Single
        a = TextBox2.Text
        b = TextBox3.Text

        Hasil1 = a * b


        TextBox5.Text = Hasil1

    End Sub

    Protected Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    End Sub

    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        objekKoneksi.Open()
        Dim tambah As String = "INSERT INTO tugas_uas values('" & TextBox6.Text & "','" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox5.Text & "') "
        Dim oCmd = New OleDbCommand(tambah, objekKoneksi)
        oCmd.ExecuteNonQuery()
        objekKoneksi.Close()
        MsgBox("Sukses")

    End Sub

    Protected Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles TextBox6.TextChanged

    End Sub

    Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
    End Sub

    Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Response.Redirect("WebForm3.aspx")
    End Sub
End Class



Source Code Veiw Data 

Public Class WebForm3
    Inherits System.Web.UI.Page

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

    End Sub

    Protected Sub GridView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles GridView1.SelectedIndexChanged

    End Sub
End Class