Collegement Management JAVA Project

Download as doc, pdf, or txt
Download as doc, pdf, or txt
You are on page 1of 123

MEANING OF THE PROJECT

"A project is a problematic act carried out to accomplished in the natural


setting. "
By: - Stevenson

"A project is a bit real life that has been imported in the school"
By: - Ballard

" A project is a whole hearted purpose for activity proceeding in a social


environment"
By: - Kilpatric

In other words project is constituent of seven words and I have tried my best
to give its definition analyzing each word as: -

P - Perfect planning
R - Resources
O - Organization
J - Joint Efforts
E - Engineering Skill
C - Communication
T- Technique

Ramgarhia College, Phagwara


Ramgarhia College, Phagwara
Introduction to the Project

The name of the project is College campus This project will covers the solution for
the current system drawbacks and provide a brand new system, which includes automation
of the previous system through computer technology, and also provide some more useful
features including previous ones for the personal use of organization .Our project will be
developed using MICROSOFT VISUAL BASIC 6.0 as the front-end and for keeping data
we will use the MS-ACCESS as our back-end. This project involves client server concept as
the data is being entered and retrieved from a front end and being maintained and updated at
a back end. All the data regarding the material being sold to and purchased from customer
and suppliers respectively is being maintained. Moreover data of regarding the stock of the
company is also being maintained.
The data can be efficiently entered and retrieved various reports can also be generated
which include admission fees reports, teacher details report, student

Ramgarhia College, Phagwara


Ramgarhia College, Phagwara
REQUIREMENTS FOR THE PROJECT
Software used for developing this project is as follows:

Operating system Windows XP professional /


windows 98
Front End Microsoft Visual Basic 6.0
Back End MS-ACCESS

Hardware used for developing this project is as follows ::

Computer Pentium 4
Processor
RAM 64 MB
Hard Disk Used 328 MB on system drive
CD-ROM Drive Required
Video 800 × 600, 256 colors
Mouse Any compatible mouse
Keyboard Any compatible mouse
Multimedia Multimedia kit

Ramgarhia College, Phagwara


VISUAL BASIC 6.0

Visual Basic is an object oriented programming language. It is also very friendly. It has
many driven interface, which gives a user a great deal of convenience in creating and
handling the database.

Visual Basic’s nature requires various kinds of controls because, unlike program
written in older text based languages. Window program must respond to events. An event
might come to program to any of these controls, as well as from internal activities such as
PC’s dock. Events come in random order. The user might perform several of these in
different order each times run the program. You must use event driven programming
technique to respond properly to the user’s action and other activities that triggers the
event.

An event is an activity that occurs during a program execution, such as mouse


click or keystroke. Event driven programming applies to programming but responds to
window events.
Window handles a few events but passes most to programs currently running.
Window is a multitasking operating system so; more than one program can run
simultaneously. Your program must handles and all events appropriate at the time the
event occur and ignore all the other events.
A Visual Basic program consisting of the visual interface that makes up the
windows and controls that the users and interacts with. Each control is both automated
and set up to respond to the programming code.
A command button with visually shows a click the button with the mouse
when running the program. User have to do nothing more than the press the button on
the form for the button to operate. These are properties that user can change, although
Visual Basic assigns default values.

Ramgarhia College, Phagwara


Visual Basic comes in three flavors: -

 The Visual Basic learning Edition


 The Visual Basic Professional Edition
 The Visual Basic Enterprise Edition

The Visual Basic learning edition is the introductory edition that lets us easily
create windows application.
The Visual Basic Professional edition is for computer professional and
includes advanced features such as tools to develop ActiveX and Internet controls.

The Visual Basic enterprise edition is the most advanced edition and is aimed at the
programmer who builds distributed application in a team environment It includes all the
features of the professional edition, plus with Visual Basic,
We can create the following types of applications: -

 Standard EXE
 ActiveX
 ActiveX DLL
 ActiveX Document EXE, ActiveX Document DLL
 VB Application Wizard, VB Wizard Manager
 Data Project
 HS Application
 DHTML Application
 ADD In
 VB Enterprise Edition Control

Ramgarhia College, Phagwara


Working of ADO Object Then Using ADODC:

 Validation of any information entered by user before it goes into database.


 We can create database application that does not require a user interface
since ADODC is a graphical component, it can be used only in programs
with a visual components.
 We can use SQL statements to modify multiple records at a time.

Three main Objects are required to access data from existing database of ADO object
models are: -

 Connections
 Recordset
 Command

 Connection

When we work with data in database, we must first create a connection to data
source. The connection object makes a connection between an application and
a data source such as Microsoft SQL Server. Each connection object supports
multiple lower level objects such as recordset and command objects. Creating
a connection object same as setting connection string properly of ADODC.

For Example: we declare a variable to create connection object:

Dim cn as ADODB connection


St cn = new connection

We establish a physical connection to a data source to open method.


After this method successfully completes, the connection still exists and we
can issue commands against it and process results. This method has following
syntax:
Connection. Open [connection string],[user id],[password]

Ramgarhia College, Phagwara


 Recordset

A recordset object represents the entire set of records from the table or the
result of the executed commands. It is used to access records returned from
query. We manipulate data entirely using recordset object, but creating a
connection object explicitly enable us to open multiple recordset on the same
connections.

For example: the following record declare a recordset object variable:

Dim rs as ADODB.recordset
Set rs =new connection

We use the open method to retrieve records from the data source, the syntax
of open method:]
Recordset.open [source], [active connection],[cursor type],[lock type],[option]

 Commands

We use a command object to query a database and access the records that are
returned from the database. The recordset are returned in a recordset object.
Command object is used to create recordset object and obtain records, to
execute a bulk operations or to manipulate the structures of a database.

Ramgarhia College, Phagwara


MS-ACCESS
Microsoft Access is a Relational Database Management System (RDBMS)
which is used to store and manipulate large collection of information of any kind.
RDBMS refers to storing information in the forms of rows & columns. So that we can get
any specific piece of information by clicking mouse and few key stokes.
MS-ACCESS has tools which are easy to use and provide powerful
development environment, making it an appropriate choice of professional and for
ordinary computer users. FOR EXAMPLE ACCESS can be used to enter telephone
detail, student’s records and much more. After storing the records quires can be applied,
reports can be generated and data entry forms can be designed.
Microsoft Access provides extensive new features design to help you easily use
the internet and develop a World Wide Web application. It includes a new style toolbars,
menu bars, and shortcut menus that are easier to use and customize.

Hardware & software Requirements For Access


 Window 98
 80386,80486 or Pentium Based Processor
 Minimum 8 MB RAM

COMPONENTS OF ACCESS

 Database Window:-All objects of Database are stored in a


single file having extension MDB

 Database and Tables:-Database is a collection of


information retained in the form of tables. Table consists of
rows and columns. Each Table stores information about
one entry.

 Forms:-Forms Display the data from a table or query in


format requested by the user. Record or Fields in the table
are placed in the form and can be edited according to
requirement.

 Queries:-A query is a question asked by the user to extract


information according to his/her requirement.

 Reports:-A Report displays the information in a prescribed


format by incorporating graphs, charts and different styles.

Ramgarhia College, Phagwara


Ramgarhia College, Phagwara
What System Is?
The term system is derived from the GREEK word system, which means an organized
relationship among functioning units or components.

Definitions

“System is an orderly grouping of interdependent components linked together according


to a plan to achieve a specific objective.”

Characteristics Of a System
Organization
It is the arrangements of components that help to achieve objectives.

 Interaction
Interaction refers to manner in which each components function with other
components.

 Interdependence
Interdependence means that parts of organization or computer system
depend on one another. They are coordinated and linked together according to
a plan. One subsystem depends on the input of another subsystem for proper
functioning.

 Integration
Integration refers to holism of system. Synthesis follows analysis to
achieve the central objectives of the organization. Integration is concerned
with how a system is titled together. It is more than sharing physical parts.

Ramgarhia College, Phagwara


Existing system

Existing System is computerized but not fully computerized only sales and purchase gets
the computerized Facility .Most of the official and clerical work done manually, that is
payroll, sales/ purchases record are maintain on the registers. Existing system build in
Fox pro (dos based) technology. That is not according to needs of present time and not
provide better interface to users .Problem in the existing system are as follows:--

Drawbacks

Interface:--
The existing system Build in dos based technology that does not provide better
interface and easy environment to user in which they would like to work.

Time Consuming:--
Existing system is very time consuming system Because Access to working screens.
Is not easy.

Complexity:-
The Working of existing system is very complex Record keeping and editing are done at
different location so it is not so easy to work on a system that is
Not providing centralized Adding and updating facility.

Ramgarhia College, Phagwara


Proposed system

The best possible solution for the organization current system’s problem will be
the automation of the organization. In other words the new system should provide the
automated features of the previous system with new approach along with much more
new features.

As in this developing world, IT is emerging in each and every field. So the best
automation option for the organization will be introducing a computer in its working
which will keep track of all the customers, sales, purchases, etc . All the information
regarding the customers, sales, purchases, Account, employees etc are stored in MS-
ACCESS database.

By providing the users an efficient automated system with a computer will surely
develop not only the proper functionality of the system but also to prevent the
mismanagement of data.

Objective of Proposed system

The objective of the proposed system is must because objective is goal of our system
like it
Tell what we are going to develop and what will be the basic needs of the
proposed system
Like Accuracy of data, redundancy, Security etc. And how we provide these
needs to our system. Keeping in mind the limitations of previous system there are
possibly the following
Goals that we are to achieve by updating of present system. These are as
follows:-

To provide graphical user interface (GUI) For user as it more User friendly than
Dos based system and provide better interface.

Computerization of departments that is uncovered in existing system and


providing some additional features.

