Billing project

Page | 0
Project Report
Visual Basic
Language
Billing System
Submitted By
Chandni Sharma
BCA 3rd
Year
Dezyne E’cole College

Page | 1
Project Report On
RESTAURANT BILLING SYSTEM
Submitted
To
Dezyne E’cole College
By
Chandni Sharma
BCA 3rd
Year
Dezyne E’ Cole College
106/10, Civil Lines, Ajmer
Tel: 0145-2624679
www.dezyneecole.com
2016-2017

Page | 2
Grade Sheet
This project report has been made under the guidance of Mr.
Tarun Sharma faculty of Bachelor of Computer Application
program. This project focuses on various parameters of Billing
System. It has all the basic modules to operate the entire billing
operations.
The overall project report
is………………………………………………………………………….
……………………………………………………………………………
……………………………………………………………………………
……………………………………………………………………………
………………………………………..
Principal Signature……………………
Date…………………………………….

Page | 3
Acknowledgement
This application on “Visual Basic Language” was developed at
Dezyne E’cole College. I would like to express my gratitude and
appreciation to all those who gave me the possibility to complete this
project.
The success and final outcome of this project required a lot of guidance
and assistance from many people and I am extremely fortunate to have
got this all along the completion of my project work. Whatever I have
done is only due to such guidance and assistance and I would not forget
to thank them.
A special thanks to our final project coordinator, Mr. Tarun Sharma,
whose help, stimulating suggestions and encouragement, helped me to
coordinate my project especially in writing this report. His dedication and
keen interest above all his overwhelming attitude to help his student had
been solely and mainly responsible for completing my work.
His timely advice and scientific approach have helped me to a very great
extent to accomplish this task.
Through this column, it would be our utmost pleasure to express our
warm thanks to him for encouragement, co-operative nature without
which we mightn’t be able to accomplish our work.
I am thankful to and fortunate enough to get constant encouragement,
support and guidance from all Teaching staffs of Department of
computer technology which helped me in successfully completing our
project work. Also, I would like to extend our sincere regards to all the
non-teaching staff of department of computer science for their timely
support.
I thank our college “Dezyne E’cole College”, for giving me an
opportunity to do the project work and providing us all support and
guidance which made me complete the project on time. I am extremely
grateful to our college for providing such a nice support and guidance
and such infrastructure to carry out the project.
With due Regards
Chandni Sharma
BCA 3rd
year

Page | 4
CONTENTS
1. Introduction
2. Objectives
3. Future Scope
4. Characteristics of the proposed system
5. Introduction of Information Technology
6. Introduction of Project
7. Feasibility Study
8. Project Design & Architecture
9. Database Development
10. Form Design & Coding
11. Testing/ Implementation
12. PC requirement
13. Conclusion
14. Bibliography

Page | 5
Synopsis
Project: Restaurant Billing and Staff Management
System.
Introduction
The project “Billing system” is an application to automate the process of
ordering
And billing of a restaurant .This application is developed for the
established restaurants in the city to manage the billing operations. It
has the entire basic module to operate the billing modules. This
application also administrates its users and customers.
Objective
This project will serve the following objectives:-
 Add and maintain records of available products.
 Add and maintain customer details.
 Add and maintain description of new products.
 Add and maintain admin and employee details.
 Provides a convenient solution of billing pattern.
 Make an easy to use environment for users and customers.
 Create membership for customers.
Future Scope
 This project will help the store keeper in fast billing
 This project enable store keeper to maintain a great database of
all customers visited and purchase product from store.
 Project will enable to see bill of old customers.
 Easy to maintain in future prospect.

Page | 6
Characteristics of the proposed system
 Easiness in modification of data: The proposed system provides
managing of huge data effectively and efficiently for efficient
results, storing the details of the customers, employees etc. in
such a way that the database can be modified.
 User friendly: The proposed system is user friendly because the
retrieval and storing of data is fast and data is maintained
efficiently. Moreover the graphical user interface is provided in the
proposed system, which provides user to deal with the system very
easily.
 Reports are easily generated: Reports can be easily generated
in a proposed system. So any type of reports can be generated in
a proposed system, which helps the managers in a decisions-
making activity.
 No or very few paperwork: The proposed system does not
require paper work. All the data into the computer immediately
and various bills and reports can be generated through computers.
Since all the data is kept in a database no data of the organization
can be destroyed. Moreover work becomes very easy because
there is no need to keep data on papers.
 Computer operator control: Computer operator control will be
there no errors. Moreover storing and retrieving of information is
easy. So work can be done speedily and in time.
 Support strategic competitive advantage: Proposed system
supports strategic competitive advantages. Since the proposed
systems provide easiness in reports generating it will provide
strategic advantages among competitors.

Page | 7
Chapter – 1
Introduction of Information Technology
Information Technology- is the application of computers to store,
study, retrieve, transmit, and manipulate data, or information, often in the
context of a business or other enterprise. IT is considered a subset of
information and communications technology (ICT). In 2012, Zuppo
proposed an ICT hierarchy where each hierarchy level “Contain some
degree of commonality in that they are related to technologies that
facilitate the transfer of information and various types of electronically
mediated communications."
The term is commonly used as a synonym for computers and computer
networks, but it also encompasses other information distribution
technologies such as television and telephones. Several industries are
associated with information technology, including computer hardware,
software, electronics, semiconductors, internet, telecom equipment, and
e-commerce.
Humans have been storing, retrieving, manipulating, and communicating
information since the Sumerians in Mesopotamia developed writing in
about 3000 BC, but the term information technology in its modern sense
first appeared in a 1958 article published in the Harvard Business
Review; authors Harold J. Leavitt and Thomas L. Whisler commented
that "the new technology does not yet have a single established name.
We shall call it information technology (IT)." Their definition consists of
three categories: techniques for processing, the application of statistical
and mathematical methods to decision-making, and the simulation of
higher-order thinking through computer programs.
Based on the storage and processing technologies employed, it is
possible to distinguish four distinct phases of IT development: pre-
mechanical (3000 BC – 1450 AD), mechanical (1450–1840),
electromechanical (1840–1940), electronic (1940–present).[6] This
article focuses on the most recent period (electronic), which began in
about 1940.

Page | 8
Few Reasons why people choose Information Technology (IT) field-
Information Technology or more commonly known as I.T. is the most
popular career and the fastest growing industry in the world. There are
several success stories about people who chose this field for a career
and are now on top of their game. But what is it about I.T. that makes it
such a lucrative career choice for up and coming professionals. Here are
a few reasons why people who choose Information Technology are
successful in their business life:
 Low Cost of Education
The biggest advantage of choosing information technology for a
career is that it has very low cost of education as compared to many
other career choices. You don’t need a 4 year degree to become an
I.T. professional. Instead, you can get quick training to be certified in
specific areas of Information Technology. This way you save huge
amounts of money that you may have otherwise spent on years of
college tuition. The more knowledge and certifications you acquire the
more you’ll advance in your career.
 Fastest Changing Industry
