1

Pizza Hut MANAGEMENT

A PROJECT REPORT
on
SUMMER PROJECT

Submitted by
Ajit Yadav
10517702009

in partial fulfillment of the requirements for the award
of the degree in
BACHELOR IN COMPUTER APPLICATIONS

VIVEKANANDA INSTITUTE OF PROFESSIONAL STUDIES
[JUNE JULY 2011]
2

CERTIFICATE
This is to certify that the project work titled
Pizza Hut MANAGEMENT

Is a bonafide work done by

(Ajit Yadav)
(10517702009)
for the award of degree in
BACHELOR IN COMPUTER APPLICATIONS

---------------------------
Mrs. Meenu Chopra
Mr. Dheeraj Malhotra
Faculty Guide

VIVEKANANDA INSTITUTE OF PROFESSIONAL STUDIES
3


ACKNOWLEDGEMENT

Its our pleasure to acknowledge all those all those who have given us enough help
and support for the development of this project.
First and foremost we are extremely grateful to our parents who have been source
of inspiration for us during these days without which we would not been able to
complete this project.
We express our sincere thanks to Mr. Dheeraj Malhotra and Mrs. Meenu Chopra
for their eminent support and providing their guidance throughout the making of
our Computer Project PIZZA HUT MANAGEMENT SYSTEM.
The project has been thoroughly edited and tested so we believe this project
largely to be error free.
4


DECLARATION:

Pizza Hut management project has been made to work fast & easy. It is fully
automatically. Problems like duplication data & difficulty in updation in excel
sheets have been removed in it. It has very user friendly interface in VB. We also
facilitate telephonic order, customer details, monthly and annual reports in it. It is
connected with SQL database by which we can retrieve and insert data very easily.

5

CONTENTS:

Introduction of project.
Requirements
Introduction of VB.
Introduction of SQL server.
System development life cycle (SDLC).
Objectives.
Problem statements.
Requirement analysis.
Data flow diagram.
Data dictionary.
ER diagram of database.
Binary trees.
Coding.
Testing procedures.
Databases in SQL.
Future application.
Conclusion.
Bibliography.

6


INTRODUCTION OF PROJECTS:

This project has been made to work easy in Pizza Hut because earlier Pizza hut
managements used excel sheets to maintain data which is not easy to maintain. It
creates so many problems to maintain data like if they had to change anything in
data they had update all related excel sheets which was too time consuming and
difficult to update. So by this software it is very easy to maintain data and can be
easily update. It is also very fast to update and time saving software. It is easy to
use for and user friendly. In this software front end has been made in Visual basic
6.0 whose interface is very user friendly. Its back end is made in SQL by which it
is very easy to maintain all kind of data about pizzas, customers, sale, pizza units
etc.

7

REQUIREMENTS:

1. For this we need Visual Basic in machine.
2. We need SQL in machine.
In SQL database if we update a data in a table then relevant data update
automatically and due to primary key in it there is no chance for duplication of data
of customer detail or pizza detail. So most of the errors of this kind have been
removed in it. It is also very easy to use for online or telephonic order of pizza in it
we can save customers details and can take online or telephonic order very easily
and fast. Well it is very easy to get all details about monthly and yearly sale,
purchase about pizzas and their relevant things.















8

INTRODUCTION OF VB

Visual Basic was designed to be easily learned and used by beginner
programmers. The language not only allows programmers to create
simple GUIapplications, but can also develop complex applications. Programming
in VB is a combination of visually arranging components or controls on a form,
specifying attributes and actions of those components, and writing additional lines
of code for more functionality
Forms are created using drag-and-drop techniques. A tool is used to place controls
(e.g., text boxes, buttons, etc.) on the form (window). Controls
have attributes and event handlers associated with them. Default values are
provided when the control is created, but may be changed by the programmer.
Many attribute values can be modified during run time based on user actions or
changes in the environment, providing a dynamic application. For example, code
can be inserted into the form resize event handler to reposition a control so that it
remains centered on the form, expands to fill up the form, etc.
Visual Basic can create executables (EXE files), ActiveX controls, or DLL files,
but is primarily used to develop Windows applications and to interface database
systems. Dialog boxes with less functionality can be used to provide pop-up
capabilities. Controls provide the basic functionality of the application, while
programmers can insert additional logic within the appropriate event handlers.

THE ADVANTAGES OF VISUAL BASIC:

1) It's simple language. Things that may be difficult to program with other
language can be done in Visual Basic very easily.

2) Because Visual Basic is so popular, There are many good resources (Books,
Web sites, News groups and more) that can help you learn the language. You can
find the answers to your programming problems much more easily than other
programming languages.
9


3) You can find many tools (Sharewares and Freeware) on the internet that will
Spare you some programming time.

4) For example, if you want to ping a user over the internet in your program,
Instead of writing the ping function yourself, you can download a control that does
it, and use it in your program.

5) Compare to other languages, Visual Basic have the widest variety of tools that
you can download on the internet and use in your programs.

THE DISADVANTAGES OF VISUAL BASIC:

1) Visual Basic is powerful language, but it's not suit for programming really
sophisticated games.

2) It's much slower than other languages.








10

INTRODUCTION OF SQL:

Structured Query Language, is a database computer declarative language designed
for managing data in relational database management systems (RDBMS), and
originally based upon relational algebra and tuple relational calculus. Its scope
includes data insert, query, update and delete, schema creation and modification,
and data access control."A Relational Model of Data for Large Shared Data
Banks". Despite not adhering to the relational model as described by Codd, it
became the most widely used database language. The SQL language is sub-divided
into several language elements, including:
Clauses, which are constituent components of statements and queries. (In some
cases, these are optional.)
Expressions, which can produce either scalar values or tables consisting
of columns and rows of data.
Predicates, which specify conditions that can be evaluated to SQL three-valued
logic (3VL) or Boolean (true/false/unknown) truth values and which are used to
limit the effects of statements and queries, or to change program flow.
Queries, which retrieve the data based on specific criteria. This is the most
important element of SQL.
Statements, which may have a persistent effect on schemata and data, or which
may control transactions, program flow, connections, sessions, or diagnostics.
SQL statements also include the semicolon (";") statement terminator.
Though not required on every platform, it is defined as a standard part of the
SQL grammar.
Insignificant whitespace is generally ignored in SQL statements and queries,
making it easier to format SQL code for readability.
Queries
The most common operation in SQL is the query, which is performed with the
declarative SELECT statement. SELECT retrieves data from one or more tables, or
expressions. Standard SELECTstatements have no persistent effects on the
11

