PRINCIPAL MR. S.P.C.

LAL

DEVELOPED BY: ARCHNA GUPTA REKHA JAISWAL SHWETA VERMA SATYABHAMA

H.O.D. S.P.SRIVASTVA

PROJECT GUIDE: MR. SANJAY BHARTI MR. RAJEEV PRASAD MRS. ARTI YADAV

This is to certify that ARCHANA GUPTA, REKHA JAISWAL, SHWETA VERMA, SATYABHAMA VISHWAKARMA, of diploma in Computer Science &Engineering batch 2012-2013 has completed their project on COLLEGE MANAGEMENT SYSTEM under my

supervision. The contents imported in the project are result of the student own work carried out as part of academic requirement of final year. The statement made by candidate is correct to the best of my knowledge. The candidates have worked out to my satisfactions.

PRINCIPAL: MR.S.P.C.LAL

PROJECT GUIDE: MR.S.P.SRIVASTAVA MR.RAJEEV PRASAD MR.SANJAY BHARTI MRS.ARTI YADAV

First of all we would like to extend our sincere gratitude to Mr. SANJAY BHARTI, (Lecturer), Computer department, who consented to be our project guide. It was his continual guidance that helped us understand our project well and be able to complete it successfully. We do acknowledge the guidance rendered by our project coordinator, Mr. S.P. SRIVASTAVA, who helped us confirm our project, from a horde out of which we were unable to make out one. We would also like to thank our college which extended help in disguise by providing internet facility, printers and other required support. We also like to extend our thank to Mr. RAJEEV PRASAD GUPTA and Mrs. ARTI YADAV who helped us in every possible way. Last but not the least, we would like to thank our colleagues for boosting us constantly and providing us with subject material, whatever whoever had.

Description
1. Introduction 2. Synopsis 3. Introduction of Visual Basic 4. Introduction of MS Office Access 5. What is Data Base Management System 6. Flowchart 7. College Management System DFD 8. Limitation of Project 9. Table 10. Screen Layout 11. Coding 12. Conclusion 13. Bibliography

Page no.
5-8 9-14 15-16 17 18-19 20-21 22-29 30 31-36 37-57 58-101 102 103

Purpose:The purpose of this application are as follows : The software is for automation of college. It provides following facilities to

Operator:
Can enter details related to a particular student, teacher and book. Can provide membership to members.

Admin:
Can read and write information about any member. Can update, create, delete the record of student, book .

Scope:
The different areas where we can use this application are: Any education institute can make use of it for providing information about students, book and content of the available books. It can be used in offices and modifications can be easily done according to requirements.

Technology Use:
Front End : Visual Basic 6.0. Back End : MS Access.

Assumptions:
This application is used to convert the manual application to the online application. Customized data will be used in this application. User does not have right to enter information About students and books.

Overview:
Project is related to college management which provides Student information, book details to its members. Any person can become a member of the library by filling a prescribed form. They can get the book issued, so that they can take home and return them.

Functionality:

. Can

insert student information and book details.

Keeps the track of issues and return of books .

Feasibility Study
In feasibility study phase we had undergone through various steps which are describe as under : 1. Identify the origin of the information at different level. 2. Identify the expectation of user from computerized System . 3. Analyse the drawback of existing system (manual) System.

WORKING OF PRESENT MANUAL SYSTEM

The college management are involved in the following tasks. 1. Student info process : administrator have to fill student info form and they are provided with UN ID. 2. Library details process, administrator have to fill library details form and they are provided with BOOK ID.

DRAWBACKS OF PRESENT SYSTEM

Some of the problems being faced in manual system are as follows: 1. Fast report generation is not possible. 2. Tracing a book is difficult. 3. Information about fees, attendance and sessional report of the students are not properly maintained. 4. Information about issue/return of the books are not properly maintained. 5. No central database can be created as information is not available in database.

PROPOSED SYSTEM
There will be three major components : 1. College maintenance. 2. Transaction entry. 3. Reports.

Proposed system provides with following solutions: 1. It provides "better and efficient" service to teachers. 2. Reduce the workload of students. 3. Faster retrieval of information about the desired book. 4. Provide facility for proper monitoring reduce paper work and provide data security. 5. All details will be available on a click.

INTRODUCTION:
The project entitled COLLEGE MANAGEMENT SYSTEM is developed as Part of the FINAL YEAR MAIN PROJECT f or the partial fulfillment of the DIPLOMA in Computer Science.

PROJECT:
COLLEGE MANAGEMENT SYSTEM is a software application to maintain. The records related to Information of College , Information of Student , Information of Parents, Information of Teacher, Information of Lab, Information of Library Book Purchase, Stock Maintenance, Book Search, Catalog, Book Issue, Book Returns, Fine Collection, and all necessary requirements f or the College of manage day to day operations.

OBJECTIVE:
The main objective of the application is to automate the existing system Of manually maintain the records of Information of College , Information of Student , Information of Parents, Information of Teacher, Information of Lab, Information of Library the Book Issue, Book Return from the student, Stock Maintenance, Catalog and Book Search to be computerized. So the Book Issue, Return , Searching will be faster .

SCOPE:
This application can be used by any College to automate the process of manually maintaining the records related to the student , student parents, teacher, book etc.

SOFTWARE Environment:

REQUIREMENT SPECIFICATION

Hardware Requirements
The software is made in visual Basic(6.0) & Microsoft Access 2007 For Window 98/xp following are the list of hardware requirement: Pentium Process or 64 MB of RAM 3 GB of hard disk space SVGA Color monitor A 2-button mouse as pointing input device Keyboard A dot-matrix or inkjet printer installed

Software Requirements:The software requires the following items to Installed on computer before it can be successfully run : the

Windows 98/xp/7/8 Visual Basic (5.0)/(6.0) Microsoft Access 2000

10

SYSTEM DEVELOPMENT LIFE CYCLE

A system development life cycle methodology is an explicit breakdown of the work that is required to implement a new or modified information system. It consists of five phases.

System development phases

SLDC Predictive Approach:

Project planning initiate, ensure feasibility, plan schedule, obtain approval for project. Analysis understand business needs and processing requirements. Design define solution system based on requirements and analysis decisions. Implementation construct, test, train users, and install new system. Support keep system running and improve.

11

ANALYSIS
The analysis phase defines the requirements of the system, independent of how these requirements will be accomplished. This phase defines the problem that the customer is trying to solve. The deliverable result at the end of this phase is a requirement document. Ideally, this document states in a clear and precise fashion what is to be built. This analysis represents the ``what'' phase. A functional specification is prepared to clearly mention the analysis details. a) Functional Specification Report Attached at Appendix A

DESIGN
In the design phase the architecture is established. This phase starts with the requirement document delivered by the requirement phase and maps the requirements into architecture. The architecture defines the components, their interfaces and behaviors. The deliverable design document is the architecture. The design document describes a plan to implement the requirements. This phase represents the ``how'' phase. Details on computer programming languages and environments, machines, packages, application architecture, distributed architecture layering, memory size, platform, algorithms, data structures, global type definitions, interfaces, and many other engineering details are established.

12

TESTING
It is the process used to help identify the correctness, completeness, security, and quality of developed computer software. Testing is a process of technical investigation, performed on behalf of stakeholders, that is intended to reveal quality-related information about the product with respect to the context in which it is intended to operate. This includes, but is not limited to, the process of executing a program or application with the intent of finding errors. Quality is not an absolute; it is value to some person. With that in mind, testing can never completely establish the correctness of arbitrary computer software; testing furnishes a 'criticism' or comparison that compares the state and behavior of the product against a specification. Testing is a continuous process and is followed at two levels: a) Unit Testing b) Integration Testing