The Information Technology industry operates at a speed much faster
than any other industry and for this reason, there’s always a
significant demand for highly-skilled workers. With the innovations in
cloud computing, big data, and cyber security an aspiring I.T.
professional has many avenues to pursue and grow from. An I.T.
professional never stops learning, and must always stay on top of the
latest technological trends in order to be successful in the field. The
more training and knowledge the I.T. professional has the more
employable he or she will be.
 Better Income
It is a well-known fact that Information Technology professionals are
paid well, compared to other professionals. An I.T. professional with
the right mix of certifications and experience can find a permanent
position in either the public or private sector. Recently, many
companies have been extensively hiring experts in cloud computing,
cyber security and network security to help enhance their current
systems. Many I.T. jobs provide great career advancement
opportunities for a dedicated and hardworking I.T. professional.

Page | 9
 Final Words
Information technology is the field of the millennial. Aspiring I.T.
professionals must know that in order to succeed in the I.T. field they
must be committed to learning and adapting to new technological
advancements in order to stay competent. This entails getting the
right mix of experience and certifications. I.T. professionals that stay
on top of the latest tech trends will have many career options to
choose from.
Bachelor of Computer Application
BCA is a part of information technology. In this age of computers and
everything being digitalized, knowledge about machines is very
important. It helps the person have a distinct advantage over the others
who do not have a degree in computer applications. The domain is
growing a rapid pace. In the 1990’s with the advent of globalization
computers grew in prominence and slowly started to replace the paper
and files in offices. It brought down the cost to quite an exist.
BCA is a three year undergraduate degree course. Students will be
taught subjects which are related to the technological applications that
are requires in today’s practical work field.
1. Skills to be learnt – Students who study for a bachelor of
computer application (BCA) will get skills and information not only
about computer and information technology but also in
communication, organization and management.
One also get to learn programming languages such as C, C++,
JAVA, JavaScript, HTML&CSS, SQL, Foxpro etc.
2. Career opportunities –BCA given a number of opportunities to
individuals to go ahead and shine in their lives. The opportunities
available for people doing BCA are galore. A few of them like
software programmer, system and network administrator, web
designer, faculty for computer science / communication technology
etc. the range of chances in information technology are immense.

Page | 10
According to our MDS University we have learnt many theory &
practical subjects –
 First Year
o Management and accounting
o Computer fundamental
o PC software
o Fundamentals of C Programming
o Data structure and algorithm
o Multimedia Basic
 Second year
o Communication skills
o Database management system
o Client server technology
o Java Programming
o C++ Programming
o Computer Graphics
 Third year
o Visual Basic Programming
o Relational database management system (ORACLE / SQL)
o E - Commerce
o Computer Network and Mobile Computing
o Internet tools & website development (JavaScript, ASP)
o Management Information System

Page | 11
Chapter – 2 Introduction of Project
The project titled “Restaurant and Staff Management System” is
Billing System that enables the store keeper to operate the billing
operations.
The project Restaurant and Staff Management System is
developed in visual basic language which mainly focuses on basic
operation in a Restaurant – adding new Products, Employees, Admin,
keeping the details of products, generating membership for the
customers, generate bill.
Student Management System is a windows application designed
to help users maintain & organize College. Our application is easy to use
for both beginners & advanced users. It features a familiar and well
thought – out, an attractive user interface, combined with strong
searching, insertion & deletion capabilities. It can generate a report card
for Student of College.
The application Student Management System has four main
Module–
 Insertion, Deletion, Updating to database module – User
friendly input screen.
 Extracting from the database module – Attractive output screen.
 Generate bill – Print the bill.
 Generate membership –Generate membership card for the
customers.
Why it is made –
The main objective of this project is to provide a friendly
environment to maintain the details of Product, Customers, Admin, and
Students. The main purpose of this project is replaced the manually
work.
What Language –
Visual Basic 6.0 Language
Visual basic (VB) is a 3rd
generation event-driven programming language
developed by Microsoft for their operating system windows. Visual basic
is a widely understood high level programing language, written using
simple English. Like – words & syntax.

Page | 12
It is an interpreted language. Code can be run immediately after
being written. Having an interpreter makes its simpler to use, as there is
no need for the computer to compile the code, possibly finding errors to
fix, before the compiled version can be run. Once the code is working, it
can be compiled into an .exe file so that it will run on all modern windows
computers, whether VB is installed or not. The language allows a
beginning programmer to produce professional – looking windows
applications, as its include drawing tools to create normal windows and
structures which allow programs to be adapted for use with the internet.
VB will not run on operating systems other than windows.
Visual Basic has its origin in basic which was developed round about the
year 1960, when high level languages were just being introduced to the
computer community. Microsoft has made it extremely powerful by
gearing all its good features to the windows environment.
Evaluation of Visual Basic –
VB 1.0 was introduced in 1991. The drag and drop design for
creating the user interface is derived from prototype from generator
developed by Allan cooper and his company called Tripod. Microsoft
contracted with cooper and his associates to develop Tripod into a
programmable form system for windows 3.0, under the code name Ruby
(no relation to the Ruby programming language). Tripod did not include
a programming language at all. Microsoft decided to combine Ruby with
the basic language to create Visual Basic.
Need of Visual Basic –
Visual Basic is easy to learn programming language. With Visual
Basic you can develop windows based applications and Games. Visual
Basic is much easier to learn than others language (like Visual C++),
and yet it’s powerful programming language. Visual Basic suite more for
desktop application developing than for Games developing. You can
create sophisticated games using Visual Basic, Visual Basic will be
probably powerful enough to suite all your application and games
programming needs.

Page | 13
Chapter – 3 Project & Their Facilities
We have designed and built a restaurant menu and management
system that provides an interactive menu that replaces the paper menu
entirely and removes much of the need to be waited on by the
restaurant's wait staff. This system also provides additional features
designed to enhance the customer's overall experience. A separate
management app allows the restaurant's management to quickly make
changes to the menu. The restaurant menu and management system
consists of the menu app, the management app, the server and a
database. Other apps, intended to be used by the restaurant's kitchen
and wait staff were not developed for this project. The development of
this system was decomposed into two independent projects: the menu
and management apps; and the server and database. This report covers
the development of the menu and management apps.
Here is a list of some features which are in provided in this
application –
 Keep records of different categories like – Products, Customers,
Admin and Employees.
 Easy way to enter new Admin.
 Easy way to enter new Employee.
 Easy way to delete old Admin.
 Easy way to delete old Employee.
 Easy way to Log-In and Log-Out.
 Automatic Bill Generation.
 No need to invest heavily on hardware.
Objective of Student Management System –
1. Automation – The application automates each and every activity of
the manual system and increases its throughput. Thus the response
time of the system is very less and it works very fast.
2. Accuracy – The application provides the user a quick response with
very accurate information regarding the user etc. any details or
system in an accurate manner, as when required.