Facility of maintaining security of the system we will provide different passwords


to different Users of our system and each user can access only that portion of
system to Which he\she may concern.

Increasing the speed of tasks performed on the system by using several shortcuts.

Ramgarhia College, Phagwara


In the current system there is very much complexity but using computerized
system. It can be removed and it become very easy to do because in the existing
system .Then Register have to processed it increase the complexity but in case of
Computerized System
It very simple and done easily in second.

Facility to Print reports on sale bills, Employee’s payroll, and also


And stock reports.

We do not have to wait for results rather they are displayed in just a time of 100 th part
of a second and otherwise, we can also see the status of processing through the
progress bar at the bottom.

Menu driven packages making it easier to handle

Provide various utilities like Calculators and Notepad etc

Ramgarhia College, Phagwara


Project Analyzing

The development of a project actually starts when there is a need to develop or


significantly change an existing system. In the case of this company, there is a need to
overcome the complexity of the previous system. In other words, they need to change
their existing old-age system of keeping business details.
The development life cycle of a project involves three phases:
 Project initiation
 Project execution
 Project deployment
In the project initiation phase, a comprehensive project plan is prepared. This plan
lists the tasks to be performed during the life cycle of the project. It also identifies
the team of members are assigns responsibilities to them on their skills.

In the project execution phase, the team develops the required application.
Because this is the most elaborate phase in terms or project cost and time, this
phase can be further being divided in to the following stages:
 Requirement analysis
 High-level design
 Low- level design
 Construction
 Integrations and testing
 User acceptance test
These stages are discussed in the following section. First, however, we’ll discuss the final
phase in a project life cycle, the project development phase. As the name suggests, during
this phase, the application is deployed at the client location. In addition, support is
provided to the client for a particular period of time to take care of any bugs that might
occur in the application after the deployment.
Before proceeding any further, let’s take a look at each of the project execution
phase:

Ramgarhia College, Phagwara


REQUIREMENTS ANALYSIS:
As the name suggests, during the requirement analysis stage, the team analysis the
various requirements that needs to be fulfilled. For this, the team working on the
Inventory Control project studies various existing automated application. In addition
team also interviews the users of the system about what they exactly wanted to have in
their applications. As a result, the following requirements are identified for the Inventory
control being created. The application should:
 Be easy to use in terms to navigation and should provide enough tips as well.
 Be simple, fast and interactive.
 Provide the facility to print the expenses reports, sales
reports, purchases
reports etc for their personal use.
 Provide the feature to add, modify and list.

After analyzing these requirements, it was decided to make two modules for the
Inventory control’s application software:

 Module 1

Ramgarhia College, Phagwara


Ramgarhia College, Phagwara
FEASIBILITY STUDY
Feasibility study is a test of the system according to its work ability, impact on the
organization, ability to meet the user needs, And the effective use of the existing
resources. The result of feasibility study is a formal proposal. The feasibility study should
be done and presented in a clear and an easy manner so that it is easy for the management
to understand it, so that they can see the advantages of its over the existing system.

The complete analysis of the proposed system was done during the course
completion of this project work. In this analysis task, a complete care about the feasibility
of the purpose system was taken. The following feasibility analysis was carried out
during the course of this project.

 Economic Feasibility
 Technical Feasibility
 Operational Feasibility

ECONOMIC FEASIBILITY

This project is being done at Metro c21. The cost involved in this project is the
hardware as well as software costs. The software being used in this project is VISUAL
BASIC6.0 and MS-ACCESS. Our organization has to load this software before using this
project. They have to spend very less amount of money because they have already
computer systems having Latest p4 processors. Therefore no problem regarding hardware
occurred. So the project is economically feasible.

TECHNICAL FEASIBILITY
Technically, the existing has many facilities. All the requirements of the existing
system are not met by the hardware and software means. However, the proposed system
can be developed in a manner where all the requirements can be met through software
means.

OPERATIONAL FEASIBILITY

This is done in order to know whether the proposed system will be user friendly and error
free in its functioning .Peoples are inherently resistant to change, and computers have been
known to facilitate change .A towards the development of proposed system.

Ramgarhia College, Phagwara


Ramgarhia College, Phagwara
System Design
System design is most creative phase of the system development life cycle.
The term design describes a final system and the process by which it is developed. It
includes the construction of the programs and program testing

The key question of system design is how should problem be solved?

A Systematic Method has to achieve the beneficial result at the end. It involves starting
with a vague idea and developing it into a series of steps.
The series of steps for successful system development or successful system
design are given bellow :-

First step is to study problem completely because first of all we should know the goal,
which we have to achieve.

Second step we should see what kind of output we require and what kind of input we give
so that we can get desire output from the system.

 It is very challenging step of the system development. According to input


requirement of the system .The structure of various databases should be
designed. Next we should know that what kind of program should be
developed to reach final goal. Then we write individual programs, which
are later on joined to solve problem. Then we test these programs and
make necessary correction in them to achieve target of the programs. At
last combining all these programs in a form of a bar in the menu of
window, which will complete software package for METRO C21.There
are two type of designing:
 High level design
 Low level design

High-Level Design:

In the high level design phase, the team decides on the functionality of the
system. In addition, the various data input and output formats are finalized, and
the operating requirements are identified. Approval is requested from the client
regarding the functional specification document if the proposed interfaces for
the application. The design of the next phase is based on this design.

Ramgarhia College, Phagwara


Low-level Design:

During the low-level design phase, detailed design of the various software
modules is prepared using the High-level design. The team decided on various standards,
such as naming conventions for variables, controls and forms for a project. All these
specifications are documented so that consistency can be maintained among the various
modules foe an application.

Ramgarhia College, Phagwara


Ramgarhia College, Phagwara
BASIC UNIT OF E-R DIAGRAM

E-R diagram can express the overall logical structure of a database graphically-R diagram
are simple and clear qualities that may well account in large part for the widespread use
of the E-R model .in this we deal with entities and their relationship.

Entity: -Entity is an object, which has certain properties. Like students has an entity
who has properties like roll no, Name, class etc.

Attributes: -These is the features, qualifiers, of the entities and their relationship.

Entity Type: -An entity type is like class in object oriented representing the general
structure of the entities that belongs to the same class.

Relationship: -Relationships is the associations among entities or in other words


meaningful interactions between objects.

Entity Set: -Collection of same entities that has same properties is known as entity set.
Entity set is of two types.

 Strong Entity Set


 Weak Entity Set

Ramgarhia College, Phagwara


ER SYMBOLS USED

In the EF, there are mainly four symbols. These four symbols are discussed as below: -

Description Symbols Represents

Circle Process

Arrow Flow of data

Rectangle Source or Destination

Open Rectangle Stored Information

Underline External File name

Thus, by appropriating choosing the EF symbols the required EF can be designed, which
graphically represents the flow of data in the given system.

Ramgarhia College, Phagwara


Teacher ID

Addres
s Salary Wor
Type
k
Name For

DOB
Teacher Objectives &
Features
Reg. Manage
No. Phone Address s Program
No. s

Name
Student College campus

Admission

Fees detail
Teacher
Eligibility
y

Ramgarhia College, Phagwara


Ramgarhia College, Phagwara
DATA FLOW DIAGRAM (DFD)
Larry Constantine first developed the DFD as away of expressing system
requirements in graphical form. A DFD, also known as a ‘bubble chart’, has the purpose
of clarifying system requirements and identifying major transformations that will become
programs in system design. A DFD consist of a series of bubbles joined by lines. The
bubble represents data transformations and the lines represent data flows in the system. A
general model of our publishers ordering system is shown in the figure:

In short, DFD is designed to aid communication. A DFD typically shows the minimum
contents of data stores. The DFD methodology is quite effective when the required design is
unclear and the user and the analyst need a notational language for communication. The DFD
is easy to understand after a brief orientation.

The primary strength of the DFD is its ability to represent data flows. It may be used at high
or low levels of analysis and provides good system documentation

Ramgarhia College, Phagwara


DATA FLOW DIAGRAM

Student Existing
Entry student? New Input
Info

Yes
Form Validation
Check for Details

Strore Data
If detail
equal to st. id

student account Area Request for


Update Data Discountinuing
student Profile,
(student leave
Invoices collage)
Form Validation
Input Request

Form Validation
Store Changes

Store Charges

Advanced Search Details


Search Store Details
Search Agent Searches the DB Filters

Activate Reports Agents


Background Process

Ramgarhia College, Phagwara


Ramgarhia College, Phagwara
Flow Chart for Login Form

Start

Enter Correct Username


&
Password

Invalid
If
Exist

Valid

Ramgarhia College, Phagwara


Flow Chart for MDI FORM

MDI Form

Login Student Master Administration Report About Us Exit

Stop

Flow Chart for Delete Student Record

Ramgarhia College, Phagwara


Start

Student
Information

Request For Deleting


Student

No Check Yes
Student Delete Record
Record

Stop

Ramgarhia College, Phagwara


Flow Chart for Add Student Record

Start

Student
Information

Request For Adding new


Student

Send message No code exist


No Check Yes Save Record
Student
Record

Stop

Ramgarhia College, Phagwara


Flow Chart for Teacher Record

Start

Teacher
Information

Request For Adding new


Teacher Record

Send message No code exist


No Check Yes Save Record
Teacher
Record

Stop

Ramgarhia College, Phagwara


Flow chart for Teacher Salary

Start

Enter Teacher
identification (id)
Retrieve
Teacher
Database

Calculation of
salary

All the data related to


payment stores

Stop

Ramgarhia College, Phagwara


Ramgarhia College, Phagwara
Splash Form

This is the Splash Form


.

Ramgarhia College, Phagwara


MDI Form

This Form keeps path of other forms like Student information, Teacher information, Fees
information, Programs, Objectives, Features, Student result sheet etc.

