Acknowledgement: The Project Is An Attitude, A Philosophy of Life

ACKNOWLEDGEMENT
It is my pleasure to take this opportunity to thank all of my learned
teachers for their appreciation of the project and introducing it to the
subscribers. I am regularly receiving appreciation from my companions
and juniors of this institute.
The Joy Creativity! Probably , this is why I am drawn to writing . I
believe that at some stage of creating the project starts taking a life
of its own. Once it does the author just has to kneel down claw at the
earth , overturn the soil and pray for the rain. The project is capable of
unfolding itself . there is no need for the author to take credit for it.
Before we get into the thick of the things I would like to add a few
heartfelt words for the people who were part of this project in
numerous ways ….. people who gave unending support right from the
initial stage of the project idea was conceived . In particular I would
like to thank Mr.Harshit Ranjan having faith in this project idea .
Mrs. Arti Srivastava ran all the programs in this project and to my
horror found several that did not run correctly in certain situation. I
trust all these bugs have been fixed.
I thank her for reviewing the entire manuscript with painstaking
attention for details and more so for his uncanny ability to spot the
spelling mistakes in paragraph which I had reviewed many times over
The project is an attitude, a philosophy of life.

OBJECTIVE OF THE PROJECT
Nowadays as more and more preference is being given to education and with
the increase in population more and youths are coming forward to get educated.
Thus to meet such a huge demand more and more private institutes are being
opened . if you move to any place you will surely find 1 or 2 institutes offering
variety of courses. As there has been revolution in almost every field , whether it
is Fashion, Journalism, Management, IT , several computer courses ,
animation , hospitality etc. there are hundreds of courses . Thus to teach all
these subjects you need professionals in their own field as faculty of your
institutes.
Now the problems comes as how to manage and keep records of so many
students, faculty as well as different variety of courses. If you start doing it
manually it would really be a tedious as well as time consuming job.
Now to tackle such type of problems everywhere computers are used. And to
maintain records on computer you need a specific software to work upon.
Thus my project named “INSTITUTE MANAGEMENT” is a small software which
is used to overcome such type of problems.
Using this software it is very easy to maintain the records of all the students,
Faculty as well as all the courses running at the institute. It is a user friendly
software and very easy to operate upon .
Thus as the name of the project “INSTITUTE MANAGEMENT” implies that this
software can really manage and keep safe all the records of the institute.
PREFACE
This application program comes in customizable levels and is very
beneficial for all the Hospital for the record keeping of all the
students and the faculty members of that hospital .
During the course of development of the project a lot of
Thinking went and steps . Various new procedure were evolved so
that all the different nagging problems and spur at the moment hassles
could be eliminated to the extent , so that the access to the users does not
flue any difficulty.
Efforts have been made to shake the system users friendly that can be handled by
a novice . The software will help in converting the realisms and realism of
procedural jotting , which was done manually into complete computerized
versions and will help in strong valuable information in the sophisticated way
possible.
HOSPITAL INFORMATION SYSTEM

A PROJECT REPORT
Submitted in Partial Fulfillment of the requirement for
The award of the degree of
POST GRADUATE DIPLOMA IN COMPUTER
APPLICATION
FROM
SPRINGDALE COLLAGE OF MANAGEMENT
STUDIES (MADHOTANDA ROAD)PILIBHIT.
AFFILIATED FROM
M.J.P.ROHILKHAND UNIVERSITY
BAREILLY
Submitted By:--
Pulkit Ranjan
M.C.A. 6’th Sem

Roll. No. :- 520218646
SYSTEM DESIGN
Input design guidelines: - The design of input
plays very significant role in getting the correct output.
Some features of design may vary depending upon
whether the system is watch oriented or online. The
objectives of input design are
1) Controlling amount of input: - An effective
design controls the quantity of data for input, for the
following reasons: -
Data preparation and data entry operation depend upon
the people. If labor is high, the cost of interim data will
also be high.
The input phase of computing can be slow process and
take much time longer than that needed by computers to

carry out their task and computer may idle until data is
prepared and input for processing. By reducing input
requirement, the analyst will speed the entire process from
data capture to processing, to provide results to users
2) Avoiding delay: - When processing is delayed due
to data processing preparation or due to data entry, the
problem is known as “ Bottle Neck”. Avoid bottleneck
problem while designing input.
3) Avoiding Errors in Data: - The rate at which
error occurs depends upon the quantity of data. If less
data is inputted, there are fewer opportunities for the
errors to occur
.4) Avoiding Extra Steps: - When the volume of
input data is so high, the analyst must ensure that the
process is efficient. A good analyst always avoids input
design that cost extra steps.
Keeping the process Simple: The best design system fits
the people who will use it in the way that is use full for
them, and at the same time it provides error control and
input verification methods. Complex in confusing inputs
design always hate by the user so it is advisable to avoid
complicity
INPUT VERFICATION AND CONTROL: -
There is various methods, which are commonly, use to
verify data. Some of them are as given below:
1) Key Verification: - In this method a second
operator wreaks the data already recorded. This method is
used for verifying the data recorded in punch cards,
magnetic discs and magnetic tapes. Two files are
comparing to current records by records, which miss
match during comparison after verifying from the original
documents.
2) Use of self-checking numbers: The computer
can be programmed to reflect numbers that have been
transferred or have one or more wrong digits. Check digits
and self-checking number routines can be effectively used
for number in a series such as student Roll No., A/c No.
And Invoice No. Etc.
3) Visually displaying and Identifying
Characters: After inputting the data, the whole data is
displayed for confirmation from the operator. If he founds any error

then he may reenter the data or give response to store the data in
database.
4) Hash Totals: some times numbers are editing to produce a
meaning less total called hash. When the records are entered and
processed, the hash total is compared with the original total.
5) Checking between a range of Numbers: The

numbers on the orders being processed on a given day should fall
between 4999 and 6001 if the order numbers recorded on the input
record does note match within that range, an error message will be
displayed.
6) Verification of data type: - Some input fields should

contain only numeric data while other should contain only
character data. The fields can be edited to ascertain that only that
the right type of data is recorded in each field..
Output Design: Output of a system can take different
forms. The most common are records common displaces of
screen, printed form etc.
The output also varies in terms of their contents type of
stationary, frequency, timing etc. We can say that output
presents information to system users. There are two basic
types of computer outputs:

1. External Output
2. Internal Output
1. External Output: These are in printed forms and
produced by the system after processing to display various
information to the user like invoices for schedule,
inventory report, balance sheet etc.
2. Internal Output: These outputs are specified inside
the system to support the system user and manager like
error report.
These reports are further divided into three categories:
• Detailed: Detailed report presents information with
little or no filtering or restriction.
• Summary: Summary Report categorized information
for management, who don’t want detailed description of
the data.
• Exceptions: Reports filter data before they are
presented to the management as information.
Guidelines for output Designing:
There are many system issues that apply to output design.
The following general principles are important for output
design.
• Computer output should be simple to read and
interpret ate
1. Every report or output screen should have a title.
2. Report and screen should include section heading to
segment large amount of information.
3. Information in column should have in column heading.
4. Because section headings and column heading are
sometimes aggregated to save space, reports should
include legends to interpret those headings.
5. Legends should also be used to formally define all fields
on a report.
6. Computer jargon and error messages should be omitted
from all outputs.
• The timing of computer output is important. Output
must be received by their recipient while the information is
patient to transaction or decisions
• The distribution of computer output must be
sufficient to all the system users.
• The computer output must be acceptable to the
system user who will receive them and out put design may
contain the required information and still not be acceptable
to system user. To avoid this problem, the system analyst
must understand the exact requirement of the user .
Prototype and design computer output:
1. Identify system output: Output requirement should have been defined
during system analysis. Starting point for output design DFD’s for the
new system. The design unit DFD’ s must identify output requirement,
which can be easily, find after examining the DFD’s for data flow that
are connected to external entities.
2. Select output medium and format: Select the output medium and the
format for design which are based on
• The type and purpose of the output.
The technical and economic feasibilities.
After assuring and understanding type of reports we need
to address several design issue like
• What medium would best serve the output?
• What would be best format for the reports
• How frequently is the output generated
• How many page or sheet of output will be generated
for a single copy of Report.
• Does the out put required multiple copies
3.Prototype the output for system user. After design
decision detail has been recorded in the project, we must
create the format of the records. The format or layout of
an output directly affects the system user ability to read
and interpret it. To design final output we must get the
users feed back and other necessary information from the
user, which we want to display in the records.

TOOLS/PLATEFORM, LANGUAGES USED
TOOLS:
FRONT END: Visual Basic 6.0
BACK END: MS Access2000
Use DAO (Data Access Object) for connectivity between
VB 6.0 and Access 2000
PLATFORM:
Currently developed on Windows 2000 but also
compatible with all version Of the
Windows operating system.