IMPLEMENTATION
In the implementation phase, the team builds the components either from scratch or by composition. Given the architecture document from the design phase and the requirement document from the analysis phase, the team should build exactly what has been requested, though there is still room for innovation and flexibility. For example, a component may be narrowly designed f or this particular system, or the component may be made more general to satisfy a reusability guideline.

13

MAINTENANCE
In software engineering, software maintenance is the process of enhancing and optimizing deployed software (software release), as well as remedying defects. Software maintenance is one of the phases in the software development process, and follows deployment of the software into the field. The software maintenance phase involves changes to the software in order to correct defects and deficiencies found during field usage as well as the addition of new functionality to improve the software's usability and applicability.

14

One of the truly beautiful thing about visual basic is that it supports a gentle incremental development paradigm. Visual basic is primarily a visual design environment .We create a visual basic application by designing the forms that make up the user interface , adding VBA code to the forms and the objects such as buttons and text boxes on them and adding any require support code in additional modules .

The advantage of visual basic:

1- The following key points make visual basic excellent development tool. Visual basic applications are event driven .Event driven means the user is in control of the application. The user generates a stream of events each time She/he clicks with mouse or press a key on the keyboard . VB application responds those events through the code we have written and attached to those events . 2- VB supports the principle of object oriented design. This means we can compartmentalize different aspects of our applications as objects are developed and test those objects independently of the rest of application. By modifying certain properties and invoking the methods these objects, we can exert a great deal of control over the users interactions with the VB program that we have written. Although VB does not comply with all the concepts and principles behind the object oriented programming.

15

3- Microsoft has designed VB to be a complete windows application development system . In other words VB applications will confront to the WIN 98 look and feel without any extra work. 4- VB is infinitely extensible to through the use of Active X controls , Dynamically linked libraries(DLLs) , and add - ins with VB

Followings are the steps for making front-end in VB.

1. Design and build the user interface. 2. Write code that responds to events. 3. Create and call other procedures as needed. 4. Test and Debug. 5. Convert to run time versions. 6. Prepare distributable set of files.

16

Microsoft Office Access, previously known as Microsoft Access, is a database management system from Microsoft that combines the relational Microsoft Jet Database Engine with a graphical user interface and software-development tools. It is a member of the Microsoft Office suite of applications, included in the Professional and higher editions or sold separately. On May 12 2010, the current version of Microsoft Access 2010 was released by Microsoft in Office 2010; Microsoft Office Access 2007 was the prior version. MS Access stores data in its own format based on the Access Jet Database Engine. It can also import or link directly to data stored in other applications and databases. Software developers and data architects can use Microsoft Access to develop application software, and "power users" can use it to build software applications. Like other Office applications, Access is supported by Visual Basic for Applications, an object-oriented programming language that can reference a variety of objects including DAO (Data Access Objects), ActiveX Data Objects, and many other ActiveX components. Visual objects used in forms and rep orts expose their methods and properties in the VBA programming environment, and VBA code modules may declare and call Windows operating-system functions.

17

Database technology has been described as one of the most rapidly growing areas of computer and information science. As a field, it is still comparatively young manufactures and vendors did not begin to offer database management system. Products until well into the 1960. Despite its youth, however, the field has quickly become one of considerable importance both practically and theoretically. The total amount of data now committed to database can be measured, conservatively, in the billions of bytes; the financial investment involved in represented by a correspondingly enormous figure and it is no exaggeration to say that many thousands of organization have become critically dependent on the continued and successful operation of a database system. So, what exactly is a database system? Basically, it is nothing more than a computer-based record keeping system that is, a system whose overall purpose is to record and maintain information. The information concerned can be anything that is deemed to be of significance to the organization. The system is serving anything, in other words, that many be necessary to the decision making process involved in the management of that organization. Information system is one of the oldest and major components or any organization, since it is directly related to the maintenance of information and data. The size of information grows with size of organization thus grows the amount of data to be maintained and hence arises the need of computerization in order to save tin and ensure accuracy and efficiency. A collection of inter-related data, stored together without harmful or unnecessary redundancy to serve multiple redundancy.

Definition of a Database Management System

A collection of interrelated files and a set of pre-written programs that allow user to access and modify these files. A software system with capabilities to define data and their attributes, establish relationship among data items, manipulate and manage the data.
18

Need of a DBMS DBMS is needed in order come the disadvantages of a file-based system, which are as follows No integrity checks. Accuracy not possible. Data not secure. Quick retrieval not possible.

Major function of a DBMS Ability to represent inherent data structure. Ease of use. Time related performance enhancement. Minimal cost. Minimal redundancy. Search capability. Data privacy and integrity. Compatibility with past. Physical data independence-interface with the future.

DBMS Usage
User interface with the DBMS (instead of the data files directly) DBMS acts as the middleman, which control the flow of inf ormation to and from the file

19

20

Administrator login

Start

Input administrator Login name& Pswd

Password

If correct

NO

Incorrect

YES

College management system

Manage college

Stop

21

Data Flow Diagrams - DFD (also called data flow graphs) are commonly used during problem analysis. Data Flow Diagrams (DFDs) are quite general and are not limited to problem analysis for software requirements specification. They were in use long before the software engineering disciplines begin. DFDs are very useful in understanding a system and can be effectively used during analysis. A DFD shows the flow of data through a system. It views a system as a function that transforms the inputs into desired outputs. Any complex system will not perform this transformation in a "single step", and a data will typically undergo a series of transformations before it becomes the output. The DFD aims to capture the transformations that take place within a system to the input data so that eventually the output data is produced. The agent that performs the transformation of data from one state to another is called a process (or a bubble). So a DFD shows the movement of data through the different transformation or process in the system. DFDs are basically of 2 types: Physical and logical ones. Physical DFDs are used in the analysis phase to study the functioning of the current system. Logical DFDs are used in the design phase for depicting the flow of data in proposed system. Data Flow Diagrams are composed of the four basic symbols shown below.

The External Entity symbol represents sources of data to the system or destinations of data from the system. The Data Flow symbol represents movement of data. The Data Store symbol represents data that is not moving (delayed data at rest). The Process symbol represents an activity that transforms or manipulates the data (combines, reorders, converts, etc.).
22

Any system can be represented at any level of detail by these four symbols

External Entities

External entities determine the system boundary. They are external to the system being studied. They are often beyond the area of influence of the developer. These can represent another system or subsystem. These go on margins/edges of data flow diagram. External entities are named with appropriate name. Processes

Processes are work or actions performed on incoming data flows to produce outgoing data flows. These show data transformation or change. Data coming into a process must be "worked on" or transformed in some way. Thus, all processes must have inputs and outputs. In some (rare) cases, data inputs or outputs will only be shown at more detailed levels of the diagrams. Each process in always "running" and ready to accept data. Major functions of processes are computations and making decisions. Each process may have dramatically different timing: yearly, weekly, daily.

23

Naming Processes Processes are named with one carefully chosen verb and an object of the verb. There is no subject. Name is not to include the word "process". Each process should represent one function or action. If there is an "and" in the name, you likely have more than one function (and process). For example, get invoice, update customer and create order Processes are numbered within the diagram as convenient. Levels of detail are shown by decimal notation. For example, top level process would be Process 14, next level of detail Processes 14.1-14.4, and next level with Processes 14.3.1-14.3.6. Processes should generally move from top to bottom and left to right.