Ramgarhia College, Phagwara


About Form Us:-

In this form shows the name who develop the project and system information

Ramgarhia College, Phagwara


Login Form

This form act as Login for the user who wants to access the software for the “College
Campus “, By filling the valid user name and password user will be able to access the
Software . This provides protection from the unauthorized users.

Ramgarhia College, Phagwara


Admission Form 1

This Form keeps track of all information regarding the student of college like their Name,
class, roll no., address etc.
Teachers can easily add/edit information about Students who gets admission in
the college.

Ramgarhia College, Phagwara


Admission Form 2

This Form keeps track of all information regarding the student of college like their
Father’s Name, App no., Student D.O.B, address etc.
Teachers can easily add/edit information about Students and delete/update the
student record who gets admission in the college.

Ramgarhia College, Phagwara


Fees

In This form Showing the detail of all Classes Fees according to Student Courses.

Ramgarhia College, Phagwara


Fees Detail

In This form Showing the detail of Fees Details according to the Class.

Ramgarhia College, Phagwara


Clearance Chit Form

This form shows the information of student’s charges in the College.

Ramgarhia College, Phagwara


Teacher Detail Form

This Form keeps track of all information regarding the Teacher of college like their
Name, Basic salary, address etc.
Staff Members can easily Update the information about Teachers or delete the
record of Teacher who leaves the College.

Ramgarhia College, Phagwara


Non Teaching Staff Form

This Form keeps track of all information regarding the non teaching staff of college like
their Name, Basic salary, address etc.

Ramgarhia College, Phagwara


Teacher Salary Form

This Form stores the information of the all Teacher Salary of College.Staff can easily
add/edit information about Teacher.

Ramgarhia College, Phagwara


Delete Record

This Form used to delete the Student record from the college.

Ramgarhia College, Phagwara


Update Details

This Form used to Update the Teacher record from the college.

Ramgarhia College, Phagwara


Student Result Sheet Form

This Form used to Shows the Result of Students.

Ramgarhia College, Phagwara


Billing Form

This Form used to Shows the bill of Courses.

Ramgarhia College, Phagwara


Fees And Other Charges Form 1

This Form is shows the University charges of the College.

Fees And Other Charges Form 1

Ramgarhia College, Phagwara


This Form is shows the Funds of the College.

Fees And Other Charges Form 3

Ramgarhia College, Phagwara


This Form is shows the Fees and other charges of the College.

Fees And Other Charges Form 4

Ramgarhia College, Phagwara


This Form is shows the Monthly charges of the College.

Ramgarhia College, Phagwara


Eligibility Form 1

This Form is used to shows the Courses of the College.

Eligibility Form 2

Ramgarhia College, Phagwara


This Form is used to shows the Courses of the College.

Ramgarhia College, Phagwara


Eligibility Form 3

This Form is used to shows the Courses of the College.

Program Form1

Ramgarhia College, Phagwara


This Form is used to shows the Programs of the College.

Program Form 2

Ramgarhia College, Phagwara


This Form is used to shows the Programs of the College.

Ramgarhia College, Phagwara


Program Form 3

This Form is used to shows the Programs of the College.

Objectives Form

Ramgarhia College, Phagwara


This Form is used to shows the Objectives of the College.

Features

Ramgarhia College, Phagwara


This Form is used to shows the Features of the College.

Exit Button

Ramgarhia College, Phagwara


The exit option is used to exit from the software.

Ramgarhia College, Phagwara


Ramgarhia College, Phagwara
Data Base Design

Table for the User


Password: - This table holds the most important information about the table password.
Whenever any person wants to login then those values are checked with stored values.
This table stores the information for security purposes to prevent unauthorized person to
login to the system.

Filed no. Field name Data type


1 Username Text
2 Password Text

Description of fields: -

1. Username: -This field contains the username values.


2. Password: - This field stores the information about the password.

Table for the Addmission form1

Addmission:- Addmission form table stores the information related to the student who
are studying in the College.
Filed no. Field Name Data type

1 App_no Number
2 Class Text
3 Roll no. Text
4 Session Text
5 Fees Date/Time
6 Date Date/Time
7 Reg No. Text
8 Sub 1 Text
9 Sub 2 Number
10 Sub 3 Currency
11 Sub 4 Number
12 Sub 6 Number
13 Sub 6 Number
14 Sub 6 Number

Ramgarhia College, Phagwara


Table for Admission Form2
Addmission:- Addmission form table stores the information related to the student who
are syudying in the College.

Field No. Field Name Data Type


1 App_No. Number
2 D.O.B Date/Time
3 F_Name Text
4 M_Name Text
5 F_Occup Text
6 M_Occup Text
7 F_Income Number
8 M_Income Number
9 Tel_No. Number
10 Res_Add Text
11 Nationality Text
12 Religion Text
13 Reg_No. Number
14 Year1 Number
15 Exam_Pass Number
16 Roll_no. Number
17 Univ. Text
18 Last_Insitute Text
19 Result Text
20 Marks Number

Ramgarhia College, Phagwara


Table for Fees

Fees:- This table stores the information about the fees

Field No. Field Name Data Type


1 Sr_No. Number
2 Class Text
3 Total Fees Number

Table For Fees Detail

Fees Detail:- This table stores the information of the Fees

Filed no. Field name Data type


1 Class Text
2 Roll no. Number
3 Total Fees Number
4 Paid Fees Number
5 Balance Number

Ramgarhia College, Phagwara


Table for Teacher Details

Teacher detail:- This table stores the details information about the Teacher.

Field no. Field Name Data Type


1 Teacher Id Text
2 Name Text
3 D.O.B Date/Time
4 Address Text
5 D.O.J Date/time
6 Job Nature Text
7 Quailification Text
8 Contact Number
9 Email Id Text
10 Salary Number

Table For Non-Teaching Staff


Non Teaching Staff:- This table stores the details information Of Non Teaching
Staff.

Field No. Field Name Data Type


1 Teacher Id Text
2 Name Text
3 D.O.B. Date/Time
4 Address Text
5 Contact No. Number
6 Email Id Text
7 Quaification Text
8 Salary Text

Ramgarhia College, Phagwara


Table For Clearance Chit

Clearance Chit:-This table stores the details information about the clearance chit

Filed no. Field name Data type

1 Class Text
2 Roll No. Number
3 Name Text
4 Lib_Fine Number
5 Exam_Fine Number
6 Canteen_Fine Number
7 Absent_Fine Number
8 Admin_Block_ Number
Charges
9 Lab_Fine Number
10 Total_Fine Number

Ramgarhia College, Phagwara


Table For Student Result Sheet

Result Sheet:- This Table Stores Information Of Student Result

Filed no. Field name Data type


1 Session Number
2 Class Text
3 Roll no. Number
4 F_Name Text
5 Cont_No. Number
6 Exam Text
7 Reg_No. Number
8 Name Text
9 Address Text
10 Eng Number
11 Punjabi Number
10 Physical Number
12 Maths Number
13 Chem Number
14 Botony Number
15 Zology Number
16 Comp. Number
17 Total Number
18 Result Text

Ramgarhia College, Phagwara


Table For Bill
Bill:- This Table Stores Information about the college bill of the student.

Field No. Field Name Data Type


1 Bill No. Number
2 Class Text
3 Roll No. Number
4 Monthiy_fees_Charges Number
5 Reg No. Number
6 Dated Text
7 Name Text
8 Add_Fee Number
9 Tution_Fee Number
10 Semi and Extra Number
11 Fine Number
12 Prac_Fee Number
13 Lab_Up_Keep_Fund Number
14 Building_Fund Number
15 Pub_Advertisement Number
16 Canteen_Up_Keep_Fund Number
17 Lib_Up_Keep_Fund Number
18 Dil_Fee Number
19 Sport_fee Number
20 Medical_Fee Number
21 College_Dvlp_Fund Number
22 Social_Wel Number
23 Annual_Fund Number
24 Breakage_Charges Number
25 Drinking_Charges Number
26 Furniture_Fund Number
27 Total Number

Ramgarhia College, Phagwara


Table For Teacher Salary
Bill:- This Table shows the information of Teacher Salary.

Filed no. Field name Data type


1 Teacher_ID Number
2 Name Number
3 Sal Number
4 H.R.A Number
5 D.A Number
6 Net_Sal Number
7 Month_Of_Salary Number

Table For New Class

New Class:- This Table shows the information of new class of the college.

Field No. Field name Data type


1 Class_ID Number
2 Class_Name Text
3 Sub Text
4 Fee/Yr Number

Ramgarhia College, Phagwara


CODING

Ramgarhia College, Phagwara


Once the design is complete, most of major decisions about the system have been made.
However many details about coding and the design, which often depends on the
programming language chosen are not specified during the desing.The goal of the coding
phase is to translate the design of the system into code in a given programming
languages.

The coding phase effects both coding and maintenance profoundly well
written codes reduced the testing and maintenance efforts. Because the testing and
maintenance cost of the software are much higher the coding cost, the goal of coding
should be written to reduce testing and maintenance efforts. Hence during coding the
focus should be on developing programs that are very easy to understand.

An important concept that helps understandability of program is structured


programming. The goal of the structured programming is to liberalize the control flow in
the program. That programming text should be organized as sequence of statements and
during execution of these statements they must be executed in the sequence given in the
program. For structured programming a few single entry-exit construct should be used.

Coding For the Splash Form:-

Private Sub Timer1_Timer()