Page | 14
3. User Friendly – The application Billing and Staff Management
System has a very user friendly interface. Thus the users will full very
easy to work on it. The application provides accuracy along with a
pleasant interface. Make the present manual system more interactive,
speedy and user friendly.
4. Availability – The all customer detail store permanently in the
database admin can see the data in the availability of any information,
whatever needed.
5. Maintain Cost – Reduce the cost of maintenance. It is standalone
application so no required of cost for maintain it.
Feasibility Study
The feasibility study is carried out to test whether the proposed system is
worth being implemented. Feasibility study is a test of system proposed
regarding its work ability, its impact on the organization ability to meet
user needs and effective use of resources. It is usually carried out by a
small number of people who are familiar with the information system
techniques, understand the part of the business or organization that will
be involved or effected by the project and are skilled in the system
analysis and design process.
The key consideration involve in the feasibility study are:
1. Technical
2. Behavioral
3. Economic
1. TECHNICAL FEASIBILITY
Technical feasibility centers on the existing computer system (hardware,
software etc.) and to what extent it can support the proposed system
addition. For example, if the current system is operating at 70% capacity
(an arbitrary value), then another application could overload the system
or require additional hardware. If the budget is serious constrain then the
project is judged not feasible.

Page | 15
The technologies and the environment which are used in this project are:
Software:
Front end –Visual Basic 6.0
Back end –MS Access for database
Operating System-Windows
Hardware:
Intel based processor-run computer
Keyboard and mouse as input devices
2. BEHAVIOURAL FEASIBILITY:
An evaluation of the behavior of the end users, which may affect the
envelopment of the system. People are inherently resistant to change
and computers have to know to facilitate changes and computers have
to know to facilitate changes. An estimate should be made of how strong
a reaction the user staff is likely to have towards the development of a
computerized system. It is a common knowledge that a computer
installation has something to do with turnover, transfer, retraining and
changes in employee job status, therefore the introduction of a
candidate system requires special effort to educate, sell and train the
staff on new ways of conducting business.
The personal of the user organization will be affected by the proposed
system. As the aim of the system is only to satisfy the information needs,
no employees will lose their position by the proposed system. In fact the
proposed system will help the organization in reducing the voluminous
work involved. Also the involvement of users in every stage of the project
is going to increase the success factor.
The staff in not well educated for running a computerized system. They
are adamant in perceiving a mechanical process of working as they
have long been used to the manual entry system. This aspect needs
considerable amount of attention.
Our system is also feasible for organization because it supports of the
organization and its strategic plan.

Page | 16
3. ECONOMIC FEASIBILITY:
The procedure is to determine the benefits and savings that are
expected from a candidate system and compare it with the costs. If a
benefit outweighs costs, then the decision is made to design and
implement the system.
Otherwise further alterations are made in the proposed system
1. Manpower cost
2. Hardware and software cost

Page | 17
Chapter – 4 Project Design & Architecture
A data flow diagram (DFD) is a graphical representation of the "flow" of
data through an information system, modeling its process aspects. A
DFD is often used as a preliminary step to create an overview of the
system, which can later be elaborated.[2] DFDs can also be used for the
visualization of data processing (structured design).
A DFD shows what kind of information will be input to and output from
the system, where the data will come from and go to, and where the
data will be stored. It does not show information about the timing of
process or information about whether processes will operate in
sequence or in parallel (which is shown on a flowchart).
Here is my project’s Data flow diagram:-
DFD Level-0
Admin/Employee/
User
Billing
System
Admin/
Employee
/user
User
Billing
System
DFD Level- 1
Database

Page | 18
DFD Level-2
DFD Level-3
Show
Message
Store in
MS access
Interaction
Admin/
Employee
Billing
System
Database
Interaction
Admin
Billing
System
Database
Store in
MS access
Add
Admin
Search
Employee
Detail
Add
Employee
Delete
Employee
Book
Order
Add
Customer
Configuration

Page | 19
DFD Level-4
Interact
ion
User/
Employee
Billing
System Database
Add
Customer
Store in
MS access
Show
Message
Configuration
Search
Customer
detail
Place
Order
Modify
Customer

Page | 20
Chapter – 5 Database Developments
A database is an organized collection of data. It is the collection of
schemas, tables, queries, reports, views, and other objects. The data are
typically organized to model aspects of reality in a way that supports
processes requiring information.
Formally, a "database" refers to a set of related data and the way it is
organized. Access to this data is usually provided by a "database
management system" (DBMS) consisting of an integrated set of
computer software that allows users to interact with one or more
databases and provides access to all of the data contained in the
database (although restrictions may exist that limit access to particular
data). The DBMS provides various functions that allow entry, storage
and retrieval of large quantities of information and provides ways to
manage how that information is organized.
The project is for the “Billing system”, being an informative system it
requires extensive use of some database management system to share,
manipulates and handles the huge record for this project I have used the
MS access to make the database.
M.S. ACCESS-
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.
Multiple backend sources can be used by a Microsoft Access Jet
Database (ACCDB and MDB formats). Similarly, some applications such
as Visual Basic, ASP.NET, or Visual Studio .NET will use the Microsoft
Access database format for its tables and queries

Page | 21
Tables created for making our application database are as
follows:
Database name: Menu.mdb
Admin Table
ID Text
mem_name Text
Mem_pass Text
auto_num Number
Employee Table
ID Text
mem_name Text
Mem_pass Text
auto_num Number
Categories Table
ID Number
Category Memo
Dailycus Table
Cusphno Text
Cusphno Text
Cusphno Text
Customers Table
Cname Text
Address Text
Contact Text
Email Number
Pincode Number
auto no Number
Mccardno Text
Mccardpass Text
Memamt Number

Page | 22
Menu Table
ID Number
Category Text
Pname Text
Samt Text
Mamt Text
Lamt Text
Permanent Table
Pname Text
Price Number
Quantity Number
Vat Number
Amt Number
Bill_no Text
Cusname Text
Cusphno Text
Temp Table
Pname Text
Price Number
Quantity Number
Vat Number
Amt Number

Page | 23
The forms and views that are created for the project are as
follows:
1. The Login form
Private Sub Command1_Click()
Frame3.Visible = True
Text1.SetFocus
End Sub
Text3.SetFocus
End Sub

