Dr.

Babasaheb Ambedkar Marathwada

University, Aurangabad.(431001)

A
Mini Project
Report on
“WEDDING PLANNER
MANAGEMENT”

Submitted By:
Ms. Rina Mahure

Ms. Pooja Londhe

Guided By:
Prof. Swapnali Mam

Submitted To:
Vivekanand Institute of Advanced Studies in
Management Science & Communications, Aurangabad.

1
 Vivekanand Shikshan Sanstha’s
Vivekanand Institute of Advanced Studies in Management
Science & Communications, Aurangabad

CERTIFICATE
This is to certify that the project report on “Wedding
Planner Management”. In the subject of .Net, has
been successfully completed and submitted by Ms.Rina
Mahure, Ms.Pooja Londhe DIV – C as requirement of
Dr.Babasaheb Ambedkar Marathwada University
Aurangabad, in partial fulfillment of Bachelor of Science
(Computer Science) IInd Year for academic year 2016-
2017.

Project Guide Co-Ordinater H.O.D

Ms.Swapnali Mallade Mr.N.N. Kulkarni Dr.A.T.Gaikwad

Examiner

2
 ACKNOWLEDGEMENT

Firstly I express my gratefulness to Ms.Swapnali Mallade

are our teachers of .net project of Vivekanand College, Aurangabad.
For their work supervision and valuable suggestions their thoughts
providing guidelines, co-operation and extended help during this work
of dissertation has made it possible to complete this piece of work.
Their broad-based knowledge it this field and science oriented
personality has been essentially, realized me appreciation and
encouragement served as a constant.

I am thankful to our HOD Dr.A.T.Gaikwad and Incharge Mr.

Kulkarni Sir for his advice & suggestion throughout. I am also
thankful Ms. Sneha Aute, Ms.Pallavi Gawali who encouraged
and helped us throughout the Wedding Planner
Management. Last, but not the least, I would like to thank for
the timely assistance and suggestion of numerous other faculty
members, friends and parents.

Submitted By:
Ms.Rina Mahure
Ms.Pooja Londhe

3
 INDEX

SR. TOPIC PAGE NO.

NO

1 Introduction 5

2 Existing System & Limitations 6

3 Operating Environments H/W and S/W 7

4 Detailing description of technology Used 8

5 Objectives of system 10

6 User requirements 11

7 Entity Relationship Diagram 12

8 Data Flow Diagram 13

9 Output Screen 14

10 Coding 19

11 Conclusion 29

12 Bibliography 30

4
INTRODUCTION :-

Wedding Planning System is a web based project which act as a

bridge between potential users and wedding planners. As people
spend lots of money on Weddings, Parties and MICE, but they
involve their selves in each and every affair in such a way that at the
end of the day they feel that they have not seen the wedding of their
only Son/Daughter or they have not been able to enjoy the functions.
That is why, a Wedding Planner-Co-coordinator is required to make
people comfortable on the day of the Wedding /Event.

So that we have tried to make a web project so that all the plannings
for the food, venues, invitation cards, bookings can be done on time.
This project is developed to make the users comfortable to enjoy each
and every function along with their family, friends and relatives. This
project organizes to:

 Venues & Accommodation.

 Sets, Themes, Concepts & Decorations
 Menu Planning, F & B and Bar TenderinServices.
 Music & Entertainment. Wedding Jaimala Themes.
 Photography: Still & Video.
 Rental Services Like: Security, Hostesses, Travel &
Transport, Royal Procession, Fireworks.
 Wedding and Hospitality Management.

5
Existing System:-

The existing system is manual /machine systems where the users must
have to perform their manually. It will take more time and this whole
procedure is very tedious and takes a lot of time.

Problems of the existing system

 It is limited to a single system.

 It has lot of manual work (Manual work does not mean working
with pen or paper, rather includes working on spread sheets and
other simple software.)
 The present system is very less secure.
 It is difficult to maintain phone bookings and cancellations.
 Does not provide global support. User cannot do the reservation
from remote place.
 Retrieval of information is difficult and time consuming.
 A lot of time and manual effort is required.

