Scribd
Upload
278 views3 pages

Billing and User Login System Code

The document outlines a billing system with a cash payment interface, handling change calculations and receipt generation based on user input. It includes user login validation and a registration link for new users. The system provides feedback messages for various scenarios, such as insufficient payment and successful login.

Uploaded by

Mythes Jica
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
278 views3 pages

Billing and User Login System Code

The document outlines a billing system with a cash payment interface, handling change calculations and receipt generation based on user input. It includes user login validation and a registration link for new users. The system provides feedback messages for various scenarios, such as insufficient payment and successful login.

Uploaded by

Mythes Jica
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

BILLING

Public paygtotal As Double

Private Sub txtcasht_TextChanged(ByVal sender As [Link], ByVal e As [Link])


Handles [Link]

paygtotal = [Link]

If Val([Link]) = 0 Then

[Link] = ""

ElseIf Val([Link]) - paygtotal < 0 Then

[Link] = [Link]

[Link] = Val([Link]) - paygtotal

Else

[Link] = [Link]

[Link] = Val([Link]) - paygtotal

End If

End Sub

Private Sub btnpay_Click(ByVal sender As [Link], ByVal e As [Link]) Handles


[Link]

If [Link] = [Link] Then

MsgBox("Hoy way labot utang dere!!!", vbOKOnly + vbInformation, "WAY UTANGAY")

Else

[Link]()

For x = 0 To [Link] - 1 Step 1

[Link]([Link](x))
[Link]([Link](x))

[Link]([Link](x))

Next

[Link] = [Link]

[Link] = Format(Val([Link]), "₱ #,###.00")

[Link] = Format(Val([Link]), "₱ #,###.00")

[Link] = Format(paygtotal * 0.12, "₱ #,###.00")

[Link] = [Link]

[Link] = Now

End If

FORM3

Dim x, y As Integer

For x = 0 To [Link] - 1 Step 1

If [Link] = [Link](x) Then

y=x

Exit For

End If

Next

If [Link] = "" Then

MsgBox("All Fields Are Required!", vbOKOnly + vbInformation, "Empty field")

ElseIf [Link] = "" Then


MsgBox("Password is required!", vbOKOnly + vbInformation, "Empty field")

ElseIf [Link] <> [Link](y) Then

MsgBox("PLEASE! Use your own password", vbOKOnly + vbInformation, "failed")

Else

MsgBox("SUCCESSFULLY LOGED IN!", vbOKOnly + vbInformation, "success")

[Link]()

[Link]()

[Link] = "hello " & [Link]

End If

End Sub

Private Sub lnkregester_LinkClicked(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]

[Link]()

[Link]()

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

End Sub

You might also like