INDEX
1. CANDIDATE DECLARATION
2. CERTIFICATE OF ORIGINALITY
3. ACKNOWLEDGEMENT
4. PREFACE
5. OBJECTIVE OF THE PROJECT
6. METHODOLOGY USED IN MAKING OF PROJECT
7. REQUIREMENT ANALYSIS
• Software Requirement
• Hardware Requirement
8. SYSTEM ANALYSIS
9. SYSTEM DESIGN
10. PROJECT DESCRIPTION
11. WORKING OF THE PROJECT
• Merits of This project
12.THE STRUCTRURAL OUTLAY OF PROJECT
13.PROGRAMME STRUCTURE
14.DATA FLOW DIAGRAM
15.PROGRAMME TESTING AND IMPLIMENTATION
16.CONCLUSION
PROJECT DESCRIPTION
DATA STRUCTURE-
Data structure is a representation of the logical
relationship among individual elements
Of the data, because the structures of the information will
invariable affect the final product design, data structure is
an important as program structure to the representation of
software architecture. Data structure dictates the
organization, method of access, design of associatively,
and processing alternative for information.
After that we define all access files.
The elements of analysis model
The analysis model must achieve three primary
objectives:
• To describe what the customer requires.
• To establish a basic for the creation of the
software design,
• To define a set of requirements that can be
validate once the software is built.
All the core of the model lies the data dictionary – a
repository that contains descriptions of all data objects
consumed or produced by the software. Three different

diagrams surround the core. The Entity- Relationship
Design (ERD) despite relationships between data objects.
The ERD is the notification that is used to conduct
The data modeling activity. The attributes of the each data
noted in the ERD can be described using a data object
description.
WORKING OF THE PROJECT

The main work of this project as explained in the objective of this project
is ,to maintain the records of all the students , the courses being availed by
the institute and the faculty involved in the institute to teach these
subjects.
As if the institute is very big and offering variety of courses ,thus the
number of students would also be very large and thus to teach so many
students and that too that many variety of courses ,would surely require
ample amount of learned and qualified and learned teachers .
Now for the proper functioning of the institute we need to have records of
each and every thing. Records may consist following types:-
Number of courses offered at the institute:- an institute may be

offering variety of courses. Like take the example of our university Sikkim
Manipal University of Health and Technology. It is the university offering
the maximum courses in whole India.
For e.g B’tech ,B’pharma , B’architechure , BBA , BCA , BSc.IT , BHMT
etc. And the master degree courses like MCA , MBA , MSc IT etc.
Number of semester in each type of course :- as there are variety of

courses thus their working would also be different . Each course may have
different number of semesters.
Number of seats available for each course and number of seats
occupied.:-
Each course has its own capacity . some courses may have 30 seats , some
may have 60 seats while a few courses may have 120 seats.
Fee structure or the mode of payment:- now as the fee is
deposited by each and Everyone. Now if the fees is a large sum of money
then a few may give cash while some may give cheque while some may
also deposit the fees in installments.
The faculty :- now the institute offering so many courses will also
require faculty to teach those courses and each teacher will have to be
given a separate code so as their record can be easily maintained. Also
each teacher may have their own fee structure.
To delete or to add a new record:- this is the biggest , tedious and

most cumbersome work that has to be done to maintain the records.
DEMERITS OF OLD METHODS OF SAVING THE RECORDS:-
As we discussed on the last page the about the records that age likely to be
maintained at some college. Suppose there is no computer in the institute
and the records are to be kept and updated manually using that old method
by using those registers contains the alphabetically written pages . It has
got several disadvantages. These are:-
1. It takes a lot of time to write all the records on the register.
2. The data of records maintained in the register are not safe. As you
cannot make several copies of the same registers, it is possible that your
registor may be lost, stolen , get wet , catch fire etc . there are many
possibilities in which the data may be damaged . now if such happens it
would now really become a very tedious job to again maintain all the
records.
3. The old method is very time consuming. As suppose there is a lot of rush
on the fee counter and if you have to search the records of the students.
So if u keep searching the page 1 by 1 then it would irritate all the
persons waiting as well as u may get irritated.
4. The biggest problem is of deleting and adding up of new records. If a
new student joins the institute or leaves the institute or want’s to change
the course , then to again change all the records of the students would
make the work tire some.
MERITS OF USING THE PROJECT
“INSTITUTE MANAGEMENT”:-
Now to overcome the problems as illustrated on the previous page the
records are saved electronically on the new revolutionary technology
called COMPUTER. But to save data on computer you need a proper
software .
Thus the project “INSTITUTE MANAGEMENT” is a small software that
helps you to overcome such type of problems.
MERITS:=>
1. DATA SECURITY :- the data remains secure in all forms. As
several copies of the same records can be formed thus if
any one of them because of any reason may get
damaged or lost then the another can be
successfully used. But it would only consist of the
records till last updated. To overcome this
you have to keep on updating all the copies.
2. DATA REDUNDANCY:- Now as data has become secure so it can

be stored at as many places as we want .
For e.g the records of all the students, or the
Faculty members may be stored at more than
2 places; say at the office as well as at the
directors room. Therefore now it is not
possible for any of them to do any change
in the data of records. They can only read
the data .Thus saving the data from getting redundant. This ensures
that duplicate copies of records are not made .The
changes in the records can only be made if the
user has logged in through the administrator.
3.DATA INTEGRITY :- The use of this project is also helpful in

making the data records integrate. As this saves the data from getting
redundant thus making the data integrate. The main importance of
integrated data is that all the records can be extracted from a single copy.
And also all the copies of it stored at different places would hold the same
data .
4.ADDITION OF A RECORD:- In this project it is very to add a new
record. As there is a option buttion
given as “add new” , by clicking on that button we get the option of adding
a new record . So we can easily insert the data . but it should be kept in
mind that a data can only be inserted if the user has logged in by the login
name
‘ADMINISTRATOR’. This is done for data security.
5.DELETION OF A RECORD:- you can also very easily delete any
record of any student or faculty
as by using the option button ‘ delete’. It is the same in it that a data can only
be inserted if the user has logged in by the login name
‘ADMINISTRATOR’.
6.UPDATION OF RECORDS:- suppose any new student takes the
admission during middle of the session
or any student leaves the course , or about the fee structure of the students
they all have to be updated time to time. Therefore it is also very easy to
update all the necessary records , as by clicking on the click button ‘update’.
By using that button the options come for updating the records thus making
it easy to update all the records.

7.FINDING A CERTAIN RECORD :- now if you have to find certain
records of any particular
students and if you have only a single identity of that student: suppose you
know his registration number only or u know his address than using such
type of identities we can find out the full details of the students , like the
name , his address , no. of marks obtained, amount of fees deposited etc.
as there a option button ‘find’ using that we can do so.
8.USER FRIENDLY:- it a user friendly software. It can be used by all the
persons who have got even some basic
knowledge of computer. As it a click and use software.

THE STRUCTURAL OUTLAY OF THE PROJECT
This shows the steps involved in the working of the project . These are as
follows:-
Step 1:- the screen with a beautiful wallpaper embedded with two text
Boxes : in one the user name is to be written and in one its
password has to be written. The screen also consist of two command
button: on one it is written OK and on the other it is written CANCEL.
If you think the username and the password is ok click on the OK button
and if you want to change something click OK.
There are two types of password: one is for the administrator use
and one is for general use .
Step 2 :- now if your password is correct you can start using the project.
An MDI form gets opened with two options: FORMS and EDIT.
Step 3 :- if you want to work on the software click on the option FORMS.
Then the list of all the forms contained in it comes out of which
you can choose any one of them on which you want to work.
On an total there are 10 forms : 9 for general use out of which 1 is
the EXIT form, and the one remaining is for administrational use.
The list of those 10 forms are:-
1. COURSE MASTER.
2. BATCH MASTER
3. STUDENT MASTER
4. ATTENDENCE
5. MARKS
6. PAYMENT
7. FACULTY MASTER
8. SEMESTER GRADE
9. USER NAME (administrational use)
10. EXIT
On whichever form you want to work upon you can click on hat fornm and
start using it through the options given on that form.
Step 4:- if you want to bring an changes or you have find any specifis
record to the records ,use the other option of the MDI form
‘EDIT’.
It consist of two options or two forms:-
1. DELETE.
2. FIND
Step 4.1 :- if suppose any student has to leave the college or he has to
change His course , in that situation the need for deleting some specific
record occurs. Therefore in this software to tackle that situation smoothly
the DELETE option can be used.
Now if you need to delete any record then surely it would be of
some student or any faculty. Thus the delete option consist of two sub-
forms:-
• STUDENT MASTER
• FACULTY MASTER
Step 4.1.a:- to delete a record from the STUDENT MASTER: If you

want to Delete a record of some student then this form is used. It consist of
a combo box in which you can put the registration number of that student .
the registration no. that you feed in that combo box ,the details of that
student occurs in the text box located just below it. If you are sure to
delete the records of that student ,then click on OK button ,and to return
to the original form on which you are working click on the CLOSE button.
ಎ Remember that the data can only be deleted if you have have logged in
through the login ADMINISTRATOR.
Step 4.1.b:- to delete a record from the FACULTY MASTER: if you wish
to Delete some record of any faculty we use this option . the difference
from the above is that in it only records of the faculty member can be
deleted by taking the use of ‘faculty code’. It consist of a combo box in