If pb1.Value < 20 Then
pb1.Value = pb1.Value + 1
Label3.Caption = pb1.Value & "% .."
Label4.Caption = "College Building..."
ElseIf pb1.Value < 40 Then
Image1.Picture = LoadPicture("E:\college campus\pics\7.jpg")
pb1.Value = pb1.Value + 1
Label3.Caption = pb1.Value & "% .."
Label4.Caption = "Way to College .."
ElseIf pb1.Value < 55 Then
Image1.Picture = LoadPicture("E:\college campus\pics\8.jpg")
pb1.Value = pb1.Value + 1
Label3.Caption = pb1.Value & "% .."
Label4.Caption = "College's Green Park..."
ElseIf pb1.Value < 65 Then
Image1.Picture = LoadPicture("E:\college campus\pics\10.jpg")
pb1.Value = pb1.Value + 1
Label3.Caption = pb1.Value & "% .."
Label4.Caption = "Main Gate of Our College ..."
ElseIf pb1.Value < 80 Then
Image1.Picture = LoadPicture("E:\college campus\pics\16.jpg")
pb1.Value = pb1.Value + 1
Label3.Caption = pb1.Value & "% .."
Label4.Caption = "College's Seminar Hall..."
ElseIf pb1.Value < 90 Then
Image1.Picture = LoadPicture("E:\college campus\pics\14.jpg")
pb1.Value = pb1.Value + 1
Label3.Caption = pb1.Value & "% .."

Ramgarhia College, Phagwara


Label4.Caption = "College's Loan..."
ElseIf pb1.Value < 100 Then
Image1.Picture = LoadPicture("E:\college campus\pics\12.jpg")
pb1.Value = pb1.Value + 1
Label3.Caption = pb1.Value & "% .."
Label4.Caption = "Beautiful View of College Building..."
Else
Timer1.Enabled = False
MsgBox "Welcome My Project...'"
Unload Me
MDIForm1.Show
End If
End Sub

Coding For the MDI Form:-


Private Sub abt_Click()
Form26.Show
End Sub
Private Sub ad1_Click()
Form1.Show
End Sub
Private Sub admi1_Click()
DataReport1.Show
End Sub
Private Sub admi2_Click()
DataReport2.Show
End Sub
Private Sub Bill1_Click()
Form15.Show
End Sub
Private Sub blg1_Click()
Form15.Show
End Sub
Private Sub c1_Click()
FRM_ELG.Show
End Sub
Private Sub c2_Click()
FRM_ELG2.Show
End Sub
Private Sub c3_Click()
FRM_ELG3.Show
End Sub
Private Sub c4_Click()
FRM_ELG4.Show
End Sub
Private Sub c5_Click()
FRM_ELG5.Show
End Sub
Private Sub clrnc1_Click()
Form7.Show
End Sub

Ramgarhia College, Phagwara


Private Sub del2_Click()
Form5.Show
End Sub
Private Sub E1_Click()
End
End Sub
Private Sub f1_Click()
Form3.Show
End Sub
Private Sub fc1_Click()
Form9.Show
End Sub
Private Sub fc2_Click()
Form10.Show
End Sub
Private Sub fc3_Click()
Form11.Show
End Sub
Private Sub fc4_Click()
Form12.Show
End Sub
Private Sub fc5_Click()
Form13.Show
End Sub
Private Sub fd1_Click()
Form4.Show
End Sub
Private Sub fees4_Click()
Form13.Show
End Sub
Private Sub ftr1_Click()
frm_features.Show
End Sub
Private Sub MDIForm_Load()
Form17.Show
End Sub
Private Sub mnuc2_Click()
Form20.Show
End Sub
Private Sub mnuchck_Click()
Form20.Show
End Sub
Private Sub mnuexit_Click()
End
End Sub
Private Sub mnulogin_Click()
Form17.Show
End Sub
Private Sub nc1_Click()
Form18.Show
End Sub
Private Sub nj1_Click()

Ramgarhia College, Phagwara


Form5.Show
End Sub
Private Sub nts1_Click()
Form6.Show
End Sub
Private Sub obj1_Click()
FRM_OBJECTIVE.Show
End Sub
Private Sub prg1_Click()
FRM_PRO1.Show
End Sub
Private Sub prg2_Click()
FRM_PRO2.Show
End Sub
Private Sub prg3_Click()
FRM_PRO3.Show
End Sub
Private Sub res1_Click()
Form14.Show
End Sub
Private Sub resu1_Click()
DataReport3.Show
End Sub
Private Sub sb1_Click()
Form15.Show
End Sub
Private Sub srch2_Click()
Form5.Show
End Sub
Private Sub teachr1_Click()
DataReport4.Show
End Sub
Private Sub ts1_Click()
Form16.Show
End Sub

Coding For the form of login form:-


Private Sub Command1_Click()

If Text1.Text = "" Then


MsgBox "Plz. Enter Login Name..."
ElseIf Text2.Text = "" Then
MsgBox "Plz enter Password..."
ElseIf Text1.Text = "SHILPABHANU" Or Text1.Text = "shilpabhanu" And Text2.Text =
"INDIA" Or Text2.Text = "india" Then
MsgBox "welcome to my Project"

MDIForm1.sm1.Enabled = True
MDIForm1.Adm1.Enabled = True
MDIForm1.rep1.Enabled = True

Ramgarhia College, Phagwara


Unload Me
Me.Hide
Else
MsgBox "Login Failed ! YOU ARE NOT REGISTERED.."

End If

End Sub

Private Sub Command2_Click()


Unload Me

End Sub

Private Sub Form_Load()


Me.Left = 11900
Me.Top = 800

End Sub

Coding For the form of Admission 1:-

Public appno As Double


Dim rs As New ADODB.Recordset

Private Sub cmb_appno_Click()


Set rs = New ADODB.Recordset
rs.Open "Select * from adm1 where app_no=" & cmb_appno.Text & "", con, adOpenStatic,
adLockOptimistic
If rs.RecordCount = 0 Then
rs.Close
MsgBox "Rec. not found..."
Else
Text1.Text = rs(0)
Combo1.Text = rs(1)
Text2.Text = rs(2)
Text3.Text = rs(3)
Text4.Text = rs(4)
DTPicker1.Value = rs(5)
Text5.Text = rs(6)
Text6.Text = rs(7)
Text7.Text = rs(8)
Text8.Text = rs(9)
Text9.Text = rs(10)

Ramgarhia College, Phagwara


Text10.Text = rs(11)
Text11.Text = rs(12)
Text12.Text = rs(13)
Text13.Text = rs(14)
rs.Close
MsgBox "Student Info. found..."
End If
End Sub

Private Sub Command1_Click()

Set rs = New ADODB.Recordset


rs.Open "Select * from adm1 where app_no=" & cmb_appno.Text & "", con, adOpenStatic,
adLockOptimistic

If rs.RecordCount = 0 Then
rs.Close
MsgBox "Rec. not found..."
Else
Text1.Text = rs(0)
Combo1.Text = rs(1)
Text2.Text = rs(2)
Text3.Text = rs(3)
Text4.Text = rs(4)
DTPicker1.Value = rs(5)
Text5.Text = rs(6)
Text6.Text = rs(7)
Text7.Text = rs(8)
Text8.Text = rs(9)
Text9.Text = rs(10)
Text10.Text = rs(11)
Text11.Text = rs(12)
Text12.Text = rs(13)
Text13.Text = rs(14)
rs.Close
MsgBox "Student Info. found..."
End If
End Sub

Private Sub Command2_Click()


Unload Me
End Sub

Private Sub Command4_Click()


rs.AddNew
rs(0) = Val(Text1.Text)
rs(1) = Combo1.Text
rs(2) = Val(Text2.Text)
rs(3) = Text3.Text
rs(4) = Val(Text4.Text)
rs(5) = DTPicker1.Value
rs(6) = Val(Text5.Text)

Ramgarhia College, Phagwara


rs(7) = Text6.Text
rs(8) = Text10.Text
rs(9) = Text7.Text
rs(10) = Text11.Text
rs(11) = Text8.Text
rs(12) = Text12.Text
rs(13) = Text9.Text
rs(14) = Text13.Text
rs.Update
MsgBox ("record has been saved...")
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Combo1.Text = ""
End Sub

Private Sub Command5_Click()


Unload Me
End Sub

Private Sub Command6_Click()


If Text1.Text = "" Then
Module1.appno = Val(cmb_appno.Text)
Else
Module1.appno = Val(Text1.Text)
End If

'MsgBox appno
Unload Me
Load Form2
Form2.Show
End Sub

Private Sub Form_Load()


Call Module1.main
rs.Open "select * from adm1", con, adOpenDynamic, adLockPessimistic
rs.MoveFirst
Do While rs.EOF = False
cmb_appno.AddItem (rs(0))
rs.MoveNext
Loop

Ramgarhia College, Phagwara


Text3.Text = "2011-2012"
End Sub

Private Sub Form_Unload(Cancel As Integer)


con.Close
End Sub

Coding For the form of Admission Form 2:-

Dim rs As New ADODB.Recordset


Dim rs1 As New ADODB.Recordset

Private Sub CMD_DEL_Click()

If MsgBox("Do you want to Del. Rec. ", vbInformation + vbYesNo, "Delete Rec.") = vbYes
Then

Set rs1 = New ADODB.Recordset


rs1.Open "Select * from adm1 where app_no=" & Val(Text1.Text) & "", con, adOpenStatic,
adLockOptimistic

Set rs = New ADODB.Recordset


rs.Open "Select * from adm2 where app_no=" & Val(Text1.Text) & "", con, adOpenStatic,
adLockOptimistic
If rs.RecordCount = 0 Then
rs.Close
MsgBox "Rec. not found..."
Else
rs1.Delete
rs1.Update
rs.Delete
rs.Update
MsgBox "REC. HAS BEEN DELETED"

End If
End If
End Sub

Private Sub Command1_Click()

Set rs = New ADODB.Recordset


