Code:
Imports System.Data.OleDb
Public Class PrintReceipt1
Dim provider As String Dim datafile As String Dim connString As String Dim myConnection As OleDbConnection = New OleDbConnection
Private Sub RichTextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles RichTextBox1.TextChanged RichTextBox1.SelectionAlignment = HorizontalAlignment.Center RichTextBox1.SelectionFont = New Font("Courier New", 14) RichTextBox1.SelectionColor = Color.Blue
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged Dim rightNow As DateTime = Date.Now.ToString("HH:mm tt") Select Case Me.ComboBox1.Text Case "1 Hour" TextBox5.Text = "₱40" TextBox8.Text = rightNow.AddHours(1) Case "2 Hours" TextBox5.Text = "₱80" TextBox8.Text = rightNow.AddHours(2) Case "3 Hours" TextBox5.Text = "₱120" TextBox8.Text = rightNow.AddHours(3) Case "4 Hours" TextBox5.Text = "₱160" TextBox8.Text = rightNow.AddHours(4) Case "5 Hours" TextBox5.Text = "₱200" TextBox8.Text = rightNow.AddHours(5) Case "6 Hours" TextBox5.Text = "₱240" TextBox8.Text = rightNow.AddHours(6) Case "7 Hours" TextBox5.Text = "₱280" TextBox8.Text = rightNow.AddHours(7)
Case "8 Hours" TextBox5.Text = "₱320" TextBox8.Text = rightNow.AddHours(8) Case "9 Hours" TextBox5.Text = "₱360" TextBox8.Text = rightNow.AddHours(9) Case "10 Hours" TextBox5.Text = "₱400" TextBox8.Text = rightNow.AddHours(10) Case Else MsgBox("Please Enter Time!", vbOK, "Error") RichTextBox1.Text = "" ComboBox1.Text = "" End Select End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
TextBox4.Text = Format(Now, "dd MMM yyyy") TextBox3.Text = Format(Now, "hh:mm:ss tt")
provider = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=" datafile = "C:\Users\Jason\Desktop\PrivateCarParkingSystem\ParkingSystem.accdb" connString = provider & datafile myConnection.ConnectionString = connString myConnection.Open()
Dim str As String str = "Insert into Parking([ParkingNumber],[PlateNumber],[Hour(s)],[TimeStarted],[EndTime],[ExactDate],[TotalAmount]) Values (?,?,?,?,?,?,?)" Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection) cmd.Parameters.Add(New OleDbParameter("ParkingNumber", CType(TextBox1.Text, String))) cmd.Parameters.Add(New OleDbParameter("PlateNumber", CType(TextBox2.Text, String))) cmd.Parameters.Add(New OleDbParameter("Hour(s)", CType(ComboBox1.Text, String))) cmd.Parameters.Add(New OleDbParameter("TimeStarted", CType(TextBox3.Text, String))) cmd.Parameters.Add(New OleDbParameter("EndTime", CType(TextBox8.Text, String))) cmd.Parameters.Add(New OleDbParameter("ExactDate", CType(TextBox4.Text, String))) cmd.Parameters.Add(New OleDbParameter("TotalAmount", CType(TextBox5.Text, String)))
If MsgBox("Data Added to DataBase!", vbInformation, "Success!") Then Try
cmd.ExecuteNonQuery() cmd.Dispose() myConnection.Close() TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox4.Clear() ComboBox1.Text = "" Catch ex As Exception MsgBox(ex.Message) End Try
End If
Dim rightNow As DateTime = Date.Now.ToString("HH:mm tt") PrintPreviewDialog1.ShowDialog() Close() Form1.Button2.Visible = False Form1.Label5.Visible = True Form1.Label4.Visible = True
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Dim rightNow As DateTime = Date.Now.ToString("HH:mm tt") RichTextBox1.AppendText("" + TextBox7.Text & Environment.NewLine) RichTextBox1.AppendText("CAR PARKING SYSTEM IN SM MEGA MALL" + TextBox6.Text & Environment.NewLine) RichTextBox1.AppendText("Parking Number: " + TextBox1.Text & Environment.NewLine) RichTextBox1.AppendText("Plate Number: " + TextBox2.Text & Environment.NewLine) RichTextBox1.AppendText("Time Started: " + TextBox3.Text & Environment.NewLine) RichTextBox1.AppendText("End Time: " + TextBox8.Text & Environment.NewLine) RichTextBox1.AppendText("Date: " + TextBox4.Text & Environment.NewLine) RichTextBox1.AppendText("Hour(s) to Stay: " + ComboBox1.Text & Environment.NewLine) RichTextBox1.AppendText("Total Amount: " + TextBox5.Text & Environment.NewLine)
Form1.Label5.Text = TextBox8.Text
If ComboBox1.Text = "1 Hour" Then TextBox5.Text = "₱40"
TextBox8.Text = rightNow.AddHours(1) ElseIf ComboBox1.Text = "2 Hours" Then TextBox5.Text = "₱80" TextBox8.Text = rightNow.AddHours(2) ElseIf ComboBox1.Text = "3 Hours" Then TextBox5.Text = "₱120" TextBox8.Text = rightNow.AddHours(3) ElseIf ComboBox1.Text = "4 Hours" Then TextBox5.Text = "₱160" TextBox8.Text = rightNow.AddHours(4) ElseIf ComboBox1.Text = "5 Hours" Then TextBox5.Text = "₱200" TextBox8.Text = rightNow.AddHours(5) ElseIf ComboBox1.Text = "6 Hours" Then TextBox5.Text = "₱240" TextBox8.Text = rightNow.AddHours(6) ElseIf ComboBox1.Text = "7 Hours" Then TextBox5.Text = "₱280" TextBox8.Text = rightNow.AddHours(7) ElseIf ComboBox1.Text = "8 Hours" Then TextBox5.Text = "₱320" TextBox8.Text = rightNow.AddHours(8) ElseIf ComboBox1.Text = "9 Hours" Then TextBox5.Text = "₱360" TextBox8.Text = rightNow.AddHours(9) ElseIf ComboBox1.Text = "10 Hours" Then TextBox5.Text = "₱400" TextBox8.Text = rightNow.AddHours(10) ElseIf MsgBox("Please Insert Value!", vbOKOnly) Then TextBox1.Text = "1" TextBox2.Text = "" ComboBox1.Text = "" TextBox8.Text = "" RichTextBox1.Text = "" End If
End Sub
Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
If MsgBox("Are You sure to cancel this transaction?", 4 + 32, "Close Window") = vbYes Then Me.Close() End If End Sub
Private Sub PrintReceipt1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim rightNow As DateTime = rightNow Console.WriteLine("RightNow: " & rightNow.ToString)
' ----- Add time values. Console.WriteLine("RightNow.AddHours(1): " & rightNow.AddHours(1)) Console.WriteLine("RightNow.AddHours(2): " & rightNow.AddHours(2)) Console.WriteLine("RightNow.AddHours(3): " & rightNow.AddHours(3)) Console.WriteLine("RightNow.AddHours(4): " & rightNow.AddHours(4)) Console.WriteLine("RightNow.AddHours(5): " & rightNow.AddHours(5)) Console.WriteLine("RightNow.AddHours(6): " & rightNow.AddHours(6)) Console.WriteLine("RightNow.AddHours(7): " & rightNow.AddHours(7)) Console.WriteLine("RightNow.AddHours(8): " & rightNow.AddHours(8)) Console.WriteLine("RightNow.AddHours(7): " & rightNow.AddHours(9)) Console.WriteLine("RightNow.AddHours(10): " & rightNow.AddHours(10))
TextBox1.Text = "1" TextBox4.Text = Format(Now, "dd MMM yyyy") TextBox3.Text = Format(Now, "hh:mm tt")
End Sub
Private Sub PrintDocument1_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage Static fntHeadingFont As New Font("Courier New", 16, FontStyle.Bold) Dim sngCenterPage As Single sngCenterPage = Convert.ToSingle(e.PageBounds.Width / 2 - e.Graphics.MeasureString(RichTextBox1.Text, fntHeadingFont).Width / 2) e.Graphics.DrawString(RichTextBox1.Text, fntHeadingFont, Brushes.Black, sngCenterPage, 2) End Sub
End Class
Public Class Form1
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click PrintReceipt1.Show()
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click PrintReceipt2.Show()
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click PrintReceipt3.Show()
End Sub
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click PrintReceipt4.Show()
End Sub
Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click PrintReceipt5.Show()
End Sub
Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click PrintReceipt6.Show()
End Sub
Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click PrintReceipt7.Show()
End Sub
Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click PrintReceipt8.Show()
End Sub
Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click PrintReceipt9.Show()
End Sub
Private Sub Button10_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click PrintReceipt010.Show() End Sub
Private Sub Button11_Click(sender As System.Object, e As System.EventArgs) Handles Button11.Click PrintReceipt11.Show() End Sub
Private Sub Button12_Click(sender As System.Object, e As System.EventArgs) Handles Button12.Click PrintReceipt12.Show()
End Sub
Private Sub Button13_Click(sender As System.Object, e As System.EventArgs) Handles Button13.Click PrintReceipt13.Show()
End Sub
Private Sub Button14_Click(sender As System.Object, e As System.EventArgs) Handles Button14.Click PrintReceipt14.Show()
End Sub
Private Sub Button15_Click(sender As System.Object, e As System.EventArgs) Handles Button15.Click PrintReceipt15.Show()
End Sub
Private Sub Parking1ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)
End Sub
Private Sub DatabasesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles DatabasesToolStripMenuItem.Click Databases.Show()
End Sub
Private Sub RecordsToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RecordsToolStripMenuItem.Click
End Sub
Private Sub LogoutToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles LogoutToolStripMenuItem.Click If MessageBox.Show("Are You sure to close this transaction?", "Information", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then LoginForm.Show() Me.Close() End If End Sub
Private Sub JasonRoseToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)
End Sub
Private Sub AboutToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AboutToolStripMenuItem.Click
End Sub
Private Sub ParkingNumber1ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ParkingNumber1ToolStripMenuItem.Click If MessageBox.Show("Are You Sure?", "Information", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = vbYes Then Button2.Visible = True Label5.Visible = False Label4.Visible = False End If
End Sub
Private Sub ParkingNumber2ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ParkingNumber2ToolStripMenuItem.Click If MessageBox.Show("Are You Sure?", "Information", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = vbYes Then Button1.Visible = True Label2.Visible = False
Label3.Visible = False End If End Sub
Private Sub ParkingNumber2ToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles ParkingNumber2ToolStripMenuItem1.Click If MessageBox.Show("Are You Sure?", "Information", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = vbYes Then Button3.Visible = True End If
End Sub
Private Sub ParkingNumber2ToolStripMenuItem2_Click(sender As System.Object, e As System.EventArgs) Handles ParkingNumber2ToolStripMenuItem2.Click If MessageBox.Show("Are You Sure?", "Information", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = vbYes Then Button4.Visible = True Label9.Visible = False Label8.Visible = False
End If End Sub
Private Sub ParkingNumber2ToolStripMenuItem3_Click(sender As System.Object, e As System.EventArgs) Handles ParkingNumber2ToolStripMenuItem3.Click If MessageBox.Show("Are You Sure?", "Information", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = vbYes Then Button5.Visible = True Label10.Visible = False Label11.Visible = False
End If
End Sub
Private Sub ParkingNumber2ToolStripMenuItem4_Click(sender As System.Object, e As System.EventArgs) Handles ParkingNumber2ToolStripMenuItem4.Click If MessageBox.Show("Are You Sure?", "Information", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = vbYes Then Button6.Visible = True Label12.Visible = False
Label13.Visible = False End If End Sub
Private Sub ParkingNumber2ToolStripMenuItem5_Click(sender As System.Object, e As System.EventArgs) Handles ParkingNumber2ToolStripMenuItem5.Click If MessageBox.Show("Are You Sure?", "Information", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = vbYes Then Button7.Visible = True Label14.Visible = False Label15.Visible = False
End If End Sub
Private Sub ParkingNumber2ToolStripMenuItem6_Click(sender As System.Object, e As System.EventArgs) Handles ParkingNumber2ToolStripMenuItem6.Click If MessageBox.Show("Are You Sure?", "Information", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = vbYes Then Button8.Visible = True Label16.Visible = False Label17.Visible = False End If End Sub
Private Sub ParkingNumber2ToolStripMenuItem7_Click(sender As System.Object, e As System.EventArgs) Handles ParkingNumber2ToolStripMenuItem7.Click If MessageBox.Show("Are You Sure?", "Information", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = vbYes Then Button9.Visible = True Label18.Visible = False Label19.Visible = False End If End Sub
Private Sub ParkingNumber2ToolStripMenuItem8_Click(sender As System.Object, e As System.EventArgs) Handles ParkingNumber2ToolStripMenuItem8.Click If MessageBox.Show("Are You Sure?", "Information", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = vbYes Then Button10.Visible = True Label20.Visible = False Label21.Visible = False
End If End Sub
Private Sub ParkingNumber11ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ParkingNumber11ToolStripMenuItem.Click If MessageBox.Show("Are You Sure?", "Information", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = vbYes Then Button11.Visible = True Label22.Visible = False Label23.Visible = False End If End Sub
Private Sub ParkingNumber12ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ParkingNumber12ToolStripMenuItem.Click If MessageBox.Show("Are You Sure?", "Information", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = vbYes Then Button12.Visible = True Label24.Visible = False Label25.Visible = False End If End Sub
Private Sub ParkingNumber13ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ParkingNumber13ToolStripMenuItem.Click If MessageBox.Show("Are You Sure?", "Information", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = vbYes Then Button13.Visible = True Label26.Visible = False Label27.Visible = False End If End Sub
Private Sub ParkingNumber14ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ParkingNumber14ToolStripMenuItem.Click If MessageBox.Show("Are You Sure?", "Information", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = vbYes Then Button14.Visible = True Label28.Visible = False Label29.Visible = False End If End Sub
Private Sub ParkingNumber15ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ParkingNumber15ToolStripMenuItem.Click If MessageBox.Show("Are You Sure?", "Information", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = vbYes Then Button15.Visible = True Label30.Visible = False Label31.Visible = False End If End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim rightNow As DateTime = Date.Now.ToString("HH:mm tt")
End Sub
Private Sub Button16_Click(sender As System.Object, e As System.EventArgs)
End Sub
Private Sub OpenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles OpenToolStripMenuItem.Click
End Sub End Class
