Billing project
6,899 views
112 slides
May 17, 2019
Slide 1 of 112
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
About This Presentation
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 applicat...
Slide Content
Page | 0
Project Report
Visual Basic
Language
Billing System
Submitted By
Chandni Sharma
BCA 3
rd
Year
Dezyne E’cole College
Project Report
Visual Basic
Language
Billing System
Submitted By
Chandni Sharma
BCA 3
rd
Year
Dezyne E’cole College
Page | 1
Project Report On
RESTAURANT BILLING SYSTEM
Submitted
To
Dezyne E’cole College
By
Chandni Sharma
BCA 3
rd
Year
Dezyne E’ Cole College
106/10, Civil Lines, Ajmer
Tel: 0145-2624679
www.dezyneecole.com
2016-2017
Project Report On
RESTAURANT BILLING SYSTEM
Submitted
To
Dezyne E’cole College
By
Chandni Sharma
BCA 3
rd
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…………… ……………………….
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 3
rd
year
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 3
rd
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
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.
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.
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.
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.
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.
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
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 3
rd
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.
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 3
rd
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.
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.
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.
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.
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
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
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
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
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
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
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
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
Private Sub Command2_Click()
Frame4.Visible = True
Text3.SetFocus
End Sub
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
Private Sub Command2_Click()
Frame4.Visible = True
Text3.SetFocus
End Sub
Page | 24
Private Sub Command3_Click()
Call terminate
End Sub
Private Sub Command4_Click()
Call terminate
End Sub
Private Sub Command5_Click()
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
(.Fields(2).Value = Text2.Text)) Then
find = 3
End If
.MoveNext
Loop
Private Sub Command3_Click()
Call terminate
End Sub
Private Sub Command4_Click()
Call terminate
End Sub
Private Sub Command5_Click()
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
(.Fields(2).Value = Text2.Text)) Then
find = 3
End If
.MoveNext
Loop
Page | 25
If find = 1 Then
Main_Interface.Show
Main_Interface.Command3.Visible = True
Main_Interface.Command4.Visible = True
Main_Interface.Command11.Visible = False
Main_Interface.Command1.Top = 2040
Main_Interface.Command3.Top = 3720
Main_Interface.Command4.Top = 2880
Main_Interface.Command5.Top = 4560
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
If find = 1 Then
Main_Interface.Show
Main_Interface.Command3.Visible = True
Main_Interface.Command4.Visible = True
Main_Interface.Command11.Visible = False
Main_Interface.Command1.Top = 2040
Main_Interface.Command3.Top = 3720
Main_Interface.Command4.Top = 2880
Main_Interface.Command5.Top = 4560
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
Private Sub Command6_Click()
Frame3.Visible = False
End Sub
Private Sub Command7_Click()
Frame4.Visible = False
End Sub
Private Sub Command8_Click()
Call connect
find = 0
With eidpass
Do Until .EOF
If ((.Fields(0).Value = Text3.Text Or .Fields(1).Value = Text3.Text) And
(.Fields(2).Value = Text4.Text)) Then
find = 1
empname = .Fields(1).Value
Order_Now.Label15.Caption = "Current Emp. :"
Order_Now.Label16.Caption = empname
Main_Interface.Command4.Enabled = False
Else
If ((.Fields(0).Value = Text3.Text Or .Fields(1).Value = Text3.Text) And
(.Fields(2).Value <> Text4.Text)) Then
find = 2
Else
Private Sub Command6_Click()
Frame3.Visible = False
End Sub
Private Sub Command7_Click()
Frame4.Visible = False
End Sub
Private Sub Command8_Click()
Call connect
find = 0
With eidpass
Do Until .EOF
If ((.Fields(0).Value = Text3.Text Or .Fields(1).Value = Text3.Text) And
(.Fields(2).Value = Text4.Text)) Then
find = 1
empname = .Fields(1).Value
Order_Now.Label15.Caption = "Current Emp. :"
Order_Now.Label16.Caption = empname
Main_Interface.Command4.Enabled = False
Else
If ((.Fields(0).Value = Text3.Text Or .Fields(1).Value = Text3.Text) And
(.Fields(2).Value <> Text4.Text)) Then
find = 2
Else
Page | 27
If ((.Fields(0).Value <> Text3.Text Or .Fields(1).Value <> Text3.Text) And
(.Fields(2).Value = Text4.Text)) Then
find = 3
End If
End If
End If
.MoveNext
Loop
If find = 1 Then
Unload Me
Main_Interface.Command3.Visible = False
Main_Interface.Command4.Visible = False
Main_Interface.Command11.Visible = True
Main_Interface.Command1.Top = 2160
Main_Interface.Command11.Top = 3240
Main_Interface.Command5.Top = 4320
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
If ((.Fields(0).Value <> Text3.Text Or .Fields(1).Value <> Text3.Text) And
(.Fields(2).Value = Text4.Text)) Then
find = 3
End If
End If
End If
.MoveNext
Loop
If find = 1 Then
Unload Me
Main_Interface.Command3.Visible = False
Main_Interface.Command4.Visible = False
Main_Interface.Command11.Visible = True
Main_Interface.Command1.Top = 2160
Main_Interface.Command11.Top = 3240
Main_Interface.Command5.Top = 4320
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
MsgBox ("Fill the Details Correctly"), vbCritical, ("Mcdonald's")
Text3.Text = ""
Text4.Text = ""
Text3.SetFocus
End If
End If
End If
End With
End Sub
Private Sub Command9_Click()
Call terminate
End Sub
Private Sub Form_Load()
Frame3.Visible = False
Frame4.Visible = False
End Sub
Private Sub Picture1_Click()
Timer1.Enabled = True
Else
MsgBox ("Fill the Details Correctly"), vbCritical, ("Mcdonald's")
Text3.Text = ""
Text4.Text = ""
Text3.SetFocus
End If
End If
End If
End With
End Sub
Private Sub Command9_Click()
Call terminate
End Sub
Private Sub Form_Load()
Frame3.Visible = False
Frame4.Visible = False
End Sub
Private Sub Picture1_Click()
Timer1.Enabled = True
Page | 29
Frame4.Visible = False
Command1.SetFocus
End Sub
Private Sub Picture2_Click()
Timer2.Enabled = True
Frame3.Visible = False
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
Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
If (Text2.Text = "") Then
Frame4.Visible = False
Command1.SetFocus
End Sub
Private Sub Picture2_Click()
Timer2.Enabled = True
Frame3.Visible = False
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
Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
If (Text2.Text = "") Then
Page | 30
Else
If ((KeyCode >= 48 And KeyCode <= 57) Or (KeyCode >= 96 And KeyCode <= 105)
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")
Text2.Text = ""
End If
End If
End Sub
Private Sub Text3_KeyUp(KeyCode As Integer, Shift As Integer)
If Text3.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")
Text3.Text = ""
End If
End If
Else
If ((KeyCode >= 48 And KeyCode <= 57) Or (KeyCode >= 96 And KeyCode <= 105)
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")
Text2.Text = ""
End If
End If
End Sub
Private Sub Text3_KeyUp(KeyCode As Integer, Shift As Integer)
If Text3.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")
Text3.Text = ""
End If
End If
Page | 31
End Sub
Private Sub Text4_KeyUp(KeyCode As Integer, Shift As Integer)
If (Text4.Text = "") Then
Else
If ((KeyCode >= 48 And KeyCode <= 57) Or (KeyCode >= 96 And KeyCode <= 105)
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")
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
Private Sub Timer2_Timer()
End Sub
Private Sub Text4_KeyUp(KeyCode As Integer, Shift As Integer)
If (Text4.Text = "") Then
Else
If ((KeyCode >= 48 And KeyCode <= 57) Or (KeyCode >= 96 And KeyCode <= 105)
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")
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
Private Sub Timer2_Timer()
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
Private Sub Command1_Click()
Order_Now.Show
Main_Interface.Hide
End Sub
Private Sub Command10_Click()
Frame1.Visible = False
Frame2.Enabled = True
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
Private Sub Command1_Click()
Order_Now.Show
Main_Interface.Hide
End Sub
Private Sub Command10_Click()
Frame1.Visible = False
Frame2.Enabled = True
Page | 33
Command1.SetFocus
End Sub
Private Sub Command11_Click()
Login_Form.Show
End Sub
Private Sub Command2_Click()
Login_Form.Show
End Sub
Private Sub Command3_Click()
Main_Interface.Enabled = False
Customer_info.Show
Customer_info.Top = 2500
Customer_info.Left = 5820
End Sub
Private Sub Command4_Click()
Frame2.Enabled = False
Frame1.Visible = True
Command9.SetFocus
End Sub
Command1.SetFocus
End Sub
Private Sub Command11_Click()
Login_Form.Show
End Sub
Private Sub Command2_Click()
Login_Form.Show
End Sub
Private Sub Command3_Click()
Main_Interface.Enabled = False
Customer_info.Show
Customer_info.Top = 2500
Customer_info.Left = 5820
End Sub
Private Sub Command4_Click()
Frame2.Enabled = False
Frame1.Visible = True
Command9.SetFocus
End Sub
Page | 34
Private Sub Command5_Click()
Join_us.Show
Main_Interface.Hide
End Sub
Private Sub Command6_Click()
Add_Emp.Show
Main_Interface.Frame1.Enabled = False
Main_Interface.Enabled = False
Frame1.Visible = False
End Sub
Private Sub Command7_Click()
Delete_Admin.Show
Main_Interface.Frame1.Enabled = False
Main_Interface.Enabled = False
Frame1.Visible = False
End Sub
Private Sub Command8_Click()
Delete_Employee.Show
Main_Interface.Frame1.Enabled = False
Main_Interface.Enabled = False
Frame1.Visible = False
End Sub
Private Sub Command9_Click()
Private Sub Command5_Click()
Join_us.Show
Main_Interface.Hide
End Sub
Private Sub Command6_Click()
Add_Emp.Show
Main_Interface.Frame1.Enabled = False
Main_Interface.Enabled = False
Frame1.Visible = False
End Sub
Private Sub Command7_Click()
Delete_Admin.Show
Main_Interface.Frame1.Enabled = False
Main_Interface.Enabled = False
Frame1.Visible = False
End Sub
Private Sub Command8_Click()
Delete_Employee.Show
Main_Interface.Frame1.Enabled = False
Main_Interface.Enabled = False
Frame1.Visible = False
End Sub
Private Sub Command9_Click()
Page | 35
Add_Admin.Show
Main_Interface.Frame1.Enabled = False
Main_Interface.Enabled = False
Frame1.Visible = False
End Sub
Private Sub Form_Load()
Main_Interface.BackColor = RGB(241, 6, 11)
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If a = 0 Then
Label2.Caption = " "
Label2.Caption = "I"
a = 1
ElseIf a = 1 Then
Label2.Caption = " "
Label2.Caption = "I m"
a = 2
ElseIf a = 2 Then
Label2.Caption = " "
Label2.Caption = "I m l"
a = 3
ElseIf a = 3 Then
Label2.Caption = " "
Add_Admin.Show
Main_Interface.Frame1.Enabled = False
Main_Interface.Enabled = False
Frame1.Visible = False
End Sub
Private Sub Form_Load()
Main_Interface.BackColor = RGB(241, 6, 11)
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If a = 0 Then
Label2.Caption = " "
Label2.Caption = "I"
a = 1
ElseIf a = 1 Then
Label2.Caption = " "
Label2.Caption = "I m"
a = 2
ElseIf a = 2 Then
Label2.Caption = " "
Label2.Caption = "I m l"
a = 3
ElseIf a = 3 Then
Label2.Caption = " "
Page | 36
Label2.Caption = "I m lo"
a = 4
ElseIf a = 4 Then
Label2.Caption = " "
Label2.Caption = "I m lov"
a = 5
ElseIf a = 5 Then
Label2.Caption = " "
Label2.Caption = "I m lovi"
a = 6
ElseIf a = 6 Then
Label2.Caption = " "
Label2.Caption = "I m lovin"
a = 7
ElseIf a = 7 Then
Label2.Caption = " "
Label2.Caption = "I m lovin i"
a = 8
ElseIf a = 8 Then
Label2.Caption = " "
Label2.Caption = "I m lovin it"
a = 9
ElseIf a = 9 Then
Label2.Caption = " "
Label2.Caption = " "
a = 0
End If
Label2.Caption = "I m lo"
a = 4
ElseIf a = 4 Then
Label2.Caption = " "
Label2.Caption = "I m lov"
a = 5
ElseIf a = 5 Then
Label2.Caption = " "
Label2.Caption = "I m lovi"
a = 6
ElseIf a = 6 Then
Label2.Caption = " "
Label2.Caption = "I m lovin"
a = 7
ElseIf a = 7 Then
Label2.Caption = " "
Label2.Caption = "I m lovin i"
a = 8
ElseIf a = 8 Then
Label2.Caption = " "
Label2.Caption = "I m lovin it"
a = 9
ElseIf a = 9 Then
Label2.Caption = " "
Label2.Caption = " "
a = 0
End If
Page | 37
End Sub
3. Order now
Dim check
Private Sub Command10_Click()
Call connect
With tempbill
If (.RecordCount = 0) Then
Else
Do Until .EOF
.Delete
.MoveNext
Loop
End If
If ListView1.ListItems.Count = 0 Then
End Sub
3. Order now
Dim check
Private Sub Command10_Click()
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
Frame2.Visible = True
Text8.SetFocus
Label4.Visible = False
Label22.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)
.Fields(2).Value = ListView1.ListItems.Item(i).SubItems(2)
.Fields(3).Value = ListView1.ListItems.Item(i).SubItems(3)
.Fields(4).Value = ListView1.ListItems.Item(i).SubItems(4)
i = i + 1
.Update
Loop
End With
MsgBox ("Please Select the order first"), vbCritical
Else
ListView1.Visible = False
Frame2.Visible = True
Text8.SetFocus
Label4.Visible = False
Label22.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)
.Fields(2).Value = ListView1.ListItems.Item(i).SubItems(2)
.Fields(3).Value = ListView1.ListItems.Item(i).SubItems(3)
.Fields(4).Value = ListView1.ListItems.Item(i).SubItems(4)
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(2).Value = ListView1.ListItems.Item(j).SubItems(2)
.Fields(3).Value = ListView1.ListItems.Item(j).SubItems(3)
.Fields(4).Value = ListView1.ListItems.Item(j).SubItems(4)
.Fields(5).Value = gbill
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(2).Value = ListView1.ListItems.Item(j).SubItems(2)
.Fields(3).Value = ListView1.ListItems.Item(j).SubItems(3)
.Fields(4).Value = ListView1.ListItems.Item(j).SubItems(4)
.Fields(5).Value = gbill
Page | 40
.Fields(6).Value = phone
.Fields(7).Value = cname
j = j + 1
.Update
Loop
End With
End Sub
Private Sub Command11_Click()
If ListView1.ListItems.Count = 0 Then
MsgBox ("Please Select the order first"), vbCritical
Else
Modify.Show
Modify.Text3.SetFocus
End If
End Sub
Private Sub Command13_Click()
check = 0
check = MsgBox("Are you sure you wanna logout?", vbYesNoCancel, "Choose the
Correct...")
If (check = 6) Then
Login_Form.Show
.Fields(6).Value = phone
.Fields(7).Value = cname
j = j + 1
.Update
Loop
End With
End Sub
Private Sub Command11_Click()
If ListView1.ListItems.Count = 0 Then
MsgBox ("Please Select the order first"), vbCritical
Else
Modify.Show
Modify.Text3.SetFocus
End If
End Sub
Private Sub Command13_Click()
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
Private Sub Command14_Click()
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
.Fields(0).Value = phone
.Fields(1).Value = cname
.Fields(2).Value = gbill
.Update
End With
End If
With pbill
Do Until .EOF
Else
If (check = 7) Then
End If
End If
End Sub
Private Sub Command14_Click()
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
.Fields(0).Value = phone
.Fields(1).Value = cname
.Fields(2).Value = gbill
.Update
End With
End If
With pbill
Do Until .EOF
Page | 42
If (gbill = .Fields(5).Value) Then
.Fields(6).Value = cname
.Fields(7).Value = phone
.Update
Exit Do
End If
.MoveNext
Loop
End With
Frame2.Visible = False
Frame4.Visible = False
Frame5.Visible = True
Label22.Visible = False
Label4.Visible = False
Label5.Visible = True
Label6.Visible = True
Label8.Visible = True
Label9.Visible = True
Label10.Visible = True
Label7.Visible = True
Label14.Visible = True
Label13.Visible = True
Command19.Visible = True
Command20.Visible = True
Label13.Caption = ""
Label18.Caption = ""
If (gbill = .Fields(5).Value) Then
.Fields(6).Value = cname
.Fields(7).Value = phone
.Update
Exit Do
End If
.MoveNext
Loop
End With
Frame2.Visible = False
Frame4.Visible = False
Frame5.Visible = True
Label22.Visible = False
Label4.Visible = False
Label5.Visible = True
Label6.Visible = True
Label8.Visible = True
Label9.Visible = True
Label10.Visible = True
Label7.Visible = True
Label14.Visible = True
Label13.Visible = True
Command19.Visible = True
Command20.Visible = True
Label13.Caption = ""
Label18.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
Private Sub Command15_Click()
Call check1
End Sub
Private Sub Command16_Click()
Frame3.Visible = False
Frame2.Visible = True
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
Private Sub Command15_Click()
Call check1
End Sub
Private Sub Command16_Click()
Frame3.Visible = False
Frame2.Visible = True
Page | 44
End Sub
Private Sub Command17_Click()
Call connect
With ju
Do Until .EOF
If .Fields(7).Value = Text1.Text And .Fields(6).Value = Text2.Text Then
check = 1
Label6.Visible = True
Label5.Visible = True
Label6.Caption = .Fields(0).Value
Label5.Caption = .Fields(2).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
.Fields(0).Value = phone
End Sub
Private Sub Command17_Click()
Call connect
With ju
Do Until .EOF
If .Fields(7).Value = Text1.Text And .Fields(6).Value = Text2.Text Then
check = 1
Label6.Visible = True
Label5.Visible = True
Label6.Caption = .Fields(0).Value
Label5.Caption = .Fields(2).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
.Fields(0).Value = phone
Page | 45
.Fields(1).Value = cname
.Fields(2).Value = gbill
.Update
End With
With pbill
Do Until .EOF
If (gbill = .Fields(5).Value) Then
.Fields(6).Value = cname
.Fields(7).Value = phone
.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
Label9.Caption = total
Label26.Caption = .Fields(8).Value
netamt = Val(Label26.Caption) - Val(Label9.Caption)
If (netamt < 0) Then
.Fields(1).Value = cname
.Fields(2).Value = gbill
.Update
End With
With pbill
Do Until .EOF
If (gbill = .Fields(5).Value) Then
.Fields(6).Value = cname
.Fields(7).Value = phone
.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
Label9.Caption = total
Label26.Caption = .Fields(8).Value
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
Frame3.Visible = False
ListView1.Visible = True
Frame2.Visible = False
Frame5.Visible = True
Frame4.Visible = False
Frame5.Top = 7680
Frame5.Left = 13740
Command10.Visible = False
Command11.Visible = False
Label22.Visible = False
Command15.Visible = False
Command19.Visible = True
Command20.Visible = True
Label13.Caption = Label4.Caption
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
Frame3.Visible = False
ListView1.Visible = True
Frame2.Visible = False
Frame5.Visible = True
Frame4.Visible = False
Frame5.Top = 7680
Frame5.Left = 13740
Command10.Visible = False
Command11.Visible = False
Label22.Visible = False
Command15.Visible = False
Command19.Visible = True
Command20.Visible = True
Label13.Caption = Label4.Caption
Page | 47
Label4.Visible = False
Label17.Visible = True
Label23.Visible = True
Label24.Visible = True
Label28.Visible = True
Label29.Visible = True
Label26.Visible = True
Label27.Visible = True
Label18.Visible = True
Label8.Visible = True
Label9.Visible = True
Label10.Visible = True
Label7.Visible = True
Label14.Visible = True
Label13.Visible = True
Text2.Text = ""
Text1.Text = ""
Else
MsgBox ("Not a memeber")
Text2.Text = ""
Text1.Text = ""
End If
End With
End Sub
Label4.Visible = False
Label17.Visible = True
Label23.Visible = True
Label24.Visible = True
Label28.Visible = True
Label29.Visible = True
Label26.Visible = True
Label27.Visible = True
Label18.Visible = True
Label8.Visible = True
Label9.Visible = True
Label10.Visible = True
Label7.Visible = True
Label14.Visible = True
Label13.Visible = True
Text2.Text = ""
Text1.Text = ""
Else
MsgBox ("Not a memeber")
Text2.Text = ""
Text1.Text = ""
End If
End With
End Sub
Page | 48
Private Sub Command18_Click()
Frame2.Visible = False
ListView1.Visible = True
End Sub
Private Sub Command19_Click()
ListView1.ListItems.Clear
ListView1.Visible = True
Frame6.Visible = True
Frame4.Visible = True
Frame3.Visible = False
Frame5.Visible = False
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
ListView1.Top = 0
Label22.Visible = True
Command15.Visible = True
Command10.Visible = True
Command11.Visible = True
Label4.Visible = True
Unload DataReport1
Unload Blank
End Sub
Private Sub Command20_Click()
Blank.Show
Private Sub Command18_Click()
Frame2.Visible = False
ListView1.Visible = True
End Sub
Private Sub Command19_Click()
ListView1.ListItems.Clear
ListView1.Visible = True
Frame6.Visible = True
Frame4.Visible = True
Frame3.Visible = False
Frame5.Visible = False
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
ListView1.Top = 0
Label22.Visible = True
Command15.Visible = True
Command10.Visible = True
Command11.Visible = True
Label4.Visible = True
Unload DataReport1
Unload Blank
End Sub
Private Sub Command20_Click()
Blank.Show
Page | 49
Set DataReport1.DataSource = tempbill
DataReport1.Sections(2).Controls("label6").Caption = ""
DataReport1.Sections(2).Controls("label7").Caption = ""
DataReport1.Sections(5).Controls("Label12").Caption = ""
DataReport1.Sections(5).Controls("Label19").Caption = ""
DataReport1.Sections(5).Controls("Label10").Caption = ""
DataReport1.Sections("Section1").Controls("text1").DataField = ""
DataReport1.Sections("Section1").Controls("text2").DataField = ""
DataReport1.Sections("Section1").Controls("text3").DataField = ""
DataReport1.Sections("Section1").Controls("text4").DataField = ""
DataReport1.Sections("Section1").Controls("text5").DataField = ""
DataReport1.Sections(2).Controls("label15").Caption = ""
DataReport1.Sections(2).Controls("label16").Caption = ""
DataReport1.Sections(2).Controls("label17").Caption = ""
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(5).Controls("Label19").Caption = Val(Label8.Caption)
DataReport1.Sections(5).Controls("Label10").Caption = Val(Label9.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"
Set DataReport1.DataSource = tempbill
DataReport1.Sections(2).Controls("label6").Caption = ""
DataReport1.Sections(2).Controls("label7").Caption = ""
DataReport1.Sections(5).Controls("Label12").Caption = ""
DataReport1.Sections(5).Controls("Label19").Caption = ""
DataReport1.Sections(5).Controls("Label10").Caption = ""
DataReport1.Sections("Section1").Controls("text1").DataField = ""
DataReport1.Sections("Section1").Controls("text2").DataField = ""
DataReport1.Sections("Section1").Controls("text3").DataField = ""
DataReport1.Sections("Section1").Controls("text4").DataField = ""
DataReport1.Sections("Section1").Controls("text5").DataField = ""
DataReport1.Sections(2).Controls("label15").Caption = ""
DataReport1.Sections(2).Controls("label16").Caption = ""
DataReport1.Sections(2).Controls("label17").Caption = ""
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(5).Controls("Label19").Caption = Val(Label8.Caption)
DataReport1.Sections(5).Controls("Label10").Caption = Val(Label9.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
Private Sub Command21_Click()
Frame7.Visible = False
End Sub
Private Sub Command22_Click()
Label22.Caption = ""
Label30.Caption = ""
Text3.Text = ""
Option1.Value = False
Option2.Value = False
Option3.Value = False
End Sub
Private Sub Command1_Click()
Combo.Show
'Burger.Hide
'Icecream.Hide
'Chicken.Hide
'Chocolate.Hide
'Salad.Hide
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
Private Sub Command21_Click()
Frame7.Visible = False
End Sub
Private Sub Command22_Click()
Label22.Caption = ""
Label30.Caption = ""
Text3.Text = ""
Option1.Value = False
Option2.Value = False
Option3.Value = False
End Sub
Private Sub Command1_Click()
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
Private Sub Command2_Click()
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
Private Sub Command3_Click()
Icecream.Show
'Burger.Hide
'Salad.Hide
'Shakes.Hide
'Fries.Hide
'Coffee.Hide
Combo.Image5.Visible = True
Combo.Frame1.Visible = False
End Sub
Private Sub Command2_Click()
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
Private Sub Command3_Click()
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
Private Sub Command4_Click()
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
Private Sub Command5_Click()
'Shakes.Hide
'Chicken.Hide
'Chocolate.Hide
'Fries.Hide
'Coffee.Hide
'Combo.Hide
Icecream.Image5.Visible = True
Icecream.Frame1.Visible = False
End Sub
Private Sub Command4_Click()
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
Private Sub Command5_Click()
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
Private Sub Command6_Click()
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
Private Sub Command7_Click()
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
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
Private Sub Command6_Click()
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
Private Sub Command7_Click()
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
Private Sub Command8_Click()
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
Private Sub Command9_Click()
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
End Sub
Private Sub Command8_Click()
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
Private Sub Command9_Click()
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
Private Sub Form_Load()
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()
Frame3.Visible = True
Text2.SetFocus
Frame3.Left = 13800
Frame3.Top = 3840
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 = 13 Or KeyCode = 35 Or _
KeyCode = 36 Or KeyCode = 8 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
End Sub
Private Sub Form_Load()
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()
Frame3.Visible = True
Text2.SetFocus
Frame3.Left = 13800
Frame3.Top = 3840
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 = 13 Or KeyCode = 35 Or _
KeyCode = 36 Or KeyCode = 8 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
Page | 56
Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
If Text2.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")
Text2.Text = ""
End If
End If
End Sub
Private Sub Text7_KeyUp(KeyCode As Integer, Shift As Integer)
If (Text7.Text = "") Then
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
Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
If Text2.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")
Text2.Text = ""
End If
End If
End Sub
Private Sub Text7_KeyUp(KeyCode As Integer, Shift As Integer)
If (Text7.Text = "") Then
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
Private Sub Text8_KeyUp(KeyCode As Integer, Shift As Integer)
If (Text8.Text = "") Then
Else
If ((KeyCode >= 48 And KeyCode <= 57) Or (KeyCode >= 96 And KeyCode <= 105)
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")
Text8.Text = ""
End If
End If
End Sub
Private Sub Text8_LostFocus()
Call connect
k = 1
With dc
If (.RecordCount = 0) Then
k = 11
Else
.MoveFirst
Do Until .EOF
If (Text8.Text = (.Fields(0).Value)) Then
Text7.Text = .Fields(1).Value
End If
End If
End Sub
Private Sub Text8_KeyUp(KeyCode As Integer, Shift As Integer)
If (Text8.Text = "") Then
Else
If ((KeyCode >= 48 And KeyCode <= 57) Or (KeyCode >= 96 And KeyCode <= 105)
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")
Text8.Text = ""
End If
End If
End Sub
Private Sub Text8_LostFocus()
Call connect
k = 1
With dc
If (.RecordCount = 0) Then
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
Private Sub Command1_Click()
Call Coffeedesc
Image5.Visible = False
Frame1.Visible = True
Text1.SetFocus
k = 1
Exit Do
Else
k = 11
End If
.MoveNext
Loop
End If
End With
End Sub
4. Coffee form
Private Sub Command1_Click()
Call Coffeedesc
Image5.Visible = False
Frame1.Visible = True
Text1.SetFocus
Page | 59
Label1.Caption = Command1.Caption
End Sub
Private Sub Command2_Click()
Call Coffeedesc
Image5.Visible = False
Frame1.Visible = True
Text1.SetFocus
Label1.Caption = Command2.Caption
End Sub
Private Sub Command3_Click()
Call Coffeedesc
Image5.Visible = False
Frame1.Visible = True
Text1.SetFocus
Label1.Caption = Command3.Caption
End Sub
Private Sub Command4_Click()
Call Coffeedesc
Image5.Visible = False
Frame1.Visible = True
Text1.SetFocus
Label1.Caption = Command4.Caption
End Sub
Label1.Caption = Command1.Caption
End Sub
Private Sub Command2_Click()
Call Coffeedesc
Image5.Visible = False
Frame1.Visible = True
Text1.SetFocus
Label1.Caption = Command2.Caption
End Sub
Private Sub Command3_Click()
Call Coffeedesc
Image5.Visible = False
Frame1.Visible = True
Text1.SetFocus
Label1.Caption = Command3.Caption
End Sub
Private Sub Command4_Click()
Call Coffeedesc
Image5.Visible = False
Frame1.Visible = True
Text1.SetFocus
Label1.Caption = Command4.Caption
End Sub
Page | 60
Private Sub Command5_Click()
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
Private Sub Command5_Click()
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
Private Sub Command6_Click()
Call Coffeedesc
Image5.Visible = False
Frame1.Visible = True
Text1.SetFocus
Label1.Caption = Command6.Caption
End Sub
Private Sub Command7_Click()
Call Coffeedesc
Image5.Visible = False
Frame1.Visible = True
Text1.SetFocus
Label1.Caption = Command7.Caption
End Sub
Private Sub Command8_Click()
Call Coffeedesc
Image5.Visible = False
Frame1.Visible = True
Text1.SetFocus
Label1.Caption = Command8.Caption
End Sub
Private Sub Command9_Click()
Call Coffeedesc
Image5.Visible = False
Frame1.Visible = True
Text1.SetFocus
Private Sub Command6_Click()
Call Coffeedesc
Image5.Visible = False
Frame1.Visible = True
Text1.SetFocus
Label1.Caption = Command6.Caption
End Sub
Private Sub Command7_Click()
Call Coffeedesc
Image5.Visible = False
Frame1.Visible = True
Text1.SetFocus
Label1.Caption = Command7.Caption
End Sub
Private Sub Command8_Click()
Call Coffeedesc
Image5.Visible = False
Frame1.Visible = True
Text1.SetFocus
Label1.Caption = Command8.Caption
End Sub
Private Sub Command9_Click()
Call Coffeedesc
Image5.Visible = False
Frame1.Visible = True
Text1.SetFocus
Page | 62
Label1.Caption = Command9.Caption
End Sub
Private Sub Form_Load()
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
Private Sub Command10_Click()
Order_Now.Show: Order_Now.Enabled = True
End Sub
Private Sub Command11_Click()
Call check1
End Sub
Label1.Caption = Command9.Caption
End Sub
Private Sub Form_Load()
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
Private Sub Command10_Click()
Order_Now.Show: Order_Now.Enabled = True
End Sub
Private Sub Command11_Click()
Call check1
End Sub
Page | 63
Private Sub Label8_Click()
Order_Now.Show
Order_Now.Enabled = True
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
Private Sub Option2_Click()
Call connect
With all
Do Until .EOF
If (Label1.Caption = .Fields(2).Value) Then
price = .Fields(4).Value
Label7.Caption = price
Private Sub Label8_Click()
Order_Now.Show
Order_Now.Enabled = True
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
Private Sub Option2_Click()
Call connect
With all
Do Until .EOF
If (Label1.Caption = .Fields(2).Value) Then
price = .Fields(4).Value
Label7.Caption = price
Page | 64
End If
.MoveNext
Loop
End With
End Sub
Private Sub Option3_Click()
Call connect
With all
Do Until .EOF
If (Label1.Caption = .Fields(2).Value) Then
price = .Fields(5).Value
Label7.Caption = price
End If
.MoveNext
Loop
End With
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 = 13 Or KeyCode = 35 Or _
End If
.MoveNext
Loop
End With
End Sub
Private Sub Option3_Click()
Call connect
With all
Do Until .EOF
If (Label1.Caption = .Fields(2).Value) Then
price = .Fields(5).Value
Label7.Caption = price
End If
.MoveNext
Loop
End With
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 = 13 Or KeyCode = 35 Or _
Page | 65
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
5. Modifying Bill
Private Sub Command20_Click()
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
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
5. Modifying Bill
Private Sub Command20_Click()
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
Private Sub Command21_Click()
Order_Now.Show
Order_Now.Enabled = True
Unload Me
Unload Burger
Unload Chicken
Unload Coffee
Unload Combo
Unload Chocolate
Unload Fries
Unload Icecream
Unload Salad
Unload Shakes
End Sub
Private Sub Command22_Click()
Label1.Caption = ""
Label22.Caption = ""
Label30.Caption = ""
Text3.Text = ""
Option1.Value = False
Option2.Value = False
Order_Now.ListView1.ListItems.Item(i).SubItems(4) = (Val(Label30.Caption) + vat)
End Sub
Private Sub Command21_Click()
Order_Now.Show
Order_Now.Enabled = True
Unload Me
Unload Burger
Unload Chicken
Unload Coffee
Unload Combo
Unload Chocolate
Unload Fries
Unload Icecream
Unload Salad
Unload Shakes
End Sub
Private Sub Command22_Click()
Label1.Caption = ""
Label22.Caption = ""
Label30.Caption = ""
Text3.Text = ""
Option1.Value = False
Option2.Value = False
Page | 67
Option3.Value = False
End Sub
Private Sub Form_Activate()
Order_Now.Enabled = False
End Sub
Private Sub Command23_Click()
Order_Now.ListView1.ListItems.Remove (i)
i = i - 1
End Sub
Private Sub Command24_Click()
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))
Option1.Value = False
Option2.Value = False
Option3.Value = False
Label30.Caption = total
price = (Val(Label30.Caption) / Val(Text3.Text))
Call connect
With all
Do Until .EOF
If (Label22.Caption = (.Fields(2).Value)) Then
Option3.Value = False
End Sub
Private Sub Form_Activate()
Order_Now.Enabled = False
End Sub
Private Sub Command23_Click()
Order_Now.ListView1.ListItems.Remove (i)
i = i - 1
End Sub
Private Sub Command24_Click()
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))
Option1.Value = False
Option2.Value = False
Option3.Value = False
Label30.Caption = total
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
Option2.Value = False
Option3.Value = False
Else
If (price = Val(.Fields(4).Value)) Then
Option2.Value = True
Option1.Value = False
Option3.Value = False
Else
If (price = Val(.Fields(5).Value)) Then
Option3.Value = True
Option1.Value = False
Option2.Value = False
End If
End If
End If
End If
.MoveNext
Loop
End With
End Sub
Private Sub Command25_Click()
i = 1
If (price = Val(.Fields(3).Value)) Then
Option1.Value = True
Option2.Value = False
Option3.Value = False
Else
If (price = Val(.Fields(4).Value)) Then
Option2.Value = True
Option1.Value = False
Option3.Value = False
Else
If (price = Val(.Fields(5).Value)) Then
Option3.Value = True
Option1.Value = False
Option2.Value = False
End If
End If
End If
End If
.MoveNext
Loop
End With
End Sub
Private Sub Command25_Click()
i = 1
Page | 69
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))
Option1.Value = False
Option2.Value = False
Option3.Value = False
Label30.Caption = total
price = (Val(Label30.Caption) / Val(Text3.Text))
Call connect
With all
Do Until .EOF
If (Label22.Caption = .Fields(2).Value) Then
If (price = Val(.Fields(3).Value)) Then
Option1.Value = True
Option2.Value = False
Option3.Value = False
Else
If (price = Val(.Fields(4).Value)) Then
Option2.Value = True
Option1.Value = False
Option3.Value = False
Else
If (price = Val(.Fields(5).Value)) Then
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))
Option1.Value = False
Option2.Value = False
Option3.Value = False
Label30.Caption = total
price = (Val(Label30.Caption) / Val(Text3.Text))
Call connect
With all
Do Until .EOF
If (Label22.Caption = .Fields(2).Value) Then
If (price = Val(.Fields(3).Value)) Then
Option1.Value = True
Option2.Value = False
Option3.Value = False
Else
If (price = Val(.Fields(4).Value)) Then
Option2.Value = True
Option1.Value = False
Option3.Value = False
Else
If (price = Val(.Fields(5).Value)) Then
Page | 70
Option3.Value = True
Option1.Value = False
Option2.Value = False
End If
End If
End If
End If
.MoveNext
Loop
End With
End Sub
Private Sub Form_Deactivate()
Order_Now.Enabled = True
End Sub
Private Sub Form_Load()
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
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))
Option3.Value = True
Option1.Value = False
Option2.Value = False
End If
End If
End If
End If
.MoveNext
Loop
End With
End Sub
Private Sub Form_Deactivate()
Order_Now.Enabled = True
End Sub
Private Sub Form_Load()
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
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))
Page | 71
total = (Order_Now.ListView1.ListItems.Item(i).SubItems(1)) *
(Order_Now.ListView1.ListItems.Item(i).SubItems(2))
Option1.Value = False
Option2.Value = False
Option3.Value = False
Label30.Caption = total
price = (Val(Label30.Caption) / Val(Text3.Text))
Call connect
With all
Do Until .EOF
If (Label22.Caption = .Fields(2).Value) Then
If (price = Val(.Fields(3).Value)) Then
Option1.Value = True
Option2.Value = False
Option3.Value = False
Else
If (price = Val(.Fields(4).Value)) Then
Option2.Value = True
Option1.Value = False
Option3.Value = False
Else
If (price = Val(.Fields(5).Value)) Then
Option3.Value = True
Option1.Value = False
Option2.Value = False
total = (Order_Now.ListView1.ListItems.Item(i).SubItems(1)) *
(Order_Now.ListView1.ListItems.Item(i).SubItems(2))
Option1.Value = False
Option2.Value = False
Option3.Value = False
Label30.Caption = total
price = (Val(Label30.Caption) / Val(Text3.Text))
Call connect
With all
Do Until .EOF
If (Label22.Caption = .Fields(2).Value) Then
If (price = Val(.Fields(3).Value)) Then
Option1.Value = True
Option2.Value = False
Option3.Value = False
Else
If (price = Val(.Fields(4).Value)) Then
Option2.Value = True
Option1.Value = False
Option3.Value = False
Else
If (price = Val(.Fields(5).Value)) Then
Option3.Value = True
Option1.Value = False
Option2.Value = False
Page | 72
End If
End If
End If
End If
.MoveNext
Loop
End With
End Sub
Private Sub Command1_Click()
If (i = Order_Now.ListView1.ListItems.Count) Then
i = 0
End If
i = i + 1
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))
Option1.Value = False
Option2.Value = False
Option3.Value = False
Label30.Caption = total
End If
End If
End If
End If
.MoveNext
Loop
End With
End Sub
Private Sub Command1_Click()
If (i = Order_Now.ListView1.ListItems.Count) Then
i = 0
End If
i = i + 1
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))
Option1.Value = False
Option2.Value = False
Option3.Value = False
Label30.Caption = total
Page | 73
price = (Val(Label30.Caption) / Val(Text3.Text))
Call connect
With all
Do Until .EOF
If (Label22.Caption = .Fields(2).Value) Then
If (price = Val(.Fields(3).Value)) Then
Option1.Value = True
Option2.Value = False
Option3.Value = False
Else
If (price = Val(.Fields(4).Value)) Then
Option2.Value = True
Option1.Value = False
Option3.Value = False
Else
If (price = Val(.Fields(5).Value)) Then
Option3.Value = True
Option1.Value = False
Option2.Value = False
End If
End If
End If
End If
.MoveNext
Loop
price = (Val(Label30.Caption) / Val(Text3.Text))
Call connect
With all
Do Until .EOF
If (Label22.Caption = .Fields(2).Value) Then
If (price = Val(.Fields(3).Value)) Then
Option1.Value = True
Option2.Value = False
Option3.Value = False
Else
If (price = Val(.Fields(4).Value)) Then
Option2.Value = True
Option1.Value = False
Option3.Value = False
Else
If (price = Val(.Fields(5).Value)) Then
Option3.Value = True
Option1.Value = False
Option2.Value = False
End If
End If
End If
End If
.MoveNext
Loop
Page | 74
End With
End Sub
Private Sub Command2_Click()
If (i = 1) Then
i = (Order_Now.ListView1.ListItems.Count + 1)
End If
i = i - 1
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))
Label30.Caption = total
Option1.Value = False
Option2.Value = False
Option3.Value = False
price = (Val(Label30.Caption) / Val(Text3.Text))
Call connect
With all
Do Until .EOF
If (Label22.Caption = .Fields(2).Value) Then
If (price = Val(.Fields(3).Value)) Then
Option1.Value = True
End With
End Sub
Private Sub Command2_Click()
If (i = 1) Then
i = (Order_Now.ListView1.ListItems.Count + 1)
End If
i = i - 1
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))
Label30.Caption = total
Option1.Value = False
Option2.Value = False
Option3.Value = False
price = (Val(Label30.Caption) / Val(Text3.Text))
Call connect
With all
Do Until .EOF
If (Label22.Caption = .Fields(2).Value) Then
If (price = Val(.Fields(3).Value)) Then
Option1.Value = True
Page | 75
Option2.Value = False
Option3.Value = False
Else
If (price = Val(.Fields(4).Value)) Then
Option2.Value = True
Option1.Value = False
Option3.Value = False
Else
If (price = Val(.Fields(5).Value)) Then
Option3.Value = True
Option1.Value = False
Option2.Value = False
End If
End If
End If
End If
.MoveNext
Loop
End With
End Sub
Private Sub Option1_Click()
Call connect
With all
Option2.Value = False
Option3.Value = False
Else
If (price = Val(.Fields(4).Value)) Then
Option2.Value = True
Option1.Value = False
Option3.Value = False
Else
If (price = Val(.Fields(5).Value)) Then
Option3.Value = True
Option1.Value = False
Option2.Value = False
End If
End If
End If
End If
.MoveNext
Loop
End With
End Sub
Private Sub Option1_Click()
Call connect
With all
Page | 76
Do Until .EOF
If (Label22.Caption = .Fields(2).Value) Then
price = .Fields(3).Value
Label1.Caption = price
End If
.MoveNext
Loop
total = (Val(Text3.Text) * Val(Label1.Caption))
Label30.Caption = total
End With
End Sub
Private Sub Option2_Click()
Call connect
With all
Do Until .EOF
If (Label22.Caption = .Fields(2).Value) Then
price = .Fields(4).Value
Label1.Caption = price
End If
.MoveNext
Loop
total = (Val(Text3.Text) * Val(Label1.Caption))
Label30.Caption = total
Do Until .EOF
If (Label22.Caption = .Fields(2).Value) Then
price = .Fields(3).Value
Label1.Caption = price
End If
.MoveNext
Loop
total = (Val(Text3.Text) * Val(Label1.Caption))
Label30.Caption = total
End With
End Sub
Private Sub Option2_Click()
Call connect
With all
Do Until .EOF
If (Label22.Caption = .Fields(2).Value) Then
price = .Fields(4).Value
Label1.Caption = price
End If
.MoveNext
Loop
total = (Val(Text3.Text) * Val(Label1.Caption))
Label30.Caption = total
Page | 77
End With
End Sub
Private Sub Option3_Click()
Call connect
With all
Do Until .EOF
If (Label22.Caption = .Fields(2).Value) Then
price = .Fields(5).Value
Label1.Caption = price
End If
.MoveNext
Loop
total = (Val(Text3.Text) * Val(Label1.Caption))
Label30.Caption = total
End With
End Sub
6. Generating bill
End With
End Sub
Private Sub Option3_Click()
Call connect
With all
Do Until .EOF
If (Label22.Caption = .Fields(2).Value) Then
price = .Fields(5).Value
Label1.Caption = price
End If
.MoveNext
Loop
total = (Val(Text3.Text) * Val(Label1.Caption))
Label30.Caption = total
End With
End Sub
6. Generating bill
Page | 78
Private Sub Command10_Click()
Call connect
With tempbill
If (.RecordCount = 0) Then
Else
Do Until .EOF
.Delete
.MoveNext
Loop
End If
If ListView1.ListItems.Count = 0 Then
MsgBox ("Please Select the order first"), vbCritical
Else
ListView1.Visible = False
Frame2.Visible = True
Text8.SetFocus
Label4.Visible = False
Label22.Visible = False
Text7.Text = ""
Text8.Text = ""
Text2.Text = ""
Text1.Text = ""
End If
c = Val(ListView1.ListItems.Count)
i = 1
c = c + 1
Private Sub Command10_Click()
Call connect
With tempbill
If (.RecordCount = 0) Then
Else
Do Until .EOF
.Delete
.MoveNext
Loop
End If
If ListView1.ListItems.Count = 0 Then
MsgBox ("Please Select the order first"), vbCritical
Else
ListView1.Visible = False
Frame2.Visible = True
Text8.SetFocus
Label4.Visible = False
Label22.Visible = False
Text7.Text = ""
Text8.Text = ""
Text2.Text = ""
Text1.Text = ""
End If
c = Val(ListView1.ListItems.Count)
i = 1
c = c + 1
Page | 79
Do Until i = c
.AddNew
.Fields(0).Value = (ListView1.ListItems.Item(i).Text)
.Fields(1).Value = ListView1.ListItems.Item(i).SubItems(1)
.Fields(2).Value = ListView1.ListItems.Item(i).SubItems(2)
.Fields(3).Value = ListView1.ListItems.Item(i).SubItems(3)
.Fields(4).Value = ListView1.ListItems.Item(i).SubItems(4)
i = i + 1
.Update
Loop
End With
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(2).Value = ListView1.ListItems.Item(j).SubItems(2)
.Fields(3).Value = ListView1.ListItems.Item(j).SubItems(3)
.Fields(4).Value = ListView1.ListItems.Item(j).SubItems(4)
.Fields(5).Value = gbill
.Fields(6).Value = phone
.Fields(7).Value = cname
j = j + 1
.Update
Loop
Do Until i = c
.AddNew
.Fields(0).Value = (ListView1.ListItems.Item(i).Text)
.Fields(1).Value = ListView1.ListItems.Item(i).SubItems(1)
.Fields(2).Value = ListView1.ListItems.Item(i).SubItems(2)
.Fields(3).Value = ListView1.ListItems.Item(i).SubItems(3)
.Fields(4).Value = ListView1.ListItems.Item(i).SubItems(4)
i = i + 1
.Update
Loop
End With
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(2).Value = ListView1.ListItems.Item(j).SubItems(2)
.Fields(3).Value = ListView1.ListItems.Item(j).SubItems(3)
.Fields(4).Value = ListView1.ListItems.Item(j).SubItems(4)
.Fields(5).Value = gbill
.Fields(6).Value = phone
.Fields(7).Value = cname
j = j + 1
.Update
Loop
Page | 80
End With
End SubPrivate Sub Command10_Click()
Call connect
With tempbill
If (.RecordCount = 0) Then
Else
Do Until .EOF
.Delete
.MoveNext
Loop
End If
If ListView1.ListItems.Count = 0 Then
MsgBox ("Please Select the order first"), vbCritical
Else
ListView1.Visible = False
Frame2.Visible = True
Text8.SetFocus
Label4.Visible = False
Label22.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)
.Fields(2).Value = ListView1.ListItems.Item(i).SubItems(2)
.Fields(3).Value = ListView1.ListItems.Item(i).SubItems(3)
.Fields(4).Value = ListView1.ListItems.Item(i).SubItems(4)
i = i + 1
.Update
Loop
End With
With dc
If .RecordCount = 0 Then
mid = "MD-00010191110"
Else
End With
End SubPrivate Sub Command10_Click()
Call connect
With tempbill
If (.RecordCount = 0) Then
Else
Do Until .EOF
.Delete
.MoveNext
Loop
End If
If ListView1.ListItems.Count = 0 Then
MsgBox ("Please Select the order first"), vbCritical
Else
ListView1.Visible = False
Frame2.Visible = True
Text8.SetFocus
Label4.Visible = False
Label22.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)
.Fields(2).Value = ListView1.ListItems.Item(i).SubItems(2)
.Fields(3).Value = ListView1.ListItems.Item(i).SubItems(3)
.Fields(4).Value = ListView1.ListItems.Item(i).SubItems(4)
i = i + 1
.Update
Loop
End With
With dc
If .RecordCount = 0 Then
mid = "MD-00010191110"
Else
Page | 81
.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(2).Value = ListView1.ListItems.Item(j).SubItems(2)
.Fields(3).Value = ListView1.ListItems.Item(j).SubItems(3)
.Fields(4).Value = ListView1.ListItems.Item(j).SubItems(4)
.Fields(5).Value = gbill
.Fields(6).Value = phone
.Fields(7).Value = cname
j = j + 1
.Update
Loop
End With
End Sub
7. Print bill
.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(2).Value = ListView1.ListItems.Item(j).SubItems(2)
.Fields(3).Value = ListView1.ListItems.Item(j).SubItems(3)
.Fields(4).Value = ListView1.ListItems.Item(j).SubItems(4)
.Fields(5).Value = gbill
.Fields(6).Value = phone
.Fields(7).Value = cname
j = j + 1
.Update
Loop
End With
End Sub
7. Print bill
Page | 82
Private Sub Command20_Click()
Blank.Show
Set DataReport1.DataSource = tempbill
DataReport1.Sections(2).Controls("label6").Caption = ""
DataReport1.Sections(2).Controls("label7").Caption = ""
DataReport1.Sections(5).Controls("Label12").Caption = ""
DataReport1.Sections(5).Controls("Label19").Caption = ""
DataReport1.Sections(5).Controls("Label10").Caption = ""
DataReport1.Sections("Section1").Controls("text1").DataField = ""
DataReport1.Sections("Section1").Controls("text2").DataField = ""
DataReport1.Sections("Section1").Controls("text3").DataField = ""
DataReport1.Sections("Section1").Controls("text4").DataField = ""
DataReport1.Sections("Section1").Controls("text5").DataField = ""
DataReport1.Sections(2).Controls("label15").Caption = ""
DataReport1.Sections(2).Controls("label16").Caption = ""
DataReport1.Sections(2).Controls("label17").Caption = ""
DataReport1.Sections(2).Controls("label6").Caption = cname
Private Sub Command20_Click()
Blank.Show
Set DataReport1.DataSource = tempbill
DataReport1.Sections(2).Controls("label6").Caption = ""
DataReport1.Sections(2).Controls("label7").Caption = ""
DataReport1.Sections(5).Controls("Label12").Caption = ""
DataReport1.Sections(5).Controls("Label19").Caption = ""
DataReport1.Sections(5).Controls("Label10").Caption = ""
DataReport1.Sections("Section1").Controls("text1").DataField = ""
DataReport1.Sections("Section1").Controls("text2").DataField = ""
DataReport1.Sections("Section1").Controls("text3").DataField = ""
DataReport1.Sections("Section1").Controls("text4").DataField = ""
DataReport1.Sections("Section1").Controls("text5").DataField = ""
DataReport1.Sections(2).Controls("label15").Caption = ""
DataReport1.Sections(2).Controls("label16").Caption = ""
DataReport1.Sections(2).Controls("label17").Caption = ""
DataReport1.Sections(2).Controls("label6").Caption = cname
Page | 83
DataReport1.Sections(2).Controls("label7").Caption = phone
DataReport1.Sections(5).Controls("Label12").Caption = Val(Label18.Caption)
DataReport1.Sections(5).Controls("Label19").Caption = Val(Label8.Caption)
DataReport1.Sections(5).Controls("Label10").Caption = Val(Label9.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"
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
DataReport1.Sections(2).Controls("label7").Caption = phone
DataReport1.Sections(5).Controls("Label12").Caption = Val(Label18.Caption)
DataReport1.Sections(5).Controls("Label19").Caption = Val(Label8.Caption)
DataReport1.Sections(5).Controls("Label10").Caption = Val(Label9.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"
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
Private Sub Command1_Click()
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
If .RecordCount = 0 Then
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
Private Sub Command1_Click()
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
If .RecordCount = 0 Then
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
Private Sub Command2_Click()
Unload Me
Main_Interface.Show
Main_Interface.Enabled = True
Main_Interface.Frame1.Visible = True
Main_Interface.Frame1.Enabled = True
End Sub
Private Sub Command3_Click()
Label20.Caption = ""
Text2.Text = ""
Text1.Text = ""
Label4.Caption = ""
End Sub
Private Sub Command4_Click()
If (Text2.Text = "") Then
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
If .RecordCount = 0 Then
m = 1
End With
End Sub
Private Sub Command2_Click()
Unload Me
Main_Interface.Show
Main_Interface.Enabled = True
Main_Interface.Frame1.Visible = True
Main_Interface.Frame1.Enabled = True
End Sub
Private Sub Command3_Click()
Label20.Caption = ""
Text2.Text = ""
Text1.Text = ""
Label4.Caption = ""
End Sub
Private Sub Command4_Click()
If (Text2.Text = "") Then
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
If .RecordCount = 0 Then
m = 1
Page | 86
apass = 1111
Else
.MoveFirst
Do Until .EOF
If .Fields(3).Value > m Then
m = .Fields(3).Value
'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
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If (Text1.Text <> "") Then
apass = 1111
Else
.MoveFirst
Do Until .EOF
If .Fields(3).Value > m Then
m = .Fields(3).Value
'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
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
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
Command4.Enabled = True
End If
Else
Command4.Enabled = False
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
Command4.Enabled = True
End If
Else
Command4.Enabled = False
Page | 88
End If
End Sub
Private Sub Text1_LostFocus()
If (Text1.Text <> "") Then
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
MsgBox ("Please Enter Only Characters")
Text1.SetFocus
End If
End Sub
Private Sub Text1_LostFocus()
If (Text1.Text <> "") Then
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
MsgBox ("Please Enter Only Characters")
Text1.SetFocus
Page | 89
Command4.Enabled = False
Else
If (Text2.Text <> "") Then
Command4.Enabled = True
Else
Command4.Enabled = False
End If
End If
Else
If (Text2.Text = "") Then
Command4.Enabled = False
Else
Command4.Enabled = False
End If
End If
End Sub
Private Sub Text1_GotFocus()
Command4.Enabled = False
End Sub
Private Sub Text2_GotFocus()
Command4.Enabled = False
End Sub
Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
If (Text2.Text <> "") Then
Command4.Enabled = False
Else
If (Text2.Text <> "") Then
Command4.Enabled = True
Else
Command4.Enabled = False
End If
End If
Else
If (Text2.Text = "") Then
Command4.Enabled = False
Else
Command4.Enabled = False
End If
End If
End Sub
Private Sub Text1_GotFocus()
Command4.Enabled = False
End Sub
Private Sub Text2_GotFocus()
Command4.Enabled = False
End Sub
Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
If (Text2.Text <> "") Then
Page | 90
length = Len(Text2.Text)
i = 0
gap = 1
Do Until i = length
c = (Asc(Right(Text2.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
Command4.Enabled = True
End If
Else
Command4.Enabled = False
length = Len(Text2.Text)
i = 0
gap = 1
Do Until i = length
c = (Asc(Right(Text2.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
Command4.Enabled = True
End If
Else
Command4.Enabled = False
Page | 91
End If
End Sub
Private Sub Text2_LostFocus()
If (Text2.Text <> "") Then
length = Len(Text2.Text)
i = 0
gap = 1
Do Until i = length
c = (Asc(Right(Text2.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
MsgBox ("Please Enter Only Characters")
End If
End Sub
Private Sub Text2_LostFocus()
If (Text2.Text <> "") Then
length = Len(Text2.Text)
i = 0
gap = 1
Do Until i = length
c = (Asc(Right(Text2.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
MsgBox ("Please Enter Only Characters")
Page | 92
Text2.SetFocus
Command4.Enabled = False
Else
If (Text1.Text <> "") Then
Command4.Enabled = True
Else
Command4.Enabled = False
End If
End If
Else
Command4.Enabled = False
End If
End Sub
8. Customer Information
Text2.SetFocus
Command4.Enabled = False
Else
If (Text1.Text <> "") Then
Command4.Enabled = True
Else
Command4.Enabled = False
End If
End If
Else
Command4.Enabled = False
End If
End Sub
8. Customer Information
Page | 93
Private Sub Command1_Click()
Main_Interface.Enabled = True
Unload Me
End Sub
Private Sub Command16_Click()
Unload Me
Main_Interface.Show
Main_Interface.Enabled = True
End Sub
Private Sub Command17_Click()
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
Private Sub Command1_Click()
Main_Interface.Enabled = True
Unload Me
End Sub
Private Sub Command16_Click()
Unload Me
Main_Interface.Show
Main_Interface.Enabled = True
End Sub
Private Sub Command17_Click()
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
Frame3.Visible = False
Frame1.Visible = True
Command1.SetFocus
Label2.Caption = .Fields(0)
Label8.Caption = .Fields(1)
Label10.Caption = .Fields(2)
Label11.Caption = .Fields(3)
Label12.Caption = .Fields(8)
Label13.Caption = .Fields(4)
Else
MsgBox ("Wrong Id or Password::Try again"), vbCritical, ("Mcdonald's")
Text1.Text = ""
Text2.Text = ""
Text2.SetFocus
End If
End With
Else
MsgBox ("Fill the Details Correctly"), vbCritical, ("Mcdonald's")
Text2.SetFocus
End If
End Sub
.MoveNext
Loop
If check = 1 Then
Frame3.Visible = False
Frame1.Visible = True
Command1.SetFocus
Label2.Caption = .Fields(0)
Label8.Caption = .Fields(1)
Label10.Caption = .Fields(2)
Label11.Caption = .Fields(3)
Label12.Caption = .Fields(8)
Label13.Caption = .Fields(4)
Else
MsgBox ("Wrong Id or Password::Try again"), vbCritical, ("Mcdonald's")
Text1.Text = ""
Text2.Text = ""
Text2.SetFocus
End If
End With
Else
MsgBox ("Fill the Details Correctly"), vbCritical, ("Mcdonald's")
Text2.SetFocus
End If
End Sub
Page | 95
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 = 13 Or KeyCode = 35 Or _
KeyCode = 36 Or KeyCode = 8 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
Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
If Text2.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")
Text2.Text = ""
End If
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 = 13 Or KeyCode = 35 Or _
KeyCode = 36 Or KeyCode = 8 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
Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
If Text2.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")
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
Private Sub Command1_Click()
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"
End If
End Sub
9. Join US
Dim cpass, cmcno
Dim apass, amcno
Dim check
Dim num
Dim a, m As Integer
Private Sub Command1_Click()
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
.Fields(0) = StrConv(Text1.Text, vbProperCase)
.Fields(1) = StrConv(Text2.Text, vbProperCase)
.Fields(2) = StrConv(Text3.Text, vbProperCase)
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
.Fields(0) = StrConv(Text1.Text, vbProperCase)
.Fields(1) = StrConv(Text2.Text, vbProperCase)
.Fields(2) = StrConv(Text3.Text, vbProperCase)
Page | 98
.Fields(3) = StrConv(Text4.Text, vbProperCase)
.Fields(4) = StrConv(Text6.Text, vbProperCase)
.Fields(8) = StrConv(Text5.Text, vbProperCase)
.Update
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Else
End If
Else
apass = 1001
m = 0
If .RecordCount = 0 Then
m = 1
apass = 1001
Else
.MoveFirst
Do Until ju.EOF
If .Fields(5).Value > m Then
m = .Fields(5).Value
.Fields(3) = StrConv(Text4.Text, vbProperCase)
.Fields(4) = StrConv(Text6.Text, vbProperCase)
.Fields(8) = StrConv(Text5.Text, vbProperCase)
.Update
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Else
End If
Else
apass = 1001
m = 0
If .RecordCount = 0 Then
m = 1
apass = 1001
Else
.MoveFirst
Do Until ju.EOF
If .Fields(5).Value > m Then
m = .Fields(5).Value
Page | 99
apass = apass + 11
End If
.MoveNext
Loop
m = m + 1
End If
.AddNew
amcno = "MCcn" & Format(m, "0000")
.Fields(0) = StrConv(Text1.Text, vbProperCase)
.Fields(1) = StrConv(Text2.Text, vbProperCase)
.Fields(2) = StrConv(Text3.Text, vbProperCase)
.Fields(3) = StrConv(Text4.Text, vbProperCase)
.Fields(4) = StrConv(Text6.Text, vbProperCase)
.Fields(5) = m
.Fields(6) = amcno
.Fields(7) = apass
.Fields(8) = StrConv(Text5.Text, vbProperCase)
.Update
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
apass = apass + 11
End If
.MoveNext
Loop
m = m + 1
End If
.AddNew
amcno = "MCcn" & Format(m, "0000")
.Fields(0) = StrConv(Text1.Text, vbProperCase)
.Fields(1) = StrConv(Text2.Text, vbProperCase)
.Fields(2) = StrConv(Text3.Text, vbProperCase)
.Fields(3) = StrConv(Text4.Text, vbProperCase)
.Fields(4) = StrConv(Text6.Text, vbProperCase)
.Fields(5) = m
.Fields(6) = amcno
.Fields(7) = apass
.Fields(8) = StrConv(Text5.Text, vbProperCase)
.Update
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Page |
100
Frame2.Visible = True
Join_us.Label15.Caption = amcno
Join_us.Label16.Caption = apass
End If
End If
End With
End Sub
Private Sub Command2_Click()
Main_Interface.Show
Unload Me
End Sub
Private Sub Command3_Click()
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
100
Frame2.Visible = True
Join_us.Label15.Caption = amcno
Join_us.Label16.Caption = apass
End If
End If
End With
End Sub
Private Sub Command2_Click()
Main_Interface.Show
Unload Me
End Sub
Private Sub Command3_Click()
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
Frame1.Visible = False
Text1.Text = .Fields(0)
Text2.Text = .Fields(1)
Text3.Text = .Fields(2)
Text4.Text = .Fields(3)
Text5.Text = .Fields(8)
Text6.Text = .Fields(4)
Else
Frame1.Visible = True
MsgBox ("Enter Correct ID And Password")
Text7.Text = ""
Text8.Text = ""
End If
End With
End If
End Sub
Private Sub Command4_Click()
101
Exit Do
Else
check = 0
End If
.MoveNext
Loop
If (check = 1) Then
Frame1.Visible = False
Text1.Text = .Fields(0)
Text2.Text = .Fields(1)
Text3.Text = .Fields(2)
Text4.Text = .Fields(3)
Text5.Text = .Fields(8)
Text6.Text = .Fields(4)
Else
Frame1.Visible = True
MsgBox ("Enter Correct ID And Password")
Text7.Text = ""
Text8.Text = ""
End If
End With
End If
End Sub
Private Sub Command4_Click()
Page |
102
Frame1.Visible = False
End Sub
Private Sub Command5_Click()
Frame2.Visible = False
End Sub
Private Sub Form_Load()
Timer1.Enabled = True
Frame1.Visible = False
End Sub
Private Sub Label10_Click()
Frame1.Visible = True
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If (Text1.Text = "") Then
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
102
Frame1.Visible = False
End Sub
Private Sub Command5_Click()
Frame2.Visible = False
End Sub
Private Sub Form_Load()
Timer1.Enabled = True
Frame1.Visible = False
End Sub
Private Sub Label10_Click()
Frame1.Visible = True
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If (Text1.Text = "") Then
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
Private Sub Text3_KeyUp(KeyCode As Integer, Shift As Integer)
If (Text3.Text = "") Then
Else
If ((KeyCode >= 48 And KeyCode <= 57) Or (KeyCode >= 96 And KeyCode <= 105)
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")
Text3.Text = ""
End If
End If
End Sub
Private Sub Text5_KeyUp(KeyCode As Integer, Shift As Integer)
If (Text5.Text = "") Then
Else
103
End If
End If
End Sub
Private Sub Text3_KeyUp(KeyCode As Integer, Shift As Integer)
If (Text3.Text = "") Then
Else
If ((KeyCode >= 48 And KeyCode <= 57) Or (KeyCode >= 96 And KeyCode <= 105)
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")
Text3.Text = ""
End If
End If
End Sub
Private Sub Text5_KeyUp(KeyCode As Integer, Shift As Integer)
If (Text5.Text = "") Then
Else
Page |
104
If ((KeyCode >= 48 And KeyCode <= 57) Or (KeyCode >= 96 And KeyCode <= 105)
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")
Text5.Text = ""
End If
End If
End Sub
Private Sub Text5_LostFocus()
If Text5.Text = "" Then
ElseIf (Val(Text5.Text) < 5000) Then
MsgBox ("Membership Amount is NOT < 5000")
Text5.SetFocus
End If
End Sub
Private Sub Text6_KeyUp(KeyCode As Integer, Shift As Integer)
If (Text6.Text = "") Then
Else
If ((KeyCode >= 48 And KeyCode <= 57) Or (KeyCode >= 96 And KeyCode <= 105)
Or KeyCode = 13 Or KeyCode = 8 Or KeyCode = 35 _
Or KeyCode = 36 Or KeyCode = 16 Or Key Code = 37 Or KeyCode = 38 Or
KeyCode = 39 Or KeyCode = 40) Then
Else
104
If ((KeyCode >= 48 And KeyCode <= 57) Or (KeyCode >= 96 And KeyCode <= 105)
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")
Text5.Text = ""
End If
End If
End Sub
Private Sub Text5_LostFocus()
If Text5.Text = "" Then
ElseIf (Val(Text5.Text) < 5000) Then
MsgBox ("Membership Amount is NOT < 5000")
Text5.SetFocus
End If
End Sub
Private Sub Text6_KeyUp(KeyCode As Integer, Shift As Integer)
If (Text6.Text = "") Then
Else
If ((KeyCode >= 48 And KeyCode <= 57) Or (KeyCode >= 96 And KeyCode <= 105)
Or KeyCode = 13 Or KeyCode = 8 Or KeyCode = 35 _
Or KeyCode = 36 Or KeyCode = 16 Or Key Code = 37 Or KeyCode = 38 Or
KeyCode = 39 Or KeyCode = 40) Then
Else
Page |
105
MsgBox ("Not Allowed")
Text6.Text = ""
End If
End If
End Sub
Private Sub Text7_KeyUp(KeyCode As Integer, Shift As Integer)
If Text7.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")
Text7.Text = ""
End If
End If
End Sub
Private Sub Text8_KeyUp(KeyCode As Integer, Shift As Integer)
If (Text8.Text = "") Then
Else
If ((KeyCode >= 48 And KeyCode <= 57) Or (KeyCode >= 96 And KeyCode <= 105)
Or KeyCode = 13 Or KeyCode = 35 Or _
105
MsgBox ("Not Allowed")
Text6.Text = ""
End If
End If
End Sub
Private Sub Text7_KeyUp(KeyCode As Integer, Shift As Integer)
If Text7.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")
Text7.Text = ""
End If
End If
End Sub
Private Sub Text8_KeyUp(KeyCode As Integer, Shift As Integer)
If (Text8.Text = "") Then
Else
If ((KeyCode >= 48 And KeyCode <= 57) Or (KeyCode >= 96 And KeyCode <= 105)
Or KeyCode = 13 Or KeyCode = 35 Or _
Page |
106
KeyCode = 36 Or KeyCode = 8 Or KeyCode = 37 Or KeyCode = 38 Or KeyCode =
39 Or KeyCode = 40) Then
Else
MsgBox ("Not Allowed")
Text8.Text = ""
End If
End If
End Sub
Private Sub Timer1_Timer()
If a = 0 Then
Label8.Caption = " "
Label8.Caption = "I"
a = 1
ElseIf a = 1 Then
Label8.Caption = " "
Label8.Caption = "I m"
a = 2
ElseIf a = 2 Then
Label8.Caption = " "
Label8.Caption = "I m l"
a = 3
ElseIf a = 3 Then
Label8.Caption = " "
Label8.Caption = "I m lo"
106
KeyCode = 36 Or KeyCode = 8 Or KeyCode = 37 Or KeyCode = 38 Or KeyCode =
39 Or KeyCode = 40) Then
Else
MsgBox ("Not Allowed")
Text8.Text = ""
End If
End If
End Sub
Private Sub Timer1_Timer()
If a = 0 Then
Label8.Caption = " "
Label8.Caption = "I"
a = 1
ElseIf a = 1 Then
Label8.Caption = " "
Label8.Caption = "I m"
a = 2
ElseIf a = 2 Then
Label8.Caption = " "
Label8.Caption = "I m l"
a = 3
ElseIf a = 3 Then
Label8.Caption = " "
Label8.Caption = "I m lo"
Page |
107
a = 4
ElseIf a = 4 Then
Label8.Caption = " "
Label8.Caption = "I m lov"
a = 5
ElseIf a = 5 Then
Label8.Caption = " "
Label8.Caption = "I m lovi"
a = 6
ElseIf a = 6 Then
Label8.Caption = " "
Label8.Caption = "I m lovin"
a = 7
ElseIf a = 7 Then
Label8.Caption = " "
Label8.Caption = "I m lovin i"
a = 8
ElseIf a = 8 Then
Label8.Caption = " "
Label8.Caption = "I m lovin it"
a = 9
ElseIf a = 9 Then
Label8.Caption = " "
Label8.Caption = " "
a = 0
End If
End Sub
107
a = 4
ElseIf a = 4 Then
Label8.Caption = " "
Label8.Caption = "I m lov"
a = 5
ElseIf a = 5 Then
Label8.Caption = " "
Label8.Caption = "I m lovi"
a = 6
ElseIf a = 6 Then
Label8.Caption = " "
Label8.Caption = "I m lovin"
a = 7
ElseIf a = 7 Then
Label8.Caption = " "
Label8.Caption = "I m lovin i"
a = 8
ElseIf a = 8 Then
Label8.Caption = " "
Label8.Caption = "I m lovin it"
a = 9
ElseIf a = 9 Then
Label8.Caption = " "
Label8.Caption = " "
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.
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
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
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 3
rd
Year
Dezyne E’Cole College
106/10, Civil Lines, Ajmer
Tel: 0145-2624679
www.dezyneecole.com
2016-2017
111
Thank You
Chandni Sharma
BCA 3
rd
Year
Dezyne E’Cole College
106/10, Civil Lines, Ajmer
Tel: 0145-2624679
www.dezyneecole.com
2016-2017
Download
Download Slideshow Get the original presentation fileQuick Actions
Statistics
- Views 6,899
- Slides 112
- Favorites 5
- Age 2391 days
Related Slideshows
11
8-top-ai-courses-for-customer-support-representatives-in-2025.pptx
JeroenErne2
46 views
10
7-essential-ai-courses-for-call-center-supervisors-in-2025.pptx
JeroenErne2
46 views
13
25-essential-ai-courses-for-user-support-specialists-in-2025.pptx
JeroenErne2
37 views
11
8-essential-ai-courses-for-insurance-customer-service-representatives-in-2025.pptx
JeroenErne2
34 views
21
Know for Certain
DaveSinNM
21 views
17
PPT OPD LES 3ertt4t4tqqqe23e3e3rq2qq232.pptx
novasedanayoga46
26 views