rs.Open "Select * from adm2 where app_no=" & Val(Text1.Text) & "", con, adOpenStatic,
adLockOptimistic

If rs.RecordCount = 0 Then
rs.Close
MsgBox "Rec. not found..."
Else
Text1.Text = rs(0)
Text2.Text = rs(2)

Ramgarhia College, Phagwara


Text3.Text = rs(3)
Text4.Text = rs(4)
Text5.Text = rs(5)
Text6.Text = rs(6)
Text7.Text = rs(7)
Text8.Text = rs(8)
Text9.Text = rs(9)
Text10.Text = rs(10)
Text11.Text = rs(11)
Text12.Text = rs(12)

If rs(13) = "Yes" Then


Option1.Value = True
ElseIf rs(13) = "No" Then
Option2.Value = True
End If

Text13.Text = rs(14)
Text14.Text = rs(15)
Text15.Text = rs(16)
Text16.Text = rs(17)
Text17.Text = rs(18)
Text18.Text = rs(19)
Text19.Text = rs(20)
rs.Close
MsgBox "Student Info. found..."
End If
End Sub

Private Sub Command2_Click()


Set rs = New ADODB.Recordset
rs.Open "Select * from adm2 where app_no=" & Val(Text1.Text) & "", con, adOpenStatic,
adLockOptimistic

If rs.RecordCount = 0 Then
rs.Close
MsgBox "Rec. not found..."
Else
rs(0) = Val(Text1.Text)
rs(1) = DTPicker1.Value
rs(2) = Text2.Text
rs(3) = Text3.Text
rs(4) = Text4.Text
rs(5) = Text5.Text
rs(6) = Val(Text6.Text)
rs(7) = Val(Text7.Text)
rs(8) = Val(Text8.Text)
rs(9) = Text9.Text
rs(10) = Text10.Text
rs(11) = Text11.Text
rs(12) = Val(Text12.Text)

Ramgarhia College, Phagwara


If Option1.Value = 1 Then
rs(13) = Option1.Caption
Else
rs(13) = Option2.Caption
End If

rs(14) = Val(Text13.Text)
rs(15) = Val(Text14.Text)
rs(16) = Val(Text15.Text)
rs(17) = Text16.Text
rs(18) = Text17.Text
rs(19) = Text18.Text
rs(20) = Val(Text19.Text)
rs.Update
MsgBox ("record has been Updated")
End If

End Sub

Private Sub Command4_Click()


rs.AddNew
rs(0) = Val(Text1.Text)
rs(1) = DTPicker1.Value
rs(2) = Text2.Text
rs(3) = Text3.Text
rs(4) = Text4.Text
rs(5) = Text5.Text
rs(6) = Val(Text6.Text)
rs(7) = Val(Text7.Text)
rs(8) = Val(Text8.Text)
rs(9) = Text9.Text
rs(10) = Text10.Text
rs(11) = Text11.Text
rs(12) = Val(Text12.Text)

If Option1.Value = 1 Then
rs(13) = Option1.Caption
Else
rs(13) = Option2.Caption
End If

rs(14) = Val(Text13.Text)
rs(15) = Val(Text14.Text)
rs(16) = Val(Text15.Text)
rs(17) = Text16.Text
rs(18) = Text17.Text
rs(19) = Text18.Text
rs(20) = Val(Text19.Text)
rs.Update
MsgBox ("record has been saved")
Text1.Text = ""
Text2.Text = ""

Ramgarhia College, Phagwara


Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
Text17.Text = ""
Text18.Text = ""
Text19.Text = ""

Option1.Caption = ""
Option2.Caption = ""

End Sub

Private Sub Command6_Click()


Unload Me
End Sub

Private Sub Form_Load()


Call Module1.main
rs.Open "select * from adm2", con, adOpenDynamic, adLockPessimistic

If appno <> 0 Then


Text1.Text = Module1.appno
End If

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

Coding For the form of Fees:-


Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset

Private Sub CMD_DEL_Click()

If MsgBox("Do you want to Del. Rec. ", vbInformation + vbYesNo, "Delete Rec.") = vbYes
Then

Set rs1 = New ADODB.Recordset

Ramgarhia College, Phagwara


rs1.Open "Select * from adm1 where app_no=" & Val(Text1.Text) & "", con, adOpenStatic,
adLockOptimistic
Set rs = New ADODB.Recordset
rs.Open "Select * from adm2 where app_no=" & Val(Text1.Text) & "", con, adOpenStatic,
adLockOptimistic
If rs.RecordCount = 0 Then
rs.Close
MsgBox "Rec. not found..."
Else
rs1.Delete
rs1.Update
rs.Delete
rs.Update
MsgBox "REC. HAS BEEN DELETED"
End If

End If
End Sub

Private Sub Command1_Click()

Set rs = New ADODB.Recordset


rs.Open "Select * from adm2 where app_no=" & Val(Text1.Text) & "", con, adOpenStatic,
adLockOptimistic

If rs.RecordCount = 0 Then
rs.Close
MsgBox "Rec. not found..."
Else
Text1.Text = rs(0)
Text2.Text = rs(2)
Text3.Text = rs(3)
Text4.Text = rs(4)
Text5.Text = rs(5)
Text6.Text = rs(6)
Text7.Text = rs(7)
Text8.Text = rs(8)
Text9.Text = rs(9)
Text10.Text = rs(10)
Text11.Text = rs(11)
Text12.Text = rs(12)

If rs(13) = "Yes" Then


Option1.Value = True
ElseIf rs(13) = "No" Then
Option2.Value = True
End If

Text13.Text = rs(14)
Text14.Text = rs(15)
Text15.Text = rs(16)
Text16.Text = rs(17)

Ramgarhia College, Phagwara


Text17.Text = rs(18)
Text18.Text = rs(19)
Text19.Text = rs(20)
rs.Close
MsgBox "Student Info. found..."
End If
End Sub

Private Sub Command2_Click()


Set rs = New ADODB.Recordset
rs.Open "Select * from adm2 where app_no=" & Val(Text1.Text) & "", con, adOpenStatic,
adLockOptimistic

If rs.RecordCount = 0 Then
rs.Close
MsgBox "Rec. not found..."
Else
rs(0) = Val(Text1.Text)
rs(1) = DTPicker1.Value
rs(2) = Text2.Text
rs(3) = Text3.Text
rs(4) = Text4.Text
rs(5) = Text5.Text
rs(6) = Val(Text6.Text)
rs(7) = Val(Text7.Text)
rs(8) = Val(Text8.Text)
rs(9) = Text9.Text
rs(10) = Text10.Text
rs(11) = Text11.Text
rs(12) = Val(Text12.Text)

If Option1.Value = 1 Then
rs(13) = Option1.Caption
Else
rs(13) = Option2.Caption
End If
rs(14) = Val(Text13.Text)
rs(15) = Val(Text14.Text)
rs(16) = Val(Text15.Text)
rs(17) = Text16.Text
rs(18) = Text17.Text
rs(19) = Text18.Text
rs(20) = Val(Text19.Text)
rs.Update
MsgBox ("record has been Updated")
End If

End Sub

Private Sub Command4_Click()


rs.AddNew
rs(0) = Val(Text1.Text)

Ramgarhia College, Phagwara


rs(1) = DTPicker1.Value
rs(2) = Text2.Text
rs(3) = Text3.Text
rs(4) = Text4.Text
rs(5) = Text5.Text
rs(6) = Val(Text6.Text)
rs(7) = Val(Text7.Text)
rs(8) = Val(Text8.Text)
rs(9) = Text9.Text
rs(10) = Text10.Text
rs(11) = Text11.Text
rs(12) = Val(Text12.Text)

If Option1.Value = 1 Then
rs(13) = Option1.Caption
Else
rs(13) = Option2.Caption
End If

rs(14) = Val(Text13.Text)
rs(15) = Val(Text14.Text)
rs(16) = Val(Text15.Text)
rs(17) = Text16.Text
rs(18) = Text17.Text
rs(19) = Text18.Text
rs(20) = Val(Text19.Text)
rs.Update
MsgBox ("record has been saved")
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
Text17.Text = ""
Text18.Text = ""
Text19.Text = ""

Option1.Caption = ""
Option2.Caption = ""

End Sub

Ramgarhia College, Phagwara


Private Sub Command6_Click()
Unload Me
End Sub

Private Sub Form_Load()


Call Module1.main
rs.Open "select * from adm2", con, adOpenDynamic, adLockPessimistic

If appno <> 0 Then


Text1.Text = Module1.appno

End If
End Sub

Private Sub Form_Unload(Cancel As Integer)


con.Close
End Sub

Coding For the form Of Fees Detail:-


Dim rs As New ADODB.Recordset

Private Sub Combo2_Click()


Set rs = New ADODB.Recordset
rs.Open "select * from fee_details where class1='" & cmb_class.Text & "' and roll_no=" &
Val(Combo2.Text) & "", con, adOpenStatic, adLockOptimistic
If rs.RecordCount = 0 Then
rs.Close
MsgBox "record not found..."
Else
'Combo1.Text = rs(0)
Combo2.Text = rs(1)
Text1.Text = rs(2)
Text2.Text = rs(3)
Text3.Text = rs(4)
rs.Close
MsgBox "fees detail has been found..."
End If
End Sub

Private Sub Command1_Click()


rs.AddNew
rs(0) = cmb_class.Text
rs(1) = Combo2.Text
rs(2) = Val(Text1.Text)
rs(3) = Val(Text2.Text)
rs(4) = Val(Text3.Text)
rs.Update
MsgBox ("record has been saved....")

Ramgarhia College, Phagwara


cmb_class.Text = ""
Combo2.Text = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""

End Sub

Private Sub Command2_Click()


Unload Me
End Sub

Private Sub Form_Load()