6
Operating Environment H/w & S/W :-

SOFTWARE REQUIREMENTS :-

 VB.NET

 MOZILLA FIREFOX

 MICROSOFT ACCESS

 MS OFFICE 2010

HARDWARE REQUIREMENT :-

 2.00 GHZ PROCESSOR

 2 GB RAM

 OPERATING SYSTEM :- WINDOWS 7

 512 GB HARD DISK

 32 BYTE

7
Detailed Description Of Technology Used :-

VB.Net Introduction:-

Visual Basic was initially introduced in 1991 as the first programming language
that Directly supported programmable graphical user interfaces using language-
supplied Objects. From that time until 2002, there were five other versions
released, each version having features that increased the power of the language. In
2001, Microsoft released the .NET Visual Basic .NET, or VB.NET, is an upgrade
to the last version of VB (version 6.0) that conforms to the .NET platform. As you
will see in subsequent chapters, the changes in VB.NET allow programmers to
write Web or desk-top applications within the same language. In addition,
VB.NET is fully object-ori-ented as opposed to prior versions that had many, but
not all, of the elements of an object-oriented language. This book is based on
VB.NET. In the balance of the book we will sometimes refer to Visual Basic as
VB, omitting .NET.
Advantage

 The structure of the Basic programming language is very simple,

particularly as to the executable code.
 VB is not only a language but primarily an integrated, interactive
development environment.
 VB provides a comprehensive interactive and context-sensitive online help
system.
 The VB-IDE has been highly optimized to support rapid application
development.
 The advantage of VB.NET is that it's Microsoft. It's really cool if you have
an irrational fear of curly braces.

8
Detailed description of Databases:

 Microsoft Access is a database management system (DBMS) from

Microsoft that combines the relational Microsoft Jet Database Engine with
a graphical user interface and software-development tools.
 It is a member of the Microsoft Office suite of applications, included in
the Professional and higher editions or sold separately.
 Microsoft Access stores data in its own format based on the Access Jet
Database Engine. It can also import or link directly to data stored in other
applications and databases.
 Software developers, data architects and power users can use Microsoft
Access to develop application software. Like other Microsoft Office
applications, Access is supported by Visual Basic for Applications (VBA),
an object-based programming language that can reference a variety of
objects including DAO (Data Access Objects), ActiveX Data Objects, and
many other ActiveX components
 Visual objects used in forms and reports expose their methods and
properties in the VBA programming environment, and VBA code modules
may declare and call Windows operating system operations.
 Microsoft Access 2010 introduced a new version of the ACCDB format
supported hosting Access Web solutions on a SharePoint 2010 server.
 Any user on the SharePoint site with sufficient rights could use the Access
Web solution. A copy of Access was still required for the developer to
create the Access Web solution, and the desktop version of Access
remained part of Access 2010.
 The Access Web solutions were not the same as the desktop solutions.
Automation was only through the macro language (not VBA) which
Access automatically converted to JavaScript.
 The data was no longer in an Access database but SharePoint lists. An
Access desktop database could link to the SharePoint data, so hybrid
 Applications were possible so that SharePoint users needing basic.

9
Objectives Of System :-

The objective of this development effort is:-

 To provide the information regarding Wedding.
 To provide the information about the Booking of users choice.
 Online Users can submit their queries by giving the wedding destination,
tentative date, number of guests, contact no. etc.
 Interested Users can book accommodations for their guests in Hotels. It
can be a 5 Star,4 Star or 3 Star hotel. Online users can provide their
requirements like no. of rooms, no. of nights, accommodation budget etc.
 Wedding themes are available in the websites.
 There is a facility to book caterers according to the budget. Different plans
are available by the caterers; these are Economy, Gold, Platinum and
Silver.
 Mailing facility to reply clients.
 Different venues are available for the choices.
 Availability of Wedding cards, Wedding cakes, Wedding dresses,
Transport, Flower Decoration etc.
 To provide the functionality of online Booking and Cancellation.

 To provide the information of status of catering, facilities available.

 To provide the facility to maintain the records of users.
 Information can be easily accessed.
 This system will save the time of the Users.

