Docstoc

DOEACC A Level Project (Library Management System)

Document Sample
DOEACC A Level Project (Library Management System) Powered By Docstoc
					                         A
                  PROJECT REPORT
                        ON



 Submitted in partial fulfillment of the requirement of major project in the Final
 Semester for the award of the degree of




               DOEACC “A” LEVEL
                      OF
          ASSAM ENGINEERING INSTITUTE
            CHANDMARI GUWAHATI-03

Submitted by                                  Under the Guidance of .
DIPANKAR DEV SARMAH                           Mr. HITESH TAHBILDAR
DOEACC “A” LEVEL                              HOD,Computer Science Dept.
Reg. No. 617146                               Assam Engg. Institute,
                                              Chandmari, GHY-03

                                    -1-
    PROFORMA FOR SUBMISSION OF STUDENT
        PROJECT PROPOSAL / SYNOPSIS

            (PROJECT TITLE AND GUIDE DETAILS)
                              Registration Number: 617146


Name and Address of the Accredited Centre: Computer Department
                                           Assam Engineering Institute
                                           Chandmari, Guwahati-03
                                           DOEACC Full No. A0332
                                           ACC No. A0361


Title of the Project:      Library Management System.

Name And Address of the Guide: Mr. HITESH TAHBILDAR
                                   HOD, Computer Science Dept.
                                   Assam Engg. Institute,
                                   Chandmari, GHY-03

Qualification of the Guide:    M.Tech.




Signature of the Student                           Signature of the Guide

Date:                                              Date:

                                                   Place:




                                      -2-
               PROJECT REPORT
TO
The Executive Director,
DOEACC Society
6 CGO, Complex Electronics Niketan
Lodhi Road,
New Delhi 110003

Sir,

I am submitting my ‘A’ level Project for evaluating. Details of my
Registration & Postal Address etc are given as under.

Regn. No.             617146. A Level
Name                  DIPANKAR DEV SARMAH
Father Name           CHITTA RANJAN SARMAH

Permanent Address:

                C/O.- C.R.SARMAH
                      MILAN SANGHA,
                      WARD NO-3
                P.O.-GAURIPUR
                DIST.- DHUBRI
                Pin No-783331
                Assam
                Mobile - 9957831524
                Email- ddevsarmah@gmail.com




                                -3-
          Certificate of the Project Guide/Center Manager



       This is to certify that the project entitled “Library Management System” is a
 bonafide work done by DIPANKAR DEV SARMAH (DOEACC Registration
 No.617146), in fulfillment of DOEACC ‘A’ Level examination and has been carried
 out under my direct supervision and guidance. This report or a similar report on the
 topic has not been submitted for any other examination and does not form part of
 any other course undergone by the candidate.




Signature of guide                              Signature of the Centre Co-Ordinator
Mr. HITESH TAHBILDAR                            Mr.Hitesh Tahbildar
HOD,Computer Science Dept.                      Co-Ordinator of DOEACC Course
Assam Engg. Institute,                          Computer Department,
Chandmari, GHY-03                               Assam Engineering Institute,
                                                Chandmari, Guwahati - 3




                                     -4-
                                 BIO DATA OF THE PROJECT GUIDE

1. Name:                           Mr. Hitesh Tahbildar

2. Father’s Name:                  Late Gurucharan Tahbildar

3. Address:                        HOD, Dept. of Computer Sc
                                   Assam Engineering Institute, Chandmari Guwahati-781003.

4. Date of Birth:                  23-04-1970

5. Educational Qualification:

             Name Of the Examination            Board/University       Year of     Class
Sl.                                                                    passing
No.

1.           H.S.L.C.                           SEBA                   1986        I
2.           H.S.(Sc.)                          A.H.S.E.C.             1988        I
3.           B.E. ( Computer Sc. & Engg.)       Dibrugarh University   1992        I
4.           M. Tech( Computer & IT)            IIT, Kharagpur         2000        I

6. Experience:

Working Experience:


      i)         Teaching 17 years out of which 6 years as HOD, Computer Department
      ii)        Part time faculty in computer Science department at Assam Engineering College since
                 2000.
      iii)       Coordinator, DOEACC O ‘A’ and ‘B’ Level courses since December, 2005
                 Assam Engineering Institute, Guwahati-3.
      iv)        Course Coordinator of AICTE sponsored course in the year 2007, 2008, and 2009


7. Conference Paper published (International):

      i)         Automated test data generation for program having arrays and loops of variable
                 number of iteration, IMECS’2010, Hang Kong




                                                                       Hitesh Tahbildar
                                                                       Signature of Guide




                                                -5-
                       ACKNOWLEDGEMENT


First of all, let me thank the Almighty God and my Parents who are the most
graceful and merciful for their blessing that Contributed to the successful completion
of my project.



I would like to take this opportunity to express my profound sense of gratitude and
respect to all those who helped me throughout the duration of this project. The AEI,
in particular has been the source of inspiration for me. I acknowledge the effort of
those who have contributed significantly to my project. I express my sincere
gratitude and thankfulness towards Mr. HITESH TAHBILDAR Faculty of AEI for
his valuable time and guidance throughout this course.



I feel privileged to offer my sincere thanks and deep sense of gratitude to    all the
staff of AEI, Comp. Sc. Dept. for expressing their confidence in me by letting me
work on a project of this magnitude and using the latest technologies and providing
their support, help & encouragement in implementing this Project.



                                                        Regards,
                                                  Dipankar Dev Sarmah




                                     -6-
                                CONTENT

i. DECLARATION                            -       10

ii. ABSTRACTS                             -       11

     CHAPTER-1: INTRODUCTION              -       12-13

     CHAPTER-2: SYSTEM STUDY              -       14-16

  2.1 Introduction

  2.2 Project Profile

  2.3 Existing System

  2.4 Proposed System

  2.5 Identification of Needs

  2.6 Object Phase

  CHAPTER-3: REQUIREMENT ANALYSIS             -        17-19

  3.1 Introduction

  3.2 Visual Basic Software

  3.3 Microsoft Access

  3.4 Hardware Configuration

  3.5 Software Configuration

  CHAPTER-4: FEASIBILITY ASSESMENT            -        20-21

  4.1 Introduction

  4.2 Feasibility Study

  4.3 Technical Feasibility

  4.4 Economical Feasibility

  4.5 Operational Feasibility




                                -7-
CHAPTER-5: SYSTEM DESIGN-                   -    22-67

5.1 Introduction

5.2 Data Design

5.3 Data Validation

5.4 Context Diagram

5.5 Data Flow Diagram

5.6 Entity Relationship Diagram

5.7 Data Dictionary

5.8 Data Table

5.9 Input Design

5.10 Output Design

5.11 Menu Design

5.12 Screen Format

5.13 Report Format

CHAPTER-6: TESTING                          -    68 -70

6.1 Testing

6.2 Module Testing

6.3 Creating Test Data

6.4 System Testing

6.5 Program Testing

6.6 String Testing

CAPTER-7: IMPLEMENTION                  -       71-72

7.1 Introduction




                                  -8-
7.2 Implementation Strategy

 CHAPTER-8: SECURITY                -   73-74

 8.1 Introduction

 8.2 Physical Security

 8.3 Database Security

 8.4 Application Security

 CHAPTER-9: CODING                  -   75 - 98

 CHAPTER-10: CONCLUSION             -   99 - 101

 10.1 Conclusion

 10.2 Bibliography




                              -9-
                        DECLARATION


       I, on behalf of myself declared that every piece of information
mentioned here is true and correct up to my best knowledge. The
information contains here are the out come of my dedicated hard work
of my said project and are truly genuine.

Every part of this report is in accordance with the department of library
and said by the librarian of Assam Engineering Institute, Govt.of
Assam, Chandmari, Guwahati.




Date……………..                                  Dipankar Dev Sarmah




                               - 10 -
                            ABSTRACTS

       The project is entitle “LIBRARY MANAGEMENT SYSTEM”.
The main aim of this project is to develop an application, which doesn’t
have the limitation of the existing system. LMS aim the hour as the micro
level assignment. Since the main aim of this tool is to display and allocate
the resources management among the staffs and students of Assam
Engineering Institute, Govt.of Assam, Chandmari. The overall control is
entitled with the project manager or project leader. Mainly three level of
management of resources are aimed. Manager, Leader and Programmer
managed project. Schedule the project, assignment and track resources
and manage multiple projects etc.

       “LIBRARY MANAGEMENT SYSTEM” is such a tool that is
specially developed to provide fast convenient services to the student of
this college. Students need not wait for hours whether the book is or not
in the library. It also provides a way to keep a track of all the students
that has been taken book. LMS is developing in a way that the authorized
person should update the scheduled once in a day so that the overall
progress of the project on the day is visible to the top executives. We have
the aim to even divide the hour by minutes also.




                                - 11 -
         LIBRARY MANAGEMENT SYSTEM
(ASSAM ENGINEERING INSTITUTE, GOVT.OF ASSAM, CHANDMARI, GUWAHATI)




                        CHAPTER 1

                     INTRODUCTION
                         1.1 Introduction




                           - 12 -
                        INTRODUCTION


     In today’s world of technology, computers have made a great
impact in our everyday life. It has become a part and parcel in our day-
to-day life. We cannot imagine the world of without computers. Its
presence is felt at almost every place and it has become an essential day-
to-day commodity of every field regarding business, education, medical
sciences, engineering purpose, space program and sports etc.

      The project is entitled as “LIBRARY MANAGEMENT
SYSTEM”. The main aim of this project is to develop an application,
which doesn’t have the limitation of the existing system. Effective
management of the project is vital for the success of this software.
There may be more than one project at a time and many people
associated with this project, hence it is necessary that there should be an
overall control of each project and an effective management of
resources and manpower. The people associated with the project should
get regular feedback of the project on a daily basis so that an overall
control can be maintained. Allocation of resources and programmer for
each project is of a great importance as they have a direct impact on the
cost of the project.

                      This project is designed and developed as a model
of a software system for the management of the academic activities in
any educational institute to give automation for most of the works. This
automation system is integrated to increase the efficiency and
productivity of the office workers, users, planners and administrators.
Simply, this will be a multi-functional, integrated computer based
system that allows many office activities to be performed in an
electronic mode.


                               - 13 -
         LIBRARY MANAGEMENT SYSTEM
(ASSAM ENGINEERING INSTITUTE, GOVT.OF ASSAM, CHANDMARI, GUWAHATI)




                        CHAPTER 2

                     SYSTEM STUDY
                         2.1 Introduction

                         2.2 Project profile

                         2.3 Existing System

                         2.4 Identification of Need

                         2.5 Proposed System

                         2.6 Object Phase




                            - 14 -
                               SYSTEM STUDY
2.1 Introduction:
        System study or analysis is the process of gathering and interpreting facts, diagnosing
problems by using the information and to recommend improvement to the system. The system
analyst examines the situation with the intent of improving it.

        Knowledge from the system specialist and the user who use this system is of great
importance to the system analyst. Through better procedure and method, a very long time has been
taken to analyst existing system since we are not very familiar with such system.

      In short, the existing system is analyzed in bottom detail so that we know the existing
system better and feel the problem faced by the user.

2.2 Project Profile:
      Project Title                          : “Library Management System”

        Organization                         :Assam Engineering Institute, Govt.of of Assam,
                                             Chandmari, Guwahati.

      Hardware Specification of machine used:

                              Processor       :     Pentium IV 3GHz (HT)
                              Memory          :     1 GB RAM
                              Hard Disk      :      160 GB
                              Monitor        :      17”LCD Monitor
                              Keyboard       :      Logitech Multimedia Keyboard
                              Mouse          :      Logitech




 2.3 Existing System:
       The existing system is based totally on the manual work. Therefore the authorized person
must update the schedule once in a day so that the overall report of the project on that day is
visible to the top executives or specialists of the concerned department.

    Sometimes the manual work misleads day-to-day service regarding the tracking of the project
managed by the department.

     It becomes cumbersome to keep all the records in a file manually and to keep updating it at
regular interval.

    It becomes more of a trouble while finding a specific record that was entered few days ago.

                                         - 15 -
