Scribd
Upload
5 views6 pages

Prafull

The document contains code for multiple forms in a VB.NET application related to movie booking. Form4 handles user input for booking and updates a database, while Form5 and Form6 provide navigation and cost calculation features. Form8 retrieves and displays booking data from the database using a DataGridView.

Uploaded by

Samarth Mhetre
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
5 views6 pages

Prafull

The document contains code for multiple forms in a VB.NET application related to movie booking. Form4 handles user input for booking and updates a database, while Form5 and Form6 provide navigation and cost calculation features. Form8 retrieves and displays booking data from the database using a DataGridView.

Uploaded by

Samarth Mhetre
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 6

Form4:

Imports System.Data.OleDb
Public Class Form4
Dim cost As Integer
Dim str As String = ""
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
Button1.Click
Try
Me.Hide()
Form8.Show()
Dim sqlstr As String = ""
Dim oledbconn As OleDbConnection = New
OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\movie.mdb")
sqlstr = "insert into moviebook values('" + TextBox1.Text + "'," +
TextBox3.Text + "," + TextBox2.Text + ",'" + str + "','" +
DateTimePicker1.Text + "','" + Label7.Text + "')"
oledbconn.Open()
Dim cmd1 As OleDbCommand = New OleDbCommand(sqlstr, oledbconn)
cmd1.ExecuteNonQuery()
MsgBox("data saved successfully.")
oledbconn.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
u
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
Button2.Click
Me.Hide()
Form3.Show()
End Sub

Private Sub CheckBox21_CheckedChanged(sender As Object, e As EventArgs)


Handles CheckBox9.CheckedChanged, CheckBox8.CheckedChanged,
CheckBox7.CheckedChanged, CheckBox6.CheckedChanged, CheckBox5.CheckedChanged,
CheckBox4.CheckedChanged, CheckBox30.CheckedChanged, CheckBox3.CheckedChanged,
CheckBox29.CheckedChanged, CheckBox28.CheckedChanged,
CheckBox27.CheckedChanged, CheckBox26.CheckedChanged,
CheckBox25.CheckedChanged, CheckBox24.CheckedChanged,
CheckBox23.CheckedChanged, CheckBox22.CheckedChanged,
CheckBox21.CheckedChanged, CheckBox20.CheckedChanged,
CheckBox2.CheckedChanged, CheckBox19.CheckedChanged,
CheckBox18.CheckedChanged,
CheckBox17.CheckedChanged, CheckBox16.CheckedChanged,
CheckBox15.CheckedChanged, CheckBox14.CheckedChanged,
CheckBox13.CheckedChanged, CheckBox12.CheckedChanged,
CheckBox11.CheckedChanged, CheckBox10.CheckedChanged, CheckBox1.CheckedChanged
Dim ch As CheckBox = sender
If ch.Checked = True Then
cost = Val(Label7.Text) + 500
Label7.Text = cost.ToString()
Else
cost = Val(Label7.Text) - 500
Label7.Text = cost.ToString()
End If
str = ch.Text + ","
End Sub

Private Sub Form4_Load(sender As Object, e As EventArgs) Handles


MyBase.Load

End Sub
End Class

Form5:

Public Class Form5


Dim cost As Long
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
Button1.Click
Me.Hide()
Form8.Show()
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles


Button2.Click
Me.Hide()
Form3.Show()
End Sub

Private Sub CheckBox21_CheckedChanged(sender As Object, e As EventArgs)


Handles CheckBox9.CheckedChanged, CheckBox8.CheckedChanged,
CheckBox7.CheckedChanged, CheckBox6.CheckedChanged, CheckBox5.CheckedChanged,
CheckBox4.CheckedChanged, CheckBox30.CheckedChanged, CheckBox3.CheckedChanged,
CheckBox29.CheckedChanged, CheckBox28.CheckedChanged,
CheckBox27.CheckedChanged, CheckBox26.CheckedChanged,
CheckBox25.CheckedChanged, CheckBox24.CheckedChanged,
CheckBox23.CheckedChanged, CheckBox22.CheckedChanged,
CheckBox21.CheckedChanged, CheckBox20.CheckedChanged,
CheckBox2.CheckedChanged, CheckBox19.CheckedChanged,
CheckBox18.CheckedChanged, CheckBox17.CheckedChanged,
CheckBox16.CheckedChanged, CheckBox15.CheckedChanged,
CheckBox14.CheckedChanged, CheckBox13.CheckedChanged,
CheckBox12.CheckedChanged, CheckBox11.CheckedChanged,
CheckBox10.CheckedChanged, CheckBox1.CheckedChanged
Dim ch As CheckBox = sender
If ch.Checked = True Then
cost = Val(Label7.Text) + 500
Label7.Text = cost.ToString()
Else
cost = Val(Label7.Text) - 500
Label7.Text = cost.ToString()
End If
End Sub

Private Sub Form5_Load(sender As Object, e As EventArgs) Handles


MyBase.Load

End Sub
End Class

From6:

Public Class Form6

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles


Button1.Click
FORM8.SHOW()
Me.Hide()
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles


Button2.Click
Me.Hide()
Form3.Show()
End Sub

Private Sub Form6_Load(sender As Object, e As EventArgs) Handles


MyBase.Load

End Sub
End Class

Form8:

Imports System.Data.OleDb
Public Class Form8

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles


Button1.Click
Me.Hide()
Form3.Show()
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles


Button2.Click

Dim sqlstr As String


Dim oledbconn As OleDbConnection = New
OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\movie.mdb")
Dim oledbadapter As OleDbDataAdapter
Dim ds As New DataSet
sqlstr = "select * from moviebook"
Try
oledbconn.Open()
oledbadapter = New OleDbDataAdapter(sqlstr, oledbconn)
oledbadapter.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
oledbadapter.Dispose()
oledbconn.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Private Sub Form8_Load(sender As Object, e As EventArgs) Handles


MyBase.Load

End Sub
End Class

You might also like