which you have to put the faculty code of that student . the faculty code
that you feed in that combo box ,the details of that teacher occurs in the
text box located just below it. If you are sure to delete the records of that
student ,then click on OK button ,and to return to the original form on
which you are working click on the CLOSE button.
ಎ Remember that the data can only be deleted if you have have logged in
through the login ADMINISTRATOR.
Step 4.2 :- now if you want to search the record of any student or faculty
we make the use of the form FIND .
as the record of the student you are finding you have to know his name or
registration no. etc. Thus this form consist of three sub-forms:-
• STUDENT DETAILS.
• MARKS
• SEMESTER GRADE.
Step 4.2.a:- if you want to get the personal details of a student then we
make the use of this form STUDENTS DETAILS. To find some record you
need to know the students registration no. or his name or his batch code or
the admission he has taken in which duration. All these are connected with a
combo box. On any one of the option button using which you want to find
the details , click on it. A combo box will open in front of it , which would
contain all the names or registration no. etc which ever you have selected.
From that you can choose the desired name , and find the details.
Step 4.2.b:- if you want to know the marks of the student . then the form is
provided with 3 option buttons: registration no. , marks and test code; each
consisting of a combo box . Choosing any one them , you can find out the
details about marks and test code of the student .
Step 4.2.c:- this SEMESTER GRADE is the last form using which you can
you can know the performance of the student. The form consist of two
option buttons : registration no. , semester number; each consisting of one
combo box. Thus we can choose any one of it and know the performance of
the students. you get the students record as the semester grade and
semester number.
Column
Data type size
name
registration
number 7
no. ATTENDANCE
Date date 8
Status text 8
BATCH MASTER
S_No Column Data Size Description
Name type
1. Course number5 Code of course
code
2. Batch Numbe 5 Code of batch
code r
3. Start date 12 Starting of batch
date
4. End date Date 12 Ending of batch
5. Days text 9 No. of working
pattern days
6. Time text 9 No. of working
slot hours
7. Faculty number5 Code of faculty
code
8. Total number3 No. of seats
seats available
9. Updated number3 No of seats filled
seats
COURSE MASTER
Col. name Data type Size
Course code Text 5
No. of semester Number 3

Course name Text 8
No. of
module Text 9
Total fees Number 7
Course duration Text 9

Eligibility Text 9
Total seats Number 3

Marks
Payment
S_No Column
S.No Name
Column Name Data
Data type
Type Size
Size Description
Description
1. Regn_No Number 6 Primary Key

1. Regn_no Number 6 Primary Key
2. Pay_date Date/Time 10 Payment Date
2. 3. Payment_mode
Date_of_exam Text
Date/Time 10
10 Type of Payment
Examination Date
4. Cheque_no Number 10 Cheque Number
3. Mod_test_name Text 25 Module Test Name
5. Pay_amount Number 10 In Rupees
4. 6. Bal_amount
Test_code Number
Text 10
8 In Rupees
Code of Test
7. Inst_no Number 10 No. of Installment
5. Marks_obt. Number 4 Obtained Marks
8. Inst_left Number 10 Rest of Installment
6. Mod_grade Text 3 Module Grade
7. Sem_grade Text 3 Semester Grade
8. Batch_code Number 4 Code of Batch

Student_Master
S.
N
Column Data Descriptio
Size
o Name type n
1. Regn_no Number 6 Primary Key
2. Stud_name Text 40 Name of Student
3. Stud_add Text 150 Address
4. Stud_ph.no Number 15 Telephone No.
5. Regn_date Date/Time 10 Date of Regn.
6. Batch_code Number 6 Foreign Key
7. Grad_status Text 6 Status of Grade

ATTENDENCE
8. Placement_req Text 1 Choice (Y/N)
9. Bal_fee Number 8 Rest of Amount
Registratio
Enter
Number
Save
Date of
Attendance
STUDENT Move
Move Next
Absent Status Present
MASTER Previous
Delete
BATCH MASTER
Course
Code
Add New
Batch
Code
Save
Start Date
Seats
Update
End Date
Modify
Days
pattern
Move Next
Time Slot
Student
Total
Seats
Faculty
Updated
Code
Master Move Previous
Close
No.of
semester
COURSE MASTER
Course
Code
Add New
Save
Course
Name
Find
No. Of
Modules
Modify
Total Fees
Move Next
Course
Duration
Move Previous
Eligibility
Delete
Total
Seats
Batch Master
Seats
Updated
Close
Batch Master
DATA FLOW DIAGRAM
IDENTITY CHECK
ADMINISTRATO
R PROGRAMMER
INSTITUTE MANAGER
Batch Master
Course Master
Student Master
Attendance Marks
Payment
Faculty master
Semester Grade
MDI FORM
FORMS EDIT
STUDENT’S
(TABLES) SEMESTE
STUDENT FACULTY
DETAILS MARKS
FIND R
MASTER DELETEMASTER
FACULTY MASTER
Add New
Faculty Code Save
Modify
Faculty Move Next

Name
Move Previous
Faculty
Skill Delete
BATCH MASTER
Close
STUDENT MASTER
Registratio
n Number Add New
Student Name
Save
Student
Address
Find
Student
Phone
Modify
Registration
Date
Move Next
YesBatch
Graduate
Placement
Status No
Required Move Previous
Delete
Close
Coding
Form Login
Option Explicit
Dim db As Database
Dim res As Recordset
Dim I As Integer
Public LoginSucceeded As Boolean
Private Sub cmdCancel_Click()
LoginSucceeded = False
Unload Me
End Sub
Private Sub cmdOK_Click()
cmdOK.Cancel = False
Set res = db.OpenRecordset("SELECT * FROM AUTH WHERE LOGINNAME='" &
txtUserName.Text & "'")
If res.RecordCount <> 1 Then
MsgBox "Invalid User Name.....!"
txtUserName.SetFocus
txtUserName.SelStart = 0
txtUserName.SelLength = Len(txtUserName.Text)
Exit Sub
End If
If txtPassword.Text = res.Fields(1).Value Then
LoginSucceeded = True
Load MDIForm1
MDIForm1.Show
ChkUserName = txtUserName.Text
Me.Hide
Unload Me
Else
I=I+1
If I = 3 Then
MsgBox "Don't Be over Smart.....!"
Unload MDIForm1
Unload Me
Exit Sub
End If
MsgBox "Invalid Password, try again!", , "Login"
txtPassword.SetFocus
txtPassword.SelStart = 0
txtPassword.SelLength = Len(txtPassword.Text)
SendKeys "{Home}+{End}"
End If
End Sub
Private Sub Form_Load()
Set db = OpenDatabase(App.Path & "\cmaster.MDB")
I=0
End Sub
Private Sub Timer1_Timer()
'Dim a As Integer
'a = a + 1
End Sub
Form MDI
Option Explicit
Private Sub MDIForm_Load()
Load Form2
Form2.Show
End Sub
Private Sub MDIForm_Resize()
Form5.Height = MDIForm1.ScaleHeight
Form5.Width = MDIForm1.ScaleWidth
Form13.Height = MDIForm1.ScaleHeight
Form13.Width = MDIForm1.ScaleWidth
End Sub
Private Sub sattendance_Click()
Load Form3
Form3.Show
Unload Form1
Unload Form2
Unload Form4
Unload Form5
Unload Form6
Unload Form7
Unload Form8
Unload Form9
Unload Form10
Unload Form11
Unload Form12
Unload Form13
End Sub
Private Sub sbatch_master_Click()
'Form2.Width = MDIForm1.ScaleWidth
'Form2.Height = MDIForm1.ScaleHeight
Load Form2
Form2.Show
Unload Form1
Unload Form3
Unload Form4
Unload Form5
Unload Form6
Unload Form7
Unload Form8
Unload Form9
Unload Form10
Unload Form11
Unload Form12
Unload Form13
End Sub
Private Sub scourse_master_Click()
'Form13.Height = MDIForm1.ScaleHeight
'Form13.Width = MDIForm1.ScaleWidth
Load Form13
Form13.Show
Unload Form1
Unload Form2
Unload Form3
Unload Form4
Unload Form5
Unload Form6
Unload Form7
Unload Form8
Unload Form9
Unload Form10
Unload Form11
Unload Form12
Unload frmUser
End Sub
Private Sub sdetails_Click()
Load Form10
Form10.Show
Unload Form1
Unload Form2
Unload Form3
Unload Form5
Unload Form6
Unload Form7
Unload Form8
Unload Form9
Unload Form11
Unload Form12
Unload Form13
Unload frmUser
End Sub
Private Sub sexit_Click()
End
End Sub
Private Sub sfaculty_Click()
Load Form12
Form12.Show
Unload Form1
Unload Form2
Unload Form3
Unload Form5
Unload Form6
Unload Form7
Unload Form8
Unload Form9
Unload Form10
Unload Form11
Unload Form13
Unload frmUser
End Sub
Private Sub sfaculty_mas_Click()
Load Form8
Form8.Show
Unload Form1
Unload Form2
Unload Form3
Unload Form4
Unload Form5
Unload Form6
Unload Form7
Unload Form9
Unload Form10
Unload Form11
Unload Form12
Unload Form13
Unload frmUser
End Sub
Private Sub sgrade_Click()
Load Form14
Form14.Show
Unload Form1
Unload Form2
Unload Form3
Unload Form5
Unload Form6
Unload Form7
Unload Form8
Unload Form9
Unload Form10
Unload Form11
Unload Form12
Unload Form13
Unload frmUser
End Sub
Private Sub smark_Click()
Load Form1
Form1.Show
Unload Form2
Unload Form3
Unload Form5
Unload Form6
Unload Form7
Unload Form8
Unload Form9
Unload Form10
Unload Form11
Unload Form12
Unload Form13
Unload frmUser
End Sub
Private Sub smarks_Click()
Load Form5
Form5.Show
Unload Form1
Unload Form2
Unload Form3
Unload Form4
Unload Form6
Unload Form7
Unload Form8
Unload Form9
Unload Form10
Unload Form11
Unload Form12
Unload Form13
Unload frmUser
End Sub
Private Sub spayment_Click()
Load Form6
Form6.Show
Unload Form1
Unload Form2
Unload Form3
Unload Form4
Unload Form5
Unload Form7
Unload Form8
Unload Form9
Unload Form10
Unload Form11
Unload Form12
Unload Form13
Unload frmUser
End Sub
Private Sub ssemester_grade_Click()
Load Form7
Form7.Show
Unload Form1
Unload Form2
Unload Form3
Unload Form4
Unload Form5
Unload Form6
Unload Form8
Unload Form9
Unload Form10
Unload Form11
Unload Form12
Unload Form13
Unload frmUser
End Sub
Private Sub sstudent_Click()
Load Form9
Form9.Show
Unload Form1
Unload Form2
Unload Form3
Unload Form5
Unload Form6
Unload Form7
Unload Form8
Unload Form10
Unload Form11
Unload Form12
Unload Form13
Unload frmUser
End Sub
Private Sub sstudent_master_Click()
Load Form4
Form4.Show
Unload Form1
Unload Form2
Unload Form3
Unload Form5
Unload Form6
Unload Form7
Unload Form8
Unload Form9
Unload Form10
Unload Form11
Unload Form12
Unload Form13
Unload frmUser
End Sub
Private Sub userform_Click()
If ChkUserName = "ADMINISTRATOR" Then
Load frmUser
frmUser.Show
Unload Form1
Unload Form2
Unload Form3
Unload Form4
Unload Form5
Unload Form6
Unload Form7
Unload Form8
Unload Form9
Unload Form10
Unload Form11
Unload Form12
Unload Form13
Else
MsgBox "Contect your Administrator"
End If
End Sub
Form Batch_Master
Option Explicit
Private Sub addmethod()
Data1.DatabaseName = App.Path & "\Cmaster.mdb"
Data1.RecordSource = "select * from BATCH_MASTER"
Data1.Refresh
Data1.Recordset.AddNew
Data1.Recordset("BATCH_CODE") = Text1
Data1.Recordset("START_DATE") = Format(CVDate(M1.Text), "dd/mm/yyyy")
Data1.Recordset("END_DATE") = Format(CVDate(M2.Text), "dd/mm/yyyy")
Data1.Recordset("DAYS_PATTERN") = Text5
Data1.Recordset("COURSE_CODE") = Combo1.Text
Data1.Recordset("TIME_SLOT") = Text7
Data1.Recordset("FAC_CODE") = Text8
Data1.Recordset("TOTAL_SEATS") = Text9
Data1.Recordset("UPDATED_SEATS") = Text10
Data1.Recordset.Update
End Sub
Private Sub modimethod()
Data1.Recordset.Edit
End Sub
Private Sub Combo1_Click()
Form13.Data1.DatabaseName = App.Path & "\Cmaster.mdb"
Form13.Data1.RecordSource = "select * from coursemaster"
Form13.Data1.Refresh
Form13.Data1.Recordset.FindFirst "course_code='" & Combo1.Text & "'"
Text9.Text = Form13.Data1.Recordset("total_seats")
Data1.Refresh
Data1.Recordset.FindFirst "COURSE_CODE='" & Combo1.Text & "'"