2.4 Identification of Need:

     System development can be generally thought of as having two components: system and
system design.

     System analysis refers to the process of examining a business situation with the intent of
improving it through better procedure and method. If we manage to make this software it will
become more convenient for the user to locate a specific record for any student even if it was
recorded few months ago. It is the stage of designed.

     System design refers to the process of planning a new system to replace or compliment an
existing system and to determine how computer can best be used to make its operation mere
effective. Thus it becomes an utmost necessity to make this software in order to keep tract of all
the records that are being treated in this college for later reference and to make the department a
more effective and efficient one. This stage is the
most important part in a system life cycle. Here the system is viewed in most possible detail.


2.3 Proposed System:
“LIBRARY MANAGEMENT SYSTEM” is a complete project that provides effective
management of resource and control of the record of all the students that are being taken book in
this college.

        This software is very useful to handle all the details need to be known by the specialist in
analyzing book taken by the student. This software can be installed in any system and can be
assessed by the person needing to know the details of any specific student.

2.4 Object Phase:
       Any project taken up should be divided into different phase. Time should be given to each
phase and should be complete in that stimulated time.

         This will not only us an idea of how and when to complete the project. It prevents us from
inconvenient caused due to run out time of time in completing the project and to the one who
initiate the said project. A brief outlook is given bellow:




                                          - 16 -
         LIBRARY MANAGEMENT SYSTEM
(ASSAM ENGINEERING INSTITUTE, GOVT.OF ASSAM, CHANDMARI, GUWAHATI)




                         CHAPTER 3

              REQUIREMENT ANALYSIS

                      3.1 Requirement Analysis

                      3.2 Visual Basic Software

                     3.3 Microsoft Access

                     3.4 Hardware configuration

                     3.5 Software configuration




                            - 17 -
                   REQUIREMENT ANALYSIS


3.1 Requirement Analysis
       It is a software engineering task that bridges the gap between system level
requirement engineering and software design. Requirement engineering activities results in
the specification of software’s operational characteristics indicate software interfaces with
other elements and establish constant that software must meet.

3.2 Visual Basic Software:

        Visual Basic 6.0 is an object based programming language for development various
GUI based application. It is used as a front end in any software programming. It is a visual
development environment and hence without much effort in writing codes, one can use
standard interface elements like command button and list boxes etc. Visual basic has two
interface and they are SDI and MDI.

       SDI stands for single document interfaces and therefore can open single document at
one time.

       MDI stands for multiple document interfaces.

       It is a technology that is specially designed for providing better user interaction with
the system so that any user who uses the system has no difficulties in operating the said
system. Since VB provides good interface between the system and the user.

       This language is suitable for the said project and has been deployed for the said
project.

3.3 Microsoft Access:

     This database can store very good amount of information as required by the
department. It also provides data security by providing primary key etc. This makes data
integrity and provides ready to access environment both for the user and the operator.
Therefore Microsoft Access is selected specifically for this purpose.




                                        - 18 -
3.4 Hardware Configuration:
      Electronics devices that provide computing capability, the inter connectivity device
that enable the flow of data, and electro mechanical devices that provide external world
function.
Processor: INTEL Pentium 4
RAM: 256 MB
Hard Disk: 160 GB
Floppy drive: 1.44 MB
Mouse: Optical (Logitech)
Key board: standard 101 keyboards

3.5 Software Configuration:
      Software has evolved from a specialized problem solving and information analysis tool
to an industry in itself. It is composed of programs, data and documents. Each of these items
comprises a configuration that is created as a part of the software engineering process.

     The intent of software engineering is to provide framework for building software with
higher quality.
Platform: Microsoft Windows XP
Front End: Visual Basic 6.0
Back end: Microsoft Access XP




                                       - 19 -
         LIBRARY MANAGEMENT SYSTEM
(ASSAM ENGINEERING INSTITUTE, GOVT.OF ASSAM, CHANDMARI, GUWAHATI)




                         CHAPTER 4

              FEASIBILITY ASSESMENT

                       4.1 Feasibility Assessment

                      4.2 Technical Feasibility

                      4.3 Economical Feasibility

                      4.4 Operational Feasibility




                            - 20 -
                   FEASIBILITY ASSESMENT


4.1 Feasibility Assessment
         After making an initial investigation, feasibility study is carried out to check the
consequences of the invoice managing system. Feasibility study is an evaluation of the system
proposal regarding its workability, impact on the organization, ability to meet user needs
and effective need of the resources. Every product is feasible for a given unlimited resources
and infinite time. Thus when new application is proposed it normally goes through a
feasibility study before it is approved for development.

       During feasibility analysis of this project the following three primary areas of interest
were considered very carefully:
1. Technical Feasibility
2. Economical Feasibility
3. Operational Feasibility

4.2 Technical Feasibility:

      The project entitled “LIBRARY MANAGEMENT SYSTEM” is meant for the
requirement and needs of keeping the records in a technical way. Since the department has
enough equipment and necessary technical support, the project is feasible.

       The package to be developed is user friendly. Only a short demonstration will be
sufficient. The software is portable and platform independent. It should be compatible with
all kinds of existing systems in the organization. Therefore the proposed system is technically
feasible.


4.3 Economical Feasibility:

     The given software can be developed under optimal expenses with the available
hardware and software. The benefit expected from this system is much more compared to
the cost to be incurred. It will also save time and reduce physical space required and produce
required information about everything to the user timely and accurately. So the system is
considered economically feasible.



4.4 Operational Feasibility:

      In operational feasibility study we are going to study about how this software will be
operationally successful in the area where we are going to implement it. There is no
difficulty to implement this software, it the user is exposed to a few basic things required to
understand the working.

                                        - 21 -
         LIBRARY MANAGEMENT SYSTEM
(ASSAM ENGINEERING INSTITUTE, GOVT.OF ASSAM, CHANDMARI, GUWAHATI)




                        CHAPTER 5

                     SYSTEM DESIGN

                          5.1 System Design

                         5.2 Data Design

                         5.3 Data Validity

                         5.4 Context Diagram

                         5.5 Data Flow Diagram

                          5.6 Data Dictionary

                         5.7 Entity Relation Diagram

                         5.8 Data Tables

                         5.9 Input Design

                         5.10 Output Design

                         5.11 Menu Design




                           - 22 -
                            SYSTEM DESIGN


5.1 System Design
       This is the pivotal point in the system development life cycle. User requirement have
been identified. Information has been gathered to verified the problem and evaluate the
existing software. Since the reason behind the system made sense, the system is now ready to
undergo the design phase.

5.2 Data Design:
       Data design primarily involves a logical design and the physical construction of the
system. During the logical design of the system, describing its feature, procedures that meet
the system requirement has provided the detail specification for the system.

5.3 Data Validity:
        Extensive care has used to be taken to ensure the validity of the input data. Various
forms are used to effectively collect data, display them and used them to manage the project
in an efficient manner. The design of the software is such that a user can get an idea at the
time first attempt with the software.

5.4 Context Diagram:

       In the stage of system analysis, context diagram is constructed to show the higher
level model of a system.

     Context diagram is used to represent pictorially the boundaries of a system.
Expanding the context diagram we can get the detailed DFD for the system.




                                       - 23 -
 CONTEXT DIAGRAM:
 The Context Diagram for the “LIBRARY MANAGEMENT SYSTEM” is given below:




    Ask for
                                                         Query
    Information
                         LIBRARY
STUDENT
                         MANAGEMENT
                         SYSTEM                                   FACULTY


          Answer                                       Response




                        HL_Quer            Result
                        y

                            MANAGEMENT




              Fig:5 (a) Context Diagram Of Library Management System




                                  - 24 -
      DATA FLOW DIAGRAM:

                                                                           Student_info
      New Registration                           1.0
                                             Registration
              Response                         Process

                    New Registration
                                                                Faculty_info
                         Response
      STUDENT
                      Ask For Book
                      Response                   2.0
                                              Enquery                          Book_record
                         Ask For Book
FACULTY

                               Response
                FACULTY
                                                                       Std_book_update
                         Book delivered
                                                 3.0
                Book Delivered               Book Issue
                                                                        Fac_book_update




               Book Retern
                                                                         Fac_book_update
                                                 4.0
                         Book Return            Book
          STUDENT                               Return



                                                                       Fine_info

                 Query
                                                 5.0                                Faculty_info
                                               Report
MANAGEMENT                                   Generation
                Response

                                       Fig : 1st Level DFD of Library system


                                              - 25 -
                                                             FINE_INFO_FILE




                                                              STUDENT_ARTS_INFO_ FILE




                                                             STUDENT_ARTS_INFO_ FILE

                                        Student_ Info
                                                            STUDENT_ARTS_INFO_ FILE


      Request_for_ Report
                                           Faculty_M_Info
                                                            FACULTY_ INFO_ FILE

MANAGEMENT                  Report
                             5.1             Book_ Info     BOOK_ RECORD_ FILE

      Report_Delivered

                                     Book_ Issue_ Info      RECORD_ UPDATE_ BOOK



                                       Book_ Issue_ Info      RECORD_ UPDATE_ BOOK




                              - 26 -
                              1.1
                            Provide
STUDENTS                  Student_Car
                             d_No..



                                                                STUDENT_ INFO



                              1.2
                            Request
                              For
                          Student_Car   Student_ Card _ Information
                             d_No.




                               1.3
    Student _ Card_ No.
                             Issue      Student _ info
                          Student_Car
                             d_No.
                                                           STUDENTS_ RECORD




     Fig: - 3rd Data Flow Diagram for Library Management System




                               - 27 -
5.6 Data Dictionary:

      Data Dictionary is a structured repository of data, which provides detailed
information about the data. It is a set of rigorous definition of all the external levels of the
database.

Data dictionary: Gives description about all tables

Sl.   Field Name            Description                Field type     Field    Table Name
No.                                                                   Size
1     card_no               Student Card Number        Number         10       Stu_Card_info
2     std_name              Student Name               Text           20       Stu_Card_info
3     date_reg              Registration Date          Date/Time      10       Stu_Card_info
4     sem                   Student Semester           Text           10       Stu_Card_info
5     std_roll_no           Student Roll Number        Number         5        Stu_Card_info
6     session_from          Student Session            Number         5        Stu_Card_info
7     session_to            Student Session            Number         5        Stu_Card_info
8     branch                Student branch             Text           20       Stu_Card_info
9     c_o                   Care off                   Text           15       Stu_Card_info
10    city_vill             Student vill or city       Text           10       Stu_Card_info
11    p_o                   Post office                Text           15       Stu_Card_info
12    dist                  Student Distric            Text           15       Stu_Card_info
13    state                 Student State              Text           15       Stu_Card_info
14    pin                   PIN                        Number         10       Stu_Card_info
15    card_validity         Card Validate date         Date/Time      10       Stu_Card_info
16    card_no               Faculty Card Number        Number         10       Fac_Card_info
17    fac_name              Student Name               Text           15       Fac_Card_info
18    date_reg              Registration Date          Date/Time      10       Fac_Card_info
19    branch                Faculty branch             Text           15       Fac_Card_info
20    city_vill             Student vill or city       Text           15       Fac_Card_info
21    p_o                   Post office                Text           15       Fac_Card_info
22    dist                  Faculty Distric            Text           15       Fac_Card_info
23    state                 Faculty State              Text           15       Fac_Card_info
24    pin                   PIN                        Number         10       Fac_Card_info
25    card_validity         Card Validate date         Date/Time      10       Fac_Card_info
26    acc_ no               Book Accesion Number       Number         10       Master_Book_Record
27    book_title            Book Title                 Text           20       Master_Book_Record
28    auth_name             Book Author Name           Text           20       Master_Book_Record
29    edi                   Edition                    Number         5        Master_Book_Record
30    pub                   Publication                Text           10       Master_Book_Record
31    date_pub              Publication Date           Date/Time      10       Master_Book_Record
32    date_entry            Date of book entry         Date/Time      10       Master_Book_Record
33    source                Publication Place          Text           20       Master_Book_Record
34    cost                  Book cost                  Number         5        Master_Book_Record
35    card_no               Student Card Number        Number         5        Stu_Book_Delivery
36    std_name              Student Name               Text           10       Stu_Book_Delivery
37    date_reg              Registration Date          Date/Time      10       Stu_Book_Delivery
38    sem                   Student Semester           Text           5        Stu_Book_Delivery
39    std_roll_no           Student Roll Number        Number         5        Stu_Book_Delivery
40    session_from          Student Session            Number         5        Stu_Book_Delivery
41    session_to            Student Session            Number         5        Stu_Book_Delivery
42    branch                Student branch             Text           5        Stu_Book_Delivery
43    card_validity         Card Validate date         Date/Time      10       Stu_Book_Delivery
44    book_delivery_date    Book delivery date         Date/Time      10       Stu_Book_Delivery
45    book_return_date      Book return date           Date/Time      10       Stu_Book_Delivery


                                          - 28 -
