A Minor Project On
“COLLEGE MANAGEMENT” For Partial Fulfillment of Diploma Course
Submitted To: Er. Sonu Dhalwal
Submitted By:
Er.Manoj Sharma
Amrinder-
0704108801
Project In-Charge
Ravi Mishra-
0704108802
Deepak Saini- 074108006 Gurmeet Singh- 074108011 Kundan-
074108023
Department of Computer Science & Technology P.D.M. INSTITUTE OF ENGINEERING AND TECHNOLOGY Karsindhu (Safidon)-1261 (Safidon)-126112 12 (Affiliated to SBTE (Haryana)-Pan (Haryana)-Panchkula) chkula)
ACKNOWLEDGEMENT
PAGE µ1§
The submission of this project gives both of us an opportunity to convey our gratitude to all those who have helped us reach a stage where we have immense confidence to launch our career iin n the competitive world of information technology.
We have no second thought in admitting that it is our respected Lecturers who have played played a significant significant role in shaping shaping our career career and we would be miserably miserably failing failing in our duty if we don’ extend our heart filled gratitude and sincere acknowledgement to our project guide Er. Sonu Dhalwal, Dhalwal, who has been a source of perpetual inspiration to us, gently guiding guiding and paving paving our way towards towards a bright career. career. Both were ever ever willing to give us all kind of support and encouragement. encouragement. We are also very thankful to both for being an inspired project in charge and for providing necessary help throughout our project work. We also want to thank Er. Manoj Sharma who helped us a lot during the complete project by giving us his precious time. And in the end we would like to thank our parents and the almighty God for all the things that they did to us.
Amrinder 0704108801 Ravi Ravi
Mish Mishra ra
0704108802 Deepa Deepak k Saini Saini 074108006 Gurmeet Singh 074108011 Kundan 074108023
PAGE µ1§
CERTIFICATE
It is certified that all these Final year, Computer Engineering students of PDM Institute of Engin nginee eeri ring ng
&
Techn echnol olo ogy
have have
com complet pleted ed
thei their r mino minorr
proj project ect
“COLLEGE
successfu sfully lly on time. time. I found found them them sincer sinceree & hardwo hardworki rking. ng. Their Their MANAGEMENT” succes perfo performa rmance nce during during this projec projectt develo developme pment nt period period is excell excellent ent & I wish wish all of them them successful carriers.
Er. Sonu Dhalwal Er.Manoj Sharma Project In –charge
Amrinder 0704108801 Ravi Mishra
0704108802
Deepak Saini
074108006
Gurmeet Singh 074108011
Kundan
074108023
PAGE µ1§
Table of Contents
1. Introductio Introduction………… n………………………… ……………………………… ……………………………… ……………….…... .…...….5-7 ….5-7 2. Introducin Introducing g College College Managem Management…… ent……………….… ………….………………… ………………...…. ...…...... ....... 8-10 3. System System Analysis……… Analysis…………………… …………………………… ……………… ….………..……. ….………..……..…11.…11-12 12 4. Requirement Requirement Specificatio Specification…………… n…………………………… ………………..... .......... .......... .......... .......... .......... .......... ......13 .13 5. Design Design Specification Specification……………… ……………………………… ……………………………… ………………….... …........1 ....14-16 4-16 6. Software Software Engineerin Engineering g Paradigm Paradigm Applied Applied for the the system………… system…………….... …........1 ....16-18 6-18 7. Introductio Introduction n to VISUAL VISUAL BASIC BASIC 6.0………… 6.0………………………… ………………….... …........… ....…...1 ...19-26 9-26 8. Introductio Introduction n to MS MS ACCESS ACCESS 2003…… 2003…………….. ………...………… .…………….………… ….………….27-2 .27-28 8 9. Project Project Output…………… Output………………………… …………………………… ……………………….…… ……….……….... …....29-38 29-38 10. DataBase Table………………………………………………....…….......39-42 11. Coding...……………………………………………………………..... Coding...……………………………………………………………..........43-52 .....43-52 12. Testing..................................... Testing............................................................ .............................................. ............................................ ..................... 53-54 13. Future Scope……………………………………………………….…………55 14. Limitation of Project……………………………………………....…....….…55 15. References………………………………………………………..…...………56 16. Bibliography……………………………………………………....... Bibliography……………………………………………………........…...…..57 .…...…..57
PAGE µ1§
INTRODUCTION
1.1 Abstract : The project “COLLEGE MANAGEMENT” is made to use that management working in P.D.M. P.D.M.I.E I.E.T. .T. COLLEGE. COLLEGE. This This Project Project is help help full full to Regist Register er of New records records into into the “COLLEGE”. This Project Contain mainly following section:-
1. VIE VIEW SEC SECTI TIO ON. 2. ALT ALTER SECT SECTIO ION N 3. STAF STAFF F INFOR INFORMA MATI TION ON.. 4. STUD STUDEN ENT T INFO INFORM RMAT ATIO ION. N. 5. TIME TIME-T -TAB ABLE LE INFO INFORM RMAT ATIO ION. N. 6. STAFF STAFF RECOR RECORDS( DS(ADD ADD / MODIFY MODIFY / DEL DELETE ETE)) 7. STUDEN STUDENT T RECORD RECORDS(A S(ADD DD / MODIF MODIFY Y / DELETE) DELETE) 8. ATTEND ATTENDENC ENCE E RECORD RECORDS(A S(ADD DD / MODIFY MODIFY / DELET DELETE). E).
The upper “EIGHT” “EIGHT” Forms are mainly used in this project. View Section is used to view the information of staff and student and Alter Section is used to modify the records.In staff information we saw the genral and salary of staff member.In student information we are able to saw his/ his/h her reco recod ds abou aboutt thei theirr perf perfor orma man nce ,fee ,feess and and atte atten ndan dance. ce. In “TIME IME TABLE”Secti TABLE”Section on we can see the lecture lecture of all branches. branches. IF a new lecturer lecturer is appointed appointed to college we can add its genral information by using alter section. IF a new Student is addmited to college we can add its genral information by using alter section. By using the attendance section we can see the monthly attendance of the student and also prepare monthly attendence percentage. The Software VISUAL BASIC 6.0 is used as front end for the designing and programming and to create user friendly GUI forms. Microsoft Access 2003 is used as backend to create
PAGE µ1§
the data tables required to store the information. At present there is no such system which helps in addition, ensure, alteration and demonstration of information to the client. So this syst system em facil facilita itate tess us to perf perfor orm m all these these functi functions ons rather rather straig straightf htforw orward ardly ly with with no supplementary specialization required.
1.2 Scope :
1. The project project stores stores all the information information about about the the staff and and students students.. 2. The managemen managementt must be able able to get details details of all all their informa information tion after after storing. storing. 3. It is simp simple le to use use and it it is Graphi Graphical cal user user interf interface. ace. 4. The manage management ment can can also also be able able to modify modify the information. information. 5. It has has self self exp expla lana nato tory ry for form. m. 6. Management Management can can check all the inform information ation of of any staff staff member member and student. student. 7. It is user user fri frien endl dly. y. 8. It is is very very easy easy to mod modif ify y.
1.3 Platform :
This project has been developed in one of the most popular and user friendly Microsoft Window Windows’ s’ enviro environme nment. nt. The follow following ing compon component entss are also also used used for a succes successfu sfull user user friendly effective development of this project:
1. FRONT END:- VISUAL BASIC .
2. BACK END:-MS ACCESS 2003.
1.4 Methodology :
The following approach is used to design this system, which is called "classic life cycle" or "Waterfall model". This linear sequential model suggests a sequential, systematic approach to system development that begins at the system level and progress through the analysis, design, coding, testing and maintenance. The linear sequential model encompasses the following activities: 1. System/ Information engineering and modeling.
PAGE µ1§
2. System requirement analysis 3. Design 4. Code generation 5. Testing 6. Maintenance
System
Analysis Design Code Testing Maintenance
WATER FALL MODEL
These above phases mark the progress of a system analysis and design effort. It is an orderly set of activities conducted and planned for each development project. In most business situations the activities are closely related, usually inseparable, and even the order may be difficult to determine.
PAGE µ1§
INTRODUCTION TO COLLEGE MANAGEMENT
COLLEGE MANAGEMENT:-This project(College Management) is made into the VISUAL BASIC 6.0 .It is used to modify / add / delete.The data into the project after submission is store into the MS ACCESS 2003. . This Project Contain mainly following forms:-
1 VIEW SECTION. 2
ALTER SECTION
3
STAFF INFORMATION.
4
STUDENT INFORMATION.
5
TIME-TABLE INFORMATION.
6
STAFF RECORDS(ADD / MODIFY / DELETE)
7
STUDENT RECORDS(ADD / MODIFY / DELETE)
8
ATTENDENCE RECORDS(ADD / MODIFY / DELETE).
Detail of these forms………… VIEW SECTION:- .
View Section is used to view the student and staff information their salary information, genral information, attendance information of student.We can check the semester wise information of student. We can also find the student who have not deposit their fees at time. . This form is fill by the user in alter section and user can see its data in view section..On this form there is a commend button by which we can select an id to see information . In this form there is some text boxes, command buttons, labels, , combo box .
PAGE µ1§
TEXT BOX:-A text box is use to receive the information from the user by typing into it. A
text box generally used in conjunction with a label LABEL :-A label is a control used to display text on the form. The value of label button will
be given on design time or can be change on the run time. COMMAND BUTTON:-A command button is used to initiate an action when user clicks on
it. The code for the action to be performed is provide by the programmer COMBO BOX:-It is Similar to the list box. Most of what you know about list box will apply
to combo boxes. Item are added, Remove and clear with the add item, remove item and clear method. The user can fill following Fields 1. 2. 3. 4. 5. 6. 7. 8.
2.
Name Address Phone No Sem. Branch F.Name Roll No. Sex etc.
ALTER
SECTION:-
Alter
section
is
used
to
add
the
genral,fees,attendances,result information accoring to their needs.Manegement can add,modify,delete the information about their staff.Lecter can add monthly attendensce. 1. E-id 2. Name 3. Depdt. NAme. 4. Desgnation 5. Salary 6. Date of Joining
PAGE µ1§
7. Qulification 8. Sex 9. Age 10. Add.
SYSTEM ANALYSIS
3.1 IDENTIFICATION OF NEED This Project is use to store information of new visitors. Into past the data will be stored into the conventional file system and it is very costly and time consuming. IN today time have very importance. so, to save our time and money we need this project .Because this project is used into the computer and store information into the memory of computer, and save our TIME and MONEY.
3.2 PROBLEM ANALYSIS Problem analysis is done to obtain a clear understanding of the needs of the users and what exactly is desired from the software information and documentation and so forth. One of the major problems during analysis is how to organize the information obtained that can be effectively evaluated for completeness and consistency. Second major during analysis is resolving the contradiction that may exists in the information from different sources.
3.3 FEASIBILITY ANALYSIS Feasibility of a system refers to the potentiality and workability of the system. A system is said to be a feasible one if its development is beneficial to an organization.
PAGE µ1§
Feasibility analysis is the process of analyzing the system so as to determine whether would be feasible or not. Feasible analysis should be performed throughout the system development life cycle.
3.4 FEASIBILITY CHECKPOINTS Feasibility study is done at various points in the system development life cycle. The scope and complexity of an apparently feasible project can change after the current problems are fully understood, after the end-user’s needs have been defined in detail, or after the technical requirements have been established. The project feasible at one stage may become infeasible or less feasible at any other checkpoint. Various checkpoints in the system development life cycle where feasibility study is performed are: 1. Survey phase checkpoint 2. Study phase checkpoint 3. Selection phase checkpoint 4. Acquisition phase checkpoint 5. Design phase checkpoint
3.5 Hardware Requirements Processor
Pentium-IV
RAM
256 MB
Hard Disk
40 GB
3.6 Software Requirements Front End
VISUAL BASIC 6.0
Back End
MICROSOFT ACCESS 2003.
PAGE µ1§
REQUIREMENT SPECIFICATION
Requirement Gathering
Quick Design
Refine Requirement
Build Prototype
Customer Evaluation
Design
Implement
Test
Maintain
PAGE µ1§
4.1 OUTCOME OF REQUIREMENT ANALYSIS (SRS) 1) There should some password validation to allow only authorized users to access
the system. 2) It will fulfill the perspective request of every user according to their requirements. 3) The administrator can also login from client side and can do all type of updation. 4) The administrator can do testing of server’s working as a client.
DESIGN SPECIFICATION
System design is the first step in software development, which needs careful and intricate planning. It helps us to prepare detailed technical design of the application-based system. It is based on Requirement Analysis. It provides the specification and design for system giving a brief overview of user functions, requirements and their actual implementation.
5.1 DESIGN OBJECTIVES : The goal that was kept in mind while designing the system
are: 1. To make the system user friendly as much as possible. 2. To make the flow of program comprehensible to the user. 3. To have transparency in work i.e. show how everything is being done by the system stepwise.
5.2 DATA FLOW DIAGRAM:
The DFD serve these purposes:
PAGE µ1§
1. A D.F.D. clarifies system requirements and identifies transformations that will become programs in system design. 2. It is the starting point of design phase that functionally decomposes the requirements down to the lowest level of detail.
Register User
5.3 ARCHITECTURAL DESIGN
Architectural design represents the data structure and program components that are required to build the computer based system. It consider the structures and properties Of the components that constitute the system and relationship that exist between all architectural components of the system. PAGE µ1§
5.4 PROCEDURAL DESIGN
Procedural design or component level design occur after data, architectural, and interface design have been established. The intent is to translate the design model into operational software. But the level of abstraction of the existing design model is relatively high, and the abstraction level of the operational program is low.
SOFTWARE ENGINEERING PARADIGM APLIED FOR THE SYSTEM Requirement Analysis For this project we have used the incremental model paradigm. Because the company needs
to add functionality as per the need. We choose incremental model because this model System Design model or water fall model (applied repetitively) combines elements of the linear sequential Software Engineering with the iterative philosophy.
Implementation Requirement When an increment model is used, the first increment is often a core product. That is basic & testing Analysis requirements are addressed, but many supplementary features (some known, other unknown) Operation & remain undelivered. The core product is used by the customer and as a result of use and System Maintenance evaluation; a plan is developed forDesign the next increment. 1st Increment Requirement Analysis
Implementation & testing System Design
Operation & Maintenance 2nd Increment Implementation & testing Operation & Maintenance PAGE µ1§ 3rd Increment
Incremental Model (Software Engineering Paradigm)
6.1 Code efficiency
With the help of data abstraction it tried to reduce the code size as much as possible. The information flow is made through arguments and returned values and global variables are avoided as much as possible. Coding is maintained in terms of hierarchy of classes and can be extended to greater code readability.
6.2 Optimization of Code
Optimization of code means improvement in performance to maximum extent. Optimization coding is done in terms of multithreading software development. The design is flexible as it permits the execution of the processes in simultaneous manner. The OOPS code is more manageable. The server software is optimized to the best utilization of resources such as CPU and main memory.
6.3 Validation check
In the software design, special attention is given to the validation of the data entry. All the data entry is done keeping the validation check in mind. All the fields are checked for consistency and integrity of the data. The module interfaces are checked for argument validation and returned values. The validation is done in such an appropriate manner, so that invalid data entry can be fully denied.
6.4 SYSTEM SECURITY MEASURES
In the development and operation of the software is protected against the intentional disclosures. Various types of security provisions are applied so that unauthorized users can not enter the system. The system is protected with individual password provision. The requisite condition for using system is that you must be the valid (authorized) user of the system.
PAGE µ1§
Introduction to VISUAL BASIC 6.0:
7.1 The Development Environment
Earning the ins and outs of the Development Environment before you learn visual basic is somewhat like learning for a test you must know where all the functions belong and what their purpose is. First we will start with
PAGE µ1§
7.1.1 labeling the development environment.
The above diagram shows the development environment with all the important points labeled. Many of Visual basic functions work similar to Microsoft word eg the Tool Bar and the toolbox is similar to other products on the market, which work off a single click then drag the width of the object required. The Tool Box contains the control you placed on the form window. All of the controls that appear on the Tool Box controls on the above picture never runs out of controls as soon as you place one on the form another awaits you on the Tool Box ready to be placed as needed.
7.2 The project explorer window
The Project explorer window gives you a tree-structured view of all the files inserted into the application. You can expand these and collapse branches of the views to get more or less detail (Project explorer). The project explorer window displays forms, modules or other separators, which are supported by the visual basic like classes and Advanced Modules. If you want to select a form on its own simply double click on the project explorer window for a more detailed look. And
PAGE µ1§
It will display it where the Default form is located.
7.3 Properties Window
Some programmers prefer the Categorisized view of the properties window. By defaulting, the properties window displays its properties alphabetically (with the exception of the name value) when you click on the categorized button the window changes to left picture.
7.3.1 The Default Layout
When we start Visual Basic, we are provided with a VB project. A VB project is a collection of the following modules and files. •
The global module (that contains declaration and procedures) The form module (that contains the graphic elements of the VB application along with the
•
instruction) The general module (that generally contains general-purpose instructions not pertaining to
•
anything graphic on-screen) The class module (that contains the defining characteristics of a class, including its properties
•
and methods) The resource files (that allows you to collect all of the texts and bitmaps for an application in
•
one place)
On start up, Visual Basic will displays the following windows: •
The Blank Form window
•
The Project window
PAGE µ1§
7.4Understanding the tool box.
You may have noticed that when you click on different controls the Properties Window
changes slightly this is due to different controls having different functions. Therefore more options are needed for example if you had a picture then you want to
Show an image. But if you wanted to open a Internet connection you would have to fill in the remote host and other such settings. When you use the command () you will find that a new set of properties come up the following will provide
PAGE µ1§
7.5 Opening an existing Visual Basic project.
Microsoft has included some freebies with visual basic to show its capabilities and functions. Dismantling or modifying these sample projects is a good way to understand what is happening at runtime. These files can be located at your default directory /SAMPLES/ To Open these projects choose 'Open Project' from the 'File' menu. Then Double click on the samples folder to open the directory then Double click on any project to load it.
7.5.1 Opening a new visual basic file & Inserting Source code.
From looking at the examples it time to make your own application. Choose 'New Project' from the 'File' menu. Use the blank form1 to design a simple interface for an estate agents database, have some textboxes for names and other details. Insert some controls and make it look professional. Textboxes can be used to store there name and other details, make sure you put a picture box in for a picture of the house. Now insert the following source code for your application. Private Sub Form_Load () Picture1.Picture = LoadPicture("C:\Program Files\VB\Graphics\Icons\Misc\MISC42.ICO") End Sub
7.5.2 Running and viewing the project in detail.
Once an application is loaded it can be run by click on the icon from the toolbar, to pause press and to terminate use . Once a project is loaded, the name of the form(s) that it contains is displayed in the project window. To view a form in design mode, select the form required by clicking with
PAGE µ1§
In this example the project has been loaded and the maillist.frm has been selected for viewing. This Ms Mail example project useds 6 forms and 1 modules. In Design mode, when the form is viewed, the code attached to any screen object may be inspected by double clicking on that object. The screen shots below show the interface of the Ms Mail example (.../samples/Comtool/VBMail/MaiLLST.FRM) to view the code for this form select from the project window item. Private Sub SetupOptionForm (BasePic As Control) BasePic.Top = 0 BasePic.Left = 0 BasePic.Visible = True BasePic.enabled = True OKBt.Top = BasePic.Height + 120 Me.width = BasePic.Width + 120 Me.Heigh = OkBt.Top + OkBt.Height + 495 End Sub Button Properties for reference ,Command Button & labels properties Property Description Name The name of the object so you can call it at runtime Back Color This specifies the command button's background color. Click the Back Color’s palette down arrow to see a list of common Windows control colors, you must change this to the style property from 0 - standard to 1 - graphical Cancel Determines whether the command button gets a Click event if the user presses escape Caption Holds the text that appears on the command button. Default
PAGE µ1§
Determines if the command button responds to an enter keypress even if another control has the focus Enable Determines whether the command button is active. Often, you'll change the enable property at runtime with code to prevent the user pressing the button Font Produces a Font dialog box in which you can set the caption's font name , style and size. Height Positions the height of the object - can be used for down Left Positions the left control - can be used for right Mouse Pointer If selected to an icon can change the picture of the mouse pointer over that object Picture Hold's the name of an icon graphic image so that it appears as a picture instead of a Button for this option to work the graphical tag must be set to 1 Style This determines if the Command Button appears as a standard windows dialog box or a graphical image Tab index Specifies the order of the command button in tab order Tab Stop Whether the object can be tabbed to
PAGE µ1§
7.6 DATA TYPE SUMMARY
Visual Basic recognize following six types of variables as Numeric, String, Boolean, Date, Object, Variant. NUMERIC
Like other Programming Language Visual Basic provide Numeric Variables. They are:- Integers, Single, double, Byte, Long, Currency Integer Variables are used for the Non Fractional Values. It stores values in the range from – 32768 to 32767. Long Data type is used for the range –2147483648 to 2147483647. Single Data Type is used for Fractional Values from –3.402 e 38 to 1.40 e 45. Double Precision Floating Point Numbers is capable of containing values from –1.797 e 308 to 4.940 e 324 and positive numbers. Currency is used for fixed-point numbers with four decimal digits. It can represent numbers in the range –922377203685477.5808 to 922377203685477.5807. Byte data type is used for representing numbers from 0 to 255. String variables are used to store string type data.
BOOLEAN
Boolean Data Type stores True/ False values. Boolean variables are used in testing conditions. DATE
Date and Time variables are stored internally in a special format, but you don’t need to know the exact format. Date variables are declared by following statements. VARIANT
Special Types of Variables declare without any data type treated as variant they are capable of containing any type of value. If one can ski data type in variable declaration statement then variable will treated as a variant
INTRODUCTION TO DATABASE:
Definition of Database: A collection of inter- related data stored together without harmful or unnecessary redundancy to serve multiple applications.
Definition of Database Management System: A collection of inter-related files and set of ore-written programs that allow users to access and modify these files.
PAGE µ1§
Need of DBMS: DBMS needed in order to eliminate the disadvantage of a file based system, which are as follows:-
(a)
Data duplication
(b) No integrity checks (c) Accuracy not possible (d) Data not secure (e) Quick retrieval not possible
Major functions of DBMS: The major functions of DBMS are as follows: -
(a)
Ability to represent inherent data structure
(b)
Ease of use
(c)
Time related performance enhancement
(d)
Minimal cost
(e)
Minimal redundancy
(f)
Search capability
(g)
Integrity
(h)
Data privacy and security
Advantages of DBMS:
(a)
Centralized control
(b)
Data independence allows dynamic changes and growth potential
(c)
Data duplication elimination with controlled redundancy
(d)
Data quality enhanced
(e)
Security enforcement
(f)
Security enforcement possible
PAGE µ1§
Disadvantages of DBMS:
(a)
Problem associated with centralization
(b)
Cost of hardware, software and migration
(c)
Complexity of backup and recovery
Project Output: LOADING FORM:1. This is the first form which is firstly appear on the running of project. 2. It contain some information about the project such as: TOOL USED: FRONT END:- VISUAL BASIC 6.0. BACK END:- MS ACCESS 2003. PROGRAMMER:
PAGE µ1§
9.2Login Form: After sometime a new form is loaded. Its name is loginform. In this form user
name and password is given by the user.
PAGE µ1§
9.3 VIEW SECTION:-
PAGE µ1§
PAGE µ1§
PAGE µ1§
PAGE µ1§
9.5 FORM5-:-
9.6 FORM-6:-
PAGE µ1§
FORM-7
PAGE µ1§
FORM-8
PAGE µ1§
9.7 FORM-9:-
PAGE µ1§
FORM-10:-
PAGE µ1§
FORM-11:-
PAGE µ1§
FORM-12:-
PAGE µ1§
ALTER SECTION:-
PAGE µ1§
FORM-13:-
PAGE µ1§
FORM:-14:-
PAGE µ1§
FORM-15:-
PAGE µ1§
FORM-16:-
PAGE µ1§
FORM -16:-
PAGE µ1§
FORM-17:-
PAGE µ1§
FORM-18:-
PAGE µ1§
FORM-19:-
PAGE µ1§
FORM-20:-
PAGE µ1§
FORM-21:-
PAGE µ1§
FORM-22:-
PAGE µ1§
FORM-23:-
PAGE µ1§
FORM-24:-
PAGE µ1§
FORM-25:-
PAGE µ1§
FORM-26:-
PAGE µ1§
PAGE µ1§
FORM-28:-
FORM-29:-
PAGE µ1§
FORM-30:-
PAGE µ1§
FORM-31:-
PAGE µ1§
FORM-34:-
PAGE µ1§
FORM-34:-
PAGE µ1§
FORM-35:-
PAGE µ1§
FORM35-:-
PAGE µ1§
FORM-35:-
PAGE µ1§
FORM-36:-
PAGE µ1§
FORM-:37-
PAGE µ1§
9.9 About Us Form
PAGE µ1§
This form only give information about the Programmer.
Data Base Tables
10.1 TIME-TABLE (TABLE)
PAGE µ1§
This Application form table. This table contains the fields— SESSION which describe the year. SR NO is provided as primary key and it describes the Sr no of the form., STUDENT ID which contains the id of that student, LAST DATE contains the Last date for receipt of compete Application Form .NAME OF COLLEGE contains Name of the college in which student take admission. BRANCH NO contain the number of the branch .DATE OF ISSUE contain the date of submission of form. NAME OF STUDENT contain the name of the student. F’NAME contain name of father. M’NAME contain name of mother. NAME OF COURSE contain the name of the branch. 10.2 RESULT TABLE:-
PAGE µ1§
SALARY TABLE:-
PAGE µ1§
FEES INFORMATION TABLE:-
PAGE µ1§
.
.
GENERAL INFORMATION:-
PAGE µ1§
STAFF INFORMATION:-
PAGE µ1§
PAGE µ1§
1. Coding Private Sub Command1_Click() If Text1.Text = "pdmprj" And Text2.Text = "pdmprj" Then MsgBox "welcome to pdmiet safidon" Form2.Show Unload Me Else MsgBox "invalid username or password" End End If End Sub
FORM2: Private Sub Command1_Click() Form3.Show End Sub
Private Sub Command2_Click() Dim a, b As String a = InputBox("enter adminstrator user") b = InputBox("enter password") If a = "kundan" And b = "01234" Then MsgBox "most welcome to alter section" Form8.Show Else MsgBox "not authorised person" Exit Sub End If End Sub
Private Sub Command3_Click() Unload Me End Sub
Private Sub Command4_Click() End End Sub
FORM 3:
PAGE µ1§
Private Sub Command1_Click() Form5.Show End Sub
Private Sub Command2_Click() Form4.Show End Sub
Private Sub Command3_Click() Form6.Show End Sub Private Sub Command4_Click() Unload Me End Sub
Private Sub Command5_Click() End End Sub FORM 4 Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() Form37.Show End Sub Private Sub Command3_Click() Form38.Show End Sub Private Sub Command3_Click() Form38.Show End Sub Private Sub Command5_Click() Form40.Show End Sub Private Sub Command6_Click() Unload Me End Sub
PAGE µ1§
FORM 5 Private Sub Command1_Click() Form35.Show End Sub Private Sub Command2_Click() Form36.Show End Sub Private Sub Command3_Click() Unload Me End Sub
Private Sub Command4_Click() End End Sub FORM6 Private Sub Combo1_Click() Data1.RecordSource = "select * from tt" Data1.Refresh Do While Not Data1.Recordset.EOF If Combo1.Text = Data1.Recordset.Fields("class") Then Text1.Text = Data1.Recordset.Fields("fir") Text2.Text = Data1.Recordset.Fields("sec") Text3.Text = Data1.Recordset.Fields("trd") Text4.Text = Data1.Recordset.Fields("frh") Text5.Text = Data1.Recordset.Fields("ffh") Text6.Text = Data1.Recordset.Fields("six") Text7.Text = Data1.Recordset.Fields("sev") Text8.Text = Data1.Recordset.Fields("egt") End If Data1.Recordset.MoveNext Loop End Sub Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() End End Sub Private Sub Label1_Click() End Sub
PAGE µ1§
FORM8 Private Sub Command4_Click() End Sub Private Sub Command1_Click() Form9.Show End Sub Private Sub Command2_Click() Form10.Show End Sub Private Sub Command6_Click() End End Sub Private Sub Command7_Click() Unload Me End Sub FORM9 Private Sub Command1_Click() Form11.Show End Sub Private Sub Command2_Click() Form15.Show End Sub Private Sub Command5_Click() Unload Me End Sub Private Sub Command6_Click() End End Sub FORM10 Private Sub Command1_Click() Form19.Show End Sub Private Sub Command2_Click() Form20.Show End Sub
PAGE µ1§
Private Sub Command3_Click() Form21.Show End Sub Private Sub Command4_Click() Form22.Show End Sub Private Sub Command5_Click() Unload Me End Sub Private Sub Command6_Click() Unload Me End Sub FORM-11 Private Sub Combo4_Click() Combo4.List = Data1.Recordset.f End Sub Private Sub Command1_Click() Form12.Show End Sub Private Sub Command2_Click() Form13.Show End Sub Private Sub Command3_Click() Form14.Show End Sub Private Sub Command4_Click() Unload Me End Sub FORM-12 Private Sub Command1_Click() Data1.RecordSource = "select * from sinfo" Data1.Refresh Data1.Recordset.AddNew Data1.Recordset.Fields("eid") = CInt(Text1.Text) Data1.Recordset.Fields("name") = Text2.Text Data1.Recordset.Fields("dname") = Combo1.Text Data1.Recordset.Fields("dest") = Combo2.Text Data1.Recordset.Fields("sal") = CInt(Text3.Text)
PAGE µ1§
Data1.Recordset.Fields("qli") = Text4.Text Data1.Recordset.Fields("sex") = Combo3.Text Data1.Recordset.Fields("age") = CInt(Text5.Text) Data1.Recordset.Fields("doj") = CDate(Text6.Text) Data1.Recordset.Fields("add") = Text7.Text Data1.Recordset.Update Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Combo1.Text = "" Combo2.Text = "" Combo3.Text = "" End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() End End Sub Private Sub Label1_Click() End Sub FORM-13 Private Sub Combo1_Click() Data1.RecordSource = ("select * from sinfo") Data1.Refresh Do While Not Data1.Recordset.EOF If Combo1.Text = Data1.Recordset.Fields("eid") Then Text1.Text = Data1.Recordset.Fields("name") Text2.Text = Data1.Recordset.Fields("dname") Text3.Text = Data1.Recordset.Fields("dest") Text4.Text = Data1.Recordset.Fields("sal") Text5.Text = Data1.Recordset.Fields("qli") Text6.Text = Data1.Recordset.Fields("sex") Text7.Text = Data1.Recordset.Fields("age") Text8.Text = Data1.Recordset.Fields("doj") Text9.Text = Data1.Recordset.Fields("add") End If Data1.Recordset.MoveNext Loop End Sub
PAGE µ1§
Private Sub Command1_Click() Data1.RecordSource = ("select * from sinfo") Data1.Refresh Do While Not Data1.Recordset.EOF If Combo1.Text = Data1.Recordset.Fields("eid") Then Data1.Recordset.Edit Data1.Recordset.Fields("name") = Text1.Text Data1.Recordset.Fields("dname") = Text2.Text Data1.Recordset.Fields("dest") = Text3.Text Data1.Recordset.Fields("sal") = CInt(Text4.Text) Data1.Recordset.Fields("qli") = Text5.Text Data1.Recordset.Fields("sex") = Text6.Text Data1.Recordset.Fields("age") = CInt(Text7.Text) Data1.Recordset.Fields("doj") = CDate(Text8.Text) Data1.Recordset.Fields("add") = Text9.Text Data1.Recordset.Update End If Data1.Recordset.MoveNext Loop Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text9.Text = "" End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Dim a As Integer Data1.RecordSource = "select * from sinfo" Data1.Refresh Do While Not Data1.Recordset.EOF a = Data1.Recordset.Fields("eid") Combo1.AddItem (a) Data1.Recordset.MoveNext Loop End Sub Private Sub Label1_Click()
PAGE µ1§
End Sub FORM 14 Private Sub Combo1_Click() Data1.RecordSource = ("select * from sinfo") Data1.Refresh Do While Not Data1.Recordset.EOF If Combo1.Text = Data1.Recordset.Fields("eid") Then Text1.Text = Data1.Recordset.Fields("name") Text2.Text = Data1.Recordset.Fields("dname") Text3.Text = Data1.Recordset.Fields("dest") Text4.Text = Data1.Recordset.Fields("sal") Text5.Text = Data1.Recordset.Fields("qli") Text6.Text = Data1.Recordset.Fields("sex") Text7.Text = Data1.Recordset.Fields("age") Text8.Text = Data1.Recordset.Fields("doj") Text9.Text = Data1.Recordset.Fields("add") End If Data1.Recordset.MoveNext Loop End Sub Private Sub Command1_Click() Data1.RecordSource = ("select * from sinfo") Data1.Refresh Do While Not Data1.Recordset.EOF If Combo1.Text = Data1.Recordset.Fields("eid") Then Data1.Recordset.Delete End If Data1.Recordset.MoveNext Loop Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text9.Text = "" End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() End
PAGE µ1§
End Sub Private Sub Form_Load() Dim a As Integer Data1.RecordSource = "select * from sinfo" Data1.Refresh Do While Not Data1.Recordset.EOF a = Data1.Recordset.Fields("eid") Combo1.AddItem (a) Data1.Recordset.MoveNext Loop End Sub Private Sub Label1_Click() End Sub FORM-15 Private Sub Command1_Click() Form16.Show End Sub Private Sub Command2_Click() Form17.Show End Sub Private Sub Command3_Click() Form18.Show End Sub Private Sub Command4_Click() End End Sub Private Sub Command5_Click() Unload Me End Sub FORM-16 Private Sub Command1_Click() Data1.RecordSource = "select * from sal" Data1.Refresh Data1.Recordset.AddNew Data1.Recordset.Fields("eid") = CInt(Combo1.Text) Data1.Recordset.Fields("bs") = CInt(Text1.Text) Data1.Recordset.Fields("ta") = CInt(Text2.Text) Data1.Recordset.Fields("da") = CInt(Text3.Text) Data1.Recordset.Fields("ha") = CInt(Text4.Text)
PAGE µ1§
Data1.Recordset.Fields("gs") = CInt(Text5.Text) Data1.Recordset.Fields("ns") = CInt(Text6.Text) Data1.Recordset.Update Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Combo1.Text = "" End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Dim a As Integer Data2.RecordSource = "select * from sinfo" Data2.Refresh Do While Not Data2.Recordset.EOF a = Data2.Recordset.Fields("eid") Combo1.AddItem (a) Data2.Recordset.MoveNext Loop End Sub
Private Sub Label2_Click() End Sub FORM -17 Private Sub Combo1_Click() Data1.RecordSource = ("select * from sal") Data1.Refresh Do While Not Data1.Recordset.EOF If Combo1.Text = Data1.Recordset.Fields("eid") Then Text1.Text = Data1.Recordset.Fields("bs") Text2.Text = Data1.Recordset.Fields("ta") Text3.Text = Data1.Recordset.Fields("da") Text4.Text = Data1.Recordset.Fields("ha") Text5.Text = Data1.Recordset.Fields("gs") Text6.Text = Data1.Recordset.Fields("ns") End If
PAGE µ1§
Data1.Recordset.MoveNext Loop End Sub Private Sub Command1_Click() Data1.RecordSource = ("select * from sal") Data1.Refresh Do While Not Data1.Recordset.EOF If Combo1.Text = Data1.Recordset.Fields("eid") Then Data1.Recordset.Edit Data1.Recordset.Fields("bs") = CInt(Text1.Text) Data1.Recordset.Fields("ta") = CInt(Text2.Text) Data1.Recordset.Fields("da") = CInt(Text3.Text) Data1.Recordset.Fields("ha") = CInt(Text4.Text) Data1.Recordset.Fields("gs") = CInt(Text5.Text) Data1.Recordset.Fields("ns") = CInt(Text6.Text) Data1.Recordset.Update End If Data1.Recordset.MoveNext Loop Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Dim a As Integer Data1.RecordSource = "select * from sal" Data1.Refresh Do While Not Data1.Recordset.EOF a = Data1.Recordset.Fields("eid") Combo1.AddItem (a) Data1.Recordset.MoveNext Loop End Sub Private Sub Label2_Click() End Sub
PAGE µ1§
FORM-18 Private Sub Combo1_Click() Data1.RecordSource = ("select * from sal") Data1.Refresh Do While Not Data1.Recordset.EOF If Combo1.Text = Data1.Recordset.Fields("eid") Then Text1.Text = Data1.Recordset.Fields("bs") Text2.Text = Data1.Recordset.Fields("ta") Text3.Text = Data1.Recordset.Fields("da") Text4.Text = Data1.Recordset.Fields("ha") Text5.Text = Data1.Recordset.Fields("gs") Text6.Text = Data1.Recordset.Fields("ns") End If Data1.Recordset.MoveNext Loop End Sub Private Sub Command1_Click() Data1.RecordSource = ("select * from sal") Data1.Refresh Do While Not Data1.Recordset.EOF If Combo1.Text = Data1.Recordset.Fields("eid") Then Data1.Recordset.Delete End If Data1.Recordset.MoveNext Loop Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Dim a As Integer Data1.RecordSource = "select * from sal" Data1.Refresh Do While Not Data1.Recordset.EOF a = Data1.Recordset.Fields("eid")
PAGE µ1§
Combo1.AddItem (a) Data1.Recordset.MoveNext Loop End Sub Private Sub Label2_Click() End Sub FORM-19 Private Sub Command1_Click() Form23.Show End Sub Private Sub Command2_Click() Form24.Show End Sub Private Sub Command3_Click() Form25.Show End Sub Private Sub Command4_Click() End End Sub Private Sub Command5_Click() Unload Me End Sub FORM-20 Private Sub Command1_Click() Form26.Show End Sub Private Sub Command2_Click() Form27.Show End Sub Private Sub Command3_Click() Form28.Show End Sub Private Sub Command4_Click() End End Sub Private Sub Command5_Click()
PAGE µ1§
Unload Me End Sub FORM-21 Private Sub Command1_Click() Form29.Show End Sub Private Sub Command2_Click() Form30.Show End Sub Private Sub Command3_Click() Form31.Show End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Command5_Click() Unload Me End Sub FORM-22 Private Sub Command1_Click() Form32.Show End Sub Private Sub Command2_Click() Form33.Show End Sub Private Sub Command3_Click() Form34.Show End Sub
PAGE µ1§
Private Sub Command4_Click() End End Sub Private Sub Command5_Click() Unload Me End Sub FORM-23 Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() Data1.RecordSource = "select * from sgen" Data1.Refresh Data1.Recordset.AddNew Data1.Recordset.Fields("rollno") = CInt(Text1.Text) Data1.Recordset.Fields("name") = Text2.Text Data1.Recordset.Fields("fname") = Text3.Text Data1.Recordset.Fields("Branch") = Combo1.Text Data1.Recordset.Fields("sem") = Combo2.Text Data1.Recordset.Fields("sex") = Combo3.Text Data1.Recordset.Fields("pno") = Int(Text4.Text) Data1.Recordset.Fields("add") = Text5.Text Data1.Recordset.Update Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Combo1.Text = "" Combo2.Text = "" Combo3.Text = "" End Sub Private Sub Command3_Click() End End Sub Private Sub Label1_Click() End Sub FORM-24 Private Sub Combo1_Click() Data1.RecordSource = ("select * from sgen")
PAGE µ1§
Data1.Refresh Do While Not Data1.Recordset.EOF If Combo1.Text = Data1.Recordset.Fields("rollno") Then Text1.Text = Data1.Recordset.Fields("name") Text2.Text = Data1.Recordset.Fields("fname") Text3.Text = Data1.Recordset.Fields("class") Text4.Text = Data1.Recordset.Fields("sec") Text5.Text = Data1.Recordset.Fields("sex") Text6.Text = Data1.Recordset.Fields("pno") Text7.Text = Data1.Recordset.Fields("add") End If Data1.Recordset.MoveNext Loop End Sub Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() Data1.RecordSource = ("select * from sgen") Data1.Refresh Do While Not Data1.Recordset.EOF If Combo1.Text = Data1.Recordset.Fields("rollno") Then Data1.Recordset.Edit Data1.Recordset.Fields("name") = Text1.Text Data1.Recordset.Fields("fname") = Text2.Text Data1.Recordset.Fields("Branch") = CInt(Text3.Text) Data1.Recordset.Fields("sem") = Text4.Text Data1.Recordset.Fields("sex") = Text5.Text Data1.Recordset.Fields("pno") = Int(Text6.Text) Data1.Recordset.Fields("add") = Text7.Text Data1.Recordset.Update End If Data1.Recordset.MoveNext Loop Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load()
PAGE µ1§
Dim a As Integer Data1.RecordSource = "select * from sgen" Data1.Refresh Do While Not Data1.Recordset.EOF a = Data1.Recordset.Fields("rollno") Combo1.AddItem (a) Data1.Recordset.MoveNext Loop End Sub Private Sub Label1_Click() End Sub FORM-25 Private Sub Combo1_Click() Data1.RecordSource = ("select * from sgen") Data1.Refresh Do While Not Data1.Recordset.EOF If Combo1.Text = Data1.Recordset.Fields("rollno") Then Text1.Text = Data1.Recordset.Fields("name") Text2.Text = Data1.Recordset.Fields("fname") Text3.Text = Data1.Recordset.Fields("class") Text4.Text = Data1.Recordset.Fields("sec") Text5.Text = Data1.Recordset.Fields("sex") Text6.Text = Data1.Recordset.Fields("pno") Text7.Text = Data1.Recordset.Fields("add") End If Data1.Recordset.MoveNext Loop End Sub Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() Data1.RecordSource = ("select * from sgen") Data1.Refresh Do While Not Data1.Recordset.EOF If Combo1.Text = Data1.Recordset.Fields("rollno") Then Data1.Recordset.Delete End If Data1.Recordset.MoveNext Loop Text1.Text = "" Text2.Text = "" Text3.Text = ""
PAGE µ1§
Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Dim a As Integer Data1.RecordSource = "select * from sgen" Data1.Refresh Do While Not Data1.Recordset.EOF a = Data1.Recordset.Fields("rollno") Combo1.AddItem (a) Data1.Recordset.MoveNext Loop End Sub Private Sub Label1_Click() End Sub FORM-26 Private Sub Command1_Click() Data1.RecordSource = "select * from sfee" Data1.Refresh Data1.Recordset.AddNew Data1.Recordset.Fields("rno") = CInt(Combo1.Text) Data1.Recordset.Fields("name") = Text1.Text Data1.Recordset.Fields("Branch") = CInt(Combo2.Text) Data1.Recordset.Fields("mon") = Combo3.Text Data1.Recordset.Fields("fee") = CInt(Text2.Text) Data1.Recordset.Fields("tfee") = CInt(Text3.Text) Data1.Recordset.Fields("sfund") = CInt(Text4.Text) Data1.Recordset.Fields("total") = CInt(Text5.Text) Data1.Recordset.Update Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Combo1.Text = "" Combo2.Text = "" Combo3.Text = "" End Sub
PAGE µ1§
Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Dim a As Integer Data2.RecordSource = "select * from sgen" Data2.Refresh Do While Not Data2.Recordset.EOF a = Data2.Recordset.Fields("rollno") Combo1.AddItem (a) Data2.Recordset.MoveNext Loop End Sub Private Sub Label1_Click() End Sub FORM-27 Private Sub Combo1_Click() Data1.RecordSource = ("select * from sfee") Data1.Refresh Do While Not Data1.Recordset.EOF If Combo1.Text = Data1.Recordset.Fields("rno") Then Text1.Text = Data1.Recordset.Fields("name") Text2.Text = Data1.Recordset.Fields("class") Text3.Text = Data1.Recordset.Fields("mon") Text4.Text = Data1.Recordset.Fields("fee") Text5.Text = Data1.Recordset.Fields("tfee") Text6.Text = Data1.Recordset.Fields("sfund") Text7.Text = Data1.Recordset.Fields("total") End If Data1.Recordset.MoveNext Loop End Sub Private Sub Command1_Click() Data1.RecordSource = ("select * from sfee") Data1.Refresh Do While Not Data1.Recordset.EOF If Combo1.Text = Data1.Recordset.Fields("rno") Then Data1.Recordset.Edit
PAGE µ1§
Data1.Recordset.Fields("name") = Text1.Text Data1.Recordset.Fields("class") = CInt(Text2.Text) Data1.Recordset.Fields("mon") = Text3.Text Data1.Recordset.Fields("fee") = CInt(Text4.Text) Data1.Recordset.Fields("tfee") = CInt(Text5.Text) Data1.Recordset.Fields("sfund") = CInt(Text6.Text) Data1.Recordset.Fields("total") = CInt(Text7.Text) Data1.Recordset.Update End If Data1.Recordset.MoveNext Loop Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Dim a As Integer Data1.RecordSource = "select * from sfee" Data1.Refresh Do While Not Data1.Recordset.EOF a = Data1.Recordset.Fields("rno") Combo1.AddItem (a) Data1.Recordset.MoveNext Loop End Sub Private Sub Label1_Click() End Sub FORM-28 Private Sub Combo1_Click() Data1.RecordSource = ("select * from sfee") Data1.Refresh Do While Not Data1.Recordset.EOF If Combo1.Text = Data1.Recordset.Fields("rno") Then
PAGE µ1§
Text1.Text = Data1.Recordset.Fields("name") Text2.Text = Data1.Recordset.Fields("class") Text3.Text = Data1.Recordset.Fields("mon") Text4.Text = Data1.Recordset.Fields("fee") Text5.Text = Data1.Recordset.Fields("tfee") Text6.Text = Data1.Recordset.Fields("sfund") Text7.Text = Data1.Recordset.Fields("total") End If Data1.Recordset.MoveNext Loop End Sub Private Sub Command1_Click() Data1.RecordSource = ("select * from sfee") Data1.Refresh Do While Not Data1.Recordset.EOF If Combo1.Text = Data1.Recordset.Fields("rno") Then Data1.Recordset.Delete End If Data1.Recordset.MoveNext Loop Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Dim a As Integer Data1.RecordSource = "select * from sfee" Data1.Refresh Do While Not Data1.Recordset.EOF a = Data1.Recordset.Fields("rno") Combo1.AddItem (a) Data1.Recordset.MoveNext Loop End Sub Private Sub Label1_Click()
PAGE µ1§
End Sub FORM-29 Private Sub Command1_Click() Data1.RecordSource = "select * from exam" Data1.Refresh Data1.Recordset.AddNew Data1.Recordset.Fields("emn") = Combo2.Text Data1.Recordset.Fields("rno") = CInt(Combo1.Text) Data1.Recordset.Fields("name") = Text1.Text Data1.Recordset.Fields("total") = CInt(Text2.Text) Data1.Recordset.Fields("scr") = CInt(Text3.Text) Data1.Recordset.Fields("per") = Text4.Text Data1.Recordset.Fields("result") = Combo3.Text Data1.Recordset.Fields("grade") = Combo4.Text Data1.Recordset.Fields("position") = Combo5.Text Data1.Recordset.Update Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Combo1.Text = "" Combo2.Text = "" Combo3.Text = "" Combo4.Text = "" Combo5.Text = "" End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Dim a As Integer Data2.RecordSource = "select * from sgen" Data2.Refresh Do While Not Data2.Recordset.EOF a = Data2.Recordset.Fields("rollno") Combo1.AddItem (a) Data2.Recordset.MoveNext Loop End Sub
PAGE µ1§
Private Sub Label1_Click() End Sub FORM-30 Private Sub Combo1_Click() Data1.RecordSource = ("select * from exam") Data1.Refresh Do While Not Data1.Recordset.EOF If Combo1.Text = Data1.Recordset.Fields("rno") Then Text1.Text = Data1.Recordset.Fields("emn") Text2.Text = Data1.Recordset.Fields("name") Text3.Text = Data1.Recordset.Fields("total") Text4.Text = Data1.Recordset.Fields("scr") Text5.Text = Data1.Recordset.Fields("per") Text6.Text = Data1.Recordset.Fields("result") Text7.Text = Data1.Recordset.Fields("grade") Text8.Text = Data1.Recordset.Fields("position") End If Data1.Recordset.MoveNext Loop End Sub Private Sub Command1_Click() Data1.RecordSource = ("select * from exam") Data1.Refresh Do While Not Data1.Recordset.EOF If Combo1.Text = Data1.Recordset.Fields("rno") Then Data1.Recordset.Edit Data1.Recordset.Fields("emn") = Text1.Text Data1.Recordset.Fields("name") = Text2.Text Data1.Recordset.Fields("total") = CInt(Text3.Text) Data1.Recordset.Fields("scr") = CInt(Text4.Text) Data1.Recordset.Fields("per") = Text5.Text Data1.Recordset.Fields("result") = Text6.Text Data1.Recordset.Fields("grade") = Text7.Text Data1.Recordset.Fields("position") = Text8.Text Data1.Recordset.Update End If Data1.Recordset.MoveNext Loop Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = ""
PAGE µ1§
End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Dim a As Integer Data1.RecordSource = "select * from exam" Data1.Refresh Do While Not Data1.Recordset.EOF a = Data1.Recordset.Fields("rno") Combo1.AddItem (a) Data1.Recordset.MoveNext Loop End Sub Private Sub Label1_Click() End Sub FORM-31 Private Sub Combo1_Click() Data1.RecordSource = ("select * from exam") Data1.Refresh Do While Not Data1.Recordset.EOF If Combo1.Text = Data1.Recordset.Fields("rno") Then Text1.Text = Data1.Recordset.Fields("emn") Text2.Text = Data1.Recordset.Fields("name") Text3.Text = Data1.Recordset.Fields("total") Text4.Text = Data1.Recordset.Fields("scr") Text5.Text = Data1.Recordset.Fields("per") Text6.Text = Data1.Recordset.Fields("result") Text7.Text = Data1.Recordset.Fields("grade") Text8.Text = Data1.Recordset.Fields("position") End If Data1.Recordset.MoveNext Loop End Sub Private Sub Command1_Click() Data1.RecordSource = ("select * from exam") Data1.Refresh Do While Not Data1.Recordset.EOF If Combo1.Text = Data1.Recordset.Fields("rno") Then
PAGE µ1§
Data1.Recordset.Delete End If Data1.Recordset.MoveNext Loop Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Dim a As Integer Data1.RecordSource = "select * from exam" Data1.Refresh Do While Not Data1.Recordset.EOF a = Data1.Recordset.Fields("rno") Combo1.AddItem (a) Data1.Recordset.MoveNext Loop End Sub FORM-32 Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() Data1.RecordSource = "select * from att" Data1.Refresh Data1.Recordset.AddNew Data1.Recordset.Fields("rno") = CInt(Combo1.Text) Data1.Recordset.Fields("mon") = Combo2.Text Data1.Recordset.Fields("name") = Text1.Text Data1.Recordset.Fields("tad") = CInt(Text2.Text) Data1.Recordset.Fields("pa") = CInt(Text3.Text) Data1.Recordset.Fields("ab") = CInt(Text4.Text) Data1.Recordset.Fields("per") = Text5.Text
PAGE µ1§
Data1.Recordset.Update Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Combo1.Text = "" Combo2.Text = "" End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Dim a As Integer Data2.RecordSource = "select * from sgen" Data2.Refresh Do While Not Data2.Recordset.EOF a = Data2.Recordset.Fields("rollno") Combo1.AddItem (a) Data2.Recordset.MoveNext Loop End Sub FORM-33 Private Sub Combo1_Click() Data1.RecordSource = ("select * from att") Data1.Refresh Do While Not Data1.Recordset.EOF If Combo1.Text = Data1.Recordset.Fields("rno") Then Text1.Text = Data1.Recordset.Fields("mon") Text2.Text = Data1.Recordset.Fields("name") Text3.Text = Data1.Recordset.Fields("tad") Text4.Text = Data1.Recordset.Fields("pa") Text5.Text = Data1.Recordset.Fields("ab") Text6.Text = Data1.Recordset.Fields("per") End If Data1.Recordset.MoveNext Loop End Sub Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() Data1.RecordSource = ("select * from att")
PAGE µ1§
Data1.Refresh Do While Not Data1.Recordset.EOF If Combo1.Text = Data1.Recordset.Fields("rno") Then Data1.Recordset.Edit Data1.Recordset.Fields("mon") = Text1.Text Data1.Recordset.Fields("name") = Text2.Text Data1.Recordset.Fields("tad") = CInt(Text3.Text) Data1.Recordset.Fields("pa") = CInt(Text4.Text) Data1.Recordset.Fields("ab") = Text5.Text Data1.Recordset.Fields("per") = Text6.Text Data1.Recordset.Update End If Data1.Recordset.MoveNext Loop Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Dim a As Integer Data1.RecordSource = "select * from att" Data1.Refresh Do While Not Data1.Recordset.EOF a = Data1.Recordset.Fields("rno") Combo1.AddItem (a) Data1.Recordset.MoveNext Loop End Sub FORM-34 Private Sub Combo1_Click() Data1.RecordSource = ("select * from att") Data1.Refresh Do While Not Data1.Recordset.EOF If Combo1.Text = Data1.Recordset.Fields("rno") Then Text1.Text = Data1.Recordset.Fields("mon") Text2.Text = Data1.Recordset.Fields("name") Text3.Text = Data1.Recordset.Fields("tad") Text4.Text = Data1.Recordset.Fields("pa") Text5.Text = Data1.Recordset.Fields("ab") Text6.Text = Data1.Recordset.Fields("per")
PAGE µ1§
End If Data1.Recordset.MoveNext Loop End Sub Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() Data1.RecordSource = ("select * from att") Data1.Refresh Do While Not Data1.Recordset.EOF If Combo1.Text = Data1.Recordset.Fields("rno") Then Data1.Recordset.Delete End If Data1.Recordset.MoveNext Loop Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Dim a As Integer Data1.RecordSource = "select * from att" Data1.Refresh Do While Not Data1.Recordset.EOF a = Data1.Recordset.Fields("rno") Combo1.AddItem (a) Data1.Recordset.MoveNext Loop End Sub FORM-35 Private Sub Combo1_Click() Data1.RecordSource = ("select * from sinfo") Data1.Refresh Do While Not Data1.Recordset.EOF If Combo1.Text = Data1.Recordset.Fields("eid") Then Text1.Text = Data1.Recordset.Fields("name") Text2.Text = Data1.Recordset.Fields("dname")
PAGE µ1§
Text3.Text = Data1.Recordset.Fields("dest") Text4.Text = Data1.Recordset.Fields("sal") Text5.Text = Data1.Recordset.Fields("qli") Text6.Text = Data1.Recordset.Fields("sex") Text7.Text = Data1.Recordset.Fields("age") Text8.Text = Data1.Recordset.Fields("doj") Text9.Text = Data1.Recordset.Fields("add") End If Data1.Recordset.MoveNext Loop End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Dim a As Integer Data1.RecordSource = "select * from sinfo" Data1.Refresh Do While Not Data1.Recordset.EOF a = Data1.Recordset.Fields("eid") Combo1.AddItem (a) Data1.Recordset.MoveNext Loop End Sub FORM-36 Private Sub Combo1_Click() Data1.RecordSource = ("select * from sal") Data1.Refresh Do While Not Data1.Recordset.EOF If Combo1.Text = Data1.Recordset.Fields("eid") Then Text1.Text = Data1.Recordset.Fields("bs") Text2.Text = Data1.Recordset.Fields("ta") Text3.Text = Data1.Recordset.Fields("da") Text4.Text = Data1.Recordset.Fields("ha") Text5.Text = Data1.Recordset.Fields("gs") Text6.Text = Data1.Recordset.Fields("ns") End If Data1.Recordset.MoveNext Loop End Sub
PAGE µ1§
Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Dim a As Integer Data1.RecordSource Data1.RecordSource = "select * from sal" Data1.Refresh Do While Not Data1.Recordset.EOF Data1.Recordset.EOF a = Data1.Recordset.Fields("e Data1.Recordset.Fields("eid") id") Combo1.AddItem (a) Data1.Recordset.MoveNext Loop End Sub FORM-37 Private Sub Combo1_Click() Data1.RecordSource Data1.RecordSource = ("select * from sgen") Data1.Refresh Do While Not Data1.Recordset.EOF Data1.Recordset.EOF If Combo1.Text = Data1.Recordset.Fields("rollno") Data1.Recordset.Fields("rollno") Then Text1.Text = Data1.Recordset.Fields("nam Data1.Recordset.Fields("name") e") Text2.Text = Data1.Recordset.Fields("fn Data1.Recordset.Fields("fname") ame") Text3.Text = Data1.Recordset.Fields("cla Data1.Recordset.Fields("class") ss") Text4.Text = Data1.Recordset.Fields("se Data1.Recordset.Fields("sec") c") Text5.Text = Data1.Recordset.Fields("se Data1.Recordset.Fields("sex") x") Text6.Text = Data1.Recordset.Fields("pno Data1.Recordset.Fields("pno") ") Text7.Text = Data1.Recordset.Fields("add Data1.Recordset.Fields("add") ") End If Data1.Recordset.MoveNext Loop End Sub Private Sub Command1_Click() Unload Me End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Dim a As Integer Data1.RecordSource Data1.RecordSource = "select * from sgen"
PAGE µ1§
Data1.Refresh Do While Not Data1.Recordset.EOF Data1.Recordset.EOF a = Data1.Recordset.Fields("r Data1.Recordset.Fields("rollno") ollno") Combo1.AddItem (a) Data1.Recordset.MoveNext Loop End Sub FORM-38 Private Sub Combo1_Click() Data1.RecordSource = ("select * from sfee") Data1.Refresh Do While Not Data1.Recordset.EOF Data1.Recordset.EOF If Combo1.Text = Data1.Recordset.Fields("rno") Data1.Recordset.Fields("rno") Then Text1.Text = Data1.Recordset.Fields("nam Data1.Recordset.Fields("name") e") Text2.Text = Data1.Recordset.Fields("cla Data1.Recordset.Fields("class") ss") Text3.Text = Data1.Recordset.Fields("mon Data1.Recordset.Fields("mon") ") Text4.Text = Data1.Recordset.Fields("fe Data1.Recordset.Fields("fee") e") Text5.Text = Data1.Recordset.Fields("tf Data1.Recordset.Fields("tfee") ee") Text6.Text = Data1.Recordset.Fields("sf Data1.Recordset.Fields("sfund") und") Text7.Text = Data1.Recordset.Fields("to Data1.Recordset.Fields("total") tal") End If Data1.Recordset.MoveNext Loop End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Dim a As Integer Data1.RecordSource = "select * from sfee" Data1.Refresh Do While Not Data1.Recordset.EOF Data1.Recordset.EOF a = Data1.Recordset.Fields("r Data1.Recordset.Fields("rno") no") Combo1.AddItem (a) Data1.Recordset.MoveNext Loop End Sub FORM-39 Private Sub Combo1_Click()
PAGE µ1§
Data1.RecordSource = ("select * from exam") Data1.Refresh Do While Not Data1.Recordset.EOF Data1.Recordset.EOF If Combo1.Text = Data1.Recordset.Fields("rno") Data1.Recordset.Fields("rno") Then Text1.Text = Data1.Recordset.Fields("em Data1.Recordset.Fields("emn") n") Text2.Text = Data1.Recordset.Fields("nam Data1.Recordset.Fields("name") e") Text3.Text = Data1.Recordset.Fields("to Data1.Recordset.Fields("total") tal") Text4.Text = Data1.Recordset.Fields("sc Data1.Recordset.Fields("scr") r") Text5.Text = Data1.Recordset.Fields("pe Data1.Recordset.Fields("per") r") Text6.Text = Data1.Recordset.Fields("re Data1.Recordset.Fields("result") sult") Text7.Text = Data1.Recordset.Fields("gr Data1.Recordset.Fields("grade") ade") Text8.Text = Data1.Recordset.Fields("pos Data1.Recordset.Fields("position") ition") End If Data1.Recordset.MoveNext Loop End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Dim a As Integer Data1.RecordSource = "select * from exam" Data1.Refresh Do While Not Data1.Recordset.EOF Data1.Recordset.EOF a = Data1.Recordset.Fields("r Data1.Recordset.Fields("rno") no") Combo1.AddItem (a) Data1.Recordset.MoveNext Loop End Sub
FORM-40 Private Sub Combo1_Click() Data1.RecordSource Data1.RecordSource = ("select * from att") Data1.Refresh Do While Not Data1.Recordset.EOF Data1.Recordset.EOF If Combo1.Text = Data1.Recordset.Fields("rno") Data1.Recordset.Fields("rno") Then Text1.Text = Data1.Recordset.Fields("mon Data1.Recordset.Fields("mon") ") Text2.Text = Data1.Recordset.Fields("nam Data1.Recordset.Fields("name") e") Text3.Text = Data1.Recordset.Fields("ta Data1.Recordset.Fields("tad") d") Text4.Text = Data1.Recordset.Fields("pa" Data1.Recordset.Fields("pa")) Text5.Text = Data1.Recordset.Fields("ab" Data1.Recordset.Fields("ab"))
PAGE µ1§
Text6.Text = Data1.Recordset.Fields("per") End If Data1.Recordset.MoveNext Loop End Sub Private Sub Command1_Click() Unload Me End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Form_Load() Dim a As Integer Data1.RecordSource = "select * from att" Data1.Refresh Do While Not Data1.Recordset.EOF a = Data1.Recordset.Fields("rno") Combo1.AddItem (a) Data1.Recordset.MoveNext Loop End Sub
INFORMATION ABOUT COMMON BUTTONS PRESENT ON THE SCREEN Command Buttons:
FIRST: - When we click on the FIRST button then the First record Will be displayed.
NEXT: - When we click on the NEXT button then the Next record Will be displayed.
PAGE µ1§
PREVIOUS : - When we click on the PREVIOUS button then the Previous record will be displayed.
LAST : - When we click on the LAST button then the Last record Will be displayed.
ADD: - This button is used to add a new record in Database.
SAVE: -When we click on SAVE button Record will save in Database File.
DELETE: - This command button is used to delete the selected Record CLOSE:- This command button is used to un load the form.
12. TESTING
Testing is a very critical aspect of the Software Quality Assurance (SQA) and represents the ultimate review of specification, design and code generation .The design process focuses on the logical internals of the software, ensuring that all the statements have been tested and all the functional externals i.e. defined input will produce actual results that agree with the required results. There are two types of testing
1. WHITE BOX TESTING 2. BLACK BOX TESTING
WHITE BOX TESTING
It is also called as glass-box testing. It is predicted on the close examination of the procedural details. Here providing test cases that exercise specific sets of condition and for loops tests the logical paths through the software. It demonstrate that each function operational at the same searching for errors in each function. BLACK BOX TESTING
This is also called as the behavioral testing and it focuses on the functional requirements of the software. It enables the software engineer to derive set of input conditions that will fully exercise all functional requirements for a program. These sets are used to PAGE µ1§
demonstrate that software functions are operational and output is correctly produced and integrity of external database is maintained. It helps to ensure that the internal operations are performed according to specification and all components have been adequately exercised.
TESTING IN OUR SYSTEM
When our system will be fully operational we will perform the following types of tests:
1. INTEGRATION TESTING 2. VALIDATION TESTING Moreover the user will be asked to used this system in parallel with their existing system and notify the end user of any exceptions and errors that they experiences. The rectification of all these will be the developer’s responsibility. Just now we are implementing the incremental integrated testing, where the programs are constructed and tested in small increments that facilitates the easier detection of the errors, isolation and correction.
14. Limitation of the project
Every system may be developed by a professional can not be said to be ideal in its own. The present project implement by us is not an exception. There are different types of constraints that have led to a system with limitation. But these can be removed with some modification. Because of limited time some of these limitations remain in system. The limitations of the project are described below: PAGE µ1§
1. We have not used Bus Facility form so Student can not register for bus facility from this project 2. Student can not register for hostel join with this project.
15. REFERENCES
1. www.google.com 2. www.yahoo.com
16. BIBLIOGRAPHIES
The following BOOKS are used to make this project.
[1]
VISUAL BASIC 6.0(Dhanpat Rai & Co.)
[2]
BLACK BOOK
[3]
MASTERING VISUAL BASIC 6
PAGE µ1§