10
DRAWBACKS AND LIMITATIONS :

1. No automatic backup facilities available.

2. To run the application Internet Explorer 5.0 and above is required.

3. High bandwidth is required for as the transaction rate is high and third

party gateway.

11
User Requirement :-

 A suitable model of the events involved with Wedding Planning.

 Graphically display the sequence of events
 A sequencing technique based on the model.
 Software which implements the core components of the technique.
 Software that is capable of producing a standard sequence of events for a
typical Wedding.
 The generation of a printable report that details events and their start
times.
 Have the ability to save and load timetables for each client.
 Allow the user to select different techniques of producing a timetable.

12
 Entity Relationship Diagram :

Contact

Booking
payment
t

Admin Manages
Customer

Manages

Silver

View View View

Packages

Booking Has

packages Slot

Gives
Payment

Amount
C-id
13
 Data Flow Diagram :

USER

Login

Registration

Select Package Select Menu Booking Payment

Logout

14
Output Screen :
Form 1:

Form 2:

15
Form 3:

Form 4 :

16
Form 5:

Form 6:

Form 7 :

17
Form 8:

Form 9:

18
Form 10:

Form 11:

Coding :

Form1: Welcome Form

Public Class welcm

Dim i As Integer

19
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
home.Show()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Timer3.Tick
i += 1
If i = 5 Then
Button1.Text = "Next"
Button1.ForeColor = Color.White
ElseIf i = 10 Then
Button1.Text = ""
i=0
End If

End Sub

End Class

Form2: About Us Form

Public Class about

Private Sub about_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load
Timer1.Start()
Timer2.Start()
End Sub
20
 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
Label1.Left -= 9
If Label1.Left < -Label1.Width Then
Label1.Left = Me.Width
End If
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Timer2.Tick
Dim r As New Random
Label1.ForeColor = Color.FromArgb(r.Next(255), r.Next(255), r.Next(255))
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click
Me.Hide()
home.Show()

End Sub

End Class

Form 3: Home Form

Public Class home
Dim i As Integer
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub

21
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
reg.Show()
End Sub

Private Sub MENUToolStripMenuItem_Click(ByVal sender As

System.Object, ByVal e As System.EventArgs) Handles
MENUToolStripMenuItem.Click
decortn.Show()
End Sub

Private Sub PAYMENTToolStripMenuItem_Click(ByVal sender As

System.Object, ByVal e As System.EventArgs) Handles
PAYMENTToolStripMenuItem.Click
Foodz.Show()
End Sub

Private Sub LoginToolStripMenuItem_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs) Handles LoginToolStripMenuItem.Click
Login.Show()
End Sub

Private Sub LogoutToolStripMenuItem_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs) Handles LogoutToolStripMenuItem.Click
Me.Hide()
welcm.Show()
MessageBox.Show("You have been LOGOUT sucessfully...! Thanks for
Visit..!")

End Sub

Private Sub DECORATIONToolStripMenuItem_Click(ByVal sender As

System.Object, ByVal e As System.EventArgs) Handles
DECORATIONToolStripMenuItem.Click
packages.Show()
End Sub

Private Sub ContactUsToolStripMenuItem_Click(ByVal sender As

System.Object, ByVal e As System.EventArgs) Handles
ContactUsToolStripMenuItem.Click
contact.Show()
End Sub

Private Sub AboutUsToolStripMenuItem_Click(ByVal sender As

System.Object, ByVal e As System.EventArgs) Handles
AboutUsToolStripMenuItem.Click

22
 about.Show()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Timer1.Tick
i += 1
If i = 10 Then
Button1.Text = "Click Here To Register..."
Button1.ForeColor = Color.White
ElseIf i = 15 Then
Button1.Text = ""
i=0
End If
End Sub

Private Sub BookingToolStripMenuItem1_Click(ByVal sender As

System.Object, ByVal e As System.EventArgs) Handles
BookingToolStripMenuItem1.Click
Booking.Show()
End Sub

Private Sub BillingToolStripMenuItem_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs) Handles BillingToolStripMenuItem.Click
Billing.Show()
End Sub
End Class