46    acc_no               Accession Number        Number      10   Stu_Book_Delivery
47    book_title           Title of book           Text        20   Stu_Book_Delivery
48    author_name          Book Author Name        Text        10   Stu_Book_Delivery
49    card_no              Faculty Card Number     Number      10   Fac_Book_Delivery
50    std_name             Faculty Name            Text        10   Fac_Book_Delivery
51    date_reg             Registration Date       Date/Time   10   Fac_Book_Delivery
52    branch               Faculty branch          Text        15   Fac_Book_Delivery
53    card_validity        Card Validate date      Date/Time   10   Fac_Book_Delivery
54    book_delivery_date   Book delivery date      Date/Time   10   Fac_Book_Delivery
55    book_return_date     Book return date        Date/Time   10   Fac_Book_Delivery
56    acc_no               Accession Number        Number      10   Fac_Book_Delivery
57    book_title           Title of book           Text        20   Fac_Book_Delivery
58    author_name          Book Author Name        Text        10   Fac_Book_Delivery
59    card_no              Student Card Number     Number      10   Stu_Book_Return
60    std_name             Student Name            Text        15   Stu_Book_ Return
61    date_reg             Registration Date       Date/Time   10   Stu_Book_ Return
62    sem                  Student Semester        Text        5    Stu_Book_ Return
63    std_roll_no          Student Roll Number     Number      5    Stu_Book_ Return
64    session_from         Student Session         Number      5    Stu_Book_ Return
65    session_to           Student Session         Number      5    Stu_Book_ Return
66    branch               Student branch          Text        15   Stu_Book_ Return
67    card_validity        Card Validate date      Date/Time   10   Stu_Book_ Return
68    book_delivery_date   Book delivery date      Date/Time   10   Stu_Book_ Return
69    book_return_date     Book return date        Date/Time   10   Stu_Book_ Return
70    acc_no               Accession Number        Number      5    Stu_Book_ Return
71    book_title           Title of book           Text        20   Stu_Book_ Return
72    author_name          Book Author Name        Text        10   Stu_Book_ Return
73    book_return          Return Status           Text        10   Stu_Book_ Return
74    card_no              Faculty Card Number     Number      10   Fac_Book_ Return
75    std_name             Faculty Name            Text        10   Fac_Book_ Return
76    date_reg             Registration Date       Date/Time   10   Fac_Book_ Return
77    branch               Faculty branch          Text        5    Fac_Book_ Return
78    card_validity        Card Validate date      Date/Time   10   Fac_Book_ Return
79    book_delivery_date    Book delivery date     Date/Time   10   Fac_Book_ Return
80    book_return_date      Book return date       Date/Time   10   Fac_Book_ Return
81    acc_no               Accession Number        Number      10   Fac_Book_ Return
82    book_title           Title of book           Text        20   Fac_Book_ Return
83    author_name          Book Author Name        Text        10   Fac_Book_ Return
84    card_no              Faculty Card Number     Number      10   Fac_Book_ Return
85    book_return          Return Status           Text        10   Fac_Book_ Return
86    username             Name of Users           Text        10   password
87    password             Password of Users       Text        10   password
88    user_id              ID of User              Text        10   Password
89    card_no              Faculty Card Number     Number      10   Fine_info
90    acc_no               Accession Number        Number      10   Fine_info
91    std_name             Student Name            Text        15   Fine_info
92    std_roll_no          Student Roll Number     Number      5    Fine_info
93    book_title           Title of book           Text        15   Fine_info
94    auth_name            Book Author Name        Text        15   Fine_info
95    late_fine            Late fine               Number      5    Fine_info
96    damage_fine          Damage Fine             Number      5    Fine_info
97    branch               Branch Name             Text        20   Branch
98    code                 Branch Code             Number      5    Branch
99    acc_no               Book Accession Number   Number      5    Sub_Topic
100   b_title              Book Name               Text        20   Sub_Topic
101   auth_name            Author Name             Text        20   Sub_Topic
102   topic_no             Topic number            Number      5    Sub_Topic
103   topic                Topic                   Text        25   Sub_Topic


                                          - 29 -
104   publisher   Publisher Name          Text   20   Publisher
105   place       Publication Place       Text   20   Publish_Place




                                 - 30 -
5.7 Entity Relation Diagram:
      Entity relation diagram (E - R) model is a popular High- level conceptual data model.
This model and its variation are frequently used for the conceptual design of the database
application, are many database design tools employ its concepts. The ER model describes
data as entity, which is a thing in the real world with an independent existence. An entity
may be an object with a physical existence like a person, a car or it may be an object with
conceptual existence like a job, a university course. Each entity has a particular property
that further describes it these properties are known as attributes



                                                                                             Date_of_joining


                           Roll_no                                                    Name
              Class
                                                                                                               Designation

                                                                     Code_no
Name                                 Session
                                                                                                                    Reg_date


                                                                       2
                                      1

                                                        Reques
                 STUDENT                                   t                                   FACULTY


                                     Card_no                                                            N

Date_of_registration
                              1




                                                                                                    Sear
                                                                                                     ch

                                                Receive

                                                                                                        M

                                                                 2




                                                                                                    BOOK
                                                                 Acc_no

                                                                                                                    Page_no


                                                                          Book_titl
                                                                             e
                                                                                                         Date_of_puboication
                                                                                      Author_name




                       FIG:- ENTITY RELATION DIAGRAM




                                               - 31 -
    5.8 Data Tables:



           It gives an overview of how the database was design. It holds the information of the
    particulars about the organization.

    1. Table Name: Sudent_Arts_info


Sl. No      Field Name       Description             Field type    Field          Key
                                                                   Size
1           card_no          Student Card Number     Number        5            primery
2           std_name         Student Name            Text          10
3           date_reg         Registration Date       Date/Time     10
4           class            Student Class           Text          5
5           std_roll_no      Student Roll Number     Number        5
6           session_from     Student Session         Number        5
7           session_to       Student Session         Number        5
8           card_no          Student Card Number     Number        5
9           std_name         Student Name            Text          10

    1. Table Name: Sudent_Commerce_info


Sl. No      Field Name       Description             Field type    Field Size      Key
1           card_no          Student Card Number     Number        5            primery
2           std_name         Student Name            Text          10
3           date_reg         Registration Date       Date/Time     10
4           class            Student Class           Text          5
5           std_roll_no      Student Roll Number     Number        5
6           session_from     Student Session         Number        5
7           session_to       Student Session         Number        5
8           card_no          Student Card Number     Number        5
9           std_name         Student Name            Text          10

    1. Table Name: Sudent_Science_info


Sl. No      Field Name       Description             Field type    Field Size      Key
1           card_no          Student Card Number     Number        5            primery
2           std_name         Student Name            Text          10
3           date_reg         Registration Date       Date/Time     10
4           class            Student Class           Text          5
5           std_roll_no      Student Roll Number     Number        5
6           session_from     Student Session         Number        5
7           session_to       Student Session         Number        5
8           card_no          Student Card Number     Number        5
9           std_name         Student Name            Text          10

                                           - 32 -
4. Table Name: faculty_info

Sl. No.    Field Name     Description               Field type    Field Size     Key
1          Fac_name       Faculty Name              Text          20
2          Fac_code_no    Faculty Code Number       Number        5            Primery
3          Date_join      Date of joining           Date/time
4          Desg           Designation               Text          20
5          Date_reg       Date of register          Date/Time
6          Fac_name       Faculty Name              Text          20


5. Table Name: Book_record

Sl. No.    Field Name     Description               Field type    Field Size     Key

           p_no           Book Page Number          Number        5
1          source         Source of Book            Text          5
2          acc_ no        Book Accesion Number      Numnber       5            Primery
3          date_entry     Date of Entry             Date/Time     5
4          Book_title     Book Title                Text          20
5          auth_name      Book Author Name          Text          20
6          edi            Edition                   Number        5
7          pub            Publication               Text          10
8          date_pub       Publication Date          Date/Time     10
9          Vol            Volume                    Number        5




6. Table Name: Student_book_delivery


Sl.       Field Name          Description           Field type   Field          Key
No.                                                              Size
1         Book_issue_no       Book Issue Number     Number       5                       Pri
                                                                                         mer
                                                                                         y
2         Date_ issue         Date of Book Issue    Date/Time    5
3         Std_card_ no        Student Card Number   Number       5
4         Acc_no              Accession Number      Number       5
5         Book_title          Title of book         Text         20
6         Auth_name           Book Author Name      Text         10
7         p_no                Book Page Number      Number       5


                                        - 33 -
8      Std_name            Student Name             Text      10
9      Reg_date            Registration Date        Date/Time 10
10     class               Student Class            Number    5

7. Table Name: Faculty_book_delivery

Sl.   Field Name       Description              Field type    Field Size        Key
No.
1     Book_issue_no    Book Issue Number        Number        5                          Primer
                                                                                         y
2     Date_ issue      Date of Book Issue       Date/Time     5
3     Fac_code_ no     Faculty code Number      Number        5
4     Acc_no           Accession Number         Number        5
5     Book_title       Title of book            Text          20
6     Auth_name        Book Author Name         Text          10
7     P_no             Book Page Number         Number        5
8     Fac_name         Faculty Name             Text          10
9     Date_reg         Registration Date        Date/Time     10
10    desg             Designation              Txet          20
11    date_join        Date of joining          Date/Time     5
12    Book_issue_no    Book Issue Number        Number        5
13    Date_ issue      Date of Book Issue       Date/Time     5
14    Fac_code_ no     Faculty code Number      Number        5
15    Acc_no           Accession Number         Number        5
16    Book_title       Title of book            Text          20
17    Auth_name        Book Author Name         Text          10
18    P_no             Book Page Number         Number        5
19    Fac_name         Faculty Name             Text          10
20    Date_reg         Registration Date        Date/Time     10
21    desg             Designation              Txet          20
22    date_join        Date of joining          Date/Time     5


8. Table Name: Student_book_update


Sl.   Field Name       Description               Field type       Field Size     Key
No.
1     book_issue_no    Book Issue Number         Number           5            Primery
2     date_ issue      Date of Book Issue        Number           5
3     card_ no         ID Card Number            Number           5
4     acc_no           Accession Number          Number           5
5     book_title       Title of book             Text             10
6     auth_name        Book Author Name          Text             10
7     p_no             Book Page Number          Number           5
8     rook_call_no     Book Call Number          Number           5
9     rook_class_no    Book Class Number         Number           5
10    return_date      Return Date               Date/Time
11    std_name         Student Name              Text             20

                                       - 34 -
12    class             Class                      Number         5
13    stream            Stream                     Text           10
14    std_roll          Student Roll               Number         5
15    session_from      Session From               Number         5



9. Table Name: Fac_book_update


Sl.   Field Name            Description              Field type        Field        Key
No.                                                                    Size
1     Fac_code_ no          Faculty Cod Number       Number            5
2     acc_no                Accession Number         Number            5
3     book_title            Title of book            Text              10
4     auth_name             Book Author Name         Text              10
5     p_no                  Book Page Number         Number            5
6     Book_call_no          Call Book Number         Number            5
7     Book_class_no         Call Class Number        Number            5
8     return_date           Book Return Date         Date/time         10
9     fac_name              Faculty Name             Text              10
10    date_reg              Registration Date        Date/Time         10
11    date_joi              Joining Date             Date/Time         5
12    desg                  Designation              Text              10
13    book-issue_no         Book Issue Number        Number            5          Primery
14    date_issue            Date issue               Date/Time


