Parking System

menguin

Geek
Pinoy Techie
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
 

Similar threads


Latest posts

Top Bottom