Call Module1.main
rs.Open "select*from fee_details", con, adOpenDynamic, adLockPessimistic

rs.MoveFirst
Do While rs.EOF = False
cmb_class.AddItem (rs(0))
Combo2.AddItem (rs(1))
rs.MoveNext
Loop

End Sub

Private Sub Form_Unload(Cancel As Integer)


con.Close
End Sub

Coding For the form Teacher Information:-


Dim rs As New ADODB.Recordset

Private Sub cmb_teacher_Click()


Set rs = New ADODB.Recordset
rs.Open "select * from teacher_details where teacher_id='" & cmb_teacher.Text & "'", con,
adOpenStatic, adLockOptimistic
If rs.RecordCount = 0 Then
rs.Close
MsgBox "record not found...."
Else
'Combo1.Text = rs(0)
Text1.Text = rs(1)
DTPicker1.Value = rs(2)
Text2.Text = rs(3)
DTPicker2.Value = rs(4)
Combo2.Text = rs(5)
Text3.Text = rs(6)
Text4.Text = rs(7)
Text5.Text = rs(8)

Ramgarhia College, Phagwara


Combo3.Text = rs(9)
Text6.Text = rs(10)
rs.Close
MsgBox "teacher info. found..."
End If
End Sub

Private Sub Command1_Click()


Set rs = New ADODB.Recordset
rs.Open "select * from teacher_details where teacher_id='" & cmb_teacher.Text & " '", con,
adOpenStatic, adLockOptimistic
If rs.RecordCount = 0 Then
rs.Close
MsgBox "record not found...."
Else
rs(0) = cmb_teacher.Text
rs(1) = Text1.Text
rs(2) = DTPicker1.Value
rs(3) = Text2.Text
rs(4) = DTPicker2.Value
rs(5) = Combo2.Text
rs(6) = Text3.Text
rs(7) = Val(Text4.Text)
rs(8) = Text5.Text
rs(9) = Combo3.Text
rs(10) = Val(Text6.Text)
rs.Update
MsgBox "record has been update...."
End If

End Sub

Private Sub Command2_Click()


rs.AddNew
rs(0) = cmb_teacher.Text
rs(1) = Text1.Text
rs(2) = DTPicker1.Value
rs(3) = Text2.Text
rs(4) = DTPicker2.Value
rs(5) = Combo2.Text
rs(6) = Text3.Text
rs(7) = Val(Text4.Text)
rs(8) = Text5.Text
rs(9) = Combo3.Text
rs(10) = Val(Text6.Text)
rs.Update
MsgBox ("record has been saved...")
cmb_teacher.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Text1.Text = ""
Text2.Text = ""

Ramgarhia College, Phagwara


Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""

End Sub

Private Sub Command3_Click()

If MsgBox("Do you want to Del. Rec. ", vbInformation + vbYesNo, "Delete Rec.") = vbYes
Then
Set rs = New ADODB.Recordset
rs.Open "select * from teacher_details where teacher_id='" & cmb_teacher.Text & "'", con,
adOpenStatic, adLockOptimistic
If rs.RecordCount = 0 Then
rs.Close
MsgBox "record not found...."
Else
rs.Delete
rs.Update
MsgBox "REC. HAS BEEN DELETED"
End If
End If
End Sub

Private Sub Command5_Click()


Unload Me
End Sub

Private Sub Form_Load()


Call Module1.main
rs.Open "select*from teacher_details", con, adOpenDynamic, adLockPessimistic

rs.MoveFirst
Do While rs.EOF = False
cmb_teacher.AddItem (rs(0))
rs.MoveNext
Loop
End Sub

Private Sub Form_Unload(Cancel As Integer)


con.Close
End Sub

Coding For the form Of Non-Teaching Staff:-


Dim rs As New ADODB.Recordset

Private Sub Cmb_empi_Change()

End Sub

Ramgarhia College, Phagwara


Private Sub cmb_teacher_Click()
Set rs = New ADODB.Recordset
rs.Open "select* from non_teaching_staff where teacher_id='" & cmb_teacher.Text & "'", con,
adOpenStatic, adLockOptimistic
If rs.RecordCount = 0 Then
rs.Close
MsgBox "record not found...."
Else
Text1.Text = rs(1)
DTPicker1.Value = rs(2)
Text2.Text = rs(3)
Text3.Text = rs(4)
Text4.Text = rs(5)
Text5.Text = rs(6)
Text6.Text = rs(7)
rs.Close
MsgBox "teacher info found..."
End If
End Sub

Private Sub Command1_Click()


rs.AddNew
rs(0) = cmb_teacher.Text
rs(1) = Text1.Text
rs(2) = DTPicker1.Value
rs(3) = Text2.Text
rs(4) = Val(Text3.Text)
rs(5) = Text4.Text
rs(6) = Text5.Text
rs(7) = Val(Text6.Text)
rs.Update
MsgBox ("record has been saved")
cmb_teacher.Text = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub

Private Sub Command2_Click()


Set rs = New ADODB.Recordset
rs.Open "select * from non_teaching_staff where teacher_id='" & cmb_teacher.Text & " '", con,
adOpenStatic, adLockOptimistic
If rs.RecordCount = 0 Then
rs.Close
MsgBox "record not found...."
Else
rs(0) = cmb_teacher.Text
rs(1) = Text1.Text

Ramgarhia College, Phagwara


rs(2) = DTPicker1.Value
rs(3) = Text2.Text
rs(4) = Val(Text3.Text)
rs(5) = Text4.Text
rs(6) = Text5.Text
rs(7) = Val(Text6.Text)
rs.Update
MsgBox ("record has been updated....")
End If
End Sub

Private Sub Command3_Click()


Unload Me

End Sub

Private Sub Form_Load()


Call Module1.main
rs.Open "select*from non_teaching_staff", con, adOpenDynamic, adLockPessimistic
rs.MoveFirst
Do While rs.EOF = False
cmb_teacher.AddItem (rs(0))
rs.MoveNext
Loop
End Sub

Private Sub Form_Unload(Cancel As Integer)


con.Close
End Sub

Coding For the form of Clearance Chit:-


Dim rs As New ADODB.Recordset

Private Sub cmb_rollno_Click()


Set rs = New ADODB.Recordset
rs.Open "select* from clearance_chit where roll_no =" & cmb_rollno & "", con, adOpenStatic,
adLockOptimistic
If rs.RecordCount = 0 Then
rs.Close
MsgBox "record not found...."
Else
Text1.Text = rs(0)
Text2.Text = rs(1)
Text3.Text = rs(2)
Text4.Text = rs(3)
Text5.Text = rs(4)
Text6.Text = rs(5)
Text7.Text = rs(6)
Text8.Text = rs(7)
Text9.Text = rs(8)
Text10.Text = rs(9)
rs.Close

Ramgarhia College, Phagwara


MsgBox "record is found..."
End If
End Sub

Private Sub Command1_Click()


rs.AddNew
rs(0) = Text1.Text
rs(1) = Val(Text2.Text)
rs(2) = Text3.Text
rs(3) = Val(Text4.Text)
rs(4) = Val(Text5.Text)
rs(5) = Val(Text6.Text)
rs(6) = Val(Text7.Text)
rs(7) = Val(Text8.Text)
rs(8) = Val(Text9.Text)
rs(9) = Val(Text10.Text)

rs.Update
MsgBox ("record has been saved...")
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
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 = ""
End Sub

Private Sub Command3_Click()


Unload Me
End Sub

Private Sub Form_Load()


Call Module1.main
rs.Open "select*from clearance_chit", con, adOpenDynamic, adLockPessimistic

Ramgarhia College, Phagwara


rs.MoveFirst
Do While rs.EOF = False
cmb_rollno.AddItem (rs(1))
rs.MoveNext
Loop
End Sub

Private Sub Form_Unload(Cancel As Integer)


con.Close
End Sub

Private Sub Text9_LostFocus()


Text10.Text = Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text) + Val(Text7.Text) +
Val(Text8.Text) + Val(Text9.Text)
End Sub

Coding For the form fees and other charges1:-


Private Sub Command1_Click()
Form10.Show
End Sub

Private Sub Command2_Click()


Unload Me
End Sub

Coding For the form of fees and other charges 2:-


Private Sub Command1_Click()
Form12.show
End Sub

Private Sub Command2_Click()


Unload Me
End Sub

Coding For the form of fees and other charges 3:-


Private Sub Command1_Click()
Form13.show
End Sub

Private Sub Command2_Click()


Unload Me
End Sub

Coding For the form of fees and other charges 4:-


Dim rs As New ADODB.Recordset

Private Sub Command1_Click()


Unload Me
End Sub

Ramgarhia College, Phagwara


Coding For the form of Student Result Sheet:-
Dim rs As New ADODB.Recordset
Private Sub cmb_rollno_Click()
Set rs = New ADODB.Recordset
rs.Open "select * from stud_res_sheet where class1='" & cmb_class.Text & "' and roll_no=" &
Val(cmb_rollno.Text) & "", con, adOpenStatic, adLockOptimistic

If rs.RecordCount = 0 Then
rs.Close
MsgBox "record not found..."
Else
Text1.Text = rs(0)
Text2.Text = rs(3)
Text3.Text = rs(4)
Combo3.Text = rs(5)
Text4.Text = rs(6)
Text5.Text = rs(7)
Text6.Text = rs(8)
Text7.Text = rs(9)
Text8.Text = rs(10)
Text9.Text = rs(11)
Text10.Text = rs(12)
Text11.Text = rs(13)
Text12.Text = rs(14)
Text13.Text = rs(15)
Text14.Text = rs(16)
Text15.Text = rs(17)
Text16.Text = rs(18)
Text17.Text = rs(19)
'Combo1.Text = ""
'combo2.Text = ""
rs.Close
MsgBox "record is found...."
End If
End Sub