10. Table Name: Fine_info

Sl.   Field Name               Description              Field type        Field        Key
No.                                                                       Size
1     acc_no                   Accession Number         Number            5         Primery
2     late_fine                Late fine                Number            5
3     damage_fine              Damage Fine              Number            5
4     Book_issue_no            Book issue no            Number            5
5     Date_issue               Date issue               Date/Time
6     book_title               Title of book            Text              10
7     auth_name                Book Author Name         Text              10
8     Book_call_no             Call Book Number         Number            5
9     Book_class_no            Call Class Number        Number            5
10    return_date              Book Return Date         Date/time         10
11    Std_name                 Student Name             Text              10
12    Reg_date                 Registration Date        Date/Time         10
13    class                    Student Class            Number            5
14    Std_roll_no              Student Roll Number      Number            5
15    Session_from             Session from             Date/time         5
16    Session_to               Session to               Date/time         5
17    std_card_ no             Student Card Number      Number            5

                                          - 35 -
18    Stream                   Stream                      Text              10
19    dup_card_issue_fine      Duplicate Card Issue Fine   Number            5
20    dup_card_issue_date      Duplicate Card Issue date   Date/Time


11. Table name: password

Sl.   Field Name               Description                 Field type        Field     Key
No.                                                                          Size
1     username                 Name of Users               Text              10
2     password                 Password of Users           Text              10      Primery
      User_id                  User ID                     Text              10



12. Table name: Author_details
Sl.   Field Name             Description                   Field type        Field     Key
No.                                                                          Size
1     Call_book_no           Call Book Number              Number            5       Primery
2     Author                 Author Name                   Text              20


13. Table name: Subject_details
Sl.   Field Name              Description                  Field type        Field     Key
No.                                                                          Size
1     Call_Class_no           Call Class Number            Number            5       Primery
2     Subject                 Subject Name                 Text              20


14. Table name: Faculty_book_delivery_temp

Sl.   Field Name            Description               Field type        Field           Key

No.                                                                     Size
1     Book_issue_no         Book Issue Number         Number            5                 Faculty_book
                                                                                          _delivery_tem
                                                                                          p
2     Date_ issue           Date of Book Issue        Date/Time         5                 Faculty_book
                                                                                          _delivery_tem
                                                                                          p
3     Fac_code_ no          Faculty code Number       Number            5                 Faculty_book
                                                                                          _delivery_tem
                                                                                          p
4     Acc_no                Accession Number          Number            5                 Faculty_book
                                                                                          _delivery_tem
                                                                                          p
5     Book_title            Title of book             Text              20                Faculty_book
                                                                                          _delivery_tem
                                                                                          p
6     Auth_name             Book Author Name          Text              10                Faculty_book
                                                                                          _delivery_tem
                                                                                          p
7     P_no                  Book Page Number          Number            5                 Faculty_book
                                                                                          _delivery_tem
                                                                                          p
8     Fac_name              Faculty Name              Text              10                Faculty_book
                                                                                          _delivery_tem
                                                                                          p



                                          - 36 -
9     Date_reg          Registration Date      Date/Time    10                    Faculty_book
                                                                                  _delivery_tem
                                                                                  p
10    desg              Designation            Txet         20                    Faculty_book
                                                                                  _delivery_tem
                                                                                  p
11    date_join         Date of joining        Date/Time    5                     Faculty_book
                                                                                  _delivery_tem
                                                                                  p




15. Table name: Student_book_delivery_temp


Sl.   Field Name        Description            Field type   Field               Key

No.                                                         Size
1     Book_issue_no     Book Issue Number      Number       5                     Student_book
                                                                                  _delivery_tem
                                                                                  p
2     Date_ issue       Date of Book Issue     Date/Time    5       Student_book_delivery_temp

3     Std_card_ no      Student Card Number    Number       5       Student_book_delivery_temp

4     Acc_no            Accession Number       Number       5       Student_book_delivery_temp

5     Book_title        Title of book          Text         20      Student_book_delivery_temp

6     Auth_name         Book Author Name       Text         10      Student_book_delivery_temp

7     p_no              Book Page Number       Number       5       Student_book_delivery_temp

8     Std_name          Student Name           Text         10      Student_book_delivery_temp

9     Reg_date          Registration Date      Date/Time    10      Student_book_delivery_temp

10    class             Student Class          Number       5       Student_book_delivery_temp

11    Std_roll_no       Student Roll Number    Number       5       Student_book_delivery_temp

12    Session_from      Session from           Date/time    5       Student_book_delivery_temp

13    Session_to        Session to             Date/time    5       Student_book_delivery_temp

14    card_ no          ID Card Number         Number       5       Student_book_delivery_temp

15    Stream            Stream                 Text         10      Student_book_delivery_temp

16    Call_class_no     Call class no          Number       10      Student_book_delivery_temp

17    Call_book_no      Call book no           Number       10      Student_book_delivery_temp




                                      - 37 -
5.9 Input Design:
        Input design is a crucial part of any system design. Inaccurate input data are the most
common cause of error in data processing. Data entry error can be controlled by input
design. Input design is the process of converting user- oriented input to a computer-based
format. The goal of designing input data is to make data entry as easy, logical and free from
error as possible while entering data. A system flow chart specifies master files, transaction
files and the computer programs.

5.10 Output Design:

       Output design refers to the result and information that are generated by the system.
Output is the main reason for developing the system and the basis on which they will be
evaluated for the application

5.11 Menu Design:

        It is a software engineering tool that is available with every computer system the users
interact first. It is at most important that the menu provide all the users requirement and
also a friendly environment. Menu generally come with a list of options from which the user
to choose.

       A series of menu allow the user to step through a series of hierarchical level of
increasing specifically from any menu without navigation through the hierarchy.




                                        - 38 -
                       Forms




Fig:-Splash Screen of “LIBRARY MANAGEMENT SYSTEM”




                  - 39 -
Fig:-MDI Form of “LIBRARY MANAGEMENT SYSTEM”




                 - 40 -
Fig:-Book Record Maintenance Form




          - 41 -
Fig: - Student Record Maintenance Form




             - 42 -
Fig: - Staff Record Maintenance Form




           - 43 -
Fig: - Branch Name & Code Maintenance Form




               - 44 -
Fig:-Book Publisher Form




      - 45 -
Fig: - Book Publisher Place Maintenance Form




                - 46 -
Fig: - Sub Topic Entry Form




       - 47 -
Fig: - Subject Name & Code Maintenance Form




                  - 48 -
Fig: - Change Password Form




          - 49 -
Fig: - Book Registration Form




           - 50 -
Fig: - Student Registration Form




             - 51 -
Fig: - Staff Member Registration Form




               - 52 -
Fig: - Search Form




      - 53 -
Fig: - Book Issue Form For Student




              - 54 -
Fig: - Book Issue Form For Staff Member




                - 55 -
Fig: - Card Renew Form For Student




           - 56 -
Fig: - Card Renew Form For Staff Member




              - 57 -
Fig: - Form For Creating Account in Library Management System




                         - 58 -
Fig: - Change Password Form




        - 59 -
Fig: - Newspaper & Magazine Registration Form




                - 60 -
Fig: - Newspaper & Magazine Data Entry Form




                - 61 -
Fig: - Newspaper & Magazine Content Search Form




                 - 62 -
     Reports




Fig: - Book Data Report




     - 63 -
Fig: - Student Data Report




       - 64 -
Fig: - Staff Member Report




       - 65 -
Fig: - Student Book Delivery Report




           - 66 -
Fig: - Staff Member Book Delivery Report




              - 67 -
       LIBRARY MANAGEMENT SYSTEM
(ASSAM ENGINEERING INSTITUTE, GOVT.OF ASSAM, CHANDMARI, GUWAHATI)




                    CHAPTER 6


                      TESTING

                      6.1 Testing

                      6.2 Module Testing

                      6.3 Creating Test Data

                      6.4 System Testing

                      6.5 Program Testing

                      6.6 String Testing




                            - 68 -
                                         TESTING


         Assistant should always be tested thoroughly before implementation it. This is
because implementation a new a major job which requires hours of technical support and
resources.

        Effective testing early in the process translates directly into long term cost saving
and reduces the number of errors.

Software testing is a critical element of software quality assurance.

6.1 Module Testing:

        The testing of individual module was completed during the development itself. Each
module was tested by creating some test data at the time of coding and necessary changes
was there on to make sure that the module is satisfactory.

6.2 Creating Test Data:
        Through some test data were created at the time of testing individual module, but
this may not be sufficient for the further testing of the system as a whole. So new test data
were created for all possible real life situations. Test data are chosen in such a way that they
are likely to create problem in the system when use.

6.3 System Testing:
        After a successful testing of individual programs, the new system run through a series
of test to ensure the working of the system as a whole. The objective of the testing is to verify
the entire system that the program meet the original programming specification.




                                         - 69 -
6.4 Program Testing:
       The program testing checks for two types of error that is logical error and syntax
error. To identify the logical error we must run the program module with some appropriate
test data. Syntax error can be identify by compiling the program module.

6.5 String Test:

    String test involves test of the whole program to check whether the integration of the
module is working successfully.




                                      - 70 -
       LIBRARY MANAGEMENT SYSTEM
(ASSAM ENGINEERING INSTITUTE, GOVT.OF ASSAM, CHANDMARI, GUWAHATI)




                   CHAPTER 7


                  IMPLEMENT

                  7.1 Implement

                 7.2 Implementation Strategy




                            - 71 -
IMPLEMENTATION

       Successful impletion of the needed system design is a crucial phase in the system life
cycle. Implementation simply means covering a new system design into operation. It includes
installing the project to the working environment and determining the performance of the
system.

7.1 IMPLEMENTATION STRATEGY:

      A crucial phase in system development life cycle is the successful implementation of the
system design. Implementation simply means covering the system design into operation. This
involves installation of hardware, terminals and also training the operating staff. It may be
of the implementation of a computer system to replace the manual system, implementation of
a new computer system to replace the existing system, implementation of a modified
application to replace an existing one. The system is to run with the parallel with the existing
manual system for a new day until the concerned authority becomes fully confident of the
new system.




                                        - 72 -
      LIBRARY MANAGEMENT SYSTEM
(ASSAM ENGINEERING INSTITUTE, GOVT.OF ASSAM, CHANDMARI, GUWAHATI)




                      CHAPTER 8


                       SECURITY

                      8.1 Security

                      8.2 Physical Security

                      8.3 Data Base security

                      8.4 Application Security




                            - 73 -
                                       SECURITIES

     Software security has become increasing the cry of many companies in age of hackers
and viruses. This attribute measures a system’s ability to withstand attacks on its security.

8.1 PHYSICAL SECURITY:

      The client took all the n4eccessary steps for physical security. For the resources are
assembled properly. Such as air condition, lighting system etc. care has been taken to avoid
all the physical challenges. What in case of fire, flood, natural catastrophic is well taken up.

8.2 DATA BASE SECURITY:
      The database is in central data base server henceforth regular back up must be taken
up. Its security and fine turning is maintained back up database.

8.3 APPLICATION SECURITY:

      The delivery of the software was given in a erasable devices to the client, so in case the
fine gets erase or corrupted accidentally, the entire software can be again reinstalled from
the device and the database can be recovered from the back system administration has
taken.




                                         - 74 -
         LIBRARY MANAGEMENT SYSTEM
(ASSAM ENGINEERING INSTITUTE, GOVT.OF ASSAM, CHANDMARI, GUWAHATI)




                      CHAPTER 9

                       CODING




                           - 75 -