Text1.Text = Data1.Recordset("BATCH_CODE")
If IsNull(Data1.Recordset("START_DATE")) Then Exit Sub
M1.Text = Format(Data1.Recordset("START_DATE"), "dd/mm/yyyy")
If IsNull(Data1.Recordset("END_DATE")) Then Exit Sub
M1.Text = Format(Data1.Recordset("END_DATE"), "dd/mm/yyyy")
Text5.Text = Data1.Recordset("DAYS_PATTERN")
Combo1.Text = Data1.Recordset("COURSE_CODE")
Text7.Text = Data1.Recordset("TIME_SLOT")
Text8.Text = Data1.Recordset("FAC_CODE")
Text9.Text = Data1.Recordset("TOTAL_SEATS")
Text10.Text = Data1.Recordset("UPDATED_SEATS")
End Sub
Private Sub Command1_Click()
Text1.Text = ""
M1.Mask = ""
M1.Text = ""
M1.Mask = "##/##/####"
M2.Mask = ""
M2.Text = ""
M2.Mask = "##/##/####"
Text5 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text10 = ""
Command2.Enabled = True
End Sub
Data1.Recordset.FindFirst "COURSE_CODE='" & Combo1.Text & "'"
If Data1.Recordset.NoMatch = False Then
modimethod
Else
addmethod
End If
End Sub
Data1.Refresh
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
MsgBox "You are on the last record"
End If

End Sub
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
MsgBox "You are on the first record"
End If
End Sub
check = True
Data1.DatabaseName = App.Path & "\Cmaster.MDB"
Data1.Refresh
Data1.Recordset.FindFirst "UPDATED_SEATS=" & Val(Text10.Text)
If Data1.Recordset("UPDATED_SEATS") = 0 Then
MsgBox "Seats is not available in this Course"
Exit Sub
End If
Data1.Recordset.FindFirst "course_code='" & Combo1.Text & "'"
If Data1.Recordset.NoMatch = True Then
Text10.Text = Val(Text9.Text) - 1
Else
Text10.Text = Val(Data1.Recordset!updated_seats) - 1
End If
MsgBox ("Click Save button to Save Updated Seats")
End Sub

Data1.Refresh
Dim a As Integer
a = MsgBox("Modify current record", vbYesNo, "Batch Master")
If a = 6 Then
Form4.Data1.Refresh
Form4.Combo1.Refresh
ElseIf a = 7 Then
Exit Sub
End If
End Sub
Unload Me
Form2.Visible = False
MDIForm1.Show
End Sub
Load Form4
Form4.Show
End Sub
Form1.Refresh
Label2.Visible = False
Text9.Locked = True
Form13.Data1.RecordSource = "select * from COURSEMASTER"
Form13.Data1.Refresh
Do While Not Form13.Data1.Recordset.EOF
Combo1.AddItem Form13.Data1.Recordset("COURSE_CODE")
Form13.Data1.Recordset.MoveNext
Loop
Data1.DatabaseName = App.Path & "\Cmaster.MDB"
Data1.Refresh

End Sub
Private Sub M1_GotFocus()
Command2.Visible = False
Label2.Visible = True
Form13.Data1.DatabaseName = App.Path & "Cmaster.mdb"
Form13.Data1.RecordSource = "select * from COURSEMASTER"
Form13.Data1.Recordset.FindFirst "COURSE_CODE ='" & Combo1.Text & "'"
Label2.Caption = Form13.Data1.Recordset("COURSE_DURATION")
End Sub
Private Sub M1_LostFocus()
If M1.Mask = " " Then
MsgBox "Please enter start date"
End If
End Sub
Private Sub m2_LostFocus()
Command2.Visible = True
End Sub
Form Student Master
Option Explicit
Dim st As Boolean
If check = True Then
Dim I As Integer
I = Data1.Recordset("REGN_NO") + 1
Text1.Text = I
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
M1.Mask = ""
M1.Text = ""
M1.Mask = "##/##/####"
Option1.Value = False
Text1.SetFocus
Else
MsgBox "Please update the Seats on BATCH MASTER"
Unload Me
Load Form2
Form2.Show
End If
End Sub
Dim a As Integer
a = MsgBox("Modify Current Record", vbYesNo)
If a = 6 Then
Data1.Recordset("REGN_NO") = Val(Text1)
Data1.Recordset("STUD_NAME") = (Text2)
Data1.Recordset("STUD_ADD") = (Text3)
Data1.Recordset("STUD_PHONE") = Val(Text4)
Data1.Recordset("REGN_DATE") = Format(CVDate(M1.Text), "dd/mm/yyyy")
Data1.Recordset("BATCH_CODE") = Combo1
'End If
If Option1.Value = True Then
Data1.Recordset("GRADUTE_STATUS") = True
Else
Data1.Recordset("GRADUTE_STATUS") = False
End If
Data1.Recordset("PLACEMENT_REQUIRED") = True
Else
Data1.Recordset("PLACEMENT_REQUIRED") = False
End If
End If
If a = 7 Then
Exit Sub
End If
End Sub
FLAGS = True
st = True
Data1.Recordset.FindFirst ("REGN_NO='" & Val(Text1.Text) & "'")
If Not (Data1.Recordset.NoMatch) Then
st = False
MsgBox "Please enter a different Registration Number", , "Student Master"
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
Exit Sub
End If
Data1.RecordSource = "select * from STUDENT_MASTER"
Data1.Refresh
If Data1.Recordset("REGN_NO") = Val(Text1.Text) Then
MsgBox "Please enter a different Record, it's alredy exit ", , "Student Master"
Exit Sub
Else
Data1.Recordset("REGN_NO") = (Text1)
Data1.Recordset("STUD_NAME") = (Text2)
Data1.Recordset("STUD_ADD") = (Text3)
Data1.Recordset("STUD_PHONE") = Val(Text4)
Data1.Recordset("REGN_DATE") = Format(CVDate(M1.Text), "dd/mm/yyyy")
Data1.Recordset("BATCH_CODE") = Combo1.Text
Data1.Recordset("GRADUTE_STATUS") = Option1.Value
ElseIf Option2.Value = True Then
Data1.Recordset("GRADUTE_STATUS") = Option1.Value
End If
Data1.Recordset("PLACEMENT_REQUIRED") = Option3.Value
Data1.Recordset("PLACEMENT_REQUIRED") = Option3.Value
End If
Dim db As Database
Set db = OpenDatabase(App.Path & "\Cmaster.mdb")
Set res = db.OpenRecordset("Select Tot_Fees From CourseMaster, Batch_Master Where
Batch_Master.Course_code=CourseMaster.Course_Code And Batch_Code='" &
Combo1.Text & "'")
Data1.Recordset("Bal_Fee") = res.Fields(0)
End If
End Sub
On Error GoTo ERR
If (FLAG) Then
Data1.Refresh
End If
FLAG = False
Data1.Refresh
End If
Text1.Text = Data1.Recordset("REGN_NO")
Text2.Text = Data1.Recordset("STUD_NAME")
Text3.Text = Data1.Recordset("STUD_ADD")
Text4.Text = Data1.Recordset("STUD_PHONE")
If IsNull(Data1.Recordset("REGN_DATE")) Then Exit Sub

