Are you building a Point of Sale (POS) system? Or perhaps you need a custom invoicing solution for a client that off-the-shelf software just can't handle?
| Feature | Benefit | |---------|---------| | Barcode scanner integration | Faster billing | | Return/Refund module | Customer satisfaction | | Daily sales chart (WinForms Chart) | Visual insights | | User activity log | Security audit | | Cloud sync (REST API) | Multi-store reporting | vbnet+billing+software+source+code
Private Sub btnAddProduct_Click(sender As Object, e As EventArgs) Handles btnAddProduct.Click ' Assume a popup product search form returns selected product Dim frm As New frmProductSearch() If frm.ShowDialog() = DialogResult.OK Then Dim newRow As DataRow = dtDetails.NewRow() newRow("ProductID") = frm.SelectedProductID newRow("ProductName") = frm.SelectedProductName newRow("Quantity") = 1 newRow("Rate") = frm.Rate ' Tax calculation will be done row-by-row based on GST% Dim gstPercent As Decimal = frm.GSTPercent Dim taxable As Decimal = newRow("Quantity") * newRow("Rate") newRow("TaxableValue") = taxable newRow("CGST") = Math.Round(taxable * (gstPercent / 100) / 2, 2) newRow("SGST") = Math.Round(taxable * (gstPercent / 100) / 2, 2) dtDetails.Rows.Add(newRow) CalculateTotals() End If End Sub Are you building a Point of Sale (POS) system
' Simple calculation logic Elias wrote Dim total As Double = Val(txtPrice.Text) * Val(txtQty.Text) txtTotal.Text = total.ToString("C") Use code with caution. Copied to clipboard Connecting the Past Copied to clipboard Connecting the Past ' Generic
' Generic method to execute Non-Query (Insert, Update, Delete) Public Function ExecuteNonQuery(query As String, parameters As List(Of SqlParameter)) As Boolean Using conn As SqlConnection = GetConnection() Using cmd As New SqlCommand(query, conn) If parameters IsNot Nothing Then cmd.Parameters.AddRange(parameters.ToArray()) End If conn.Open() Dim rowsAffected As Integer = cmd.ExecuteNonQuery() Return rowsAffected > 0 End Using End Using End Function End Class