Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim user As String
Dim pass As String
user = TextBox1.Text
pass = TextBox2.Text
If (user.Equals("bhuvi") And pass.Equals("bca")) Then
MessageBox.Show("Login Success", "information",
MessageBoxButtons.OK, MessageBoxIcon.Information)
Timer1.Enabled = True
Else
MessageBox.Show("Error", "information", MessageBoxButtons.OK,
MessageBoxIcon.Error)
TextBox1.Clear()
TextBox2.Clear()
TextBox1.Focus()
ProgressBar1.Value = 0
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox2.Clear()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = 100
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value = ProgressBar1.Value + 5
Label4.Text = ProgressBar1.Value & "%" & "completed"
If ProgressBar1.Value >= 100 Then
Timer1.Enabled = False
Me.Visible = False
Form2.Show()
End If
End Sub
Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ProgressBar1.Click
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TextBox1.TextChanged
End Sub
End Class
Public Class Form2
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles PictureBox1.Click
form3.show()
Me.Visible = True
End Sub
Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles PictureBox2.Click
Form4.Show()
Me.Visible = False
End Sub
Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles PictureBox3.Click
Form5.Show()
Me.Visible = False
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
End Sub
End Class
Public Class Form5
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Form6.TextBox7.Text = "pomerian1"
Form6.TextBox8.Text = "6000"
Me.Visible = False
Form6.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Form6.TextBox7.Text = "pomerian2"
Form6.TextBox8.Text = "8000"
Me.Visible = False
Form6.Show()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
Form6.TextBox7.Text = "pomerian3"
Form6.TextBox8.Text = "5000"
Me.Visible = False
Form6.Show()
End Sub
Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles PictureBox1.Click
End Sub
End Class
Public Class Form6
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
BindingSource1.AddNew()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
On Error GoTo serve
BindingSource1.EndEdit()
Pet_paradiseTableAdapter1.Update(Pet_paradiseDataSet1.pet_paradise)
MessageBox.Show("successfully saved")
serve:
Exit Sub
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
BindingSource1.RemoveCurrent()
Form7.Show()
End Sub
Private Sub TextBox13_TextChanged(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles TextBox13.TextChanged
TextBox12.Text = Val(TextBox13.Text) * Val(TextBox8.Text)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button4.Click
Form7.Label7.Text = TextBox9.Text
Form7.Label8.Text = TextBox7.Text
Form7.Label9.Text = TextBox12.Text
If RadioButton1.Checked = True Then
Form7.Label10.Text = "Cash on delivery"
ElseIf RadioButton2.Checked = True Then
Form7.Label10.Text = "Online payment"
End If
Form7.Label11.Text = DateTimePicker1.Value
Form7.Show()
End Sub
Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TextBox7.TextChanged
End Sub
End Class
Public Class Form7
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Form2.Show()
End Sub
Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Application.Exit()
End Sub
End Class
Output:
VB.NET PROJECT
WITH MS_ACCESS
PET
PARADISE
