online shopping

ONLINE SHOPPING SYSTEM

PROBLEM   DESCRIPTION  :-

This project provides  the software for ONLINE-SHOPPING. The purpose of this project is to provide an easy shopping facility online  and easy selling facility to the merchants of all categories.

Scope :-

The customers register with their details and get authentication for an authorized Login.

The software provides the following facilities to the customers :

• Facilitates easy shopping online any where with free shipping (conditions apply)
• Provides information about the products in categories
• Customers are provided with up to date information on the products available

The objective of this software is to provide easy assistance to both the customer as well as the merchant with proper database and information.

SYSTEM INTERFACES:-

Interfaces used :

The software provides good graphical interface for the front end of the database and a good informative interface for the rear end.

The system uses 4 main Phases:

1.      Login Phase:

The registered user is allowed to log in to the Category Selection Phase.

2.      Registration Phase:

A new user registers here with Personal and Bank Account Details.

3.      Category Selection Phase:

A category of the Products is chosen in order to Purchase

4.      Purchase Phase:

The products list along with Cost and Description are presented. The  customer is allowed to make a choice of Products and Shop.

User Interface:-

            The user interface must be intuitive and should be in such a way that it should make the customer to shop with pleasure and without any assistance.

Hardware  Interface :-

The system should have these hardware requirements :

·         The processor should be compatible.

·         The video device should support graphics

·         RAM should be or greater than 120 MB

Software Interfaces :-

The system requires the support of the following  software:

·         Compatible Web Browser

·         MySQL for database for data storage

SITE ADAPTATION REQUIREMENTS :-

·         The browser should support java.

·         The browser should be at least netscape navigator v 4.0

USER CHARACTERISTICS :-

• No pre knowledge of html
• Should be familiar with internet
• Should be able to use and interact with the graphical user interface.

ASSUMPTIONS AND DEPENDENCIES :-

·         May not support multiple user interface.

DATA STRUCTURE :-

            This Project includes a well defined data structure that manipulates and stores data in the Database. Oracle is used at the Backend as the Data Base

PERFORMANCE REQUIREMENTS :-

Performance requirements are :

1.      Good working pc with all the requirements as stated in the hardware interfaces

2.      Works for medium size information databases

3.      Should not be overloaded

SAFETY & RELIABILITY:-

·         The data and user details are highly protected and the system assures high Reliability through Robust Security.

Only the Authorized, Registered Users are allowed to Shop.

Login Form

Module Coding

Public cn As New ADODB.Connection

Public rs As New ADODB.Recordset

Public user As String

Login Form

Dim flag As Integer

Private Sub Command1_Click()

s = "select * from reg where user_name = '" & Text1.Text & "' and password = '" & Text2.Text & "'"

If rs.State = 1 Then rs.Close

rs.CursorLocation = adUseClient

rs.Open s, cn, adOpenStatic, adLockBatchOptimistic

If rs.RecordCount = 1 Then

user = Text1.Text

Form2.Show

Unload Me

Else

MsgBox "Invalid Username Or Password..", vbCritical, "Invalid Login!!"

End If

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

End Sub

Private Sub Command3_Click()

Form3.Show

End Sub

Private Sub Command4_Click()

End

End Sub

Private Sub Form_Load()

If cn.State = 1 Then cn.Close

cn.Open "provider = msdaora.1; user id = scott; password= tiger"

End Sub

Registration Form

Registered User Login

Registration Form

Private Sub Command1_Click()

If rs.State = 1 Then rs.Close

rs.CursorLocation = adUseClient

'cn.Open "provider = msdaora.1; user id = scott; password= tiger"

rs.Open "select * from reg ", cn, adOpenStatic, adLockBatchOptimistic

rs.AddNew

rs(0) = Text1.Text

rs(1) = Text2.Text

rs(2) = Text3.Text

rs(3) = Text4.Text

rs(4) = Text5.Text

rs(5) = Text6.Text

rs(6) = Text7.Text

rs(7) = Text8.Text

rs.UpdateBatch

MsgBox ("New Member ADDED")

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

End Sub

Private Sub Command3_Click()

Form1.Show

End Sub

Select Category Form

Select Category Form

Private Sub Command1_Click()

If Option1.Value = True Then Form4.Show

If Option2.Value = True Then Form5.Show

If Option3.Value = True Then Form6.Show

If Option4.Value = True Then Form7.Show

If Option5.Value = True Then Form8.Show

End Sub

Private Sub Command3_Click()

Form1.Show

End Sub

Televisions Form

Televisions Form

Dim total As Long

Dim p1 As String

Dim p2 As String

Dim p3 As String

Dim p4 As String

Dim p5 As String

Private Sub Command1_Click()

rs.AddNew

If Check1.Value = 1 Then

total = total + 8000

rs(2) = p1

End If

If Check2.Value = 1 Then

total = total + 7000

rs(3) = p2

End If

If Check3.Value = 1 Then

total = total + 6000

rs(4) = p3

End If

If Check4.Value = 1 Then

total = total + 9000

rs(5) = p4

End If

If Check5.Value = 1 Then

total = total + 5000

rs(6) = p5

End If

rs(0) = user

rs(1) = DateValue(Now)

rs(7) = total

rs.UpdateBatch

MsgBox (total), 1, "AMOUNT PAYABLE"

MsgBox ("Thank You for your purchase")

End Sub

Private Sub Command3_Click()

Form2.Show

End Sub

Private Sub Form_Load()

If cn.State = 1 Then cn.Close

If rs.State = 1 Then rs.Close

rs.CursorLocation = adUseClient

cn.Open "provider = msdaora.1; user id = scott; password= tiger"

rs.Open "select * from lists ", cn, adOpenStatic, adLockBatchOptimistic

total = 0

p1 = Label5.Caption