Form 4: Login Form

Public Class login

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load

End Sub

23
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
If (TextBox1.Text = "") Then
MessageBox.Show("Please Enter Your Username")
TextBox1.Focus()
End If
If (TextBox2.Text = "") Then
MessageBox.Show("Please Enter Your Password")
TextBox2.Focus()
End If
If (TextBox1.Text = "Poori" And TextBox2.Text = "POORI") Then
MessageBox.Show("Login Successful")
TextBox1.Text = ""
TextBox2.Text = ""
Hide()
frmhomeform.Show()
Else
MessageBox.Show("Login Failed")
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class

Form 5: Reg Form

24
Imports System.Data.OleDb
Public Class reg
Dim cn As New
OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=C:\Users\user.feroz\Desktop\WEDDING PROJPOO\Database1.accdb")
Dim cm As New OleDbCommand("")
Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs)

End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Label1.Click

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click
cn.Open()
cm = New OleDbCommand("insert into Reg values('" + TextBox1.Text +
"','" + TextBox2.Text + "'," + TextBox3.Text + ")", cn)
cm.ExecuteNonQuery()
MessageBox.Show("DATA SUBMITED....")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
cn.Close()
End Sub

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button5.Click
Me.Hide()
home.Show()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button2.Click
cn.Open()
cm = New OleDbCommand("update reg set address='" + TextBox2.Text +
"',contact no=" + TextBox3.Text + "", cn)
cm.ExecuteNonQuery()

25
 MessageBox.Show("DATA UPDATED....")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
cn.Close()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button3.Click
cn.Open()
cm = New OleDbCommand("select * from reg where r_name='" +
TextBox1.Text + "'", cn)
Dim dr As OleDbDataReader = cm.ExecuteReader
If dr.HasRows Then
While dr.Read
TextBox2.Text = dr(1)
TextBox3.Text = dr(2)
End While
Else
MessageBox.Show("Data not found....")
End If
cn.Close()
End Sub

Form 6 : Packages Form

Imports System.Data.OleDb
Public Class packages
Dim cn As New
OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=D:\WEDDING PROJPOO\Database1.accdb")

26
 Dim cm As New OleDbCommand("")
Dim i As Integer
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Me.Hide()
home.Show()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click
Dim S1 As String

If RadioButton1.Checked = True Then

S1 = RadioButton1.Text
ElseIf RadioButton2.Checked = True Then
S1 = RadioButton2.Text
Else
S1 = RadioButton3.Text
End If
cn.Open()
cm = New OleDbCommand("insert into pack values('" + S1 + "')", cn)
cm.ExecuteNonQuery()
MessageBox.Show("DATA SUBMITED....")
cn.Close()

End Sub

Private Sub packages_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load
Timer1.Start()
Timer2.Start()
Timer3.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Timer1.Tick
i += 1
If i = 5 Then
Label2.Text = "Rs.1500000"
Label2.ForeColor = Color.Silver
ElseIf i = 10 Then
Label2.Text = ""
i=0
End If
End Sub

27
 Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer2.Tick
i += 1
If i = 5 Then
Label3.Text = "Rs.2500000"
Label3.ForeColor = Color.Gold
ElseIf i = 10 Then
Label3.Text = ""
i=0
End If
End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Timer3.Tick
i += 1
If i = 5 Then
Label4.Text = "Rs.3500000"
Label4.ForeColor = Color.Plum
ElseIf i = 10 Then
Label4.Text = ""
i=0
End If
End Sub

End Class

Form 7: Decoration

Imports System.Data.OleDb
Public Class decortn

28
 Dim cn As New
OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=D:\WEDDING PROJPOO\Database1.accdb")
Dim cm As New OleDbCommand

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button3.Click
Me.Hide()
home.Show()
End Sub

