REKAYASA PERANGKAT LUNAK

APLIKASI KASIR PENJUALAN PIZZA

1.  Analisa Kebutuhan Dan Manfaat Aplikasi Penjualan Kasir Pizza

• merancang dan membangun sistem informasi penjualan pizza 
• mempermudah pengguna menjual pizza dengan menggunakan program penjualan
• mempercepat proses transaksi dan memudahkan kasir dalam penjualan

2.  Analisa Kebutuhan Sistem 

• perancangan sistem proses penjualan ini ,agar kasir menjalankan dan mengkordinir semua kegiatan operasional dan aktivitas kasir dalam memberikan pelayanan semua pelanggan yang diarahkan untuk memenuhi kepuasan pelanggan dan meningkatkan jumlah pelanggan .

INTERFACE DESAIN WEBFORM

TAMPILAN INPUT SAVE

TAMPILAN VIEW DATA 

TAMPILAN DATABASE ACCES 2012

TAMPILAN DESAIN VIEW DATABASE

SOURCE CODE

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\sabila mula prawira\Documents\Visual Studio 2012\Projects\WebApplication1\WebApplication1\app\UAS_WEB.mdb" Dim ObjKoneksi 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 Hasil As Single Dim Hasil2 As Single Dim Hasil3 As Single a = TextBox5.Text b = TextBox6.Text c = TextBox11.Text d = TextBox12.Text Hasil = a * b Hasil2 = c * d Hasil3 = Hasil + Hasil2 TextBox14.Text = Hasil TextBox15.Text = Hasil2 TextBox13.Text = Hasil3 End Sub Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click ObjKoneksi.Open() Dim tambah As String = "INSERT INTO Stock values('" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox9.Text & "','" & TextBox10.Text & "','" & TextBox11.Text & "','" & TextBox12.Text & "','" & TextBox13.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "') " Dim oCmd = New OleDbCommand(tambah, ObjKoneksi) oCmd.ExecuteNonQuery() ObjKoneksi.Close() MsgBox("Sukses") End Sub Protected Sub TextBox13_TextChanged(sender As Object, e As EventArgs) Handles TextBox13.TextChanged End Sub Protected Sub TextBox8_TextChanged(sender As Object, e As EventArgs) Handles TextBox8.TextChanged End Sub Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" TextBox6.Text = "" TextBox7.Text = "" TextBox8.Text = "" TextBox9.Text = "" TextBox10.Text = "" TextBox11.Text = "" TextBox12.Text = "" TextBox13.Text = "" TextBox14.Text = "" TextBox15.Text = "" End Sub Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Response.Redirect("ViewData.aspx") End Sub Protected Sub TextBox12_TextChanged(sender As Object, e As EventArgs) Handles TextBox12.TextChanged End Sub Protected Sub TextBox7_TextChanged(sender As Object, e As EventArgs) Handles TextBox7.TextChanged End Sub Protected Sub TextBox10_TextChanged(sender As Object, e As EventArgs) Handles TextBox10.TextChanged End Sub End Class