pinoyprogammer
Techie
VBCode for a simple parking system
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