Page | 24
Call terminate
End Sub
Call terminate
End Sub
Call connect
find = 0
With tmidpass
Do Until .EOF
If ((.Fields(0).Value = Text1.Text Or .Fields(1).Value = Text1.Text) And
(.Fields(2).Value = Text2.Text)) Then
adname = .Fields(1).Value
Order_Now.Label15.Caption = "Current Admin :"
Order_Now.Label16.Caption = adname
find = 1
ElseIf ((.Fields(0).Value = Text1.Text Or .Fields(1).Value = Text1.Text) And
(.Fields(2).Value <> Text2.Text)) Then
find = 2
ElseIf ((.Fields(0).Value <> Text1.Text Or .Fields(1).Value <> Text1.Text) And
find = 3
End If
.MoveNext
Loop

Page | 25
If find = 1 Then
Main_Interface.Show
Main_Interface.Command3.Visible = True
Main_Interface.Command11.Visible = False
Main_Interface.Command1.Top = 2040
Unload Me
ElseIf find = 2 Then
MsgBox ("Wrong Password::Try again"), vbCritical, ("Mcdonald's")
Text2.Text = ""
Text2.SetFocus
ElseIf find = 3 Then
MsgBox ("Invalid ID or Name"), vbCritical, ("Mcdonald's")
Text1.Text = ""
Text1.SetFocus
Else
MsgBox ("Fill the Details Correctly"), vbCritical, ("Mcdonald's")
Text2.Text = ""
Text1.Text = ""
Text1.SetFocus
End If
End With
End Sub

Page | 26
Frame3.Visible = False
End Sub
End Sub
Call connect
find = 0
With eidpass
Do Until .EOF
find = 1
empname = .Fields(1).Value
Order_Now.Label15.Caption = "Current Emp. :"
Order_Now.Label16.Caption = empname
Main_Interface.Command4.Enabled = False
Else
(.Fields(2).Value <> Text4.Text)) Then
find = 2
Else

