IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

APPENDIX F

(Source Code)
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

Loading Screen

Public Class Form1

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles [Link]

[Link] += 4

If ([Link] >= 1000) Then

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

End If

End Sub

Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles [Link]

If ([Link] >= 10) Then

[Link] = "Hello!"
End If

If ([Link] >= 200) Then

[Link] = "Roasting Beans"
End If

If ([Link] >= 400) Then

[Link] = "Mixing Ingredients"
End If

If ([Link] >= 600) Then

[Link] = "Waking up"
End If

If ([Link] >= 800) Then

[Link] = "Successfully starting..."
End If

End Sub

End Class
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

Login Screen

Imports [Link]
Imports [Link]
Imports [Link]

Public Class Form2

Public try_number As Integer

Dim m As Integer
Dim s As Integer
Dim h As Integer

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles [Link]

connect()

End Sub

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

[Link]

If [Link] <> [Link] Then

[Link]()
End If

[Link] = encrypt([Link])

Dim da As New SqlDataAdapter("select * from Accounts", sqlconn)

Dim dt As New DataTable

[Link]()
[Link](dt)
Dim resultat As Integer

For i = 0 To [Link] - 1
If [Link] = [Link]([Link](i)("Username")) And
[Link] = [Link]([Link](i)("Password")) Then

fname = [Link]([Link](i)("Fname"))
lname = [Link]([Link](i)("Lname"))
uname = [Link]([Link](i)("UserLevel"))
id = [Link]([Link](i)("User_ID")) 'LETSE IKAW LANG PALA
KULANG!!!