Data Flow

Data flow represents the input (or output) of data to (or from) a process ("data in motion"). Data flow only data, not control. Represent the minimum essential data the process needs. Using only the minimum essential data reduces the dependence between processes. Data flows must begin and/or end at a process. Data flows are always named. Name is not to include the word "data". Should be given unique names. Names should be some identifying noun. For example, order, payment, complaint. Data Stores

or

Data Stores are repository for data that are temporarily or permanently recorded within the system. It is an "inventory" of data. These are common link between data and process models. Only processes may connect with data stores.
24

There can be two or more systems that share a data store. This can occur in the case of one system updating the data store, while the other system only accesses the data. Data stores are named with an appropriate name, not to include the word "file", Names should consist of plural nouns describing the collection of data. Like customers, orders, and products. These may be duplicated. These are detailed in the data dictionary or with data description diagrams.

25

Level 0 DFD

TEACHER DETAILS
MANAGER DETAILS

TEACHER DETAILS

ADMINITRAT OR

COLLEGE MANAGEMENT SYSTEM STUDENT DETAILS

CMS DATABASE

STUDENTDETAIS

26

Level 1 DFD
ADMINITRATOR

LOGIN

VALIDATE

VERIFY COLLEGE MANAGEMENT SYSTEM STUDENTDETAILS

STUDENT INFORMATION LOGIN LOGIN

27

LEVEL 2DFD

TEACHER

SESSIONAL

Student information

Student view

Sessional report
ATTENDANCE PROCESS LECTURE PROCESS

SESSIONAL

Student attendance view

Lecture view

LECTURE

ATTENDANCE

28

LEVEL 2 DFD

ADMINISTER

STUDENT INFORMATION

STUDENT VIEW STUDENT INFORMATION TEACHER INFORMATION

STUDENT FEES

STUDENT ATTENDANCE

TEACHER VIEW TEACHER VIEW

FEES VIEW ATTENDANCE VIEW STUDENT FEES

STUDENT ATTENDANCE

29

This Project on COLLEGE MANAGEMENR SYSTEM has been made in order to give a generalized over view of role of computer in COLLEGE MANAGEMENT SYSTEM . I had designed my project in such a manner, which fulfills the requirements that I had tried to keep it as versatile possible giving all sorts of reports which are generally necessary for a College management System. The Limitation Of this project:1. My project cant accept fees through credit card. This project can contain the printing facility of reports.

30

31

LOGIN: Table
S.NO. Field Name Data Type 1 username Text 2 password text

STUDENT DETAILS: Table

S.NO 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13.

Field Name UN_ID STU_NAME ROLL_NO BRANCH YEAR DATE_OF_ADMISSION DATE_OF_BIRTH CONTACT_NO EMAIL_ID ADDRESS GENDER FATHERS_NAME TOTAL ATTENDANCE

Data Type Number Text Number Text Text Date/Time Date/Time Number Text Text Text Text Number

32

PARENTS DETAILS: Table

S.NO 1. 2. 3. 4. 5. 6. 7. 8. 9. Field Name Data Type STU_NAME FATHERS_NAME FATHERS_QULIFICATION FATHERS_OCCUPATION MOTHERS_NAME MOTHERS_QULIFICATION MOTHERS_OCCUPATION ADDRESS Data Type Number Text Text Text Text Text Text Text Text

STUDENT FEES: Table

S.NO 1. 2. 3. 4. 5. 6. 7. Field Name UN_ID STU_NAME TOTAL_FEES DATE DEPOSITE_FEES DUE_FEES YEAR Data Type Number Text Currency Date/Time Currency Currency Text

STUDENT ATTENDANCE: Table

S.NO 1. 2. 3. 4. 5. 6. Field Name UN_ID STU_NAME FATHERS_NAME MONTH LECTURE STU_ATTENDANCE Data Type Number Text Text Text Number Number

33

TEACHER INFORMATION: Table

S.NO 1. 2. 3. 4. 5. 6. Field Name NAME QUALIFIICATION QUALIFICATION ADDRESS DEPARTMENT_TEACHER DATE_OF_JOINING POST Data Type Text Text Text Text Date/Time Text

SESSIONAL: Table
S.NO 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 14. 15. 16. Field Name SESSION SUBJECT BRANCH YEAR UN_ID STU_NAME FATHERS_NAME ATTENDANCE PER_ATTENDANCE MARKS_OF_ATTENDANCE TEST1(50) TEST2(50) HALF_YEARLY(50) TOTAL_TEST HOME_MARKS(30) TOTAL(100) TOTAL_MARKS(100) Data Type Text Text Text Text Number Text Text Number Number Number Number Number Number Number Number Text

TEACHER LECTURE: Table

S.NO 1. 2. 3. Field Name Month NO_of_Lect Subject Data Type Text Number Text

34

LIBRARY: Table
S.NO 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. Field Name BOOK_ID BOOK_NAME SUBJECT DEPARTMENT AUTHOR PUBLISHER ISBN EDITION BOOK_CONDITION PRICE NO_OF_COPY Data Type Number Text Text Text Text Text Number Text Text Currency Number

ISSUE: Table
S.NO 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. Field Name BOOK _ID BOOK_NAME AUTH OR SUBJECT PRICE UN_ID STU_NAME DATE ISSUE ISBN Data Type Number Text Text Text Currency Number Text Date/Time Text Text

RETURN BOOK: Table

S.NO

1. 2. 3. 4. 5. 6. 7.

Field Name UN_ID STU_NAME BOOK_ID BOOK_NAME AUTH OR_NAME SUBJECT DATE

Data Type Number Text Number Text Text Text Date/Time

35

36

37

The login form has been designed for user authentication. So that only the authenticated person can logged to the system.

38

MDI form has been designed to contains all required menus which perform several task.

39

This form has been designed to changed old password with new password.

40

This form has been designed to insert all relevant information about new STUDENT.

41

This form has been designed to insert all relevant information about the parents of all student.

42

This form has been designed to insert all relevant information of all student fees

43

This form has been designed to insert all relevant information of all students attendance.

44

This form has been designed to insert all relevant information of all teacher details.

45

This form has been designed to insert all relevant information of all teachers lecture

46

This form has been designed to insert all relevant information of sessional details for a particular students according to subject.

47

This form has been designed to insert all information about new books.

48

This form has been designed to insert all information about issue book according to book id and student un id

49

This form has been designed to insert all information about return book according to student un id and book id.

50

This form has been designed to perform all relevant information about a particular Student.

51

This form has been designed to perform all relevant information about a parents view of a particular student.

52

This form has been designed to perform all relevant information about student attendance according to student un id.

53

This form has been designed to perform all information about particular teacher.

54

This form has been designed to perform all information about sessional according to a particular subject.

student

55

This form has been designed to print the sessional report of students.

56

57

Dim i As Integer Private Sub ProgressBar1_MouseDown(Button As Integer, Shift Integer, x As Single, y As Single) End Sub Private Sub Timer1_Timer() i=i+1 ProgressBar1.Value = ProgressBar1.Value + 1 Select Case i Case 1 Label8.Caption = "Loading Forms..." Case 5 Label8.Caption = "Connecting Database..." Case 12 Label8.Caption = "Preparing User Inteface..." Case 17 Label8.Caption = "Checking Connectivity..." Case 21 Label8.Caption = "Preparing Accounts Info..." Case 23 Label8.Caption = "Preparations Complete!!!" Timer1.Enabled = False Unload Me Form1.Show 'frmRed.Show End Select End Sub

