Scribd
Upload
50 views11 pages

Billing System

This document contains code for multiple forms in a Visual Basic .NET Point of Sale (POS) system. Form5 handles adding products and transactions to a list. It loads products from a database and allows adding transactions. Form6 displays transactions from a database. Form8 handles user registration by adding usernames and passwords to a database table.

Uploaded by

robert
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
50 views11 pages

Billing System

This document contains code for multiple forms in a Visual Basic .NET Point of Sale (POS) system. Form5 handles adding products and transactions to a list. It loads products from a database and allows adding transactions. Form6 displays transactions from a database. Form8 handles user registration by adding usernames and passwords to a database table.

Uploaded by

robert
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 11

Public Class Form5

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles


Button2.Click

Form3.Show()

Me.Hide()

End Sub

Private Sub Form5_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Me.filllistview()

ListView1.View = View.Details

lbldate.Text = DateTime.Now.ToLongDateString

Timer1.Start()

lbldate.Hide()

Loadcompany()
End Sub

Sub filllistview()

Try

ListView1.Items.Clear()

strsql = "SELECT * FROM tbl_product ORDER BY Product ASC"

objcmd = New MySql.Data.MySqlClient.MySqlCommand(strsql, objconn)

objdr = objcmd.ExecuteReader

While (objdr.Read())

With ListView1.Items.Add(objdr("Product"))

.subitems.add(objdr("Price"))

End With

End While

objcmd.Dispose()

objdr.Close()

Catch ex As Exception

MsgBox(ex.Message)

Me.filllistview()

End Try

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles


Button1.Click

TextBox3.Text = Val(TextBox4.Text) + Val(TextBox3.Text)

Dim ab = 0

Dim cd = 0

With ListView2.Items.Insert(0, TextBox7.Text, 0)

.SubItems.Add(TextBox1.Text)

.SubItems.Add(TextBox2.Text)

.SubItems.Add(TextBox3.Text)

End With

ListBox1.Items.Add(TextBox7.Text & " " + vbTab + vbTab + vbTab + vbTab


+ TextBox1.Text & " " + vbTab & TextBox2.Text + vbNewLine)

strsql = "INSERT INTO tbl_transaction (Date,Product,Price,Quantity,Total)


VALUES (@field1,@field2,@field3,@field4,@field5)"

objcmd = New MySql.Data.MySqlClient.MySqlCommand(strsql, objconn)

With objcmd
.Parameters.AddWithValue("@field1", lbldate.Text)

.Parameters.AddWithValue("@field2", TextBox7.Text)

.Parameters.AddWithValue("@field3", TextBox1.Text)

.Parameters.AddWithValue("@field4", TextBox2.Text)

.Parameters.AddWithValue("@field5", TextBox3.Text)

End With

objcmd.ExecuteNonQuery()

objcmd.Dispose()

MsgBox("Product has been added")

TextBox7.Text = ""

TextBox1.Text = ""

TextBox2.Text = ""

TextBox4.Text = ""

TextBox7.Focus()

End Sub

Private Sub Loadcompany()

ListBox1.Items.Clear()