Private Sub Command1_Click()


rs.AddNew
rs(0) = Val(Text1.Text)
rs(1) = cmb_class.Text

Ramgarhia College, Phagwara


rs(2) = cmb_rollno.Text
rs(3) = Text2.Text
rs(4) = Val(Text3.Text)
rs(5) = Combo3.Text
rs(6) = Val(Text4.Text)
rs(7) = Text5.Text
rs(8) = Text6.Text
rs(9) = Val(Text7.Text)
rs(10) = Val(Text8.Text)
rs(11) = Val(Text9.Text)
rs(12) = Val(Text10.Text)
rs(13) = Val(Text11.Text)
rs(14) = Val(Text12.Text)
rs(15) = Val(Text13.Text)
rs(16) = Val(Text14.Text)
rs(17) = Val(Text15.Text)
rs(18) = Val(Text16.Text)
rs(19) = Text17.Text
rs.Update
MsgBox "record has been saved..."

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
Combo3.Text = ""
Text17.Text = ""
cmb_class.Text = ""
cmb_rollno.Text = ""
Text1.SetFocus
End Sub

Private Sub Command2_Click()


Set rs = New ADODB.Recordset
rs.Open "select * from stud_res_sheet where class1='" & cmb_class.Text & "' and roll_no=" &
Val(cmb_rollno.Text) & "", con, adOpenStatic, adLockOptimistic

If rs.RecordCount = 0 Then
rs.Close
MsgBox "record not found..."

Ramgarhia College, Phagwara


Else
rs(0) = Val(Text1.Text)
rs(1) = cmb_class.Text
rs(2) = cmb_rollno.Text
rs(3) = Text2.Text
rs(4) = Val(Text3.Text)
rs(5) = Combo3.Text
rs(6) = Val(Text4.Text)
rs(7) = Text5.Text
rs(8) = Text6.Text
rs(9) = Val(Text7.Text)
rs(10) = Val(Text8.Text)
rs(11) = Val(Text9.Text)
rs(12) = Val(Text10.Text)
rs(13) = Val(Text11.Text)
rs(14) = Val(Text12.Text)
rs(15) = Val(Text13.Text)
rs(16) = Val(Text14.Text)
rs(17) = Val(Text15.Text)
rs(18) = Val(Text16.Text)
rs(19) = Text17.Text
rs.Update
MsgBox "record has been updated..."
End If

End Sub

Private Sub Command3_Click()


Unload Me
End Sub

Private Sub Command4_Click()


Text15.Text = Val(Text7.Text) + Val(Text8.Text) + Val(Text9.Text) + Val(Text10.Text) +
Val(Text11.Text) + Val(Text12.Text) + Val(Text13.Text) + Val(Text14.Text)
End Sub

Private Sub Command5_Click()


Text16.Text = Text15.Text / 800 * 100
End Sub

Private Sub Form_Load()


Call Module1.main
rs.Open "select * from stud_res_sheet", con, adOpenDynamic, adLockPessimistic

rs.MoveFirst
Do While rs.EOF = False

cmb_rollno.AddItem (Val(rs(2)))
cmb_class.AddItem (rs(1))
rs.MoveNext
Loop

Ramgarhia College, Phagwara


Text1.Text = "2011-2012"
End Sub

Private Sub Form_Unload(Cancel As Integer)


con.Close
End Sub

Coding For the form of Bill:-


Dim rs As New ADODB.Recordset

Private Sub cmb_rollno_Click()


Set rs = New ADODB.Recordset
rs.Open "select * from billing where class1='" & cmb_class.Text & "' and roll_no=" &
Val(cmb_rollno.Text) & "", con, adOpenStatic, adLockOptimistic
If rs.RecordCount = 0 Then
rs.Close
MsgBox "record not found..."
Else
Text1.Text = rs(0)
Text2.Text = rs(3)
Text3.Text = rs(4)
Text4.Text = rs(6)
Text5.Text = rs(7)
Text6.Text = rs(8)
Text7.Text = rs(9)
Text8.Text = rs(10)
Text9.Text = rs(11)
Text10.Text = rs(12)
Text11.Text = rs(13)
Text12.Text = rs(14)
Text13.Text = rs(15)
Text14.Text = rs(16)
Text15.Text = rs(17)
Text16.Text = rs(18)
Text17.Text = rs(19)
Text18.Text = rs(20)
Text19.Text = rs(21)
Text20.Text = rs(22)
Text21.Text = rs(23)
Text22.Text = rs(24)
Text23.Text = rs(25)
Text24.Text = rs(26)
Text25.Text = rs(27)
rs.Close
MsgBox "record found...."
End If

End Sub

Private Sub Command1_Click()

Ramgarhia College, Phagwara


Text25.Text = Val(Text5.Text) + Val(Text6.Text) + Val(Text7.Text) + Val(Text8.Text) +
Val(Text9.Text) + Val(Text10.Text) + Val(Text11.Text) + Val(Text12.Text) + Val(Text13.Text)
+ Val(Text14.Text) + Val(Text15.Text) + Val(Text16.Text) + Val(Text17.Text) +
Val(Text18.Text) + Val(Text19.Text) + Val(Text20.Text) + Val(Text21.Text) +
Val(Text22.Text) + Val(Text23.Text) + Val(Text24.Text)
End Sub

Private Sub Command3_Click()


Unload Me
End Sub

Private Sub Command4_Click()


Set rs = New ADODB.Recordset
rs.Open "select * from billing where class1='" & cmb_class.Text & "' and roll_no=" &
Val(cmb_rollno.Text) & "", con, adOpenStatic, adLockOptimistic
If rs.RecordCount = 0 Then
rs.Close
MsgBox "record not found..."
Else
Text1.Text = rs(0)
Text2.Text = rs(3)
Text3.Text = rs(4)
Text4.Text = rs(6)
Text5.Text = rs(7)
Text6.Text = rs(8)
Text7.Text = rs(9)
Text8.Text = rs(10)
Text9.Text = rs(11)
Text10.Text = rs(12)
Text11.Text = rs(13)
Text12.Text = rs(14)
Text13.Text = rs(15)
Text14.Text = rs(16)
Text15.Text = rs(17)
Text16.Text = rs(18)
Text17.Text = rs(19)
Text18.Text = rs(20)
Text19.Text = rs(21)
Text20.Text = rs(22)
Text21.Text = rs(23)
Text22.Text = rs(24)
Text23.Text = rs(25)
Text24.Text = rs(26)
Text25.Text = rs(27)
rs.Close
MsgBox "record found...."
End If

End Sub

Private Sub Command5_Click()


rs.AddNew

Ramgarhia College, Phagwara


rs(0) = Val(Text1.Text)
rs(1) = cmb_class.Text
rs(2) = cmb_rollno.Text
rs(3) = Val(Text2.Text)
rs(4) = Val(Text3.Text)
rs(5) = DTPicker1.Value
rs(6) = Text4.Text
rs(7) = Val(Text5.Text)
rs(8) = Val(Text6.Text)
rs(9) = Val(Text7.Text)
rs(10) = Val(Text8.Text)
rs(11) = Val(Text9.Text)
rs(12) = Val(Text10.Text)
rs(13) = Val(Text11.Text)
rs(14) = Val(Text12.Text)
rs(15) = Val(Text13.Text)
rs(16) = Val(Text14.Text)
rs(17) = Val(Text15.Text)
rs(18) = Val(Text16.Text)
rs(19) = Val(Text17.Text)
rs(20) = Val(Text18.Text)
rs(21) = Val(Text19.Text)
rs(22) = Val(Text20.Text)
rs(23) = Val(Text21.Text)
rs(24) = Val(Text22.Text)
rs(25) = Val(Text23.Text)
rs(26) = Val(Text24.Text)
rs(27) = Val(Text25.Text)
rs.Update
MsgBox ("record has been saved...")
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
Text17.Text = ""
Text18.Text = ""
Text19.Text = ""
Text20.Text = ""
Text21.Text = ""
Text22.Text = ""

Ramgarhia College, Phagwara


Text23.Text = ""
Text24.Text = ""
Text25.Text = ""
cmb_class.Text = ""
cmb_rollno.Text = ""

End Sub

Private Sub Form_Load()


Call Module1.main
rs.Open "select* from billing", con, adOpenDynamic, adLockPessimistic
rs.MoveFirst
Do While rs.EOF = False

cmb_rollno.AddItem (Val(rs(2)))
cmb_class.AddItem (rs(1))
rs.MoveNext
Loop

End Sub

Private Sub Form_Unload(Cancel As Integer)


con.Close

End Sub

Coding For the form of Teacher Salary:-


Dim rs As New ADODB.Recordset

Private Sub cmb_teacher_Click()

Set rs = New ADODB.Recordset


rs.Open "select * from teacher_sal where teacher_id='" & cmb_teacher.Text & "'", con,
adOpenStatic, adLockOptimistic
If rs.RecordCount = 0 Then
rs.Close
MsgBox "record not found...."
Else
Text1.Text = rs(1)
Text2.Text = rs(2)
Text3.Text = rs(3)
Text4.Text = rs(4)
Text5.Text = rs(5)
Text6.Text = rs(6)
rs.Close
MsgBox "record fouud........"
End If

Ramgarhia College, Phagwara


End Sub

Private Sub Command1_Click()


rs.AddNew
rs(0) = cmb_teacher.Text
rs(1) = Text1.Text
rs(2) = Val(Text2.Text)
rs(3) = Val(Text3.Text)
rs(4) = Val(Text4.Text)
rs(5) = Val(Text5.Text)
rs(6) = Val(Text6.Text)
rs.Update
MsgBox ("record has been saved..")
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
cmb_teacher.Text = ""

