Vb.net Billing Software Source Code [ 2025 ]

Private Sub LoadProductsIntoCombo() Dim query As String = "SELECT ProductID, ProductName FROM Products" Using conn As New OleDbConnection(connString) Dim da As New OleDbDataAdapter(query, conn) Dim dt As New DataTable() da.Fill(dt) cboProduct.DataSource = dt cboProduct.DisplayMember = "ProductName" cboProduct.ValueMember = "ProductID" End Using End Sub

Private Sub btnAddItem_Click(sender As Object, e As EventArgs) Handles btnAddItem.Click If cboProduct.SelectedValue Is Nothing Then Exit Sub Dim productID As Integer = CInt(cboProduct.SelectedValue) Dim productName As String = cboProduct.Text Dim qty As Integer = CInt(nudQuantity.Value) Dim price As Decimal = GetProductPrice(productID) Dim total As Decimal = price * qty vb.net billing software source code

ProductID (AutoNumber, PK) ProductName (Text) HSN (Text) Price (Currency) Private Sub LoadProductsIntoCombo() Dim query As String =

MessageBox.Show("Bill saved successfully! Bill No: " & billID) currentBillID = billID btnPrint.Enabled = True End Sub vb.net billing software source code

Public Sub New(billID As Integer) InitializeComponent() Me.billID = billID LoadBillData() End Sub

Dim taxRate As Decimal = 5.0 ' 5% GST Dim taxAmount As Decimal = subtotal * (taxRate / 100) Dim discount As Decimal = nudDiscount.Value Dim grandTotal As Decimal = subtotal + taxAmount - discount

CustomerID (AutoNumber, PK) Name (Text) Mobile (Text) GSTIN (Text)