database. Some non-standard implementations of SELECT can have persistent
effects, such as the SELECT INTO syntax that exists in some databases.
Queries allow the user to describe desired data, leaving the database management
system (DBMS) responsible for planning, optimizing, and performing the physical
operations necessary to produce that result as it chooses.
A query includes a list of columns to be included in the final result immediately
following the SELECT keyword. An asterisk ("*") can also be used to specify that
the query should return all columns of the queried tables. SELECT is the most
complex statement in SQL, with optional keywords and clauses that include:
The FROM clause which indicates the table(s) from which data is to be
retrieved. The FROM clause can include optional JOIN subclauses to specify
the rules for joining tables.
The WHERE clause includes a comparison predicate, which restricts the rows
returned by the query. The WHERE clause eliminates all rows from the result
set for which the comparison predicate does not evaluate to True.
The GROUP BY clause is used to project rows having common values into a
smaller set of rows. GROUP BY is often used in conjunction with SQL
aggregation functions or to eliminate duplicate rows from a result set.
The WHERE clause is applied before the GROUP BY clause.
The HAVING clause includes a predicate used to filter rows resulting from
the GROUP BY clause. Because it acts on the results of the GROUP BY clause,
aggregation functions can be used in theHAVING clause predicate.
The ORDER BY clause identifies which columns are used to sort the resulting
data, and in which direction they should be sorted (options are ascending or
descending). Without an ORDER BYclause, the order of rows returned by an
SQL query is undefined.
Data manipulation
The Data Manipulation Language (DML) is the subset of SQL used to add, update
and delete data:
INSERT adds rows (formally tuples) to an existing table, e.g.,:
INSERTINTOMy_table
12

(field1, field2, field3)
VALUES
('test','N',NULL);
UPDATE modifies a set of existing table rows, e.g.,:
UPDATEMy_table
SET field1 ='updated value'
WHERE field2 ='N';
DELETE removes existing rows from a table, e.g.,:
DELETEFROMMy_table
WHERE field2 ='N';
MERGE is used to combine the data of multiple tables. It combines
the INSERT and UPDATE elements. It is defined in the SQL:2003 standard;
prior to that, some databases provided similar functionality via different syntax,
sometimes called "upsert".
Transaction controls
Transactions, if available, wrap DML operations:
START TRANSACTION (or BEGIN WORK, or BEGIN TRANSACTION,
depending on SQL dialect) mark the start of a database transaction, which either
completes entirely or not at all.
SAVE TRANSACTION (or SAVEPOINT ) save the state of the database at the
current point in transaction
CREATETABLE tbl_1(id INT);
INSERTINTO tbl_1(id)VALUES(1);
INSERTINTO tbl_1(id)VALUES(2);
COMMIT;
UPDATE tbl_1 SET id=200WHERE id=1;
13

SAVEPOINT id_1upd;
UPDATE tbl_1 SET id=1000WHERE id=2;
ROLLBACKTO id_1upd;
SELECT id FROM tbl_1;
COMMIT causes all data changes in a transaction to be made permanent.
ROLLBACK causes all data changes since the
last COMMIT or ROLLBACK to be discarded, leaving the state of the data as it
was prior to those changes.
Once the COMMIT statement completes, the transaction's changes cannot be rolled
back.
COMMIT and ROLLBACK terminate the current transaction and release data
locks. In the absence of a START TRANSACTION or similar statement, the
semantics of SQL are implementation-dependent. Example: A classic bank transfer
of funds transaction.
STARTTRANSACTION;
UPDATE Account SET amount=amount-200WHEREaccount_number=1234;
UPDATE Account SET amount=amount+200WHEREaccount_number=2345;

IF ERRORS=0 COMMIT;
IF ERRORS<>0ROLLBACK;
Data definition
The Data Definition Language (DDL) manages table and index structure. The most
basic items of DDL are
the CREATE, ALTER, RENAME, DROP and TRUNCATE statements:
CREATE creates an object (a table, for example) in the database, e.g.,:
CREATETABLEMy_table(
14

my_field1INT,
my_field2VARCHAR(50),
my_field3DATENOTNULL,
PRIMARYKEY(my_field1, my_field2)
);
ALTER modifies the structure of an existing object in various ways, for
example, adding a column to an existing table or a constraint, e.g.,:
ALTERTABLEMy_tableADD my_field4 NUMBER(3)NOTNULL;
TRUNCATE deletes all data from a table in a very fast way, deleting the data
inside the table and not the table itself. It usually implies a subsequent
COMMIT operation, i.e., it cannot be rolled back.
TRUNCATETABLEMy_table;
DROP deletes an object in the database, usually irretrievably, i.e., it cannot be
rolled back, e.g.,:
DROPTABLEMy_table;
Data types
Each column in an SQL table declares the type(s) that column may contain. ANSI
SQL includes the following datatypes.
Character strings
CHARACTER(n) or CHAR(n) fixed-width n-character string, padded with
spaces as needed
CHARACTER VARYING(n) or VARCHAR(n) variable-width string with a
maximum size of n characters
NATIONAL CHARACTER(n) or NCHAR(n) fixed width string supporting
an international character set
NATIONAL CHARACTER VARYING(n) or NVARCHAR(n) variable-
width NCHAR string
15

Bit strings
BIT(n) an array of n bits
BIT VARYING(n) an array of up to n bits
Numbers
INTEGER and SMALLINT
FLOAT, REAL and DOUBLE PRECISION
NUMERIC(precision, scale) or DECIMAL(precision, scale)
SQL provides a function to round numerics or dates, called TRUNC (in Informix,
DB2, PostgreSQL, Oracle and MySQL) or ROUND (in Informix, Sybase, Oracle,
PostgreSQL and Microsoft SQL Server)
[19]

Date and time
DATE for date values (e.g., 2011-05-03)
TIME for time values (e.g., 15:51:36). The granularity of the time value is
usually a tick (100 nanoseconds).
TIME WITH TIME ZONE or TIMESTAMP the same as TIME, but
including details about the time zone in question.
TIMESTAMP This is a DATE and a TIME put together in one variable
(e.g., 2011-05-03 15:51:36).
TIMESTAMP WITH TIME ZONE or TIMESTAMPTZ the same
as TIMESTAMP, but including details about the time zone in question.
SQL provides several functions for generating a date / time variable out of a date /
time string (TO_DATE, TO_TIME, TO_TIMESTAMP), as well as for extracting
the respective members (seconds, for instance) of such variables. The current
system date / time of the database server can be called by using functions
like NOW.
Data control
The Data Control Language (DCL) authorizes users and groups of users to access
and manipulate data. Its two main statements are:
16

