In this post, we’ll break down the core components of a VB.NET billing application and provide a clear roadmap for the source code structure. Key Features of the Billing Software
For robust billing software, a normalized SQL database is essential: Users (UserID, Username, Password, Role) Products (ProductID, ProductName, Price, StockQuantity) Customers (CustomerID, CustomerName, Phone) Invoices (InvoiceID, CustomerID, Date, TotalAmount)
Before we write code, here is the table structure. vbnet+billing+software+source+code
✅ – Many examples include direct printer support or barcode generation (e.g., using Graphics.DrawString or free barcode fonts).
This rating reflects the software's potential as a cost-effective billing solution for small to medium-sized businesses, while also highlighting its limitations in terms of scalability and integration. In this post, we’ll break down the core components of a VB
✅ – If you’re a student or junior dev, studying this code teaches practical CRUD operations, event handling, and report generation without the complexity of modern frameworks.
: Ensure compilation properties target x86 or x64 CPU platforms explicitly to match the architecture of the MS Access OLEDB drivers installed on your computer. To help customize this code for your project, let me know: This rating reflects the software's potential as a
Imports System.Data.OleDb Public Class Form1 ' Define database connection string (Place BillingDB.accdb in your bin/Debug folder) Private connString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\BillingDB.accdb;" Private conn As New OleDbConnection(connString) Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load ClearProductInputs() lblGrandTotal.Text = "₹ 0.00" End Sub ' Event: Fetch product details automatically when ProductID is entered Private Sub txtProductID_TextChanged(sender As Object, e As EventArgs) Handles txtProductID.TextChanged If txtProductID.Text.Trim().Length > 0 Then Try If conn.State = ConnectionState.Closed Then conn.Open() Dim query As String = "SELECT ProductName, Price FROM Products WHERE ProductID = @ID" Using cmd As New OleDbCommand(query, conn) cmd.Parameters.AddWithValue("@ID", Convert.ToInt32(txtProductID.Text)) Using reader As OleDbDataReader = cmd.ExecuteReader() If reader.Read() Then txtProductName.Text = reader("ProductName").ToString() txtPrice.Text = reader("Price").ToString() txtQuantity.Text = "1" ' Default quantity Else txtProductName.Clear() txtPrice.Clear() txtQuantity.Clear() End If End Using End Using Catch ex As Exception ' Fail silently during typing to avoid intrusive popups Finally conn.Close() End Try End If End Sub ' Event: Add validated item to DataGridView Private Sub btnAddToGrid_Click(sender As Object, e As EventArgs) Handles btnAddToGrid.Click If txtProductName.Text = "" Or txtPrice.Text = "" Or txtQuantity.Text = "" Then MessageBox.Show("Please select a valid product and enter quantity.", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Warning) Exit Sub End If Dim price As Decimal = Convert.ToDecimal(txtPrice.Text) Dim qty As Integer = Convert.ToInt32(txtQuantity.Text) Dim total As Decimal = price * qty ' Append row directly to DataGridView dgvBill.Rows.Add(txtProductID.Text, txtProductName.Text, price, qty, total) CalculateGrandTotal() ClearProductInputs() End Sub ' Helper: Calculate running invoice total Private Sub CalculateGrandTotal() Dim grandTotal As Decimal = 0 For Each row As DataGridViewRow In dgvBill.Rows If Not row.IsNewRow Then grandTotal += Convert.ToDecimal(row.Cells(4).Value) End If Next lblGrandTotal.Text = "₹ " & grandTotal.ToString("F2") End Sub ' Helper: Clear fields for next entry Private Sub ClearProductInputs() txtProductID.Clear() txtProductName.Clear() txtPrice.Clear() txtQuantity.Clear() txtProductID.Focus() End Sub ' Event: Save checkout data and process standard inventory deduction Private Sub btnPrintBill_Click(sender As Object, e As EventArgs) Handles btnPrintBill.Click If dgvBill.Rows.Count = 0 Or (dgvBill.Rows.Count = 1 And dgvBill.Rows(0).IsNewRow) Then MessageBox.Show("The cart is empty.", "Checkout Error", MessageBoxButtons.OK, MessageBoxIcon.Warning) Exit Sub End If Try If conn.State = ConnectionState.Closed Then conn.Open() ' Generate a pseudo-random invoice number for tracking Dim rand As New Random() Dim invoiceNo As Integer = rand.Next(100000, 999999) For Each row As DataGridViewRow In dgvBill.Rows If Not row.IsNewRow Then Dim prodID As Integer = Convert.ToInt32(row.Cells(0).Value) Dim prodName As String = row.Cells(1).Value.ToString() Dim price As Decimal = Convert.ToDecimal(row.Cells(2).Value) Dim qty As Integer = Convert.ToInt32(row.Cells(3).Value) Dim total As Decimal = Convert.ToDecimal(row.Cells(4).Value) ' 1. Insert transaction details log Dim insertQuery As String = "INSERT INTO InvoiceDetails (InvoiceNo, ProductName, Price, Quantity, [Total]) VALUES (@Inv, @Name, @Price, @Qty, @Tot)" Using cmdInsert As New OleDbCommand(insertQuery, conn) cmdInsert.Parameters.AddWithValue("@Inv", invoiceNo) cmdInsert.Parameters.AddWithValue("@Name", prodName) cmdInsert.Parameters.AddWithValue("@Price", price) cmdInsert.Parameters.AddWithValue("@Qty", qty) cmdInsert.Parameters.AddWithValue("@Tot", total) cmdInsert.ExecuteNonQuery() End Using ' 2. Deduct inventory stock balances Dim updateStockQuery As String = "UPDATE Products SET Stock = Stock - @Qty WHERE ProductID = @ID" Using cmdUpdate As New OleDbCommand(updateStockQuery, conn) cmdUpdate.Parameters.AddWithValue("@Qty", qty) cmdUpdate.Parameters.AddWithValue("@ID", prodID) cmdUpdate.ExecuteNonQuery() End Using End If Next MessageBox.Show("Transaction saved successfully! Invoice No: " & invoiceNo, "Success", MessageBoxButtons.OK, MessageBoxIcon.Information) dgvBill.Rows.Clear() lblGrandTotal.Text = "₹ 0.00" Catch ex As Exception MessageBox.Show("Database Error: " & ex.Message, "Execution Failed", MessageBoxButtons.OK, MessageBoxIcon.Error) Finally conn.Close() End Try End Sub End Class Use code with caution. 🛠️ Optimisations for Enterprise Scaling
Using conn As New SqlConnection(ConnectionString) conn.Open() Dim transaction = conn.BeginTransaction()
Developers and students can find comprehensive projects and tutorials on various platforms: