PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

A PROJECT REPORT ON INSTITUTE MANAGEMENT SYSTEM

For The Award of Bacholor Degree in Computer Application.

Submitted By:AMIT KUMAR SHARMA (BCA 6TH SEMESTER) En. No.:M0611281. Roll No: 9732005.

(1)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

TABLE OF CONTENTS
INTRODUCTION/ OBJECTIVES

SYSTEM ANALYSIS
IDENTIFICATION OF NEED PRELIMINARY INVESTIGATION FEASIBILITY STUDY PROJECT PLANNING & SCHEDULING SOFTWARE REQUIREMENT SPECIFICATIONS (SRS) SOFTWARE ENGINEERING PARADIGM APPLIED DATA MODEL

SYSTEM DESIGN
MODULARISATION DETAILS DATA INTEGRITY AND CONSTRAINTS DATABASE DESIGN USER INTERFACE DESIGN

CODING
COMPLETE PROJECT CODING COMMENTS AND DESCRIPTION STANDARDIZATION OF THE CODING ERROR HANDLING PARAMETERS CALLING
(2)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

VALIDATION CHECKS

TESTING
TESTING TECHNIQUES AND TESTING SRATEGIES USED ALONG WITH THE TEST CASE DESIGN AND REST REPORT DEBUGGING AND CODE IMPROVEMENT

SYSTEM SECURITY MEASURES

DATABASE/DATA SECURITY CREATION OF USER PROFILES AND ACCESS RIGHTS

COST ESTIMATION OF PROJECT REPORTS PERT CHART, GANTT CHART FUTURE SCOPE AND FURTHER ENHANCEMENT OF
PROJECT BIBILIOGRAPHY

(3)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

INTRODUCTION/ OBJECTIVES
Project Development is compulsory for the fulfillment of BCA courses running by MCRP University. This type of activity not only shows the skills of the student but also helps him to be a professional in future. The students get the real experience while developing such projects and such type of experience gives them confidence to do better in future too.

Title of the present project is IMS INSTITUTE MANAGEMENT SYSTEM. The main purpose of this project is to provide the facility about the institute services for students and staff. This project also helps to people to register for any courses provided by the Institute. The registered user can view the status of the application. The information about courses, admission, exam datesheet, attendance etc., is available at any time.

Any application when registered into the office the applicant has to fill a form in which s/he provides the necessary information about him/her. If any user is not a registered, there is a facility to visit the site(not on web) as a guest. While any user is a guest it can collect the information about the institute like course offeres, admission criteria, faculty info etc.

(4)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

(5)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

SYSTEM ANALYSIS
IDENTIFICATION OF NEED:
The identification of the needs of the project is really a typical job. It is very necessary to identify all the needs of the system at beginning otherwise the whole purpose of developing the project becomes useless. To identify the needs I went through the long process of interviewing the personnel of the institute office. I asked a lot of questions to understand the requirements. As institute office is not a strange place for a student and as same for me, hence I visit the site many times. I put the questions so that how work is doing in institute office, what is the procedure of applies to any course in the institute. I then thought that in reference of the computers working and managed the needs so that they can fulfill in an easy and comfortable manner. I also see many softwarses related to institute andanalyse the working of the softwares. It is very important to think the needs keeping in mind the efficiency and easy implementation. I tried my best to convert the requirements in form of the software so that use of the software can get the complete benefits. The need of the software is created because everything is going very fast. Once can not think to do all the jobs manually in a dynamic environment so the software is required to do the job at reasonable cost and within time.

(6)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

PRELIMINARY INVESTIGATION
The objective of this project is to help the common people who works in the office of the institute, s/he can say any information to student or anyone, ask to. This project provides the primary information about the requirents of any application which is provided by institute. User can find the information about any course or another thing very shortly as stafmember use the software. What are the basic requirements for admission in tny course? How we can apply to a course? What is the fee structure? These are the general questions in view of a student. If anybody want to find their certificate information, can find easily. This project also provides the information about the exam schedule, like date of the exam, time, subject etc. Anyone can submit fees with this software that is update at that time. We can also maintain the enquiry details of day to day basis. This project also provides the facility of students attendance. We can mainmtain the attendance of student as well as the staff membes of the institute. There is the different module for staff attaindence. We can also find the details of staff easily and it is very efficient to maintain. There is special login for the administrator. The administrator of the software can perform the updating of this software. To update the database is very important time to time for receiving the new information or to provide new facilities to the user. This software is designed to enhance the performance of the institute because the several tasks which are doing now manually will perform automatically by the system.

(7)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

To utilize the project user have to register to the software. A user performs only those tasks for which assign. If administrator wants to change the password or /and login name of any other user s/he can do it easily. There are different-different modules of the software like there is a student module, staff moduile, and admin module etc. All the information of the student can be maintain with the help of the project easily. All the entities use in the project can only modify by the administration of the project. There is no procedure to add another administrator except the registered in the database of the software. It is a special user which is of ADMIN type in the users table. Administrator as feed the name and password it prompts to the page which have features of editing of any entity of the project.

(8)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

FEASIBILITY STUDY
i.

Operational Feasibility:

The project is nearly 95 percent feasible as the look and working of the project is very simple. A common user can handle the operation without the help of anything or anyone as the project has a common look like simple site. The user can handle the maximum operations just by clicking the option or s/he can use the keyboard or mouse to select the options.

ii.

Time Feasibility:

The system has maximum percent of time feasible as it has been completed in the estimated time i.e. it was estimated to complete in three months working as full time and the work was completed in time.

iii.

Legal Feasibility:

The System performs nothing illegal. The reports especially the format of the reports are according to the requirements only not thought.

iv.

Economical Feasibility:

The economical feasibility in this system is very low as one has to purchase a computer and this software to atomize the system and work will be easy for him/her beyond imagination.

v.

Technical Feasibility:

(9)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Technically the system is may or may not feasible according to the client. If the client has computers already then s/he doesnt need to purchase the system. If s/he has the knowledge of computer then perhaps s/he will not have to appoint and employee to work. If the client has an old system then also s/he has to replace the computer to work as the software can work with only the advanced hardware. If the client has and old fashioned OS then also s/he has to upgrade his/her system. The client may or may not need to upgrade her/his system.

PROJECT PLANNING
Planning and scheduling can be termed as most complicated part of software development. Success and failure of a project largely depends on how it has been planned, while its timely completion depends on its scheduling.

Planning, for our purposes, can be thought of as determining all the small tasks that must be carried out in order to accomplish the goal. Planning also takes into account, rules, and known as constraints, which, control when certain tasks can or cannot happen? Scheduling can be thought of as determining whether adequate resources are available to carry out the plan. Improper planning can lead to unusual late release of software which is not desirable.

In our project for planning & scheduling weve employed the following techniques:

System Life Cycle Used:

(10)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Waterfall Model:
The salient features of the Waterfall Model are: It bought a definite structure to the process of software development, which was a major improvement over previous code-and-fix culture. Each phase is distinct and is mandatory for every project irrespective of project size. Every phase has a well-defined entry and exit criteria. Every phase has a provision for verification, validation, and correction of errors and inconsistencies.

Structured Analysis/ Structured Design (SA/ SD) Methodology

SA/SD methodology outlines the activities to be performed at every stage of the development lifecycle. The methodology provide some guidelines how the analysis to design transformation must take place. SA/SD uses three tools in the requirement analysis phase data flow diagrams, data dictionary and structured English. Variation allows you to use other tools like entity- relationship diagram for data modeling, structure chart for firming up the structure of a system and so on.

(11)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

PROJECT SCHEDULING
Scheduling is perhaps the most critical activity during the system design phase as this is the time when allocation of resources is done to the various modules and areas of the project. Care must be taken to set aside reasonable amount of time for testing, debugging as well optimization of the project and the deliverables. The goal of schedule estimation is to determine the total duration of the project and the duration of the different phases. We cannot treat the schedule as a variable totally in control of management. Each project will require some time to finish, and this time cannot be reduced by putting more people on the project. Hence project schedule is an independent variable, which must be assessed for planning.

Various charts and techniques are used in scheduling. Scheduling of a software project can be correlated to prioritizing various tasks (Jobs) with respect to their cost, time and duration. Scheduling can be done with recourse constraints and time constraints in mind, depending upon the scheduling method can be static and dynamic implementation.

I schedule that I have to complete in five months of the scheduled time. For the purpose I have divided each module of my project is estimated time and I will try my level best to implement my project as the schedule chosen by me.

(12)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

PERT CHART

CRITICAL PATH 0-1, 1-2, 2-3, 3-4, 3-5, 5-6, 6-7, 6-8, 7-8, 8-10, 10-11, 11-12
SR/NO. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 ACTIVITY 0-1 1-2 2-3 3-4 3-5 4-5 5-6 6-7 6-8 6-9 7-8 9-10 8-10 10-11 11-12 TYPE OF ACTIVITY Study existing system Study proposed system Analysis Feasibility study Software Requirement & Analysis Dummy Design Testing Coding Training Dummy Dummy Implementation Optimization Review DURATION IN WEEK 1 2 2 2 2.5 0 2 4.5 3.5 5 0 0 2 1 1

Total Duration 18 Weeks

(13)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

GANTT CHART

SR/NO. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

ACTIVITY 0-1 1-2 2-3 3-4 3-5 4-5 5-6 6-7 6-8 6-9 7-8 9-10 8-10 10-11 11-12

TYPE OF ACTIVITY Study existing system Study proposed system Analysis Feasibility study Software Requirement & Analysis Dummy Design Testing Coding Training Dummy Dummy Implementation Optimization Review

DURATION IN WEEK 1 2 2 2 2.5 0 2 4.5 3.5 5 0 0 2 1 1

Total Duration 18 Weeks

(14)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

SOFTWARE ENGINEERING PARADIGM APPLIED

As there are so many paradigms but I choose Prototyping Model for my project. Prototyping model is useful where requirements are not properly understood in the beginning, using the prototyping process model can be the most effective method for developing the software. It is an excellent technique for reducing some types of risks associated with a project. To follow this model I first meet the customer and define the overall objectives for the software, identify whatever requirements are known and outline areas where further definition is mandatory. A quick design then occurs. The quick design focuses on a representation of those aspects of the software that will be visible to the user. The quick designs lead to the construction of a prototype. Now construction of prototype includes various phases such as customer evaluation of the prototype, design, coding, testing and maintenance. The prototype model suggests that before development of the actual software a working prototype of the system should be built first. A prototype means sample or we can say toy implementation of a system. What is done here is that before proceeding with design and coding a throwaway prototype is built to give the user a feel of the system. Of course, the development of the prototype itself involves design and coding but this is not done in a very formal manner. The user interacts with the system as he would with the eventual system and would, therefore, be in a better position to specify the requirements in a more comprehensive manner. After the finalization of software requirement and specification document, the prototype is discarded and actual system is then developed using the waterfall approach.

(15)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Build and Test Analysis Design Prototype

Design

Implementation

Maintenance And Review

RAPID PROTOTYPING

(16)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

SOFTWARE REQUIREMENT SPECIFICATIONS (SRS)

Requirement Analysis is a very important phase of the project development. The whole future of the project depends on the complete and correct analysis of the project. The requirements are gathered from the client who wants the software and are stored in a document known as (SRS document) software requirement specification document. This document must be in detail and every piece of information about the organization should be clearly mentioned in the document.

We have to do the project work for any organization presently I am doing the job for Nexus Institute as the clients are no aware of the computers working so they can not specify the requirements in that terms it is the responsibility of the Analyst (a person who finds out the details about the project) to get the complete information for the project by using a number of ways. The requirements can be gathered from the client by asking him Questions, taking interviews, by preparing questionnaire and by reviewing the previous document about the organization. If the requirements of the client are missed by any way then the whole software developing team or company suffers for the reason.

The whole software developing job is divided into some phases as primary investigation phase, complete requirement analysis phase, design phase, development phase, debugging phase and implementation phase. For a complete and systematic development of the project it is necessary to follow the order of the phases.

(17)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

The proposed project is not a live project but it can be live by some efforts applied on it. It is a very interesting project to work with. I really enjoyed the project while taking the information about the project.

For the completion of the project it is necessary to understand the working of the institute. I visit the Nexus Institute several times for better understanding. I also have good understanding to the institute. Employers always give good response to me for developing the project.

Personally I feel that there are several problems for users of the institute. To know the requirements for particular application applicant have to pay time to the peon. Manaul working leads many problems like it very time consuming. It wants a large number of manpower also. That is a very tadius work in comparision of computarised system.

The proposed project is somewhat a live project but not the whole one. Actually it is tried to make the project more generalized. I tried my best to make the project so common that it could fulfill the requirements of all Institutions. First I managed the requirements of my relative and candidates and the companies systematically and then make out the rough estimate of time to complete the different phases of the project systematically and at time. I took a total times period of three months (full day) to complete the project.

After completing the requirement phase and estimating the time for each phase I moved to the second phase, which is Design of the system.

(18)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

(19)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

DATA FLOW DIAGRAMS

DEFINITION
A data flow diagram (DFD) is a graphical technique that depicts information flow and the transforms that are applied as data move from input to output. The basic form of the data flow diagram is showing down ware. The DFD is also known as a data flow graph or a bubble chart. The data flow diagram may be used to represent a system or software at any level of abstraction. In fact, DFDS may be partitioned into levels that provide a mechanism for functional modeling as well as information flow modeling.

A level 0 DFD, also called a fundamental system model or a context model, represents the entire software element as a single bubble with input and output data indicated by incoming and outgoing arrows, respectively. Additional processes (bubbles) and information flow paths are represented as the level 0 DFD is partitioned to reveal more detail. For example, a level 1 DFD might contain five or six bubbles with interconnecting arrows. Each of the processes represented at level 1 are subfunctions of the overall system.

GUIDELINES TO CREATE DATA FLOW MODEL

A few simple guidelines can aid immeasurable during derivation of a Data Flow diagram The level 0 data flow diagram should depict the software/system as a single bubble. Primary input and output should be carefully noted.

(20)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Refinement should begin by isolating candidate processes, data objects and stores to be represented at the next level.

Information flow continuity must be maintained from level to level. One bubble at a time should be refined.

There is a natural tendency to overcomplicate the data flow diagram. This occurs when the analyst attempts to show too much detail too early or represents procedural aspects of the software in lieu of information flow.

BASIC DFD NOTATION

The basic notation used to create a DFD are given below

External Entity

Proces s

Data Object

Data Store

(21)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Rectangle is used to represent an external entity, i.e. a system element (e.g., hardware,
a person, and another program) or another system that produces information for transformation by the software or receives information produced by the software.

Circle represents a process or transform that is applied to data (or control) and changes it
in some way.

Arrow

represents one or more data items or data objects. All arrows on a data flow

diagram should be labeled.

Double line represents data-store stored information that is used by the software.
It is important to note no explicit indication of the sequence of processing is supplied by diagram. Procedure or sequence may be implicit in the diagram, but explicit procedural representation is generally delayed until software design. The data flow diagram is a graphical tool that can be very valuable during software requirements analysis.

NOTE- DFD of the project shown next page.

(22)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

CFD (CONTEXT FREE DIAGRAM)

(23)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

FIRST LEVEL DFD (USER MODULE)

(24)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

FIRST LEVEL DFD (ADMINISTRATOR MODULE)

(25)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

(26)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

(27)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

(28)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

(29)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

FUNCTIONAL DECOMPOSITION DIAGRAM

Login

Institute ManagementS ystem

Student Module

Staff Module

Franchise Module

Admission

Staff Registration

Franchise Updation

(30)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Login

Institute ManagementS ystem

Student Module

Staff Module

Franchise Module

Admission

Staff Registration

Franchise Updation

Fee Submission

Staff Attendance

Attendance

Exam

Certificate

SYSTEM DESIGN

(31)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

MODULARISATION DETAILS
The power of software development lies in modular design of the software. The logical separable parts of the project are called modules. Modular design not only supports easy development but also brings the clarity in the software. It is a good programming approach. While modular design of the software the user should remember that it should have high cohesion and low coupling. Coupling is defined by the interconnections between the modules of the project. Cohesion is defined by the internal strength of a single module. The RTO AUTOMATION SYSTEM SOFTWARE is divided in following sections-

CREATE SECTION:
In this Section a person may register to the software.

MANAGE SECTION:
In this section user can create the applicationfor any servise. In this section user can view the requirements and the status of the application. There is also the facility to view the status of the application in this section. f the user is an administrator it can do the updating for the software. The administrator has the rights of add/delete or modify any entity of the software.

INFORMATION SECTION:
In this section user can view the information related to the various entities i.e. how can get the admission, attendence, attendance, faculty information

(32)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Library information, fee anybody deposit in institute, exam datesheet etc. In this section visitor can view the information related to the development of the software i.e. the planning of the project. This section provides very easy feature of visiting the site as a guest.

PRINTING SECTION By using this section user can take out the print reports as hard copy on any entity of the software. S/he needs the hard copy of the Forms for filling up.

DATABASE DESIGN

1. Student Detail Table

Table Name Table Description Field Name Data Type Student Detail Student detail information Data Length Not Null Constraint Description

Stud_ID First_name middle_nam e Last_name Address Mob_no email_id Gender Qualification University Age

AutoNumbe r Text Text Text Text Number Text Text Text Text Number

10 15 15 15 50 10 30 1 20 20 2

Primary Key

Student Registration Number First name of Student Middle name of Student Last name of Student Current address Contact no

Student email id Gender of Student Education Qualification University from which Previous Exam passed Age of Student

(33)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

2. Staff Detail Table

Table Name Table Description Field Name Data Type Staff Detail Staff detail information Data Length Not Null Constraint Description

Staff_ID Name Address Mob_no email_id Gender Qualification Date_birth Date_join Designation Age Experience

AutoNumbe r Text Text Number Text Text Text Date/Time Date/Time Text Number Text

10 15 50 10 30 1 20 8 8 10 2 5

Primary Key

Staff Registration Number Name of Staff Adress of Staff Contact no. of Staff

Staff email id Gender of Staff Education Qualification of Staff Date of birth of Staff Date of joining of the Staff Designation of Staff Age of Staff Experience of Staff

3.

Staff Attendance Table

Staff Attendance Detail Staff Attendance information Data Lengt h 10 10 8 10 Not Null Foreign Key Constraint Primary key Foreign Key Description Staff Attendance ID Staff Registration Number Date of the Staff attendance Batch ID for which attendance has been done Flag for maintaining Attendance Status

Table Name Table Description Field Name Staff_att_ID Staff_ID Atten_date batch_ID Flag Data Type Number Number Date Number Yes/no

(34)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

4.

Student Attendance Table

Table Name Table Description Field Name Data Type Student Attendance Detail Student Attendance information Data Length Not Null Constraint Description

Stud_att_ID Stud_ID Atten_date batch_ID Flag Course_ID 5. Batch

Number Number Date Number Yes/no Number

10 10 8 10 10

Primary Key Foreign Key

Student Attendance ID Student Registration Number Date of the Student attendance Batch ID of Student Flag for maintaining Attendance Status Course ID

Foreign Key

Foreign key

Table:Batch Detail Batch information Data Type Data Length Not Null Constraint Description

Table Name Table Description Field Name

Batch_ID

Number

10

Primary Key

Batch Id

batch_time
6.

Number

10

Timing of Batch

Course Details Table

Table Name Table Description Field Name Data Type Course Detail Course information Data Length Not Null Constraint Description

course_ID

Number

10

Primary Ke

Course Id

course_name duration Fee_ID Batch_ID

Text Text Number Number

10 10 5 8

Foreign key Foreign Key

Name of the Course Duration of the course Fees details of course Batch Description

(35)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

7.

Enquiry Table
Table Name Table Description Field Name Data Type Enquiry Detail Enquiry information Data Length Not Null Constraint Description

Enquiry_ID Stud_ID Course_ID Fran_ID Date Resource

autoNumber Number Number Number Date Text

10 10 10 10 8 25

Primary Key Foreign Key Foreign key Foreign Key

Student Enquiry ID Student Registration Number who has done enquiry Course ID for which enquiry has done Franchise ID for which enquiry has done Date of the Student enquiry Recourses through which Enquiry has done

8.

Student Franchise Table

Table Name Table Description Field Name Data Type Franchise Table Franchise detail information Data Length Not Null Constraint Description

Franch_ID Student_Id

Number Number

10 10

Foreign Key Foreign Key

Franchise ID for which Student has done enquiry Student ID who has done enquiry

9.

Fees Table
Table Name Table Description Field Name Fee_ID Course_id Admission_Id Amount Discount Fee submission date Data Type Number Number Number Number Number Date Fees Detail Fees detail information Data Length 10 10 10 5 10 8 Not Null Constraint Primary key Foreign key Foreign key Fee ID Course ID For which fee is deposited Admission ID of Student Amount which is paid Discount which is given on Amt. Date of fee submission Description

(36)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

10.

Final Exam Table

Table Name Table Description Field Name Exam_ID Exm date Std_Id Course_Id Data Type Number Date Number Number Final Exam Detail Final exam detail information Data Length 10 8 10 15 Not Null Foreign key Foreign key Constraint Primary key Exam ID Date of Exam Student ID Who has given Exam ID of Course for which exam has been given Description

11. Certificate Table

Table Name Table Description Field Name Certificate_ID Student_Id Course_Id Marks Issue date Data Type Number Number Number Number Date Certificate Detail Certification information Data Length 10 10 10 5 8 Not Null Constraint Primary key Foreign key Foreign Key Description Certificate ID Student Id having Certificate Course id on which certificate has been generated Obtain marks Issue date of certificate

13. Payment Receipt Table

Table Name Table Description Field Name Receipt_ID Student_Id Course_Id Fee _id Receipt date Data Type Number Number Number Number Date Payment Receipt Detail Payment detail information Data Length 10 10 10 10 8 Not Null Constraint Primary key Foreign Key Foreign Key Foreign Key Description Receipt ID Student ID for which Receipt is generated Course ID on which fee is deposited Fee ID of that Course Receipt issue date

(37)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

14. Franchise Table

Table Name Table Description Field Name Franch_ID Franch_ Name Fran_Address Landline no Contact person Reg_date Reg_due _date Reg_no Reg_Fee Renewal fees Data Type Number Text Text Number Text Date Date Number Number Number Franchise Detail Franchise detail information Data Length 10 20 50 10 50 8 8 10 10 10 Not Null Constraint Primary Kay Description Id of the franchise Name of the franchise Adress of franchise Landline no of Franchise Contact person regarding that franchise Date of franchise registration Due date of registration of franchise Registration number of Franchise Registration fee of franchise Renewal fee of franchise

15. Course Franchise Table

Table Name Table Description Field Name Franch_ID Course_Id Data Type Number Number Course Franchise Table Course Franchise detail information Data Length 10 10 Not Null Constraint Foreign Key Foreign Key Description Franchise ID of Course Course ID of Specified Franchise

16.

Student Attendance Admission Table

Table Name Table Description Field Name admi_ID Stud_att_ID Data Type Number Number Student Attendance Admission Table Student attendance admission detail information Data Length 10 10 Not Null Constraint Foreign Key Foreign Key Description Admission ID of student Student attendance ID for Attendance

(38)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

17.

Admission Table
Table Name Table Description FieldName admi_ID Course_Id Stud_ID admi_date Data Type Number Number Number Date Admission Table Admission detail information Data Length 10 10 10 10 Not Null Constraint Primary Key Foreign Key Foreign Key Description Admission ID of Student Course ID of Specified Franchise Student Id who is taking Admission Date to which admission has done

18.

Admission Course Table

Table Name Table Description FieldName admi_ID Course_Id Data Type Number Number Admission Course Table Admission Course detail information Data Length 10 10 Not Null Constraint Primary Kay Foreign Key Description Admission ID of Student Course ID of Admission

(39)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

USER LOGIN PAGE

(40)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

THE VERY FIRST PAGE OF PROJECT

(41)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

HOME PAGE OF THE PROJECT

(42)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

INFORAMATION ABOUT VARIOUS COURCES

(43)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

FACULTY PAGE

(44)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

INFORMATION ABOUT SYLLABUS PAGE

(45)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

FEE STRUCTURE PAGE

(46)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

CALCULATOR ALSO HERE

(47)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

PLAY GAME WHILE WORKING

(48)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

THANKS TO SIR FOR GUIDENCE

(49)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

STUDENT REGESTRATION PAGE

(50)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

FEE SUBMISSION PAGE

(51)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

EXIT PAGE OF THE PROJECT

(52)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

ENQUIRY ABOUT FEES

(53)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

TERM END REGISTRATION

(54)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

COURSE REGISTRATION FOR TEE

(55)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

ALREADY REGISTRED STUDENT DATA

(56)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

FEE SUBMISSION PAGE

(57)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

NEW FRANCHISE PAGE

(58)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

CODING FOR VERY FIRST PAGE

Dim A As Integer Private Sub ex_Click() Me.Hide Form8.Show End Sub

Private Sub Form_Load() Label4.Top = -1500 End Sub

Private Sub hm_Click() Me.Hide Form2.Show End Sub

Private Sub lg_Click() Me.Hide

Form2.Show

End Sub

Private Sub Timer1_Timer() If Label1.Left = 17000 Then

(59)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Label1.Left = -10000 End If Label1.Left = Label1.Left + 20

End Sub Private Sub Timer2_Timer() If A Mod 2 = 0 Then Label2(0).Visible = False Label2(1).Visible = False Label2(2).Visible = False Label2(3).Visible = False

Else Label2(0).Visible = True Label2(1).Visible = True Label2(2).Visible = True Label2(3).Visible = True

End If A=A+1

End Sub Private Sub Timer3_Timer() If Label3.Left = 17000 Then Label3.Left = -10000

(60)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

End If Label3.Left = Label3.Left + 20

End Sub Private Sub Timer4_Timer() If Label4.Top = 11000 Then Label4.Top = -1500 End If Label4.Top = Label4.Top + 20 End Sub

CODING FOR HOME PAGE

Dim A As Integer Private Sub ex_Click() Me.Hide Form8.Show End Sub

Private Sub Form_Load() Label4.Top = -1500 End Sub

Private Sub hm_Click() Me.Hide Form2.Show End Sub

(61)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Private Sub lg_Click() Me.Hide Form2.Show End Sub Private Sub Timer1_Timer() If Label1.Left = 17000 Then Label1.Left = -10000 End If Label1.Left = Label1.Left + 20

End Sub

Private Sub Timer2_Timer() If A Mod 2 = 0 Then Label2(0).Visible = False Label2(1).Visible = False Label2(2).Visible = False Label2(3).Visible = False

Else Label2(0).Visible = True Label2(1).Visible = True Label2(2).Visible = True Label2(3).Visible = True

(62)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

End If A=A+1

End Sub Private Sub Timer3_Timer() If Label3.Left = 17000 Then

Label3.Left = -10000 End If Label3.Left = Label3.Left + 20

End Sub

Private Sub Timer4_Timer() If Label4.Top = 11000 Then Label4.Top = -1500 End If Label4.Top = Label4.Top + 20 End Sub

CODING FOR FEE SUBMISSION

Private Sub Command1_Click(Index As Integer) Me.Hide Form8.Show End Sub

(63)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Private Sub cmd4_Click(Index As Integer) Me.Hide Form2.Show

End Sub

Private Sub cmd5_Click(Index As Integer) Me.Hide Form8.Show

End Sub

Private Sub Form_Load()

End Sub

CODING FOR THANKS PAGE

Dim A As Integer Private Sub Form_Load() Label1.Left = -10000 End Sub

Private Sub Timer1_Timer() If A Mod 2 = 0 Then Label2(0).Visible = False Label2(1).Visible = False

(64)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Label2(2).Visible = False Label2(3).Visible = False Else Label2(0).Visible = True Label2(1).Visible = True Label2(2).Visible = True Label2(3).Visible = True End If A=A+1 End Sub

Private Sub Timer2_Timer() If Label1.Left = 2000 Then Form9.Show End If Label1.Left = Label1.Left + 20 End Sub

CODING FOR SAY THANKS TO GUIDE

Private Sub Form_Load() Label1.Top = -2200 End Sub

Private Sub Timer1_Timer() If Label1.Top = 4000 Then Label1.ForeColor = vbMagenta

(65)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

End If If Label1.Top = 7500 Then End End If Label1.Top = Label1.Top + 20 End Sub

CODING FOR GAME

Dim i, j, k, l, M, n As Integer Private Sub Command1_Click() Text1.Text = "X" End Sub

Private Sub Command10_Click() Text5.Text = "O" End Sub

Private Sub Command11_Click() Text6.Text = "X" End Sub

Private Sub Command12_Click() Text6.Text = "O" End Sub

Private Sub Command13_Click()

(66)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Text7.Text = "X" End Sub

Private Sub Command14_Click() Text7.Text = "O" End Sub

Private Sub Command15_Click() Text8.Text = "X" End Sub

Private Sub Command16_Click() Text8.Text = "O" End Sub

Private Sub Command17_Click() Text9.Text = "X" End Sub

Private Sub Command18_Click() Text9.Text = "O" End Sub

Private Sub Command19_Click() Text1.Text = " "

(67)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " " End Sub

Private Sub Command2_Click() Text1.Text = "O" End Sub

Private Sub Command20_Click() Unload game End Sub

Private Sub Command3_Click() Text2.Text = "X" End Sub

Private Sub Command4_Click() Text2.Text = "O" End Sub

(68)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Private Sub Command5_Click() Text3.Text = "X" End Sub

Private Sub Command6_Click() Text3.Text = "O" End Sub

Private Sub Command7_Click() Text4.Text = "X" End Sub

Private Sub Command8_Click() Text4.Text = "O" End Sub

Private Sub Command9_Click() Text5.Text = "X" End Sub

Private Sub Text1_Change() If (Text1.Text = "X") And (Text2.Text = "X") And (Text3.Text = "X") Then MsgBox ("Player X is the Winner") Text1.Text = " "

