Welcome Page:
Public Class welcomepge
Private Sub welcomepge_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub btnbrowse_Click(sender As System.Object, e As System.EventArgs) Me.Hide() Web_Browser.Show() End Sub
Private Sub btnsignup_Click(sender As System.Object, e As System.EventArgs) Handles btnsignup.Click Me.Hide() Sign_Up.Show() End Sub
Private Sub btnlogon_Click(sender As System.Object, e As System.EventArgs) Handles btnlogon.Click Me.Hide() Log_in.Show() End Sub
Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click End End Sub
End Class
Sign Up:
Public Class Sign_Up Dim user As New TextBox Dim pass As New TextBox
Private Sub signup_TextChanged(sender As System.Object, e As System.EventArgs)
End Sub
Private Sub Sign_Up_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub btnok_Click(sender As System.Object, e As System.EventArgs) Handles btnok.Click Me.Hide() Log_in.Show()
End Sub
Private Sub btncancel_Click(sender As System.Object, e As System.EventArgs) Handles btncancel.Click Me.Hide() welcomepge.Show() End Sub
Log In:
Public Class Log_in
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click If txtusername.Text = "Osman Amin" And txtpassword.Text = "08011806" Then MsgBox("Welcome To Budget Car Rentals") Main_Page.Show() Else MsgBox("Please view the notepad file! ")
'Clear text boxes and current transaction display label (leave accumulator visible) txtusername.Text = "" txtpassword.Text = "" 'Position the insertion point in the first text box ready for the next entry txtusername.Focus() End If
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Me.Hide() welcomepge.Show() End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click Me.Hide() Sign_Up.Show() End Sub
Private Sub Log_in_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Main Page:
Public Class Main_Page
Private Sub btncustomerdetails_Click(sender As System.Object, e As System.EventArgs) Handles btncustomerdetails.Click Me.Hide() Cust_Details.Show() End Sub
Private Sub Main_Page_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub btnsignout_Click(sender As System.Object, e As System.EventArgs) Handles btnsignout.Click Me.Hide() welcomepge.Show() End Sub
Private Sub btnweb_Click(sender As System.Object, e As System.EventArgs) Handles btnweb.Click Me.Hide() Web_Browser.Show() End Sub
Private Sub btntransactions_Click(sender As System.Object, e As System.EventArgs) Handles btntransactions.Click Me.Hide() Transactions.Show() End Sub
Private Sub btnavailablevehicles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnavailablevehicles.Click Me.Hide() Available_Vehicles.Show() End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btnexit.Click End End Sub
End Class
Transactions:
Public Class