M1.Text = Format(Data1.Recordset("REGN_DATE"), "dd/mm/yyyy")
If IsNull(Data1.Recordset("BATCH_CODE")) Then
Combo1 = ""
Exit Sub
End If
Combo1.Text = Data1.Recordset("BATCH_CODE")
If Data1.Recordset("GRADUTE_STATUS") = True Then
Option1.Value = True
Else
End If
If Data1.Recordset("PLACEMENT_REQUIRED") = True Then
Else
End If
ERR:
MsgBox ERR.Description
End Sub

If (FLAG) Then
Data1.DatabaseName = App.Path & "\cmaster.mdb"
Data1.Refresh
End If
FLAG = False
Data1.Refresh
End If
If IsNull(Data1.Recordset("BATCH_CODE")) Then
Combo1 = ""
Exit Sub
End If
If Data1.Recordset("GRADUTE_STATUS") = True Then
Else
End If
If Data1.Recordset("PLACEMENT_REQUIRED") = True Then
Else
End If
End Sub
Form9.Show
End Sub
Form10.Show
End Sub
MDIForm1.Show
End Sub
Data1.Visible = False
Data1.DatabaseName = App.Path & "\CMASTER.MDB"
Data1.RecordSource = "SELECT * FROM student_MASTER"
Data1.Refresh
Option1.Value = Data1.Recordset("GRADUTE_STATUS")
Else
Option2.Value = Data1.Recordset("GRADUTE_STATUS")
End If
Option3.Value = Data1.Recordset("PLACEMENT_REQUIRED")
Else
Option4.Value = Data1.Recordset("PLACEMENT_REQUIRED")
End If
Form2.Data1.RecordSource = "select * from BATCH_MASTER"
Form2.Data1.Refresh

Combo1.AddItem Form2.Data1.Recordset("BATCH_CODE")
Loop
End Sub
Private Sub Text1_LostFocus()
If Text1.Text = "" Then
st = False
MsgBox "Please Enter Regstration Number"
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
End If
End Sub
If st = False Then Exit Sub
If Text2.Text = "" Then
MsgBox "please Enter The Name"
Text2.SetFocus
End If
End Sub
Form fmarks
Option Explicit
Form5.Data1.RecordSource = "select * from MARKS"
Form5.Data1.Refresh
Form5.Data1.Recordset.FindFirst "REGN_NO='" & Combo1.Text & "'"
Text1.Text = ""
Text1.Text = Form5.Data1.Recordset("REGN_NO") & vbCrLf & vbCrLf & _
Form5.Data1.Recordset("DATE_OF_EXAM") & vbCrLf & vbCrLf & _
Form5.Data1.Recordset("MOD_TEST_NAME") & vbCrLf & vbCrLf & _
Form5.Data1.Recordset("TEST_CODE") & vbCrLf & vbCrLf & _
Form5.Data1.Recordset("MARKS_OBTAINED") & vbCrLf & vbCrLf & _
Form5.Data1.Recordset("MOD_GRADE") & vbCrLf & vbCrLf & _
Form5.Data1.Recordset("SEMESTER_GRADE") & vbCrLf & vbCrLf & _
Form5.Data1.Recordset("BATCH_CODE")
End Sub
Form5.Data1.Refresh
Form5.Data1.Recordset.FindFirst "MARKS_OBTAINED=" & Val(Combo2.Text)
Text1.Text = ""

End Sub
Form5.Data1.Refresh
Form5.Data1.Recordset.FindFirst "TEST_CODE='" & Combo3.Text & "'"
Text1.Text = ""
End Sub
Unload Me
End Sub

Text1.Locked = True
Combo1.Visible = False
Form5.Data1.Refresh
Combo1.AddItem Form5.Data1.Recordset("REGN_NO")
Loop
Form5.Data1.Refresh
Combo2.AddItem Form5.Data1.Recordset("MARKS_OBTAINED")
Loop

Form5.Data1.Refresh
Combo3.AddItem Form5.Data1.Recordset("TEST_CODE")
Loop
End Sub
Private Sub Option1_Click()
Text1.Text = ""
Combo1.Visible = True
End Sub
Text1.Text = ""
End Sub
Text1.Text = ""
End Sub
Form Find
Form4.Data1.DatabaseName = App.Path & "\cmaster.mdb"
Form4.Data1.RecordSource = "select * from STUDENT_MASTER"
Form4.Data1.Refresh
List1.Clear
Form4.Data1.Recordset.FindFirst "REGN_NO = '" & Combo1.Text & "'"
List1.AddItem Form4.Data1.Recordset!REGN_NO & " " & " " & _
Form4.Data1.Recordset!STUD_NAME & " " & " " & _
Form4.Data1.Recordset!STUD_ADD & " " & " " & _
Form4.Data1.Recordset!STUD_PHONE & " " & " " & _
Form4.Data1.Recordset!REGN_NO & " " & " " & _
Form4.Data1.Recordset!BATCH_CODE & " " & " " & _
Form4.Data1.Recordset!GRADUTE_STATUS & " " & " " & _
Form4.Data1.Recordset!PLACEMENT_REQUIRED
End Sub
Form4.Data1.Refresh
List1.Clear
Form4.Data1.Recordset.FindFirst "STUD_NAME = '" & Combo2.Text & "'"
List1.AddItem Form4.Data1.Recordset!REGN_NO & " " & " " & " " & _
Form4.Data1.Recordset!STUD_NAME & " " & " " & " " & _
End Sub
Form4.Data1.Refresh
List1.Clear
Form4.Data1.Recordset.FindFirst "BATCH_CODE = '" & Combo3.Text & "'"

End Sub
Unload Me
End Sub
m1.Visible = False
m2.Visible = False
Form4.Data1.DatabaseName = App.Path & "\Cmaster.MDB"