GRANT authorizes one or more users to perform an operation or a set of
operations on an object.
REVOKE eliminates a grant, which may be the default grant.
Example:
GRANTSELECT,UPDATE
ONMy_table
TOsome_user,another_user;

REVOKESELECT,UPDATE
ONMy_table
FROMsome_user,another_user;





17

SDLC

SDLC is an acronym for System Development Life Cycle, a methodology that
consists of development activities that have a prescribed order. Once a problem or
opportunity for a new system is recognized a request for developing a new system
is forwarded for approval. If it is approved, a study is carried out to ensure that the
proposed system is feasible. If it is feasible, then the systems requirements are
specified and are followed by phases of system analysis, system design, system
implementation, and post implementation. A recycling of development may occur
again following system evaluation if the system still requires modification or
redevelopment.
To understand SYSTEM DEVELOPMENTwe need to recognize that candidate
system that has a life cycle. System analysis and design are keyed to the system
life cycle.
The stages of system development life cycle are:












RECOGNITION OF THE NEED

FEASIBILITY STUDY
ANALYSIS
DESIGN
IMPLEMENTATION
POST IMPLEMENTATION AND
MAINTAINENCE
18

1. RECOGNITION OF THE NEED WHAT IS THE PROBLEM?
One must know what the problem is before it can be solved. The basis of the
candidate system is the recognition of a need for improving an information system
or a procedure. This needs leads to a primary survey or an initial investigation to
determine whether an alternate system can solve the problem.

2. FEASIBILITY STUDY:
Depending on the result of the initial investigation, the survey is expanded to more
detailed feasibility study. A feasibility study is a test of system proposal according
to its work ability impact on the organization, ability to meet the users need and
effective user or resources.
It focuses on three major questions: -
1) What are the users demonstrable needs and how does the
candidate system meet them?
2) What resources are available for a given candidate system and
is the problem worth solving?
3) What is the likely impact of the candidate system on the
organization? How well does it fit within the organization
master MIS plans?
The result of the feasibility study is a formal proposal. This is simply a report-a
formal document detailing the nature and scope of proposed solution. The proposal
summarizes what is known and what is going to be done.

3. ANALYSIS
It is a detailed study of the various operations performed by a system and their
relationships within and outside of the system. A key question is: What must be
done to solve a problem?
During analysis, data are collected on the available files, decision points and
transactions handled by the present system. Data flow diagrams, interviews, on site
observations, questionnaires are system models and tools that are used in Analysis.
19

Training experience and common sense are required for the collection of the
information needed to do the analysis.

4.DESIGN
The term design refers to the technical specification that will be applied and
implementing the candidate system. It also includes the construction of programs
and program testing.
The first step is to determine how to output is to be produced and in what format
samples of output are also presented.
Second input data and master files have to be designed to meet the requirements of
the proposed output. The operational phases are handled through program
construction and testing, including the list of programs needed to meet the system
objective and complete documentation.
Finally details related to justification and estimate of the impact of the candidate
system of the user and organization are documented and evaluated by management
as a step towards implementation.

5.IMPLEMENTATION:
It is primary concern with the user training, site preparation and file conversion.
During the final testing user acceptance is tested, followed by user training.
Depending on the nature of the system, extensive user training may be required.
System testing checks the readiness and accuracy of the system to access update
and review from new files. Once the programs become available, test data are read
into the computer and processed against the files provided for testing. If successful,
the programs are then run with live data. Otherwise, a diagnostic procedure is user
to locate and correct errors in the program.

6. POST-IMPLEMENTATION AND MAINTAINENCE:
After the installation phase is completed and user staff is adjusted to the changes
created by the candidate system, evaluation and maintenance begin. The
importance of maintenance is to continue to bring the new system to standard. Like
20

any other systems, there is an aging process that requires periodic maintenance of
hardware and software. If the new information is inconsistent with the design
specifications, then changes have to be made. Hardware also requires periodic
maintenance to continue to bring the new system to standards. User priorities,
changes in organizational requirements, or environmental factors also call for
system enhancements.

PROJECT TERMINATION
A system project may be dropped at any time prior to implementation, although it
becomes more difficult (and costly) when it goes past the design phase. Generally,
projects are dropped if, after a review process, it is learned that:
~~ Changing objectives or requirements of the user cannot be met by
the existing design.
~~ Benefits realized from the candidate system do not justify
commitment to implementation.
~~ There is a sudden change in the users budget or an increase in
design costs beyond the estimate made during the feasibility study.
~~ The project greatly exceeds the time and cost schedule

21

OBJECTIVES:

Pizza management objective is to work easily & to maintain data easily as
possible as.
Its objective is to maintain friendly environment.
Its objective is to serve the customer as possible as by using this software
and fulfill their online n telephonic query & demand.
Its objective is to maintain all record of billing, order, sales etc by very easy
way in same database.
It has all pizza record n cost so that maintain billing n connect with
customers.
It also provides facility to save the detail of customers so that it can provide
better facilities to them as fast as we can.

22

PROBLEM STATEMENT:

I am developing the project to automate the Pizza Management of Pizza Hut.
The Pizza Hut has big management system but the existing system in Pizza Hut is
Manual. All records are managed in excel sheets manually. There is not an
automate system to keep the records. The records are being kept in different record
sheets. One is to keep the record of the customers . Second is used to record the
information about extra expenses, bills etc. So, all information is difficult to
manage.

Problem of the existing system:-
1. It is very difficult to handle the records of different customers in excel
sheets.
2. Searching the status of everything is difficult and time consuming.
3. Difficulty in maintenance of the records like (pizzas, bills etc.).
4. Addition of the new records is difficult.
5. Error rate is very high.










23

REQUIREMENT ANALYSIS:

Requirement Analysis is done in order to understand the problem the software
system is to be solved. The problem could be automating an existing manual
process, developing a new automatic system process, or combination of two.
In a pizza management system problem is automating an existing
manual process. Currently the records of the customer are being kept manually, but
pizza management would like to automate it. We have to first understand the
problem, and then produce a requirement document based on our understanding of
the problem.
First we identify the parties involved
Client : Pizza Hut
End User : Administrator of Pizza hut
Now we begin to study the current system. After discussion with
administrator, manager and the other staff members of Pizza Hut, we found that
system operates as follows.
All the reports are arrange manually like maintaining record of customers,
entry of new customer. So there is no existing automate system. There are excel
sheets that keep the record of pizza hut. One is to keep the record of customer
details and second use to record the information about bills. So all the information
is recorded manually.

