a

PROJECT REPORT
ON

gym management system"

Submitted to the Rashtrasant Tukadoji Maharaj Nagpur University,
Nagpur

In Partial Fulfillment of the Requirement of Degree of

B.Com(Computer Application)

Under the Guidance of

Prof. Ashish R. Ingale

Submitted By
Miss. Rukhsar J. Sheikh
Miss. Ruqaiya M. Presswala

Department of Commerce
Zulekha College of Commerce, Science & Technology
Nagpur.
2015-16

CERTIFICATE

This is to certify that, the project report entitled Gym Management

System is carried out and developed by Rukhsar sheikh & Ruqaiya presswala
in partial fulfillment in the requirement for Degree of Bachelor of Commerce in
Computer Application (BCCA) submitted to Rashtrasant Tukadoji Maharaj
Nagpur University, Nagpur under my guidance and supervision.
To the best of my knowledge matter presented in this report has not
been submitted earlier for similar degree.

Prof. Ashish R. Ingale

Place- Nagpur.
Date-

Internal Examiner

External Examiner

DECLARATION
To,
The Principal,
Zulekha College of Commerce, Science & Technology,
Nagpur.

Respected Sir,
We, the undersigned hereby declare that, the work entitled, Gym
Management System developed in Visual Basic 6.0 & MS Access as
database, submitted by us is our original work. The system presented herein is
developed by us independently and has not been duplicated from any other
source.
We undersigned that any such copying in liable to be punished in any
way by the board authority deem fit.
Thanking you,

Yours sincerely
Miss. Rukhsar J. Sheikh
Miss. Ruqaiya M. Presswala

ACKNOWLEDGEMENT

We, feel it to be very proud privilege to express my most sincere and

heartiest sense of gratitude towards Prof. Ashish .R. Ingale, Zulekha College
of Commerce, Science & Technology, Nagpur, on whose inspiration this piece of
work was undertaken. It was his constant invaluable guidance and ever willing
help, and constant encouragement, which make this study possible.
We are also thankful to our Principal Dr. John Joseph of our
college for providing us the required facilities to develop this project
We are also thankful to our HOD Prof. Priyanka Y. Bagal for
helping us for the development of our project
At last, thanks to our parents and those persons who are directly or
indirectly involved in completion of this work.

Miss. Rukhsar J. Sheikh

Miss. Ruqaiya M. Presswala

INDEX
Sr.No.

CONTEXT

1.

Introduction of Project

2.

Objective Of System

3.

Preliminary System Analysis

a) Identification Of Needs
b) Feasibility Study
c) Flaws in the Present System

4.

Software Requirement Specification

5.

Hardware Specification

6.

Detailed System Analysis

a) Data Flow Diagram
b) System Flow Diagram
c) Data Dictionary

7.

System Design
a) Input Screen
b) Source Code
c) Output Screen
d) Report

8.

Limitation Of Project

9.

Future Scope of the Project

10.

Conclusion

11.

Bibliography

PAGE
NO.
1

Chapter: - 1
INTRODUCTION

INTRODUCTION:-

This project is aimed to develop a software which can be used to store and manage
information processed in the Gym System. The entire project is being developed to solve all
the problems faced in keeping record on the manual documentations.
This software provides the facility to view details of a Delivered Date & Time. It also
provides the Use of Gym types of fine to be charged when the particular rule is avoided.
This developing system will make better control and gain access to more up-to-date
information. Hence a design of a system to capture data, update files, and procedure reports
whenever is necessary. It helps in finding out

FRONT END:1. Visual Basic application are event-driven : Event driven means the user is in
control of the application. The user generates a stream of events each time he or she clicks
with the mouse or presses a key on the keyboard. Your Visual Basic application responds
to those events through the code you have written and attached to those events.
2. Visual Basic supports the principles of object-oriented design: This means
that you can compartmentalize different aspects of your application as object and develop
and test those object independently of the rest of the application. By modifying certain
properties and invoking the methods of these objects, you exert a great deal of control over
the users interaction with the Visual Basic program youve written.
Although Visual Basic dose not comply with all the concepts and principles behind the
object-oriented development model supported by VC++, Delphi, and other development
environments, Visual Basic includes enough of these features to more than satisfy all but
the most ardent followers of object-oriented programming.

3. Microsoft has designed Visual Basic to be a complete Windows