Form4.Data1.Refresh
Loop
Form4.Data1.RecordSource = "select distinct stud_name from STUDENT_MASTER"
Form4.Data1.Refresh
Combo2.AddItem Form4.Data1.Recordset("STUD_NAME")
Loop
Form4.Data1.RecordSource = "select distinct BATCH_CODE from
STUDENT_MASTER"
Form4.Data1.Refresh
If IsNull(Form4.Data1.Recordset("BATCH_CODE")) Then Exit Sub
Loop
'Combo1.Visible = False
End Sub
Private Sub m2_LostFocus()
Form4.Data1.RecordSource = ("select * from STUDENT_MASTER where
REGN_DATE>=#" & Format(CVDate(m1.Text), "dd/mm/yyyy") & "#" & "and
REGN_DATE<=#" & Format(CVDate(m2.Text), "dd/mm/yyyy") & "#")
Form4.Data1.Refresh
List1.Clear
Form4.Data1.Refresh
List1.AddItem Form4.Data1.Recordset("REGN_NO") & _
Form4.Data1.Recordset("STUD_NAME")
Loop
m1.Mask = ""
m1.Text = ""
m1.Mask = "##/##/####"
m2.Mask = ""
m2.Text = ""
m2.Mask = "##/##/####"
End Sub
List1.Clear
m1.Visible = False
m2.Visible = False
End Sub
List1.Clear
m1.Visible = False
m2.Visible = False
End Sub
List1.Clear
m1.Visible = False
m2.Visible = False
End Sub
List1.Clear
m1.Visible = True
m2.Visible = True
m1.SetFocus
End Sub
Form Fdel
Form8.Data1.RecordSource = "select * from FACULTY_MASTER"
Form8.Data1.Refresh
Form8.Data1.Recordset.FindFirst "FAC_CODE='" & Combo1.Text & "'"
Text1.Text = Form8.Data1.Recordset("FAC_CODE") & vbCrLf & vbCrLf & _
Form8.Data1.Recordset("FAC_NAME") & vbCrLf & vbCrLf & _
Form8.Data1.Recordset("FAC_SKILL")
End Sub
Dim a As Integer
a = MsgBox("Are you sure", vbYesNo, "Delete")
If a = 6 Then
Form8.Data1.Recordset.Delete
Form8.Data1.Recordset.MoveFirst
Combo1.AddItem Form8.Data1.Recordset("FAC_CODE")
Text1.Text = Form8.Data1.Recordset("FAC_CODE") & vbCrLf & vbCrLf & _
Form8.Data1.Recordset("FAC_NAME") & vbCrLf & vbCrLf & _
Form8.Data1.Recordset("FAC_SKILL")
End If
If a = 7 Then
Exit Sub
End If
End Sub
Unload Me
End Sub
Form8.Data1.RecordSource = "select * from FACULTY_MASTER"
Form8.Data1.Refresh
Loop
End Sub
Form Course Master
Option Explicit
Dim a As Boolean
Dim sa As Boolean
Data1.RecordSource = "select * from COURSEMASTER"
Data1.Refresh
Combo1.Refresh
Data1.Recordset.FindFirst "COURSE_NAME='" & Combo1.Text & "'"
Text1 = Data1.Recordset("COURSE_CODE")
Text2 = Data1.Recordset("NO_SEMESTER")
Text4 = Data1.Recordset("NO_OF_MODULES")
Text5 = Data1.Recordset("TOT_FEES")
Text6 = Data1.Recordset("COURSE_DURATION")
Text7 = Data1.Recordset("ELIGIBILITY")
Text3 = Data1.Recordset("TOTAL_SEATS")
End Sub
Private Sub Combo1_LostFocus()
If a = True Then
ElseIf a = False Then
Exit Sub
End If
End Sub
Data1.Refresh
Combo1.Text = Data1.Recordset("COURSE_NAME")
Dim B As Integer
B = MsgBox("Are you sure", vbYesNo, "Course Master")
If B = 6 Then
Data1.Recordset.Delete
ElseIf B = 7 Then
Exit Sub
End If
End Sub
Text1 = ""
Text2 = ""
Text3 = ""
Combo1.Text = " "
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text1.SetFocus
End Sub
sa = True
If Not (Data1.Recordset.NoMatch) Then
sa = False
MsgBox ("Please enter a different name")
Combo1.SelStart = 0
Combo1.SelLength = Len(Combo1.Text)
Exit Sub
End If
Data1.RecordSource = " SELECT * FROM COURSEMASTER"
Data1.Refresh
Combo1.Refresh
Data1.Recordset("COURSE_CODE") = Text1
Data1.Recordset("NO_SEMESTER") = Val(Text2)
Data1.Recordset("COURSE_NAME") = Combo1.Text
Data1.Recordset("NO_OF_MODULES") = Val(Text4)
Data1.Recordset("TOT_FEES") = Val(Text5)
Data1.Recordset("COURSE_DURATION") = Text6
Data1.Recordset("ELIGIBILITY") = Text7
End Sub
Data1.Refresh
Combo1.Refresh
End If
End Sub
End If
End Sub
MsgBox "Click combo box"
Combo1.SetFocus
End Sub
Load Form9
Form9.Show
End Sub
Data1.RecordSource = "select * from coursemaster"
Dim C As Integer
C = MsgBox("Modify current record", vbYesNo, "Course Master")
If C = 6 Then
Data1.Refresh
Data1.Recordset("COURSE_CODE") = Text1
Data1.Recordset("COURSE_NAME") = Combo1.Text
Data1.Recordset("NO_OF_MODULES") = Val(Text4)
Data1.Recordset("TOT_FEES") = Val(Text5)
Data1.Recordset("COURSE_DURATION") = Text6
Data1.Recordset("ELIGIBILITY") = Text7
ElseIf C = 7 Then
Exit Sub
End If
Data1.Refresh
Combo1.Clear
Do While Not Data1.Recordset.EOF
Combo1.AddItem Data1.Recordset("COURSE_NAME")
Loop
Combo1.ListIndex = 0
End Sub
Unload Me
End Sub
Load Form2
Form2.Show
Unload Me
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
End Sub
Data1.Refresh
Do While Not Data1.Recordset.EOF
Combo1.AddItem Data1.Recordset("COURSE_NAME")
Loop
End Sub
Form Fsg
Option Explicit
Form7.Data1.RecordSource = "select * from SEMESTER_GRADE"
Form7.Data1.Refresh
Form7.Data1.Recordset("SEM_GRADE") & vbCrLf & vbCrLf & _
Form7.Data1.Recordset("NO_SEMESTER")
End Sub

Form7.Data1.Refresh
Form7.Data1.Recordset.FindFirst "SEM_GRADE='" & Combo1.Text & "'"
End Sub
Form7.Data1.Refresh
End Sub
Unload Me
End Sub
Text1.Locked = True
Form7.Data1.Refresh
Loop
Form7.Data1.Refresh
Loop
Form7.Data1.Refresh
Combo3.AddItem Form7.Data1.Recordset("NO_SEMESTER")
Loop
End Sub
Text1.Text = ""
End Sub
'Combo2.Visible = True
End Sub
Text1.Text = ""
End Sub
Form Attendence
Option Explicit
Dim sa As Boolean
Data1.Recordset.FindFirst "REGN_NO='" & Val(Combo1.Text) & "'"
If Data1.Recordset("STATUS(P/A)") = True Then
Else
End If
End Sub
Combo1.Text = " "
M1.Mask = " "
M1.Mask = Format(Date, "dd/mm/yyyy")
Combo1.SetFocus
End Sub
Data1.RecordSource = "SELECT * FROM ATTENDANCE"
Data1.Refresh
Data1.Recordset("REGN_NO") = Combo1.Text
Data1.Recordset("DATE") = Format(CVDate(M1.Text), "dd/mm/yyyy")

Data1.Recordset("STATUS(P/A)") = Option1.Value
Data1.Recordset("STATUS(P/A)") = Option1.Value
End If
End Sub
Data1.Refresh
End If
Combo1.Text = Data1.Recordset("REGN_NO")
M1.Mask = Format(Data1.Recordset("DATE"), "dd/mm/yyyy")
Else
End If
End Sub
End If
M1.Mask = Format(Data1.Recordset("DATE"), "dd/mm/yyyy")
Else
End If
End Sub
Unload Form3
MDIForm1.Show
End Sub
Form4.Data1.Refresh
Loop
Data1.Refresh
Option1.Value = Data1.Recordset("REGN_NO")
M1.Text = Format(Data1.Recordset("DATE"), "dd/mm/yyyy")
End If
End Sub
'If Text1.text = " " Then
'MsgBox "Pease enter Registration Number"
'Text1.SetFocus
'End If
End Sub
Form Marks
Option Explicit
Combo1.Text = " "
m1.Mask = " "
m1.Text = " "
m1.Mask = "##/##/####"
Text3 = " "
Text4 = " "
Text5 = " "
Text6 = " "
Text7 = " "
End Sub
Data1.RecordSource = "select * from MARKS"
Data1.Refresh
Data1.Recordset("DATE_OF_EXAM") = Format(CVDate(m1.Text), "dd/mm/yyyy")
Data1.Recordset("MOD_TEST_NAME") = Text3
Data1.Recordset("TEST_CODE") = Text4
Data1.Recordset("MARKS_OBTAINED") = Text5
Data1.Recordset("MOD_GRADE") = Text6
Data1.Recordset("SEMESTER_GRADE") = Text7
End Sub
End If
m1.Text = Format(Data1.Recordset("DATE_OF_EXAM"), "dd/mm/yyyy")
Text3 = Data1.Recordset("MOD_TEST_NAME")
Text4 = Data1.Recordset("TEST_CODE")
Text5 = Data1.Recordset("MARKS_OBTAINED")
Text6 = Data1.Recordset("MOD_GRADE")
Text7 = Data1.Recordset("SEMESTER_GRADE")
Combo2 = Data1.Recordset("BATCH_CODE")
End Sub
End If
End Sub

Load Form1
Form1.Show
End Sub
Load Form9
Form9.Show
End Sub
MDIForm1.Show
End Sub
End Sub
Loop

Form2.Data1.Refresh
Loop
Data1.RecordSource = "select * from MARKS"
Data1.Refresh
End Sub
Form Attendence
Option Explicit
Dim sa As Boolean
Dim AddST As Boolean
Dim a
Dim B
Dim avg As Integer
Dim db As Database
Private Sub addmethod()
Data1.Recordset("REG_NO") = Combo1.Text
Data1.Recordset("PAY_DATE") = Format(CVDate(M1.Text), "dd/mm/yyyy")
Data1.Recordset("PAY_AMT") = Val(Text3.Text)
Data1.Recordset("BAL_AMT") = Val(Text4.Text)
Data1.Recordset("PAYMENT_MODE") = Option1.Value
End If
Data1.Recordset("CHEQUE_NO") = Val(Text1.Text)
Data1.Recordset("INST_NO") = Val(Text6.Text)
Data1.Recordset("INST_LEFT") = Val(Text7.Text)
End Sub
Private Sub modimethod()
End If
Data1.Recordset("CHEQUE_NO") = Val(Text1.Text)
End Sub
Set res = db.OpenRecordset("Select Bal_fee from Student_Master where regn_no='" &
Combo1.Text & "'")
Label9.Caption = res.Fields(0)
End Sub
Combo1.Text = " "
M1.Mask = Format(Date, "dd/mm/yy")
M1.Enabled = False
Text1.Visible = False
Text3.Text = " "
Text4.Text = " "
Text7.Text = " "

Combo1.SetFocus
AddST = True
End Sub
Data1.DatabaseName = App.Path & "\cmaster.mdb"
Data1.RecordSource = "select * from payment"
Data1.Refresh
Data1.Recordset.FindFirst "reg_no='" & Combo1.Text & "'"
If Data1.Recordset.NoMatch = False Then
modimethod
Else
addmethod
End If
Dim qry As QueryDef
Set qry = db.CreateQueryDef("", "Update Student_Master set Bal_Fee=" & Text4.Text &
" where Regn_no='" & Combo1.Text & "'")
qry.Execute
End Sub
End If
Combo1.Text = Data1.Recordset("REG_NO")
Text3 = Data1.Recordset("PAY_AMT")
Text4 = Data1.Recordset("BAL_AMT")
If Data1.Recordset("PAYMENT_MODE") = True Then
Text1.Visible = True
Else
End If
If IsNull(Data1.Recordset("CHEQUE_NO")) Then Exit Sub
Text1.Text = Data1.Recordset("CHEQUE_NO")
Text6 = Data1.Recordset("INST_NO")
Text7 = Data1.Recordset("INST_LEFT")
End Sub
End If
Else
End If
End Sub
Dim C As Integer
MsgBox "(Modify Current Record, vbYesNoCancel)"
Data1.Recordset.FindFirst "reg_no='" & Combo1.Text & "'"
End Sub
MDIForm1.Show
End Sub
On Error GoTo ERR
Form4.Data1.Refresh
Loop
Data1.RecordSource = "select * from PAYMENT"
Data1.Refresh
M1.Text = Format(Data1.Recordset("PAY_DATE"), "dd/mm/yyyy")
Else
End If
AddST = True
ERR:
End Sub
Text1.Text = ""
Else
End If
End Sub
On Error GoTo ERR
End If
Text3.SetFocus
ERR:
End Sub
If Text1 = " " Then
MsgBox "Pease enter Registration Number"
Text1.SetFocus
End If
End Sub
Private Sub Text4_GotFocus()
Set res = db.OpenRecordset("Select Bal_fee from Student_Master where regn_no='" &
Combo1.Text & "'")
Text4.Text = Val(res.Fields(0)) - Val(Text3.Text)
End Sub
Text7 = Val(Text6) - 1
End Sub
Form Student Grade
Option Explicit
Data1.RecordSource = "select * from SEMESTER_GRADE"
Data1.Refresh
Data1.Recordset.FindFirst "REGN_NO='" & Combo1.Text & "'"
Combo1.Text = Form7.Data1.Recordset("REGN_NO")
Text2.Text = Data1.Recordset("SEM_GRADE")
Text3.Text = Data1.Recordset("NO_SEMESTER")
End Sub
Combo1.Text = ""
Text2 = ""
Text3 = ""
Combo1.SetFocus
End Sub
On Error GoTo ERR

Data1.Refresh
Data1.Recordset("SEM_GRADE") = Text2
ERR:
End Sub
On Error GoTo ERR
End If
Text2 = Data1.Recordset("SEM_GRADE")
ERR:
End Sub

On Error GoTo ERR
End If
ERR:
End Sub
End Sub
Unload Form7
MDIForm1.Show
End Sub
On Error GoTo ERR

Form4.Data1.Refresh
Loop
Data1.Refresh
ERR:
End Sub
Form Faculty Master
Option Explicit
Combo1 = ""
Text2 = ""
Text3 = ""
Combo1.SetFocus
End Sub
Data1.RecordSource = "select * from FACULTY_MASTER"
Data1.Refresh
Data1.Recordset("FAC_CODE") = Combo1.Text
Data1.Recordset("FAC_NAME") = Text2
Data1.Recordset("FAC_SKILL") = Text3
End Sub
End If
Combo1.Text = Data1.Recordset("FAC_CODE")
Text2 = Data1.Recordset("FAC_NAME")
Text3 = Data1.Recordset("FAC_SKILL")
End Sub
End If
Combo1.Text = Data1.Recordset("FAC_CODE")
End Sub
Unload Form8
MDIForm1.Show
End Sub
Data1.Refresh
Dim SM As Integer
SM = MsgBox("Do you want to modify Record", vbYesNo)
If SM = 6 Then
Data1.Recordset("FAC_CODE") = Combo1.Text
Data1.Recordset("FAC_NAME") = Text2
Data1.Recordset("FAC_SKILL") = Text3
ElseIf SM = 7 Then
Exit Sub
End If
End Sub
Load Form12
Form12.Show
End Sub
Form2.Data1.Refresh
Loop
Data1.Refresh
End Sub
Form Delete
Option Explicit
Dim bc As String
Private Sub updatemethod()
Form4.Data1.RecordSource = "select * from batch_MASTER"
Form4.Data1.Recordset.FindFirst "batch_code='" & text & "'"
If Form4.Data1.Recordset.NoMatch = False Then
Form4.Data1.Recordset.Edit
Form4.Data1.Recordset!total_seats = Form4.Data1.Recordset!total_seats + 1
Form4.Data1.Recordset.Update
End If
End Sub
Dim a As String
Form4.Data1.RecordSource = "select * from STUDENT_MASTER where regn_no='" &
(Combo1.text) & "'"
Form4.Data1.Refresh
List1.Clear
Form4.Data1.Recordset!PLACEMENT_REQUIRED & " " & " "
Else
MsgBox "no record"
End If
Form3.Data1.RecordSource = "select * from ATTENDANCE where regn_no='" &
Combo1 & "'"
Form3.Data1.Refresh
List1.AddItem Form3.Data1.Recordset("Status(P/A)") & " "
Else
MsgBox "no record"
End If
Form6.Data1.DatabaseName = App.Path & "\Cmaster."
End Sub

Form4.Data1.RecordSource = "select * from STUDENT_MASTER where regn_no='" &
(Combo1.text) & "'"
Form4.Data1.Refresh
Dim a%
a = MsgBox("Delete Current Record", vbYesNoCancel)
If a = 6 Then
text = Form4.Data1.Recordset!BATCH_CODE
Form4.Data1.Recordset.Delete
Form4.Data1.Recordset.MoveFirst
'Form4.Text1.Text = Form4.Data1.Recordset("REGN_NO")
'Form4.Text2.Text = Form4.Data1.Recordset("STUD_NAME")
'Form4.Text3.Text = Form4.Data1.Recordset("STUD_ADD")
'Form4.Text4.Text = Form4.Data1.Recordset("STUD_PHONE")
'If IsNull(Form4.Data1.Recordset("REGN_DATE")) Then Exit Sub
'Form4.m1.Text = Format(Form4.Data1.Recordset("REGN_DATE"), "dd/mm/yyyy")
'Form4.Combo1.Text = Form4.Data1.Recordset("BATCH_CODE")
'If Form4.Option1.Value = True Then
'Form4.Option1.Value = Form4.Data1.Recordset("GRADUTE_STATUS")
'Else
'Form4.Option2.Value = Form4.Data1.Recordset("GRADUTE_STATUS")
'End If
'If Form4.Option3.Value = True Then
'Form4.Option3.Value = Form4.Data1.Recordset("PLACEMENT_REQUIRED")
'Else
'Form4.Option4.Value = Form4.Data1.Recordset("PLACEMENT_REQUIRED")
'End If
updatemethod
End If
If a = 7 Then
Exit Sub
End If
Combo1.RemoveItem Combo1.ListIndex
List1.Clear
End Sub
Unload Form9
End Sub
Form4.Data1.Refresh
Loop
End Sub
Form User
Dim db As Database
Dim st As Boolean
Dim Opr As String
Dim uvalue As String
Dim pvalue As String
showbtn1 ("User Name")
Opr = "Insert Start"
Text1.SetFocus
End Sub
Dim r As Integer
If ((List1.List(List1.ListIndex()) = "") Or (List1.List(List1.ListIndex()) =
"ADMINISTRATOR")) Then Exit Sub
r = MsgBox("Do wants to delete user " & List1.List(List1.ListIndex()), vbYesNo,
"Warning")
If r <> vbYes Then Exit Sub
Dim qry As QueryDef
pvalue = Text1.text
Set qry = db.CreateQueryDef("", "Delete * from auth where loginname='" &
List1.List(List1.ListIndex()) & "'")
qry.Execute
uplist
End Sub
Dim r As Integer
If (List1.List(List1.ListIndex()) <> "") Then
r = MsgBox("Do wants to change Password for user " & List1.List(List1.ListIndex()),
vbYesNo, "Warning")
If r <> vbYes Then Exit Sub
showbtn "Password", "Confirm Password"
Text1.PasswordChar = "*"
Opr = "PassChange"
End If
End Sub
Unload Me
End Sub
If Opr = "Insert Start" Then
uvalue = Text1.text
showbtn "Password", "Confirm Password"
Opr = "PassEnter"
Exit Sub
End If
If Opr = "PassEnter" Then
insertpass
MsgBox "New user created ...!"
Opr = ""
Exit Sub
End If
If Opr = "PassChange" Then
changepass
MsgBox "Password Changed ...!"
Opr = ""
Exit Sub
End If
End Sub
Sub insertpass()
If Text1.text = Text2.text Then
Dim qry As QueryDef
pvalue = Text1.text
Set qry = db.CreateQueryDef("", "Insert into auth values('" & uvalue & "','" & pvalue &
"')")
qry.Execute
uplist
hidebtn
Exit Sub
Else
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.text)
Exit Sub
End If
End Sub
Sub changepass()
If Text1.text = Text2.text Then
Dim qry As QueryDef
pvalue = Text1.text
Set qry = db.CreateQueryDef("", "Update auth set passwd='" & pvalue & "' where
loginname='" & List1.List(List1.ListIndex()) & "'")
qry.Execute
uplist
hidebtn
Exit Sub
Else
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.text)
Exit Sub
End If
End Sub
hidebtn
Opr = ""
End Sub
st = True
uplist
hidebtn
End Sub
Sub uplist()
Set res = db.OpenRecordset("Select * from auth")
List1.Clear
While Not (res.EOF)
List1.AddItem res.Fields(0)
res.MoveNext
Wend
End Sub
Sub showbtn(l1 As String, l2 As String)
Label1.Caption = l1
Label2.Caption = l2
Text1.text = ""
Text2.text = ""
End Sub
Sub showbtn1(l1 As String)
Label1.Caption = l1
Text1.text = ""
End Sub
Sub hidebtn()
End Sub
SYSTEM ANALYSIS
Gathering information in large organization is a difficult task in time. All
relevant personnel should be consulted and no information over looked.
The strategy consists of:
1. Identify information sources.
2. Revolving a method of obtaining information from identified source.
3. Using information from module of organization.
INFORMATION SOURCES
The main sources of information are:
1. Users of the system.
2. Forms and documents of organization.