58

Private Sub BOOK_ISSUE_Click() Form13.Show End Sub Private Sub BOOK_RETUTN_Click() Form17.Show End Sub Private Sub CHANGEPASSWORD_Click() Form3.Show End Sub Private Sub EXIT_Click(Index As Integer) End End Sub Private Sub FEEDETAIL_Click() Form5.Show End Sub Private Sub LECTURE_DETAILS_Click() Form12.Show End Sub Private Sub LIBRARY_DETAILS_Click() Form11.Show End Sub Private Sub PARENT_VIEW_Click() Form8.Show End Sub

59

Private Sub PARENTS_DETAIL_Click() Form4.Show End Sub Private Sub SESSIONAL_Click() Form10.Show End Sub Private Sub STU_ATT_Click() Form15.Show End Sub Private Sub STU_VIEW_Click() Form7.Show End Sub Private Sub STUDENT_ATTENDANCE_Click() Form6.Show End Sub Private Sub STUDENTDETAIL_Click(Index As Integer) Form2.Show End Sub Private Sub SUB_SESSIONAL_Click() Form16.Show End Sub Private Sub TEACHER_DETAILS_Click() Form9.Show End Sub Private Sub TEACHER_VIEW_Click() Form14.Show End Sub

60

Private Sub Command1_Click() If Text1.Text = "" or Text2.Text = "" Then MsgBox "please enter all the details" Else If Adodc1.Recordset.Fields("USER_ID") = Text1.Text And Adodc1.Recordset.Fields("PWD") = Text2.Text Then MDI Form1.Show Else MsgBox "either user ID or password is incorrect" End If End If End Sub Private Sub Command2_Click() End End Sub Private Sub Timer2_Timer() If Label3.Left = 13450 Then Timer2.Enabled = False Timer3.Enabled = True Else Label3.Left = Label3.Left + 25 End If End Sub Private Sub Timer3_Timer() If Label3.Left = 1800 Then Timer3.Enabled = False Timer2.Enabled = True Else Label3.Left = Label3.Left - 25 End If End Sub
61

Private Sub Command1_Click() If Text1.Text = "" or Text2.Text = "" or Text3.Text = "" Then MsgBox "Please enter all details" Else If Text1.Text = Adodc1.Recordset.Fields(0) And Text2.Text = Adodc1.Recordset.Fields(1) Then Adodc1.Recordset.Fields(1) = Text3.Text Adodc1.Recordset.Update Adodc1.Recordset.MoveNext Unload Me Load Form3 Form3.Show MsgBox "Password has been changed now" Else MsgBox "Either user name or old password is incorrect" End If End If End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub

62

Private Sub Calendar1_Click() Dim da As Date da = Date If Calendar1.object > da Then A = MsgBox("Future date is not possible", vbInformation, "Date Error") Else If Calendar1.object > da - 5010 Then A = MsgBox("Addmission not possible before 14 year", vbInformation, "Date Error") Else Text5.Text = Calendar1.object Calendar1.Visible = False End If End Sub Private Sub Calendar2_Click() Dim da As Date da = Date If Calendar2.object > da Then A = MsgBox("Future Date is not possible", vbInformation, "Date Error") Else Text4.Text = Calendar2.object Calendar2.Visible = False End If End Sub Private Sub Command1_Click() If Text1.Text = "" or Text2.Text = "" or Text3.Text = "" or Combo1.Text = "" or Combo2.Text = "" or Text4.Text = "" or Text5.Text = "" or Text6.Text = "" or Text7.Text = "" or Text8.Text = "" Then MsgBox "Please fill all details" Else Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(0).Value = Text1.Text
63

' for parent detail insertion Adodc2.Recordset.AddNew Adodc2.Recordset.Fields(0).Value = Text1.Text Adodc2.Recordset.Fields(1).Value = Text2.Text Adodc2.Recordset.Fields(2).Value = Text9.Text '************************* 'for student fees Adodc3.Recordset.AddNew Adodc3.Recordset.Fields(0).Value = Text1.Text Adodc3.Recordset.Fields(1).Value = Text2.Text '************************* 'for student attendance Adodc4.Recordset.AddNew Adodc4.Recordset.Fields(0).Value = Text1.Text Adodc4.Recordset.Fields(1).Value = Text2.Text 'for main table Adodc1.Recordset.Fields(1).Value = UCase$(Text2.Text) 'roll no is number in database Adodc1.Recordset.Fields(2).Value = Text3.Text Adodc1.Recordset.Fields(3).Value = UCase$(Combo1.Text) Adodc1.Recordset.Fields(4).Value = Combo2.Text Adodc1.Recordset.Fields(5).Value = Text4.Text Adodc1.Recordset.Fields(6).Value = UCase$(Text5.Text) Adodc1.Recordset.Fields(7).Value = UCase$(Text6.Text) Adodc1.Recordset.Fields(8).Value = UCase$(Text7.Text) Adodc1.Recordset.Fields(9).Value = UCase$(Text8.Text) Adodc1.Rec ordset.Fields(11).Value = UCase$(Text9.Text) If Option1.Value = True Then Adodc1.Recordset.Fields(10).Value = Option1.Caption Else If Option2.Value = True Then Adodc1.Recordset.Fields(10).Value = Option2.Caption End If Adodc1.Recordset.Update MsgBox "YOUR DATA INSERTED SUCCESSFULLY" Unload Me Load Form2

64

Form2.Show End If End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() Form4.Show End Sub Private Sub Form_Load() RandomNumbers Text1.Text = Numbers Combo1.ListIndex = 0 Combo2.ListIndex = 0 Combo1.Text = "select" End Sub *************************** 'for change name Private Sub Text2_Change() Adodc1.RecordSource = "select * from Stu_Info" Adodc1.Refresh While Adodc1.Recordset.EOF <> True If Adodc1.Recordset.Fields(0).Value = Text1.Text Then RandomNumbers (5) Text1.Text = Numbers End If Adodc1.Recordset.MoveNext Wend End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii < 48 or KeyAscii > 58 Then If KeyAscii = 8 Then Else KeyAscii = 0

65

MsgBox "It will contain number only" End If End If End Sub Private Sub Text4_Click() Calendar2.Visible = True Calendar2.Value = Date End Sub Private Sub Text5_Click() Calendar1.Visible = True Calendar1.Value = Date End Sub Private Sub Text6_KeyPress(KeyAscii As Integer) If KeyAscii < 48 or KeyAscii > 58 Then If KeyAscii = 8 Then Else KeyAscii = 0 MsgBox "It will contain number only" End If End If End Sub Private Sub Text6_Change() If Text6.MaxLength = 10 Then MsgBox "Please enter correct contact number" End If Text7.Text = "" Text6.SetFocus End Sub

66