24



Splashing
Main Form
Customer Detail
Pizza Detail
Order Online
Billing
25

DATA DICTIONARY:

qty = quantity
pid = pizza id
pname = pizza name
cname = customer name
ard = address
ono = order number
ph = phone number












26






Pizza
Order
PID
PNAME PRICE
BILL
Bill
Customer
Pname
qty
price
Totalprice
Bill no
Order
Order by
ono
Pname qty price
Totalprice
Ph
cname
ard
27






Bill
Bill no.
pname
qty
Price
Total price
Bill main
Bill no.
Date
NP
Cus
ph
cname
ard
28

Ord.
ono
pname
qty
price
Total price
Order main
ono
ph
cname
ard
np
date
Pizza
Pid
pname
Price
29

OFFLINE BILLING

Private Sub Command2_Click()
Command2.Visible = False
On Error GoTo HAND
Form1.PrintForm
MsgBox ("Send to Printer")
Unload Me
Exit Sub
HAND:
MsgBox "Printer not connected or switched off", vbCritical, "Pizza Hut"
Command2.Visible = True
End Sub
30

Private Sub Form_Load()
Label10.Caption = Date
End Sub

PIZZA DETAILS

Private Sub Command2_Click()
Command2.Visible = False
On Error GoTo HAND
Form2.PrintForm
MsgBox ("Send to Printer")
Unload Me
31

Exit Sub
HAND:
MsgBox "Printer not connected or switched off", vbCritical, "PIZZA HUT"
Command2.Visible = True
End Sub
Private Sub Form_Load()
Label3.Caption = Date
End Sub
SPLASH FORM

Private Sub Timer1_Timer()
'marquee of text
Label1.Left = Label1.Left + 50
32

If Label1.Left >= 9930 Then
Label1.Left = 0 - Label1.Width
End If
End Sub

Private Sub Timer2_Timer()
'procress bar
Timer1.Enabled = True
pb1.Value = pb1.Value + 1
Label2.Caption = pb1.Value & "%"
If pb1.Value = 100 Then
frmindex.Show
Unload Me
End If
End Sub
BILLING
Dim DB As New ADODB.Connection
Dim RS As New ADODB.Recordset
Public KEY As Integer
Private Sub Combo1_Click()
TXTPIZZA.Text = Combo1.Text
RS.Open "PIZZA", DB, 1, 3
A = TXTPIZZA.Text
33

RS.Find ("PNAME='" & A & " ' ")
TXTUP.Text = RS.Fields("PRICE")
RS.Close
TXTQTY.SetFocus
End Sub
Private Sub Command1_Click()
If TXTPIZZA.Text = "" Then
MsgBox "enter your type of pizza", vbCritical
Combo1.SetFocus
Else
If TXTQTY.Text = "" Then
MsgBox "enter the quantity", vbInformation
TXTQTY.SetFocus
Else
If (KEY = 0) Then
KEY = 1
Else
KEY = KEY + 1
End If
FG1.Rows = KEY + 1
FG1.TextMatrix(KEY, 1) = TXTPIZZA.Text
FG1.TextMatrix(KEY, 2) = TXTQTY.Text
FG1.TextMatrix(KEY, 3) = TXTUP.Text
34

FG1.TextMatrix(KEY, 4) = TXTTP.Text
TXTPIZZA.Text = ""
TXTQTY.Text = ""
TXTUP.Text = ""
TXTTP.Text = ""
Combo1.Text = ""
Command2.Enabled = True
End If
End If
End Sub
Private Sub Command2_Click()
Dim TOT As Integer
For i = 1 To KEY
TOT = TOT + Val(FG1.TextMatrix(i, 4))
Next i
TXTNP.Text = TOT
Command3.Enabled = True
End Sub
Private Sub Command3_Click()
On Error GoTo HAND
X% = MsgBox("CONFORM SAVE", vbYesNo + vbInformation, "EXCUSE ME")
If (X% = vbYes) Then
RS.Open "BILL", DB, 1, 3
35

For i = 1 To KEY
RS.AddNew
RS.Fields("BILLNO") = Label4.Caption
RS.Fields("PNAME") = FG1.TextMatrix(i, 1)
RS.Fields("PRICE") = FG1.TextMatrix(i, 3)
RS.Fields("TOTPRICE") = FG1.TextMatrix(i, 4)
RS.Update
Next i
RS.Close
RS.Open "BILLMAIN", DB, 1, 3
RS.AddNew
RS.Fields("BILLNO") = Label4.Caption
RS.Fields("DATE") = Label2.Caption
RS.Fields("NP") = TXTNP.Text
RS.Update
RS.Close
Form2.LBNO.Caption = Label4.Caption
Form2.LNP.Caption = TXTNP.Text
For i = 1 To KEY
Form2.LPIZZA(Form2.LPIZZA.UBound).Caption = FG1.TextMatrix(i, 1)
Form2.LUP(Form2.LUP.UBound).Caption = FG1.TextMatrix(i, 3)
Form2.LQTY(Form2.LQTY.UBound).Caption = FG1.TextMatrix(i, 2)
Form2.LTOT(Form2.LTOT.UBound).Caption = FG1.TextMatrix(i, 4)
36

If (Form2.LPIZZA.UBound = 0) Then
' Load Form2.LPIZZA(Form2.LPIZZA.UBound + 1)
' Load Form2.LUP(Form2.LUP.UBound + 1)
' Load Form2.LQTY(Form2.LQTY.UBound + 1)
' Load Form2.LTOT(Form2.LTOT.UBound + 1)
' Form2.Line3.Y2 = Form2.Line3.Y2 + 500
' Form2.Line4.Y2 = Form2.Line4.Y2 + 500
' Form2.Line5.Y2 = Form2.Line5.Y2 + 500
' Form2.Line6.Y2 = Form2.Line6.Y2 + 500
' Form2.Line7.Y2 = Form2.Line7.Y2 + 500
' Form2.Frame1.Top = Form2.Frame1.Top + 300
GoTo SA
End If
' PIZZA NAME
Form2.LPIZZA(Form2.LPIZZA.UBound).Left =
Form2.LPIZZA(Form2.LPIZZA.UBound - 1).Left
Form2.LPIZZA(Form2.LPIZZA.UBound).Top =
Form2.LPIZZA(Form2.LPIZZA.UBound - 1).Top + 250
Form2.LPIZZA(Form2.LPIZZA.UBound).Visible = True
'UNIT PRICE
Form2.LUP(Form2.LUP.UBound).Left = Form2.LUP(Form2.LUP.UBound -
1).Left
Form2.LUP(Form2.LUP.UBound).Top = Form2.LUP(Form2.LUP.UBound -
1).Top + 250
Form2.LUP(Form2.LUP.UBound).Visible = True
37

