Essay about Screen Prints and Codings

Submitted By ozzyamin
Words: 2149
Pages: 9

Screen Prints and Coding for Each Form

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