Application Development System: This means that your Visual Basic application
will look and behave like other Windows program your user might work with. In other
words, your Visual Basic application will conform to the Window 98 look and feel without
any extra work on your part. Unlike Visual C++ and other development platforms you
dont have to go to extreme measures to employ even the most sophisticated Windows
features in your Visual Basic application.

BACK END:INTRODUCTION TO MS-ACCESS

A database lies at the core of any business software application. Databases are
prevalent in the world of business because they permit centralized access to information in a
way that is consistent, efficient and relatively easy to set up and maintain.
Here MS - Access has been used as the repository of the data as it has a very
sophisticated and easy to use interface for creating database objects.
Also Visual Basic and MS - Access connect very well together. Some of the
important features of MS - Access are as follows:
1.

Window Based Application MS - Access allows you to create database

with

minimum of hard work (writing code) through GUI Environment.

2.

Large Data Management Capacity MS - Access maintain a single disk file for
database and all its associated objects. The maximum size of the file is 1 GB.

4. Importing Exporting and linking External Files MS - Access lets you import from or
export to FoxPro, Excel and Oracle.
5.
4.

Wizards and Builders A Wizard are; utility that helps you to perform complex tasks
by guiding you through the process.

5.

Built in Functions. Ms - Access includes small programs known as functions that

perform simple calculations of data formatting.

VISUAL BASIC TOOLS:Text Box

The text box is control in which you can enter text. The text box is Used to acess data from
user for the system required. Text box can multiline ,have scroll bar ,can have read only, can
be color and can be bound to data base.
Command Button
Command Button is one of the most user friendly control .it is use for clicking
purpose. Drag this control on the form the coadding for the command button. it can perfrom
any type of operation as per the coading just by clicking in it.
Label:
Label control is used to display text that dont want the user to change
directly.as the name implies ,you can use this control to give label to that control which
doesnot have there one caption. label can have different color ,style,forecolor font etc.
Frame:
Frame control is use to tight the control together in to a recognizable group.this
control is appearing like a box with a label at upper left. you can take any control on the frame
and make a separate group control.
Timer:
You use the timer control when you want to execute a code at a specific time.
Only by assigning the interval property you can use the timer control. Timer control is use to
perform a operation on particular time.
You can perform a specific operation again and again when timer click the
condition . you can create various operation by using timer control, such as stop watch.
Combo box:
Combo box are the list box combine with text box control with combo box you
can give user the option of selecting from a list. The combo box contains multiple items once
after another in single list.
If the list is large the scroll bar appears for moving up and down. This type of
control is vary useful to present long list of item in a way it dose not take up too much space.
Picture box:
This control is use to display images and the images are set with the picture
property. The picture box supports a number of methods for generating drawing.
List Box:
10

This control is used to display the list of item from which user can select one
item at a time.
Image control.
Image control is used to display an image on the form .it can also used to draw graphic on the
control like circle. Rectangle etc.
Datagried control
This control is used to display data in row and column i.e in table or tabular formet like excel
spredsheet.

11

ADO (Active Data Object)

ADO (Active Data Object) is designed as an easy-to-use application level interface to
Microsoft newest and most powerful data access paradigm, OLE-DB.
Microsoft ADO Control 6.0 (OLEDB) provide high-performance access to any data
source, including relational and non-relational database, email and file system, text and
graphics, custom business object as ODBC data source.
ADO is easy to use, language independent, implemented with a small foot print and few
layers few between the application and the data source to provide high performance data
access

12

Chapter:- 2
OBJECTIVE

13

OBJECTIVES:Gym Management system project helps in minimizing human error, paperless office,
informations about the data on very easy search printing the details, showing comparative
statements, process of order information remainder if there is any delays and in accuracy that
might create problems.
The main objectives of the computerized Gym system are mentioned below:

To automate the billing of a system.

To check the status of availability of Machine.
To provide efficient enquiry systems.
Quick retrieval of information.
The facility of report generation is also possible. Any combination can be done to
generate the report in desired manner. This helps in giving it a systematic and clean
look.

14

Chapter:- 3

PRELIMINARY ANALYSIS

NEEDS:-

15

In our day-to-day life we come across various systems such as courier systems, solar
systems etc. The word system is derived from the Greek word called systema means
organized relationship among the components with a central objective and these components
are called as sub-units of the system.

It is an organized combination of different components.

They are independent and inter related.

They work for common objectives.

Thus in order to carry out the project successfully that is taken under consideration

should be analyzed properly. It is necessary to investing the particular system by considering

the following points