'QUANTITY
Form2.LQTY(Form2.LQTY.UBound).Left =
Form2.LQTY(Form2.LQTY.UBound - 1).Left
Form2.LQTY(Form2.LQTY.UBound).Top =
Form2.LQTY(Form2.LQTY.UBound - 1).Top + 250
Form2.LQTY(Form2.LQTY.UBound).Visible = True
'TOTAL PRICE
Form2.LTOT(Form2.LTOT.UBound).Left = Form2.LTOT(Form2.LTOT.UBound
- 1).Left
Form2.LTOT(Form2.LTOT.UBound).Top = Form2.LTOT(Form2.LTOT.UBound
- 1).Top + 250
Form2.LTOT(Form2.LTOT.UBound).Visible = True
SA:
Load Form2.LPIZZA(Form2.LPIZZA.UBound + 1)
Load Form2.LUP(Form2.LUP.UBound + 1)
Load Form2.LQTY(Form2.LQTY.UBound + 1)
Load Form2.LTOT(Form2.LTOT.UBound + 1)
Form2.Line3.Y2 = Form2.Line3.Y2 + 500
Form2.Line4.Y2 = Form2.Line4.Y2 + 500
Form2.Line5.Y2 = Form2.Line5.Y2 + 500
Form2.Line6.Y2 = Form2.Line6.Y2 + 500
Form2.Line7.Y2 = Form2.Line7.Y2 + 500
Form2.Frame1.Top = Form2.Frame1.Top + 300
Next i
Form2.Show
38

MsgBox "RECORDE SAVED", vbInformation, "PIZZA HUT"
Else
MsgBox "SAVE ABORTED", vbCritical, "PIZZA HUT"
End If
Command4.Enabled = True
Exit Sub
HAND:
MsgBoxErr.Description, vbCritical, "PIZZA HUT"
End Sub
Private Sub Command4_Click()
RS.Open "BILLMAIN", DB, 1, 3
TXTPIZZA.Text = ""
TXTQTY.Text = ""
TXTUP.Text = ""
TXTTP.Text = ""
TXTNP.Text = ""
FG1.Clear
If (RS.RecordCount = 0) Then
Label4.Caption = 1
Else
RS.MoveLast
Label4.Caption = RS.Fields("BILLNO") + 1
End If
39

RS.Close
Command4.Enabled = False
Command1.Enabled = True
Command3.Enabled = False
Combo1.Enabled = True
TXTUP.Enabled = truw
TXTQTY.Enabled = True
TXTTP.Enabled = True
End Sub
Private Sub Command5_Click()
Unload Me
End Sub
Private Sub Form_Load()
KEY = 0
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &App.Path&
"\pizza.mdb;Persist Security Info=False"
RS.Open "PIZZA", DB, 1, 3
Label2.Caption = Date
While (RS.EOF = False)
Combo1.AddItem RS.Fields("PNAME")
RS.MoveNext
Wend
Combo1.Enabled = False
40

TXTUP.Enabled = False
TXTQTY.Enabled = False
TXTTP.Enabled = False
Command3.Enabled = False
RS.Close
End Sub
Private Sub Form_Unload(Cancel As Integer)
DB.Close
frmindex.Show
End Sub
Private Sub TXTQTY_LostFocus()
If (TXTQTY.Text = "") Or IsNumeric(TXTQTY.Text) = False Or
TXTQTY.Text<= 0 Then
MsgBox" ENTER THE QUANTITY OR ENTER A NUMERIC TEXT or
SHOULD NOT BE LESS THAN ZERO OR EQUAL TO ZERO", vbCritical,
"PIZZA HUT"
TXTQTY.SetFocus
Else
TXTTP.Text = Val(TXTQTY.Text) * Val(TXTUP.Text)
Command1.Enabled = True
Command1.SetFocus
End If
End Sub
41



CUSTOMER FORM


42

