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

REKAYASA PERANGKAT LUNAK

Project Aplikasi Inventory Barang

• Aplikasi ini berfungsi untuk menyimpan  dan mencatat barang masuk dari supplier
• Mempermudah dalam memasukan data dan menghitung stock barang di gudang untuk mencatat transaksi opname.

Interface Login User

Interface Dasboard Admin

Interface View Data Inventory

Interface Input Tambah Barang

*Source Code*

Form 1 Login

Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Form5.Show() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Me.Close() End Sub Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged End Sub End Class

Form 2  Dasboard

Public Class Form5 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Form4.Show() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Form3.Show() End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Me.Close() End Sub Private Sub Form5_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub End Class

Form 3 View Data Inventory

Imports System.Data.OleDb Public Class Form4 Dim Conn As OleDbConnection Dim da As OleDbDataAdapter Dim ds As DataSet Dim LokasiDB As String Sub Koneksi() LokasiDB = "provider=microsoft.jet.oledb.4.0;data source=DBJNM.mdb" Conn = New OleDbConnection(LokasiDB) If Conn.State = ConnectionState.Closed Then Conn.Open() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Koneksi() da = New OleDbDataAdapter("Select * from barang", Conn) ds = New DataSet ds.Clear() da.Fill(ds, "Barang") DataGridView1.DataSource = (ds.Tables("Barang")) End Sub Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Form3.Show() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Me.Close() End Sub End Class

Form 4 Input Tambah Barang

Public Class Form3 Public Class Form3 Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click End Sub Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click End Sub Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click MsgBox("Simpan berhasil", MsgBoxStyle.Information, "Berhasil") End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Me.Close() End Sub Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub End Class

DATABASE TABLE INPUT BARANG