Private Sub decortn_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
cn.Open()
cm = New OleDbCommand("insert into decoration values('" +
ComboBox1.Text + "','" + ComboBox2.Text + "','" + ComboBox3.Text + "','" +
ComboBox4.Text + "','" + ComboBox5.Text + "')", cn)
cm.ExecuteNonQuery()
MessageBox.Show("DATA SUBMITED....")
ComboBox1.Text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
ComboBox4.Text = ""
ComboBox5.Text = ""
cn.Close()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button2.Click
cn.Open()
cm = New OleDbCommand("update decoration set Theme='" +
ComboBox2.Text + "',Flowers='" + ComboBox3.Text + "',Color_code='" +
ComboBox4.Text + "',Lighting='" + ComboBox5.Text + "'", cn)
cm.ExecuteNonQuery()
MessageBox.Show("DATA UPDATED....")
ComboBox1.Text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
cn.Close()
End Sub

29
 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button4.Click
cn.Open()
cm = New OleDbCommand("select * from decoration where Types='" +
ComboBox1.Text + "'", cn)
Dim dr As OleDbDataReader = cm.ExecuteReader
If dr.HasRows Then
While dr.Read
ComboBox2.Text = dr(1)
ComboBox3.Text = dr(2)
ComboBox4.Text = dr(3)
ComboBox5.Text = dr(4)
End While
Else
MessageBox.Show("Data not found....")
End If
cn.Close()
End Sub

Private Sub ComboBox5_SelectedIndexChanged(ByVal sender As

System.Object, ByVal e As System.EventArgs) Handles
ComboBox5.SelectedIndexChanged

End Sub
End Class

Form 8: FoodZone

Imports System.Data.OleDb
Public Class Foodz

30
 Dim cn As New
OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=C:\Users\user.feroz\Desktop\WEDDING PROJPOO\Database1.accdb")
Dim cm As New OleDbCommand()
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Label1.Click

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button4.Click
Me.Close()
home.Show()

End Sub

Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles TextBox4.TextChanged
Dim c As Integer
TextBox5.Text = c
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click
cn.Open()
cm = New OleDbCommand("insert into food_menu values('" +
ComboBox1.Text + "','" + ComboBox2.Text + "'," + TextBox3.Text + "," +
TextBox4.Text + "," + TextBox4.Text + " )", cn)
cm.ExecuteNonQuery()
MessageBox.Show("DATA SUBMITED....")
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
End Sub
Private Sub TextBox5_GotFocus(ByVal sender As Object, ByVal e As
System.EventArgs) Handles TextBox5.GotFocus
Dim a, b, c As Integer
a = TextBox3.Text
b = TextBox4.Text
c=a*b
TextBox5.Text = c
End Sub
Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles TextBox5.TextChanged

End Sub

31
 Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
ComboBox2.SelectedIndexChanged
cn.Open()
cm = New OleDbCommand("select * from food_items where item='" +
ComboBox2.SelectedItem + "'", cn)

Dim dr As OleDbDataReader = cm.ExecuteReader

While dr.Read

TextBox3.Text = dr(1)
End While

cn.Close()
End Sub
End Class

Form 9: Contact

Imports System.Data.OleDb
32
Public Class contact

Dim cn As New
OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=C:\Users\user.feroz\Desktop\WEDDING PROJPOO\Database1.accdb")
Dim cm As New OleDbCommand

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button2.Click
Me.Hide()
home.Show()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click
cn.Open()
cm = New OleDbCommand("insert into contact values('" + TextBox1.Text +
"','" + TextBox3.Text + "'," + TextBox4.Text + ",'" + RichTextBox1.Text + "')",
cn)
cm.ExecuteNonQuery()
MessageBox.Show("DATA SUBMITED....")
TextBox1.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
RichTextBox1.Text = ""
cn.Close()
End Sub
End Class

33
Form 11: Booking Form