p2 = Label7.Caption

p3 = Label9.Caption

p4 = Label11.Caption

p5 = Label13.Caption

End Sub

Cell Phones Form

Cell Phones Form

Dim total As Long

Dim p1 As String

Dim p2 As String

Dim p3 As String

Dim p4 As String

Dim p5 As String

Private Sub Command1_Click()

rs.AddNew

If Check1.Value = 1 Then

total = total + 15000

rs(2) = p1

End If

If Check2.Value = 1 Then

total = total + 10000

rs(3) = p2

End If

If Check3.Value = 1 Then

total = total + 15000

rs(4) = p3

End If

If Check4.Value = 1 Then

total = total + 10000

rs(5) = p4

End If

If Check5.Value = 1 Then

total = total + 5000

rs(6) = p5

End If

rs(0) = user

rs(1) = DateValue(Now)

rs(7) = total

rs.UpdateBatch

MsgBox (total), 1, "AMOUNT PAYABLE"

MsgBox ("Thank You for your purchase")

End Sub

Private Sub Command3_Click()

Form2.Show

End Sub

Private Sub Form_Load()

If cn.State = 1 Then cn.Close

If rs.State = 1 Then rs.Close

rs.CursorLocation = adUseClient

cn.Open "provider = msdaora.1; user id = scott; password= tiger"

rs.Open "select * from lists ", cn, adOpenStatic, adLockBatchOptimistic

total = 0

p1 = Label5.Caption

p2 = Label7.Caption

p3 = Label9.Caption

p4 = Label11.Caption

p5 = Label13.Caption

End Sub

Apparels Form

Apparels Form

Dim total As Long

Dim p1 As String

Dim p2 As String

Dim p3 As String

Dim p4 As String

Dim p5 As String

Private Sub Command1_Click()

rs.AddNew

If Check1.Value = 1 Then

total = total + 350

rs(2) = p1

End If

If Check2.Value = 1 Then

total = total + 800

rs(3) = p2

End If

If Check3.Value = 1 Then

total = total + 400

rs(4) = p3

End If

If Check4.Value = 1 Then

total = total + 600

rs(5) = p4

End If

If Check5.Value = 1 Then

total = total + 500

rs(6) = p5

End If

rs(0) = user

rs(1) = DateValue(Now)

rs(7) = total

rs.UpdateBatch

MsgBox (total), 1, "AMOUNT PAYABLE"

MsgBox ("Thank You for your purchase")

End Sub

Private Sub Command3_Click()

Form2.Show

End Sub

Private Sub Form_Load()

If cn.State = 1 Then cn.Close

If rs.State = 1 Then rs.Close

rs.CursorLocation = adUseClient

cn.Open "provider = msdaora.1; user id = scott; password= tiger"

rs.Open "select * from lists ", cn, adOpenStatic, adLockBatchOptimistic

total = 0

p1 = Label5.Caption

p2 = Label7.Caption

p3 = Label9.Caption

p4 = Label11.Caption

p5 = Label13.Caption

End Sub

Laptops Form

Laptops Form

Dim total As Long

Dim p1 As String

Dim p2 As String

Dim p3 As String

Dim p4 As String

Private Sub Command1_Click()

rs.AddNew

If Check1.Value = 1 Then

total = total + 50000

rs(2) = p1

End If

If Check2.Value = 1 Then

total = total + 60000

rs(3) = p2

End If

If Check3.Value = 1 Then

total = total + 40000

rs(4) = p3

End If

If Check4.Value = 1 Then

total = total + 25000

rs(5) = p4

End If

rs(0) = user

rs(1) = DateValue(Now)

rs(7) = total

rs.UpdateBatch

MsgBox (total), 1, "AMOUNT PAYABLE"

MsgBox ("Thank You for your purchase")

End Sub

Private Sub Command3_Click()

Form2.Show

End Sub

Private Sub Form_Load()

If cn.State = 1 Then cn.Close

If rs.State = 1 Then rs.Close

rs.CursorLocation = adUseClient

cn.Open "provider = msdaora.1; user id = scott; password= tiger"

rs.Open "select * from lists ", cn, adOpenStatic, adLockBatchOptimistic

total = 0

p1 = Label5.Caption

p2 = Label7.Caption

p3 = Label9.Caption

p4 = Label11.Caption

End Sub

Watches Form

Watches Form

Dim total As Long

Dim p1 As String

Dim p2 As String

Dim p3 As String

Dim p4 As String

Private Sub Command1_Click()

rs.AddNew

If Check1.Value = 1 Then

total = total + 200

rs(2) = p1

End If

If Check2.Value = 1 Then

total = total + 300

rs(3) = p2

End If

If Check3.Value = 1 Then

total = total + 500

rs(4) = p3

End If

If Check4.Value = 1 Then

total = total + 300

rs(5) = p4

End If

rs(0) = user

rs(1) = DateValue(Now)

rs(7) = total

rs.UpdateBatch

MsgBox (total), 1, "AMOUNT PAYABLE"

MsgBox ("Thank You for your purchase")

End Sub

Private Sub Command3_Click()

Form2.Show

End Sub

Private Sub Form_Load()

If cn.State = 1 Then cn.Close

If rs.State = 1 Then rs.Close

rs.CursorLocation = adUseClient

cn.Open "provider = msdaora.1; user id = scott; password= tiger"

rs.Open "select * from lists ", cn, adOpenStatic, adLockBatchOptimistic

total = 0

p1 = Label5.Caption

p2 = Label7.Caption

p3 = Label9.Caption

p4 = Label11.Caption

End Sub

End of Shopping

CONCLUSION:

            From this Project we understand how to create effectively an Interface between the Front End (Visual Basic) and the Back End (Database) wherein we develop an Online Shopping System using various Parameters