(69)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " " ElseIf (Text1.Text = "O") And (Text2.Text = "O") And (Text3.Text = "O") Then MsgBox ("Player O is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " " ElseIf (Text1.Text = "X") And (Text4.Text = "X") And (Text7.Text = "X") Then MsgBox ("Player X is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " "

(70)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " " ElseIf (Text1.Text = "O") And (Text4.Text = "O") And (Text7.Text = "O") Then MsgBox ("Player O is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text1.Text = "X") And (Text5.Text = "X") And (Text9.Text = "X") Then MsgBox ("Player X is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " "

(71)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text1.Text = "O") And (Text5.Text = "O") And (Text9.Text = "O") Then MsgBox ("Player O is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " " End If End Sub

Private Sub Text2_Change() If (Text1.Text = "X") And (Text2.Text = "X") And (Text3.Text = "X") Then MsgBox ("Player X is the Winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " "

(72)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text1.Text = "O") And (Text2.Text = "O") And (Text3.Text = "O") Then MsgBox ("Player O is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text2.Text = "X") And (Text5.Text = "X") And (Text8.Text = "X") Then MsgBox ("Player X is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " "

(73)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text2.Text = "O") And (Text5.Text = "O") And (Text8.Text = "O") Then MsgBox ("Player O is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " " End If End Sub

Private Sub Text3_Change() If (Text1.Text = "X") And (Text2.Text = "X") And (Text3.Text = "X") Then MsgBox ("Player X is the Winner") Text1.Text = " " Text2.Text = " " Text3.Text = " "

(74)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text1.Text = "O") And (Text2.Text = "O") And (Text3.Text = "O") Then MsgBox ("Player O is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text3.Text = "X") And (Text6.Text = "X") And (Text9.Text = "X") Then MsgBox ("Player X is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " "

(75)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text3.Text = "O") And (Text6.Text = "O") And (Text9.Text = "O") Then MsgBox ("Player O is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text3.Text = "X") And (Text5.Text = "X") And (Text7.Text = "X") Then MsgBox ("Player X is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " "

(76)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text3.Text = "O") And (Text5.Text = "O") And (Text7.Text = "O") Then MsgBox ("Player O is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " " End If End Sub

Private Sub Text4_Change() If (Text4.Text = "X") And (Text5.Text = "X") And (Text6.Text = "X") Then MsgBox ("Player X is the Winner") Text1.Text = " " Text2.Text = " " Text3.Text = " "

(77)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text4.Text = "O") And (Text5.Text = "O") And (Text6.Text = "O") Then MsgBox ("Player O is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text1.Text = "X") And (Text4.Text = "X") And (Text7.Text = "X") Then MsgBox ("Player X is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " "

(78)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text1.Text = "O") And (Text4.Text = "O") And (Text7.Text = "O") Then MsgBox ("Player O is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " " End If End Sub

Private Sub Text5_Change() If (Text4.Text = "X") And (Text5.Text = "X") And (Text6.Text = "X") Then MsgBox ("Player X is the Winner") Text1.Text = " " Text2.Text = " "

(79)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text4.Text = "O") And (Text5.Text = "O") And (Text6.Text = "O") Then MsgBox ("Player O is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text2.Text = "X") And (Text5.Text = "X") And (Text8.Text = "X") Then MsgBox ("Player X is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " "

(80)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text2.Text = "O") And (Text5.Text = "O") And (Text8.Text = "O") Then MsgBox ("Player O is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text5.Text = "X") And (Text3.Text = "X") And (Text7.Text = "X") Then MsgBox ("Player X is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " "

(81)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text5.Text = "O") And (Text3.Text = "O") And (Text7.Text = "O") Then MsgBox ("Player O is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text1.Text = "X") And (Text5.Text = "X") And (Text9.Text = "X") Then MsgBox ("Player X is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " "

(82)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text1.Text = "O") And (Text5.Text = "O") And (Text9.Text = "O") Then MsgBox ("Player O is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " " End If End Sub

Private Sub Text6_Change() If (Text4.Text = "X") And (Text5.Text = "X") And (Text6.Text = "X") Then MsgBox ("Player X is the Winner") Text1.Text = " " Text2.Text = " " Text3.Text = " "

(83)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text4.Text = "O") And (Text5.Text = "O") And (Text6.Text = "O") Then MsgBox ("Player O is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text3.Text = "X") And (Text6.Text = "X") And (Text9.Text = "X") Then MsgBox ("Player X is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " "

(84)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text3.Text = "O") And (Text6.Text = "O") And (Text9.Text = "O") Then MsgBox ("Player O is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " " End If End Sub

Private Sub Text7_Change() If (Text7.Text = "X") And (Text8.Text = "X") And (Text9.Text = "X") Then MsgBox ("Player X is the Winner") Text1.Text = " " Text2.Text = " "

(85)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text7.Text = "O") And (Text8.Text = "O") And (Text9.Text = "O") Then MsgBox ("Player O is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text1.Text = "X") And (Text4.Text = "X") And (Text7.Text = "X") Then MsgBox ("Player X is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " "

(86)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text1.Text = "O") And (Text4.Text = "O") And (Text7.Text = "O") Then MsgBox ("Player O is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text7.Text = "X") And (Text5.Text = "X") And (Text3.Text = "X") Then MsgBox ("Player X is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " "

(87)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text7.Text = "O") And (Text5.Text = "O") And (Text3.Text = "O") Then MsgBox ("Player O is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " " End If End Sub

Private Sub Text8_Change() If (Text7.Text = "X") And (Text8.Text = "X") And (Text9.Text = "X") Then MsgBox ("Player X is the Winner") Text1.Text = " " Text2.Text = " "

(88)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text7.Text = "O") And (Text8.Text = "O") And (Text9.Text = "O") Then MsgBox ("Player O is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text8.Text = "X") And (Text5.Text = "X") And (Text2.Text = "X") Then MsgBox ("Player X is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " "

(89)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text8.Text = "O") And (Text5.Text = "O") And (Text2.Text = "O") Then MsgBox ("Player O is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " " End If End Sub

Private Sub Text9_Change() If (Text7.Text = "X") And (Text8.Text = "X") And (Text9.Text = "X") Then MsgBox ("Player X is the Winner") Text1.Text = " "

(90)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text7.Text = "O") And (Text8.Text = "O") And (Text9.Text = "O") Then MsgBox ("Player O is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text3.Text = "X") And (Text6.Text = "X") And (Text9.Text = "X") Then MsgBox ("Player X is winner") Text1.Text = " " Text2.Text = " "

(91)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text3.Text = "O") And (Text6.Text = "O") And (Text9.Text = "O") Then MsgBox ("Player O is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text9.Text = "X") And (Text5.Text = "X") And (Text1.Text = "X") Then MsgBox ("Player X is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " "

(92)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " "

ElseIf (Text9.Text = "O") And (Text5.Text = "O") And (Text1.Text = "O") Then MsgBox ("Player O is winner") Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " " End If End Sub

Private Sub Form_Load() i = 480 j = 1800 k = 600

(93)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

l = 1200 M = 720 n = 1800 End Sub

Private Sub Timer1_Timer() Shape1.Left = i i = i + 10 Shape2.Left = j j = j + 10 Shape3.Left = k k = k + 10 Shape4.Left = l l = l + 10 Shape5.Left = M M = M + 10 Shape6.Left = n n = n + 10 End Sub

CODING FOR CALCULATOR

Dim A As Double Dim B As Double Dim c As Integer

(94)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Private Sub Command1_Click() A = Val(Text1.Text) Text1.Text = " " B=1 End Sub

Private Sub Command10_Click() If c = 1 Then Text1.Text = " " End If Text1.Text = Text1.Text + "5" c=0 End Sub

Private Sub Command11_Click() If c = 1 Then Text1.Text = " " End If Text1.Text = Text1.Text + "6" c=0 End Sub

Private Sub Command12_Click() If c = 1 Then Text1.Text = " "

(95)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

End If Text1.Text = Text1.Text + "1" c=0 End Sub

Private Sub Command13_Click() If c = 1 Then Text1.Text = " " End If Text1.Text = Text1.Text + "2" c=0 End Sub

Private Sub Command14_Click() If c = 1 Then Text1.Text = " " End If Text1.Text = Text1.Text + "3" c=0 End Sub

Private Sub Command15_Click() If c = 1 Then Text1.Text = " " End If

(96)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Text1.Text = Text1.Text + "0" c=0 End Sub

Private Sub Command16_Click() If c = 1 Then Text1.Text = " " End If Text1.Text = Text1.Text + "." c=0 End Sub

Private Sub Command17_Click() c=1 If B = 4 Then Text1.Text = (A / Val(Text1.Text)) * 100 End If End Sub

Private Sub Command18_Click() Text1.Text = " " c=0 End Sub

Private Sub Command19_Click()

(97)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Text1.Text = " " End Sub

Private Sub Command2_Click() A = Val(Text1.Text) Text1.Text = " " B=2 End Sub

Private Sub Command3_Click() A = Val(Text1.Text) Text1.Text = " " B=3 End Sub

Private Sub Command4_Click() A = Val(Text1.Text) Text1.Text = " " B=4 End Sub

Private Sub Command5_Click() c=1 If B = 1 Then Text1.Text = Val(Text1.Text) + A

(98)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

ElseIf B = 2 Then Text1.Text = A - Val(Text1.Text) ElseIf B = 3 Then Text1.Text = A * Val(Text1.Text) ElseIf B = 4 Then Text1.Text = A / Val(Text1.Text) End If End Sub

Private Sub Command6_Click() If c = 1 Then Text1.Text = " " End If Text1.Text = Text1.Text + "7" c=0 End Sub

Private Sub Command7_Click() If c = 1 Then Text1.Text = " " End If c=0 Text1.Text = Text1.Text + "8" End Sub

(99)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Private Sub Command8_Click() If c = 1 Then Text1.Text = " " End If Text1.Text = Text1.Text + "9" c=0 End Sub

Private Sub Command9_Click() If c = 1 Then Text1.Text = " " End If Text1.Text = Text1.Text + "4" c=0 End Sub

Private Sub Form_Load() Me.Caption = "NEXUS CALCULATOR" End Sub

CODING FOR EMPLOYEE RECORD

Private Sub Form_Load() On Error Resume Next Call display End Sub

(100)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Private Sub cmdMoveFirst_Click() On Error Resume Next rs.MoveFirst Call display End Sub

Private Sub cmdMoveLast_Click() On Error Resume Next rs.MoveLast If rs.EOF Then MsgBox "Already Last Record", vbInformation, "Record Information" Else Call display End If End Sub

Private Sub cmdMoveNext_Click() On Error Resume Next rs.MoveNext If rs.EOF Then rs.MoveLast MsgBox "Last Record", vbInformation, "Last Record" Else Call display End If

(101)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

End Sub

Private Sub cmdMovePrevious_Click() On Error Resume Next rs.MovePrevious If rs.BOF Then rs.MoveFirst MsgBox "First Record", vbInformation, "First Record" Else Call display End If End Sub Private Sub cmdAddNew_Click() On Error Resume Next Call clear rs.AddNew txtEno.SetFocus End Sub Private Sub cmdDelete_click() On Error Resume Next If MsgBox("Are you sure you wan't to delete record", vbOKCancel + vbExclamation, "Deleting Record") = vbOK Then rs.Delete rs.MoveNext If rs.EOF Then

(102)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

rs.MoveLast MsgBox "Last Record" End If Call display End If End Sub Private Sub cmdSave_Click() On Error Resume Next Call assign rs.Save MsgBox "Record Saved", vbInformation, "Record is Saved" End Sub Private Sub display() txtEno.Text = Str(rs(0)) & " " txtEName.Text = rs(1) & " " txtESal.Text = Str(rs(2)) & " " txtEstatus.Text = rs(3) & " " txtEDoj.Text = Str(rs(4)) & " " txtEDeptNo.Text = Str(rs(5)) & " " End Sub Private Sub clear() txtEno.Text = "" txtEName.Text = "" txtESal.Text = "" txtEstatus.Text = ""

(103)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

txtEDoj.Text = Date txtEDeptNo.Text = "" End Sub Private Sub assign() rs(0) = Val(txtEno.Text) rs(1) = txtEName.Text rs(2) = Val(txtESal.Text) rs(3) = txtEstatus.Text rs(4) = txtEDoj.Text rs(5) = Val(txtEDeptNo.Text) End Sub

CODING FOR EMPLOYEE LIST

Private Sub Form_Load() On Error Resume Next Call display End Sub Private Sub cmdMoveFirst_Click() On Error Resume Next rs.MoveFirst Call display End Sub

Private Sub cmdMoveLast_Click() On Error Resume Next rs.MoveLast

(104)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

If rs.EOF Then MsgBox "Already Last Record", vbInformation, "Record Information" Else Call display End If End Sub

Private Sub cmdMoveNext_Click() On Error Resume Next rs.MoveNext If rs.EOF Then rs.MoveLast MsgBox "Last Record", vbInformation, "Last Record" Else Call display End If End Sub

Private Sub cmdMovePrevious_Click() On Error Resume Next rs.MovePrevious If rs.BOF Then rs.MoveFirst MsgBox "First Record", vbInformation, "First Record" Else

(105)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Call display End If End Sub Private Sub cmdAddNew_Click() On Error Resume Next Call clear rs.AddNew txtEno.SetFocus End Sub Private Sub cmdDelete_click() On Error Resume Next If MsgBox("Are you sure you wan't to delete record", vbOKCancel + vbExclamation, "Deleting Record") = vbOK Then rs.Delete rs.MoveNext If rs.EOF Then rs.MoveLast MsgBox "Last Record" End If Call display End If End Sub Private Sub cmdSave_Click() On Error Resume Next Call assign

(106)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

rs.Save MsgBox "Record Saved", vbInformation, "Record is Saved" End Sub Private Sub display() txtEno.Text = Str(rs(0)) & " " txtEName.Text = rs(1) & " " txtESal.Text = Str(rs(2)) & " " txtEstatus.Text = rs(3) & " " txtEDoj.Text = Str(rs(4)) & " " txtEDeptNo.Text = Str(rs(5)) & " " End Sub Private Sub clear() txtEno.Text = "" txtEName.Text = "" txtESal.Text = "" txtEstatus.Text = "" txtEDoj.Text = Date txtEDeptNo.Text = "" End Sub Private Sub assign() rs(0) = Val(txtEno.Text) rs(1) = txtEName.Text rs(2) = Val(txtESal.Text) rs(3) = txtEstatus.Text rs(4) = txtEDoj.Text

(107)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

rs(5) = Val(txtEDeptNo.Text) End Sub

CODING FOR AUTO GENERATE LIST

Private Sub Form_Unload(Cancel As Integer) rs.Close End Sub

Private Sub txtAutoEno_KeyPress(KeyAscii As Integer)

Dim eno As String Dim Srchflag As Boolean Srchflag = False eno = txtAutoEno.Text If KeyAscii = 13 Then If Not IsNumeric(eno) Then MsgBox "Invalid Search Key Entered", vbCritical, "Search Error" clearAndFocus Exit Sub End If rs.Close rs.Open "Select * from emp where empid = " & eno, cn, adOpenDynamic, adLockOptimistic

If rs.EOF <> True Then Call display

(108)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Srchflag = True clearAndFocus Exit Sub End If

If Srchflag = False Then MsgBox "Search Not Found", vbInformation, "Search Result" clearAndFocus End If

End If End Sub Private Sub clearAndFocus() txtAutoEno.Text = "" txtAutoEno.SetFocus End Sub Private Sub display() txtEno.Text = Str(rs(0)) & " " txtEName.Text = rs(1) & " " txtESal.Text = Str(rs(2)) & " " txtEstatus.Text = rs(3) & " " txtEDoj.Text = Str(rs(4)) & " " txtEDeptNo.Text = Str(rs(5)) & " " End Sub Private Sub clear()

(109)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

txtEno.Text = "" txtEName.Text = "" txtESal.Text = "" txtEstatus.Text = "" txtEDeptNo.Text = "" End Sub Private Sub assign() rs(0) = Val(txtEno.Text) rs(1) = txtEName.Text rs(2) = Val(txtESal.Text) rs(3) = txtEstatus.Text rs(4) = txtEDoj.Text rs(5) = Val(txtEDeptNo.Text) End Sub

CODING FOR TEE REGISTRATION

Private Sub about_Click() about1.Show End Sub

Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) On Error Resume Next If Val(Adodc1.Recordset.RecordCount) <= 0 Then Adodc1.Caption = "0"

(110)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Label9.Caption = "0" Text20.Text = "" Text21.Text = "" Text22.Text = "" Text23.Text = "" Text24.Text = "" Text25.Text = "" Text26.Text = "" Text27.Text = "" Text28.Text = "" Text29.Text = "" Text30.Text = "" Text31.Text = "" Text32.Text = "" Text33.Text = "" Text34.Text = "" Text35.Text = "" Text36.Text = "" Text37.Text = "" Text38.Text = "" Else Adodc1.Caption = (Adodc1.Recordset.AbsolutePosition) Label9.Caption = (Adodc1.Recordset.RecordCount) Text20.Text = (Adodc1.Recordset.Fields(0)) Text21.Text = (Adodc1.Recordset.Fields(1))

(111)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Text22.Text = (Adodc1.Recordset.Fields(3)) Text23.Text = (Adodc1.Recordset.Fields(2)) Text24.Text = (Adodc1.Recordset.Fields(25)) Text25.Text = (Adodc1.Recordset.Fields(4)) Text26.Text = (Adodc1.Recordset.Fields(11)) Text27.Text = (Adodc1.Recordset.Fields(5)) Text28.Text = (Adodc1.Recordset.Fields(12)) Text29.Text = (Adodc1.Recordset.Fields(6)) Text30.Text = (Adodc1.Recordset.Fields(13)) Text31.Text = (Adodc1.Recordset.Fields(7)) Text32.Text = (Adodc1.Recordset.Fields(14)) Text33.Text = (Adodc1.Recordset.Fields(8)) Text34.Text = (Adodc1.Recordset.Fields(15)) Text35.Text = (Adodc1.Recordset.Fields(9)) Text36.Text = (Adodc1.Recordset.Fields(16)) Text37.Text = (Adodc1.Recordset.Fields(10)) Text38.Text = (Adodc1.Recordset.Fields(17)) End If End Sub

Private Sub Combo1_Change() If Combo1.Text = "" Then Combo1.Text = "0" End If End Sub

(112)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Private Sub Combo2_Change() If Combo2.Text = "" Then Combo2.Text = "0" End If End Sub

Private Sub Combo3_Change() If Combo3.Text = "" Then Combo3.Text = "0" End If End Sub

Private Sub Combo4_Change() If Combo4.Text = "" Then Combo4.Text = "0" End If End Sub

Private Sub Combo5_Change() If Combo5.Text = "" Then Combo5.Text = "0" End If End Sub

Private Sub Combo6_Change()

(113)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

If Combo6.Text = "" Then Combo6.Text = "0" End If End Sub

Private Sub Combo7_Change() If Combo7.Text = "" Then Combo7.Text = "0" End If End Sub

Private Sub Command1_Click() If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Text8.Text = "" Or Text9.Text = "" Or Text10.Text = "" Or Text11.Text = "" Or Text12.Text = "" Or Text13.Text = "" Or Text14.Text = "" Or Text16.Text = "" Or Text17.Text = "" Or Text18.Text = "" Or Text19.Text = "" Then

MsgBox "All fields required not to be a null value. Please put (-) to the empty field.", vbExclamation, "Alert" Exit Sub End If Dim x1 As Single Dim x2 As Single Dim x3 As Single

(114)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Dim x4 As Single Dim x5 As Single Dim x6 As Single Dim x7 As Single x1 = Combo1.Text x2 = Combo2.Text x3 = Combo3.Text x4 = Combo4.Text x5 = Combo5.Text x6 = Combo6.Text x7 = Combo7.Text

Text15.Text = x1 + x2 + x3 + x4 + x5 + x6 + x7 If Text15.Text < 9 Then MsgBox "Your total credit hour must not less than 9", vbExclamation, "Alert" Exit Sub Else

If Command1.Caption = "&Add" Then

Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(4) = (Text1.Text) Adodc1.Recordset.Fields(5) = (Text2.Text) Adodc1.Recordset.Fields(6) = (Text3.Text) Adodc1.Recordset.Fields(7) = (Text4.Text)

(115)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Adodc1.Recordset.Fields(8) = (Text5.Text) Adodc1.Recordset.Fields(9) = (Text6.Text) Adodc1.Recordset.Fields(10) = (Text7.Text) Adodc1.Recordset.Fields(11) = (Text8.Text) Adodc1.Recordset.Fields(12) = (Text9.Text) Adodc1.Recordset.Fields(13) = (Text10.Text) Adodc1.Recordset.Fields(14) = (Text11.Text) Adodc1.Recordset.Fields(15) = (Text12.Text) Adodc1.Recordset.Fields(16) = (Text13.Text) Adodc1.Recordset.Fields(17) = (Text14.Text) Adodc1.Recordset.Fields(25) = (Text15.Text) Adodc1.Recordset.Fields(0) = (Text16.Text) Adodc1.Recordset.Fields(1) = (Text17.Text) Adodc1.Recordset.Fields(2) = (Text18.Text) Adodc1.Recordset.Fields(3) = (Text19.Text) Adodc1.Recordset.Fields(18) = (Combo1.Text) Adodc1.Recordset.Fields(19) = (Combo2.Text) Adodc1.Recordset.Fields(20) = (Combo3.Text) Adodc1.Recordset.Fields(21) = (Combo4.Text) Adodc1.Recordset.Fields(22) = (Combo5.Text) Adodc1.Recordset.Fields(23) = (Combo6.Text) Adodc1.Recordset.Fields(24) = (Combo7.Text) Adodc1.Recordset.Update

MsgBox "New Record has been added.", vbInformation, "Course Registration System"

(116)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

End If

If Command1.Caption = "&Save" Then Adodc1.Recordset.Fields(4) = (Text1.Text) Adodc1.Recordset.Fields(5) = (Text2.Text) Adodc1.Recordset.Fields(6) = (Text3.Text) Adodc1.Recordset.Fields(7) = (Text4.Text) Adodc1.Recordset.Fields(8) = (Text5.Text) Adodc1.Recordset.Fields(9) = (Text6.Text) Adodc1.Recordset.Fields(10) = (Text7.Text) Adodc1.Recordset.Fields(11) = (Text8.Text) Adodc1.Recordset.Fields(12) = (Text9.Text) Adodc1.Recordset.Fields(13) = (Text10.Text) Adodc1.Recordset.Fields(14) = (Text11.Text) Adodc1.Recordset.Fields(15) = (Text12.Text) Adodc1.Recordset.Fields(16) = (Text13.Text) Adodc1.Recordset.Fields(17) = (Text14.Text) Adodc1.Recordset.Fields(25) = (Text15.Text) Adodc1.Recordset.Fields(0) = (Text16.Text) Adodc1.Recordset.Fields(1) = (Text17.Text) Adodc1.Recordset.Fields(2) = (Text18.Text) Adodc1.Recordset.Fields(3) = (Text19.Text) Adodc1.Recordset.Fields(18) = (Combo1.Text) Adodc1.Recordset.Fields(19) = (Combo2.Text) Adodc1.Recordset.Fields(20) = (Combo3.Text)

(117)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Adodc1.Recordset.Fields(21) = (Combo4.Text) Adodc1.Recordset.Fields(22) = (Combo5.Text) Adodc1.Recordset.Fields(23) = (Combo6.Text) Adodc1.Recordset.Fields(24) = (Combo7.Text) Adodc1.Recordset.Update Adodc1.Recordset.Update

MsgBox "Record has been successfully save.", vbInformation, "Course Registration System" End If End If Command2_Click 'DataCombo1.Refresh End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text9.Text = "" Text10.Text = ""

(118)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Text11.Text = "" Text12.Text = "" Text13.Text = "" Text14.Text = "" Text15.Text = "" Text16.Text = "" Text17.Text = "" Text18.Text = "" Text19.Text = "" Combo1.Text = "0" Combo2.Text = "0" Combo3.Text = "0" Combo4.Text = "0" Combo5.Text = "0" Combo6.Text = "0" Combo7.Text = "0" End Sub

Private Sub Command3_Click() Dim str1, str2, str3 As String str1 = InputBox("Search by Matric Number.") If str1 = "" Then MsgBox "Please insert matric number to search!", vbInformation, "Course Registration System" Else

(119)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Adodc1.Recordset.Filter = "matric ='" & str1 & "'" End If End Sub

Private Sub Command4_Click() Adodc1.Recordset.Fields(0) = (Text20.Text) Adodc1.Recordset.Fields(1) = (Text21.Text) Adodc1.Recordset.Fields(3) = (Text22.Text) Adodc1.Recordset.Fields(2) = (Text23.Text) Adodc1.Recordset.Fields(25) = (Text24.Text) Adodc1.Recordset.Fields(4) = (Text25.Text) Adodc1.Recordset.Fields(11) = (Text26.Text) Adodc1.Recordset.Fields(5) = (Text27.Text) Adodc1.Recordset.Fields(12) = (Text28.Text) Adodc1.Recordset.Fields(6) = (Text29.Text) Adodc1.Recordset.Fields(13) = (Text30.Text) Adodc1.Recordset.Fields(7) = (Text31.Text) Adodc1.Recordset.Fields(14) = (Text32.Text) Adodc1.Recordset.Fields(8) = (Text33.Text) Adodc1.Recordset.Fields(15) = (Text34.Text) Adodc1.Recordset.Fields(9) = (Text35.Text) Adodc1.Recordset.Fields(16) = (Text36.Text) Adodc1.Recordset.Fields(10) = (Text37.Text) Adodc1.Recordset.Fields(17) = (Text38.Text) Adodc1.Recordset.Update

(120)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Adodc1.Recordset.Update MsgBox "Changes has been successfully save.", vbInformation, "Course Registration System" End Sub

Private Sub Command5_Click() On Error Resume Next Dim repp As Integer If Val(Adodc1.Recordset.RecordCount) <= 0 Then MsgBox "No more Records to be deleted.", vbInformation, "Confirm" Exit Sub End If repp = MsgBox("You are about to delete 1 record.", vbCritical + vbYesNo, "Confirm Delete") If repp = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If MsgBox "Record has been successfuly deleted.", vbInformation, "Confirm" End If End Sub

Private Sub Command6_Click()

(121)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Form3.Show Unload Me End Sub

Private Sub Command8_Click() Adodc1.Refresh End Sub

Private Sub exit_Click() Dim iReply As Integer iReply = MsgBox("Are You Sure ?", vbYesNo + vbQuestion, "Exit") If iReply = vbYes Then End End If End Sub

Private Sub Form_Activate() Text16.SetFocus End Sub

Private Sub Form_Load() Adodc1.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & (APP.Path & "\data12.mdb")) Adodc1.RecordSource = "Select * From data order by matric desc" Set DataGrid1.DataSource = Adodc1

(122)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

DataGrid1.AllowUpdate = False SSTab1.Tab = 0 End Sub

Private Sub form1_Click() SSTab1.Tab = 0 End Sub

Private Sub home_Click() Form2.Show Unload Me End Sub

Private Sub Option1_Click() If Option1.Value = True Then DataCombo1.Visible = True End If End Sub

Private Sub Option2_Click() If Option2.Value = True Then DataCombo1.Visible = False Label17.Visible = False End If End Sub

(123)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Private Sub print_Click() SSTab1.Tab = 2 End Sub

Private Sub record_Click() SSTab1.Tab = 1 End Sub

Private Sub SSTab1_Click() End Sub Private Sub Text1_LostFocus() Text1.Text = UCase(Text1.Text) End Sub

Private Sub Text10_LostFocus() Text10.Text = (Text10.Text) End Sub

Private Sub Text11_LostFocus() Text11.Text = (Text11.Text) End Sub Private Sub Text12_LostFocus() Text12.Text = (Text12.Text) End Sub

(124)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Private Sub Text13_LostFocus() Text13.Text = (Text13.Text) End Sub

Private Sub Text14_LostFocus() Text14.Text = (Text14.Text) End Sub

Private Sub Text16_Change() Text17.Locked = False Text18.Locked = False Text19.Locked = False Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find "matric like '" & Text16.Text & "'" If Adodc1.Recordset.EOF Then Command1.Caption = "&Add" Me.Caption = "Course Registration" Exit Sub Else Text1.Text = (Adodc1.Recordset.Fields(4)) Text2.Text = (Adodc1.Recordset.Fields(5)) Text3.Text = (Adodc1.Recordset.Fields(6)) Text4.Text = (Adodc1.Recordset.Fields(7)) Text5.Text = (Adodc1.Recordset.Fields(8))

(125)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Text6.Text = (Adodc1.Recordset.Fields(9)) Text7.Text = (Adodc1.Recordset.Fields(10)) Text8.Text = (Adodc1.Recordset.Fields(11)) Text9.Text = (Adodc1.Recordset.Fields(12)) Text10.Text = (Adodc1.Recordset.Fields(13)) Text11.Text = (Adodc1.Recordset.Fields(14)) Text12.Text = (Adodc1.Recordset.Fields(15)) Text13.Text = (Adodc1.Recordset.Fields(16)) Text14.Text = (Adodc1.Recordset.Fields(17)) Text15.Text = (Adodc1.Recordset.Fields(25)) Text17.Text = (Adodc1.Recordset.Fields(1)) Text18.Text = (Adodc1.Recordset.Fields(2)) Text19.Text = (Adodc1.Recordset.Fields(3)) Combo1.Text = (Adodc1.Recordset.Fields(18)) Combo2.Text = (Adodc1.Recordset.Fields(19)) Combo3.Text = (Adodc1.Recordset.Fields(20)) Combo4.Text = (Adodc1.Recordset.Fields(21)) Combo5.Text = (Adodc1.Recordset.Fields(22)) Combo6.Text = (Adodc1.Recordset.Fields(23)) Combo7.Text = (Adodc1.Recordset.Fields(24)) Command1.Caption = "&Save" Me.Caption = "Course Registration" Command2.Caption = "Reset" End If End Sub

(126)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Private Sub Text16_LostFocus() Text16.Text = (Text16.Text) End Sub

Private Sub Text17_LostFocus() Text17.Text = (Text17.Text) End Sub

Private Sub Text18_LostFocus() Text18.Text = (Text18.Text) End Sub

Private Sub Text19_LostFocus() Text19.Text = (Text19.Text) End Sub

Private Sub Text2_LostFocus() Text2.Text = UCase(Text2.Text) End Sub

Private Sub Text3_LostFocus() Text3.Text = UCase(Text3.Text) End Sub

(127)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Private Sub Text4_LostFocus() Text4.Text = UCase(Text4.Text) End Sub

Private Sub Text5_LostFocus() Text5.Text = UCase(Text5.Text) End Sub

Private Sub Text6_LostFocus() Text6.Text = UCase(Text6.Text) End Sub

Private Sub Text7_LostFocus() Text7.Text = UCase(Text7.Text) End Sub

Private Sub Text8_LostFocus() Text8.Text = (Text8.Text) End Sub Private Sub Text9_LostFocus() Text9.Text = (Text9.Text) End Sub

(128)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

CODING FOR PRINT A REPORT ON TEE

Private Sub Command1_Click() form1.Show Unload Me End Sub

Private Sub Command6_Click() DataCombo1.Refresh DE1.rsCommand1.Filter = "" If Option2.Value = True Then DE1.rsCommand1.Filter = "" End If If Option1.Value = True Then If DataCombo1.Text = "" Then MsgBox "Please select a matric number.", vbExclamation, "Course Registration System" Exit Sub End If DE1.rsCommand1.Filter = "matric ='" & (DataCombo1.Text) & "'" End If DataReport1.Show DE1.rsCommand1.Close

End Sub

(129)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Private Sub Form_Load() Me.Top = 0 Me.Left = 0 Option1.Value = True Call matric1 DataCombo1.Refresh End Sub

Private Sub Frame6_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Option1_Click() If Option1.Value = True Then DataCombo1.Visible = True End If End Sub

Private Sub Option2_Click() If Option2.Value = True Then DataCombo1.Visible = False Label17.Visible = False End If End Sub

(130)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

CODING FOR PRINT FEE STRUCTURE

Dim A As Integer Private Sub Form_Load() End Sub

Private Sub Label3_Click() Me.Hide Form2.Show End Sub

Private Sub Timer1_Timer() If Label1.Left = 17000 Then

Label1.Left = -10000 End If Label1.Left = Label1.Left + 20

End Sub

Private Sub Timer2_Timer() If Label2.Left = 17000 Then

Label2.Left = -10000 End If

(131)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Label2.Left = Label2.Left + 20

End Sub

Private Sub Timer3_Timer() If A Mod 2 = 0 Then Label3.Visible = False Else Label3.Visible = True End If A=A+1 End Sub

CODING FOR STUDENT REGISTRATION

Dim Lname As String Dim Fname As String Dim studID As Long

Private Sub Combo1_Click() Call ParseName(Combo1.Text) With adRS If .State = adStateOpen Then .Close .Open "SELECT * FROM tblstudent WHERE txtstudentlname='" & Lname & "' AND txtstudentfname='" & Fname & "'", adCon, adOpenDynamic, adLockOptimistic If .BOF And .EOF Then Exit Sub If Not .EOF Then

(132)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Call LoadData End If End With

End Sub Private Sub LoadData() With adRS studID = .Fields("intstudentid").Value Text1.Text = .Fields("txtstudentlname").Value Text2.Text = .Fields("txtstudentfname").Value Text3.Text = .Fields("txtstudentmname").Value Text4.Text = .Fields("txtstudentmobile").Value Text5.Text = .Fields("memstudentaddress").Value Text6.Text = .Fields("txtstudentphone").Value Text7.Text = .Fields("memstudentemail").Value DTPicker1.Value = .Fields("dtestudentdob").Value If .Fields("txtstudentgender").Value = "Male" Then Option1.Value = True ElseIf .Fields("txtstudentgender").Value = "Female" Then Option2.Value = True End If End With End Sub Private Sub Command1_Click() Command1.Enabled = False

(133)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Command2.Enabled = True Command3.Enabled = False Command4.Enabled = True

Call resetControls End Sub Private Sub resetControls() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" DTPicker1.Value = Date Option1.Value = False Option2.Value = False End Sub

Private Sub Command2_Click() Command2.Enabled = False Command1.Enabled = True Command3.Enabled = False Command4.Enabled = True Combo1.Locked = False

(134)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

End Sub

Private Sub Command3_Click() Dim intRes As Integer If Combo1.Text <> "" Then intRes = MsgBox("Do you want to delete this record?", vbYesNo + vbCritical, "Delete Record") If intRes = vbYes Then With adRS If .State = adStateOpen Then .Close .Open "SELECT * FROM tblstudent WHERE intstudentid=" & studID, adCon, adOpenDynamic, adLockOptimistic If Not .EOF Then .Delete adAffectCurrent End If resetControls Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = False End If End If End Sub

Private Sub Command4_Click()

(135)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

With adRS If .State = adStateOpen Then .Close If Command1.Enabled = False Then .Open "SELECT * FROM tblstudent", adCon, adOpenDynamic, adLockOptimistic .AddNew ElseIf Command2.Enabled = False Then .Open "SELECT * FROM tblstudent WHERE intstudentid=" & studID, adCon, adOpenDynamic, adLockOptimistic End If .Fields("txtstudentlname").Value = Text1.Text .Fields("txtstudentfname").Value = Text2.Text .Fields("txtstudentmname").Value = Text3.Text .Fields("memstudentaddress").Value = Text5.Text .Fields("txtstudentphone").Value = Text6.Text .Fields("memstudentemail").Value = Text7.Text .Fields("txtstudentmobile").Value = Text4.Text .Fields("dtestudentdob").Value = DTPicker1.Value If Option1.Value = True Then .Fields("txtstudentgender").Value = "Male" ElseIf Option2.Value = True Then .Fields("txtstudentgender").Value = "Female" End If .Update End With resetControls

(136)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Form_Load End Sub

Private Sub Command5_Click() Unload Me frmmain.Show End Sub Private Sub Form_Load() Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = False End Sub Private Sub ParseName(nameSTR As String) Dim xCTr As Integer Dim flgName As Boolean Lname = "" Fname = "" xCTr = 0 dumstr = "" flgName = False For xCTr = 1 To Len(nameSTR) If flgName = False Then If Mid(nameSTR, xCTr, 1) <> "," Then Lname = Lname & Mid(nameSTR, xCTr, 1)

(137)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Else flgName = True End If Else Fname = Fname & Mid(nameSTR, xCTr, 1) End If Next End Sub

CODING FOR HOME PAGE

Private Sub bb1_Click() Me.Hide Form3.Show Form3.FontSize = 20 Form3.ForeColor = vbBlue Form3.Show Form3.Caption = "Fee of BBA I'st Year" Form3.Print Form3.Print Form3.Print " Form3.Print Form3.ForeColor = vbBlack Form3.FontName = "Arial" Form3.Print " Form3.Print " Form3.Print " Tution Fee Book Fee Dress Fee 30000" 5000" 5000" Fee Detail of BCA I'st Year"

(138)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Form3.Print " End Sub

Total Fee

40000 / -"

Private Sub bb2_Click() Me.Hide Form3.Show Form3.FontSize = 20 Form3.ForeColor = vbBlue Form3.Show Form3.Caption = "Fee of BBA II'nd Year" Form3.Print Form3.Print Form3.Print " Form3.Print Form3.ForeColor = vbBlack Form3.FontName = "Arial" Form3.Print " Form3.Print " Form3.Print " Form3.Print " End Sub Tution Fee Book Fee Dress Fee Total Fee 30000" 5000" 5000" 40000 / -" Fee Detail of BBA II'nd Year"

Private Sub bb3_Click() Me.Hide Form3.Show

(139)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Form3.FontSize = 20 Form3.ForeColor = vbBlue Form3.Show Form3.Caption = "Fee of BBA III'rd Year" Form3.Print Form3.Print Form3.Print " Form3.Print Form3.ForeColor = vbBlack Form3.FontName = "Arial" Form3.Print " Form3.Print " Form3.Print " Form3.Print " End Sub Tution Fee Book Fee Dress Fee Total Fee 30000" 5000" 5000" 40000 / -" Fee Detail of BBA III'rd Year"

Private Sub bba1_Click() Me.Hide Form3.Show Form3.Caption = "BBA I'st Semester" Form3.Print Form3.Print Form3.ForeColor = vbGreen Form3.Print " Form3.Print Syllabus of BBA I'st Semester"

(140)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Form3.ForeColor = vbBlack Form3.Print " S.N. SUBJECT CODE Form3.Print Form3.ForeColor = vbMagenta Form3.Print " 1. Form3.Print Form3.Print " 2. Form3.Print Form3.Print " 3. Form3.Print Form3.Print " 4. End Sub (104) PRODUCTION MANAGEMENT" (103) PRODUCTION OF ORGANISATION" (102) PRINCIPLE OF ACCOUNTING" (101) PRINCIPLE OF MANAGEMENT " SUBJECT NAME"

Private Sub bba2_Click() Me.Hide Form3.Show Form3.Caption = "BBA II'nd Semester" Form3.Print Form3.Print Form3.ForeColor = vbGreen Form3.Print " Form3.Print Form3.ForeColor = vbBlack Form3.Print " S.N. SUBJECT CODE Form3.Print SUBJECT NAME" Syllabus of BBA II'nd Semester"

(141)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Form3.ForeColor = vbMagenta Form3.Print " 1. Form3.Print Form3.Print " 2. Form3.Print Form3.Print " 3. Form3.Print Form3.Print " 4. End Sub (104) PRODUCTION MANAGEMENT" (103) PRODUCTION OF ORGANISATION" (102) PRINCIPLE OF ACCOUNTING" (101) PRINCIPLE OF MANAGEMENT "

Private Sub bba3_Click() Me.Hide Form3.Show Form3.Caption = "BBA III'rd Semester" Form3.Print Form3.Print Form3.ForeColor = vbGreen Form3.Print " Form3.Print Form3.ForeColor = vbBlack Form3.Print " S.N. SUBJECT CODE Form3.Print Form3.ForeColor = vbMagenta Form3.Print " 1. Form3.Print (101) PRINCIPLE OF MANAGEMENT " SUBJECT NAME" Syllabus of BBA III'rd Semester"

(142)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Form3.Print " 2. Form3.Print Form3.Print " 3. Form3.Print Form3.Print " 4. End Sub

(102)

PRINCIPLE OF ACCOUNTING"

(103)

PRODUCTION OF ORGANISATION"

(104)

PRODUCTION MANAGEMENT"

Private Sub bba4_Click() Me.Hide Form3.Show Form3.Caption = "BBA IV'th Semester" Form3.Print Form3.Print Form3.ForeColor = vbGreen Form3.Print " Form3.Print Form3.ForeColor = vbBlack Form3.Print " S.N. SUBJECT CODE Form3.Print Form3.ForeColor = vbMagenta Form3.Print " 1. Form3.Print Form3.Print " 2. Form3.Print Form3.Print " 3. (103) PRODUCTION OF ORGANISATION" (102) PRINCIPLE OF ACCOUNTING" (101) PRINCIPLE OF MANAGEMENT " SUBJECT NAME" Syllabus of BBA IV'th Semester"

(143)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Form3.Print Form3.Print " 4. End Sub (104) PRODUCTION MANAGEMENT"

Private Sub bba5_Click() Me.Hide Form3.Show Form3.Caption = "BBA V'th Semester" Form3.Print Form3.Print Form3.ForeColor = vbGreen Form3.Print " Form3.Print Form3.ForeColor = vbBlack Form3.Print " S.N. SUBJECT CODE Form3.Print Form3.ForeColor = vbMagenta Form3.Print " 1. Form3.Print Form3.Print " 2. Form3.Print Form3.Print " 3. Form3.Print Form3.Print " 4. End Sub (104) PRODUCTION MANAGEMENT" (103) PRODUCTION OF ORGANISATION" (102) PRINCIPLE OF ACCOUNTING" (101) PRINCIPLE OF MANAGEMENT " SUBJECT NAME" Syllabus of BBA V'th Semester"

(144)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Private Sub bba6_Click() Me.Hide Form3.Show Form3.Caption = "BBA VI'th Semester" Form3.Print Form3.Print Form3.ForeColor = vbGreen Form3.Print " Form3.Print Form3.ForeColor = vbBlack Form3.Print " S.N. SUBJECT CODE Form3.Print Form3.ForeColor = vbMagenta Form3.Print " 1. Form3.Print Form3.Print " 2. Form3.Print Form3.Print " 3. Form3.Print Form3.Print " 4. End Sub (104) PRODUCTION MANAGEMENT" (103) PRODUCTION OF ORGANISATION" (102) PRINCIPLE OF ACCOUNTING" (101) PRINCIPLE OF MANAGEMENT " SUBJECT NAME" Syllabus of BBA VI'th Semester"

Private Sub bca1_Click() Form3.Show

(145)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Form3.Caption = "BCA I'st Semester" Form3.Print Form3.Print Form3.ForeColor = vbGreen Form3.Print " Form3.Print Form3.ForeColor = vbBlack Form3.Print " S.N. SUBJECT CODE Form3.Print Form3.ForeColor = vbMagenta Form3.Print " 1. Form3.Print Form3.Print " 2. Form3.Print Form3.Print " 3. Form3.Print Form3.Print " 4. End Sub (104) SCIENCE" (103) SOCIAL SCIENCE" (102) HINDI" (101) MATHEMATICS" SUBJECT NAME" Syllabus of BCA I'st Semester"

Private Sub bca11_Click() Me.Caption = " Form3.Show Form3.Caption = "Fee of BCA I'st Year" Form3.Print Form3.Print FEE STRUCTURE OF BCA I'st YEAR"

(146)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Form3.FontSize = 20 Form3.ForeColor = vbBlue

Form3.Print " Form3.Print Form3.ForeColor = vbBlack Form3.FontName = "Arial" Form3.Print " Form3.Print " Form3.Print " Form3.Print " End Sub Tution Fee Book Fee Dress Fee Total Fee

Fee Detail of BCA I'st Year"

30000" 5000" 5000" 40000 / -"

Private Sub bca2_Click() Me.Hide Form3.Show Form3.FontSize = 20 Form3.ForeColor = vbBlue Form3.Show Form3.Caption = "Fee of BCA II'ND Year" Form3.Print Form3.Print Form3.Print " Form3.Print Form3.ForeColor = vbBlack Fee Detail of BCA II'nd Year"

(147)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Form3.FontName = "Arial" Form3.Print " Form3.Print " Form3.Print " Form3.Print " End Sub Tution Fee Book Fee Dress Fee Total Fee 30000" 5000" 5000" 40000 / -"

Private Sub bca3_Click() Form3.Show Form3.Caption = "BCA III'rd Semester" Form3.Print Form3.Print Form3.ForeColor = vbGreen Form3.Print " Form3.Print Form3.ForeColor = vbBlack Form3.Print " S.N. SUBJECT CODE Form3.Print Form3.ForeColor = vbMagenta Form3.Print " 1. Form3.Print Form3.Print " 2. Form3.Print Form3.Print " 3. Form3.Print (103) SOCIAL SCIENCE" (102) HINDI" (101) MATHEMATICS" SUBJECT NAME" Syllabus of BCA III'rd Semester"

(148)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Form3.Print " 4. End Sub

(104)

SCIENCE"

Private Sub bca4_Click() Form3.Show Form3.Caption = "BCA IV'th Semester" Form3.Print Form3.Print Form3.ForeColor = vbGreen Form3.Print " Form3.Print Form3.ForeColor = vbBlack Form3.Print " S.N. SUBJECT CODE Form3.Print Form3.ForeColor = vbMagenta Form3.Print " 1. Form3.Print Form3.Print " 2. Form3.Print Form3.Print " 3. Form3.Print Form3.Print " 4. End Sub (104) SCIENCE" (103) SOCIAL SCIENCE" (102) HINDI" (101) MATHEMATICS" SUBJECT NAME" Syllabus of BCA IV'th Semester"

Private Sub bca5_Click()

(149)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Form3.Show Form3.Caption = "BCA V'th Semester" Form3.Print Form3.Print Form3.ForeColor = vbGreen Form3.Print " Form3.Print Form3.ForeColor = vbBlack Form3.Print " S.N. SUBJECT CODE Form3.Print Form3.ForeColor = vbMagenta Form3.Print " 1. Form3.Print Form3.Print " 2. Form3.Print Form3.Print " 3. Form3.Print Form3.Print " 4. End Sub (104) SCIENCE" (103) SOCIAL SCIENCE" (102) HINDI" (101) MATHEMATICS" SUBJECT NAME" Syllabus of BCA V'th Semester"

Private Sub bca6_Click() Form3.Show Form3.Caption = "BCA VI'th Semester" Form3.Print Form3.Print

(150)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Form3.ForeColor = vbGreen Form3.Print " Form3.Print Form3.ForeColor = vbBlack Form3.Print " S.N. SUBJECT CODE Form3.Print Form3.ForeColor = vbMagenta Form3.Print " 1. Form3.Print Form3.Print " 2. Form3.Print Form3.Print " 3. Form3.Print Form3.Print " 4. End Sub (104) SCIENCE" (103) SOCIAL SCIENCE" (102) NUMERICAL ANALYSIS" (101) MATHEMATICS" SUBJECT NAME" Syllabus of BCA VI'th Semester"

Private Sub bcaa_Click() Form3.Show Form3.Caption = "BCA II'nd Semester" Form3.Print Form3.Print Form3.ForeColor = vbGreen Form3.Print " Form3.Print Form3.ForeColor = vbBlack Syllabus of BCA VI'th Semester"

(151)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Form3.Print " S.N. SUBJECT CODE Form3.Print Form3.ForeColor = vbMagenta Form3.Print " 1. Form3.Print Form3.Print " 2. Form3.Print Form3.Print " 3. Form3.Print Form3.Print " 4. End Sub (104) (103) (102) (101)

SUBJECT NAME"

MATHEMATICS"

NUMERICAL ANALYSIS"

SOCIAL SCIENCE"

SCIENCE"

Private Sub bcaaa_Click() Form3.Show Form3.Caption = " FEE STRUCTURE OF BCA III'rd YEAR"

Form3.FontSize = 20 Form3.ForeColor = vbBlue Form3.Print Form3.Print

Form3.Print " Form3.Print

Fee Detail of BCA III'rd Year"

(152)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Form3.Print Form3.ForeColor = vbBlack Form3.FontName = "Arial" Form3.Print " Form3.Print " Form3.Print " Form3.Print " End Sub Tution Fee Book Fee Dress Fee Total Fee 30000" 5000" 5000" 40000 / -"

Private Sub BK_Click() Me.Hide form1.Show End Sub

Private Sub bn_Click() Me.Hide Form3.Show Form3.Caption = "Fee of MBA II'nd Year" Form3.Print Form3.Print Form3.FontSize = 20 Form3.ForeColor = vbBlue Form3.FontName = "monotype corsiva" Form3.Print " Form3.Print Fee Detail of MBA II'nd Year"

(153)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Form3.ForeColor = vbBlack Form3.FontName = "Arial" Form3.Print " Form3.Print " Form3.Print " Form3.Print " End Sub Tution Fee Dress Fee Book Fee Total Fee 70000" 6000" 5000" 81000 / -"

Private Sub en_Click() Me.Hide Form11.Show

End Sub

Private Sub ext_Click() Me.Hide Form8.Show End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu sb End If If Button = 1 Then

(154)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

MsgBox "PLZ SELECT THE OPTION FROM MENU" End If End Sub

Private Sub frninfo_Click() Me.Hide Form16.Show

End Sub Private Sub gfh_Click() Me.Hide Form3.Show Form3.Caption = "Fee of MBA I'st Year" Form3.Print Form3.Print Form3.FontSize = 20 Form3.ForeColor = vbBlue Form3.FontName = "monotype corsiva" Form3.Print " Form3.Print Form3.ForeColor = vbBlack Form3.FontName = "Arial" Form3.Print " Form3.Print " Form3.Print " Tution Fee Dress Fee Book Fee 70000" 6000" 5000" Fee Detail of MBA I'st Year"

(155)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Form3.Print " End Sub

Total Fee

81000 / -"

Private Sub II_Click() Me.Hide Form3.Show Form3.Caption = "MCA II'nd Semester" Form3.Print Form3.Print Form3.ForeColor = vbGreen Form3.Print " Form3.Print Form3.ForeColor = vbBlack Form3.Print " S.N. SUBJECT CODE Form3.Print Form3.ForeColor = vbMagenta Form3.Print " 1. (101) COMPUTER FUNDAMENTAL AND SUBJECT NAME" Syllabus of MCA II'nd Semester"

PROGRAMMING IN C-LANGUAGE" Form3.Print Form3.Print " 2. Form3.Print Form3.Print " 3. Form3.Print Form3.Print " 4. (104) SOFTWARE ENGINEERING" (103) PROGRAMMING IN C++" (102) PROGRAMMING IN VISUAL BASIC 6.0"

(156)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

End Sub Private Sub III_Click() Me.Hide Form3.Show Form3.Caption = "MCA III'rd Semester" Form3.Print Form3.Print Form3.ForeColor = vbGreen Form3.Print " Form3.Print Form3.ForeColor = vbBlack Form3.Print " S.N. SUBJECT CODE Form3.Print Form3.ForeColor = vbMagenta Form3.Print " 1. (101) COMPUTER FUNDAMENTAL AND SUBJECT NAME" Syllabus of MCA III'rd Semester"

PROGRAMMING IN C-LANGUAGE" Form3.Print Form3.Print " 2. Form3.Print Form3.Print " 3. Form3.Print Form3.Print " 4. End Sub (104) SOFTWARE ENGINEERING" (103) PROGRAMMING IN C++" (102) PROGRAMMING IN VISUAL BASIC 6.0"

Private Sub IV_Click()

(157)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Me.Hide Form3.Show Form3.Caption = "MCA IV'th Semester" Form3.Print Form3.Print Form3.ForeColor = vbGreen Form3.Print " Form3.Print Form3.ForeColor = vbBlack Form3.Print " S.N. SUBJECT CODE Form3.Print Form3.ForeColor = vbMagenta Form3.Print " 1. (101) COMPUTER FUNDAMENTAL AND SUBJECT NAME" Syllabus of MCA IV'th Semester"

PROGRAMMING IN C-LANGUAGE" Form3.Print Form3.Print " 2. Form3.Print Form3.Print " 3. Form3.Print Form3.Print " 4. End Sub (104) SOFTWARE ENGINEERING" (103) PROGRAMMING IN C++" (102) PROGRAMMING IN VISUAL BASIC 6.0"

Private Sub mba1_Click() Me.Hide Form3.Show

(158)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Form3.Caption = "MBA I'st Semester" Form3.Print Form3.Print Form3.ForeColor = vbGreen Form3.Print " Form3.Print Form3.ForeColor = vbBlack Form3.Print " S.N. SUBJECT CODE Form3.Print Form3.ForeColor = vbMagenta Form3.Print " 1. Form3.Print Form3.Print " 2. Form3.Print Form3.Print " 3. Form3.Print Form3.Print " 4. End Sub (104) PRODUCTION MANAGEMENT" (103) ORGANISATIONAL BEHAVIOUR" (102) PRINCIPLE OF ACCOUNTING" (101) COMPUTER FUNDAMENTAL " SUBJECT NAME" Syllabus of MBA I'st Semester"

Private Sub mba2_Click() Me.Hide Form3.Show Form3.Caption = "MBA II'nd Semester" Form3.Print Form3.Print

(159)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Form3.ForeColor = vbGreen Form3.Print " Form3.Print Form3.ForeColor = vbBlack Form3.Print " S.N. SUBJECT CODE Form3.Print Form3.ForeColor = vbMagenta Form3.Print " 1. Form3.Print Form3.Print " 2. Form3.Print Form3.Print " 3. Form3.Print Form3.Print " 4. End Sub (104) PRODUCTION MANAGEMENT" (103) ORGANISATIONAL BEHAVIOUR" (102) PRINCIPLE OF ACCOUNTING" (101) COMPUTER FUNDAMENTAL " SUBJECT NAME" Syllabus of MBA II'nd Semester"

Private Sub mba3_Click() Me.Hide Form3.Show Form3.Caption = "MBA III'rd Semester" Form3.Print Form3.Print Form3.ForeColor = vbGreen Form3.Print " Form3.Print Syllabus of MBA III'rd Semester"

(160)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Form3.ForeColor = vbBlack Form3.Print " S.N. SUBJECT CODE Form3.Print Form3.ForeColor = vbMagenta Form3.Print " 1. Form3.Print Form3.Print " 2. Form3.Print Form3.Print " 3. Form3.Print Form3.Print " 4. End Sub (104) PRODUCTION MANAGEMENT" (103) ORGANISATIONAL BEHAVIOUR" (102) PRINCIPLE OF ACCOUNTING" (101) COMPUTER FUNDAMENTAL " SUBJECT NAME"

Private Sub mba4_Click() Me.Hide Form3.Show Form3.Caption = "MBA IV'th Semester" Form3.Print Form3.Print Form3.ForeColor = vbGreen Form3.Print " Form3.Print Form3.ForeColor = vbBlack Form3.Print " S.N. SUBJECT CODE Form3.Print SUBJECT NAME" Syllabus of MBA IV'th Semester"

(161)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Form3.ForeColor = vbMagenta Form3.Print " 1. Form3.Print Form3.Print " 2. Form3.Print Form3.Print " 3. Form3.Print Form3.Print " 4. End Sub Private Sub mca1_Click() Me.Hide Form3.Show Form3.Caption = "Fee of MCA I'st Year" Form3.Print Form3.Print Form3.FontSize = 20 Form3.ForeColor = vbBlue Form3.FontName = "monotype corsiva" Form3.Print " Form3.Print Form3.ForeColor = vbBlack Form3.FontName = "Arial" Form3.Print " Form3.Print " Form3.Print " Tution Fee Dress Fee Book Fee 50000" 6000" 5000" Fee Detail of MCA I'st Year" (104) PRODUCTION MANAGEMENT" (103) ORGANISATIONAL BEHAVIOUR" (102) PRINCIPLE OF ACCOUNTING" (101) COMPUTER FUNDAMENTAL "

(162)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Form3.Print " End Sub

Total Fee

61000 / -"

Private Sub mca2_Click() Form3.Show Form3.Caption = "Fee of MCA II'nd Year" Form3.Print Form3.Print Form3.FontSize = 20 Form3.ForeColor = vbBlue Form3.FontName = "monotype corsiva" Form3.Print " Form3.Print Form3.ForeColor = vbBlack Form3.FontName = "Arial" Form3.Print " Form3.Print " Form3.Print " End Sub Tution Fee Book Fee Total Fee 50000" 5000" 55000 / -" Fee Detail of MCA II'nd Year"

Private Sub mca3_Click() Me.Hide Form3.Show Form3.Caption = "Fee of MCA II'nd Year" Form3.Print

(163)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Form3.Print Form3.FontSize = 20 Form3.ForeColor = vbBlue Form3.Print " Form3.Print Form3.ForeColor = vbBlack Form3.FontName = "Arial" Form3.Print " Form3.Print " Form3.Print " Form3.Print " End Sub Tution Fee Book Fee Training Fee Total Fee 50000" 5000" 10000" 65000/-" Fee Detail of MCA III'rd Year"

Private Sub McaI_Click() Me.Hide Form3.Show Form3.Caption = "MCA I'st Semester" Form3.Print Form3.Print Form3.ForeColor = vbGreen Form3.Print " Form3.Print Form3.ForeColor = vbBlack Form3.Print " S.N. SUBJECT CODE Form3.Print SUBJECT NAME" Syllabus of MCA I'st Semester"

(164)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Form3.ForeColor = vbMagenta Form3.Print " 1. (101) COMPUTER FUNDAMENTAL AND

PROGRAMMING IN C-LANGUAGE" Form3.Print Form3.Print " 2. Form3.Print Form3.Print " 3. Form3.Print Form3.Print " 4. (104) SOFTWARE ENGINEERING" (103) PROGRAMMING IN C++" (102) PROGRAMMING IN VISUAL BASIC 6.0"

End Sub

Private Sub nfrn_Click() Me.Hide Form12.Show

End Sub

Private Sub rgbba_Click() frmstudent.Show frmstudent.Caption = "BBA Registration" End Sub

Private Sub rgbca_Click() frmstudent.Show

(165)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

frmstudent.Caption = "BCA Registration" End Sub

Private Sub rgmb_Click()

frmstudent.Show frmstudent.Caption = "MBA Registration" End Sub

Private Sub rgmc_Click()

frmstudent.Show frmstudent.Caption = "MCA Registration"

End Sub

Private Sub sign_Click() Me.Hide Form6.Show End Sub

Private Sub s_Click() Me.Hide

Form10.Show

(166)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

End Sub Private Sub tc_Click() Me.Hide game.Show End Sub

Private Sub texam_Click() Me.Hide Form13.Show End Sub

Private Sub Timer1_Timer() If Label1.Left = 17000 Then

Label1.Left = -10000 End If Label1.Left = Label1.Left + 20

End Sub

Private Sub Timer3_Timer() If Label2.Left = 17000 Then

Label2.Left = -10000 End If

(167)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Label2.Left = Label2.Left + 20 End Sub

Private Sub use_Click() Me.Hide SAD.Show End Sub

Private Sub V_Click() Me.Hide Form3.Show Form3.Caption = "MCA V'th Semester" Form3.Print Form3.Print Form3.ForeColor = vbGreen Form3.Print " Form3.Print Form3.ForeColor = vbBlack Form3.Print " S.N. SUBJECT CODE Form3.Print Form3.ForeColor = vbMagenta Form3.Print " 1. (101) COMPUTER FUNDAMENTAL AND SUBJECT NAME" Syllabus of MCA V'th Semester"

PROGRAMMING IN C-LANGUAGE" Form3.Print Form3.Print " 2. (102) PROGRAMMING IN VISUAL BASIC 6.0"

(168)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Form3.Print Form3.Print " 3. Form3.Print Form3.Print " 4. End Sub (104) SOFTWARE ENGINEERING" (103) PROGRAMMING IN C++"

Private Sub VI_Click() Me.Hide Form3.Show Form3.Caption = "MCA VI'th Semester" Form3.Print Form3.Print Form3.ForeColor = vbGreen Form3.Print " Form3.Print Form3.ForeColor = vbBlack Form3.Print " S.N. SUBJECT CODE Form3.Print Form3.ForeColor = vbMagenta Form3.Print " 1. (101) COMPUTER FUNDAMENTAL AND SUBJECT NAME" Syllabus of MCA VI'th Semester"

PROGRAMMING IN C-LANGUAGE" Form3.Print Form3.Print " 2. Form3.Print Form3.Print " 3. (103) PROGRAMMING IN C++" (102) PROGRAMMING IN VISUAL BASIC 6.0"

(169)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Form3.Print Form3.Print " 4. End Sub (104) SOFTWARE ENGINEERING"

CODE EFFICIENCY
The code efficiency can be obtained by keeping the code short as much as possible. The code should be like that it can make an output of a number of lines with a very small line of code. While designing the application it should be kept in mind that the memory requirement of each tool must remains minimum.

Very heavy memory required tools must be avoided to use as they make the efficiency of the program less.

A number of variables usage also decreases the code efficiency so I tried my best in writing code to take as minimum as variables and if the integer variable is sufficient at one place then I have not tried to take the single or double variable.

I kept in mind all the above things while developing the project and especially while writing the code.

CODE OPTIMIZATION
Code optimization is the process of modifying working code to a more optimal state based on a particular goal. The fact that optimization takes place on working code is an important point; always perform optimization on code after you get the code working. Also make sure that you retest the code after validating your optimizations. The type of

(170)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

optimization performed depends on the desired goal. Code optimization can be divided into three distinct types, which are based on the needs of the developer-

MAINTAINABILITY SIZE SPEED

Based on this lists, we probably realize now that code optimization isnt just about improving performance; speed optimization is simply one type of optimization. Nevertheless, it is usually the most important type of optimization to consider when dealing with Java code. Programmers understand and modify the code in the future.

MAINTAINABILITY OPTIMIZATION
Maintainability optimization is performed to help make code more manageable in the future. This type of optimization is usually geared toward the structure and organization of the code rather than modifications to the algorithms used in the code. In general, maintainability optimization involves a programmers studying the code at large making changes to help other.

Fortunately, the rigid structure of the Java language goes a long way toward keeping thing optimized for maintainability. In fact, if we adhere to basic object-oriented design principles, we really dont need to do anything else to keep our code optimized maintainability.

(171)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

SIZE OPTIMIZATION
Another popular optimization is size optimization, which involves making changes to code that result in smaller executable class file. The cornerstone of size optimization is code reuse, which comes in the form of inheritance for Java classes. Fortunately, good objectoriented design strategies naturally favor size optimization, so we rarely have to go out of our way to perform this type of optimization. For example, its simply good design practice to put code that is reused more than once into a method. In this way, most size optimization naturally takes place during the initial code development.

SPEED OPTIMIZATION
Speed optimization is without doubt the most important type of optimization when it comes to Java programming. Speed optimization includes all the techniques and tricks used to speed up the execution of code. Considering the performance problems inherent in Java, speed optimization takes on an even more important role in Java than it does in other languages such as C and C++.

Because the Java compiler has the last word on how code is generated, most speed optimization is performed with the compiler in mind.

Optimization though does not provide any additional checks to the software however it provides that the software be made functional to its desired efficiency consistency recurred standard.

(172)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

VALIDATION CHECKS
Validation as the name suggests validate the requirement and act as a rider to ensure that the design of software is utilized to its thresh-hold without any error. In the above software project the requirement of validity checks arises to ensure that the various input data endorse by the user is entered in correct form and design. These validation checks in this system have been included to ensure its correctness and desired accuracy.

Few of them are given as under-

Patient annual Number

Validation proved that the details of patient annual number is entered on the correct field and format, any discrepancy to propose format will show the error and the user can correct the data accordingly.

Age
Likewise the age has to be entered in the correct field/format i.e. dd/mm/yyyy and any variation to the above will show and error to the user. Other similar validation checks have been included like sex (M/F) and total amount and entering of age ensuring these checks. The proposed software can be used to the RTO and desired accuracy can be insured as proposed. These validation checks have been provided in all the modules so that the software may be run for its laid down standard.

(173)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

TESTING
TESTING OBJECTIVES

finding and error.

Testing is a process of executing a program with the intent of

A good test case is one that has a high probability of finding

an as-yet undiscovered error.

error.

A successful test is one that uncovers an as-yet undiscovered

ATTRIBUTES OF A GOOD TEST

A good test has a high probability of finding an error. A good test is not redundant. A good test should be best of breed. A good test should be neither too simple nor too complex.

TESTING TECHNIQUES BLACK BOX TESTING

Here we demonstrated that

A good test should be neither too simple nor too complex. All the software functions are operational. Input is properly accepted

(174)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

maintained.

Output is correctly produces The integrity of external information (e.g. a database) is

This testing technique allows us to examine some fundamental aspect of a system with little regard for the internal logical structure of the software.

WHITE-BOX TESTING
It is predicated on close examination of procedural detail. It provides test cases that exercise specific sets of conditions and or loops tests logical paths through the software.

CONTROL STRUCTURE TESTING

Condition Testing

This method exercises the logical condition contained in a program module. If a condition is incorrect, at least one component of the condition is incorrect. Therefore type of errors in a condition includes the following. a. b. c. d. e. Boolean operator error Boolean variable error Boolean parenthesis error Rational operator error Arithmetic expression error

LOOP TESTING
Loops are the corner stone for the vast majority of all algorithms implemented in software. Loop testing is a white-box testing technique that focuses exclusively on the validity of loop constructs. Four different classes of loops: a. Simple Loops

(175)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

b. Nested Loops c. Concatenated Loops d. Unstructured Loops

DATAFLOW TESTING
The dataflow testing method selects test paths of a program according to the location of definitions and uses of variables in the program.

TESTING STRATEGIES
A strategy for software testing integrates software test case design methods into a well planned series of steps that result in the successful construction of software. A software testing strategy should be flexible enough to promote a customized testing approach.

UNIT TESTING
Integration testing focuses on design and construction of the software architecture. For example- We tested each module independently and monitored that information properly flows into and out of the program unit under test and that data stored temporarily maintains its integrity during execution.

INTEGRATION TESTING
Integration testing focuses on design and construction of the software architecture. For example- We followed a systematic technique for constructing the program structure that is putting them together- interacting at the same time conducting tests to uncover errors. We took tested components and build a program that has been dictated by design.

(176)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

VALIDATION TESTING
This is where requirements established as part of software requirements analysis is validated against the software that has been constructed.

SYSTEM TESTING
It is here the software and other system elements are tested as whole. Proper procedures are forced in the software for recovery as the software may fail in a variety of ways. Proper security attempts to verify that protection mechanisms built into a system will, in fact protect it from improper penetration. The application may be implemented in a variety of different environmental configurations and tested for compatibility will each configuration. A controlled and monitored population of en-users tests it.

SECURITY TESTING
Security testing attempts to verify that protection mechanisms built into a system will in fact protect it from improper penetration. During security testing, the tester plays the role(s) of the individual who desires to penetrate the system.

PERFORMANCE TESTING
Performance testing is designed to test run-time performance of software within the context of an integrated system. Performance testing occurs throughout all steps in the testing process. Even at the unit level, the performance of an individual module may be

(177)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

assessed as white-box tests are conducted. However, it is not until all system elements are fully integrated that the true performance of a system can be ascertained.

IMPLEMENTATION
Once the proposed system has been tested to its requirement another important aspect is its correct implementation so that the desired goals of the organization are achieved.

Methods/implementation technique is adopted depending upon the organization requirement. Using following two techniques is adopted depending upon the organization requirement. Using following two techniques carries implementation. SERIAL IMPLEMENTATION PARALLEL IMPLEMENTATION

SERIAL IMPLEMENTATION
This technique of implementing is adopted when the entire system is to be replaced in one go and the existing system is changed with the proposed system. The system has its own advantages and disadvantages and is adopted keeping in view of the organization requirement this technique is fast however some factor is high for the organization the entire existing data has to be stored before change over.

PARALLEL IMPLEMENTATION
This is achieved by dividing the entire processing/system into various sub systems. The existing system is therefore replace to the new system step by step and the organization

(178)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

remains function during change over. The system avoid the storage of existing data as it is being done in phases however taken more time and risk involves is much less.

SYSTEM SECURITY MEASURES

PROJECT SECURITY & USERS MAINTENANCE
This module is used to manage and create the different level of users who operate this system according their operation; like in this system only system administrator have rights to delete data from the system related to the project.

CHANGING PASSWORD
This module is only accessible by the system administrator who has the rights to change the password of all users who operate this system

COST EASTIMATION OF THE PROJECT

The cost estimation depends upon the following: Project complexity Project size Degree of structural uncertainty Human, technical, environmental, political- can affect the ultimate cost of software and effort applied to develop it. Delay estimation until late in the project. Base estimates on similar projects that have already been completed.

(179)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

Use relatively simple decomposition techniques to generate project cost and effort estimates. Use one or more empirical models for software cost and effort estimation. Project complexity, project size and the degree of structural uncertainty all affect the reliability of estimates. For complex, custom systems, a large cost estimation error can make the difference between profit and loss. A model is based on experience and takes the form: D=f (V1) Where d is one of a number of estimated values (e.g. effort, cost, project duration) and (V1) are selected independent parameters (e.g. estimated LOC (Line of Code) or FP (Functional Parameters)

New Hardware & Software:

Intel Pentium-IV Processor Windows 2000 (advance server) MS-ACCESS

(180)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

DIFFERENT PHASES OF PROPOSED SOFTWARE DEVELOPMENT

System Study SRS (System Requirement Study)Documents and Approval

Advance Amount (50% of development Charges+full cost of software)

Starting of development (Interface Design and Approval) Development Presentation of New System

2nd Partial development charges (Rest 50%)

User training Implementation Support Support for the futuristic changes.

Price Quotation:
The process will start after the system study and with an advance amount of 50% from the corporate as advance. The rest in at the time of implementation.

(181)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

The project will approximately require 8 man months (8 person for a month) to be completed. The development cost for this proposed software will be Rs 11,500 (per man month)* 8 (man months)=Rs 92,000/ Cost of original software (SQL Server) Rs 58,000 (approx), (Developer) Rs 18,000 (approx) excluding 4% LST.

Total:

Rs 1,68,000 (Excluding LST on Software)

FUTURE SCOPE OF THE PROJECT

In this fast running life any person has not enough time to spend in rubbish procedure of the present manual system of Instituitions. In the institutions the environment is so dangerous that common person cant understand. In the state of U.P. there is no any particular way at district level for the common people to find the desired information, hence they always on the mercy of the employees or illegal brokers, who filling the houses with the money earned by hardworking of the citizens of India. There is a lot of difficulties to taking this project at present time in educational level but, I hope that the future of the project is very bright because the institute management system of any institute affected the over all strategy in many fields

(182)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

PERT CHART

CRITICAL PATH 0-1, 1-2, 2-3, 3-4, 3-5, 5-6, 6-7, 6-8, 7-8, 8-10, 10-11, 11-12
SR/NO. 1 2 3 4 5 6 ACTIVITY 0-1 1-2 2-3 3-4 3-5 4-5 TYPE OF ACTIVITY Study existing system Study proposed system Analysis Feasibility study Software Requirement & Analysis Dummy DURATION IN WEEK 1 2 2 2 2.5 0

(183)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

7 8 9 10 11 12 13 14 15

5-6 6-7 6-8 6-9 7-8 9-10 8-10 10-11 11-12

Design Testing Coding Training Dummy Dummy Implementation Optimization Review

2 4.5 3.5 5 0 0 2 1 1

Total Duration 18 Weeks GANTT CHART

SR/NO. 1 2 3 4 5 6 7 8

ACTIVITY 0-1 1-2 2-3 3-4 3-5 4-5 5-6 6-7

TYPE OF ACTIVITY Study existing system Study proposed system Analysis Feasibility study Software Requirement & Analysis Dummy Design Testing

DURATION IN WEEK 1 2 2 2 2.5 0 2 4.5

(184)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

9 10 11 12 13 14 15

6-8 6-9 7-8 9-10 8-10 10-11 11-12

Coding Training Dummy Dummy Implementation Optimization Review

3.5 5 0 0 2 1 1

Total Duration 18 Weeks

BIBILIOGRAPHY
VISUAL BASIC: The Complete Reference:

McGraw-Hill.
VISUAL BASIC:

Marty Hall, Prentice Hall

Database System Concepts:

Silberschatz A.Korth Henry F., S.Sundarshan, Fifth

Edition, McGraw Hill, 2006. SQL, PL/SQL:

Ivan Bayross, Third Edition, BPB Publications,

2007. Study Materials

Books of various semesters of BCA

Websites:

(185)

PROJECT REPORT

INSITUTE MANAGEMENT SYSTEM

http://wikkipedia.com

www.learnonline.com

(186)