VB.Net Sistem Stok Manajemen

 

Sistem Manajemen Stok di VB.NET
Sistem Manajemen Stok dikembangkan menggunakan VB.NET. Proyek ini didasarkan pada konsep pengelolaan stok barang dengan jumlah dan harganya. Berbicara tentang proyek, pengguna harus melewati sistem login untuk mendapatkan akses agar dapat menggunakan fitur-fiturnya. Seorang pengguna cukup melakukan fungsi CRUD yang diperlukan untuk pengelolaan stok barang.

Tentang Sistem
Berbicara tentang fitur Sistem Manajemen Stok, dia dapat menambahkan item yang berbeda dengan unit yang berbeda. Untuk menambahkan item, pengguna harus memasukkan nama item, pilih item unit, rate, dan quantity. Setelah memasukkan tarif dan kuantitas tertentu, sistem akan menghitung jumlah total. Jika pengguna ingin memperbarui item, dia cukup mengklik item tersebut, mengubah nilainya, dan memperbaruinya. Ada tombol segarkan untuk menyegarkan seluruh daftar stok setelah menambahkan, memperbarui, atau menghapus item. Dan juga menghapus item terlalu sederhana, pengguna hanya perlu mengklik item tersebut dan menekan tombol hapus. Daftar stok menampilkan total item yang ditampilkan dengan nomor seri, nama, unit, per tarif, kuantitas, dan jumlah total dalam tampilan daftar.

Berbicara tentang Bagian GUI, sangat sederhana sehingga pengguna tidak akan menemukan kesulitan saat mengerjakannya. Proyek Sistem Manajemen Stok membantu pengguna untuk memudahkan pengelolaan stok barang dengan kuantitas dan jumlah masing-masing dalam waktu singkat. software mudah dioperasikan dan dipahami oleh pengguna. Untuk menjalankan software ini Anda harus menginstal Visual Studio IDE dan MS Access di PC Anda. Sistem Manajemen Stok di VB.NET dengan kode sumber gratis

Imports System.Data.SqlClient

Public Class Form1
    Dim connectionString As String = "Data Source=server_name;Initial Catalog=database_name;User ID=user_id;Password=password"
    Dim connection As New SqlConnection(connectionString)

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        LoadStockData()
    End Sub

    Private Sub LoadStockData()
        Dim query As String = "SELECT * FROM Stock"
        Dim command As New SqlCommand(query, connection)
        Dim adapter As New SqlDataAdapter(command)
        Dim dataset As New DataSet()

        adapter.Fill(dataset, "Stock")

        DataGridView1.DataSource = dataset.Tables("Stock")
    End Sub

    Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
        Dim productName As String = txtProductName.Text
        Dim quantity As Integer = Integer.Parse(txtQuantity.Text)

        Dim query As String = "INSERT INTO Stock (ProductName, Quantity) VALUES (@ProductName, @Quantity)"
        Dim command As New SqlCommand(query, connection)
        command.Parameters.AddWithValue("@ProductName", productName)
        command.Parameters.AddWithValue("@Quantity", quantity)

        connection.Open()
        command.ExecuteNonQuery()
        connection.Close()

        LoadStockData()

        ClearInputs()
    End Sub

    Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
        Dim stockId As Integer = Integer.Parse(txtStockId.Text)
        Dim productName As String = txtProductName.Text
        Dim quantity As Integer = Integer.Parse(txtQuantity.Text)

        Dim query As String = "UPDATE Stock SET ProductName = @ProductName, Quantity = @Quantity WHERE StockId = @StockId"
        Dim command As New SqlCommand(query, connection)
        command.Parameters.AddWithValue("@ProductName", productName)
        command.Parameters.AddWithValue("@Quantity", quantity)
        command.Parameters.AddWithValue("@StockId", stockId)

        connection.Open()
        command.ExecuteNonQuery()
        connection.Close()

        LoadStockData()

        ClearInputs()
    End Sub

    Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
        Dim stockId As Integer = Integer.Parse(txtStockId.Text)

        Dim query As String = "DELETE FROM Stock WHERE StockId = @StockId"
        Dim command As New SqlCommand(query, connection)
        command.Parameters.AddWithValue("@StockId", stockId)

        connection.Open()
        command.ExecuteNonQuery()
        connection.Close()

        LoadStockData()

        ClearInputs()
    End Sub

    Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        Dim rowIndex As Integer = e.RowIndex

        If rowIndex >= 0 AndAlso rowIndex < DataGridView1.Rows.Count - 1 Then
            Dim row As DataGridViewRow = DataGridView1.Rows(rowIndex)
            txtStockId.Text = row.Cells("StockId").Value.ToString()
            txtProductName.Text = row.Cells("ProductName").Value.ToString()
            txtQuantity.Text = row.Cells("Quantity").Value.ToString()
        End If
    End Sub

    Private Sub ClearInputs()
        txtStockId.Text = ""
        txtProductName.Text = ""
        txtQuantity.Text = ""
    End Sub
End Class 

Untuk Full Fitur kami akan membahas untuk selanjutnya:
1. Sistem masuk
2. Tambahkan item
3. perbarui item
4. Daftar item
5. Hapus item

Ini adalah Contoh Source Kode Yang dapat anda gunakan untuk vb.net
terimakasih mungkin hanya itu saja source yang dapat kami berikan untuk full source kode nanti kami bagikan di totrial selanjutnya

Berbagi :