ListBox1.Items.Add(vbTab + "
*******Offical Reciept********")

ListBox1.Items.Add(vbNewLine + vbTab + "


***Elaine's Lomi Haus****")

ListBox1.Items.Add(vbNewLine + vbTab + " VAT Reg


TIN No.: 136-639-108-00" + vbNewLine)

ListBox1.Items.Add("
" + vbNewLine)

ListBox1.Items.Add(vbTab + vbTab + " BIR PN:PR-057-0014099


" + vbNewLine)

ListBox1.Items.Add(vbTab + vbTab + vbTab + " OR#:30000063614" +


vbNewLine)

ListBox1.Items.Add("
" + vbNewLine)

ListBox1.Items.Add("Date:" + vbTab + lbldate.Text + vbNewLine)

ListBox1.Items.Add("
")

ListBox1.Items.Add("Product" + vbTab + vbTab + vbTab + vbTab + vbTab +


"Price" + vbTab + "Quantity" + vbNewLine)
ListBox1.Items.Add("" + vbNewLine)

End Sub

Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles


TextBox5.TextChanged

TextBox6.Text = Val(TextBox5.Text) - Val(TextBox3.Text)

End Sub

Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles


TextBox2.TextChanged

TextBox4.Text = Val(TextBox2.Text) * Val(TextBox1.Text)

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles


Button3.Click

TextBox7.Text = ""

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox5.Text = ""

TextBox6.Text = ""

MsgBox("Thank you Please Come Again!")

Form3.Show()

Me.Hide()

End Sub

Private Sub ListBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles


ListBox1.MouseClick

With ListView1.SelectedItems(0)

TextBox7.Text = .SubItems(0).Text

TextBox1.Text = .SubItems(1).Text

End With

End Sub

Private Sub PrintDocument1_PrintPage(sender As Object, e As


Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim startX As Integer = 52

Dim startY As Integer = 52

For x As Integer = 0 To ListBox1.Items.Count - 1

e.Graphics.DrawString(ListBox1.Items(x).ToString, ListBox1.Font,
Brushes.Black, startX, startY)

startY += ListBox1.ItemHeight

Next

End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles


Button4.Click

PrintPreviewDialog1.Document = PrintDocument1

PrintPreviewDialog1.ShowDialog()

PrintDialog1.Document = PrintDocument1

PrintDialog1.PrinterSettings = PrintDocument1.PrinterSettings

PrintDialog1.AllowSomePages = True

If PrintDialog1.ShowDialog = DialogResult.OK Then

PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings

PrintDocument1.Print()

End If

End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles


Button5.Click

ListBox1.Items.Add(" " + vbNewLine)

ListBox1.Items.Add("_________________________________________________" +
vbNewLine)

ListBox1.Items.Add(" Total:" + vbTab + vbTab + vbTab + vbTab + vbTab +


TextBox3.Text + vbNewLine)

ListBox1.Items.Add("_________________________________________________" +
vbNewLine)

ListBox1.Items.Add(" Payment:" + vbTab + vbTab + vbTab + vbTab +


TextBox5.Text + vbNewLine)
ListBox1.Items.Add(" Change:" + vbTab + vbTab + vbTab + vbTab +
TextBox6.Text + vbNewLine)

ListBox1.Items.Add(vbNewLine)

ListBox1.Items.Add(vbTab + vbTab + " This serves as official


Receipt. " + vbNewLine)

ListBox1.Items.Add(vbTab + vbTab + " Amusement and Cultural tax


included. " + vbNewLine)

ListBox1.Items.Add(vbTab + " Valid only on the screening


details indicated. " + vbNewLine)

End Sub

Private Sub ListView1_MouseClick(sender As Object, e As MouseEventArgs) Handles


ListView1.MouseClick

With ListView1.SelectedItems(0)

TextBox7.Text = .SubItems(0).Text

TextBox1.Text = .SubItems(1).Text

End With

End Sub

End Class
Public Class Form6

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles


Button2.Click

Form3.Show()

Me.Hide()

End Sub

Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles


TextBox3.TextChanged

Try

ListView1.Refresh()

ListView1.Items.Clear()

strsql = "SELECT * FROM tbl_transaction WHERE Date LIKE @field1 '%'"

objcmd = New MySql.Data.MySqlClient.MySqlCommand(strsql, objconn)

With objcmd

.Parameters.AddWithValue("@field1", TextBox3.Text)

End With

objdr = objcmd.ExecuteReader

While (objdr.Read())

With ListView1.Items.Add(objdr("Date"))

.subitems.add(objdr("Product"))

.subitems.add(objdr("Price"))

.subitems.add(objdr("Quantity"))

.subitems.add(objdr("Total"))

End With

End While

objcmd.Dispose()

objdr.Close()

Catch ex As Exception

MsgBox(ex.Message)

Me.filllistview()
End Try

End Sub

Sub filllistview()

Try

ListView1.Items.Clear()

strsql = "SELECT * FROM tbl_transaction ORDER BY Date ASC"

objcmd = New MySql.Data.MySqlClient.MySqlCommand(strsql, objconn)

objdr = objcmd.ExecuteReader

While (objdr.Read())

With ListView1.Items.Add(objdr("Date"))

.subitems.add(objdr("Product"))

.subitems.add(objdr("Price"))

.subitems.add(objdr("Quantity"))

.subitems.add(objdr("Total"))

End With

End While

objcmd.Dispose()

objdr.Close()

Catch ex As Exception

MsgBox(ex.Message)

Me.filllistview()

End Try

End Sub

Private Sub Form6_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Me.filllistview()

End Sub

End Class
Public Class Form7

End Class
Public Class Form8

Private Sub cmdlogin_Click(sender As Object, e As EventArgs) Handles


cmdlogin.Click

strsql = "INSERT INTO tbl_login (Username,Password) VALUES


(@field1,@field2)"

objcmd = New MySql.Data.MySqlClient.MySqlCommand(strsql, objconn)

With objcmd

.Parameters.AddWithValue("@field1", txtusername.Text)

.Parameters.AddWithValue("@field2", txtpassword.Text)

End With

objcmd.ExecuteNonQuery()

objcmd.Dispose()

MsgBox("Record Added!")

Dim ab = MsgBox("Register another one?", vbYesNo)

If ab = vbYes Then

txtusername.Text = ""

txtpassword.Text = ""
txtusername.Focus()

Else

txtusername.Text = ""

txtpassword.Text = ""

End If

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles


Button1.Click

Form3.Show()

Me.Hide()

End Sub

End Class

You might also like