MDI FORM CODING:-
Dim conn As New ADODB.Connection
Dim rec As New ADODB.Recordset
Private Sub B_Registration_Click()
Form1.Show
End Sub
Private Sub BookRecordMaintenance_Click()
Form16.Show
Form16.Report.Visible = False
End Sub
Private Sub BookReport_Click()
Form16.Show
Form16.Edit.Enabled = False
Form16.Delete.Enabled = False
Form16.Save.Enabled = False
Form16.Cancel.Enabled = False
End Sub
Private Sub Branch_Click()
Form8.Show
End Sub
Private Sub ChangeAdminPassword_Click()
Form21.Show
End Sub
Private Sub Changepassword_Click()
Form21.Show
End Sub
Private Sub conten_Click()
End Sub
Private Sub contentSearch_Click()
Form25.Show
End Sub
Private Sub CreateAccount_Click()
Form20.Show
End Sub
Private Sub DateEntry_Click()
Form24.Show
End Sub
Private Sub Exit_Click()
End
End Sub
Private Sub Finereport_Click()
Set FineDataReport.DataSource = conn.Execute("select * from fine_info")
FineDataReport.Show
End Sub
Private Sub MDIForm_Load()
conn.Open "dsn=LMS"
StatusBar1.Panels(1) = Date
StatusBar1.Panels(2) = Time
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
conn.Close
End Sub
Private Sub NewRegistration_Click()
Form23.Show
End Sub

                                             - 76 -
Private Sub publisher_Click()
Form2.Show
Form2.Back.Enabled = False
End Sub
Private Sub PublishPlace_Click()
Form4.Show
Form4.Back.Enabled = False
End Sub
Private Sub Search_Click()
Form5.Show
End Sub
Private Sub Staff_B_D_R_Click()
Form27.Show
End Sub
Private Sub Staff_Registration_Click()
Form12.Show
End Sub
Private Sub StaffMemberBookDelivery_Click()
Form13.Show
End Sub
Private Sub StaffMemberBookReturn_Click()
Form14.Show
End Sub
Private Sub StaffMemberCardRenew_Click()
Form18.Show
End Sub
Private Sub StaffMemberReport_Click()
Form17.Show
Form17.Edit.Enabled = False
Form17.Save.Enabled = False
Form17.Cancel.Enabled = False
End Sub
Private Sub StaffRecordMaintenance_Click()
Form17.Show
Form17.Report.Enabled = False
End Sub
Private Sub Stu_B_D_R_Click()
Form26.Show
End Sub
Private Sub Stu_Registration_Click()
Form6.Show
End Sub
Private Sub StuBookDelivery_Click()
Form9.Show
End Sub
Private Sub StuBookReturn_Click()
Form11.Show
End Sub
Private Sub StudentCardRenew_Click()
Form15.Show
End Sub
Private Sub StudentRecordMaintenance_Click()
Form7.Show
Form7.Report.Enabled = False
End Sub
Private Sub StudentReport_Click()
Form7.Show
Form7.Edit.Enabled = False
Form7.Delete.Enabled = False
Form7.Save.Enabled = False


                                           - 77 -
Form7.Cancel.Enabled = False
End Sub
Private Sub Subject_Click()
Form10.Show
End Sub
Private Sub SubTopicEntry_Click()
Form3.Show
Form3.Back.Enabled = False
End Sub




LOG-IN CODE:-
Dim conn As New ADODB.Connection
Dim rec As New ADODB.Recordset

Private Sub Cancel_Click()
End
End Sub
Private Sub Form_Load()
conn.Open "dsn=LMS"
User_name.Text = ""
Password.Text = ""
'Set rec = conn.Execute("select User_ID from Login ")
 'While Not rec.EOF
 'U_ID_Combo.AddItem rec.Fields("User_ID")
 'rec.MoveNext
 'Wend
 U_ID_Combo.ListIndex = 0
 End Sub
Private Sub Form_Unload(Cancel As Integer)
conn.Close
End Sub
Private Sub Submit_Click()
If U_ID_Combo.Text = "ADMIN" Then
 Set rec = conn.Execute("select * from Login where User_Name='" & User_name.Text & "' and Password='"
& Password.Text & "'and User_ID='" & U_ID_Combo.Text & "'")
   If Not rec.EOF Then
    Unload Form19
    Form22.Show
    'MDIForm1.Show
   Else
   r = MsgBox("Re_enter your User Name and Login", vbOKOnly, "Alert")
     If r = vbOK Then
       User_name.Text = ""
       Password.Text = ""
     End If
   End If
End If
If U_ID_Combo.Text = "USER" Then
Set rec = conn.Execute("select * from Login where User_Name='" & User_name.Text & "' and password='" &
Password.Text & "' and User_ID='" & U_ID_Combo.Text & "'")
 If Not rec.EOF Then
    Unload Form19
    MDIForm1.Admin.Enabled = False


                                           - 78 -
  MDIForm1.DataEntry.Enabled = False
  MDIForm1.B_Delivery.Enabled = False
  MDIForm1.b_Return.Enabled = False
  MDIForm1.CardRenew.Enabled = False
  Form22.Show
  'MDIForm1.Show
Else
  r = MsgBox("Re_enter your User Name and Login", vbOKOnly, "Alert")
   If r = vbOK Then
   User_name.Text = ""
   Password.Text = ""
   End If
End If
End If
End Sub




BOOK REGISTER:-
Dim conn As New ADODB.Connection
Dim rec As New ADODB.Recordset
Dim X As Integer
Dim str As String

Private Sub acc_no_Change()
Dim CurrentPos As Long
      Dim CurrentChar As String
      CurrentPos = 1
      While CurrentPos <= Len(Acc_no.Text)
        CurrentChar = Mid(Acc_no.Text, CurrentPos, 1)
        If Not (Asc(CurrentChar) >= 48 And Asc(CurrentChar) <= 57) Then
           Acc_no.Text = Replace(Acc_no.Text, CurrentChar, "")
        End If
        CurrentPos = CurrentPos + 1
      Wend
     Acc_no.SelStart = Len(Acc_no.Text)
End Sub
Private Sub acc_no_LostFocus()
If Acc_no.Text = "" Then
'MsgBox "Enter book Accession Number"
'acc_no.SetFocus
Else
Set rec = conn.Execute(" select acc_no from Master_Book_Record where acc_no = " & Acc_no.Text & " ")
If rec.EOF Then
Else
MsgBox "Duplicate Data Not allowed"
Acc_no.Text = ""
Acc_no.SetFocus
End If
End If
End Sub
Private Sub AddNew_Click()
date_entry.Value = Date
Acc_no.Enabled = True
Book_title.Enabled = True
auth_name.Enabled = True
edi_name.Enabled = True
pub.Enabled = True
edi.Enabled = True

                                            - 79 -
date_pub.Enabled = True
source.Enabled = True
cost.Enabled = True
call_class_no.Enabled = True
Show_Code.Enabled = True
Save.Enabled = True
AddNew.Enabled = False
End Sub
Private Sub Back_Click()
'Addnew.Enabled = True
End Sub
Private Sub Call_class_no_GotFocus()
List1.Visible = False
End Sub
Private Sub Close_Click()
Unload Me
End Sub
Private Sub cost_Change()
Dim CurrentPos As Long
      Dim CurrentChar As String
      CurrentPos = 1
      While CurrentPos <= Len(cost.Text)
        CurrentChar = Mid(cost.Text, CurrentPos, 1)
        If Not (Asc(CurrentChar) >= 48 And Asc(CurrentChar) <= 57) Then
           cost.Text = Replace(cost.Text, CurrentChar, "")
        End If
        CurrentPos = CurrentPos + 1
      Wend

   cost.SelStart = Len(cost.Text)
End Sub
Private Sub Form_Load()
conn.Open "dsn=LMS"
Text1.Visible = False
Call clear
Save.Enabled = False
List1.Visible = False
Show_Code.Enabled = False
loadYearOfpublish
str = "Available"
End Sub
Public Sub clear()
Acc_no.Text = ""
Book_title.Text = ""
auth_name.Text = ""
edi_name.Text = ""
'pub.Text = ""
edi.Text = ""
date_pub.Text = ""
'date_entry.Caption = Date
'source.Text = ""
cost.Text = ""
call_class_no.Text = ""
Acc_no.Enabled = False
Book_title.Enabled = False
auth_name.Enabled = False
edi_name.Enabled = False
pub.Enabled = False
edi.Enabled = False
date_pub.Enabled = False


                                            - 80 -