3. Processor manuals and rulebooks that specify how various activities
are carried out in the organization.
4. Various reports used in organization.
5. Person of the organization.
INFORMATION GATHERED
1. Only eligible persons are registered after paying registration fees.
2. Issuing of the slip as a proof of registration to give exam on scheduled
date.
3. When candidate comes to give exam he/she has to submit slip to the
Administrator.
4. Before leaving the examination hall result is declared on spot, which
saves the time.
5. Attendance sheet at the time of Examination will be maintained
manually.
PERFORMANCE REQUIREMENTS
The following performance characteristics are taken care of while
developing the system:
 User Friendly: The system is easy to learn and understand. A native
user can also use the system effectively, without any difficulty.
 User Satisfaction: The system is such that it stands up to the user
expectations.
 Response Time: The response of all the operations is good. This has
been made possible by careful programming.
 Error Handling: Response to user’s error and undesired situations
has been taken care of to insure that the system operates without halting.
 Safety and Robust: The system is able to avoid or tackle disastrous
action. In other words, it should be fool proof. The system safeguards
against undesired events without human intervention.
ACCEPTANCE CRITERIA:
The following acceptance criteria were establish for evaluation of the new
system:
The system developer should be accurate and hence reliable i.e. error rate
should be minimized and the output should be accurate and consistent.
The developed software should provide all the functions. Further, the
execution time should be very low and response should be good.
It should satisfy the criteria specified in functional a performance requirement.
The system should have scope to foresee modification and enhancement i.e. it
should be able to cope with business changes.
The system must satisfy the standards of a good software that is:
User friendliness: The system should satisfy the user’s need. It should be easy
to learn operate.
Modularity: The system should have reliability, independent and single
function parts that can be put together to make complete system.
Maintainability: The developed system should be such that the time effort
for program maintainable enhancement is reduced.
Timeliness: The system should operate under normal peak recovery
condition.
Exception Handling:
To ensure that the system does not halt in case of undesired situation or
events, the following exceptional condition should be taken care of by
providing the corresponding exception responses while developing the
system:
While selecting an alternative from a menu the user enters his choice, he goes
ahead only if Entered value is valid.
While executing the screen, if the user tries to skip a field, which cannot have
a null value, an appropriate message is displayed, conveying the user that the
data has to be entered in that field.
Once the value has been entered into a field the cursor moves to the next field.
When user enters data in invalid format, the system displays a message
showing the valid format he/she should enter.
Software Quality:
Software quality is a complex mix of factors that will vary across different
applications and the customer who request them. The factors that affect
software quality can be categorized in two board groups:
Factors that can be measured directly (e.g. defects per function point) and
Factor that can be measured only indirectly (e.g. usability or maintainability).
In each case measurement must occur. We must compare the software
(documents, programs, data) to some datum and arrived at an indication of
quality.
The various factor that affecting the quality of the software.
Product Operation:
Correctness: The extent to which a program satisfies its specification and
fulfills the customer’s mission objectives.
Reliability: The extent to which a program can be expected to perform its
intended function with required precision. It should be noted that other, more
complete, definitions of reliability have been proposed.
Efficiency: The amount of computing resources and code required by a
program to perform its functions.
Integrity: The extent of which access to software or data by unauthorized