Private Sub Command1_Click() If Text1.Text = "" or Combo1.Text = "" or Combo2.Text = "" or Text2.Text = "" or DataCombo1.Text = "" or Combo3.Text = "" or Text3.Text = "" or Combo4.Text = "" or Text4.Text = "" Then MsgBox "please enter parents details" Else Adodc2.RecordSource = "select * from Parents_details" Adodc2.Refresh While Adodc2.Recordset.EOF <> True If Adodc2.Recordset.Fields("UN_ID").Value = DataCombo1.Text And Adodc2.Recordset.Fields("MOTHERS_NAME").Value = Text3.Text Then MsgBox " Already ADDED" MsgBox "Please try another" Unload Me Load Form4 Form4.Show Exit Sub End If Adodc2.Recordset.MoveNext Wend Adodc1.RecordSource = "insert into Parents_details where " + Text3.Text = "" + "and UN_ID=" & Val(DataCombo1.Text) Adodc1.Recordset.Fields(5) = Text3.Text Adodc1.Recordset.Fields(3) = Combo1.Text Adodc1.Recordset.Fields(4) = Combo2.Text Adodc1.Recordset.Fields(8) = Text4.Text Adodc1.Recordset.Fields(6) = Combo3.Text Adodc1.Recordset.Fields(7) = Combo4.Text MsgBox "Data inserted successfully" Unload Me Load Form4
67

Form4.Show End If End Sub Private Sub Command2_Click() Text3.Text = "" Text4.Text = "" End Sub Private Sub DataCombo1_Click(Area As Integer) Adodc1.RecordSource = "select * from Parents_details where UN_ID=" & Val(DataCombo1.Text) Adodc1.Refresh End Sub Private Sub Form_Load() Combo2.ListIndex = 0 Combo4.ListIndex = 0 Combo1.ListIndex = 0 Combo3.ListIndex = 0 End Sub

68

Private Sub Calendar1_Click() Dim da As Date da = Date If Calendar1.object > da Then A = MsgBox("Future Date is not possible", vbInformation, "Date Error") Else Text3.Text = Calendar1.object Calendar1.Visible = False End If End Sub Private Sub Combo1_Click() If Combo1.ListIndex = 0 Then Text2.Text = 10000 End If If Combo1.ListIndex = 1 Then Text2.Text = 20000 End If If Combo1.ListIndex = 2 Then Private Sub Command1_Click() Text2.Text = 30000 End If End Sub Private Sub Command1_Click() If Text1.Text = "" or Text2.Text = "" or Text3.Text = "" or Text4.Text = "" or Text5.Text = "" or DataCombo1.Text = "" or Combo1.Text = "" Then MsgBox "Please enter all details" Else Adodc1.Recordset.Fields(2) = Text2.Text Adodc1.Recordset.Fields(3) = Text3.Text Adodc1.Recordset.Fields(4) = Text4.Text
69

Adodc1.Recordset.Fields(5) = Text5.Text Adodc1.Recordset.Fields(6) = Combo1.Text Adodc1.Recordset.Update Adodc1.Recordset.MoveNext Unload Me Load Form5 Form5.Show MsgBox "Data inserted successfully" End If End Sub Private Sub Command2_Click() Text3.Text = "" Text4.Text = "" Text5.Text = "" End Sub Private Sub DataCombo1_Click(Area As Integer) Adodc1.RecordSource = "select * from Stu_fees where UN_ID=" & Val(DataCombo1.Text) Adodc1.Refresh End Sub Private Sub Form_Load() Combo1.ListIndex = 0 End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii < 48 or KeyAscii > 58 Then If KeyAscii = 8 Then Else KeyAscii = 0 MsgBox "it will contain number only" End If End If End Sub

70

Private Sub Text3_Click() Calendar1.Visible = True Calendar1.Value = Date End Sub Private Sub Text4_KeyPress(KeyAscii As Integer) If KeyAscii < 48 or KeyAscii > 58 Then If KeyAscii = 8 Then Else KeyAscii = 0 MsgBox "it will contain number only" End If End If End Sub Private Sub Text4_Change() Text5.Text = Val(Text2.Text) - Val(Text4.Text) End Sub Private Sub Text5_KeyPress(KeyAscii As Integer) If KeyAscii < 48 or KeyAscii > 58 Then If KeyAscii = 8 Then Else KeyAscii = 0 MsgBox "it will contain number only" End If End If End Sub

71

Private Sub Command1_Click() If DataCombo1.Text = "" or Text1.Text = "" or Text2.Text = "" or Combo1.Text = "" or Combo2.Text = "" or Text3.Text = "" or Text4.Text = "" Then MsgBox "please fill" Else '******************************************* Adodc3.RecordSource = "select * from Stu_att" Adodc3.Refresh While Adodc3.Recordset.EOF <> True If Adodc3.Recordset.Fields(0).Value = DataCombo1.Text And Adodc3.Recordset.Fields(3).Value = Combo1.Text And Adodc3.Recordset.Fields(6).Value = Combo2.Text Then MsgBox "STUDENT ATTENDANCE Already ADDED" MsgBox "Please try another" Unload Me Load Form6 Form6.Show Exit Sub End If Adodc3.Recordset.MoveNext Wend Adodc3.Recordset.AddNew Adodc3.Recordset.Fields(0).Value = DataCombo1.Text Adodc3.Recordset.Fields(1).Value = Text1.Text '********************************************* Adodc3.Recordset.Fields(4) = Text2.Text Adodc3.Recordset.Fields(2) = Text4.Text Adodc3.Recordset.Fields(3) = Combo1.Text Adodc3.Recordset.Fields(5) = Text3.Text Adodc3.Recordset.Fields(6) = Combo2.Text Adodc3.Recordset.Update MsgBox "RECORD ADDED successfully"
72

s1 = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\COLLGE MNG\STUDENT.mdb;Persist Security Info=False;Jet OLEDB:Database Password=cms" A.Open s1, "", "" A.Close Unload Me Load Form6 Form6.Show End If End Sub Private Sub Command2_Click() Unload Me Load Form6 Form6.Show End End Sub Private Sub DataCombo1_Click(Area As Integer) Adodc1.RecordSource = "select * from Parents_details where UN_ID=" & Val(DataCombo1.Text) Adodc1.Refresh End Sub Private Sub DataCombo3_Click(Area As Integer) Adodc5.RecordSource = "select * from LEC_table where Subject='" & (DataCombo3.Text) & "'" Adodc5.Refresh End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 58 Then If KeyAscii = 8 Then Else KeyAscii = 0

73

MsgBox "It will contain number only" End If End If End Sub Private Sub Text3_Change() If Val(Text2.Text) > 31 Then MsgBox "TOTAL ATTENDANCE CAN NOT BE GREATER THAN 31" Text2.Text = "" Text3.Text = "" Text2.SetFocus End If If Val(Text3.Text) > Val(Text2.Text) Then MsgBox "Student Attendance ERROR" Text3.Text = "" End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 58 Then If KeyAscii = 8 Then Else KeyAscii = 0 MsgBox "It will contain number only" End If End If End Sub

74

Private Sub Calendar1_Click() Dim da As Date da = Date If Calendar1.object > da Then A = MsgBox("Future Admission not possible", vbInformation, "Date Error") ' Else If Calendar1.Object < da - 7 Then 'a = MsgBox("Purchase Date should be within 7 days", vbInformation, "Date Error") Else Text4.Text = Calendar1.object Calendar1.Visible = False End If End Sub Private Sub Command1_Click() If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Combo1.Text = "" Or Combo2.Text = "" Then MsgBox "Please fill inf ormation" Else Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(0) = Text1.Text Adodc1.Recordset.Fields(1) = Text2.Text Adodc1.Recordset.Fields(2) = Text3.Text Adodc1.Recordset.Fields(3) = Combo1.Text Adodc1.Recordset.Fields(4) = Text4.Text Adodc1.Recordset.Fields(5) = Combo2.Text Adodc1.Recordset.Update Adodc1.Recordset.MoveNext Unload Me Load Form9 Form9.Show
75