Page | 27
If ((.Fields(0).Value <> Text3.Text Or .Fields(1).Value <> Text3.Text) And
find = 3
End If
End If
End If
.MoveNext
Loop
If find = 1 Then
Unload Me
Main_Interface.Show
Else
If find = 2 Then
MsgBox ("Wrong Password::Try Again"), vbCritical, ("Mcdonald's")
Text4.Text = ""
Text4.SetFocus
Else
If find = 3 Then
MsgBox ("Invalid ID or Name::Try Again"), vbCritical, ("Mcdonald's")
Text3.Text = ""
Text3.SetFocus

Page | 28
Else
Text3.Text = ""
Text4.Text = ""
Text3.SetFocus
End If
End If
End If
End With
End Sub
Call terminate
End Sub
Private Sub Form_Load()
End Sub
Private Sub Picture1_Click()
Timer1.Enabled = True

Page | 29
Command1.SetFocus
End Sub
Private Sub Picture2_Click()
Command3.SetFocus
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If Text1.Text = "" Then
Else
If ((KeyCode >= 48 And KeyCode <= 57) Or (KeyCode >= 96 And KeyCode <= 105)
Or (KeyCode >= 60 And KeyCode <= 90) Or KeyCode = 13 Or KeyCode = 35 Or _
KeyCode = 36 Or KeyCode = 32 Or KeyCode = 8 Or KeyCode = 16 Or KeyCode =
37 Or KeyCode = 38 Or KeyCode = 39 Or KeyCode = 40) Then
Else
MsgBox ("Not Allowed")
Text1.Text = ""
End If
End If
End Sub
If (Text2.Text = "") Then

Page | 30
Else
Or KeyCode = 13 Or KeyCode = 35 Or _
Else
Text2.Text = ""
End If
End If
End Sub
Else
Else
Text3.Text = ""
End If
End If

Page | 31
End Sub
Else
Else
Text4.Text = ""
End If
End If
End Sub
Private Sub Timer1_Timer()
If Timer1.Enabled = True Then
Picture1.Top = Picture1.Top - 60
Timer2.Enabled = False
Picture2.Top = 80
End If
End Sub

Page | 32
If Timer2.Enabled = True Then
Picture2.Top = Picture2.Top - 60
Timer1.Enabled = False
Picture1.Top = 80
End If
End Sub
2. Main Interface
Dim a As Integer
Order_Now.Show
Main_Interface.Hide
End Sub
Frame2.Enabled = True

Page | 33
Command1.SetFocus
End Sub
Login_Form.Show
End Sub
Login_Form.Show
End Sub
Main_Interface.Enabled = False
Customer_info.Show
Customer_info.Top = 2500
Customer_info.Left = 5820
End Sub
Frame2.Enabled = False
Command9.SetFocus
End Sub

Page | 34
Join_us.Show
Main_Interface.Hide
End Sub
Add_Emp.Show
Main_Interface.Frame1.Enabled = False
End Sub
Delete_Admin.Show
End Sub
Delete_Employee.Show
End Sub

Page | 35
Add_Admin.Show
End Sub
Main_Interface.BackColor = RGB(241, 6, 11)
End Sub
If a = 0 Then
Label2.Caption = " "
Label2.Caption = "I"
a = 1
ElseIf a = 1 Then
Label2.Caption = "I m"
a = 2
ElseIf a = 2 Then
Label2.Caption = "I m l"
a = 3
ElseIf a = 3 Then

Page | 36
Label2.Caption = "I m lo"
a = 4
ElseIf a = 4 Then
Label2.Caption = "I m lov"
a = 5
ElseIf a = 5 Then
Label2.Caption = "I m lovi"
a = 6
ElseIf a = 6 Then
Label2.Caption = "I m lovin"
a = 7
ElseIf a = 7 Then
Label2.Caption = "I m lovin i"
a = 8
ElseIf a = 8 Then
Label2.Caption = "I m lovin it"
a = 9
ElseIf a = 9 Then
a = 0
End If

Page | 37
End Sub
3. Order now
Dim check
Call connect
With tempbill
If (.RecordCount = 0) Then
Else
Do Until .EOF
.Delete
.MoveNext
Loop
End If
If ListView1.ListItems.Count = 0 Then

Page | 38
MsgBox ("Please Select the order first"), vbCritical
Else
ListView1.Visible = False
Text8.SetFocus
Label4.Visible = False
Text7.Text = ""
Text8.Text = ""
Text2.Text = ""
Text1.Text = ""
End If
c = Val(ListView1.ListItems.Count)
i = 1
c = c + 1
Do Until i = c
.AddNew
.Fields(0).Value = (ListView1.ListItems.Item(i).Text)
.Fields(1).Value = ListView1.ListItems.Item(i).SubItems(1)
i = i + 1
.Update
Loop
End With

Page | 39
With dc
If .RecordCount = 0 Then
mid = "MD-00010191110"
Else
.MoveFirst
Do Until .EOF
mid = .Fields(2).Value
.MoveNext
Loop
End If
End With
'MsgBox (mid)
mid = Val(Right(mid, 11)) + 1
'MsgBox (mid)
gbill = "MD-" & Format(mid, "00000000000")
'MsgBox (gbill)
j = 1
With pbill
Do Until j = c
.AddNew
.Fields(0).Value = (ListView1.ListItems.Item(j).Text)
.Fields(1).Value = ListView1.ListItems.Item(j).SubItems(1)
.Fields(5).Value = gbill

Page | 40
.Fields(6).Value = phone
.Fields(7).Value = cname
j = j + 1
.Update
Loop
End With
End Sub
Else
Modify.Show
Modify.Text3.SetFocus
End If
End Sub
check = 0
check = MsgBox("Are you sure you wanna logout?", vbYesNoCancel, "Choose the
Correct...")
If (check = 6) Then
Login_Form.Show

Page | 41
Else
If (check = 7) Then
End If
End If
End Sub
If (Text7.Text = "" Or Text8.Text = "") Then
MsgBox ("Please Fill Both Entries")
Else
cname = Text7.Text
phone = Text8.Text
If (k = 11) Then
With dc
.AddNew
.Update
End With
End If
With pbill
Do Until .EOF

Page | 42
If (gbill = .Fields(5).Value) Then
.Update
Exit Do
End If
.MoveNext
Loop
End With
Label5.Visible = True
Command19.Visible = True
Label13.Caption = ""

Page | 43
Label8.Caption = ""
Label9.Caption = ""
Frame5.Top = 7680
Frame5.Left = 13740
Label6.Caption = Text7.Text
Label5.Caption = Text8.Text
ser = Val(Label4.Caption) * 4 / 100
total = Val(Label4.Caption) + ser
ListView1.Visible = True
Label8.Caption = ser
Label9.Caption = total
Label13.Caption = Label4.Caption
Text7.Text = ""
Text8.Text = ""
End If
End Sub
Call check1
End Sub

Page | 44
End Sub
Call connect
With ju
Do Until .EOF
If .Fields(7).Value = Text1.Text And .Fields(6).Value = Text2.Text Then
check = 1
Label6.Caption = .Fields(0).Value
Exit Do
Else
check = 2
End If
.MoveNext
Loop
If check = 1 Then
phone = .Fields(2).Value
cname = .Fields(0).Value
With dc
.AddNew

Page | 45
.Update
End With
With pbill
Do Until .EOF
If (gbill = .Fields(5).Value) Then
.Update
End If
.MoveNext
Loop
End With
dis = (Val(Order_Now.Label4.Caption) * 5 / 100)
Label18.Caption = dis
ser = (Val(Label4.Caption) - dis) * 20 / 100
total = (Val(Label4.Caption) - dis) + ser
Label8.Caption = ser
netamt = Val(Label26.Caption) - Val(Label9.Caption)
If (netamt < 0) Then

Page | 46
Label24.Caption = (-(netamt))
Label29.Caption = 0
.Fields(8).Value = Val(Label29.Caption)
.Update
Else
Label29.Caption = netamt
Label24.Caption = 0
.Fields(8).Value = Val(Label29.Caption)
.Update
End If
Frame5.Top = 7680
Frame5.Left = 13740
Command10.Visible = False
Label13.Caption = Label4.Caption

Page | 47
Text2.Text = ""
Text1.Text = ""
Else
MsgBox ("Not a memeber")
Text2.Text = ""
Text1.Text = ""
End If
End With
End Sub

Page | 48
End Sub
ListView1.ListItems.Clear
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
ListView1.Top = 0
Unload DataReport1
Unload Blank
End Sub
Blank.Show

Page | 49
Set DataReport1.DataSource = tempbill
DataReport1.Sections(2).Controls("label6").Caption = ""
DataReport1.Sections(5).Controls("Label12").Caption = ""
DataReport1.Sections("Section1").Controls("text1").DataField = ""
DataReport1.Sections(2).Controls("label6").Caption = cname
DataReport1.Sections(2).Controls("label7").Caption = phone
DataReport1.Sections(5).Controls("Label12").Caption = Val(Label18.Caption)
DataReport1.Sections("Section1").Controls("text1").DataField = "pname"
DataReport1.Sections("Section1").Controls("text2").DataField = "price"
DataReport1.Sections("Section1").Controls("text3").DataField = "quantity"
DataReport1.Sections("Section1").Controls("text4").DataField = "vat"
DataReport1.Sections("Section1").Controls("text5").DataField = "amt"

Page | 50
DataReport1.Sections(2).Controls("label15").Caption = mid
DataReport1.Sections(2).Controls("label16").Caption = Date
DataReport1.Sections(2).Controls("label17").Caption = Time
DataReport1.Refresh
DataReport1.Show
End Sub
End Sub
Text3.Text = ""
Option1.Value = False
End Sub
Combo.Show
'Burger.Hide
'Icecream.Hide
'Chicken.Hide
'Chocolate.Hide
'Salad.Hide

Page | 51
'Shakes.Hide
'Fries.Hide
'Coffee.Hide
Combo.Image5.Visible = True
Combo.Frame1.Visible = False
End Sub
Salad.Show
'Burger.Hide
'Icecream.Hide
'Shakes.Hide
'Chicken.Hide
'Chocolate.Hide
'Fries.Hide
'Coffee.Hide
'Combo.Hide
Salad.Image5.Visible = True
Salad.Frame1.Visible = False
End Sub
Icecream.Show
'Burger.Hide
'Salad.Hide

Page | 52
'Shakes.Hide
'Chicken.Hide
'Chocolate.Hide
'Fries.Hide
'Coffee.Hide
'Combo.Hide
Icecream.Image5.Visible = True
Icecream.Frame1.Visible = False
End Sub
Coffee.Show
'Chocolate.Hide
'Burger.Hide
'Icecream.Hide
'Salad.Hide
'Shakes.Hide
'Chicken.Hide
'Fries.Hide
'Combo.Hide
Coffee.Image5.Visible = True
Coffee.Frame1.Visible = False
End Sub

Page | 53
Shakes.Show
'Burger.Hide
'Icecream.Hide
'Salad.Hide
'Chicken.Hide
'Chocolate.Hide
'Fries.Hide
'Coffee.Hide
'Combo.Hide
Shakes.Image5.Visible = True
Shakes.Frame1.Visible = False
End Sub
Chicken.Show
'Burger.Hide
'Icecream.Hide
'Salad.Hide
'Shakes.Hide
'Chocolate.Hide
'Fries.Hide
'Coffee.Hide
'Combo.Hide
Chicken.Image5.Visible = True
Chicken.Frame1.Visible = False
End Sub
Fries.Show
'Burger.Hide
'Icecream.Hide
'Salad.Hide
'Shakes.Hide
'Chicken.Hide
'Chocolate.Hide
'Coffee.Hide
'Combo.Hide
Fries.Image5.Visible = True
Fries.Frame1.Visible = False

Page | 54
End Sub
Burger.Show
'Icecream.Hide
'Salad.Hide
'Shakes.Hide
'Chicken.Hide
'Chocolate.Hide
'Fries.Hide
'Coffee.Hide
'Combo.Hide
Burger.Image5.Visible = True
Burger.Frame1.Visible = False
End Sub
Chocolate.Show
'Burger.Hide
'Icecream.Hide
'Salad.Hide
'Shakes.Hide
'Chicken.Hide
'Fries.Hide
'Coffee.Hide
'Combo.Hide
Chocolate.Image5.Visible = True
Chocolate.Frame1.Visible = False

Page | 55
End Sub
Frame4.Top = 10035
Frame4.Left = 13680
Order_Now.BackColor = RGB(241, 6, 11)
Label2.BackColor = RGB(241, 6, 11)
End Sub
Private Sub Label19_Click()
Text2.SetFocus
Frame3.Left = 13800
Frame3.Top = 3840
End Sub
Else
39 Or KeyCode = 40) Then
Else
Text1.Text = ""
End If
End If
End Sub

Page | 56
Else
Else
Text2.Text = ""
End If
End If
End Sub
Else
If KeyCode = 16 Or KeyCode = 32 Or KeyCode = 37 Or KeyCode = 38 Or KeyCode
= 39 Or KeyCode = 40 Or KeyCode = 35 Or KeyCode = 36 Or KeyCode = 8 Then
ElseIf (Not ((KeyCode >= 65 And KeyCode <= 90)) Or ((KeyCode >= 97 And
KeyCode <= 122))) Then
str1 = Left(Text7.Text, Len(Text7.Text) - 1)
Text7.Text = ""
Text7.SelText = Right(str1, Len(str1))
Else

Page | 57
End If
End If
End Sub
Else
Else
Text8.Text = ""
End If
End If
End Sub
Private Sub Text8_LostFocus()
Call connect
k = 1
With dc
k = 11
Else
.MoveFirst
Do Until .EOF
If (Text8.Text = (.Fields(0).Value)) Then
Text7.Text = .Fields(1).Value

Page | 58
k = 1
Exit Do
Else
k = 11
End If
.MoveNext
Loop
End If
End With
End Sub
4. Coffee form
Call Coffeedesc
Image5.Visible = False
Text1.SetFocus

Page | 59
Label1.Caption = Command1.Caption
End Sub
Call Coffeedesc
Text1.SetFocus
End Sub
Call Coffeedesc
Text1.SetFocus
End Sub
Call Coffeedesc
Text1.SetFocus
End Sub

Page | 60
If Label7.Caption = "" And Text1.Text = "" Then
MsgBox ("Select The Order"), vbCritical
ElseIf Label7.Caption = "" Then
MsgBox ("Select the Size"), vbCritical
ElseIf Text1.Text = "" Then
MsgBox ("Enter the Quantity"), vbCritical
Else
lab = Coffee.Label1.Caption
pri = Val(Coffee.Label7.Caption)
quan = Val(Coffee.Text1.Text)
Set l = Order_Now.ListView1.ListItems.Add(, , lab)
l.SubItems(1) = pri
l.SubItems(2) = quan
vat = (pri * quan * 20) / 100
l.SubItems(3) = vat
cal = pri * quan + vat
l.SubItems(4) = cal
Call Coffeedesc
For i = 1 To Order_Now.ListView1.ListItems.Count
total = total + Val(Order_Now.ListView1.ListItems.Item(i).SubItems(4))
Next
Order_Now.Label4.Caption = total
End If
End Sub

Page | 61
Call Coffeedesc
Text1.SetFocus
End Sub
Call Coffeedesc
Text1.SetFocus
End Sub
Call Coffeedesc
Text1.SetFocus
End Sub
Call Coffeedesc
Text1.SetFocus

Page | 62
End Sub
Coffee.BackColor = RGB(240, 6, 9)
Coffee.Top = Coffee.Height / 2.2 - Coffee.Height / 3
Coffee.Left = Coffee.Width / 3 - Coffee.Width / 3
End Sub
Private Sub Form_Activate()
Order_Now.Enabled = False
End Sub
Private Sub Form_Deactivate()
Order_Now.Enabled = True
End Sub
Order_Now.Show: Order_Now.Enabled = True
End Sub
Call check1
End Sub

Page | 63
Order_Now.Show
End Sub
Private Sub Option1_Click()
Call connect
With all
Do Until .EOF
If (Label1.Caption = .Fields(2).Value) Then
price = .Fields(3).Value
Label7.Caption = price
End If
.MoveNext
Loop
End With
End Sub
Call connect
With all
Do Until .EOF

Page | 64
End If
.MoveNext
Loop
End With
End Sub
Call connect
With all
Do Until .EOF
End If
.MoveNext
Loop
End With
End Sub
Else

Page | 65
Else
Text1.Text = ""
End If
End If
End Sub
5. Modifying Bill
Label30.Caption = Val(Text3.Text) * Val(Label1.Caption)
vat = Val(Label30.Caption) * 20 / 100
Order_Now.ListView1.ListItems.Item(i).Text = Label22.Caption
Order_Now.ListView1.ListItems.Item(i).SubItems(1) = Label1.Caption
Order_Now.ListView1.ListItems.Item(i).SubItems(2) = Text3.Text
Order_Now.ListView1.ListItems.Item(i).SubItems(3) = vat

Page | 66
Order_Now.ListView1.ListItems.Item(i).SubItems(4) = (Val(Label30.Caption) + vat)
End Sub
Order_Now.Show
Unload Me
Unload Burger
Unload Chicken
Unload Coffee
Unload Combo
Unload Chocolate
Unload Fries
Unload Icecream
Unload Salad
Unload Shakes
End Sub
Label1.Caption = ""
Text3.Text = ""

Page | 67
End Sub
Private Sub Form_Activate()
Order_Now.Enabled = False
End Sub
Order_Now.ListView1.ListItems.Remove (i)
i = i - 1
End Sub
i = Order_Now.ListView1.ListItems.Count
Label22.Caption = Order_Now.ListView1.ListItems.Item(i).Text
Text3.Text = (Order_Now.ListView1.ListItems.Item(i).SubItems(2))
Label1.Caption = (Order_Now.ListView1.ListItems.Item(i).SubItems(1))
total = (Order_Now.ListView1.ListItems.Item(i).SubItems(1)) *
(Order_Now.ListView1.ListItems.Item(i).SubItems(2))
price = (Val(Label30.Caption) / Val(Text3.Text))
Call connect
With all
Do Until .EOF
If (Label22.Caption = (.Fields(2).Value)) Then

Page | 68
If (price = Val(.Fields(3).Value)) Then
Option1.Value = True
Else
Else
End If
End If
End If
End If
.MoveNext
Loop
End With
End Sub
i = 1

Page | 69
Call connect
With all
Do Until .EOF
Else
Else

Page | 70
End If
End If
End If
End If
.MoveNext
Loop
End With
End Sub
Private Sub Form_Deactivate()
End Sub
Modify.BackColor = RGB(240, 6, 9)
Modify.Top = Modify.Height / 2.2 - Modify.Height / 3
Modify.Left = Modify.Width / 3 - Modify.Width / 3
i = 1

Page | 71
Call connect
With all
Do Until .EOF
Else
Else

Page | 72
End If
End If
End If
End If
.MoveNext
Loop
End With
End Sub
If (i = Order_Now.ListView1.ListItems.Count) Then
i = 0
End If
i = i + 1

Page | 73
Call connect
With all
Do Until .EOF
Else
Else
End If
End If
End If
End If
.MoveNext
Loop

Page | 74
End With
End Sub
If (i = 1) Then
i = (Order_Now.ListView1.ListItems.Count + 1)
End If
i = i - 1
Call connect
With all
Do Until .EOF

Page | 75
Else
Else
End If
End If
End If
End If
.MoveNext
Loop
End With
End Sub
Call connect
With all

Page | 76
Do Until .EOF
End If
.MoveNext
Loop
total = (Val(Text3.Text) * Val(Label1.Caption))
End With
End Sub
Call connect
With all
Do Until .EOF
End If
.MoveNext
Loop

Page | 77
End With
End Sub
Call connect
With all
Do Until .EOF
End If
.MoveNext
Loop
End With
End Sub
6. Generating bill

Page | 78
Call connect
With tempbill
Else
Do Until .EOF
.Delete
.MoveNext
Loop
End If
Else
Text8.SetFocus
Text7.Text = ""
Text8.Text = ""
Text2.Text = ""
Text1.Text = ""
End If
i = 1
c = c + 1

Page | 79
Do Until i = c
.AddNew
i = i + 1
.Update
Loop
End With
With dc
mid = "MD-00010191110"
Else
.MoveFirst
Do Until .EOF
.MoveNext
Loop
End If
End With
'MsgBox (mid)
'MsgBox (mid)
'MsgBox (gbill)
j = 1
With pbill
Do Until j = c
.AddNew
j = j + 1
.Update
Loop

Page | 80
End With
End SubPrivate Sub Command10_Click()
Call connect
With tempbill
Else
Do Until .EOF
.Delete
.MoveNext
Loop
End If
Else
Text8.SetFocus
Text7.Text = ""
Text8.Text = ""
Text2.Text = ""
Text1.Text = ""
End If
i = 1
c = c + 1
Do Until i = c
.AddNew
i = i + 1
.Update
Loop
End With
With dc
mid = "MD-00010191110"
Else

Page | 81
.MoveFirst
Do Until .EOF
.MoveNext
Loop
End If
End With
'MsgBox (mid)
'MsgBox (mid)
'MsgBox (gbill)
j = 1
With pbill
Do Until j = c
.AddNew
j = j + 1
.Update
Loop
End With
End Sub
7. Print bill

Page | 82
Blank.Show
Set DataReport1.DataSource = tempbill
DataReport1.Sections(2).Controls("label6").Caption = cname

Page | 83
DataReport1.Sections(2).Controls("label7").Caption = phone
DataReport1.Sections("Section1").Controls("text1").DataField = "pname"
DataReport1.Sections("Section1").Controls("text2").DataField = "price"
DataReport1.Sections("Section1").Controls("text3").DataField = "quantity"
DataReport1.Sections("Section1").Controls("text4").DataField = "vat"
DataReport1.Sections("Section1").Controls("text5").DataField = "amt"
DataReport1.Sections(2).Controls("label15").Caption = mid
DataReport1.Sections(2).Controls("label16").Caption = Date
DataReport1.Sections(2).Controls("label17").Caption = Time
DataReport1.Refresh
DataReport1.Show
End Sub
8.Staff Updation form

Page | 84
Text2.Enabled = True
Text1.Enabled = True
Command3.Enabled = True
Call connect
With tmidpass
If (Label20.Caption = "" And Text2.Text = "" And Label4.Caption = "") Then
m = 0
m = 1
Else
.MoveFirst
Do Until .EOF
If .Fields(3).Value > m Then
m = .Fields(3).Value
End If
.MoveNext
Loop
m = m + 1
End If
tmid = "TMid" & Format(m, "0000")
Label20.Caption = tmid
Else
MsgBox ("Please Clear All Boxes")
End If

Page | 85
End With
End Sub
Unload Me
Main_Interface.Show
Main_Interface.Enabled = True
Main_Interface.Frame1.Visible = True
Main_Interface.Frame1.Enabled = True
End Sub
Text2.Text = ""
Text1.Text = ""
Label4.Caption = ""
End Sub
MsgBox ("Enter the name Plzzzz..")
End If
Call connect
With tmidpass
If (Label20.Caption <> "" And Text2.Text <> "" And Label4.Caption = "") Then
apass = 1111
m = 0
m = 1

Page | 86
apass = 1111
Else
.MoveFirst
Do Until .EOF
'MsgBox (m)
apass = apass + 11
' MsgBox (apass)
End If
.MoveNext
Loop
m = m + 1
End If
AddNew
.Fields(0) = Label20.Caption
.Fields(1) = StrConv(Text2.Text, vbProperCase)
.Fields(2) = apass
.Fields(3) = m
.Update
Label4.Caption = apass
End If
End With
End Sub
If (Text1.Text <> "") Then

Page | 87
length = Len(Text1.Text)
i = 0
gap = 1
Do Until i = length
c = (Asc(Right(Text1.Text, (i + 1))))
If ((c >= 97 And c <= 122) Or (c >= 65 And c <= 90) Or (c = 32)) Then
If (gap = 1 Or gap = 2) Then
check = 1
Else
check = 0
End If
Else
check = 0
Exit Do
End If
If (c = 32) Then
gap = Val(gap) + 1
End If
i = i + 1
Loop
If (check = 0) Then
Command4.Enabled = False
Else
End If
Else

Page | 88
End If
End Sub
i = 0
gap = 1
Do Until i = length
check = 1
Else
check = 0
End If
Else
check = 0
Exit Do
End If
If (c = 32) Then
gap = Val(gap) + 1
End If
i = i + 1
Loop
If (check = 0) Then
MsgBox ("Please Enter Only Characters")
Text1.SetFocus

Page | 89
Else
Else
End If
End If
Else
Else
End If
End If
End Sub
Private Sub Text1_GotFocus()
End Sub
Private Sub Text2_GotFocus()
End Sub

Page | 90
i = 0
gap = 1
Do Until i = length
check = 1
Else
check = 0
End If
Else
check = 0
Exit Do
End If
If (c = 32) Then
gap = Val(gap) + 1
End If
i = i + 1
Loop
If (check = 0) Then
Else
End If
Else

Page | 91
End If
End Sub
i = 0
gap = 1
Do Until i = length
check = 1
Else
check = 0
End If
Else
check = 0
Exit Do
End If
If (c = 32) Then
gap = Val(gap) + 1
End If
i = i + 1
Loop
If (check = 0) Then
MsgBox ("Please Enter Only Characters")

Page | 92
Text2.SetFocus
Else
Else
End If
End If
Else
End If
End Sub
8. Customer Information

Page | 93
Unload Me
End Sub
Unload Me
Main_Interface.Show
End Sub
Call connect
If (Text1.Text <> "" And Text2.Text <> "") Then
With ju
check = 0
Do Until .EOF
If .Fields(7).Value = Text1.Text And .Fields(6).Value = Text2.Text Then
check = 1
Exit Do
Else
check = 0
End If

Page | 94
.MoveNext
Loop
If check = 1 Then
Command1.SetFocus
Label2.Caption = .Fields(0)
Else
MsgBox ("Wrong Id or Password::Try again"), vbCritical, ("Mcdonald's")
Text1.Text = ""
Text2.Text = ""
Text2.SetFocus
End If
End With
Else
Text2.SetFocus
End If
End Sub

Page | 95
Else
Else
Text1.Text = ""
End If
End If
End Sub
Else
Else
Text2.Text = ""
End If

Page | 96
End If
End Sub
9. Join US
Dim cpass, cmcno
Dim apass, amcno
Dim check
Dim num
Dim a, m As Integer
Call connect
With ju
If (Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or
Text5.Text = "") Then
MsgBox "please fill all entries"

Page | 97
Else
'Text9.Text = 9999999999#
check = 0
'num = CDbl(Text9.Text)
.MoveFirst
Do Until .EOF
'If CDbl(.Fields(2).Value) = num Then
'MsgBox (Text3.Text)
'MsgBox ((.Fields(2).Value))
If Text3.Text = (.Fields(2).Value) Then
check = 1
Exit Do
Else
check = 0
End If
.MoveNext
Loop
If (check = 1) Then
mgbox = MsgBox("Number is Already In Our List" & vbNewLine & "You Want to
overwright the data ???", vbYesNoCancel)
If (mgbox = 6) Then

Page | 98
.Update
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Else
End If
Else
apass = 1001
m = 0
m = 1
apass = 1001
Else
.MoveFirst
Do Until ju.EOF

Page | 99
apass = apass + 11
End If
.MoveNext
Loop
m = m + 1
End If
.AddNew
amcno = "MCcn" & Format(m, "0000")
.Fields(5) = m
.Fields(6) = amcno
.Fields(7) = apass
.Update
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""

Page |
100
Join_us.Label15.Caption = amcno
Join_us.Label16.Caption = apass
End If
End If
End With
End Sub
Main_Interface.Show
Unload Me
End Sub
If (Text7.Text = "" Or Text8.Text = "") Then
MsgBox ("Please Fill Both Entries")
Else
Call connect
check = 0
With ju
Do Until .EOF
If ((.Fields(6).Value = Text7.Text) And (.Fields(7).Value = Text8.Text)) Then
check = 1

Page |
101
Exit Do
Else
check = 0
End If
.MoveNext
Loop
If (check = 1) Then
Text1.Text = .Fields(0)
Else
MsgBox ("Enter Correct ID And Password")
Text7.Text = ""
Text8.Text = ""
End If
End With
End If
End Sub

Page |
102
End Sub
End Sub
End Sub
End Sub
Else
If KeyCode = 16 Or KeyCode = 32 Or KeyCode = 37 Or KeyCode = 38 Or KeyCode
= 39 Or KeyCode = 40 Or KeyCode = 35 Or KeyCode = 36 Or KeyCode = 8 Then
ElseIf (Not ((KeyCode >= 65 And KeyCode <= 90)) Or ((KeyCode >= 97 And
KeyCode <= 122))) Then
str1 = Left(Text1.Text, Len(Text1.Text) - 1)
Text1.Text = ""
Text1.SelText = Right(str1, Len(str1))
Else

Page |
103
End If
End If
End Sub
Else
Else
Text3.Text = ""
End If
End If
End Sub
Else

Page |
104
Else
Text5.Text = ""
End If
End If
End Sub
ElseIf (Val(Text5.Text) < 5000) Then
MsgBox ("Membership Amount is NOT < 5000")
Text5.SetFocus
End If
End Sub
Else
Or KeyCode = 13 Or KeyCode = 8 Or KeyCode = 35 _
Or KeyCode = 36 Or KeyCode = 16 Or KeyCode = 37 Or KeyCode = 38 Or
KeyCode = 39 Or KeyCode = 40) Then
Else

Page |
105
Text6.Text = ""
End If
End If
End Sub
Else
Else
Text7.Text = ""
End If
End If
End Sub
Else

Page |
106
Else
Text8.Text = ""
End If
End If
End Sub
If a = 0 Then
Label8.Caption = "I"
a = 1
ElseIf a = 1 Then
Label8.Caption = "I m"
a = 2
ElseIf a = 2 Then
Label8.Caption = "I m l"
a = 3
ElseIf a = 3 Then
Label8.Caption = "I m lo"

Page |
107
a = 4
ElseIf a = 4 Then
Label8.Caption = "I m lov"
a = 5
ElseIf a = 5 Then
Label8.Caption = "I m lovi"
a = 6
ElseIf a = 6 Then
Label8.Caption = "I m lovin"
a = 7
ElseIf a = 7 Then
Label8.Caption = "I m lovin i"
a = 8
ElseIf a = 8 Then
Label8.Caption = "I m lovin it"
a = 9
ElseIf a = 9 Then
a = 0
End If
End Sub

Page |
108
Chapter 6
Software testing/implementation and PC
requirement
Software testing is an investigation conducted to provide stakeholders
with information about the quality of the product or service under test.
Software testing can also provide an objective, independent view of the
software to allow the business to appreciate and understand the risks of
software implementation. Test techniques include the process of
executing a program or application with the intent of finding software
bugs (errors or other defects), and to verify that the software product is
fit for use.
Software testing involves the execution of a software component or
system component to evaluate one or more properties of interest. In
general, these properties indicate the extent to which the component or
system under test:
 meets the requirements that guided its design and development,
 responds correctly to all kinds of inputs,
 performs its functions within an acceptable time,
 is sufficiently usable,
 can be installed and run in its intended environments, and
 Achieves the general result its stakeholder’s desire.
Our Application is fully tested under different hardware and software
congregations and it worked very well during all tests.

Page |
109
The system requirement for our application is as follows:
Software Required:
Platform/Environment used : Microsoft Windows XP/7
Tool/Language used : Microsoft Visual Basic6.0
Back End : MS Office-2003(Access)
Hardware Requirements:
Processor : Pentium III or Above
RAM : Min 256 MB
Hard Disk : Min 20 GB
Printer : Any DMP or Desk Jet
Keyboard : Any
Mouse : Any

Page |
110
Chapter 7
Conclusion of making the project
The development of the billing and staff management apps was a great
learning experience for me. I have developed a good understanding of
development on standalone application, I have also gained a greater
appreciation for the amount of work and time required to develop apps
such as the billing and staff management apps and the difficulties that
arise when developing a system. This project also provided me with
experience working. Overall, I am quite satisfied with the outcome of this
project and the knowledge I have gained from it.
This was our project of System Design Lab about “Billing System”.
Development of this System takes a lot of efforts from us. We think this
system gave a lot of satisfaction to all of us. Though every task is never
said to be perfect in this development field even more improvement may
be possible in this system.
We learned so many things and gained a lot of knowledge about
development field.
We hope this will prove fruitful to us.
Bibliography
Books Referred:
 Visual Basic 6 Black book by(Steven Holzner)
 Visual Basic Course C5-65,BCA
 VB Basics
 Advanced Controls
Websites Referred:
 www.google.com
 www.visual-basic-tutorial.com
 www.youtube.com

Page |
111
Thank You
Chandni Sharma
BCA 3rd
Year
Dezyne E’Cole College
106/10, Civil Lines, Ajmer
Tel: 0145-2624679
www.dezyneecole.com
2016-2017

Billing project

Recommended

Recommended

More Related Content

What's hot

What's hot (20)

Similar to Billing project

Similar to Billing project (20)

Recently uploaded

Recently uploaded (20)

Billing project