It should help to derive the cost benefit analysis.

It should maintain the economic and technical aspect of the organization.

It should help to attain the desired objective.

In the computer system information acts as input, which is then processed to get the

desired output, the output in turn helps the management to achieve a desired goal. System can
be controlled by feedback and get affected by an environment.

16

Chapter:-4

SOFTWARE REQUIREMENT
SPECIFICATION

HARDWARE:17

Pentium 1 or Higher Processor

Color/mono Monitor
2GB hard disk
32 MB RAM
Keyboard

SOFTWARE:Front End-visual Basic 6.0

Back End-MS Access 2003/7.0
Operating system-windows

18

Chapter:-5

HARDWARE SPECIFICATION

Mouse:- The mouse provides a convenient way of inputting by moving the mouse to
control the movement of the mouse pointer appears on a monitor screen. User can
19

move the mouse pointer onto an object such as button, icons, menu, etc and then press
the mouse button to perform the action that is associated with the selected object.
Keyboard:- Keyboard contains keys on the typing area such as letters of the alphabet,
number, punctuations marks and other which allows the user to press to input data into
the computer.

Printer:- Printer can produce text and graphics on physical medium like paper by
executing the command issued from the system in users choice. Such printer
information referred as hard copy.

Server:- A server control access to the hardware, software, and other resources on a
network. It provides a centralized storage area for programs, data, and information
used in the system.

20

Chapter:-6
DETAIL SYSTEM
ANALYSIS

A) DATA FLOW DIAGRAM:-

GYM
MANAGEMENT
21

B) SYSTEM FLOW CHART:-

22

C) DATA DICTIONARY:23

 In our data flow diagrams, we have given the name to data flows, process and data
storage.
Although the names are descriptive of the data, do not given details. So following the
DFD, our interest is to build some structures place to keep details of the contents of
data flows, processes and data stores.
A data dictionary is a structured repository of data about data. It is a set of rigorous
definitions of all DFD data elements and data structures.

24

Chapter:-7
SYSTEM DESIGN

A) INPUT SCREEN:25

26

27

28

29

B) SOURCE CODE:30

Dim db As Database
Dim rs As Recordset
Dim rs1 As Recordset

Private Sub cmdcancel_Click()

cmdnew.Enabled = True
cmdsave.Enabled = False
cmdsearch.Enabled = True
cmddelete.Enabled = True
End Sub
Private Sub cmddelete_Click()
P = MsgBox("DO YOU WANT TO DELETE?", vbYesNo + vbInformation, "Deleted")
If P = vbYes Then
rs.MoveFirst
Do While Not rs.EOF
If Val(Text2.Text) = rs!qun Then
rs.Delete
End If
rs.MoveNext
Loop
MsgBox "REcord Deleted successfully"
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
31

Text2.SetFocus
Else
CANCEL = o
End If
End Sub

Private Sub cmdExit_Click(Index As Integer)

Unload Me
End Sub
Private Sub cmdnew_Click()
On Error Resume Next
cmdsearch.Enabled = False
cmddelete.Enabled = False
cmdsave.Enabled = False
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text2.SetFocus
Text1.Text = 1
rs.MoveLast
Text1.Text = rs!CID + 1

End Sub
Private Sub cmdsave_Click()
On Error Resume Next
32

rs.AddNew
rs!Date = DTPicker1
rs!CID = Text1.Text
rs!CNAME = Text2.Text
rs!NOP = Text3.Text
rs!FE = Text4.Text
rs!BE = Text5.Text
rs!DU = Text6.Text
rs!TAMT = Text7.Text

rs.Update
MsgBox "RECORD ADDED SUCCESSFULLY", vbInformation
End Sub
Private Sub cmdsearch_Click()
On Error Resume Next
Dim n As Integer
n = InputBox("ENTER CUSTOMER ID")

rs.MoveFirst
Do While Not rs.EOF
If n = rs!CID Then
DTPicker1 = rs!Date
Text1.Text = rs!CID
Text2.Text = rs!CNAME
Text3.Text = rs!NOP
Text4.Text = rs!FE
33

Text5.Text = rs!BE
Text6.Text = rs!DU
Text7.Text = rs!TAMT
End If