MsgBox "Data inserted successfully" End If End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Combo1.Text = "" Combo2.Text = "" End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Combo1.ListIndex = 0 Combo2.ListIndex = 0 End Sub Private Sub Text4_Click() Calendar1.Visible = True Calendar1.Value = Date End Sub

76

Private Sub Command1_Click() If Text1.Text = "" Or Combo1.Text = "" Or Combo2.Text = "" Then MsgBox "Please data insert" Else '************************************ Adodc1.RecordSource = "select * from LEC_table" Adodc1.Refresh While Adodc1.Recordset.EOF <> True If Adodc1.Recordset.Fields(0).Value = Combo1.Text Adodc1.Recordset.Fields(2).Value = Combo2.Text Then MsgBox "STUDENT ATTENDANCE Already ADDED" MsgBox "Please try another" Unload Me Load form12 Form12.Show Exit Sub End If Adodc1.Recordset.MoveNext Wend Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(0) = Combo1.Text Adodc1.Recordset.Fields(1) = Text1.Text Adodc1.Recordset.Fields(2) = Combo2.Text Adodc1.Recordset.Update Adodc1.Recordset.MoveNext MsgBox "Data inserted successfully" Unload Me Load Form12 Form12.Show End If End Sub
77

And

Private Sub Command2_Click() Adodc2.RecordSource = "select SUM(NO_of_Lect) where Subject='" + Combo2.Text + "' " Adodc2.Refresh Text2.DataField = "expr1000" End Sub Private Sub Form_Load() Combo1.ListIndex = 0 Combo2.ListIndex = 0 End Sub

from LEC_table

Private Sub Text1_Change() If Val(Text1.Text) > 31 Then MsgBox "TOTAL LECTURE CAN NOT BE GREATER THAN 31" Text1.Text = "" End If End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 58 Then If KeyAscii = 8 Then Else KeyAscii = 0 MsgBox "It will contain number only" End If End If End Sub

78

Dim A As New ADODB.Connection Dim s1 As String Private Sub COMMAND4_CLICK() Combo1.Text = "" Text7.Text = "" Text8.Text = "" Text9.Text = "" Text11.Text = "" End Sub Private Sub Command1_Click() If Combo1.Text = "" or Text15.Text = "" or Text16.Text = "" or DataCombo1.Text = "" or Text1.Text = "" or Text2.Text = "" or Text3.Text = "" or Text5.Text = "" or Text6.Text = "" or Text7.Text = "" or Text8.Text = "" or Text9.Text = "" or Text10.Text = "" or Text11.Text = "" or Text12.Text = "" or Text13.Text = "" or Text14.Text = "" Then MsgBox "Please fill all details", vbInformation, "college management system" Else '************************************************** Adodc1.RecordSource = "select * from Sessional" Adodc1.Refresh While Adodc1.Recordset.EOF <> True If Adodc1.Recordset.Fields(4).Value = DataCombo1.Text And Adodc1.Recordset.Fields(1).Value = Combo2.Text Then MsgBox "STUDENT Sessional for this subject Already ADDED" MsgBox "Please try another" Unload Me Load Form10 Form10.Show Exit Sub End If

79

Adodc1.Recordset.MoveNext Wend '************************************************* Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(0).Value = Combo1.Text Adodc1.Recordset.Fields(1).Value = Combo2.Text Adodc1.Recordset.Fields(3).Value = Text15.Text Adodc1.Recordset.Fields(2).Value = Text16.Text Adodc1.Recordset.Fields(4).Value = DataCombo1.Text Adodc1.Recordset.Fields(5).Value = UCase$(Text1.Text) Adodc1.Recordset.Fields(6).Value = UCase$(Text2.Text Adodc1.Recordset.Fields(7).Value = UCase$(Text3.Text) Adodc1.Recordset.Fields(8).Value = UCase$(Text14.Text) Adodc1.Recordset.Fields(9).Value = UCase$(Text5.Text) Adodc1.Recordset.Fields(10).Value = UCase$(Text6.Text) Adodc1.Recordset.Fields(11).Value = UCase$(Text7.Text) Adodc1.Recordset.Fields(12).Value = UCase$(Text8.Text) Adodc1.Recordset.Fields(13).Value = UCase$(Text9.Text) Adodc1.Recordset.Fields(14).Value = UCase$(Text10.Text) Adodc1.Recordset.Fields(15).Value = UCase$(Text11.Text) Adodc1.Recordset.Fields(16).Value = UCase$(Text12.Text) Adodc1.Recordset.Fields(17).Value = UCase$(Text13.Text) Adodc1.Recordset.Update MsgBox "YOUR DATA INSERTED SUCCESSFULLY" Unload Me Load Form10 Form10.Show End If End Sub Private Sub Command2_Click() End End Sub

80

Private Sub Command3_Click() Form16.Show End Sub Private Sub DataCombo1_Click(Area As Integer) Adodc4.RecordSource = "select * from Stu_Info where UN_ID=" & Val(DataCombo1.Text) Adodc4.Refresh Frame3.Visible = True End Sub Private Sub combo2_click() Adodc5.RecordSource = "select SUM(NO_of_Lect) where Subject='" + Combo2.Text + "' " Adodc5.Refresh Text3.DataField = "expr1000" Text3.Visible = True

from LEC_table

Adodc6.RecordSource = "select SUM(STU_ATTENDANCE) from Stu_att where Subject='" + Combo2.Text + "' and UN_ID=" & Val(DataCombo1.Text) & "" Adodc6.Refresh Text14.DataField = "expr1000" Frame1.Visible = True End Sub Private Sub Form_Load() Text14.Text = 0 Text3.Text = 0 End Sub Private Sub Text11_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 58 Then If KeyAscii = 8 Then Else

81

KeyAscii = 0 MsgBox "It will contain number only" End If End If End Sub Private Sub Text12_Change() Text13.Text = Val(Text12.Text) / 10 End Sub Private Sub Text14_Change() Text5.Text = (Val(Text14.Text) / Val(Text3.Text)) * 100 End Sub Private Sub Text7_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 58 Then If KeyAscii = 8 Then Else KeyAscii = 0 MsgBox "It will contain number only" End If End If End Sub Private Sub Text7_Change() If Val(Text7.Text) > 50 Then MsgBox "TOTAL MARKS CAN NOT BE GREATER THAN 50" Text7.Text = "" End If End Sub Private Sub Text8_Change() If Val(Text8.Text) > 50 Then MsgBox "TOTAL MARKS CAN NOT BE GREATER THAN 50" Text8.Text = "" End If End Sub

82

Private Sub Text8_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 58 Then If KeyAscii = 8 Then Else KeyAscii = 0 MsgBox "It will contain number only" End If End If End Sub Private Sub Text9_Change() Text10.Text = (Val(Text7.Text) + Val(Text8.Text) + Val(Text9.Text)) / 3 If Val(Text9.Text) > 50 Then MsgBox "TOTAL MARKS CAN NOT BE GREATER THAN 50" Text9.Text = "" End If End Sub Private Sub Text11_Change() Text12.Text = Val(Text6.Text) + Val(Text7.Text) + Val(Text8.Text) If Val(Text11.Text) > 30 Then MsgBox "TOTAL MARKS CAN NOT BE GREATER THAN 30" Text11.Text = "" End If End Sub Private Sub Text5_Change() Text6.Text = (Val(Text5.Text) * 20) / 100 End Sub

