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