MsgBox("Welcome " + fname + " " + lname + ", You are now logged
in!", [Link], "LOGIN")

[Link] = fname + " " + lname

[Link] = uname

resultat = 1
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

[Link] = decrypt([Link])

'PARA MA-DETERMINE KUNG CASHIER YUNG USER OR HINDI

If uname = "Cashier" Then
'[Link]()
Menu_Cashier.Show()
[Link]()
resultat = 1
Else
[Link]()
[Link]()
End If

' If uname = "SuperAdmin" Then

'[Link] = True
'else
' [Link] = False
' End If

End If
Next

If [Link] = "" And

[Link] <> "" Then
MsgBox(" Username cannot be empty!", [Link], "NOTICE")

End If

If [Link] = "" And

[Link] <> "" Then
MsgBox(" Password cannot be empty!", [Link], "NOTICE")

End If

If [Link] = "" And

[Link] = "" Then
MsgBox(" Username and Password cannot be empty!",
[Link], "NOTICE")

End If

If resultat <> 1 Then

MsgBox("Please check your credentials either your Username or Password

is wrong!", [Link], "LOGIN ERROR")
try_number += 1

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

If try_number = 2 Then
MsgBox(" One wrong attempt left and you will be locked!",
[Link], "NOTICE")
End If
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

If try_number >= 3 Then

MsgBox(" You have reached the maximum of login attempts! Try again
in two minutes!", [Link], "TERMINATION")

[Link] = True

[Link] = False

[Link] = True 'countdown

[Link] = True 'text

[Link] = False 'login

[Link] = False 'quit
[Link] = False 'un
[Link] = False 'pw
[Link] = False 'show password

'[Link]()
End If
End If
End Sub

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

[Link]
If [Link] Then
[Link] = ""
Else
[Link] = "*"
End If
End Sub

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

[Link]

Dim P As String

P = MsgBox("Are you sure you want to quit?", vbQuestion +

[Link], "Confirmation")

If P = vbYes Then
[Link]()
End If

End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles [Link]

[Link] = [Link]("hh:mm:ss tt")
End Sub

Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles [Link]

[Link] = [Link]("MM" + "-" + "dd" + "-" + "yyyy")
End Sub

Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles [Link]

[Link] = [Link] - 1
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

If [Link] = 0 Then

[Link] = True 'login

[Link] = True 'quit
[Link] = True 'login tb
[Link] = True 'password tb
[Link] = True 'show pw
[Link] = False 'timer
[Link] = False 'timer
[Link] = False 'timer

[Link] = True

[Link] = 120
try_number = 0

End If

End Sub

End Class

Dashboard

Public Class Form3

Private Sub Form3_Load(sender As Object, e As EventArgs) Handles [Link]

[Link] = fname + " " + lname

[Link] = uname

If uname = "SuperAdmin" Then

'[Link] = True
[Link] = True 'button
[Link] = True 'text
[Link] = True 'picture
[Link] = True 'text
Else
'[Link] = False
[Link] = False 'button
[Link] = False 'text
[Link] = False 'picture
[Link] = False 'G
End If

End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles [Link]

[Link] = [Link]("MM" + "-" + "dd" + "-" + "yyyy")
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

[Link] = fname + "!"

End Sub

Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles [Link]

[Link] = [Link]("hh:mm:ss tt")
End Sub

Private Sub MENUToolStripMenuItem_Click(sender As Object, e As EventArgs)

Menu_form.Show()
[Link]()

End Sub

Private Sub LOGOUTToolStripMenuItem_Click(sender As Object, e As EventArgs)

Dim LO As String

LO = MsgBox("Do you want to logout?", vbQuestion + [Link], "You

are Logging Out")

If LO = vbYes Then
[Link]()
[Link]()
[Link]()
[Link]()
[Link]()
Form2.try_number = 0
End If
End Sub

Private Sub ACCOUNTSToolStripMenuItem_Click(sender As Object, e As EventArgs)

[Link]()
[Link]()
End Sub

Private Sub GTCToolStripMenuItem_Click(sender As Object, e As EventArgs)

Menu_Cashier.Show()
[Link]()
End Sub

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

[Link]
'menu
Menu_form.Show()
[Link]()

End Sub

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

[Link]
'transacs
[Link]()
[Link]()
End Sub
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

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

[Link]
'accs
[Link]()
[Link]()
End Sub

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

[Link]
'logout
Dim LO As String

LO = MsgBox("Do you want to logout?", vbQuestion + [Link], "You

are Logging Out")

If LO = vbYes Then
[Link]()
[Link]()
[Link]()
[Link]()
[Link]()
Form2.try_number = 0
End If

End Sub

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

[Link]
'cashier
Menu_Cashier.Show()
[Link]()

End Sub

End Class
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

Cashier Form

Imports [Link]
Imports [Link]
Imports [Link]
Imports [Link]

Public Class Menu_Cashier

Dim a As Integer = 0
Dim subtotal As Decimal
'Dim TN As String = "00001"
Dim trans_no As String
Dim ordersh As Integer

Dim WithEvents PrintDoc As New PrintDocument

Dim PrintPrev As New PrintPreviewDialog
Dim longp As Integer

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

[Link]

connect()
readdata()
'AutoNumber()
rowheight()
'viewimage()

[Link] = False 'removeall

[Link] = False 'payment
[Link] = False

'hex para kapag nagload ang form is makita ang color

[Link] = [Link]("#f26a26") '20
[Link] = [Link]("#de3e47") '50
[Link] = [Link]("#655e87") '100
[Link] = [Link]("#5d8c62") '200
[Link] = [Link]("#edb524") '500
[Link] = [Link]("#309fd6") '1000

CreatetransactionNo()

If uname = "SuperAdmin" Then

[Link] = True 'back button
[Link] = False 'logout button
[Link] = True 'alt + k
[Link] = False 'alt + l
Else
[Link] = False 'back button
[Link] = True 'logout button
[Link] = False 'alt + k
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

[Link] = True 'alt + l

End If

End Sub

Sub createnewautonumber()
Try
Dim cmd As New SqlCommand
With cmd
.Connection = sqlconn
.CommandText = "SP_Autonumber_TSN"
.CommandType = [Link]
.[Link]("@Pfx", "000")
End With
[Link]()
[Link]()
Catch ex As Exception
MsgBox([Link])
End Try
End Sub

Sub AutoNumber()

Dim number As String

str = "Select Max(NewNumber) from Transac_AutoNum where Pfx = @pfx"

cmd = New [Link](str, sqlconn)
With cmd
.[Link]("@Pfx", "000")

If IsDBNull([Link]) Then

createnewautonumber()
Dim num1 As String
str = "Select Max(NewNumber) from Transac_AutoNum where Pfx =
@pfx"
cmd = New [Link](str, sqlconn)
With cmd
.[Link]("@Pfx", "000")
num1 = [Link]([Link])
[Link] = [Link]("yyyyMMdd").TrimEnd +
num1
End With
[Link]()
[Link]()

Else
number = [Link]([Link])
[Link] = [Link]("yyyyMMdd").TrimEnd + number

End If

'TN = ([Link](TN) + 1).ToString("00000")

End With

[Link]()
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

[Link]()

End Sub

Sub disp()

Dim da As New SqlDataAdapter("select * from Inventory_tbl", sqlconn)

Dim dt As New DataTable

[Link]()
[Link](dt)

For i = 0 To [Link] - 1

pnum = [Link]([Link](i)("P_Number"))
pname = [Link]([Link](i)("Product_Name"))
dtype = [Link]([Link](i)("Drink_Type"))
freebie = [Link]([Link](i)("Freebie"))
sz = [Link]([Link](i)("Size"))
price2 = [Link]([Link](i)("Price"))

Next

End Sub

Sub readdata()

Try
[Link]()

str = "Select * from Inventory_tbl order by P_Number asc"

cmd = New [Link](str, sqlconn)
dr = [Link]

While [Link]
[Link](dr("P_Number"), dr("Product_Name"),
dr("Drink_Type"), dr("P_Image"), dr("Freebie"), dr("Size"), dr("Price"))
End While

[Link]()
[Link]()
Catch ex As Exception
MsgBox(ex)
End Try

End Sub

Sub rowheight()
For i = 0 To [Link] - 1

[Link](i).Height = 80
Next
End Sub

Sub CreatetransactionNo()
Dim cmd As New SqlCommand
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

With cmd
.CommandText = "USP_DZ_AutoNo"
.CommandType = [Link]
.Connection = sqlconn
dt = New DataTable
da = New SqlDataAdapter(cmd)

[Link](dt)
.ExecuteNonQuery()
.Dispose()
End With
[Link] = [Link](0).Item(0).ToString() 'san mong lalagay na textbox

End Sub

Sub search()

Try
[Link]()

str = "Select * from Inventory_tbl where Product_Name like '%" &

[Link] & "' or Drink_Type like '" & [Link] & "'order by P_Number asc
"
cmd = New [Link](str, sqlconn)
dr = [Link]

While [Link]
[Link](dr("P_Number"), dr("Product_Name"),
dr("Drink_Type"), dr("P_Image"), dr("Freebie"), dr("Size"), dr("Price"))
End While

[Link]()
rowheight()

Catch ex As Exception
MsgBox([Link])
End Try

[Link]()

End Sub

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

[Link]

search()

'Dim aaa As String

'aaa = "Select * from Inventory_tbl where Product_Name Like '" &
[Link] & "%'"

'ds = New DataSet

'[Link](ds, "Inventory_tbl")

'readdata()
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

End Sub

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

[Link]

If [Link] = "" Then

[Link] = 1
Else
[Link] += 1
End If

End Sub

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

[Link]

If [Link] = "" Then

[Link] = 2
Else
[Link] += 2
End If

End Sub

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

[Link]

If [Link] = "" Then

[Link] = 3
Else
[Link] += 3
End If
End Sub

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

[Link]

If [Link] = "" Then

[Link] = 4

Else
[Link] += 4
End If

End Sub

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

[Link]

If [Link] = "" Then

[Link] = 5
Else
[Link] += 5
End If
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

End Sub

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

[Link]

If [Link] = "" Then

[Link] = 6
Else
[Link] += 6
End If

End Sub

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

[Link]

If [Link] = "" Then

[Link] = 7
Else
[Link] += 7
End If

End Sub

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

[Link]

If [Link] = "" Then

[Link] = 8
Else
[Link] += 8
End If

End Sub

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

[Link]

If [Link] = "" Then

[Link] = 9
Else
[Link] += 9
End If

End Sub

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

[Link]

If [Link] = "" Then

[Link] = 10
Else
[Link] += 10
End If

End Sub
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

Private Sub Button11_Click(sender As Object, e As EventArgs)

If [Link] = "" Then

[Link] = "."
Else
[Link] += "."
End If

End Sub

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

[Link]

[Link] = ""
[Link] = ""

End Sub

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

[Link]

Try

[Link] = True

If [Link] > 0 Then

[Link] = [Link]([Link] - 1)
End If

[Link] = False
Catch ex As Exception
MsgBox("Cannot backspace any further", vbInformation, "Backspace
Error")
End Try

End Sub

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

[Link]

Dim Log_out As String

Log_out = MsgBox("Do you want to logout?", vbQuestion + [Link],

"You are Logging Out")

If Log_out = vbYes Then

[Link]()
[Link]()
[Link]()
[Link]()
[Link]()
End If
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

End Sub

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

[Link]

disp()

Dim i As Integer = [Link]

Dim selectedUserID As String = [Link](5, i).[Link]()
Dim selectedUserID2 As String = [Link](6, i).[Link]()

sz = selectedUserID
price2 = selectedUserID2

'--------------------------------------------

Dim test As Boolean

Dim price As Integer

Dim total As Decimal = 0

Dim addons As Integer = 8

If ordersh > 20 - 1 Then

MsgBox("Too many orders!", vbInformation, "Order limit reached!")
[Link] = ""
Else

'boolean testing always works HAHAHA

If [Link] = "" Then
test = False
Else
test = True
End If

If test = True Then

Try

' Check if the item already exists in ListView1

Dim itemExists As Boolean = False

Dim existingItem As ListViewItem

For Each item As ListViewItem In [Link]

If [Link] = [Link] AndAlso

[Link](1).Text = sz AndAlso [Link](2).Text = [Link] Then
existingItem = item
itemExists = True

End If

Next

'if meron na nung item na yun (existing)

 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

If itemExists Then

Dim quantity As Integer =

[Link]([Link](3).Text)

quantity += [Link]

If quantity > 50 Then

MsgBox("over than 50")
Else
[Link](3).Text = [Link]()
'qty
End If

'if may add-ons

If [Link] = "" Then

total = price2 * [Link](3).Text

Else

addons = addons * [Link](3).Text

total = price2 * [Link](3).Text +

addons

End If

[Link](5).Text = [Link]() + ".00"

'total

Else

' Insert new item into ListView1

'order
Dim newItem As ListViewItem =
[Link]([Link])

'size
[Link](sz)

'addons
If [Link] = "" Then

[Link]("")

Else
[Link]([Link])
price2 = price2 + addons
End If
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

'quantity
[Link]([Link]())

'price
If [Link] = "" Then

[Link](price2)
Else
[Link](price2 + ".00")
End If

'if may add-ons

If [Link] = "" Then

total = price2 * [Link]

Else

addons = addons * [Link]

total = price2 * [Link]

End If

'total
[Link](total & ".00")

'increment or dagdag ng orders

ordersh += 1

End If

'a is for rows/items added in listview

a = a + 1

'reset values
[Link] = ""

[Link] = 1

'searchbox
[Link] = ""

'combobox
[Link] = -1

Catch ex As Exception
MsgBox([Link])
End Try

End If

End If

[Link] = ordersh
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

readdata()
rowheight()

End Sub

Private Sub DataGridView1_CellContentDoubleClick(sender As Object, e As

DataGridViewCellEventArgs) Handles [Link]

Dim i As Integer = [Link]

[Link] = [Link](1, i).Value

End Sub

Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles [Link]

[Link] = [Link]("MM" + "-" + "dd" + "-" + "yyyy")
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles [Link]

[Link] = [Link]("hh:mm:ss tt")
End Sub

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

[Link]

'If [Link] > 0 Then

'[Link]([Link](0))
' End If

For Each item In [Link]

Dim del As String

del = MsgBox("Do you want to delete this item? ", vbQuestion +

vbYesNo, "Delete?")
If del = vbYes Then

[Link](item)

subtotal -= [Link](5).Text

'a is to remove items depending how many

a = a - 1

[Link] = subtotal

MsgBox("Item Voided", vbInformation, "PA-VOID PO")

[Link] = [Link] & ".00" 'add .00

'subtotal = 0

[Link] = True 'add

[Link] = True 'total

End If
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

Next

If [Link] = 0 Then

[Link] = False 'remove

[Link] = False 'payment
[Link] = False 'remove all

End If

End Sub

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

[Link]

If [Link] = "" Then

[Link] = 20
Else
[Link] += 20
End If

End Sub

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

[Link]
If [Link] = "" Then
[Link] = 50
Else
[Link] += 50
End If
End Sub

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

[Link]
If [Link] = "" Then
[Link] = 100
Else
[Link] += 100
End If
End Sub

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

[Link]
If [Link] = "" Then
[Link] = 200
Else
[Link] += 200
End If
End Sub

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

[Link]
If [Link] = "" Then
[Link] = 500
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

Else
[Link] += 500
End If
End Sub

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

[Link]
If [Link] = "" Then
[Link] = 1000
Else
[Link] += 1000
End If
End Sub

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

[Link]

'to reset values

subtotal = 0

[Link] = True 'remove

[Link] = True 'removeall
[Link] = True 'payment
[Link] = True 'print

For Each Itemsum In [Link]

subtotal += [Link](5).Text

Next

'subtotal += [Link](a).text [wala lang (unang try itong code)]

'subtotal

[Link] = subtotal

[Link] = False 'add

[Link] = False 'total

[Link] = [Link] & ".00" 'add .00

End Sub

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

[Link]

Try
'i-convert muna natin into double both textboxes
Dim cash As Double = [Link]([Link])
Dim total As Double = [Link]([Link])

[Link] &= ".00"

If cash < total Then

MsgBox("ERROR: Insufficient cash.", vbCritical, "LOW CASH")
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

[Link] = ""
Else
[Link] = (cash - total).ToString("N2")
MsgBox("Transaction Successful!", vbInformation, "Sales")

storesales()

a = 0
[Link] = True
[Link] = True
[Link] = False
[Link] = False
[Link] = False

subtotal = 0

End If

Catch ex As Exception
MsgBox("ERROR: Invalid input or calculation error.", vbCritical,
"UNDETECTED CASH")
End Try

End Sub

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

[Link]

Dim ans As String

ans = MsgBox("Do you want to delete whole order list? ", vbQuestion +
[Link], "Deleting order list")

If ans = vbYes Then

For Each item In [Link]

subtotal -= [Link](5).Text

[Link](item)

'a is to remove items depending how many

a = 0

subtotal = 0

[Link] = subtotal

[Link] = True 'add

[Link] = False 'remove
[Link] = False 'removeall
[Link] = False 'payment
[Link] = True 'total
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

[Link] = "" 'change

[Link] = False

[Link] = ""
[Link] = ""

Next

End If

End Sub

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

[Link]

[Link] = True 'add

[Link] = True 'total

End Sub

Sub storesales()

Try
For Each listviewitem In [Link]

str = "Insert Into Transaction_tbl (Item, Size, AddOns, Qty,

Price, Total, Date_Stamp, TN) values (@Item, @Size, @AddOns, @Qty, @Price, @Total,
@Date_Stamp, @TN)"
cmd = New [Link](str, sqlconn)

With cmd

.[Link]("@Item",
[Link](0).text)
.[Link]("@Size",
[Link](1).text)
.[Link]("@AddOns",
[Link](2).text)
.[Link]("@Qty",
[Link](3).text)
.[Link]("@Price",
[Link](4).text)
.[Link]("@Total",
[Link](5).text)
.[Link]("@Date_stamp", CDate([Link]))
.[Link]("@TN", [Link])
[Link]()

End With

Next

MsgBox("Data entered successfully.", vbInformation, "SALES STORED")

 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

'CreatetransactionNo()

Catch ex As Exception

MsgBox("Error in entering data. Please try again.")

End Try

End Sub

Sub longpaper()

Dim rowc As Integer

longp = 0
rowc = [Link]
longp = rowc * 15
longp += 500

End Sub

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

[Link]

longpaper()

[Link] = PrintDoc
[Link] = New Size(800, 800) 'set mo yung size
[Link] = [Link]
[Link]()

End Sub

Private Sub PrintDoc_BeginPrint(sender As Object, e As PrintEventArgs) Handles

[Link]

Dim pagesetup As New PageSettings

[Link] = New PaperSize("Custom", 350, longp)
[Link] = pagesetup

End Sub

Private Sub PrintDoc_PrintPage(sender As Object, e As PrintPageEventArgs)

Handles [Link]

'mga fonts

'reg
Dim fontR6 As New Font("Calibri", 6, [Link])
Dim fontR7 As New Font("Calibri", 7, [Link])
Dim fontR8 As New Font("Calibri", 8, [Link])
Dim fontR10 As New Font("Calibri", 10, [Link])

'bold
Dim fontB6 As New Font("Calibri", 6, [Link])
Dim fontB7 As New Font("Calibri", 7, [Link])
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

Dim fontB10 As New Font("Calibri", 10, [Link])
Dim fontB11 As New Font("Calibri", 11, [Link])
Dim fontB13 As New Font("Calibri", 13, [Link])

'margins
Dim top As Integer = [Link]
Dim left As Integer = [Link]
Dim center As Integer = [Link] / 2
Dim right As Integer = [Link]

'alignments
Dim rightM As New StringFormat
Dim centerM As New StringFormat
Dim leftM As New StringFormat

[Link] = [Link]
[Link] = [Link]
[Link] = [Link]

'RESIBO

[Link]("__________________________________________",
fontR10, [Link], center, 0, centerM)

[Link]("TEA AND COFFEE TIME", fontB13, [Link],

center, 20, centerM)
[Link]("Address: 190 E. Dela Paz Street Sta. Elena,
Marikina City", fontR6, [Link], center, 45, centerM)
[Link]("Date: " + CDate([Link]), fontR6, [Link],
center, 60, centerM)
[Link]("Phone No: 0927-742-0901", fontR6, [Link],
center, 75, centerM)

[Link]("__________________________________________",
fontR10, [Link], center, 75, centerM)

Dim yaxis As Integer = 105

'titles
[Link]("Item", fontB6, [Link], 10, 92, leftM) 'item
[Link]("Size", fontB6, [Link], 80, 92, leftM) 'size
[Link]("Add-Ons", fontB6, [Link], 130, 92, leftM)
'addons
[Link]("Qty", fontB6, [Link], 200, 92, leftM) 'qty
[Link]("Price", fontB6, [Link], 250, 92, leftM)
'price
[Link]("Total", fontB6, [Link], 300, 92, leftM)
'total

For Each item In [Link]

[Link]([Link](0).[Link], fontR7,
[Link], 10, yaxis, leftM) 'item
[Link]([Link](1).[Link], fontR7,
[Link], 80, yaxis, leftM) 'size
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

[Link]([Link](2).[Link], fontR7,
[Link], 130, yaxis, leftM) 'addons
[Link]([Link](3).[Link], fontR7,
[Link], 200, yaxis, leftM) 'qty
[Link]([Link](4).[Link], fontR7,
[Link], 250, yaxis, leftM) 'price
[Link]([Link](5).[Link], fontR7,
[Link], 300, yaxis, leftM) 'total

yaxis += 20

Try
subtotal = [Link]
trans_no = [Link]
Catch ex As Exception
MsgBox("Subtotal is at 0.00")
End Try

Next

Dim cash
Dim change

cash = [Link]
change = [Link]

[Link]("__________________________________________",
fontR10, [Link], center, yaxis - 20, centerM)

[Link]("Subtotal: ", fontB7, [Link], 250, yaxis,

leftM)
[Link](subtotal, fontB7, [Link], 300, yaxis, leftM)

[Link]("__________________________________________",
fontR10, [Link], center, yaxis, centerM)

yaxis += 20

[Link]("Cash: ", fontR7, [Link], 250, yaxis, leftM)

[Link](cash, fontR7, [Link], 300, yaxis, leftM)

yaxis += 20

[Link]("Change: ", fontR7, [Link], 250, yaxis,

leftM)
[Link](change, fontR7, [Link], 300, yaxis, leftM)

[Link]("__________________________________________",
fontR10, [Link], center, yaxis, centerM)

yaxis += 30

[Link]("Transaction No: #" + trans_no, fontR7,

[Link], center, yaxis, centerM)

yaxis += 30
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

[Link]("Thank You for Coming! Have a Great Day!", fontR8,
[Link], center, yaxis, centerM)

End Sub

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

[Link]

For Each item In [Link]

[Link](item)
Next

'para maRESET values ng textboxes

[Link] = "" 'subtotal
[Link] = "" 'cash
[Link] = "" 'change
[Link] = False
[Link] = False
[Link] = True 'add

subtotal = 0.00

CreatetransactionNo()

'trans number
'createnewautonumber()

'AutoNumber()

End Sub

Private Sub Menu_Cashier_KeyDown(sender As Object, e As KeyEventArgs) Handles

[Link]
'20
If [Link] = Keys.F1 Then
[Link]()
[Link] = True
End If

'50

If [Link] = Keys.F2 Then

[Link]()
[Link] = True
End If

'100

If [Link] = Keys.F3 Then

[Link]()
[Link] = True
End If

'200
If [Link] = Keys.F4 Then
[Link]()
[Link] = True
End If
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

'500

If [Link] = Keys.F5 Then

[Link]()
[Link] = True
End If

'1000

If [Link] = Keys.F6 Then

[Link]()
[Link] = True
End If

'1
If [Link] = Keys.D1 Or [Link] = Keys.NumPad1 Then
[Link]()
[Link] = True
End If

'2
If [Link] = Keys.D2 Or [Link] = Keys.NumPad2 Then
[Link]()
[Link] = True
End If

'3
If [Link] = Keys.D3 Or [Link] = Keys.NumPad3 Then
[Link]()
[Link] = True
End If

'4
If [Link] = Keys.D4 Or [Link] = Keys.NumPad4 Then
[Link]()
[Link] = True
End If

'5
If [Link] = Keys.D5 Or [Link] = Keys.NumPad5 Then
[Link]()
[Link] = True
End If

'6
If [Link] = Keys.D6 Or [Link] = Keys.NumPad6 Then
[Link]()
[Link] = True
End If

'7
If [Link] = Keys.D7 Or [Link] = Keys.NumPad7 Then
[Link]()
[Link] = True
End If

'8
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

If [Link] = Keys.D8 Or [Link] = Keys.NumPad8 Then
[Link]()
[Link] = True
End If

'9
If [Link] = Keys.D9 Or [Link] = Keys.NumPad9 Then
[Link]()
[Link] = True
End If

'10
If [Link] = Keys.D0 Or [Link] = Keys.NumPad0 Then
[Link]()
[Link] = True
End If

'del
If [Link] = [Link] Then
[Link]()
[Link] = True
End If

'backspace
If [Link] = [Link] Then
[Link]()
[Link] = True
End If

End Sub

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

[Link]

'GO BACK

Dim Can As String

Can = MsgBox("Do you want to return to the dashboard?", vbInformation +

[Link], "GO BACK FROM THE PAST?")

If Can = vbYes Then

[Link]()
[Link]()

End If

End Sub

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

[Link]

Dim value As Integer

If [Link]([Link], value) Then

 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

If value > 10000 Then

MsgBox("Amount entered is over the limit, please try again.",

vbInformation, "AMOUNT OVER THE LIMIT")

[Link] = ""
End If
End If

End Sub

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs)

Handles [Link]

If [Link] = 0 Then
[Link] = -1
End If

End Sub

End Class

Menu Form

Imports [Link]
Imports [Link]
Imports [Link]

Public Class Menu_form

Private Sub Menu_form_Load(sender As Object, e As EventArgs) Handles
[Link]

connect()
readdata()
AutoNumber()
rowheight()
viewimage()

End Sub

Sub clearing()

'[Link] = ""
[Link] = ""
[Link] = -1
[Link] = -1
[Link] = ""
[Link] = ""

[Link] = Nothing
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

'[Link] = True
[Link] = True

End Sub

Sub createnewautonumber()
Try
Dim cmd As New SqlCommand
With cmd
.Connection = sqlconn
.CommandText = "SP_Autonumber_COF"
.CommandType = [Link]
.[Link]("@Pfx", "COF")
End With
[Link]()
[Link]()
Catch ex As Exception
MsgBox([Link])
End Try
End Sub

Sub AutoNumber()

Dim number As String

str = "Select Max(NewNumber) from Autonumber where Pfx = @pfx"
cmd = New [Link](str, sqlconn)
With cmd
.[Link]("@Pfx", "COF")

If IsDBNull([Link]) Then
createnewautonumber()
Dim num1 As String
str = "Select Max(NewNumber) from Autonumber where Pfx = @pfx"
cmd = New [Link](str, sqlconn)
With cmd
.[Link]("@Pfx", "COF")
num1 = [Link]([Link])
[Link] = num1
End With
[Link]()
[Link]()
Else
number = [Link]([Link])
[Link] = number
End If

End With

[Link]()
[Link]()

End Sub

Sub rowheight()

For i = 0 To [Link] - 1

[Link](i).Height = 80
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

Next

End Sub

'READ/SHOW CURRENT
Sub readdata()

[Link]()
str = "Select * from Inventory_tbl ORDER BY P_Number asc"
cmd = New [Link](str, sqlconn)
dr = [Link]

While [Link]
[Link](dr("P_Number"), dr("Product_Name"),
dr("Drink_Type"), dr("P_Image"), dr("Freebie"), dr("Size"), dr("Price"))
End While

[Link]()
[Link]()
End Sub

'SAVE DATA
Sub savedata()

Dim testing As Boolean

If [Link] = "" Then

testing = False
ElseIf [Link] = "" Then
testing = False
ElseIf [Link] = "" Then
testing = False
ElseIf [Link] = "" Then
testing = False
ElseIf [Link] = "" Then
testing = False
ElseIf [Link] Is Nothing Then
testing = False
Else
testing = True
End If

If testing = True Then

MsgBox("Data Entered Successfully!", [Link], "INPUT

SUCCESS!")

Dim ms As New MemoryStream

[Link](ms, [Link])

query = "INSERT INTO Inventory_tbl (P_Number, Product_Name,

Drink_Type, P_Image, Freebie, User_stamp, Date_stamp, Size, Price) VALUES
(@P_Number, @Product_Name, @Drink_Type, @P_Image, @Freebie, @User_stamp,
@Date_stamp, @Size, @Price)"

cmd = New [Link](query, sqlconn)

 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

With cmd
.[Link]("@P_Number", [Link])
.[Link]("@Product_Name", [Link])
.[Link]("@Drink_Type", [Link])
.[Link]("@P_Image", [Link]())
.[Link]("@Freebie", [Link])
.[Link]("@User_stamp", fname + " " + lname)
.[Link]("@Date_stamp", CDate([Link]))
.[Link]("@Size", [Link])
.[Link]("@Price", [Link])
End With

[Link]()
[Link]()

createnewautonumber()

AutoNumber()

Else
MsgBox("Please fill in all required fields before saving.",
[Link], "Fields Incomplete")

End If

End Sub

'UPDATING DATA
Sub updatedata()

Dim test As Boolean

If [Link] Is Nothing Then

test = False
Else
test = True
End If

If test = True Then

Dim ms As New MemoryStream
[Link](ms, [Link])

query = "Update Inventory_tbl set Product_Name = @Product_Name,

Drink_Type = @Drink_Type, P_Image = @P_Image, Freebie = @Freebie, Size = @Size,
Price = @Price where P_Number = @P_Number"
cmd = New [Link](query, sqlconn)
With cmd

.[Link]("@P_Number", [Link])
.[Link]("@Product_Name", [Link])
.[Link]("@Drink_Type", [Link])
.[Link]("@P_Image", [Link]())
.[Link]("@Freebie", [Link])
.[Link]("@Size", [Link])
.[Link]("@Price", [Link])
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

MsgBox("Data updated successfully.", vbInformation + vbOK, "UPDATE
SUCCESSFUL")

End With

[Link]()
[Link]()
rowheight()

End If

End Sub

'DELETE DATA
Sub deletedata(ByVal p_number As String)

query = "Delete from Inventory_tbl where P_Number = @P_Number"

cmd = New [Link](query, sqlconn)

With cmd
.[Link]("@P_Number", p_number)
End With

clearing()
[Link]()
[Link]()
rowheight()

End Sub

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

[Link]

[Link] = ""
[Link] = "JPG Files(* .jpg) | *.jpg"
If [Link] = [Link] Then
[Link] = [Link]([Link])
End If
End Sub

Private Sub DataGridView1_CellContentDoubleClick(sender As Object, e As

DataGridViewCellEventArgs) Handles [Link]

'[Link] = False
[Link] = False

Dim i As Integer = [Link]

[Link] = [Link](0, i).Value
[Link] = [Link](1, i).Value
[Link] = [Link](2, i).Value
[Link] = [Link](4, i).Value
[Link] = [Link](5, i).Value
[Link] = [Link](6, i).Value

viewimage()
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

End Sub

Sub viewimage()

Dim img() As Byte

str = "Select * from Inventory_tbl where P_Number = '" & [Link]

& "' "
cmd = New [Link](str, sqlconn)
dr = [Link]

While [Link]

img = dr("P_Image")
Dim ms As New MemoryStream(img)
[Link] = [Link](ms)

End While
[Link]()
[Link]()

End Sub

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

[Link]

'SAVE DATA

savedata()

'createnewautonumber()

'AutoNumber()

readdata()

clearing()

rowheight()

End Sub

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

[Link]

'UPDATE DATA

updatedata()
AutoNumber()
readdata()
clearing()
rowheight()

[Link] = True

End Sub
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

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

'DELETE DATA

Dim i As Integer = [Link]

Dim confirmation = MsgBox("Do you want to delete record? ", vbExclamation

+ [Link], "You are about to delete a record.")

If confirmation = [Link] Then

deletedata([Link](0, i).Value)
readdata()
MsgBox("The record has been deleted.", [Link])
End If

AutoNumber()
clearing()

rowheight()

End Sub

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

[Link]

'CLEAR DATA

clearing()
AutoNumber()

End Sub

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

[Link]

'GO BACK

Dim Can As String

Can = MsgBox("Do you want to return to the dashboard?", vbInformation +

[Link], "GO BACK FROM THE PAST?")

If Can = vbYes Then

[Link]()
[Link]()
End If
End Sub
End Class
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

Transactions

Imports [Link]
Imports [Link]
Imports [Link]
Imports [Link]

Public Class Transactions

Dim WithEvents PrintDoc As New PrintDocument

Dim PrintPrev As New PrintPreviewDialog
Dim longp As Integer

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

[Link]

connect()
readdata()
rowheight()
sales()
countorders()

report()
report_weekly()
report_monthly()
report_yearly()

End Sub

Sub readdata()

[Link]()

str = "Select * from Transaction_tbl ORDER BY Date_stamp ASC;"

cmd = New [Link](str, sqlconn)
dr = [Link]

While [Link]
[Link](dr("TN"), dr("Item"), dr("Size"), dr("AddOns"),
dr("Qty"), dr("Price"), dr("Total"), dr("Date_Stamp"))
End While

[Link]()
[Link]()

End Sub

Sub rowheight()

For i = 0 To [Link] - 1

[Link](i).Height = 35
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

Next
End Sub

Sub sales()

Dim sales As Decimal = 0 'pinaka-total

For Each row In [Link]

Dim cellValue As Decimal

If [Link]([Link](6).[Link](), cellValue) Then

sales += cellValue

End If

Next

[Link] = "Total Sales: ₱" & sales

End Sub

Sub countorders()

Dim orders As Decimal = 0

For Each order In [Link]

orders += 1

Next

[Link] = "Total Orders: " & orders

End Sub

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

[Link]

'GO BACK

Dim Can As String

Can = MsgBox("Do you want to return to the dashboard?", vbInformation +

[Link], "GO BACK FROM THE PAST?")

If Can = vbYes Then

[Link]()
[Link]()
End If

End Sub

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

[Link]
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

Try
'kinuha sa read
[Link]()

'Declaration muna opkors

Dim startDate As Date = [Link]
Dim endDate As Date = [Link]
endDate = [Link](1)

'query
str = "SELECT * FROM Transaction_tbl WHERE Date_Stamp BETWEEN
@startDate AND @endDate order by Date_Stamp ASC"
cmd = New [Link](str, sqlconn)

'kinuha sa insert
With cmd
.[Link]("@startDate", [Link]("yyyy-
MM-dd"))
.[Link]("@endDate", [Link]("yyyy-MM-
dd"))
End With

'kinuha sa read
dr = [Link]

'kinuha sa read
While [Link]
[Link](dr("TN"), dr("Item"), dr("Size"),
dr("AddOns"), dr("Qty"), dr("Price"), dr("Total"), dr("Date_Stamp"))
End While

'kinuha sa read
[Link]()
rowheight()

[Link] = [Link]

'check if empty or walang benta that day/s

If [Link] Is Nothing Then
MsgBox("No data collected.", vbCritical + [Link],
"NULL DATA")
[Link] = False
Else
[Link] = true
End If

countorders()
sales()

Catch ex As Exception
MsgBox([Link])

Finally
[Link]()
End Try

End Sub
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs)

Handles [Link]

Try

If [Link] > [Link] Then

MsgBox("Start date cannot be later than end date. Please select a
valid date range.", vbExclamation, "START DATE ERROR")
[Link] = False
Else
[Link] = True
End If

Catch ex As Exception

MsgBox([Link])

End Try

End Sub

Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs)

Handles [Link]

Try

If [Link] < [Link] Then

MsgBox("End date cannot be earlier than start date. Please select
a valid date range.", vbExclamation, "END DATE ERROR")
[Link] = False
Else
[Link] = True
End If

Catch ex As Exception

MsgBox([Link])

End Try

End Sub

Private currentPage As Integer

Private printFont As Font
Private DataGridViewToPrint As DataGridView

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

[Link]

[Link] = PrintDocument1
[Link] = [Link]
[Link]()

End Sub
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

Private Sub PrintDocument1_PrintPage(sender As Object, e As

PrintPageEventArgs) Handles [Link]

' If it's the first page, initialize the DataGridViewToPrint and printFont
If currentPage = 0 Then
DataGridViewToPrint = DataGridView1
printFont = New Font("Arial", 10)
End If

Dim yPos As Integer = [Link]

Dim cellPadding As Integer = 25
Dim columnWidths([Link] - 1) As Integer

'mga fonts

'reg
Dim fontR6 As New Font("Calibri", 6, [Link])
Dim fontR7 As New Font("Calibri", 7, [Link])
Dim fontR8 As New Font("Calibri", 8, [Link])
Dim fontR10 As New Font("Calibri", 10, [Link])

'bold
Dim fontB10 As New Font("Calibri", 10, [Link])
Dim fontB16 As New Font("Calibri", 16, [Link])

'margins
Dim top As Integer = [Link]
Dim left As Integer = [Link]
Dim center As Integer = [Link] / 2
Dim right As Integer = [Link]

'alignments
Dim rightM As New StringFormat
Dim centerM As New StringFormat
Dim leftM As New StringFormat

[Link] = [Link]
[Link] = [Link]
[Link] = [Link]

Dim sf As New StringFormat

[Link] = [Link]
[Link] = [Link]

[Link]("TEA AND COFFEE TIME REPORTS", fontB16,

[Link], center, 20, centerM)

' Calculate the column widths based on available page width

For i As Integer = 0 To [Link] - 1
columnWidths(i) = CInt([Link] /
[Link])
Next

' Print the column headers

 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

For i As Integer = 0 To [Link] - 1

Dim columnRect As New Rectangle([Link] + i *

columnWidths(i), yPos, columnWidths(i), [Link] + cellPadding)

[Link]([Link], columnRect)
[Link]([Link], columnRect)
[Link]([Link](i).HeaderText,
fontB10, [Link], columnRect, sf)

Next

' Move sa next line

yPos += [Link] + cellPadding

' Print yung rows

While currentPage < [Link]

Dim row As DataGridViewRow = [Link](currentPage)

For i As Integer = 0 To [Link] - 1

Dim cellRect As New Rectangle([Link] + i *

columnWidths(i), yPos, columnWidths(i), [Link] + cellPadding)
[Link]([Link], cellRect)

If i = 0 Then
[Link]([Link](i).[Link](), fontB10,
[Link], cellRect, sf)
Else
' Use the regular font for the rest of the columns
[Link]([Link](i).[Link](), fontR10,
[Link], cellRect, sf)
End If

Next

yPos += [Link] + cellPadding

currentPage += 1

' If there's not enough space on the page, set HasMorePages to True
If yPos + ([Link] + cellPadding) > [Link]
Then

[Link] = True

Return

End If

End While

' If we reach here, there are no more pages to print

[Link] = False
currentPage = 0
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

End Sub

Sub report()

str = "SELECT SUM(Total) AS TotalSum FROM Transaction_tbl WHERE

CONVERT(DATE, Date_Stamp) = CONVERT(DATE, GETDATE())"

cmd = New [Link](str, sqlconn)

dr = [Link]

While [Link]

Dim total As Object = dr("TotalSum")

If total Is [Link] OrElse total = "0" Then

[Link] = "₱0" & dr("TotalSum").ToString()

Else

[Link] = "₱ " & dr("TotalSum").ToString()

End If

End While

[Link]()
[Link]()

End Sub

Sub report_weekly()

str = "SELECT SUM(Total) AS WeeklyTotal FROM Transaction_tbl WHERE

DATEPART(WEEK, Date_Stamp) = DATEPART(WEEK, GETDATE()) AND DATEPART(YEAR,
Date_Stamp) = DATEPART(YEAR, GETDATE())"

cmd = New [Link](str, sqlconn)

dr = [Link]

While [Link]

Dim week As Object = dr("WeeklyTotal")

If week Is [Link] OrElse week = "0" Then

[Link] = "₱0" & dr("WeeklyTotal").ToString()

Else

[Link] = "₱ " & dr("WeeklyTotal").ToString()

End If
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

End While

[Link]()
[Link]()

End Sub

Sub report_monthly()

str = "SELECT SUM(Total) AS MonthlyTotal FROM Transaction_tbl WHERE

MONTH(Date_Stamp) = MONTH(GETDATE()) AND YEAR(Date_Stamp) = YEAR(GETDATE())"

cmd = New [Link](str, sqlconn)

dr = [Link]

While [Link]

Dim month As Object = dr("MonthlyTotal")

If month Is [Link] OrElse month = "0" Then

[Link] = "₱0" & dr("MonthlyTotal").ToString()

Else

[Link] = "₱ " & dr("MonthlyTotal").ToString()

End If

End While

[Link]()
[Link]()

End Sub

Sub report_yearly()

str = "select sum(Total) as TOTAL from Transaction_tbl"

cmd = New [Link](str, sqlconn)

dr = [Link]

While [Link]

[Link] = "₱ " & dr("TOTAL").ToString()

End While

[Link]()
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

[Link]()

End Sub

End Class

Accounts

Imports [Link]
Imports [Link]
Imports [Link]
Imports [Link]

Public Class Accounts

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

[Link]

connect()
readdata()
AutoNumber()
loadusermanagement()
rowheight()

End Sub

'****************
Sub readdata()

[Link]()

str = "Select * from Accounts order by User_ID asc"

cmd = New [Link](str, sqlconn)
dr = [Link]

While [Link]
[Link](dr("User_ID"), dr("Username"), dr("Password"),
dr("Fname"), dr("Lname"), dr("ContactNo"), dr("UserLevel"), dr("Date"))
End While

[Link]()
[Link]()
End Sub

Sub createnewautonumber()
Try
Dim cmd As New SqlCommand
With cmd
.Connection = sqlconn
.CommandText = "SP_Autonumber_ACC"
.CommandType = [Link]
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

.[Link]("@Pfx", "ACC")
End With
[Link]()
[Link]()
Catch ex As Exception
MsgBox([Link])
End Try
End Sub

Sub AutoNumber()

Dim number As String

str = "Select Max(NewNumber) from AutonumACC where Pfx = @pfx"
cmd = New [Link](str, sqlconn)
With cmd
.[Link]("@Pfx", "ACC")

If IsDBNull([Link]) Then
createnewautonumber()
Dim num1 As String
str = "Select Max(NewNumber) from AutonumACC where Pfx = @pfx"
cmd = New [Link](str, sqlconn)
With cmd
.[Link]("@Pfx", "ACC")
num1 = [Link]([Link])
[Link] = num1
End With
[Link]()
[Link]()
Else
number = [Link]([Link])
[Link] = number
End If

End With

[Link]()
[Link]()

End Sub

'****************
Sub savedata()

[Link] = encrypt([Link])

Dim val As Boolean

Dim existingid As Boolean = False
Dim existingname As Boolean = False

str = "Select * from Accounts"

cmd = New [Link](str, sqlconn)
dr = [Link]

While [Link]
If dr("User_ID").[Link]([Link]) Then
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

existingid = True
ElseIf dr("Fname").[Link]([Link]) And
dr("Lname").[Link]([Link]) Then
existingname = True
End If
End While
[Link]()
[Link]()

If existingid = True Then

MsgBox("Id Already Exist", [Link])
ElseIf existingname = True Then
MsgBox("Name Already Exist", [Link])
ElseIf [Link] = "" Then
MsgBox("Invalid Username", [Link])
ElseIf [Link] = "" Then
MsgBox("Invalid Password", [Link])
ElseIf [Link] < 8 Then
MsgBox("The password must be 8 characters long.",
[Link])
ElseIf [Link] = "" Then
MsgBox("Invalid Firstname", [Link])
ElseIf [Link] = "" Then
MsgBox("Invalid Lastname", [Link])
ElseIf [Link] = Nothing Then
MsgBox("Invalid Userlevel", [Link])
Else

If [Link] = "" Then

val = False
Else
val = True
End If

If val = True Then

query = "Insert Into Accounts (User_ID, Username, Password, Fname,
Lname, ContactNo, UserLevel, Date) values (@User_ID, @Username, @Password, @Fname,
@Lname, @ContactNo, @UserLevel, @Date)"

cmd = New [Link](query, sqlconn)

With cmd

.[Link]("@User_ID", [Link])
.[Link]("@Username", [Link])
.[Link]("@Password", [Link])
.[Link]("@Fname", [Link])
.[Link]("@Lname", [Link])
.[Link]("@ContactNo", [Link])
.[Link]("@UserLevel", [Link])
.[Link]("@Date", CDate([Link]))

End With

[Link]()
[Link]()
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

createnewautonumber()

AutoNumber()

End If
End If

End Sub
'********************

Sub updatedata()

Dim i As Integer = [Link]

[Link] = encrypt([Link])

'
Dim val As Boolean
Dim existingid As Boolean = False
Dim existingname As Boolean = False

str = "Select * from Accounts"

cmd = New [Link](str, sqlconn)
dr = [Link]

While [Link]
If dr("Fname").[Link]([Link]) And
dr("Lname").[Link]([Link]) Then
existingname = True
[Link] = True
End If

End While
[Link]()
[Link]()

If existingname = True Then

MsgBox("Name Already Exist", [Link])
Else

If [Link] = "" Then

MsgBox("Invalid Username", [Link])
[Link] = True
ElseIf [Link] = "" Then
MsgBox("Invalid Password", [Link])
[Link] = True
ElseIf [Link] = "" Then
MsgBox("Invalid First Name", [Link])
[Link] = True
ElseIf [Link] = "" Then
MsgBox("Invalid Last Name", [Link])
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

[Link] = True
ElseIf [Link] = Nothing Then
MsgBox("Invalid UserLevel", [Link])
[Link] = True
ElseIf [Link](6, i).Value = "SuperAdmin" Then
MsgBox("cannot Update SuperAdmin Account", [Link])
[Link] = True
ElseIf [Link](6, i).Value = "Admin" Then
MsgBox("cannot Update same level Admin Account",
[Link])
[Link] = True
Else
query = "Update Accounts set Username = @Username, Password =
@Password, Fname = @Fname, Lname = @Lname, ContactNo = @ContactNo, UserLevel =
@UserLevel where User_ID = @User_ID"
cmd = New [Link](query, sqlconn)
With cmd

.[Link]("@User_ID", [Link])
.[Link]("@Username", [Link])
.[Link]("@Password", [Link])
.[Link]("@Fname", [Link])
.[Link]("@Lname", [Link])
.[Link]("@ContactNo", [Link])
.[Link]("@UserLevel", [Link])
.[Link]("@Date", CDate([Link]))

[Link] = True

End With

[Link]()
[Link]()

End If
End If

End Sub

Sub deletedata(ByVal p_number As String)

query = "Delete from Accounts where User_ID = @User_ID"

cmd = New [Link](query, sqlconn)

With cmd
.[Link]("@User_ID", p_number)
End With

[Link]()
[Link]()
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

End Sub

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

[Link]

savedata()

'createnewautonumber()

'AutoNumber()

readdata()

cleardata()

loadusermanagement()

rowheight()

End Sub

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

[Link]

updatedata()
AutoNumber()
readdata()
cleardata()
loadusermanagement()
rowheight()

End Sub

'***************
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles
[Link]

Dim currentUserID As String = id

Dim i As Integer = [Link]

Dim selectedUserID As String = [Link](0, i).[Link]()

If [Link](6, i).Value = "SuperAdmin" Then

MsgBox("You cannot delete the SuperAdmin Account.",
[Link])
clear()
AutoNumber()
ElseIf [Link](6, i).Value = "Admin" And selectedUserID =
currentUserID Then
MsgBox("You cannot delete Admin account as well as your own account.",
[Link])
clear()
AutoNumber()
ElseIf [Link](6, i).Value = "Admin" Then
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

MsgBox("You cannot delete the same level Admin Account.",

[Link])
clear()
AutoNumber()
ElseIf selectedUserID = currentUserID Then
MsgBox("You cannot delete your own account.", [Link])
clear()
AutoNumber()
Else
Dim confirmation = MsgBox("Do you want to delete record? ",
vbExclamation + [Link], "You are about to delete a record.")
If confirmation = [Link] Then
deletedata([Link](0, i).Value)
readdata()
MsgBox("The record has been deleted.", [Link])
[Link] = True
rowheight()
End If

'readdata()
AutoNumber()
clear()
loadusermanagement()
End If

End Sub

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

[Link]

readdata()
rowheight()

'GO BACK

Dim Can As String

Can = MsgBox("Do you want to return to the dashboard?", vbInformation +

[Link], "GO BACK FROM THE PAST?")

If Can = vbYes Then

[Link]()
[Link]()

clear()
AutoNumber()
End If

End Sub

'********************
Sub cleardata()

[Link] = ""
[Link] = ""
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

[Link] = ""
[Link] = ""
[Link] = ""
[Link] = -1

End Sub

Sub loadusermanagement()

Dim existingsuperadmin As Boolean = False

str = "Select * from Accounts Where UserLevel = 'SuperAdmin'"

cmd = New [Link](str, sqlconn)

dr = [Link]
While [Link]
If [Link] Then
existingsuperadmin = True
End If
End While

[Link]()
[Link]()

If existingsuperadmin = True Then

[Link]()
With [Link]
.Add("Admin")
.Add("Cashier")
End With
Else
[Link]()
With [Link]
.Add("Admin")
.Add("Cashier")
.Add("SuperAdmin")
End With
End If
End Sub

'****************
Private Sub DataGridView1_CellContentClick(sender As Object, e As
DataGridViewCellEventArgs) Handles [Link]

Try
[Link] = False

Dim i As Integer = [Link]

If [Link](6, i).Value = "SuperAdmin" Then

[Link]("SuperAdmin")
[Link] = [Link](0, i).Value
[Link] = [Link](1, i).Value
[Link] = decrypt([Link](2, i).Value)
[Link] = [Link](3, i).Value
[Link] = [Link](4, i).Value
[Link] = [Link](5, i).Value
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

[Link] = [Link](6, i).Value

Else

[Link] = [Link](0, i).Value

[Link] = [Link](1, i).Value
[Link] = decrypt([Link](2, i).Value)
[Link] = [Link](3, i).Value
[Link] = [Link](4, i).Value
[Link] = [Link](5, i).Value
[Link] = [Link](6, i).Value
End If

Catch ex As Exception
MsgBox("Password is not encrypted, therefore, it cannot be
decrypted.", vbCritical, "ERROR")
clear()
AutoNumber()
End Try

End Sub

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

[Link]

clear()
AutoNumber()

End Sub

Sub clear()

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

[Link] = Nothing

[Link] = True

loadusermanagement()

End Sub

Private Sub TextBox6_KeyPress(sender As Object, e As KeyPressEventArgs)

Handles [Link]

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

If [Link] = "" Then
readdata()
Else

[Link]()
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

If [Link] = "User_ID" Then

str = "select * from Accounts where User_ID like '%" &
[Link] & "%'"
dispRec(str)
rowheight()
ElseIf [Link] = "Username" Then
str = "select * from Accounts where Username like '%" &
[Link] & "%'"
dispRec(str)
rowheight()
ElseIf [Link] = "Fname" Then
str = "select * from Accounts where Fname like '%" &
[Link] & "%'"
dispRec(str)
rowheight()
ElseIf [Link] = "Lname" Then
str = "select * from Accounts where LName like '%" &
[Link] & "%'"
dispRec(str)
rowheight()
ElseIf [Link] = "UserLevel" Then
str = "select * from Accounts where UserLevel like '%" &
[Link] & "%'"
dispRec(str)
rowheight()
Else
readdata()
rowheight()
End If
[Link] = ""
[Link] = ""
End If
End If

End Sub

Public Sub dispRec(ByVal PstrSQL As String)

[Link]()
With cmd
.CommandText = PstrSQL
dr = [Link]()
End With
Do While [Link]
[Link](dr!User_ID.[Link], dr!
[Link], dr![Link], dr![Link], dr!
[Link], dr![Link], dr![Link], dr!
[Link])
[Link]()
Loop
[Link]()
End Sub

Private Function isValid(ByVal strText) As Boolean

Dim regex As Regex = New Regex("[^a-zA-Z\s]")
Dim match As Match = [Link](strText)
If [Link] Then
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

Return False
Else
Return True
End If
End Function

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

[Link]
If isValid([Link]) Then

Else
MsgBox("Invalid Last Name", [Link], "Error message")
[Link] = ""
End If
End Sub

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

[Link]
If isValid([Link]) Then

Else
MsgBox("Invalid First Name", [Link], "Error message")
[Link] = ""
End If
End Sub

Private Sub TextBox7_KeyPress(sender As Object, e As KeyPressEventArgs)

Handles [Link]
If Asc([Link]) <> 8 Then
If Asc([Link]) < 48 Or Asc([Link]) > 57 Then
[Link] = True
MsgBox("Cannot enter letters, only numbers.", vbInformation,
"NUMBERS, NOT LETTERS")
End If
End If
End Sub

Sub rowheight()

For i = 0 To [Link] - 1

[Link](i).Height = 80

Next

End Sub

End Class
 IETI COLLEGE OF SCIENCE AND TECHNOLOGY, INC.

#34 Lark St., Sta. Elena, Marikina City

Server Connection

Imports [Link]
Imports [Link]
Imports [Link]
Imports [Link]

Module ServerConnection

Public sqlconn As New SqlConnection

Public cmd As New SqlCommand
Public dr As SqlDataReader
Public da As New SqlDataAdapter
Public ds As New DataSet
Public dt As New DataTable
Public str As String
Public query As String
Public id, uname, fname, lname, ulevel As String
Public pnum, pname, dtype, freebie, sz, price2 As String

Sub connect()
Try
If [Link] = [Link] Then [Link]()
[Link] = "Server= DESKTOP-AA8MALT\SQLEXPRESS;
Database = COFSHOP; Trusted_Connection = True; MultipleActiveResultSets = True;"
[Link]()
Catch ex As Exception
MsgBox("Error in Connection! Please contact administrator",
[Link])
End Try

End Sub

Public Function encrypt(Encryption As String) As String

Dim pw As String = [Link]
Dim encode As Byte() = New Byte([Link] - 1) {}
encode = [Link](Encryption)
pw = Convert.ToBase64String(encode)
Return pw
End Function

Public Function decrypt(Decryption As String) As String

Dim decrypttext As String = [Link]
Dim encodetext As New UTF8Encoding()
Dim decode As Decoder = [Link]
Dim code_byte As Byte() = Convert.FromBase64String(Decryption)
Dim charcount As Integer = [Link](code_byte, 0,
code_byte.Length)
Dim dcodechar As Char() = New Char(charcount - 1) {}
[Link](code_byte, 0, code_byte.Length, dcodechar, 0)
decrypttext = New String(dcodechar)
Return decrypttext

End Function

End Module