rs.MoveNext
Loop
End Sub
Private Sub Command1_Click()
Form1.Show
End Sub
Private Sub Command2_Click()
frmrate.Show
End Sub
Private Sub Form_Load()
Set db = OpenDatabase("D:\gym\PPM.mdb")
Set rs = db.OpenRecordset("ppur")
Set rs1 = db.OpenRecordset("rate")
DTPicker1 = Date
End Sub
Private Sub Text2_Change()
On Error Resume Next
Text4.Text = Text3.Text * Text2.Text
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
34

If KeyAscii = vbKeyReturn Then

Text3.SetFocus
End If

Select Case KeyAscii

Case 65 To 90
Case 97 To 122
Case 8
Case 32
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub Text3_Change()
On Error Resume Next
Text4.Text = Text3.Text * Text2.Text
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyReturn Then

Text4.SetFocus
End If
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
35

If KeyAscii = vbKeyReturn Then

Text5.SetFocus
End If

Select Case KeyAscii

Case 65 To 90
Case 97 To 122
Case 8
Case 32
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub Text5_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57
Case 8
Case 32
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub Text5_gotFocus()
cmdsave.Enabled = True
End Sub

36

Private Sub cmdlreading_Click()

frmlreading.Show
End Sub
Private Sub cmdPetrolPurchase_Click()
Frmppur.Show
End Sub
Private Sub cmdPreading_Click()
frmpreading.Show
End Sub
Private Sub cmdRate_Click()
frmrate.Show
End Sub
Private Sub cmdSales_Click()
frmsales.Show
End Sub
Private Sub cmdWorker_Click()
frmprog.Show
End Sub

Coding For Instructor Form

37

Dim db As Database
Dim rs As Recordset

Private Sub cmdcancel_Click()

cmdnew.Enabled = True
cmdsave.Enabled = False
cmdsearch.Enabled = True
cmddelete.Enabled = True

End Sub
Private Sub cmddelete_Click()
rs.MoveFirst
Do While Not rs.EOF
If Val(Text1.Text) = rs!wd Then
rs.Delete
MsgBox "DO YOU WANT TO DELETE?",vbYesNoCancel + vbInformation, "Deleted"
End If
rs.MoveNext
Loop
End Sub

38

Private Sub cmdExit_Click(Index As Integer)

Unload Me
End Sub
Private Sub cmdnew_Click()
On Error Resume Next
cmdsearch.Enabled = False
cmddelete.Enabled = False
cmdsave.Enabled = False
Text1.Text = 1
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text2.SetFocus

rs.MoveLast
Text1.Text = rs!wd + 1
End Sub
Private Sub cmdsave_Click()
On Error Resume Next
rs.AddNew
rs!wd = Text1.Text
rs!wname = Text2.Text
rs!Add = Text3.Text
rs!city = Text4.Text
rs!mno = Text5.Text
39

rs!Shift = Text6.Text
rs!salary = Text7.Text
rs!deg = Text8.Text
rs.Update
MsgBox "RECORD ADDED SUCCESSFULLY", vbInformation
End Sub
Private Sub cmdsearch_Click()
On Error Resume Next
Dim n As Integer
n = InputBox("ENTER INSTRUCTOR ID")
rs.MoveFirst
Do While Not rs.EOF
If n = rs!wd Then
Text1.Text = rs!wd
Text2.Text = rs!wname
Text3.Text = rs!Add
Text4.Text = rs!city
Text5.Text = rs!mno
Text6.Text = rs!Shift
Text7.Text = rs!salary
Text8.Text = rs!deg
End If

rs.MoveNext
Loop
End Sub

40

Private Sub Command1_Click()

Form1.Show
End Sub
Private Sub Command2_Click()
frmrate.Show
End Sub
Private Sub Form_Load()
Set db = OpenDatabase("D:\GYM\PPM.mdb")
Set rs = db.OpenRecordset("worker")

End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
Text2.SetFocus
End IF
Select Case KeyAscii
Case 48 To 57
Case 8
Case 32
Case Else
KeyAscii = 0
End Select
End Sub

41

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyReturn Then
Text3.SetFocus
End If

Select Case KeyAscii

Case 65 To 90
Case 97 To 122
Case 8
Case 32
Case Else
KeyAscii = 0
End Select
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyReturn Then
Text4.SetFocus
End If
Select Case KeyAscii
Case 65 To 90
Case 97 To 122
Case 8
Case 32
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
42

If KeyAscii = vbKeyReturn Then

Text5.SetFocus
End If

Select Case KeyAscii

Case 65 To 90
Case 97 To 122
Case 8
Case 32
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
Text6.SetFocus
End If

Select Case KeyAscii