End Sub

Private Sub Command2_Click()

Set rs = New ADODB.Recordset


rs.Open "select * from teacher_sal where teacher_id='" & cmb_teacher.Text & "'", con,
adOpenStatic, adLockOptimistic
If rs.RecordCount = 0 Then
rs.Close
MsgBox "record not found...."
Else
rs(0) = cmb_teacher.Text
rs(1) = Text1.Text
rs(2) = Val(Text2.Text)
rs(3) = Val(Text3.Text)
rs(4) = Val(Text4.Text)
rs(5) = Val(Text5.Text)
rs(6) = Val(Text6.Text)
rs.Update
MsgBox ("record has been updated....")
End If
End Sub

Private Sub Command3_Click()


Unload Me
End Sub

Private Sub Form_Load()


Call Module1.main
rs.Open "select*from teacher_sal", con, adOpenDynamic, adLockPessimistic

Ramgarhia College, Phagwara


rs.MoveFirst
Do While rs.EOF = False
cmb_teacher.AddItem (rs(0))
rs.MoveNext
Loop

End Sub

Private Sub Form_Unload(Cancel As Integer)


con.Close
End Sub

Coding For the form of New Class:-


Dim rs As New ADODB.Recordset

Private Sub cmb_classid_Click()


Set rs = New ADODB.Recordset
rs.Open "select * from new_class where class_id='" & cmb_classid.Text & "'", con,
adOpenStatic, adLockOptimistic
If rs.RecordCount = 0 Then
rs.Close
MsgBox "record not found...."
Else
Text1.Text = rs(1)
Text2.Text = rs(2)
Text3.Text = rs(3)
rs.Close
MsgBox "record found...."
End If

End Sub

Private Sub Command1_Click()


rs.AddNew
rs(0) = cmb_classid.Text
rs(1) = Text1.Text
rs(2) = Text2.Text
rs(3) = Val(Text3.Text)
rs.Update
MsgBox ("record has been saved...")
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
cmb_classid.Text = ""

End Sub

Ramgarhia College, Phagwara


Private Sub Command2_Click()
Set rs = New ADODB.Recordset
rs.Open "Select * from new_class where class_id='" & cmb_classid & "'", con, adOpenStatic,
adLockOptimistic

If rs.RecordCount = 0 Then
rs.Close
MsgBox "Rec. not found..."
Else
rs(0) = cmb_classid.Text
rs(1) = Text1.Text
rs(2) = Text2.Text
rs(3) = Val(Text3.Text)
rs.Update
MsgBox "record has been updated........"
End If

End Sub

Private Sub Command3_Click()


If MsgBox("Do you want to Del. Rec. ", vbInformation + vbYesNo, "Delete Rec.") = vbYes
Then

Set rs = New ADODB.Recordset


rs.Open "Select * from new_class where class_id='" & cmb_classid & "'", con, adOpenStatic,
adLockOptimistic

If rs.RecordCount = 0 Then
rs.Close
MsgBox "Rec. not found..."
Else

rs.Delete
rs.Update
MsgBox "REC. HAS BEEN DELETED"
End If
End If
End Sub

Private Sub Command4_Click()


Unload Me
End Sub

Private Sub Form_Load()


Call Module1.main
rs.Open "select*from new_class", con, adOpenDynamic, adLockPessimistic

rs.MoveFirst
Do While rs.EOF = False
cmb_classid.AddItem (rs(0))
rs.MoveNext
Loop

Ramgarhia College, Phagwara


End Sub

Coding For the form of FRM-ELG1:-


Private Sub Command1_Click()
Form20.Show
End Sub

Private Sub Command2_Click()


Unload Me
End Sub

Coding For the form of FRM-ELG 2:-


Private Sub Command1_Click()
FRM_ELG3.Show
End Sub

Private Sub Command2_Click()


Unload Me
End Sub
Coding For the form of FRM-ELG 3:-
Private Sub Command1_Click()
FRM_ELG4.Show
End Sub

Private Sub Command2_Click()


Unload Me
End Sub
Coding For the form of FRM-ELG 4:-
Private Sub Command1_Click()
FRM_ELG5.Show
End Sub

Private Sub Command2_Click()


Unload Me
End Sub

Coding For the form of FRM-ELG 5:-


Private Sub Command1_Click()
Unload Me
End Sub

Ramgarhia College, Phagwara


Coding For the form of Features:-
Private Sub Command1_Click()
Unload Me
End Sub
Coding For the form of Objectives:-

Private Sub Command1_Click()


Unload Me
End Sub

Coding For the form of Program 1:-


Private Sub Command1_Click()
FRM_PRO2.Show
End Sub

Private Sub Command2_Click()


Unload Me
End Sub
Coding For the form of Program 2:-
Private Sub Command1_Click()
FRM_PRO3.show
End Sub

Private Sub Command2_Click()


Unload Me
End Sub

Coding For the form of Program 3:-


Private Sub Command1_Click()
Unload Me
End Sub

Ramgarhia College, Phagwara


Ramgarhia College, Phagwara
TESTING

The system development life cycle involves the phase of testing and debugging after the
requirement analysis .designing and coding .the project automation of store inventory system of
Metro C21 Departmental Store Phagwara was tested, debugged and implemented successfully.
There are two strategies of software testing adopted for the new system that is as follows:-

 Code Testing
 Specification Testing

Code Testing

Code testing was carried out to see the correctness of the logic involves the correctness of
modules. Test was conducted based upon sample data, live data and artificial data. All the
modules are checked separately for assuring correctness and accuracy in all calculations.

Specification Testing

It examines the specification stating what the program should do and how it should perform under
conditions. This testing strategy is better strategy since it focuses on the way the software is
expected to work. The testing was started from the top most modules and carried the modules at
lowest level. The amount of testing interactive module is very low and cohesion in the modules is
very high. The coupling usually found in the interactive modules on the data coupling but few of
the data modules are also shown stamp coupling and the control coupling.
These testing phases involve unit testing, validation testing, and system testing. Within
each module the functionality independent units are testing for the validity and corrective ness
and then these units are tested together to carry out integration testing. The integration testing
results in the corrective ness and proper functioning of individual

modules. After the integration testing, the phases of validation testing comes.blackbox-testing
techniques are used exclusively during validation.

PERFORMANCE CRITERIA

The purpose of system testing is to identify and correct errors in the candidate system.
Following performance criteria are used for the system testing.

Ramgarhia College, Phagwara


 Turnaround Time

It is the time between the receipt of the input and the availability of the output. the objective
is to declare on and evaluate all these factors that might have bearing on the turn around time
for handling all applications.

 File Protection

Database files are handled by “Ms Access Server” so it gives full protection
to database files.

 Backup
Backup relates to procedure to use when the system is not working
correctly with current data. In this software we use “Access” as backend tool which itself
provides facility for backup & recovery of data.

 Human Factor

Human factors apply to the environment of the candidate system.


During the system testing, lightining, air conditioning, noise and other
environment factors are evaluated with people desks, chairs etc .this is
referred to as ergonomics.

Store Inventory System Follows Testing Steps Given Below

 Unit Testing

Ramgarhia College, Phagwara


In this testing each module was tested individually for all the tactical units to rectify
errors and finally all the modules are integrated and tested. simple data are used for
testing.

 Integration Testing
The relationship between the different modules is checked under this testing
all the modules are integrated into single system and tested with simple data.

 User Acceptance Testing


Once the above testing is successfully, the system group tests the developed
prototype of the project and their suggestion is incorporated in the prototype
to achieve the efficient results.

Ramgarhia College, Phagwara


IMPLEMENTATION PHASE

The most important and crucial phase of the system development life cycle is the successful
implementation of the new system. it is the replace of the old system by the new one, in a
way. This involves creating the computer-based system, installing the system and training
the user .we successfully carried out all these activities. The convention method used was

Ramgarhia College, Phagwara


that of direct charge over. The new automated one is very shortly going to replace the old
system.

Post Implementation:

The purpose of the post implementation review is to determine whether the system has met
its objective that are to see if the performance level of user has improved and whether the
system is producing the desired results. It would be found that the system is working
without any problem. It would be better than previous one and will provide numerous new
features.

IMPLEMENTATION

Once the programmer has properly finished developing, coding and testing the program, the
development of the program is near to end. Now the project team will
Release the program to play its part in the over all system—the programmer just has tiding up
to do.

How the team will release the program depends on the installation.in most
cases,however,the process will involve some kind of acceptance test.this is tom
ensure that the user or his/her respective satisfies the system.allowing the user to try
out the new system to see whether his/her needs are met.

Ofn course the programmershould have produced adequate documentation-


this will include details of program testing ,with full description in test data used on
actual results.many user will agree that those records are enough to show the
program is acceptable,where as some may with to provide a new set of test data to
test the system again . in this case the test bprogram will run the program with the
new data,checking output and documenting the process as they had done previously.

Ramgarhia College, Phagwara


Admission Report 1

Ramgarhia College, Phagwara


.
This report shows the all information about the student

Admission Report 2

Ramgarhia College, Phagwara


This report shows the all information about the Student of College campus.

Student Result sheet

Ramgarhia College, Phagwara


This report shows the all information about the result sheet of Student.

Ramgarhia College, Phagwara


Teacher Salary Report

This report shows the all information about the Teacher Salary.

Ramgarhia College, Phagwara


Ramgarhia College, Phagwara
BIBLIOGRAPHY

Sno References Author


1. Software engineering Sugandhi Mishra

2. Ms Access ( Windows Gurvinder Singh


based computer courses) Rashpal Singh
3. Visual Basic 6.0 Black Book
4. System Analysis & Design Elias M. Awad

Ramgarhia College, Phagwara

You might also like