83

Private Sub Text9_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 58 Then If KeyAscii = 8 Then Else KeyAscii = 0 MsgBox "It will contain number only" End If End If End Sub

84

Private Sub Command1_Click() If Text1.Text = ""or Text2.Text = "" or Text3.Text = "" or Text5.Text = "" or Text6.Text = "" or Text7.Text = "" or Text8.Text = "" or Combo2.Text = "" or Combo1.Text = "" or Text9.Text = "" Then MsgBox "Please insert all details" Else Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(0) = UCase$(Text1.Text) Adodc1.Recordset.Fields(1) = UCase$(Text5.Text) Adodc1.Recordset.Fields(2) = UCase$(Text2.Text) Adodc1.Recordset.Fields(3) = UCase$(Combo2.Text) Adodc1.Recordset.Fields(4) = UCase$(Text3.Text) Adodc1.Recordset.Fields(5) = UCase$(Text6.Text) Adodc1.Recordset.Fields(6) = UCase$(Text7.Text) Adodc1.Recordset.Fields(7) = UCase$(Combo1.Text) Adodc1.Recordset.Fields(8) = Text8.Text Adodc1.Recordset.Fields(9) = Text9.Text Adodc1.Recordset.Update Adodc1.Recordset.MoveNext Unload Me Load Form11 Form11.Show MsgBox "Data inserted successfully" End If End Sub

85

Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text9.Text = "" End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() RandomNumbers (6) Text1.Text = Numbers Combo1.ListIndex = 0 Combo2.ListIndex = 0 End Sub Private Sub Text2_Change() Adodc1.RecordSource = "select * from Library" Adodc1.Refresh While Adodc1.Recordset.EOF <> True If Adodc1.Recordset.Fields(0).Value = Text1.Text Then RandomNumbers (6) Text1.Text = Numbers End If Adodc1.Recordset.MoveNext Wend End Sub

86

Private Sub Text8_KeyPress(KeyAscii As Integer) If KeyAscii < 48 or KeyAscii > 58 Then If KeyAscii = 8 Then Else KeyAscii = 0 MsgBox "It will contain number only" End If End If End Sub Private Sub Text9_KeyPress(KeyAscii As Integer) If KeyAscii < 48 or KeyAscii > 58 Then If KeyAscii = 8 Then Else KeyAscii = 0 MsgBox "It will contain number only" End If End If End Sub

87

Dim A As New ADODB.Connection Dim b As New ADODB.Recordset Dim s As String Dim s1 As String Private Sub Command1_Click() If Text1.Text = "" or Text2.Text = "" or Text3.Text = "" or Text4.Text = "" or Text5.Text = "" or Text7.Text = "" or Text8.Text = "" or Text9.Text = "" or DataCombo1.Text = "" or DataCombo2.Text = "" Then MsgBox "Please enter all details" Else Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(0) = DataCombo1.Text Adodc1.Recordset.Fields(1) = Text1.Text Adodc1.Recordset.Fields(2) = Text2.Text Adodc1.Recordset.Fields(3) = Text3.Text Adodc1.Recordset.Fields(4) = Text4.Text Adodc1.Recordset.Fields(5) = DataCombo2.Text Adodc1.Recordset.Fields(6) = Text5.Text Adodc1.Recordset.Fields(7) = Text7.Text Adodc1.Recordset.Fields(8) = Text8.Text Adodc1.Recordset.Fields(9) = Text9.Text Adodc1.Recordset.Update Adodc1.Recordset.MoveNext '*************************************** If Val(Text6.Text) > 0 And (Val(Text8.Text) <= Val(Text6.Text)) Then s1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\COLLGE MNG\STUDENT.mdb;Persist Security Info=False;Jet OLEDB:Database Password=cms" A.Open s1, "", "" A.Execute "update Library set NO_OF_COPY= NO_OF_COPY - " & Val(Text8.Text) & " where BOOK_ID=" & Val(DataCombo1.Text)

88

MsgBox "Book Issued to & text5.text & " A.Close Else MsgBox "Book Copies is not available in library" End If '*************************************** Unload Me Load Form13 Form13.Show End If End Sub Private Sub Command2_Click() Unload Me Form17.Show End Sub Private Sub DataCombo1_Click(Area As Integer) Adodc4.RecordSource = "select * from Library where BOOK_ID=" & Val(DataCombo1.Text) Adodc4.Refresh End Sub Private Sub DataCombo2_Click(Area As Integer) Adodc5.RecordSource = "select * from Stu_Info where UN_ID=" & Val(DataCombo2.Text) Adodc5.Refresh End Sub Private Sub Form_Load() Text7.Text = Date End Sub

89

Private Sub Text4_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 58 Then If KeyAscii = 8 Then Else KeyAscii = 0 MsgBox "It will contain number only" End If End If End Sub Private Sub Text6_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 58 Then If KeyAscii = 8 Then Else KeyAscii = 0 MsgBox "It will contain number only" End If End If End Sub

90

Dim A As New ADODB.Connection Dim b As New ADODB.Connection Dim s As String Dim s1 As String Dim r As Integer Private Sub Combo1_Click() If Combo1.ListIndex = 0 Then r=1 Text5.Text = r Else If Combo1.ListIndex = 1 Then r=0 Text5.Text = r End If End Sub Private Sub Command1_Click() If Combo1.ListIndex = 0 Then s1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\COLLGE MNG\STUDENT.mdb;Persist Security Info=False;Jet OLEDB:Database Password=cms" A.Open s1, "", "" A.Execute "update Library set NO_OF_COPY= NO_OF_COPY + " & Val(Text5.Text) & " where BOOK_ID=" & Val(Text1.Text) MsgBox "Book RETURNED to LIBRARY " A.Close '**************************************************** 'for insertion Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(0) = DataCombo1.Text Adodc1.Recordset.Fields(1) = Text6.Text Adodc1.Recordset.Fields(2) = Text1.Text
91

Adodc1.Recordset.Fields(3) = Text2.Text Adodc1.Recordset.Fields(4) = Text3.Text Adodc1.Recordset.Fields(5) = Text4.Text Adodc1.Recordset.Fields(6) = Text7.Text Adodc1.Recordset.Update Adodc1.Recordset.MoveNext '************************************************** s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\COLLGE MNG\STUDENT.mdb;Persist Security Info=False;Jet OLEDB:Database Password=cms" b.Open s, "", "" b.Execute "delete from Book_issue where UN_ID=" & Val(DataCombo1.Text) & " And BOOK_ID = " & Val(Text1.Text) MsgBox "COmpleted successfully " b.Close Unload Me Form17.Show '************************************************** Else MsgBox "BOOK IS NOT RETURNED TILL NOOW" End If End Sub Private Sub Command2_Click() Adodc2.RecordSource = "Select * from Book_issue where UN_ID=" & Val(DataCombo1.Text) & " And BOOK_ID = " & Val(Text1.Text) Adodc2.Refresh If Adodc2.Recordset.BOF = True Then A = MsgBox("No Record Selected", vbInformation + vbOKOnly, "Sale Entry") Unload Me Form17.Show Else Text6.Text = Adodc2.Recordset.Fields(6) Text2.Text = Adodc2.Recordset.Fields(1)

92