Case 48 To 57
Case 8
Case 32
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub Text5_Validate(CANCEL As Boolean)
If Len(Text5.Text) <> 10 Then
MsgBox "INVALID MOBILE NUMBER", vbCritical
Text5.Text = " "
43

Text5.SetFocus
Else
Text6.SetFocus
End If
End Sub
Private Sub Text6_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
Text7.SetFocus
End If

Select Case KeyAscii

Case 65 To 90
Case 97 To 122
Case 8
Case 32
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub Text7_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
Text8.SetFocus
End If
Select Case KeyAscii
Case 48 To 57
Case 8
Case 32
Case Else
KeyAscii = 0
44

End Select
End Sub
Private Sub Text7_Validate(CANCEL As Boolean)
If Val(Text7.Text) < 0 Or Val(Text7.Text) > 5000 Then
MsgBox "INVALID SALARY AMOUNT", vbCritical
Text7.Text = " "
Text7.SetFocus
Else
Text8.SetFocus
End If
End Sub
Private Sub Text8_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 65 To 90
Case 97 To 122
Case 8
Case 32
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub Text8_gotFocus()
cmdsave.Enabled = True
End Sub
Private Sub cmdlreading_Click()
frmlreading.Show
End Sub
Private Sub cmdPetrolPurchase_Click()
Frmppur.Show
45

End Sub
Private Sub cmdPreading_Click()
frmpreading.Show
End Sub
Private Sub cmdRate_Click()
frmrate.Show
End Sub
Private Sub cmdSales_Click()
frmsales.Show
End Sub
Private Sub cmdWorker_Click()
frmworker.Show
End Sub

Coding For Machine Form

46

Dim db As Database
Dim rs As Recordset
Dim rs1 As Recordset
Private Sub cmddelete_Click()
End Sub
Private Sub cmdExit_Click(Index As Integer)
Unload Me
End Sub
Private Sub cmdnew_Click()
On Error Resume Next
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Combo1 = 1
rs.MoveLast
Combo1 = rs!fid + 1
Text1.SetFocus
End Sub
Private Sub Label10_Click()
End Sub
Private Sub Text4_Change()
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
47

End Sub
Private Sub Text5_Change()
End Sub
Private Sub cmdsave_Click()
rs.AddNew
rs!fid = Combo1
rs!fname = Text1.Text
rs!vn = Text2.Text
rs!vc = Text3.Text
rs.Update
MsgBox ("Record Saved")
End Sub
Private Sub cmdsearch_Click()
On Error Resume Next
Dim n As Integer
n = InputBox("ENTER MACHINE ID")

rs.MoveFirst
Do While Not rs.EOF
If n = rs!fid Then
Combo1 = rs!fid
Text1.Text = rs!fname
Text2.Text = rs!vn
Text3.Text = rs!vc
48

End If

rs.MoveNext
Loop
End Sub
Private Sub Combo1_Click()
rs1.MoveFirst
Do While Not rs1.EOF
If Combo1 = rs1!CID Then
Text1.Text = rs1!CNAME
End If
rs1.MoveNext
Loop
End Sub
Private Sub Form_Activate()
rs1.MoveFirst
Do While Not rs1.EOF
Combo1.AddItem rs1!CID
rs1.MoveNext
Loop
End Sub
Private Sub Form_Load()
Set db = OpenDatabase("d:\GYM\ppm.mdb")
Set rs = db.OpenRecordset("volume")
49

Set rs1 = db.OpenRecordset("ppur")

End Sub

Coding For Machine Purchase Form

50

Dim db As Database
Dim rs As Recordset

Private Sub cmdcancel_Click()

Unload Me
End Sub
Private Sub cmdExit_Click(Index As Integer)
Unload Me
End Sub
Private Sub cmdupdate_Click()
rs.AddNew
rs!CDate = DTPicker1
rs!Name = Text1.Text
rs!Rate = Text2.Text
rs!qty = Text3.Text
rs.Update
MsgBox "RECORD SAVED SUCESSFULLY", vbInformation + vbOKOnly
End Sub
Private Sub Command1_Click()
Form1.Show
End Sub
Private Sub Form_Load()
Set db = OpenDatabase("D:\gym\PPM.mdb")
Set rs = db.OpenRecordset("Rate")
DTPicker1 = Date

51

End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 65 To 90
Case 97 To 122
Case 8
Case 32
Case Else
KeyAscii = 0
End Select
End Sub

