PROJECT REPORT
ON
CAFÉ SHARAZE
SUBMITTED TO
PUNJAB TECHNICAL UNIVERSITY JALANDHAR
IN THE PARTIAL FULFILLMENT OF THE REQUIREMENT FOR THE AWARD OF DEPLOMA
PGDCA(POST GRADUATE DIPLOMA IN COMPUTER APPLICATION)
SESSION (2005-06)
UNDER THE SUPERVISION OF :
MR MANISH KUMAR
FACULTY
CCS ,PO ROAD MANDI(H.P.)
(AFF. TO PUNJAB TECHNICAL UNIVIRSITY)
BY:
1.SUSHILA
KUMARI
2.DIPTI THAKUR
ACKNOWLEDGEMENT
DURING THE ENTIRE PROJECT WE ENCOUNTER MANY NEW
EXPERIENCES & OBSTACLES WITH SEVERAL DIFFICULTIES.
IT IS NOT VERY EASY TO INTRODUCE NEW THINGS BUT WE ARE VERY
HAPPY TO COMPLETE MY PROJECT AND THANKS TO MY FACULTIES &
MY
TEACHER’S WHO HELP ME TO COMPLETE THIS PROJECT.
WE WOULD LIKE TO THANK OUR TEACHER TO PROVIDE EXTRA TIME
FOR OUR PROJECT WORK.
WE ALSO THANK TO OUR PARENTS FOR THEIR LOVE, ENCOURAGEMENT
& COMFORT IN OUR CARRIER.
1. SUSHILA KUMARI
2. DIPTI THAKUR
GRAPHICAL USER INTERFACE
Interface that use graphics is known as Graphical User Interface (GUI). This became
very popular because the user could identify the graphics displayed on the screen the
intended task. The primary requirement for an interface presented to us. This is
possible if the interface presented is such that it emulates real life.
VISUAL BASIC IS A SMART LANGUAGE
The main reason why Visual Basic is so popular and powerful is the same reason behind the
success of window. Microsoft took a complex technology (writing computer program) and
made it easier to use through a graphical interface. Suppose have to write a program for your
company. In visual programming Environment, you can quickly design.
The windows that the users see by drawing arranging them just as you would lay out
elements for a newspaper. In text based programming system you control the User
Interface through program language command. The methods used in visual basic are
easier to learn & requires less time to maintain for newcomers. Another key concept
of Visual Basic is the ability to create & use self contained component & controls or
objects.
Controls are elements you can use when designing a user interface, just like the real
life controls on a car dashboard. These controls can be used to display information
(like a dashboard). The underlying operation of car such as relation between ignition,
starter & engine are the hidden from the driver, he communicates with the car
through a clearly define interface. In the same way Visual Basic controls enable you to
add features to your program without having to be invoked in details of how these
features work.
For receiving input from a user of your program is as simple as drawing a simple
control that accept input. This is a great advantage of visual programming – you can
concentrate on what you want your program to do not how to get the programming
language to do it.
ONE LANGUAGE, MANY EDITIONS
Visual Basic comes with three editions
The Visual Basic Learning Edition
The Visual Basic Professional Edition
The Visual Basic Enterprise Edition
OR
Upgraded Version of Visual Basic
The Visual Basic Learning Edition is the introductory edition that lets you easily create
window application. It comes with all the tools you need to build maintain stream window
application.
The Visual Basic Professional Edition is for computer professionals to include advance
features such as tools to develop Active-X and Internet controls.
The Visual Basic Enterprise Edition is the most advance edition & is aimed at
programmer who builds & distributes application in a team environment.
DATABASE DESIGN
TABLE NAME: - MENU
NAME TYPE WIDTH DESCRIPTION
CATEGORY TEXT 50 STORE ITEM CATEGORY
ITEM NAME TEXT 50 STORE ITEM NAME
ITEM CODE TEXT 50 STORE ITEM CODE
COST/PRICE DOUBLE 8 STORE ITEM COST
TABLE NAME: - BILL
NAME TYPE WIDTH DESCRIPTION
TABLE NO INTEGER 2 STORE TABLE NO.
WAITER NAME TEXT 50 STORE WAITER NAME
WAITER CODE INTEGER 2 STORE WAITER CODE
CATEGORY TEXT 100 STORE CATEGORY
ITEM CODE INTEGER 2 STORE ITEM CODE
ITEM NAME TEXT 100 STORE ITEM NAME
QUANTITY INTEGER 2 STORE QUANTITY
PRICE/COST INTEGER 2 STORE ITEM COST
TOTAL PRICE INTEGER 2 STORE TOTAL PRICE
ORDER NO INTEGER 2 STORE TABLE ORDER NO
CURRENT DATE TEXT 15 STORE CURRENT DATE
TIME DATE/TIME 8
TABLE NAME: -WAITER
NAME TYPE WIDTH DESCRIPTION
NAME TEXT 50 STORE WAITER NAME
CODE INTEGER 2 STORE WAITER CODE
TABLE INTEGER 2 STORE TABLE NO.
NO
TABLE NAME: - PASSWORD
NAME TYPE WIDTH DESCRIPTION
USER NAME TEXT 50 STORE USER NAME
PASSWORD TEXT 50 STORE PASSWORD
TABLE NAME: - TOTAL AMOUNT
NAME TYPE WIDTH DESCRIPTION
ITEM NAME TEXT 50 STORE ITEM NAME
QUANTITY INTEGER 2 STORE ITEM QUANTITY
PRICE/COST INTEGER 2 STORE ITEM PRICE
AMOUNT INTEGER 2 STORE TOTAL AMOUNT
ORDER NO INTEGER 2 STORE ORDER NO.
TOTAL BILL INTEGER 2 STORE TOTAL BILL
FLOW CHART FOR LOGON PROCESS
START
Enter User Name
Enter
Password
No
If User Message:
Name and System could not logon.
password
valid
Yes
NAVIGATION
WINDOW
ACTIVE
END
FLOW CHART FOR ADD PROCESS
START
Click add button
Enter All Data
Yes
If field
Empty
Yes
No
Save the Record
END
FLOW CHART FOR SAVE PROCESS
START
Click add button
Message: -
Enter All Data Field is empty
Yes
If field
Empty
Yes
No
Save the Record
END
FLOW CHART FOR DELETE PROCESS
START
Enter Item
Category
No
If Record
is found
Yes
Display Record
No
No
Message:
Do you
want to
delete
record?
Yes
Delete the record
END
FLOW CHART FOR MODIFY PROCESS
START
Enter all data
Save the Record
END
ZERO LEVEL DIAGRAM
PROCESS
1
MENU
PROCESS
2
ORDER
USER
PROCESS
3
BILL
PROCESS
4
TOTAL
COLLECT
PAYMENT
FLOW CHART FOR NEW PASSWORD
START
ENTER USER
NAME
ENTER OLD
PASSWORD
ENTER NEW
PASSWORD
ENTER
CONFORM
PASSWORD
NO
IF USER MESSAGE:
NAME& RE-ENTER NAME&
PASSWOR PASSWORD
D VALID
YES
END
SPLASH SCREEN
LOGON SCREEN
BILLING RECORD SCREEN
MENU SCREEN
ORDER SCREEN
SCREEN TO DISPLAY ORDER NO.
SCREEN TO DISPLAY BILL
SCREEN TO COLLECT PAYMENT
Coding for the proposed system
Code for BILLING RECORD form
Private Sub MDIForm_Load()
MNUNAVI.Enabled = False
MNUUTI.Enabled = False
frmSplash.Show
End Sub
Private Sub MNUADD_Click()
Form1.Show
End Sub
Private Sub MNUCHANGE_Click()
Form9.Show
End Sub
Private Sub MNUCOLLECT_Click()
Form5.Show
End Sub
Private Sub MNUDISPLAY_Click()
Form7.Show
End Sub
Private Sub MNUMOD_Click()
Form3.Show
End Sub
Private Sub MNUNEW_Click()
Form6.Show
End Sub
Code for SPLASH form
Option Explicit
Private Sub Form_KeyPress(KeyAscii As Integer)
Form6.Show
Unload Me
End Sub
Private Sub Form_Load()
Me.Height = 4410
Me.Width = 7560
Me.Left = 2000
Me.Top = 1500
End Sub
Code for LOGON form
Dim db As Database
Dim RS As Recordset
Private Sub Command1_Click()
Set db = OpenDatabase("D:\OM\THE TREAT.MDB")
Set RS = db.OpenRecordset("SELECT * FROM PASSWORD WHERE USER_NAME="
& "'" & Text1.Text & "'", dbOpenDynaset)
If RS(0) = Text1.Text And RS(1) = Text2.Text Then
MDIForm1.MNUNAVI.Enabled = True
MDIForm1.MNUUTI.Enabled = True
Unload Me
Else
MsgBox "ENTER USER NAME AND PASSWORD AGAIN", vbOKOnly +
vbInformation, "LOG ON"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End If
End Sub
Private Sub Form_Load()
Set db = OpenDatabase("D:\OM\THE TREAT.MDB")
Set RS = db.OpenRecordset("SELECT * FROM PASSWORD")
Me.Height = 3570
Me.Width = 5448
Me.Left = 3500
Me.Top = 1500
End Sub
Code for MENU form
Dim db As Database
Dim RS As Recordset
Dim check As Integer
Private Sub cmdadd_Click()
check = 0
Combo2.Visible = False
Text2.Visible = True
Text1.SetFocus
End Sub
Private Sub cmdcancel_Click()
End
End Sub
Private Sub CMDDELETE_Click()
RS.Delete
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Combo2.Text = ""
RS.MoveNext
End Sub
Private Sub CMDMODIFY_Click()
check = 2
Combo2.Text = ""
Text1.Text = ""
Text3.Text = ""
End Sub
Private Sub cmdsave_Click()
If Text1.Text = "" Then
MsgBox "itemname not specifide"
Text1.SetFocus
Exit Sub
'ElseIf Text2.Text = "" Then
'MsgBox "itemcode not specified"
'Text2.SetFocus
'Exit Sub
ElseIf Text3.Text = "" Then
MsgBox "itemprice not specifide"
Text3.SetFocus
Exit Sub
Else
If check = 0 Then
RS.AddNew
RS(0) = Combo1.Text
RS(1) = Text1.Text
RS(2) = Text2.Text
RS(3) = Text3.Text
RS.Update
MsgBox "YOUR RECORD IS SAVED"
End If
End If
If check = 2 Then
RS.Edit
RS(0) = Combo1.Text
RS(1) = Text1.Text
RS(2) = Combo2.Text
RS(3) = Text3.Text
RS.Update
MsgBox "YOUR RECORD IS SAVED"
End If
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Text1.SetFocus
End Sub
Private Sub Combo1_Click()
Text1.SetFocus
If check = 2 Then
Combo2.Visible = True
Text2.Visible = False
Label5.Visible = True
Label5.Caption = "Enter Item Code and press Enter Key"
Set RS = db.OpenRecordset("select * from menu where category=" & "'" & Combo1.Text
& "'", dbOpenDynaset)
Do While Not RS.EOF
Combo2.AddItem (RS(2))
RS.MoveNext
Loop
End If
End Sub
Private Sub Combo2_Click()
Set RS = db.OpenRecordset("select * from menu where item_code=" & "'" & Combo2.Text
& "'", dbOpenDynaset)
Text1.Text = RS(1)
Text3.Text = RS(3)
Label5.Visible = False
End Sub
Private Sub Form_Load()
Set db = OpenDatabase("d:\om\the treat.mdb")
Set RS = db.OpenRecordset("menu", dbOpenDynaset)
Me.Height = 6020
Me.Width = 7356
Me.Top = 1200
Me.Left = 2500
End Sub
Code for ORDER form
Dim db As Database
Dim RS As Recordset
Dim check As Integer
Dim STR As String
Private Sub cmdadd_Click()
check = 0
Combo2.Visible = True
Text2.Visible = True
Combo4.Text = ""
Combo1.Text = ""
Text5.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Text2.Text = ""
Text4.Text = ""
Text3.Text = ""
Text6.Text = ""
TEXTORDERNO.Text = ""
Combo4.SetFocus
End Sub
Private Sub CMDDELETE_Click()
check = 3
'Form8.Show
Label13.Visible = True
TEXTORDERNO.SetFocus
End Sub
Private Sub CMDEXIT_Click()
End
End Sub
Private Sub CMDMODIFY_Click()
Combo2.Text = ""
Combo3.Text = ""
Text2.Text = ""
Text4.Text = ""
Text3.Text = ""
Combo2.SetFocus
check = 2
End Sub
Private Sub cmdsave_Click()
If Combo4.Text = "" Then
MsgBox "TABLE NO NOT SPECIFIDE"
Combo4.SetFocus
Exit Sub
ElseIf Text5.Text = "" Then
MsgBox "WAITOR CODE NOT SPECIFIDE"
Text5.SetFocus
Exit Sub
ElseIf Combo1.Text = "" Then
MsgBox "WAITOR NAME NOT SPECIFIDE"
Combo1.SetFocus
Exit Sub
ElseIf Combo2.Text = "" Then
MsgBox "CATAGORY NOT SPECIFIDE"
Combo2.SetFocus
Exit Sub
ElseIf Text2.Text = "" Then
MsgBox "ITEM NAME NOT SPECIFIDE"
Text2.SetFocus
Exit Sub
ElseIf Combo3.Text = "" Then
MsgBox "ITEM CODE NOT SPECIFIDE"
Combo3.SetFocus
Exit Sub
ElseIf Text3.Text = "" Then
MsgBox "QUENTITY NOT SPECIFIDE"
Text3.SetFocus
Exit Sub
ElseIf Text4.Text = "" Then
MsgBox "COST IS NOT SPECIFIDE"
Text4.SetFocus
Exit Sub
ElseIf TEXTORDERNO.Text = "" Then
MsgBox "ORDER NO IS NOT SPECIFIDE"
TEXTORDERNO.SetFocus
Else
End If
If check = 0 Then
Set RS = db.OpenRecordset("SELECT * FROM BILL", dbOpenDynaset)
RS.AddNew
RS(0) = Val(Combo4.Text)
RS(1) = Text5.Text
RS(2) = Val(Combo1.Text)
RS(3) = Combo2.Text
RS(4) = Val(Combo3.Text)
RS(5) = Text2.Text
RS(6) = Val(Text4.Text)
RS(7) = Val(Text3.Text)
RS(8) = Val(Text6.Text)
RS(9) = TEXTORDERNO.Text
RS(10) = DTPicker1.Value
RS(11) = Text1.Text
MsgBox "RECORD IS SAVED"
RS.Update
Combo4.Text = ""
Combo1.Text = ""
Text5.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text6.Text = ""
TEXTORDERNO.Text = ""
End If
Combo4.SetFocus
If check = 1 Then
RS.AddNew
RS(0) = Val(Combo4.Text)
RS(1) = Text5.Text
RS(2) = Val(Combo1.Text)
RS(3) = Combo2.Text
RS(4) = Val(Combo3.Text)
RS(5) = Text2.Text
RS(6) = Val(Text4.Text)
RS(7) = Val(Text3.Text)
RS(8) = Val(Text6.Text)
RS(9) = TEXTORDERNO.Text
RS(10) = DTPicker1.Value
RS(11) = Text1.Text
MsgBox "RECORD IS SAVED"
End If
If check = 2 Then
Set RS = db.OpenRecordset("SELECT * FROM BILL", dbOpenDynaset)
RS.Edit
RS(3) = Combo2.Text
RS(4) = Val(Combo3.Text)
RS(5) = Text2.Text
RS(6) = Val(Text4.Text)
RS(7) = Val(Text3.Text)
RS.Update
MsgBox ("RECORD IS SAVED")
Combo4.Text = ""
Combo1.Text = ""
Text5.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text6.Text = ""
TEXTORDERNO.Text = ""
End If
End Sub
Private Sub Combo1_Click()
Set RS = db.OpenRecordset("SELECT * FROM WAITOR WHERE CODE=" &
Val(Combo1.Text), dbOpenDynaset)
Text5.Text = RS(0)
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Combo2_Click()
Set RS = db.OpenRecordset("SELECT * FROM MENU WHERE CATEGORY=" & "'" &
Combo2.Text & "'", dbOpenDynaset)
Do While Not RS.EOF
Combo3.AddItem (RS(2))
RS.MoveNext
Loop
End Sub
Private Sub Combo3_Click()
Set RS = db.OpenRecordset("select * from MENU WHERE ITEM_CODE= " & "'" &
Combo3.Text & "'", dbOpenDynaset)
Text2.Text = RS(1)
Text3.Text = RS(3)
Text4.SetFocus
End Sub
Private Sub Combo4_Change()
Text5.SetFocus
End Sub
Private Sub Form_Load()
Set db = OpenDatabase("d:\om\the treat.mdb")
Set RS = db.OpenRecordset("WAITOR", dbOpenDynaset)
Set RS = db.OpenRecordset("select * from WAITOR ", dbOpenDynaset)
Combo1.Clear
Do While Not RS.EOF
Combo1.AddItem (RS(1))
RS.MoveNext
Loop
Me.Height = 6330
Me.Width = 7356
Me.Left = 2100
Me.Top = 1200
Text1.Text = Time()
End Sub
Private Sub Text4_Change()
Text6.Text = Val(Text3.Text) * Val(Text4.Text)
End Sub
Private Sub TEXTORDERNO_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If check = 3 Then
Set RS = db.OpenRecordset("SELECT * FROM BILL WHERE ORDERNO=" &
Val(TEXTORDERNO.Text), dbOpenDynaset)
If RS.BOF And RS.EOF Then
MsgBox ("Order No Does Not Exiest")
TEXTORDERNO.Text = ""
TEXTORDERNO.SetFocus
Exit Sub
End If
Combo1.Text = RS(2)
Text5.Text = RS(1)
Combo2.Text = RS(3)
Combo3.Text = RS(4)
Text2.Text = RS(5)
Text4.Text = RS(6)
Text3.Text = RS(7)
Text6.Text = RS(8)
STR = MsgBox("DO YOU DELETE THIS RECORD", vbYesNo + vbInformation,
"DELETE")
If STR = vbYes Then
RS.Delete
MsgBox ("YOUR RECORD IS DELETED")
Label13.Visible = False
End If
End If
If check = 2 Then
Set RS = db.OpenRecordset("SELECT * FROM BILL WHERE ORDERNO=" &
Val(TEXTORDERNO.Text), dbOpenDynaset)
Combo1.Text = RS(2)
Text5.Text = RS(1)
Combo2.Text = RS(3)
Combo3.Text = RS(4)
Text2.Text = RS(5)
Text4.Text = RS(6)
Text3.Text = RS(7)
Text6.Text = RS(8)
End If
Combo4.Text = ""
Combo1.Text = ""
Text5.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Text2.Text = ""
Text4.Text = ""
Text3.Text = ""
Text6.Text = ""
End If
End Sub
Code for BILL form
Dim db As Database
Dim RS As Recordset
Dim TOTAL As Integer
Private Sub Command1_Click()
Dim BILL As Integer
Do While Not RS.EOF
BILL = BILL + RS(7)
RS.MoveNext
Loop
Text1.Text = BILL
End Sub
Private Sub Command2_Click()
End
Form3.Show
End Sub
Private Sub Command3_Click()
Form7.Show
End Sub
Private Sub Form_Load()
TOTAL = 0
Set db = OpenDatabase("d:\om\the treat.mdb")
Set RS = db.OpenRecordset("SELECT * FROM BILL WHERE ORDERNO =" &
Val(Form7.Text1), dbOpenDynaset)
Do While Not RS.EOF
Text6.Text = Text6.Text & RS(9)
Text2.Text = Text2.Text & RS(5)
Text3.Text = Text3.Text & RS(6)
Text4.Text = Text4.Text & RS(7)
Text5.Text = Text5.Text & RS(8)
TOTAL = TOTAL + RS(8)
RS.MoveNext
Loop
Text1.Text = TOTAL
Me.Height = 5460
Me.Width = 7800
Me.Left = 2000
Me.Top = 1500
End Sub
Code for COLLECT PAYMENT form
Dim db As Database
Dim RS As Recordset
Dim TOTAL As Integer
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Dim STR As String
Dim DT As Date
DT = DTPicker1.Value
MsgBox (DT)
'STR = "SELECT * FROM BILL where currentdate= " &
MsgBox (STR)
Set db = OpenDatabase(App.Path & "\THE TREAT.MDB")
Set RS = db.OpenRecordset(STR, dbOpenDynaset)
Do While Not RS.EOF
TOTAL = TOTAL + RS(8)
RS.MoveNext
Loop
Label2.Caption = TOTAL
End Sub
Private Sub Form_Load()
Dim TOTAL As Integer
Me.Height = 3950
Me.Width = 5004
Me.Left = 3500
Me.Top = 2000
Text1.Text = Time()
End Sub
Code for ORDER NO. form
Private Sub Command1_Click()
Form4.Show
Text1.Text = ""
Text1.SetFocus
Form7.Hide
End Sub
Private Sub Form_Load()
Me.Height = 3285
Me.Width = 4155
Me.Left = 3750
Me.Top = 2500
End Sub
Code for NEW PASSWORD form
Dim db As Database
Dim RS As Recordset
Private Sub Command1_Click()
Set RS = db.OpenRecordset("SELECT * FROM PASSWORD")
RS.Edit
RS(0) = Text3.Text
RS(1) = Text4.Text
Form6.Show
End Sub
Private Sub Form_Load()
Set db = OpenDatabase("D:\OM\THE TREAT.MDB")
Set RS = db.OpenRecordset("SELECT * FROM NEWPASSWORD")
Me.Height = 4620
Me.Width = 5070
Me.Left = 3250
Me.Top = 2000
End Sub
Code for DATE & TIME form
Dim db As Database
Dim RS As Recordset
Dim ST
Private Sub Command1_Click()
ST = "SELECT * FROM BILL WHERE CURRENTDATE =" & "'" & DTPicker1.Value
& "'"
MsgBox (ST)
Set RS = db.OpenRecordset(ST, dbOpenDynaset)
ST = MsgBox("DO YOU WANT TO DELETE ALL RECORDS", vbYesNo +
vbInformation, "DELETE")
If ST = vbYes Then
RS.Delete
MsgBox ("YOUR RECORDS IS DELETED")
End If
End Sub
Private Sub Form_Load()
Set db = OpenDatabase(App.Path & "\THE TREAT.MDB")
Set RS = db.OpenRecordset("SELECT * FROM BILL", dbOpenDynaset)
End Sub
