Vb.net Billing Software Source Code May 2026

Private Sub btnPrint_Click(sender As Object, e As EventArgs) Handles btnPrint.Click If currentBillID = -1 Then MessageBox.Show("Save the bill first.") Return End If Dim rpt As New frmPrintPreview(currentBillID) rpt.ShowDialog() End Sub

Private Sub SaveBillItem(billID As Integer, productID As Integer, qty As Integer, price As Decimal, total As Decimal) Dim query As String = "INSERT INTO BillItems (BillID, ProductID, Quantity, Price, Total) VALUES (@bid, @pid, @qty, @price, @total)" Using conn As New OleDbConnection(connString) Dim cmd As New OleDbCommand(query, conn) cmd.Parameters.AddWithValue("@bid", billID) cmd.Parameters.AddWithValue("@pid", productID) cmd.Parameters.AddWithValue("@qty", qty) cmd.Parameters.AddWithValue("@price", price) cmd.Parameters.AddWithValue("@total", total) conn.Open() cmd.ExecuteNonQuery() End Using End Sub vb.net billing software source code

Private Sub btnPrint_Click(sender As Object, e As EventArgs) Handles btnPrint.Click PrintDocument1.Print() End Sub Private Sub btnPrint_Click(sender As Object, e As EventArgs)

Private Function GetProductPrice(productID As Integer) As Decimal Dim query As String = "SELECT Price FROM Products WHERE ProductID = @pid" Using conn As New OleDbConnection(connString) Dim cmd As New OleDbCommand(query, conn) cmd.Parameters.AddWithValue("@pid", productID) conn.Open() Return CDec(cmd.ExecuteScalar()) End Using End Function Private Sub btnPrint_Click(sender As Object

MessageBox.Show("Bill saved successfully! Bill No: " & billID) currentBillID = billID btnPrint.Enabled = True End Sub