Private Sub cmdlreading_Click()

frmlreading.Show
End Sub
Private Sub cmdPetrolPurchase_Click()
Frmppur.Show
End Sub
Private Sub cmdPreading_Click()
frmpreading.Show
End Sub
Private Sub cmdRate_Click()
frmrate.Show
End Sub
Private Sub cmdSales_Click()
frmsales.Show
52

End Sub
Private Sub cmdWorker_Click()
frmworker.Show
End Sub

53

Coding for solution form

Dim db As Database
Dim rs As Recordset
Dim rs1 As Recordset
Private Sub cmddelete_Click()
End Sub
Private Sub cmdExit_Click(Index As Integer)
Unload Me
End Sub
Private Sub cmdnew_Click()
Text1.Text = ""
Text2.Text = ""
Combo1.SetFocus
End Sub
Private Sub Label10_Click()
End Sub
Private Sub Text4_Change()
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
End Sub
Private Sub Text5_Change()

54

End Sub
Private Sub cmdsave_Click()
On Error Resume Next
rs.AddNew
rs!fid = Combo1
rs!fname = Text1.Text
rs!solu = Text2.Text
rs.Update
MsgBox ("Record Saved")
End Sub
Private Sub cmdsearch_Click()
On Error Resume Next
Dim n As Integer
n = InputBox("ENTER MACHINE ID")
rs.MoveFirst
Do While Not rs.EOF
If n = rs!fid Then
Combo1 = rs!fid
Text1.Text = rs!fname
Text2.Text = rs!solu

End If

rs.MoveNext
Loop

55

End Sub
Private Sub Combo1_Click()
rs1.MoveFirst
Do While Not rs1.EOF
If Combo1 = rs1!fid Then
Text1.Text = rs1!fname
End If
rs1.MoveNext
Loop
End Sub
Private Sub Form_Activate()
rs1.MoveFirst
Do While Not rs1.EOF
Combo1.AddItem rs1!fid
rs1.MoveNext
Loop
End Sub

Private Sub Form_Load()

Set db = OpenDatabase("d:\gym\ppm.mdb")
Set rs = db.OpenRecordset("solu")
Set rs1 = db.OpenRecordset("volume")
End Sub

56

OUTPUT SCREEN:-

57

58

B) REPORT:-

59

60

Chapter:-8
LIMITATIONS OF
PROJECT

61

LIMITATIONS:Through every software have some limitations according to the new techniques
generated. The software Gym Management System also have some limitations.
The existing system only provides text-based interface, which is not as userfriendly as Graphical user Interface.
Since the system is implemented in Manual, so the response is very slow.
The transactions are executed in off-line mode, hence on-line data capture and
modification is not possible.
Off-line reports cannot be generated due to batch mode execution.

62

Chapter:-9
FUTURE SCOPE

63

FUTURE SCOPE:While creating any project needs to keep in mind,not only the user requirement of the present
project but also the future scope of the project.Theprogrammer,that is the expansion of the
project you meet more user requirements .
It may help collecting perfect management in details. In a very short time, the
collection will be obvious, simple and sensible.
It will help a person to know the management of passed year perfectly and vividly. It
also helps in current all works relative to college.
It will be also reduce the cost of collecting the management and collection procedure
will go on smoothly.The present project has been developed to meet the aspiration
indicated in the modern age.
An attempt has been made through this project to do all work easy and fast. It provide
current add, Update, MoveNext, MovePrevious, MoveLast, Find and Delete all
facilities to accomplish the desired objectives.
The facility include in this project and the suggested activities have been organized to
impart knowledge and develop skill and attitude in the college as well as official
works.

64

Chapter:-10
CONCLUSION

65

CONCLUSION:

As we know that the competitive world demand to understand and apply new

technologies.
In this software to assist the development and growth of focus initiatives.
We are applying advance technologies by computerizing the organization to maintain

their records.
So this software will provide many advantages over the manual system.
In conclusion the software developed by us will play the most important role to
manage the gym management system.

66

Chapter:-11
BIBLIOGRAPHY

BIBLOGRAPHY:To solve the problems existing system we referred the books:

[1] VB.NET How To program - By H.M. Detail& P.J. Detail.
[2] VB.NET Professi0nals - By John Kauffman.
67

[3] Programming VB.NET Scott Mitchell.

[4] MS-Access By Tata Mac.
[5]http://www.seminarprojects.com/Thread-rto-managementsystem#ixzz1hEZowzxn.

68