Dim DB As New ADODB.Connection
Dim RS As New ADODB.Recordset
Private Sub Combo1_Click()
Text1.Text = Combo1.Text
Combo1.Visible = False
RS.MoveFirst
A = Text1.Text
RS.Find ("PH='" & A & " ' ")
Text1.Text = RS.Fields("PH")
Text2.Text = RS.Fields("CNAME")
Text3.Text = RS.Fields("ARD")
End Sub
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
RS.AddNew
End Sub
Private Sub Command2_Click()
On Error GoTo HAND
X% = MsgBox("CONFORM SAVE", vbInformation + vbYesNo, "CONFORM
SAVE")
If (X% = vbYes) Then
43

RS.Fields("PH") = Text1.Text
RS.Fields("CNAME") = Text2.Text
RS.Fields("ARD") = Text3.Text
RS.Update
MsgBox" RECORD SAVED", vbInformation, "RECORD SAVED"
Else
MsgBox" SAVE ABORTED", vbInformation, "RECORD NOT SAVED"
End If
Exit Sub
HAND:
MsgBoxErr.Description, vbCritical, " EXCUSE ME"
End Sub
Private Sub Command3_Click()
Combo1.Visible = True
Combo1.Clear
RS.MoveFirst
While (RS.EOF = False)
Combo1.AddItem RS.Fields("PH")
RS.MoveNext
Wend
End Sub
Private Sub Command4_Click()
44

X% = MsgBox("CONFORM DELETE", vbInformation + vbYesNo, "CONFORM
SAVE")
If (X% = vbYes) Then
RS.Delete
MsgBox" RECORS DELETED", vbInformation, "EXCUSE ME"
RS.MoveFirst
Text1.Text = RS.Fields("PH")
Text2.Text = RS.Fields("CNAME")
Text3.Text = RS.Fields("ARD")
Else
MsgBox" DELETE ABORTED", vbCritical, "EXSCUSE ME"
End If
End Sub
Private Sub Command5_Click()
Unload Me
End Sub
Private Sub Form_Load()
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &App.Path&
"\pizza.mdb;Persist Security Info=False"
RS.Open "CUS", DB, 1, 3
Combo1.Visible = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
RS.Close
45

DB.Close
frmindex.Show
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub Text1_GotFocus()
Text1.BackColor = &HC0FFC0
End Sub
Private Sub Text1_LostFocus()
Text1.BackColor = &H80000005
End Sub
Private Sub Text2_GotFocus()
Text2.BackColor = &HC0FFC0
End Sub
Private Sub Text2_LostFocus()
Text2.BackColor = &H80000005
End Sub
Private Sub Text3_GotFocus()
Text3.BackColor = &HC0FFC0
End Sub
Private Sub Text3_LostFocus()
Text3.BackColor = &H80000005
End Sub
46

Private Sub Combo1_GotFocus()
Combo1.BackColor = &HFFFFC0
End Sub
Private Sub Combo1_LostFocus()
Combo1.BackColor = &H80000005
End Sub

INDEX FORM

Private Sub CMDBILL_Click()
FRMBILL.Show
Unload Me
End Sub

47

Private Sub CMDCDETAILS_Click()
FRMCUS.Show
Unload Me
End Sub
Private Sub CMDEXIT_Click()
X% = MsgBox(" CONFORM EXIT", vbInformation + vbYesNo, "PIZZA HUT-
EXIT CONFORM")
If (X% = vbYes) Then
End
Else
frmindex.Show
End If
End Sub
Private Sub CMDONLINE_Click()
frmonline.Show
Unload Me
End Sub
Private Sub CMDPIZZA_Click()
FRMPIZZA.Show
Unload Me
End Sub
Private Sub CMDSEARCH_Click()
FRMSEARCH.Show
48

Unload Me
End Sub

ONLINE BILLING FORM

Public KEY As Integer
Dim DB As New ADODB.Connection
Dim RS As New ADODB.Recordset
Private Sub cmdfind_Click()
sqlst = "select * from CUS where (PH)=" + TXTPH.Text
RS.Opensqlst, DB, 1, 3
If (RS.RecordCount = 0) Then
MsgBox" RECORD NOT FOUND "
TXTNAME.Locked = False
49

TXTADD.Locked = False
MsgBox "ENTER THE NAME AND ARDDRESS", vbCritical, "PIZZA HUT"
TXTNAME.SetFocus
Command2.Enabled = True
Else
TXTPH.Text = RS.Fields("PH")
TXTNAME.Text = RS.Fields("CNAME")
TXTADD.Text = RS.Fields("ARD")
Command1.Enabled = True
End If
RS.Close
End Sub
Private Sub Combo1_Click()
TXTPIZZA.Text = Combo1.Text
RS.Open "PIZZA", DB, 1, 3
A = TXTPIZZA.Text
RS.Find ("PNAME='" & A & " ' ")
TXTUP.Text = RS.Fields("PRICE")
RS.Close
TXTQTY.SetFocus
End Sub
Private Sub Command2_Click()
On Error GoTo HAND
50

RS.Open "CUS", DB, 1, 3
RS.AddNew
RS.Fields("PH") = TXTPH.Text
RS.Fields("CNAME") = TXTNAME.Text
RS.Fields("ARD") = TXTADD.Text
RS.Update
RS.Close
Command2.Enabled = False
Command1.Enabled = True
Exit Sub
HAND:
MsgBox" CHECK IF YOU HAVE ENTERED A NAME AND YOUR
ADDRESS", vbCritical, "PIZZA HUT"
End Sub
Private Sub Command5_Click()
'On Error GoTo HAND
X% = MsgBox("CONFORM SAVE", vbYesNo + vbInformation, "EXCUSE ME")
If (X% = vbYes) Then
RS.Open "ord", DB, 1, 3
For i = 1 To KEY
RS.AddNew
RS.Fields("ONO") = Label4.Caption
RS.Fields("PNAME") = fg1.TextMatrix(i, 1)
51

RS.Fields("qty") = fg1.TextMatrix(i, 2)
RS.Fields("PRICE") = fg1.TextMatrix(i, 3)
RS.Fields("TOTPRICE") = fg1.TextMatrix(i, 4)
RS.Update
Next i
RS.Close
RS.Open "ORDERMAIN", DB, 1, 3
RS.AddNew
RS.Fields("ONO") = Label4.Caption
RS.Fields("DATE") = Label12.Caption
RS.Fields("NP") = txtnp.Text
RS.Fields("PH") = Text3.Text
RS.Fields("CNAME") = Text1.Text
RS.Fields("ARD") = Text2.Text
RS.Update
RS.Close
Form1.LONO.Caption = Label4.Caption
Form1.LPH.Caption = Text3.Text
Form1.LARD.Caption = Text2.Text
Form1.LCUS.Caption = Text1.Text
Form1.LNP.Caption = txtnp.Text
For i = 1 To KEY
Form1.LPIZZA(Form1.LPIZZA.UBound).Caption = fg1.TextMatrix(i, 1)
52

Form1.LUP(Form1.LUP.UBound).Caption = fg1.TextMatrix(i, 3)
Form1.LQTY(Form1.LQTY.UBound).Caption = fg1.TextMatrix(i, 2)
Form1.LTOT(Form1.LTOT.UBound).Caption = fg1.TextMatrix(i, 4)
If (Form1.LPIZZA.UBound = 0) Then
' Load Form1.LPIZZA(Form1.LPIZZA.UBound + 1)
' Load Form1.LUP(Form1.LUP.UBound + 1)
' Load Form1.LQTY(Form1.LQTY.UBound + 1)
' Load Form1.LTOT(Form1.LTOT.UBound + 1)
' Form1.Line3.Y2 = Form1.Line3.Y2 + 500
' Form1.Line4.Y2 = Form1.Line4.Y2 + 500
' Form1.Line5.Y2 = Form1.Line5.Y2 + 500
' Form1.Line6.Y2 = Form1.Line6.Y2 + 500
' Form1.Line7.Y2 = Form1.Line7.Y2 + 500
' Form1.Frame1.Top = Form1.Frame1.Top + 300
GoTo SA
End If
' PIZZA NAME
Form1.LPIZZA(Form1.LPIZZA.UBound).Left =
Form1.LPIZZA(Form1.LPIZZA.UBound - 1).Left
Form1.LPIZZA(Form1.LPIZZA.UBound).Top =
Form1.LPIZZA(Form1.LPIZZA.UBound - 1).Top + 250
Form1.LPIZZA(Form1.LPIZZA.UBound).Visible = True
'UNIT PRICE
53

Form1.LUP(Form1.LUP.UBound).Left = Form1.LUP(Form1.LUP.UBound -
1).Left
Form1.LUP(Form1.LUP.UBound).Top = Form1.LUP(Form1.LUP.UBound -
1).Top + 250
Form1.LUP(Form1.LUP.UBound).Visible = True
'QUANTITY
Form1.LQTY(Form1.LQTY.UBound).Left =
Form1.LQTY(Form1.LQTY.UBound - 1).Left
Form1.LQTY(Form1.LQTY.UBound).Top =
Form1.LQTY(Form1.LQTY.UBound - 1).Top + 250
Form1.LQTY(Form1.LQTY.UBound).Visible = True
'TOTAL PRICE
Form1.LTOT(Form1.LTOT.UBound).Left = Form1.LTOT(Form1.LTOT.UBound
- 1).Left
Form1.LTOT(Form1.LTOT.UBound).Top = Form1.LTOT(Form1.LTOT.UBound
- 1).Top + 250
Form1.LTOT(Form1.LTOT.UBound).Visible = True
SA:
Load Form1.LPIZZA(Form1.LPIZZA.UBound + 1)
Load Form1.LUP(Form1.LUP.UBound + 1)
Load Form1.LQTY(Form1.LQTY.UBound + 1)
Load Form1.LTOT(Form1.LTOT.UBound + 1)
Form1.Line3.Y2 = Form1.Line3.Y2 + 500
Form1.Line4.Y2 = Form1.Line4.Y2 + 500
Form1.Line5.Y2 = Form1.Line5.Y2 + 500
Form1.Line6.Y2 = Form1.Line6.Y2 + 500
54

Form1.Line7.Y2 = Form1.Line7.Y2 + 500
Form1.Frame1.Top = Form1.Frame1.Top + 300
Next i
Form1.Show
MsgBox "RECORDE SAVED", vbInformation, "PIZZA HUT"
Else
MsgBox "SAVE ABORTED", vbCritical, "PIZZA HUT"
End If
'Exit Sub
'HAND:
'MsgBoxErr.Description
End Sub
Private Sub Command6_Click()
Unload Me
End Sub
Private Sub Command7_Click()
Label4.Caption = "BILL"
TXTPH.Text = ""
Text3.Text = ""
Text1.Text = ""
Text2.Text = ""
txtnp.Text = ""
TXTPIZZA.Text = ""
55

TXTQTY.Text = ""
TXTUP.Text = ""
TXTPRICE = ""
TXTNAME.Text = ""
TXTADD.Text = ""
TXTTP.Text = ""
Combo1.Text = ""
fg1.Clear
Frame4.Enabled = True
Command1.Enabled = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
DB.Close
frmindex.Show
End Sub
Private Sub Command1_Click()
'COMMAND BUTTON ORDER
frbill.Enabled = True
FRFG.Enabled = True
Text3.Text = TXTPH.Text
Text1.Text = TXTNAME.Text
Text2.Text = TXTADD.Text
RS.Open "ORDERMAIN", DB, 1, 3
56

If (RS.RecordCount = 0) Then
Label4.Caption = 1
Else
RS.MoveLast
Label4.Caption = RS.Fields("ONO") + 1
End If
RS.Close
Frame4.Enabled = False
End Sub
Private Sub Command3_Click()
If TXTPIZZA.Text = "" Then
MsgBox "enter the pizza type", vbInformation
Combo1.SetFocus
Else
If TXTQTY.Text = "" Then
MsgBox "enter the number of quantity", vbInformation
TXTQTY.SetFocus
Else
If (KEY = 0) Then
KEY = 1
Else
KEY = KEY + 1
End If
57

fg1.Rows = KEY + 1
fg1.TextMatrix(KEY, 1) = TXTPIZZA.Text
fg1.TextMatrix(KEY, 2) = TXTQTY.Text
fg1.TextMatrix(KEY, 3) = TXTUP.Text
fg1.TextMatrix(KEY, 4) = TXTTP.Text
TXTPIZZA.Text = ""
TXTQTY.Text = ""
TXTUP.Text = ""
TXTTP.Text = ""
Combo1.Text = ""
End If
End If
End Sub
Private Sub Command4_Click()
Dim TOT As Integer
For i = 1 To KEY
TOT = TOT + Val(fg1.TextMatrix(i, 4))
Next i
txtnp.Text = TOT
Command5.Enabled = True
End Sub
Private Sub Form_Load()

58

DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &App.Path&
"\pizza.mdb;Persist Security Info=False"
RS.Open "PIZZA", DB, 1, 3
While (RS.EOF = False)
Combo1.AddItem RS.Fields("PNAME")
RS.MoveNext
Wend
RS.Close
Label12.Caption = Date
End Sub
Private Sub TXTNAME_LostFocus()
If IsNumeric(TXTNAME.Text) = True Then
MsgBox "ENTER NAME IN TEXT ONLY", vbCritical, "PIZZA HUT"
End If
End Sub
Private Sub TXTPH_LostFocus()
If TXTPH.Text = "" Or IsNumeric(TXTPH.Text) = False Then
MsgBox" ENTER A PHONE NUMBER"
TXTPH.SetFocus
End If
End Sub
Private Sub TXTQTY_LostFocus()
If TXTQTY.Text = "" Or IsNumeric(TXTQTY.Text) = False Or TXTQTY.Text<=
0 Then
59

MsgBox" QUANTITY CANNOT BE EMPTY OR ENTER A NUMERIC TEXT
or SHOULD NOT BE LESS THAN ZERO OR EQUAL TO ZERO ", vbCritical,
"PIZZA HUT"
TXTQTY.SetFocus
Else
TXTTP.Text = Val(TXTQTY.Text) * Val(TXTUP.Text)
End If
End Sub


PASSWORD FORM

Private Sub txtpassword_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpassword = LCase(txtpassword.Text)
60

If (txtpassword.Text = "admin") Then
MsgBox "login into "&txtusername.Text, vbInformation, "login in"
frmain.Show
Unload Me
Else
MsgBox "login failes", vbCritical, "login failed"
txtusername.Text = ""
txtpassword.Text = ""
txtusername.SetFocus
End If
End If
End Sub
Private Sub txtusername_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpassword.SetFocus
End If
End Sub

PIZZA DETAIL FORM
Dim DB As New ADODB.Connection
Dim RS As New ADODB.Recordset
Private Sub Combo1_Click()
Text1.Text = Combo1.Text
61

Combo1.Visible = False
RS.MoveFirst
A = Text1.Text
RS.Find ("PID='" & A & " ' ")
Text1.Text = RS.Fields("PID")
Text2.Text = RS.Fields("PNAME")
Text3.Text = RS.Fields("PRICE")
End Sub
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
If (RS.RecordCount = 0) Then
Text1.Text = 1
Else
RS.MoveLast
Text1.Text = RS.Fields("PID") + 1
End If
RS.AddNew
End Sub
Private Sub Command2_Click()
On Error GoTo HAND
62

X% = MsgBox("CONFORM SAVE", vbInformation + vbYesNo, "CONFORM
SAVE")
If (X% = vbYes) Then
RS.Fields("PID") = Text1.Text
RS.Fields("PNAME") = Text2.Text
RS.Fields("PRICE") = Text3.Text
RS.Update
MsgBox" RECORD SAVED", vbInformation, "RECORD SAVED"
Else
MsgBox" SAVE ABORTED", vbInformation, "RECORD NOT SAVED"
End If
Exit Sub
HAND:
MsgBoxErr.Description, vbCritical, " EXCUSE ME"
End Sub
Private Sub Command3_Click()
Combo1.Visible = True
Combo1.Clear
RS.MoveFirst
While (RS.EOF = False)
Combo1.AddItem RS.Fields("PID")
RS.MoveNext
Wend
63

End Sub
Private Sub Command4_Click()
X% = MsgBox("CONFORM DELETE", vbInformation + vbYesNo, "CONFORM
SAVE")
If (X% = vbYes) Then
RS.Delete
MsgBox" RECORS DELETED", vbInformation, "EXCUSE ME"
If (RS.RecordCount = 0) Then
MsgBox" NO RECORS AVALABLE ALL DELETED", vbCritical, "PIZZA
HUT"
Else
RS.MoveFirst
Text1.Text = RS.Fields("PID")
Text2.Text = RS.Fields("PNAME")
Text3.Text = RS.Fields("PRICE")
End If
Else
MsgBox" DELETE ABORTED", vbCritical, "EXSCUSE ME"
End If
End Sub
Private Sub Command5_Click()
Unload Me
End Sub

64

Private Sub Form_Load()
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &App.Path&
"\pizza.mdb;Persist Security Info=False"
RS.Open "PIZZA", DB, 1, 3
Combo1.Visible = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
RS.Close
DB.Close
frmindex.Show
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub Text1_GotFocus()
Text1.BackColor = &HC0FFC0
End Sub
Private Sub Text1_LostFocus()
Text1.BackColor = &H80000005
End Sub
Private Sub Text2_GotFocus()
Text2.BackColor = &HC0FFC0
End Sub

65

Private Sub Text2_LostFocus()
Text2.BackColor = &H80000005
End Sub
Private Sub Text3_GotFocus()
Text3.BackColor = &HC0FFC0
End Sub
Private Sub Text3_LostFocus()
Text3.BackColor = &H80000005
End Sub
Private Sub Combo1_GotFocus()
Combo1.BackColor = &HFFFFC0
End Sub
Private Sub Combo1_LostFocus()
Combo1.BackColor = &H80000005
End Sub

66

SEARCH FORM

Private Sub Command1_Click()
DataReport1.Show
End Sub
Private Sub Command2_Click()
DataReport3.Show
End Sub
Private Sub Command3_Click()
DataReport2.Show
End Sub
Private Sub Command4_Click()
DataReport4.Show
End Sub
67

Private Sub Form_Unload(Cancel As Integer)
Unload Me
frmindex.Show
End Sub
















68

69



70




71




72



SQL > bill
Name NULL? Type
---------------------------------------------------------------------------------- ------------ ----------
---------------
BILLNO NUMBER
PNAME CHAR
QTY NUMBER
PRICE NUMBER
TOPPRICE NUMBER

SQL > BILLMAIN Null? Type
---------------------------------------------------------------------------------- ------------ ----------
------------------
BILLNO NUMBER
DATE DATE/TIME
NP NUMBER


SQL>CUS Null? Type
------------------------------------------------------------------------------------ ---------- -----------
-------------------
73

PH NOTNULL NUMBER
CNAME CHAR
ARD CHAR

SQL> ORD NULL? TYPE
------------------------------------------------------------------------------------- --------- -----------
--------------
ONO NOTNULL NUMBER
PNAME CHAR
QTY NUMBER
PRICE NUMBER
TOPPRICE NUMBER

SQL> ORDERMAIN NULL? TYPE
------------------------------------------------------------------------------------- --------- -----------
--------------
ONO NOTNULL NUMBER
PH NUMBER
CNAME CHAR
ARD CHAR
NP NUMBER
DATE DATE/TIME


74

SQL> PIZZA NULL? TYPE
------------------------------------------------------------------------------------- --------- -----------
--------------
PID NOTNULL NUMBER
PNAME CHAR
PRICE NUMBER

75

FUTURE APPLICATION:
Nothing in the world is perfect and we are no exception. At present, the project will be
limited to some common working in Pizza Hut. The project will be adaptive to the
changing needs of the users. The project will be enhanced to any level of possibilities.
Further, payroll system, export, import of accessories can also be implemented to keep an
eye on their work and attendance.


















76

CONCLUSION:
It is very user friendly software because of its interface that is easy to understand and use.
Data can be easily manipulate as updation in database so we have to not face that
problems as like excel sheets to update data. There is also no error of duplication data
because of primary keys used in database which not allowed data to be duplicate. Well,it
is also faster as compared and need not any specific hardware to run it only need Visual
Basic and SQL in machine.

77

BIBLIOGRAPHY:
1. Awad, Ellas M. Second edition. System analysis and Design.
2. Nicolas, John M. Managing Bussiness and Engineering Projects. Concepts and
Implematation.
3. Steven Holzner, Black Book, VB 6.0 Programming.
4. Grunwich&Grunwhich, Learn VB in 21 days.
5. RDBMS Jashwant Knekar.
6. Fundamental of DBMS & SQL Server.

Websites:
1. www.microsoft.com
2. www.sqltuner.com
3. www.oracle.com
4. www.vbcode.com
5. www.google.com