source.Enabled = False
cost.Enabled = False
call_class_no.Enabled = False
End Sub
Private Sub Form_Unload(cancel As Integer)
conn.Close
End Sub
Private Sub Frame3_Click()
List1.Visible = False
End Sub
Private Sub List1_Click()
List1.Visible = False
Text1.Text = List1.Text
X = Text1.Text
call_class_no.Text = X
End Sub
Private Sub pub_Click()
If pub.Text = "Add new Publisher Name" Then
Form2.Show
Form2.Edit.Enabled = False
Form2.Delete.Enabled = False
Form2.Close1.Enabled = False
End If
End Sub
Private Sub pub_GotFocus()
pub.clear
Set rec = conn.Execute(" select * from Publisher ")
While Not rec.EOF
pub.AddItem rec.Fields("publisher")
rec.MoveNext
Wend
pub.AddItem "Add new Publisher Name"
pub.ListIndex = 0
End Sub
Private Sub Save_Click()
If Acc_no.Text = "" Or Book_title.Text = "" Or auth_name.Text = "" Or edi_name.Text = "" Or pub.Text =
"" Or edi.Text = "" Or date_pub.Text = "" Or source.Text = "" Or cost.Text = "" Or call_class_no.Text = ""
Then
MsgBox "Blank data not allowed"
Else
Set rec = conn.Execute(" insert into Master_Book_Record
(acc_no,book_title,auth_name,edi_name,pub,edi,date_pub,date_entry,source,cost,Call_class_no,status) values
(" & Acc_no.Text & ",'" & Book_title.Text & "','" & auth_name.Text & "','" & edi_name.Text & "','" &
pub.Text & "','" & edi.Text & "','" & date_pub.Text & "','" & date_entry.Value & "','" & source.Text & "',"
& cost.Text & "," & call_class_no.Text & ",'" & str & "')")
MsgBox "Data Saved"
Save.Enabled = False
Form3.Show
Unload Me
End If
End Sub
Private Sub Show_Code_Click()
List1.Visible = True
List1.clear
Set rec = conn.Execute(" select Call_class_no,Subject from Subject_details")
While Not rec.EOF
 List1.AddItem rec.Fields("Call_class_no") & " - " & rec.Fields("Subject")
 rec.MoveNext
Wend
End Sub


                                              - 81 -
Private Sub source_Click()
If source.Text = "Add new Publish Place" Then
Form4.Show
Form4.Edit.Enabled = False
Form4.Delete.Enabled = False
Form4.Close1.Enabled = False
End If
End Sub
Private Sub source_GotFocus()
source.clear
Set rec = conn.Execute(" select * from Publish_Place ")
While Not rec.EOF
source.AddItem rec.Fields("place")
rec.MoveNext
Wend
source.AddItem "Add new Publish Place"
source.ListIndex = 0
End Sub
Private Sub loadYearOfpublish()
Dim min As Integer
Dim max As Integer
min = 1950
max = 2100
For min = 1950 To max Step 1
date_pub.AddItem (min)
Next
End Sub



BOOK RECORD:-
Dim conn As New ADODB.Connection
Dim rec As New ADODB.Recordset
Dim str As String
Dim a As Integer
Dim B As Integer
Dim stast As String

Private Sub load_record()
Dim lv As ListItem
Set rec = conn.Execute("select
acc_no,Book_title,auth_name,edi_name,pub,edi,date_pub,date_entry,source,cost,call_class_no,status from
Master_Book_record ")

 Do Until rec.EOF
 ''''''''''''''''viewlist'''''''''''
 Set lv = Book_Record_View.ListItems.Add(1, , rec.Fields("acc_no"))
 lv.SubItems(1) = rec.Fields("Book_title")
 lv.SubItems(2) = rec.Fields("auth_name")
 lv.SubItems(3) = rec.Fields("edi_name")
 lv.SubItems(4) = rec.Fields("pub")
 lv.SubItems(5) = rec.Fields("edi")
 lv.SubItems(6) = rec.Fields("date_pub")
 lv.SubItems(7) = rec.Fields("date_entry")
 lv.SubItems(8) = rec.Fields("source")
 lv.SubItems(9) = rec.Fields("cost")
 lv.SubItems(10) = rec.Fields("call_class_no")
 lv.SubItems(11) = rec.Fields("status")
 '''''''''''''''''''''''''''''''''''
 rec.MoveNext

                                               - 82 -
 Loop
End Sub
Private Sub Book_Record_View_Click()
Acc_no.Caption = Book_Record_View.SelectedItem.Text
Book_title.Text = Book_Record_View.SelectedItem.SubItems(1)
auth_name.Text = Book_Record_View.SelectedItem.SubItems(2)
edi_name.Text = Book_Record_View.SelectedItem.SubItems(3)
pub.Text = Book_Record_View.SelectedItem.SubItems(4)
edi.Text = Book_Record_View.SelectedItem.SubItems(5)
date_pub.Text = Book_Record_View.SelectedItem.SubItems(6)
date_entry.Value = Book_Record_View.SelectedItem.SubItems(7)
source.Text = Book_Record_View.SelectedItem.SubItems(8)
cost.Text = Book_Record_View.SelectedItem.SubItems(9)
call_class_no.Text = Book_Record_View.SelectedItem.SubItems(10)
B=1
End Sub
Private Sub Book_Record_View_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
S_B_B_S.Visible = False
End Sub
Private Sub Cancel_Click()
Book_Record_View.Enabled = True
ControlEnabledFalse
Edit.Enabled = True
Delete.Enabled = True
Close1.Enabled = True
Save.Enabled = False
cancel.Enabled = False
End Sub

Private Sub Close_Click()
Unload Me
End Sub
Private Sub Close1_Click()
Unload Me
End Sub
Private Sub Delete_Click()
str = "Delivered"
a=0
Set rec = conn.Execute("select acc_no from master_book_record where status='" & str & "'")
While Not rec.EOF
If rec.Fields("acc_no") = Acc_no.Caption Then
MsgBox "Book is delivered"
a=1
End If
rec.MoveNext
Wend
If a = 0 Then
r = MsgBox("Are you sure that you want to delete Book " _
        & Acc_no.Caption & " ?", _
         vbYesNo + vbQuestion, _
         "Confirm Delete")
         If r = vbYes Then
         Set rec = conn.Execute("Delete from master_book_record where acc_no=" & Acc_no.Caption & "")
         Set rec = conn.Execute("Delete from sub_topic where acc_no=" & Acc_no.Caption & "")
         MsgBox "Record Deleted"
         ''''''''''update 4-6-2009
         Book_Record_View.ListItems.clear
         load_record
         End If
End If


                                            - 83 -
End Sub
Private Sub Edit_Click()
ControlEnabledTrue
Book_Record_View.Enabled = False
Edit.Enabled = False
Delete.Enabled = False
Close1.Enabled = False
Save.Enabled = True
cancel.Enabled = True
End Sub
Private Sub Form_Load()
conn.Open "dsn=LMS"
'Edit.Enabled = True
'Delete.Enabled = True
'Delete.Visible = False
Save.Enabled = False
cancel.Enabled = False
load_record
controlUnload
S_B_A_No.Visible = False
S_B_B_T.Visible = False
S_B_A_N.Visible = False
S_B_B_S.Visible = False
S_B_B_S.ListIndex = 0
Status.Text = stast
Status.Visible = False
End Sub
Private Sub controlUnload()
Acc_no.Caption = ""
Book_title.Text = ""
auth_name.Text = ""
edi_name.Text = ""
pub.Text = ""
edi.Text = ""
date_pub.Text = ""
'date_entry.Text = ""
source.Text = ""
cost.Text = ""
call_class_no.Text = ""
Acc_no.Enabled = False
Book_title.Enabled = False
auth_name.Enabled = False
edi_name.Enabled = False
pub.Enabled = False
edi.Enabled = False
date_pub.Enabled = False
date_entry.Enabled = False
source.Enabled = False
cost.Enabled = False
call_class_no.Enabled = False
End Sub
Private Sub ControlEnabledTrue()
Acc_no.Enabled = True
Book_title.Enabled = True
auth_name.Enabled = True
edi_name.Enabled = True
pub.Enabled = True
edi.Enabled = True
date_pub.Enabled = True
date_entry.Enabled = True


                                   - 84 -
source.Enabled = True
cost.Enabled = True
call_class_no.Enabled = True
End Sub
Private Sub ControlEnabledFalse()
Acc_no.Enabled = False
Book_title.Enabled = False
auth_name.Enabled = False
edi_name.Enabled = False
pub.Enabled = False
edi.Enabled = False
date_pub.Enabled = False
date_entry.Enabled = False
source.Enabled = False
cost.Enabled = False
call_class_no.Enabled = False
End Sub
Private Sub Form_Unload(cancel As Integer)
conn.Close
End Sub
Private Sub Frame2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
S_B_A_No.Visible = False
S_B_B_T.Visible = False
S_B_A_N.Visible = False
S_B_B_S.Visible = False
End Sub
Private Sub Report_Click()
If B = 0 Then
If stast = "All" Then
Set BookDataReport.DataSource = conn.Execute("select * from master_book_record")
BookDataReport.Show
Else
Set BookDataReport.DataSource = conn.Execute("select * from master_book_record where status = '" &
S_B_B_S.Text & "'")
BookDataReport.Show
End If
Else
Set BookDataReport.DataSource = conn.Execute("select * from master_book_record where acc_no = " &
Acc_no.Caption & " ")
BookDataReport.Show
End If
End Sub
Private Sub S_B_A_N_Click()
If S_B_A_N.Text = "Ascending Order" Then
Book_Record_View.Sorted = True
Book_Record_View.SortKey = 2
Book_Record_View.SortOrder = lvwAscending
End If
If S_B_A_N.Text = "Descending Order" Then
Book_Record_View.Sorted = True
Book_Record_View.SortKey = 2
Book_Record_View.SortOrder = lvwDescending
End If
S_B_A_N.Visible = False
End Sub

Private Sub S_B_A_No_Click()
If S_B_A_No.Text = "Ascending Order" Then
Book_Record_View.Sorted = True
Book_Record_View.SortKey = 0


                                            - 85 -
Book_Record_View.SortOrder = lvwAscending
End If
If S_B_A_No.Text = "Descending Order" Then
Book_Record_View.Sorted = True
Book_Record_View.SortKey = 0
Book_Record_View.SortOrder = lvwDescending
End If
S_B_A_No.Visible = False
End Sub
Private Sub S_B_B_S_Click()
Book_Record_View.ListItems.clear
If S_B_B_S.Text = "Available" Then
stast = "Available"
Load_Available_Record
Status.Text = stast
End If
If S_B_B_S.Text = "Delivered" Then
stast = "Delivered"
Load_Available_Record
Status.Text = stast
End If
If S_B_B_S.Text = "All" Then
stast = "All"
load_record
Status.Text = stast
End If
S_B_B_S.Visible = False
B=0
End Sub
Private Sub S_B_B_T_Click()
If S_B_B_T.Text = "Ascending Order" Then
Book_Record_View.Sorted = True
Book_Record_View.SortKey = 1
Book_Record_View.SortOrder = lvwAscending
End If
If S_B_B_T.Text = "Descending Order" Then
Book_Record_View.Sorted = True
Book_Record_View.SortKey = 1
Book_Record_View.SortOrder = lvwDescending
End If
S_B_B_T.Visible = False
End Sub
Private Sub Save_Click()
If Book_title.Text = "" Or auth_name.Text = "" Or edi_name.Text = "" Or pub.Text = "" Or edi.Text = "" Or
date_pub.Text = "" Or date_entry.Value = "" Or source.Text = "" Or cost.Text = "" Or call_class_no.Text =
"" Then
MsgBox "Blank data not allowed"
Else
Set rec = conn.Execute(" update master_book_record set book_title='" & Book_title.Text & "',auth_name='"
& auth_name.Text & "',edi_name='" & edi_name.Text & "',pub='" & pub.Text & "',edi='" & edi.Text &
"',date_pub=" & date_pub.Text & ",date_entry='" & date_entry.Value & "',source='" & source.Text &
"',cost=" & cost.Text & ",call_class_no=" & call_class_no.Text & " where acc_no=" & Acc_no.Caption & " ")
'''''''''''''''''''''''STUDENT'''''''''''''''''''
Set rec = conn.Execute("select acc_no from stu_book_delivery where acc_no=" & Acc_no.Caption & "")
If rec.EOF Then
'MsgBox "Not found"
Else
Set rec = conn.Execute("update stu_book_delivery set book_title='" & Book_title.Text & "',author_name='" &
auth_name.Text & "'where acc_no=" & Acc_no.Caption & " ")
End If


                                             - 86 -
Set rec = conn.Execute("select acc_no from stu_book_delivery_return where acc_no=" & Acc_no.Caption &
"")
If rec.EOF Then
'MsgBox "Not found"
Else
Set rec = conn.Execute("update stu_book_delivery_return set book_title='" & Book_title.Text &
"',author_name='" & auth_name.Text & "'where acc_no=" & Acc_no.Caption & " ")
End If
'''''''''''''''''''''''FACULTY'''''''''''''''''''
Set rec = conn.Execute("select acc_no from Staff_Book_Delivery where acc_no=" & Acc_no.Caption & "")
If rec.EOF Then
'MsgBox "Not found"
Else
Set rec = conn.Execute("update Staff_Book_Delivery set book_title='" & Book_title.Text & "',author_name='"
& auth_name.Text & "'where acc_no=" & Acc_no.Caption & " ")
End If
Set rec = conn.Execute("select acc_no from Staff_Book_Return where acc_no=" & Acc_no.Caption & "")
If rec.EOF Then
'MsgBox "Not found"
Else
Set rec = conn.Execute("update Staff_Book_Return set book_title='" & Book_title.Text & "',author_name='"
& auth_name.Text & "'where acc_no=" & Acc_no.Caption & " ")
End If
''''''''''''''''''''''''''''''''''''''''''''''''
MsgBox " Record updated"
Save.Enabled = False
cancel.Enabled = False
Edit.Enabled = True
Delete.Enabled = True
Close1.Enabled = True
ControlEnabledFalse
Book_Record_View.ListItems.clear
load_record
Book_Record_View.Enabled = True
End If
End Sub
Private Sub SortByAccessionNo_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
S_B_A_No.Visible = True
End Sub
Private Sub SortByAuthorName_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
S_B_A_N.Visible = True
End Sub
Private Sub SortByBookStatus_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
S_B_B_S.Visible = True
End Sub
Private Sub SortByBookTitle_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
S_B_B_T.Visible = True
End Sub
Private Sub Load_Available_Record()
Dim lv As ListItem
Set rec = conn.Execute("select
acc_no,Book_title,auth_name,edi_name,pub,edi,date_pub,date_entry,source,cost,call_class_no,status from
Master_Book_record where status='" & stast & "' ")

 Do Until rec.EOF
 ''''''''''''''''viewlist'''''''''''
 Set lv = Book_Record_View.ListItems.Add(1, , rec.Fields("acc_no"))
 lv.SubItems(1) = rec.Fields("Book_title")
 lv.SubItems(2) = rec.Fields("auth_name")
 lv.SubItems(3) = rec.Fields("edi_name")


                                             - 87 -
 lv.SubItems(4) = rec.Fields("pub")
 lv.SubItems(5) = rec.Fields("edi")
 lv.SubItems(6) = rec.Fields("date_pub")
 lv.SubItems(7) = rec.Fields("date_entry")
 lv.SubItems(8) = rec.Fields("source")
 lv.SubItems(9) = rec.Fields("cost")
 lv.SubItems(10) = rec.Fields("call_class_no")
 lv.SubItems(11) = rec.Fields("status")
 '''''''''''''''''''''''''''''''''''
 rec.MoveNext
 Loop
End Sub

BOOK REPORT:-

Dim conn As New ADODB.Connection
Dim rec As New ADODB.Recordset
Dim a As Integer

Private Sub load_record()
Dim lv As ListItem
Set rec = conn.Execute("select
book_issue_no,acc_no,Book_title,author_name,book_delivery_date,book_return_date,card_no,stu_name,stu_r
oll_no,branch,sem,book_return from stu_Book_delivery_return ")

 Do Until rec.EOF
 ''''''''''''''''viewlist'''''''''''
 Set lv = BookDeliveryRecord.ListItems.Add(1, , rec.Fields("book_issue_no"))
 lv.SubItems(1) = rec.Fields("acc_no")
 lv.SubItems(2) = rec.Fields("Book_title")
 lv.SubItems(3) = rec.Fields("author_name")
 lv.SubItems(4) = rec.Fields("book_delivery_date")
 lv.SubItems(5) = rec.Fields("book_return_date")
 lv.SubItems(6) = rec.Fields("card_no")
 lv.SubItems(7) = rec.Fields("stu_name")
 lv.SubItems(8) = rec.Fields("stu_roll_no")
 lv.SubItems(9) = rec.Fields("branch")
 lv.SubItems(10) = rec.Fields("sem")
 lv.SubItems(11) = rec.Fields("book_return")
 '''''''''''''''''''''''''''''''''''
 rec.MoveNext
 Loop
End Sub
Private Sub BookDeliveryRecord_Click()
book_issue_no.Caption = BookDeliveryRecord.SelectedItem.Text
a=1
End Sub
Private Sub Close1_Click()
Unload Me
End Sub
Private Sub Form_Load()
conn.Open "dsn=LMS"
load_record
End Sub
Private Sub Form_Unload(cancel As Integer)
conn.Close
End Sub
Private Sub Report_Click()
If a = 1 Then


                                                 - 88 -
Set Student_book_Delivery_DataReport.DataSource = conn.Execute("select
book_issue_no,acc_no,Book_title,author_name,book_delivery_date,book_return_date,card_no,stu_name,stu_r
oll_no,branch,sem,book_return from stu_book_delivery_return where book_issue_no=" &
book_issue_no.Caption & "")
Student_book_Delivery_DataReport.Show
Else
Set Student_book_Delivery_DataReport.DataSource = conn.Execute("select
book_issue_no,acc_no,Book_title,author_name,book_delivery_date,book_return_date,card_no,stu_name,stu_r
oll_no,branch,sem,book_return from stu_book_delivery_return")
Student_book_Delivery_DataReport.Show
End If
a=0
End Sub

CREATE ACCOUNT:-

Dim conn As New ADODB.Connection
Dim rec As New ADODB.Recordset
Dim rec1 As New ADODB.Recordset
Private Sub Close_Click()
Unload Me
End Sub
Private Sub Form_Load()
conn.Open "dsn=LMS"
User_name.Text = ""
Password.Text = ""
User_ID.ListIndex = 0
End Sub
Private Sub Form_Unload(cancel As Integer)
conn.Close
End Sub
Private Sub Save_Click()
If User_name.Text = "" Or Password.Text = "" Then
MsgBox "Blank data not allowed"
User_name.Text = ""
Password.Text = ""
Else
Set rec1 = conn.Execute("Select user_name from Login where user_name='" & User_name.Text & "'")
If rec1.EOF Then
Set rec = conn.Execute("insert into Login(User_Name,Password,User_ID) values('" & User_name.Text & "','"
& Password.Text & "','" & User_ID.Text & "') ")
MsgBox "Your Account is Created"
User_name.Enabled = False
Password.Enabled = False
User_ID.Enabled = False
Save.Enabled = False
Else
MsgBox "User Name is allready exist"
User_name.Text = ""
Password.Text = ""
End If
End If
End Sub
Private Sub UPDATE_Click()
Set rec = conn.Execute("update Login set Password='" & Password.Text & "' where User_Name='" &
User_name.Text & "' ")
MsgBox "Record is updated"
End Sub



                                            - 89 -
CARD RENEW FOR STAFF:-

Dim conn As New ADODB.Connection
Dim rec As New ADODB.Recordset

Private Sub Cancel_Click()
Staff_Rec_ListView.Enabled = True
ControlBlank
Card_validity.Enabled = False
Save.Enabled = False
Cancel.Enabled = False
Renew.Enabled = False
Close1.Enabled = True
End Sub
Private Sub Close1_Click()
Unload Me
End Sub
Private Sub Form_Load()
conn.Open "dsn=LMS"
Load_Staff_Record
Renew.Enabled = False
Save.Enabled = False
Cancel.Enabled = False
Close1.Enabled = True
Card_validity.Enabled = False
S_B_B.Visible = False
S_B_N.Visible = False
S_B_C_N.Visible = False
End Sub
Private Sub Load_Staff_Record()
Dim lv As ListItem
Set rec = conn.Execute("select Card_no,name,branch,date_reg,card_validity from Staff_Card_info ")

 Do Until rec.EOF
 ''''''''''''''''viewlist'''''''''''
 Set lv = Staff_Rec_ListView.ListItems.Add(1, , rec.Fields("card_no"))
 lv.SubItems(1) = rec.Fields("name")
 lv.SubItems(2) = rec.Fields("branch")
 lv.SubItems(3) = rec.Fields("date_reg")
 lv.SubItems(4) = rec.Fields("card_validity")

 '''''''''''''''''''''''''''''''''''
 rec.MoveNext
 Loop
End Sub
Private Sub Form_Unload(Cancel As Integer)
conn.Close
End Sub
Private Sub Frame2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
S_B_B.Visible = False
S_B_N.Visible = False
S_B_C_N.Visible = False
End Sub
Private Sub Renew_Click()
Set rec = conn.Execute("Select card_no from staff_book_delivery where card_no=" & Card_no.Caption & " ")
If rec.EOF Then
Staff_Rec_ListView.Enabled = False
Card_validity.Enabled = True


                                              - 90 -
Save.Enabled = True
Cancel.Enabled = True
Close1.Enabled = False
Else
MsgBox "Sorry,Your Card will be Renewed After You Return the Book"
End If
Renew.Enabled = False
End Sub
Private Sub S_B_B_Click()
If S_B_B.Text = "Ascending Order" Then
Staff_Rec_ListView.Sorted = True
Staff_Rec_ListView.SortKey = 3
Staff_Rec_ListView.SortOrder = lvwAscending
End If
If S_B_B.Text = "Descending Order" Then
Staff_Rec_ListView.Sorted = True
Staff_Rec_ListView.SortKey = 3
Staff_Rec_ListView.SortOrder = lvwDescending
End If
S_B_B.Visible = False
End Sub
Private Sub S_B_C_N_Click()
If S_B_C_N.Text = "Ascending Order" Then '
Staff_Rec_ListView.Sorted = True
Staff_Rec_ListView.SortKey = 0
Staff_Rec_ListView.SortOrder = lvwAscending
End If
If S_B_C_N.Text = "Descending Order" Then
Staff_Rec_ListView.Sorted = True
Staff_Rec_ListView.SortKey = 0
Staff_Rec_ListView.SortOrder = lvwDescending
End If
S_B_C_N.Visible = False
End Sub
Private Sub S_B_N_Click()
If S_B_N.Text = "Ascending Order" Then
Staff_Rec_ListView.Sorted = True
Staff_Rec_ListView.SortKey = 1
Staff_Rec_ListView.SortOrder = lvwAscending
End If
If S_B_N.Text = "Descending Order" Then
Staff_Rec_ListView.Sorted = True
Staff_Rec_ListView.SortKey = 1
Staff_Rec_ListView.SortOrder = lvwDescending
End If
S_B_N.Visible = False
End Sub
Private Sub Save_Click()
Staff_Rec_ListView.ListItems.clear
Set rec = conn.Execute("update staff_card_info set card_validity='" & Card_validity.Value & "'where
card_no=" & Card_no.Caption & " ")
MsgBox "Card has been Renewed"
Save.Enabled = False
Cancel.Enabled = False
Close1.Enabled = True
Renew.Enabled = False
Card_validity.Enabled = False
Load_Staff_Record
Staff_Rec_ListView.Enabled = True
End Sub


                                             - 91 -
Private Sub SortByBranch_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
S_B_B.Visible = True
End Sub
Private Sub SortByCardNo_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
S_B_C_N.Visible = True
End Sub
Private Sub SortByStaffName_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
S_B_N.Visible = True
End Sub
Private Sub Staff_Rec_ListView_Click()
Card_no.Caption = Staff_Rec_ListView.SelectedItem.Text
Staff_name.Caption = Staff_Rec_ListView.SelectedItem.SubItems(1)
Branch.Caption = Staff_Rec_ListView.SelectedItem.SubItems(2)
Date_reg.Caption = Staff_Rec_ListView.SelectedItem.SubItems(3)
Card_validity.Value = Staff_Rec_ListView.SelectedItem.SubItems(4)
Renew.Enabled = True
End Sub
Private Sub ControlBlank()
Card_no.Caption = ""
Staff_name.Caption = ""
Branch.Caption = ""
Date_reg.Caption = ""
End Sub




STUDENT BOOK RETURN:-

Dim conn As New ADODB.Connection
Dim rec As New ADODB.Recordset
Dim rec1 As New ADODB.Recordset
Dim REDATE As Date
Dim CUDATE As Date
Dim a As Integer
Dim str As String
Dim str1 As String
Dim sl_no As Integer
Dim lt As Integer
Dim lasitem As Integer
Dim indx As Integer
Private Sub acc_no_Click()
If acc_no.Text = "" Then
Else
Set rec = conn.Execute("select
card_no,Stu_name,Stu_roll_no,branch,sem,session_from,session_to,reg_date,card_validity,book_delivery_date,
book_return_date,book_issue_no,acc_no,book_title,author_name from stu_book_delivery where acc_no=" &
acc_no.Text & " ")
card_no.Caption = rec.Fields("card_no")
stu_name.Caption = rec.Fields("stu_name")
stu_roll_no.Caption = rec.Fields("stu_roll_no")
branch.Caption = rec.Fields("branch")
sem.Caption = rec.Fields("sem")
session_from.Caption = rec.Fields("session_from")
session_to.Caption = rec.Fields("session_to")
reg_date.Caption = rec.Fields("reg_date")
card_validity.Caption = rec.Fields("card_validity")
book_title.Caption = rec.Fields("book_title")


                                             - 92 -
author_name.Caption = rec.Fields("author_name")
book_issue_no.Caption = rec.Fields("book_issue_no")
book_delivery_date.Caption = rec.Fields("book_delivery_date")
book_return_date.Caption = rec.Fields("book_return_date")
lt = 0
FineCalculation
indx = acc_no.ListIndex
B_Return.Enabled = True
Check2.Enabled = True
End If
End Sub
Private Sub B_Return_Click()
If lt = 1 Then
Fineinfo_Slno
Set rec = conn.Execute("insert into fine_info (sl_no,card_no,acc_no,pay_date,late_fine,damage_fine)values(" &
sl_no & "," & card_no.Caption & "," & acc_no.Text & ",'" & Cu_Date.Caption & " '," & late_fine.Caption &
"," & damage_fine.Caption & ")")
Set rec = conn.Execute("delete from Stu_Book_Delivery where acc_no=" & acc_no.Text & " ")
Set rec = conn.Execute("update Stu_Book_Delivery_return set book_return ='" & str & "'where acc_no=" &
acc_no.Text & " ")
Set rec = conn.Execute("update Master_book_record set status='" & str1 & "' where acc_no=" & acc_no.Text
& " ")
acc_no.RemoveItem indx
MsgBox "Record updated"
Else
Set rec = conn.Execute("delete from Stu_Book_Delivery where acc_no=" & acc_no.Text & " ")
Set rec = conn.Execute("update Stu_Book_Delivery_return set book_return ='" & str & "'where acc_no=" &
acc_no.Text & " ")
Set rec = conn.Execute("update Master_book_record set status='" & str1 & "' where acc_no=" & acc_no.Text
& " ")
acc_no.RemoveItem indx
MsgBox "Record updated"
End If
Reset.Enabled = True
acc_no.Enabled = False
B_Return.Enabled = False
Check2.Enabled = False
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
Set rec1 = conn.Execute("Select cost from Master_Book_Record where acc_no=" & acc_no.Text & " ")
damage_fine.Caption = rec1.Fields("cost")
lt = 1
Else
damage_fine.Caption = 0
End If
End Sub
Private Sub Close1_Click()
Unload Me
End Sub
Private Sub Form_Load()
conn.Open "dsn=LMS"
str = "Yes"
str1 = "Available"
Cu_Date.Caption = Date
LoadAccessionNo
ControlBlank
Check1.Enabled = False
Check2.Enabled = False
B_Return.Enabled = False


                                              - 93 -
late_fine.Caption = 0
damage_fine.Caption = 0
List1.Visible = False
B_Return.Enabled = False
Reset.Enabled = False
'Acc_no.ListIndex = 0
End Sub
Private Sub LoadAccessionNo()
Set rec = conn.Execute("Select acc_no from Stu_book_delivery")
If rec.EOF Then
'Acc_no.AddItem "Record not found"
Else
While Not rec.EOF
acc_no.AddItem rec.Fields("acc_no")
rec.MoveNext
Wend
End If
End Sub
Private Sub FineCalculation()
a=0
REDATE = book_return_date.Caption
CUDATE = Cu_Date.Caption
If DateTime.DateDiff("h", REDATE, CUDATE) < 0 Then
late_fine.Caption = 0
Check1.Value = 0
Check1.Enabled = False
Else
Do Until REDATE = CUDATE
REDATE = REDATE + 1
a=a+1
Loop
Check1.Enabled = True
Check1.Value = 1
lt = 1
late_fine.Caption = a * 5
m = MsgBox("You have a late fine of Rs '" & late_fine.Caption & "'.Are you pay this fine? ", vbYesNo)
If m = vbNo Then
ControlBlank
End If
End If
End Sub
Private Sub ControlBlank()
card_no.Caption = ""
stu_name.Caption = ""
stu_roll_no.Caption = ""
branch.Caption = ""
sem.Caption = ""
session_from.Caption = ""
session_to.Caption = ""
reg_date.Caption = ""
card_validity.Caption = ""
book_title.Caption = ""
author_name.Caption = ""
book_issue_no.Caption = ""
book_delivery_date.Caption = ""
book_return_date.Caption = ""
End Sub
Private Sub Fineinfo_Slno()
List1.clear
Set rec = conn.Execute("Select sl_no from Fine_info")


                                              - 94 -
If rec.EOF Then
lasitem = 0
Else
While Not rec.EOF
List1.AddItem rec.Fields("sl_no")
lasitem = rec.Fields("sl_no")
rec.MoveNext
Wend
End If
sl_no = Val(lasitem) + 1
End Sub
Private Sub Form_Unload(Cancel As Integer)
conn.Close
End Sub
Private Sub Reset_Click()
acc_no.clear
LoadAccessionNo
ControlBlank
Reset.Enabled = False
'b_Return.Enabled = True
acc_no.Enabled = True
Check1.Value = 0
Check2.Value = 0
damage_fine.Caption = ""
late_fine.Caption = ""
'Acc_no.ListIndex = 0
End Sub




CARD RENEW FOR STUDENT:-
Dim conn As New ADODB.Connection
Dim rec As New ADODB.Recordset
Private Sub Cancel_Click()
Stu_Rec_ListView.Enabled = True
ControlBlank
Roll_no.Enabled = False
Sem.Enabled = False
Card_validity.Enabled = False
Save.Enabled = False
Cancel.Enabled = False
Renew.Enabled = False
Close1.Enabled = True
End Sub
Private Sub Close1_Click()
Unload Me
End Sub
Private Sub Form_Load()
conn.Open "dsn=LMS"
Load_Stu_Record
Renew.Enabled = False
Save.Enabled = False
Cancel.Enabled = False
Close1.Enabled = True


                                             - 95 -
Roll_no.Enabled = False
Sem.Enabled = False
Card_validity.Enabled = False
S_B_S.Visible = False
S_B_B.Visible = False
S_B_S_N.Visible = False
S_B_C_N.Visible = False
Sem.ListIndex = 0
End Sub
Private Sub Load_Stu_Record()
Dim lv As ListItem
Set rec = conn.Execute("select
Card_no,stu_name,stu_roll_no,branch,sem,session_from,session_to,date_reg,card_no,card_validity from
Stu_Card_info ")

 Do Until rec.EOF
 ''''''''''''''''viewlist'''''''''''
 Set lv = Stu_Rec_ListView.ListItems.Add(1, , rec.Fields("card_no"))
 lv.SubItems(1) = rec.Fields("stu_name")
 lv.SubItems(2) = rec.Fields("stu_roll_no")
 lv.SubItems(3) = rec.Fields("branch")
 lv.SubItems(4) = rec.Fields("sem")
 lv.SubItems(5) = rec.Fields("session_from")
 lv.SubItems(6) = rec.Fields("session_to")
 lv.SubItems(7) = rec.Fields("date_reg")
 lv.SubItems(8) = rec.Fields("card_validity")

 '''''''''''''''''''''''''''''''''''
 rec.MoveNext
 Loop
End Sub
Private Sub Form_Unload(Cancel As Integer)
conn.Close
End Sub
Private Sub Frame2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
S_B_S.Visible = False
S_B_B.Visible = False
S_B_S_N.Visible = False
S_B_C_N.Visible = False
End Sub
Private Sub Renew_Click()
Set rec = conn.Execute("Select card_no from stu_book_delivery where card_no=" & Card_no.Caption & " ")
If rec.EOF Then
Stu_Rec_ListView.Enabled = False
Roll_no.Enabled = True
Sem.Enabled = True
Card_validity.Enabled = True
Save.Enabled = True
Cancel.Enabled = True
Close1.Enabled = False
Else
MsgBox "Sorry,Your Card will be Renewed After You Return the Book"
End If
Renew.Enabled = False
End Sub
Private Sub S_B_B_Click()
If S_B_B.Text = "Ascending Order" Then
Stu_Rec_ListView.Sorted = True
Stu_Rec_ListView.SortKey = 3
Stu_Rec_ListView.SortOrder = lvwAscending


                                              - 96 -
End If
If S_B_B.Text = "Descending Order" Then
Stu_Rec_ListView.Sorted = True
Stu_Rec_ListView.SortKey = 3
Stu_Rec_ListView.SortOrder = lvwDescending
End If
S_B_B.Visible = False
End Sub
Private Sub S_B_C_N_Click()
If S_B_C_N.Text = "Ascending Order" Then
Stu_Rec_ListView.Sorted = True
Stu_Rec_ListView.SortKey = 0
Stu_Rec_ListView.SortOrder = lvwAscending
End If
If S_B_C_N.Text = "Descending Order" Then
Stu_Rec_ListView.Sorted = True
Stu_Rec_ListView.SortKey = 0
Stu_Rec_ListView.SortOrder = lvwDescending
End If
S_B_C_N.Visible = False
End Sub
Private Sub S_B_S_Click()
If S_B_S.Text = "Ascending Order" Then
Stu_Rec_ListView.Sorted = True
Stu_Rec_ListView.SortKey = 4
Stu_Rec_ListView.SortOrder = lvwAscending
End If
If S_B_S.Text = "Descending Order" Then
Stu_Rec_ListView.Sorted = True
Stu_Rec_ListView.SortKey = 4
Stu_Rec_ListView.SortOrder = lvwDescending
End If
S_B_S.Visible = False


End Sub
Private Sub S_B_S_N_Click()
If S_B_S_N.Text = "Ascending Order" Then
Stu_Rec_ListView.Sorted = True
Stu_Rec_ListView.SortKey = 1
Stu_Rec_ListView.SortOrder = lvwAscending
End If
If S_B_S_N.Text = "Descending Order" Then
Stu_Rec_ListView.Sorted = True
Stu_Rec_ListView.SortKey = 1
Stu_Rec_ListView.SortOrder = lvwDescending
End If
S_B_S_N.Visible = False
End Sub
Private Sub Save_Click()
Stu_Rec_ListView.ListItems.clear
If Roll_no.Text = "" Or Sem.Text = "" Then
MsgBox "Blank Data Not Allowed"
Save.Enabled = False
Cancel.Enabled = False
Close1.Enabled = True
Renew.Enabled = False
Roll_no.Enabled = False
Sem.Enabled = False
Card_validity.Enabled = False


                                             - 97 -
Load_Stu_Record
Stu_Rec_ListView.Enabled = True
Else
Set rec = conn.Execute("update stu_card_info set stu_roll_no=" & Roll_no.Text & ",sem='" & Sem.Text &
"',card_validity='" & Card_validity.Value & "'where card_no=" & Card_no.Caption & " ")
MsgBox "Card has been Renewed"
Save.Enabled = False
Cancel.Enabled = False
Close1.Enabled = True
Renew.Enabled = False
Roll_no.Enabled = False
Sem.Enabled = False
Card_validity.Enabled = False
Load_Stu_Record
Stu_Rec_ListView.Enabled = True
End If
End Sub
Private Sub SortByBranch_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
S_B_B.Visible = True
End Sub
Private Sub SortByCardNo_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
S_B_C_N.Visible = True
End Sub
Private Sub SortBySemester_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
S_B_S.Visible = True
End Sub
Private Sub SortByStudentName_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
S_B_S_N.Visible = True
End Sub
Private Sub Stu_Rec_ListView_Click()
Card_no.Caption = Stu_Rec_ListView.SelectedItem.Text
Stu_Name.Caption = Stu_Rec_ListView.SelectedItem.SubItems(1)
Roll_no.Text = Stu_Rec_ListView.SelectedItem.SubItems(2)
Branch.Caption = Stu_Rec_ListView.SelectedItem.SubItems(3)
Sem.Text = Stu_Rec_ListView.SelectedItem.SubItems(4)
Session_from.Caption = Stu_Rec_ListView.SelectedItem.SubItems(5)
Session_To.Caption = Stu_Rec_ListView.SelectedItem.SubItems(6)


Date_reg.Caption = Stu_Rec_ListView.SelectedItem.SubItems(7)
Card_validity.Value = Stu_Rec_ListView.SelectedItem.SubItems(8)
Renew.Enabled = True
End Sub
Private Sub ControlBlank()
Card_no.Caption = ""
Stu_Name.Caption = ""
Roll_no.Text = ""
Branch.Caption = ""
Sem.Text = ""
Session_from.Caption = ""
Session_To.Caption = ""
Date_reg.Caption = ""
'Card_validity.Text = ""
End




                                            - 98 -
         LIBRARY MANAGEMENT SYSTEM
(ASSAM ENGINEERING INSTITUTE, GOVT.OF ASSAM, CHANDMARI, GUWAHATI)




                      CHAPTER 10


                      APPENDIX

                       9.1 Conclusion

                       9.2 Bibliography




                            - 99 -
  CONCLUSION


        “LIBRARY MANAGEMENT SYSTEM” is such a tool that is specially developed to
provide fast and convenient services to the student of this college. Student need not wait
hours for searching a required book. It also provides a way to keep a track of the entire
student that has been taken book from this college. The tool is developed to have the entire
basic requirement for the user by providing time-to-time guidance. If required the tool can
be upgrade to fulfilled the ever changing technology trends.

       Some of the few drawbacks of this tool are that the user must know the system well
and knowledge about computer is a must. The tool must be operating properly to ensure
security.




                                      - 100 -
                                 BIBLIOGRAPHY


A. System Analysis and Design by Elias M Awad (2004 Edition)

B. Database system Concepts by Silbersxhatz Korth. Surarshan (International Edition)

C. Visual Basic programming 6 Black Book by Steven Holzner. (Paraglyph press, Dreamtech
press 2006)

D. Software Engineering by Rogers. Pressman (International Edition)

E. Mastering Visual Basic 6 by Evangelos Petroutsos (Indian Sub Continent Edition 2002)

WEB SITE USED:

      1. www.mhhe.com
      2. www.register.dushkin.com
      3. www.rimsimphal.org.
      4. www.SQAtester.com
      5. www.patterndepot.com
      6. www.wileydreamtech.com
      7. www.bpboline.com
      8. www.mcu.ac.in




                                     - 101 -

				
DOCUMENT INFO
Stats:
views:361
posted:3/22/2012
language:English
pages:101
Maneesh Choudhury Maneesh Choudhury Projects http://www.bellenokia.tk
About I AM A OPEN BOOK....READ ME........... I am invisible like air--- I am as important as oxygen--- I am living in the world of my dreamz I am always there to help otherz--- I am busy but never ignore any one I am the one who carez--- I---AM----MANEESH