Online Shopping
Online Shopping
Online Shopping
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.
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.
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
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 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 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