Imports System.Data.OleDb
Public Class Booking
Dim cn As New
OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=D:\WEDDING PROJPOO\Database1.accdb")
Dim cm As New OleDbCommand
Dim i As Integer
Dim S1 As String
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Timer1.Tick
i += 1
If i = 5 Then
Label7.Text = "Book your Wedding plans Here..!"
Label7.ForeColor = Color.Red
ElseIf i = 10 Then
Label7.Text = ""
i=0
End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click
If CheckedListBox1.CheckOnClick = False Then
S1 = CheckedListBox1.Text
End If
cn.Open()
cm.Connection = cn
cm = New OleDbCommand("insert into Booking values('" + TextBox1.Text
+ "','" + ComboBox1.Text + "'," + TextBox2.Text + ",'" +
DateTimePicker1.Value + "','" + DateTimePicker2.Value + "','" & S1 & "')", cn)
cm.ExecuteNonQuery()
MessageBox.Show("DATA SUBMITED....")
TextBox1.Text = ""
ComboBox1.Text = ""
TextBox2.Text = ""
DateTimePicker1.Text = ""
DateTimePicker2.Text = ""
S1 = ""

34
 cn.Close()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button2.Click
Me.Hide()
home.Show()
End Sub
End Class

Form 11: Bill Form

35
Imports System.Data.OleDb
Public Class Form1
Dim cn As New
OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=C:\Users\user.feroz\Desktop\WEDDING PROJPOO\Database1.accdb")
Dim cm As New OleDbCommand("")

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button4.Click
Me.Hide()
home.Show()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click
cn.Open()
cm = New OleDbCommand("insert into bill values(" + TextBox1.Text + ",'"
+ TextBox2.Text + "'," + TextBox3.Text + ",'" + ComboBox1.Text + "'," +
TextBox4.Text + "," + TextBox5.Text + ")", cn)
cm.ExecuteNonQuery()
MessageBox.Show("DATA SUBMITED....")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ComboBox1.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
cn.Close()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button2.Click
cn.Open()
cm = New OleDbCommand("select * from bill where b_id=" +
TextBox1.Text + "", cn)
Dim dr As OleDbDataReader = cm.ExecuteReader
If dr.HasRows Then
While dr.Read
TextBox2.Text = dr(1)
TextBox3.Text = dr(2)
ComboBox1.Text = dr(3)
TextBox4.Text = dr(4)
TextBox5.Text = dr(5)
End While
Else
MessageBox.Show("Data not found....")

36
 End If
cn.Close()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button3.Click
cn.Open()
cm = New OleDbCommand("update bill set c_name='" + TextBox2.Text +
"',contact=" + TextBox3.Text + ",pckges='" + ComboBox1.Text + "',price=" +
TextBox4.Text + ",total_amount=" + TextBox5.Text + "", cn)
cm.ExecuteNonQuery()
MessageBox.Show("DATA UPDATED....")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ComboBox1.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
cn.Close()
End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As

System.Object, ByVal e As System.EventArgs) Handles
ComboBox1.SelectedIndexChanged
cn.Open()
cm = New OleDbCommand("select * from packitem where Package='" +
ComboBox1.SelectedItem + "'", cn)

Dim dr As OleDbDataReader = cm.ExecuteReader

While dr.Read

TextBox4.Text = dr(1)
End While
cn.Close()
End Sub
End Class

Conclusion :

37
Wedding are not unlike many other project implementation,control and
termination.The project implementation stage identified the budget
restrictions,time lines,objectives,requirements,performance standards,scheduling
and resource issues.Extensive planning is required.The control is an important
aspect to the wedding project.Tracking,monitoring changes and watching for
potential risk helps maintain the project’s balance and guarantee a successful
completion.The termination phase focuses on auditing and the completion of the
project.

Bibliography :

38
BOOKS:

1. James Foxall: Sams Teach Yoursel Microsoft Visual C# 2005

in 24 hours, complete starter kit, First edition
2. Damon Armstrong: Pro ASP.Net 2.0: Website programming,
First edition
3. Ron, Patton, “ Software Testing”, Second Edition, Pearson

WEB REFERENCES:

 http:// www.asp.net
 http://www.google.com
 http://www.w3school.com
 http://www.tutorialpoint.com
 http://www.weddingwire.com
 http://www.wikipedia.com

39