Submitted To:: Guided By: Submitted by
Submitted To:: Guided By: Submitted by
Submitted To:: Guided By: Submitted by
1
INTODUCTION TO
PROJECT
2
Initially, before coming up of computers, the data
processing activity faced many problems such as inaccuracy, in
consistency, delay, improper record maintenance etc detailed
follows:
1. Inaccuracy:
In the existing system the general records and the whole
information are entered in long register which result is
slow access to desired information, besides the
inaccuracy, which is caused due to manual storage of
data.
2. Inconsistency:
Presently, the system is not aware of data duplication
and replication. They maintain records manually which
results in the total being in access of what it should be,
in such a case, the data is inconsistence, which supplies
incorrect information.
3. Redundancy
In the existing system all the data is stored in different
files and registers, this leads to considerable data
duplication and
Redundancy in stored data, leading to wastage of
storing space
4. Improper record maintenance:
3
In the existing systems all the records are maintained on
papers, so it become inconvenient to modify data, in
case of manual errors if the number of mistakes is
abnormally high, then whole set of record may have to
be written again, to avoid any possible error occurring
there will be proper maintenance of records.
5. Time and retrieving problem:
Retrieval of information is a time consuming process
because of large volume of data. Thus if it is required to
trace a particular record a large number of registers
need to be scanned.
6. Updating problem:
In the existing systems everything is stored in a number
of registers, it is quite difficult and time consuming to
update all of them. The major problem encountered is
modification, which must be reflected in all the
enteries.The summaries also needs to be update.
7. Storage Problem:
The volume of data is large, so it required much space to
store it. Everything is stored in registers. This storage can
be damaged with time and due to accidental factors.
Functional Requirement
4
The followings are Functional requirements for Mobile based
users. The Mobile based users may be register customer or visitor
(Guest).
5
CERTIFICATE
Certified that project Entitled “Restaurant
Management” developed in “VISUAL BASIC 6.0 AND MS-
ACCESS” is a bona fide piece of Project work carried by
“Jaspreet Kaur” with Roll No: 10721308121 and “Harpreet
Kaur” with Roll No: 10721308125 Students of BCA final Year,
Dashmesh College For Women , Mehta Chowk under Guru
Nanak Dev University Amritsar. It is certified that it is an original
work out.
The project developed by the group is perfectly
according to the “Restaurant Management” and is fulfilling the
needs. They have shown their sincere dedication and hard work to
develop the Project.
6
ACKNOWLEDGEMENT
This project is an acknowledgement to the intensity, drive and
During this course, many people have rendered us their precious time,
We are very much thankful to our guide and staff Members who inspire of
believe that without his right guidance, this work would not have been
completed.
7
DECLARATION
I swear that the project work being submitted by me entitled “HOTEL
MANAGEMANT SYSTEM” is complete fulfillment of the Bachelor
degree of Computer Application Submitted to “Dashmesh College For
Women, Metha Chowk “is an authentic record of our work carried out
by us in B.C.A. III in the session 2015-16 under the supervisory of Miss
Rupinder Kaur and guidance of Miss Randeep Kaur of computer
science.
We or anybody else for the award of any degree or diploma has not
submitted the matter embodied in this dissertation.
Jaspreet Kaur
Harpreet Kaur
8
PREFACE
After studying this project, you will be able to understand how the
computerization of some organizations is carried out that is the steps
involved in developing this software for the organization.
9
INDEX
Sr.No Topic Name Page No
1. Introduction to Computer 11
10
INTRODUCTION
TO COMPUTER
The impact of computers on our lives today is probably much
more than we are actually aware of Airlines, railways reservation,
telephone and electricity bills, banking, medical diagnosis, weather
forecast etc are some of the notable fields but the list of services using
computers is simply endless.
Computers today help in management of many industrial,
business and personal systems. They can store and maintain huge
amount of data, which is major requirement of above stated
applications, Data is vital element of any system and hence the
management of data is essential for effective retrieval of information
(for example: - tables) and provision for the mechanism for the
manipulation of the information (i.e. Create, modify, delete and add
data).
Effective retrieval of data can save a lot of precious time and
hence increase the productivity of the employee concerned and the
organization as a whole. Not only have that, through proper
organization and management of its contacts and other resources an
organization can move forward on the progress graphed of time with
full throttle.
11
FRONTEND & BACKEND
USED
Initial study
System analysis
12
System design
Program design
Development
Testing
System Implementation
Live running and maintenance
Review
Initial Study:-
It is the first stage of system development life cycle
to development life cycle to development a program and it is based
on the user requirement. The programmer will check the
background of the problems to see If it is possible to solve
them then it will produce feasibility report this report describes
scope of the new system and estimates of time, cost, and benefits.
System analysis & design:
It is a second stage of development of program and it is based on
feasibility report. The programmer will use documentation tools
like flow charts.
Program design:
It is a third stage of development of program. The programmer use
flow charts to make a program design.
13
Development:
When the design is completed the development stage begins to
convert the design into workable solution.
Testing:
After development is completed testing will be
necessary. Test will be carried out according to the schedule
prepared by the programmer. If the problem arises in program it
Can be rectifying in the testing stage.
Implementation:
After the testing of a program implementation stage
begins. In the stage includes the installation of the hardware before
the system handle over user.
Live running and maintenance:
It is stage in which changes may be in the user requirement which
have not been included in the first place due to misunderstanding
between the user and the programmer.
Review:
14
Is the stage in which user again reviewed the program the review
should be carried out by the parson who has not been included in
design development.
STAGES:
1.RECOGITION
OF What is the System of
NEED problem or scope and
Initial
investigation.
2. Analysis
alternative Data
15
system. facts? Data flow
3. Design
specification analysis.
Specifically,
Output how must the Hardware
specification
Input Problem is
cost estimation
Files solved?
implementation
Procedure What is the
specification
system flow?
Program
Construction Implementation
16
Testing Does the user schedule
Formal system
test.
4.
Implementation What is actual Training
user training operation? program
Are there
delays in
17
loading
Files?
5.post
implementation Is the key User’s
and maintenance system requirement
PROJECT ANALYSIS
Analysis is detailed study of various operation performed by the
system and their relationship within and outside the system. Outside
factor also plays major role in the system like government, vendors,
18
customers etc. A key question is what must be done to solve the
problem? One aspect of the analysis is defining the boundaries of the
system and determining whether or not a candidate system should
consider other related systems.
During analysis, data are collected on available files, decision
points and transaction handled by the present system. There are many
tools, which are available to do the analysis part like interview,
questionnaire, fact analysis and review of written documents after all
these tools flow charts or decision tables are built which clearly shows
the problem. The interview is a commonly used tool in analysis. The
analysis require special skill to the subject being interview and the way
in which interview is taken. Bias in data collection and interpretation
can be a problem. Training, experience and common sense are required
for collection of the information needed to do the analysis .With the
corporation and satisfaction of the user staff analysis part can be
successfully taken. In analysis, we design the system logically that is how
the system will look like, after the analysis part we move from logical
system to physical system that is how actually the system will be. So
after analysis that is logical there is a physical part called design that is
very important stage in system development life cycle.
Once analysis is completed, the analyst has a firm understanding
of what is to be done. The next step is to decide how the problem might
be solved. Thus, in system design, we move from the logical to the
physical aspects of the life cycle.
SYSTEM ANALYSIS
19
Before we start studying the system we are to known with the term
system. What is system? The term system is derived from the Greek
word system a, which means an organized relationship among
functioning units or components. A system exists because it is designed
to achieve one or more objective.
The term system refers to an orderly grouping of interdependent
components linked together according to a plan to achieve a specific
objective. The idea of system becomes most practical and necessary in
conceptualizing the interrelationship and integration of operations
especially when using computers. Thus, a system is a way of thinking of
organizations and their problems. It involves a set of techniques that
helps in solving the problems. A system has many elements these are
input and output processors, control, feedback, environment, boundary
and interface. System takes input from outside and gives output to
outside. So practically system is an open system that interacts with the
environment.
20
In the present study, a system is an integrated collection of programs
and data files. The combination of all these programs and databases
made this system. The process of designing a system is not done in one
phase. It consists of many phases can be seen comprising of four phases:
INITIAL INVESTIGATION:
This is the first step in system development life cycle. For making a
project, it is very important to understand the overall working of the
system. To know about the overall working of the system initial
investigation is carried out. Initial investigation helps to identify the
need. To make a candidate system request is given by the user either to
change the system, improve or enhance the existing or to make the new
system. Requests are coming because of limitation in the present system
or here may not system available. In our case, there is no running
software. For giving response to user request, standard procedure must
be established to deal with them.
So this project is based on “HOTAL MANAGEMENT SYSTEM”
to handle all the procedure how the information about the
members/non-members, their booking, cancellation, extension etc is
handled using the computer. And the management of systems is done.
For example while maintaining the booking, cancellation,
extension of systems in the school manually, it becomes a cumbersome
process as it takes a lot of time to evaluate whether the system is booked
21
or free and in case if system is booked, it is required to differentiate that
whether the user using a particular system is member or non member in
the school. Also it takes lot of time to calculate the booking time of each
system. Where as in our case using this software it would be very easy to
calculate information about the system booked for a particular time
span.
As system analysts, we asked the user what information is
currently available and what other information is required. This
interaction leads to an
Agreement about what information will be provided by the candidate
system? However, as human has problem in specifying information
requirements. Mostly users cannot give his full requirements that user
want from the candidate system. So the following difficulty arises.
2) Users are influenced more by recent events than by the past events.
Thus an information need that was discovered tends to carry greater
weigh than a need experienced in the distant past. This is called regency
effect.
22
INFORMATION GATHERING:
After defining the problem, the next step in the system analysis is to
gather information. Information gathering is an art and science. The
approach and manner in which information is gathered require persons
with sensitivity, commonsense and knowledge of what and when to
gather and what channels to use in securing information. This means
that information getting is neither easy nor routine. Much preparation,
experience and training are required. Before one determines where to
go for information or what tool to use, the first requirement is to figure
out what information to gather. The approach and the manner in which
the information is gathered require a person with sensitivity, skill and
common sense of the following: -
1) Purpose of gathering information
2) What and when to gather
3) Source of information
4) What channel to use in securing the information
FEASIBILITY STUDY
23
Many feasibility studies are disillusioning for both user and
analysts. First the study often presupposes that when the feasibility
document is prepared, the analysts are in position to evaluate solutions.
Second most studies tend to overlook, the confusion inherent in system
development the constraints and the assumed attitudes. If the feasibility
study is to serve a decision document it must answer three questions.
1. Is there a new and better way to do job that will benefit the user?
2. What are the costs and savings of the alternatives?
3. What is recommended?
Feasibility Considrations:
24
Technical Feasibility:
Technical feasibility centers on the existing computer system (hardware,
software etc) and to what extent it can support the proposed edition. For
example, if the current system ids operating 80% capacity –and
arbitrary ceiling – then running another application could overload the
system or required additional hardware. This involves financial
consideration to accommodate technical enhancements. If the budget is
a serious constraint, then the project is judged not feasible. The
proposed system was found to be technically feasible in all aspects.
Economical Feasibility:
Economic analysis is the most frequently used method for evaluating
the effectiveness of the candidate system. More commonly known as
COST/BENEFIT analysis. The procedure is to determine the benefits
and compare them with costs. If the benefits outweigh the cost then the
decision is made to design and implement the system. Otherwise,
further justification or alternation in the purposed system will have to
be made if it is to have chance of being approved.
Behavioral Feasibility:
25
computerized system. It is common knowledge that computer
installations have something to do within turnover, transfers, refraining
and change in the employee job status. Therefore, it is understandable
that the introduction of candidate system requires special effort to
educate, sell, and train the staff on the new ways of conducting business.
Feasibility study involves eight steps Form a project team and appoint a
project leader. Prepare system flow charts. Enumerate potential
candidate system. Describe and identify characteristics of the candidate
system. Determine and evaluate performance and cost effectiveness of
each candidate system.
26
HARDWARE & SOFTWARE
REQUIRMENTS
HARDWARE REQUIREMENTS
Memory : 60 MB free
Monitor : 17”, 21” Colored Monitor/ LCD
RAM : 1-GB
Printer : Inkjet/laser
CD R/W : 52 xs
27
PROJECT DESIGN
The most creative and challenging of the system life cycle is system
design. The term design describes the final system and the process by
which it is developed. It refers to the technical specifications that will be
applied to implement the candidate system. It also includes the
construction of programs and program testing. The key question is
here: how should the problem is solved.
System design is a solution, a “how to” approach to the creation of
a new system. The term design describes a final system and the process
by which it is developed. It provides the understanding and procedural
details necessary for implementing the system recommended in the
feasibility study. Emphasis on translating the performance requirement
into design specifications. Design goes through both logical and physical
stages of development. Logical design reviews the present physical
system, prepares input and output specification, and makes edit security
and control specifications. The physical design maps out the details of
the physical system, plans the system implementation, devises a test and
implementation plan, and specifies any new hardware and software.
Design includes the construction of programs and program testing. The
first step is to determined how the output is to be produced and in what
format.
28
Second input data and master files (data bases) have to be design
to meets the requirement of the proposed output. The operational
phases are handled through program construction and testing,
including a list of program needed to meet the system’s objective and
complete documentation. The final report prior to the implementation
phase includes procedural flow charts, record lay out and workable
plan for implementing the candidate system. Information is personnel,
money, hardware, facilities, and their estimated cost must also be
available. At this point, projected cost must be close to actual costs of
implementation. In design phase forms are formed for ideal computer
output and databases are designed. Databases are consisting of files,
files consist of records, records consist of data items and data items are
consist of bytes. Database administrator does this job.
System design is a solution, a how to approach to the creation of a
new system. This important phase is composed of several Steps. It
provides the understanding and procedural details necessary for
implementing the system recommended in the feasibility study. Stress is
on translating performance requirements into design specification.
Design goes through logical physical stages of development. Logical
design reviews the present physical, prepares input and output
specifications.
A schematic ways has to follow to achieve beneficial results at the end
.it involves starting with a vague idea and ultimating starting with a new
system the d design phase is transitioned from user oriented to a
programmer database personal. Various steps are involved in system
design. These steps are as follows: -
1) Problem definition.
29
2) Input – output specification.
3) Database design.
4) Modular program design.
5) Preparation of source code.
6) Testing and debugging.
Process of design: -
Logical and physical design, Data flow diagram shows the logical flow of
the system. It basically described the input of the system, the database
used and the procedure depicting the flow of data, all in a format that is
understandable to the user. The design covers the following:
1) Review the current physical system and its dataflow. File contents
volumes, frequencies.
2) Prepare output specification: that is determining the format,
contents and frequencies of reports, including terminal specifications
and locations.
3) Prepare input specifications: that is format, contents and the most of
the input function.
4) Prepare edit, control and security specification, which includes
specifying the back procedure, and controls that ensures file
integrity.
30
INPUT DESIGN
Inaccurate input data are the most common cause of errors in data
processing. Errors entered by data entry operators can be controlled by
input design. Input design is a process of converting user-originated
input to a computer based format. Input data are collected and
organized into groups of similar data. Once identified, appropriate
input media is selected for processing.
31
Input data
The goal of designing the input data is to make data entry easy as well
as free from errors as possible. In entering data, operators needs to
know
The following: -
1. The space allocated to each field.
2. Field sequence, which must match that in source document.
3. The format in which data fields are entered.
Source document:
Source data are captured initially on original paper or source document.
Source data are originally on paper, which is called source document.
Source document may be entered into the system from punched cards,
from diskettes or even from keyboard. A source document may or may
not be retained in the candidate system. Thus, each source document
may be evaluated in terms of
1) Its continued use in the candidate system
32
2) The extent of modification for the candidate system.
3) Replacement by an alternative source document.
OUTPUT DESIGN
Output is the most important and the direct
source of information to the user Efficient, intelligible design includes
system credibility and helps user in decision-making. Efficient
intelligible output design should improve the system relation ship with
the user and help in decision-making. A major form of output is a hard
copy from the printer. Printouts should be designed around the output
requirements of the user. The output devices to consider depends on the
factors
33
34
TABLE STRUCTURE
TABLE # 1
TABLE NAME: - AC
Kaur
35
TABLE # 2
36
ER DIAGRAM FOR RESTAURENT
MANAGEMENT SYSTEM
37
38
39
LOGIN FORM
40
SPLASH FORM
41
ORDERING
42
MENU
43
BREAKFAST
44
LUNCH
45
DINNER
46
ROOM BOOKING
47
GENERAL BOOKING
48
BOOKINgCANCEL
49
VIEW ADDRESS
50
51
REPORT OF AC
ROOM BOOKING
52
REPoRT OF GENERAL
ROOM BOOKING
53
54
Login form
Private Sub Command1_Click ()
If Text1.Text = "m" And Text2.Text = "h" Then
MsgBox ("Login Successful")
Form1.Show
Unload Me
Else
MsgBox ("Incorrect Username or Password")
Text1.Text = ""
Text2.Text = ""
End If
End Sub
Splash form
Private Sub Timer1_Timer ()
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = 100 Then
Unload Me
Form12.Show
Timer1.Enabled = False
End If
Label13.Caption = Val (ProgressBar1.Value) & "%"
End Sub
Menu form
Private Sub Command1_Click ()
If (Combo1.Text = "Lunch") Then
Form4.Show
ElseIf (Combo1.Text = "Breakfast") Then
Form3.Show
ElseIf (Combo1.Text = "Dinner") Then
Form5.Show
End If
End Sub
55
End Sub
Restaurent&hotel room booking form
Private Sub Command1_Click ()
End
End Sub
End Sub
Breakfast form
Private Sub Command1_Click ()
a = MsgBox ("Are u Satisfied?” vbYesNo + vbDefaultButton1, "Taking Order")
If a = vbNo Then
Form3.Check1.Enabled = True
Form3.Check2.Enabled = True
Form3.Check3.Enabled = True
Form3.Check4.Enabled = True
Form3.Check5.Enabled = True
Form3.Check6.Enabled = True
Form3.Check7.Enabled = True
Form3.Check8.Enabled = True
Form3.Check9.Enabled = True
Form3.Check10.Enabled = True
Form3.Check11.Enabled = True
Form3.Check12.Enabled = True
Form3.Check13.Enabled = True
Form3.Check14.Enabled = True
Form3.Check15.Enabled = True
Form3.Check16.Enabled = True
Form3.Check17.Enabled = True
Form3.Check18.Enabled = True
Form3.Check19.Enabled = True
56
Form3.Check20.Enabled = True
Form3.Check21.Enabled = True
Form3.Check22.Enabled = True
Form3.Check23.Enabled = True
Form3.Check24.Enabled = True
Form3.Check25.Enabled = True
Form3.Check26.Enabled = True
Form3.Show
End If
If a = vbYes Then
Form3.Check1.Enabled = False
Form3.Check2.Enabled = False
Form3.Check3.Enabled = False
Form3.Check4.Enabled = False
Form3.Check5.Enabled = False
Form3.Check6.Enabled = False
Form3.Check7.Enabled = False
Form3.Check8.Enabled = False
Form3.Check9.Enabled = False
Form3.Check10.Enabled = False
Form3.Check11.Enabled = False
Form3.Check12.Enabled = False
Form3.Check13.Enabled = False
Form3.Check14.Enabled = False
Form3.Check15.Enabled = False
Form3.Check16.Enabled = False
Form3.Check17.Enabled = False
Form3.Check18.Enabled = False
Form3.Check19.Enabled = False
Form3.Check20.Enabled = False
Form3.Check21.Enabled = False
Form3.Check22.Enabled = False
Form3.Check23.Enabled = False
Form3.Check24.Enabled = False
Form3.Check25.Enabled = False
Form3.Check26.Enabled = False
Form6.Show
End If
If a = vbYes Then
Form6.Show
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
57
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
a1 = 0
If Form3.Check1.Value = vbChecked Then
a1 = Form3.Label5.Caption * Val (Form3.Text1.Text)
Form6.Print Space (38) & Form3.Check1.Caption & Space (12) &
Form3.Label5.Caption & Space (13) & Val (Form3.Text1.Text) & Space (13) & (a1)
End If
a2 = 0
If Form3.Check2.Value = vbChecked Then
a2 = Form3.Label6.Caption * Val (Form3.Text2.Text)
Form6.Print Space (38) & Form3.Check2.Caption & Space (12) &
Form3.Label6.Caption & Space (12) & Val (Form3.Text2.Text) & Space (12) & (a2)
End If
a3 = 0
If Form3.Check3.Value = vbChecked Then
a3 = Form3.Label7.Caption * Val (Form3.Text3.Text)
Form6.Print Space (38) & Form3.Check3.Caption & Space (12) &
Form3.Label7.Caption & Space (12) & Val (Form3.Text3.Text) & Space (12) & (a3)
End If
a4 = 0
If Form3.Check4.Value = vbChecked Then
a4 = Form3.Label8.Caption * Val (Form3.Text4.Text)
Form6.Print Space (38) & Form3.Check4.Caption & Space (12) &
Form3.Label8.Caption & Space (12) & Val (Form3.Text4.Text) & Space (12) & (a4)
End If
a5 = 0
If Form3.Check5.Value = vbChecked Then
a5 = Form3.Label9.Caption * Val (Form3.Text5.Text)
Form6.Print Space (38) & Form3.Check5.Caption & Space (12) &
Form3.Label9.Caption & Space (12) & Val (Form3.Text5.Text) & Space (12) & (a5)
End If
a6 = 0
If Form3.Check6.Value = vbChecked Then
a6 = Form3.Label10.Caption * Val (Form3.Text6.Text)
Form6.Print Space (38) & Form3.Check6.Caption & Space (12) &
Form3.Label10.Caption & Space (12) & Val (Form3.Text6.Text) & Space (12) &
(a6)
58
End If
a7 = 0
If Form3.Check7.Value = vbChecked Then
a7 = Form3.Label11.Caption * Val (Form3.Text7.Text)
Form6.Print Space (38) & Form3.Check7.Caption & Space (12) &
Form3.Label11.Caption & Space (12) & Val (Form3.Text7.Text) & Space (12) & (a7)
End If
a8 = 0
If Form3.Check8.Value = vbChecked Then
a8 = Form3.Label15.Caption * Val (Form3.Text8.Text)
Form6.Print Space (38) & Form3.Check8.Caption & Space (12) &
Form3.Label15.Caption & Space (12) & Val (Form3.Text8.Text) & Space (12) &
(a8)
End If
a9 = 0
If Form3.Check9.Value = vbChecked Then
a9 = Form3.Label16.Caption * Val (Form3.Text9.Text)
Form6.Print Space (38) & Form3.Check9.Caption & Space (12) &
Form3.Label16.Caption & Space (12) & Val (Form3.Text9.Text) & Space (12) &
(a9)
End If
a10 = 0
If Form3.Check10.Value = vbChecked Then
a10 = Form3.Label17.Caption * Val (Form3.Text10.Text)
Form6.Print Space (38) & Form3.Check10.Caption & Space (12) &
Form3.Label17.Caption & Space (12) & Val (Form3.Text10.Text) & Space (12) &
(a10)
End If
a11 = 0
If Form3.Check11.Value = vbChecked Then
a11 = Form3.Label18.Caption * Val (Form3.Text11.Text)
Form6.Print Space (38) & Form3.Check11.Caption & Space (12) &
Form3.Label18.Caption & Space (12) & Val (Form3.Text11.Text) & Space (12) &
(a11)
End If
a12 = 0
If Form3.Check12.Value = vbChecked Then
a12 = Form3.Label19.Caption * Val (Form3.Text12.Text)
Form6.Print Space (38) & Form3.Check12.Caption & Space (12) &
Form3.Label19.Caption & Space (12) & Val (Form3.Text12.Text) & Space (12) &
(a12)
End If
a13 = 0
If Form3.Check13.Value = vbChecked Then
a13 = Form3.Label20.Caption * Val(Form3.Text13.Text)
59
Form6.Print Space (38) & Form3.Check13.Caption & Space (12) &
Form3.Label20.Caption & Space (12) & Val (Form3.Text13.Text) & Space (12) &
(a13)
End If
a14 = 0
If Form3.Check14.Value = vbChecked Then
a14 = Form3.Label21.Caption * Val (Form3.Text14.Text)
Form6.Print Space (38) & Form3.Check14.Caption & Space (12) &
Form3.Label21.Caption & Space (12) & Val (Form3.Text14.Text) & Space (12) &
(a14)
End If
a15 = 0
If Form3.Check15.Value = vbChecked Then
a15 = Form3.Label25.Caption * Val (Form3.Text15.Text)
Form6.Print Space (38) & Form3.Check15.Caption & Space (12) &
Form3.Label25.Caption & Space (12) & Val (Form3.Text15.Text) & Space (12) &
(a15)
End If
a16 = 0
If Form3.Check16.Value = vbChecked Then
a16 = Form3.Label26.Caption * Val (Form3.Text16.Text)
Form6.Print Space (38) & Form3.Check16.Caption & Space (12) &
Form3.Label26.Caption & Space (12) & Val (Form3.Text16.Text) & Space (12) &
(a16)
End If
a17 = 0
If Form3.Check17.Value = vbChecked Then
a17 = Form3.Label27.Caption * Val (Form3.Text17.Text)
Form6.Print Space (38) & Form3.Check17.Caption & Space (12) &
Form3.Label27.Caption & Space (12) & Val (Form3.Text17.Text) & Space (12) &
(a17)
End If
a18 = 0
If Form3.Check18.Value = vbChecked Then
a18 = Form3.Label28.Caption * Val (Form3.Text18.Text)
Form6.Print Space (38) & Form3.Check18.Caption & Space (12) &
Form3.Label28.Caption & Space (12) & Val (Form3.Text18.Text) & Space (12) &
(a18)
End If
a19 = 0
If Form3.Check19.Value = vbChecked Then
a19 = Form3.Label29.Caption * Val (Form3.Text19.Text)
Form6.Print Space (38) & Form3.Check19.Caption & Space (12) &
Form3.Label29.Caption & Space (12) & Val (Form3.Text19.Text) & Space (12) &
(a19)
End If
60
a20 = 0
If Form3.Check20.Value = vbChecked Then
a20 = Form3.Label30.Caption * Val (Form3.Text20.Text)
Form6.Print Space (38) & Form3.Check20.Caption & Space (12) &
Form3.Label30.Caption & Space (12) & Val (Form3.Text20.Text) & Space (12) &
(a20)
End If
a21 = 0
If Form3.Check21.Value = vbChecked Then
a21 = Form3.Label31.Caption * Val (Form3.Text21.Text)
Form6.Print Space (38) & Form3.Check21.Caption & Space (12) &
Form3.Label31.Caption & Space (12) & Val (Form3.Text21.Text) & Space (12) &
(a21)
End If
a22 = 0
If Form3.Check22.Value = vbChecked Then
a22 = Form3.Label35.Caption * Val (Form3.Text22.Text)
Form6.Print Space (38) & Form3.Check22.Caption & Space (12) &
Form3.Label35.Caption & Space (12) & Val (Form3.Text22.Text) & Space (12) &
(a22)
End If
a23 = 0
If Form3.Check23.Value = vbChecked Then
a23 = Form3.Label36.Caption * Val (Form3.Text23.Text)
Form6.Print Space (38) & Form3.Check23.Caption & Space (12) &
Form3.Label36.Caption & Space (12) & Val (Form3.Text23.Text) & Space (12) &
(a23)
End If
a24 = 0
If Form3.Check24.Value = vbChecked Then
a24 = Form3.Label37.Caption * Val (Form3.Text24.Text)
Form6.Print Space (38) & Form3.Check24.Caption & Space (12) &
Form3.Label37.Caption & Space (12) & Val (Form3.Text24.Text) & Space (12) &
(a24)
End If
a25 = 0
If Form3.Check25.Value = vbChecked Then
a25 = Form3.Label38.Caption * Val (Form3.Text25.Text)
Form6.Print Space (38) & Form3.Check25.Caption & Space (12) &
Form3.Label38.Caption & Space (12) & Val (Form3.Text25.Text) & Space (12) &
(a25)
End If
a26 = 0
If Form3.Check26.Value = vbChecked Then
a26 = Form3.Label39.Caption * Val (Form3.Text26.Text)
61
Form6.Print Space (38) & Form3.Check26.Caption & Space (12) &
Form3.Label39.Caption & Space (12) & Val (Form3.Text26.Text) & Space (12) &
(a26)
End If
Total = 0
Total = a1 + a2 + a3 + a4 + a5 + a6 + a7 + a8 + a9 + a10 + a11 + a12 + a13 + a14 +
a15 + a16 + a17 + a18 + a19 + a20 + a21 + a22 + a23 + a24 + a25 + a26
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print Space (35); "Total Amount= " & Space (35) & (total)
End If
End Sub
Lunch form
Private Sub Command1_Click ()
a = MsgBox ("Are you Satisfied?” vbYesNo + vbDefaultButton1, "Taking Order")
If a = vbNo Then
Form4.Check1.Enabled = True
Form4.Check2.Enabled = True
Form4.Check3.Enabled = True
Form4.Check4.Enabled = True
Form4.Check5.Enabled = True
Form4.Check6.Enabled = True
Form4.Check7.Enabled = True
Form4.Check8.Enabled = True
Form4.Check9.Enabled = True
Form4.Check10.Enabled = True
Form4.Check11.Enabled = True
Form4.Check12.Enabled = True
Form4.Check13.Enabled = True
Form4.Check14.Enabled = True
Form4.Check15.Enabled = True
62
Form4.Check16.Enabled = True
Form4.Check17.Enabled = True
Form4.Check18.Enabled = True
Form4.Check19.Enabled = True
Form4.Check20.Enabled = True
Form4.Check21.Enabled = True
Form4.Check22.Enabled = True
Form4.Check23.Enabled = True
Form4.Check24.Enabled = True
Form4.Check25.Enabled = True
Form4.Check26.Enabled = True
Form4.Check27.Enabled = True
Form4.Check28.Enabled = True
Form4.Check29.Enabled = True
Form4.Check30.Enabled = True
End If
If a = vbYes Then
Form4.Check1.Enabled = False
Form4.Check2.Enabled = False
Form4.Check3.Enabled = False
Form4.Check4.Enabled = False
Form4.Check5.Enabled = False
Form4.Check6.Enabled = False
Form4.Check7.Enabled = False
Form4.Check8.Enabled = False
Form4.Check9.Enabled = False
Form4.Check10.Enabled = False
Form4.Check11.Enabled = False
Form4.Check12.Enabled = False
Form4.Check13.Enabled = False
Form4.Check14.Enabled = False
Form4.Check15.Enabled = False
Form4.Check16.Enabled = False
Form4.Check17.Enabled = False
Form4.Check18.Enabled = False
Form4.Check19.Enabled = False
Form4.Check20.Enabled = False
Form4.Check21.Enabled = False
Form4.Check22.Enabled = False
Form4.Check23.Enabled = False
Form4.Check24.Enabled = False
Form4.Check25.Enabled = False
Form4.Check26.Enabled = False
Form4.Check27.Enabled = False
Form4.Check28.Enabled = False
Form4.Check29.Enabled = False
63
Form4.Check30.Enabled = False
Form6.Show
End If
If a = vbYes Then
Form6.Show
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
a1 = 0
If Form4.Check1.Value = vbChecked Then
a1 = Form4.Label5.Caption * Val (Form4.Text1.Text)
Form6.Print Space (38) & Form4.Check1.Caption & Space (12) &
Form4.Label5.Caption & Space (13) & Val (Form4.Text1.Text) & Space (13) & (a1)
End If
a2 = 0
If Form4.Check2.Value = vbChecked Then
a2 = Form4.Label6.Caption * Val (Form4.Text2.Text)
Form6.Print Space (38) & Form4.Check2.Caption & Space (12) &
Form4.Label6.Caption & Space (12) & Val (Form4.Text2.Text) & Space (12) & (a2)
End If
a3 = 0
If Form4.Check3.Value = vbChecked Then
a3 = Form4.Label7.Caption * Val (Form4.Text3.Text)
Form6.Print Space (38) & Form4.Check3.Caption & Space (12) &
Form4.Label7.Caption & Space (12) & Val (Form4.Text3.Text) & Space (12) & (a3)
End If
a4 = 0
If Form4.Check4.Value = vbChecked Then
a4 = Form4.Label8.Caption * Val (Form4.Text4.Text)
Form6.Print Space (38) & Form4.Check4.Caption & Space (12) &
Form4.Label8.Caption & Space (12) & Val (Form4.Text4.Text) & Space (12) & (a4)
End If
64
a5 = 0
If Form4.Check5.Value = vbChecked Then
a5 = Form4.Label9.Caption * Val (Form4.Text5.Text)
Form6.Print Space (38) & Form4.Check5.Caption & Space (12) &
Form4.Label9.Caption & Space (12) & Val (Form4.Text5.Text) & Space (12) & (a5)
End If
a6 = 0
If Form4.Check6.Value = vbChecked Then
a6 = Form4.Label10.Caption * Val (Form4.Text6.Text)
Form6.Print Space (38) & Form4.Check6.Caption & Space (12) &
Form4.Label10.Caption & Space (12) & Val (Form4.Text6.Text) & Space (12) &
(a6)
End If
a7 = 0
If Form4.Check7.Value = vbChecked Then
a7 = Form4.Label11.Caption * Val (Form4.Text7.Text)
Form6.Print Space (38) & Form4.Check7.Caption & Space (12) &
Form4.Label11.Caption & Space (12) & Val (Form4.Text7.Text) & Space (12) & (a7)
End If
a8 = 0
If Form4.Check8.Value = vbChecked Then
a8 = Form4.Label12.Caption * Val (Form4.Text8.Text)
Form6.Print Space (38) & Form4.Check8.Caption & Space (12) &
Form4.Label12.Caption & Space (12) & Val (Form4.Text8.Text) & Space (12) &
(a8)
End If
a9 = 0
If Form4.Check9.Value = vbChecked Then
a9 = Form4.Label13.Caption * Val (Form4.Text9.Text)
Form6.Print Space (38) & Form4.Check9.Caption & Space (12) &
Form4.Label13.Caption & Space (12) & Val (Form4.Text9.Text) & Space (12) &
(a9)
End If
a10 = 0
If Form4.Check10.Value = vbChecked Then
a10 = Form4.Label14.Caption * Val (Form4.Text10.Text)
Form6.Print Space (38) & Form4.Check10.Caption & Space (12) &
Form4.Label14.Caption & Space (12) & Val (Form4.Text10.Text) & Space (12) &
(a10)
End If
a11 = 0
If Form4.Check11.Value = vbChecked Then
a11 = Form4.Label18.Caption * Val (Form4.Text11.Text)
Form6.Print Space (38) & Form4.Check11.Caption & Space (12) &
Form4.Label18.Caption & Space (12) & Val (Form4.Text11.Text) & Space (12) &
(a11)
65
End If
a12 = 0
If Form4.Check12.Value = vbChecked Then
a12 = Form4.Label19.Caption * Val (Form4.Text12.Text)
Form6.Print Space (38) & Form4.Check12.Caption & Space (12) &
Form4.Label19.Caption & Space (12) & Val (Form4.Text12.Text) & Space (12) &
(a12)
End If
a13 = 0
If Form4.Check13.Value = vbChecked Then
a13 = Form4.Label20.Caption * Val (Form4.Text13.Text)
Form6.Print Space (38) & Form4.Check13.Caption & Space (12) &
Form4.Label20.Caption & Space (12) & Val (Form4.Text13.Text) & Space (12) &
(a13)
End If
a14 = 0
If Form4.Check14.Value = vbChecked Then
a14 = Form4.Label21.Caption * Val (Form4.Text14.Text)
Form6.Print Space (38) & Form4.Check14.Caption & Space (12) &
Form4.Label21.Caption & Space (12) & Val (Form4.Text14.Text) & Space (12) &
(a14)
End If
a15 = 0
If Form4.Check15.Value = vbChecked Then
a15 = Form4.Label22.Caption * Val (Form4.Text15.Text)
Form6.Print Space (38) & Form4.Check15.Caption & Space (12) &
Form4.Label22.Caption & Space (12) & Val (Form4.Text15.Text) & Space (12) &
(a15)
End If
a16 = 0
If Form4.Check16.Value = vbChecked Then
a16 = Form4.Label23.Caption * Val (Form4.Text16.Text)
Form6.Print Space (38) & Form4.Check16.Caption & Space (12) &
Form4.Label23.Caption & Space (12) & Val (Form4.Text16.Text) & Space (12) &
(a16)
End If
a17 = 0
If Form4.Check17.Value = vbChecked Then
a17 = Form4.Label24.Caption * Val (Form4.Text17.Text)
Form6.Print Space (38) & Form4.Check17.Caption & Space (12) &
Form4.Label24.Caption & Space (12) & Val (Form4.Text17.Text) & Space (12) &
(a17)
End If
a18 = 0
If Form4.Check18.Value = vbChecked Then
a18 = Form4.Label25.Caption * Val (Form4.Text18.Text)
66
Form6.Print Space (38) & Form4.Check18.Caption & Space (12) &
Form4.Label25.Caption & Space (12) & Val (Form4.Text18.Text) & Space (12) &
(a18)
End If
a19 = 0
If Form4.Check19.Value = vbChecked Then
a19 = Form4.Label26.Caption * Val (Form4.Text19.Text)
Form6.Print Space (38) & Form4.Check19.Caption & Space (12) &
Form4.Label26.Caption & Space (12) & Val (Form4.Text19.Text) & Space (12) &
(a19)
End If
a20 = 0
If Form4.Check20.Value = vbChecked Then
a20 = Form4.Label27.Caption * Val (Form4.Text20.Text)
Form6.Print Space (38) & Form4.Check20.Caption & Space (12) &
Form4.Label27.Caption & Space (12) & Val (Form4.Text20.Text) & Space (12) &
(a20)
End If
a21 = 0
If Form4.Check21.Value = vbChecked Then
a21 = Form4.Label31.Caption * Val (Form4.Text21.Text)
Form6.Print Space (38) & Form4.Check21.Caption & Space (12) &
Form4.Label31.Caption & Space (12) & Val (Form4.Text21.Text) & Space (12) &
(a21)
End If
a22 = 0
If Form4.Check22.Value = vbChecked Then
a22 = Form4.Label32.Caption * Val (Form4.Text22.Text)
Form6.Print Space (38) & Form4.Check22.Caption & Space (12) &
Form4.Label32.Caption & Space (12) & Val (Form4.Text22.Text) & Space (12) &
(a22)
End If
a23 = 0
If Form4.Check23.Value = vbChecked Then
a23 = Form4.Label33.Caption * Val (Form4.Text23.Text)
Form6.Print Space (38) & Form4.Check23.Caption & Space (12) &
Form4.Label33.Caption & Space (12) & Val (Form4.Text23.Text) & Space (12) &
(a23)
End If
a24 = 0
If Form4.Check24.Value = vbChecked Then
a24 = Form4.Label34.Caption * Val (Form4.Text24.Text)
Form6.Print Space (38) & Form4.Check24.Caption & Space (12) &
Form4.Label34.Caption & Space (12) & Val (Form4.Text24.Text) & Space (12) &
(a24)
End If
67
a25 = 0
If Form4.Check25.Value = vbChecked Then
a25 = Form4.Label35.Caption * Val (Form4.Text25.Text)
Form6.Print Space (38) & Form4.Check25.Caption & Space (12) &
Form4.Label35.Caption & Space (12) & Val (Form4.Text25.Text) & Space (12) &
(a25)
End If
a26 = 0
If Form4.Check26.Value = vbChecked Then
a26 = Form4.Label39.Caption * Val (Form4.Text26.Text)
Form6.Print Space (38) & Form4.Check26.Caption & Space (12) &
Form4.Label39.Caption & Space (12) & Val (Form4.Text26.Text) & Space (12) &
(a26)
End If
a27 = 0
If Form4.Check27.Value = vbChecked Then
a27 = Form4.Label40.Caption * Val (Form4.Text27.Text)
Form6.Print Space (38) & Form4.Check27.Caption & Space (12) &
Form4.Label40.Caption & Space (12) & Val (Form4.Text27.Text) & Space (12) &
(a27)
End If
a28 = 0
If Form4.Check28.Value = vbChecked Then
a28 = Form4.Label41.Caption * Val (Form4.Text28.Text)
Form6.Print Space (38) & Form4.Check28.Caption & Space (12) &
Form4.Label41.Caption & Space (12) & Val (Form4.Text28.Text) & Space (12) &
(a28)
End If
a29 = 0
If Form4.Check29.Value = vbChecked Then
a29 = Form4.Label42.Caption * Val (Form4.Text29.Text)
Form6.Print Space (38) & Form4.Check29.Caption & Space (12) &
Form4.Label42.Caption & Space (12) & Val (Form4.Text29.Text) & Space (12) &
(a29)
End If
a30 = 0
If Form4.Check30.Value = vbChecked Then
a30 = Form4.Label43.Caption * Val (Form4.Text30.Text)
Form6.Print Space (38) & Form4.Check30.Caption & Space (12) &
Form4.Label43.Caption & Space (12) & Val (Form4.Text30.Text) & Space (12) &
(a30)
End If
Total = 0
total = a1 + a2 + a3 + a4 + a5 + a6 + a7 + a8 + a9 + a10 + a11 + a12 + a13 + a14 + a15
+ a16 + a17 + a18 + a19 + a20 + a21 + a22 + a23 + a24 + a25 + a26 + a27 + a28 + a29
+ a30
68
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print Space (35); "Total Amount= " & Space (38) & (total)
End If
End Sub
End Sub
Dinner form
Private Sub Command1_Click ()
a = MsgBox ("Are you Satisfied?” vbYesNo + vbDefaultButton1, "Taking Order")
If a = vbNo Then
Form5.Check1 (2).Enabled = True
Form5.Check2 (2).Enabled = True
Form5.Check3 (2).Enabled = True
Form5.Check4 (2).Enabled = True
Form5.Check5 (2).Enabled = True
Form5.Check6 (2).Enabled = True
Form5.Check7 (2).Enabled = True
Form5.Check8 (2).Enabled = True
Form5.Check9 (2).Enabled = True
Form5.Check10 (2).Enabled = True
Form5.Check11.Enabled = True
Form5.Check12.Enabled = True
Form5.Check13.Enabled = True
Form5.Check14.Enabled = True
Form5.Check15.Enabled = True
Form5.Check16.Enabled = True
Form5.Check17.Enabled = True
Form5.Check18.Enabled = True
Form5.Check19.Enabled = True
Form5.Check20.Enabled = True
Form5.Check21.Enabled = True
69
Form5.Check22.Enabled = True
Form5.Check23.Enabled = True
Form5.Check24.Enabled = True
Form5.Check25.Enabled = True
Form5.Check26 (0).Enabled = True
Form5.Check27 (0).Enabled = True
Form5.Check28 (0).Enabled = True
Form5.Check29 (0).Enabled = True
Form5.Check30 (0).Enabled = True
End If
If a = vbYes Then
Form5.Check1 (2).Enabled = False
Form5.Check2 (2).Enabled = False
Form5.Check3 (2).Enabled = False
Form5.Check4 (2).Enabled = False
Form5.Check5 (2).Enabled = False
Form5.Check6 (2).Enabled = False
Form5.Check7 (2).Enabled = False
Form5.Check8 (2).Enabled = False
Form5.Check9 (2).Enabled = False
Form5.Check10 (2).Enabled = False
Form5.Check11.Enabled = False
Form5.Check12.Enabled = False
Form5.Check13.Enabled = False
Form5.Check14.Enabled = False
Form5.Check15.Enabled = False
Form5.Check16.Enabled = False
Form5.Check17.Enabled = False
Form5.Check18.Enabled = False
Form5.Check19.Enabled = False
Form5.Check20.Enabled = False
Form5.Check21.Enabled = False
Form5.Check22.Enabled = False
Form5.Check23.Enabled = False
Form5.Check24.Enabled = False
Form5.Check25.Enabled = False
Form5.Check26 (0).Enabled = False
Form5.Check27 (0).Enabled = False
Form5.Check28 (0).Enabled = False
Form5.Check29 (0).Enabled = False
Form5.Check30 (0).Enabled = False
Form6.Show
End If
If a = vbYes Then
Form6.Show
70
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
a1 = 0
If Form5.Check1 (2).Value = vbChecked Then
a1 = Form5.Label5.Caption * Val (Form5.Text1 (2).Text)
Form6.Print Space (38) & Form5.Check1 (2).Caption & Space (12) &
Form5.Label5.Caption & Space (13) & Val (Form5.Text1 (2).Text) & Space (13) &
(a1)
End If
a2 = 0
If Form5.Check2 (2).Value = vbChecked Then
a2 = Form5.Label6.Caption * Val (Form5.Text2 (2).Text)
Form6.Print Space (38) & Form5.Check2 (2).Caption & Space (12) &
Form5.Label6.Caption & Space (12) & Val (Form5.Text2 (2).Text) & Space (12) &
(a2)
End If
a3 = 0
If Form5.Check3 (2).Value = vbChecked Then
a3 = Form5.Label7.Caption * Val (Form5.Text3 (2).Text)
Form6.Print Space (38) & Form5.Check3 (2).Caption & Space (12) &
Form5.Label7.Caption & Space (12) & Val (Form5.Text3 (2).Text) & Space (12) &
(a3)
End If
a4 = 0
If Form5.Check4 (2).Value = vbChecked Then
a4 = Form5.Label8.Caption * Val (Form5.Text4 (2).Text)
Form6.Print Space (38) & Form5.Check4 (2).Caption & Space (12) &
Form5.Label8.Caption & Space (12) & Val (Form5.Text4 (2).Text) & Space (12) &
(a4)
End If
a5 = 0
71
If Form5.Check5 (2).Value = vbChecked Then
a5 = Form5.Label9.Caption * Val (Form5.Text5 (2).Text)
Form6.Print Space (38) & Form5.Check5 (2).Caption & Space (12) &
Form5.Label9.Caption & Space (12) & Val (Form5.Text5 (2).Text) & Space (12) &
(a5)
End If
a6 = 0
If Form5.Check6 (2).Value = vbChecked Then
a6 = Form5.Label10.Caption * Val (Form5.Text6 (2).Text)
Form6.Print Space (38) & Form5.Check6 (2).Caption & Space (12) &
Form5.Label10.Caption & Space (12) & Val (Form5.Text6 (2).Text) & Space (12) &
(a6)
End If
a7 = 0
If Form5.Check7 (2).Value = vbChecked Then
a7 = Form5.Label11.Caption * Val (Form5.Text7 (2).Text)
Form6.Print Space (38) & Form5.Check7 (2).Caption & Space (12) &
Form5.Label11.Caption & Space (12) & Val (Form5.Text7 (2).Text) & Space (12) &
(a7)
End If
a8 = 0
If Form5.Check8 (2).Value = vbChecked Then
a8 = Form5.Label12.Caption * Val (Form5.Text8 (2).Text)
Form6.Print Space (38) & Form5.Check8 (2).Caption & Space (12) &
Form5.Label12.Caption & Space (12) & Val (Form5.Text8 (2).Text) & Space (12) &
(a8)
End If
a9 = 0
If Form5.Check9 (2).Value = vbChecked Then
a9 = Form5.Label13.Caption * Val (Form5.Text9 (2).Text)
Form6.Print Space (38) & Form5.Check9 (2).Caption & Space (12) &
Form5.Label13.Caption & Space (12) & Val (Form5.Text9 (2).Text) & Space (12) &
(a9)
End If
a10 = 0
If Form5.Check10 (2).Value = vbChecked Then
a10 = Form4.Label14.Caption * Val (Form5.Text10 (2).Text)
Form6.Print Space (38) & Form5.Check10 (2).Caption & Space (12) &
Form5.Label14.Caption & Space (12) & Val (Form5.Text10 (2).Text) & Space (12)
& (a10)
End If
a11 = 0
If Form5.Check11.Value = vbChecked Then
a11 = Form5.Label18.Caption * Val (Form5.Text11 (1).Text)
72
Form6.Print Space (38) & Form5.Check11.Caption & Space (12) &
Form5.Label18.Caption & Space (12) & Val (Form5.Text11 (1).Text) & Space (12) &
(a11)
End If
a12 = 0
If Form5.Check12.Value = vbChecked Then
a12 = Form5.Label19.Caption * Val (Form5.Text12 (1).Text)
Form6.Print Space (38) & Form5.Check12.Caption & Space (12) &
Form5.Label19.Caption & Space (12) & Val (Form5.Text12 (1).Text) & Space (12)
& (a12)
End If
a13 = 0
If Form5.Check13.Value = vbChecked Then
a13 = Form5.Label20.Caption * Val (Form5.Text13 (1).Text)
Form6.Print Space (38) & Form5.Check13.Caption & Space (12) &
Form5.Label20.Caption & Space (12) & Val (Form5.Text13 (1).Text) & Space (12)
& (a13)
End If
a14 = 0
If Form5.Check14.Value = vbChecked Then
a14 = Form5.Label21.Caption * Val (Form5.Text14 (1).Text)
Form6.Print Space (38) & Form5.Check14.Caption & Space (12) &
Form5.Label21.Caption & Space (12) & Val (Form5.Text14 (1).Text) & Space (12)
& (a14)
End If
a15 = 0
If Form5.Check15.Value = vbChecked Then
a15 = Form5.Label22.Caption * Val (Form5.Text15 (1).Text)
Form6.Print Space (38) & Form5.Check15.Caption & Space (12) &
Form5.Label22.Caption & Space (12) & Val (Form5.Text15 (1).Text) & Space (12)
& (a15)
End If
a16 = 0
If Form5.Check16.Value = vbChecked Then
a16 = Form5.Label23.Caption * Val (Form5.Text16 (1).Text)
Form6.Print Space (38) & Form5.Check16.Caption & Space (12) &
Form5.Label23.Caption & Space (12) & Val (Form5.Text16 (1).Text) & Space (12)
& (a16)
End If
a17 = 0
If Form5.Check17.Value = vbChecked Then
a17 = Form5.Label24.Caption * Val (Form5.Text17 (1).Text)
Form6.Print Space (38) & Form5.Check17.Caption & Space (12) &
Form5.Label24.Caption & Space (12) & Val (Form5.Text17 (1).Text) & Space (12)
& (a17)
End If
73
a18 = 0
If Form5.Check18.Value = vbChecked Then
a18 = Form5.Label25.Caption * Val (Form5.Text18 (1).Text)
Form6.Print Space (38) & Form5.Check18.Caption & Space (12) &
Form5.Label25.Caption & Space (12) & Val (Form5.Text18 (1).Text) & Space (12)
& (a18)
End If
a19 = 0
If Form5.Check19.Value = vbChecked Then
a19 = Form5.Label26.Caption * Val (Form5.Text19 (1).Text)
Form6.Print Space (38) & Form5.Check19.Caption & Space (12) &
Form5.Label26.Caption & Space (12) & Val (Form5.Text19 (1).Text) & Space (12)
& (a19)
End If
a20 = 0
If Form5.Check20.Value = vbChecked Then
a20 = Form5.Label27.Caption * Val (Form5.Text20 (1).Text)
Form6.Print Space (38) & Form5.Check20.Caption & Space (12) &
Form5.Label27.Caption & Space (12) & Val (Form5.Text20 (1).Text) & Space (12)
& (a20)
End If
a21 = 0
If Form5.Check21.Value = vbChecked Then
a21 = Form5.Label31.Caption * Val (Form5.Text21.Text)
Form6.Print Space (38) & Form5.Check21.Caption & Space (12) &
Form5.Label31.Caption & Space (12) & Val (Form5.Text21.Text) & Space (12) &
(a21)
End If
a22 = 0
If Form5.Check22.Value = vbChecked Then
a22 = Form5.Label32.Caption * Val (Form5.Text22.Text)
Form6.Print Space (38) & Form5.Check22.Caption & Space (12) &
Form5.Label32.Caption & Space (12) & Val (Form5.Text22.Text) & Space (12) &
(a22)
End If
a23 = 0
If Form5.Check23.Value = vbChecked Then
a23 = Form5.Label33.Caption * Val (Form5.Text23.Text)
Form6.Print Space (38) & Form5.Check23.Caption & Space (12) &
Form5.Label33.Caption & Space (12) & Val (Form5.Text23.Text) & Space (12) &
(a23)
End If
a24 = 0
If Form5.Check24.Value = vbChecked Then
a24 = Form5.Label34.Caption * Val (Form5.Text24.Text)
74
Form6.Print Space (38) & Form5.Check24.Caption & Space (12) &
Form5.Label34.Caption & Space (12) & Val (Form5.Text24.Text) & Space (12) &
(a24)
End If
a25 = 0
If Form5.Check25.Value = vbChecked Then
a25 = Form5.Label35.Caption * Val (Form5.Text25.Text)
Form6.Print Space (38) & Form5.Check25.Caption & Space (12) &
Form5.Label35.Caption & Space (12) & Val (Form5.Text25.Text) & Space (12) &
(a25)
End If
a26 = 0
If Form5.Check26 (0).Value = vbChecked Then
a26 = Form5.Label39.Caption * Val (Form5.Text26 (0).Text)
Form6.Print Space (38) & Form5.Check26 (0).Caption & Space (12) &
Form5.Label39.Caption & Space (12) & Val (Form5.Text26 (0).Text) & Space (12)
& (a26)
End If
a27 = 0
If Form5.Check27 (0).Value = vbChecked Then
a27 = Form5.Label40.Caption * Val (Form5.Text27 (0).Text)
Form6.Print Space (38) & Form5.Check27 (0).Caption & Space (12) &
Form5.Label40.Caption & Space (12) & Val (Form5.Text27 (0).Text) & Space (12)
& (a27)
End If
a28 = 0
If Form5.Check28 (0).Value = vbChecked Then
a28 = Form5.Label41.Caption * Val (Form5.Text28 (0).Text)
Form6.Print Space (38) & Form5.Check28 (0).Caption & Space (12) &
Form5.Label41.Caption & Space (12) & Val (Form5.Text28 (0).Text) & Space (12)
& (a28)
End If
a29 = 0
If Form5.Check29 (0).Value = vbChecked Then
a29 = Form5.Label42.Caption * Val (Form5.Text29 (0).Text)
Form6.Print Space (38) & Form5.Check29 (0).Caption & Space (12) &
Form5.Label42.Caption & Space (12) & Val (Form5.Text29 (0).Text) & Space (12)
& (a29)
End If
a30 = 0
If Form5.Check30 (0).Value = vbChecked Then
a30 = Form5.Label43.Caption * Val (Form5.Text30 (0).Text)
Form6.Print Space (38) & Form5.Check30 (0).Caption & Space (12) &
Form5.Label43.Caption & Space (12) & Val (Form5.Text30 (0).Text) & Space (12)
& (a30)
End If
75
Total = 0
total = a1 + a2 + a3 + a4 + a5 + a6 + a7 + a8 + a9 + a10 + a11 + a12 + a13 + a14 + a15
+ a16 + a17 + a18 + a19 + a20 + a21 + a22 + a23 + a24 + a25 + a26 + a27 + a28 + a29
+ a30
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print
Form6.Print Space (35); "Total Amount= " & Space (38) & (total)
End If
End Sub
End Sub
End Sub
End Sub
76
Private Sub Command5_Click ()
Form12.Show
Unload Me
End Sub
End Sub
End Sub
77
End If
End Sub
End Sub
78
End Sub
End Sub
End Sub
End Sub
79
End Sub
End Sub
Adodc1.Recordset.Update
End Sub
End Sub
80
End If
End Sub
81
Conclusio
ns
1. This project requires a programmer, costly hardware and
more data security options are to be applied.
2. The database can be easily trapped if the data base is not
secure under the control of DBA.
3. Centralized control is must.
4. It may require 6 more months for analysis, design and
implementation.
5. The project may be rejected after implementation - if it is
not correctly analyzed and designed I.e. user requirement
is not clearly defined.
6. If it is used properly, it can give accurate results with
speedy process.
7. It can reduce the paper work, staff requirements and
threats to the data security.
82
83