persons can be controlled.
Usability: The effort required learning, operating, preparing input, and
interpreting output of the program.
Product Revision
Maintainability: The effort required locating and fixing an error in a
program.
Flexibility: The effort required modifying an operational program.
Testability: The effort required testing a program to ensure that it performs
its intended function.

Product Transition
Portability: The efforts required transferring the program from one
hardware and/or software system environment to another.
Reusability: The extent to which a program (or a part of a program) can be
reused in other application- related to packaging and scope of the functions
that the program performs.
Interoperability: The effort required to couple one system to another.

Acknowledgement: The Project Is An Attitude, A Philosophy of Life

Uploaded by

Copyright:

Available Formats

Acknowledgement: The Project Is An Attitude, A Philosophy of Life

Uploaded by

Document Information

Original Title

Copyright

Available Formats

Share this document

Share or Embed Document

Sharing Options

Did you find this document useful?

Is this content inappropriate?

Copyright:

Available Formats

Acknowledgement: The Project Is An Attitude, A Philosophy of Life

Uploaded by

Copyright:

Available Formats

ACKNOWLEDGEMENT

It is my pleasure to take this opportunity to thank all of my learned

teachers for their appreciation of the project and introducing it to the

subscribers. I am regularly receiving appreciation from my companions

and juniors of this institute.

The Joy Creativity! Probably , this is why I am drawn to writing . I

initial stage of the project idea was conceived . In particular I would

like to thank Mr.Harshit Ranjan having faith in this project idea .

trust all these bugs have been fixed.

I thank her for reviewing the entire manuscript with painstaking

spelling mistakes in paragraph which I had reviewed many times over

The project is an attitude, a philosophy of life.

is Fashion, Journalism, Management, IT , several computer courses ,

students, faculty as well as different variety of courses. If you start doing it

manually it would really be a tedious as well as time consuming job.

maintain records on computer you need a specific software to work upon.

Thus my project named “INSTITUTE MANAGEMENT” is a small software which

is used to overcome such type of problems.

software and very easy to operate upon .

students and the faculty members of that hospital .

During the course of development of the project a lot of

Thinking went and steps . Various new procedure were evolved so

flue any difficulty.

procedural jotting , which was done manually into complete computerized

HOSPITAL INFORMATION SYSTEM

Submitted in Partial Fulfillment of the requirement for

The award of the degree of

POST GRADUATE DIPLOMA IN COMPUTER

SPRINGDALE COLLAGE OF MANAGEMENT

STUDIES (MADHOTANDA ROAD)PILIBHIT.

M.C.A. 6’th Sem

Input design guidelines: - The design of input

plays very significant role in getting the correct output.

Some features of design may vary depending upon

whether the system is watch oriented or online. The

objectives of input design are

1) Controlling amount of input: - An effective

design controls the quantity of data for input, for the

Data preparation and data entry operation depend upon

the people. If labor is high, the cost of interim data will

The input phase of computing can be slow process and

take much time longer than that needed by computers to

prepared and input for processing. By reducing input

requirement, the analyst will speed the entire process from

data capture to processing, to provide results to users

2) Avoiding delay: - When processing is delayed due

to data processing preparation or due to data entry, the

problem is known as “ Bottle Neck”. Avoid bottleneck

problem while designing input.

3) Avoiding Errors in Data: - The rate at which

error occurs depends upon the quantity of data. If less

data is inputted, there are fewer opportunities for the

.4) Avoiding Extra Steps: - When the volume of

input data is so high, the analyst must ensure that the

process is efficient. A good analyst always avoids input

design that cost extra steps.

Keeping the process Simple: The best design system fits

them, and at the same time it provides error control and

input verification methods. Complex in confusing inputs