Text3.Text = Adodc2.Recordset.Fields(2) Text4.Text = Adodc2.Recordset.Fields(3) End If End Sub Private Sub DataCombo1_Click(Area As Integer) Adodc3.RecordSource = "select * from Book_issue where UN_ID=" & Val(DataCombo1.Text) Adodc3.Refresh End Sub Private Sub Form_Load() Text7.Text = Date Combo1.ListIndex = 0 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 58 Then If KeyAscii = 8 Then Else KeyAscii = 0 MsgBox "It will contain number only" End If End If End Sub

93

Private Sub Command1_Click() Adodc1.RecordSource = "select * from Stu_att where Val(DataCombo1.Text) DataGrid1.Visible = True Adodc1.Refresh Adodc1.Caption = Adodc1.RecordSource End Sub

UN_ID= " &

94

Private Sub Command1_Click() Adodc1.RecordSource = "select * from Parents_details where UN_ID = " & Val(Text1.Text) DataGrid1.Visible = True Adodc1.Refresh Adodc1.Caption = Adodc1.RecordSource End Sub

95

Private Sub Command1_Click() Adodc1.RecordSource = "select * from Stu_att where UN_ID= " & Val(DataCombo1.Text) DataGrid1.Visible = True Adodc1.Refresh Adodc1.Caption = Adodc1.RecordSource End Sub

96

Private Sub Command1_Click() Adodc1.RecordSource = "select * from Teacher_Info where NAME= '" & (Text1.Text) & " '" DataGrid1.Visible = True Adodc1.Refresh Adodc1.Caption = Adodc1.RecordSource End Sub

97

Dim A As New ADODB.Connection Dim s1 As String Private Sub Command1_Click() Adodc1.RecordSource = "Select * from Sessional where SUBJECT='" & (Combo1.Text) & "'" Adodc1.Refresh Adodc1.Caption = Adodc1.RecordSource Adodc1.Refresh If Adodc1.Recordset.BOF = True Then A = MsgBox("No Record Selected", vbInformation + vbOKOnly, "Sale Entry") Else Adodc1.Recordset.MoveFirst While Adodc1.Recordset.EOF <> True Adodc2.Recordset.AddNew Adodc2.Recordset.Fields(0) = Adodc1.Recordset.Fields(0) Adodc2.Recordset.Fields(1) = Adodc1.Recordset.Fields(1) Adodc2.Recordset.Fields(2) = Adodc1.Recordset.Fields(2) Adodc2.Recordset.Fields(3) = Adodc1.Recordset.Fields(3) Adodc2.Recordset.Fields(4) = Adodc1.Recordset.Fields(4) Adodc2.Recordset.Fields(5) = Adodc1.Recordset.Fields(5) Adodc2.Recordset.Fields(6) = Adodc1.Recordset.Fields(6) Adodc2.Recordset.Fields(7) = Adodc1.Recordset.Fields(7) Adodc2.Recordset.Fields(8) = Adodc1.Recordset.Fields(8) Adodc2.Recordset.Fields(9) = Adodc1.Recordset.Fields(9) Adodc2.Recordset.Fields(10) = Adodc1.Recordset.Fields(10) Adodc2.Recordset.Fields(11) = Adodc1.Recordset.Fields(11) Adodc2.Recordset.Fields(12) = Adodc1.Recordset.Fields(12) Adodc2.Recordset.Fields(13) = Adodc1.Recordset.Fields(13) Adodc2.Recordset.Fields(14) = Adodc1.Recordset.Fields(14) Adodc2.Recordset.Fields(15) = Adodc1.Recordset.Fields(15) Adodc2.Recordset.Fields(16) = Adodc1.Recordset.Fields(16)
98

Adodc2.Recordset.Fields(17) = Adodc1.Recordset.Fields(17) Adodc2.Recordset.Update Adodc1.Recordset.MoveNext Wend A = MsgBox("Record Save", vbInformation + vbOKOnly, "Sale Entry") Command3.Visible = True End If End Sub Private Sub Command2_Click() If Adodc1.Recordset.BOF = True Then A = MsgBox("No Record Selected", vbInformation + vbOKOnly, "Sale Entry") Else Adodc1.Recordset.MoveFirst While Adodc1.Recordset.EOF <> True Adodc2.Recordset.AddNew Adodc2.Recordset.Fields(0) = Adodc1.Recordset.Fields(0) Adodc2.Recordset.Fields(1) = Adodc1.Recordset.Fields(1) Adodc2.Recordset.Fields(2) = Adodc1.Recordset.Fields(2) Adodc2.Recordset.Fields(3) = Adodc1.Recordset.Fields(3) Adodc2.Recordset.Fields(4) = Adodc1.Recordset.Fields(4) Adodc2.Recordset.Fields(5) = Adodc1.Recordset.Fields(5) Adodc2.Recordset.Fields(6) = Adodc1.Recordset.Fields(6) Adodc2.Recordset.Fields(7) = Adodc1.Recordset.Fields(7) Adodc2.Recordset.Fields(8) = Adodc1.Recordset.Fields(8) Adodc2.Recordset.Fields(9) = Adodc1.Recordset.Fields(9) Adodc2.Recordset.Fields(10) = Adodc1.Recordset.Fields(10) Adodc2.Recordset.Fields(11) = Adodc1.Recordset.Fields(11) Adodc2.Recordset.Fields(12) = Adodc1.Recordset.Fields(12) Adodc2.Recordset.Fields(13) = Adodc1.Recordset.Fields(13) Adodc2.Recordset.Fields(14) = Adodc1.Recordset.Fields(14) Adodc2.Recordset.Fields(15) = Adodc1.Recordset.Fields(15) Adodc2.Recordset.Fields(16) = Adodc1.Recordset.Fields(16) Adodc2.Recordset.Fields(17) = Adodc1.Recordset.Fields(17) Adodc2.Recordset.Update

99

Adodc1.Recordset.MoveNext Wend A = MsgBox("Record Save", vbInformation + vbOKOnly, "Sale Entry") End If End Sub Private Sub Command3_Click() DataReport1.Refresh DataReport1.Show s1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\COLLGE MNG\STUDENT.mdb;Persist Security Info=False;Jet OLEDB:Database Password=cms" A.Open s1, "", "" A.Execute "delete from Sub_sessional" A.Close Unload Me End Sub Private Sub Form_Load() Combo1.ListIndex = 0 End Sub

100

After we have completed the project we are sure the problems in the existing system would overcome. The COLLEGE MANAGEMENT SYSTEM process made computerized to reduce human errors and to increase the efficiency. The main focus of this project is to lessen human efforts. The maintenance of the records is made efficient, as all the records are stored in the ACCESS database, through which data can be retrieved easily. The navigation control is provided in all the forms to navigate through the large amount of records. If the numbers of records are very large then user has to just type in the search string and user gets the results immediately. The editing is also made simpler. The user has to just type in the required field and press the update button to update the desired field. The Books and Students are given a particular unique id no. So that they can be accessed correctly and without errors. Our main aim of the project is to get the correct information about a particular student and books available in the library. The problems, which existed in the earlier system, have been removed to a large extent. And it is expected that this project will go a long way in satisfying users requirements. The computerization of the Library Management will not only improves the efficiency but will also reduce human stress thereby indirectly improving human recourses.

101

Visual Basic 6.0 Guide to Visual Basic 6 Website Website

: By Gray Cornell : By Peter Norton : www.w3schools.com : www.vbtutor.net

102