Athwalines, surat-395001 E-mail:info@wadiacollegesurat.

org

PROJECT REPORT
AS A PARTIAL REQUIREMENT FOR THE DEGREE OF BACHELOR OF COMMERCE. (COMPUTER APPLICATION)

Program (2011-2012)

Submitted by
Dharmishtha Parmar Afsana Patel Pinki Sharma

Guided by
Mr. Manish Tailor

ORGANIZATION
Z.F. WADIA WOMENS COLLEGE & N.K. JHOTA COLLEGE OF COMMERCE

LIBRARY MANAGEMENT SYSTEM

ACKNOWLEDGEMENT
We would like to this opportunity to below my acknowledgement on the entire person who have directly helped us in making feasible and to turn it a successful piece of work. We are grateful to Dr.Ashok desai for giving us the opportunity to work with this esteemed organization, which will be the building step for our bright future. The assiduous help presumed by Mrs.kaillas madam our project guide was the inevitable part of the successful consummation for our project. We sincerely thanks her for her guidance and helpfulness through the and easy times during the project. We would also like to acknowledge tee advice and suggestion of Mr.Manish Tailor and the entire staff member who have directly or indirectly helped us in completing the project. Many of our friends were the continuous source of inspiration through out the project development. They have been very supportive to us in achieving the milestones. And the most precious part of our life, our parents, who have showered their love end support hitch can never be repaid in any form but can be commemorated without them this achievement could not have been achieved.

DHARMISHTHA PARMAR AFSANA PATEL PINKI SHARMA

LIBRARY MANAGEMENT SYSTEM

Index
Chapter No. 1 1.1 1.2 1.3 2 2.1 3 3.1 3.2 3.3 4 4.1 4.2 5 5.1 5.2 6 6.1 6.2 6.3 7 8 Name COLLEGE PROFILE History About college College profile COMPUTER BASED SYSTEM Aim of Computer based system ENVIRONMENT SUSTEM Overview of Visual Basic Overview if Ms Access Understanding Database SYSTEM PLANNING Scope of the system Constraints SYSTEM STUDY Requirement Analysis Data flow diagram SYSTEM DESIGN Database Design Forms & coding Report TESTING BIBLIOGRAPHIES Page No.
4

16 20

27

30

34

84 87

LIBRARY MANAGEMENT SYSTEM

1.

LIBRARY MANAGEMENT SYSTEM

HISTORY
History of Vidhyamandir Society
ESTABLISHEDMENT, AIMS AND OBJECTIVES:
With a view to making women or girls-students self-reliant and imparting them useful productive higher education, Vidhyamandir society was set up in 1948. This institute faced a lot of trouble with courage. The sincere and dedicated founder members and the teaching staff labored hard to achieve the goals step by step and today it has secured the highest position in the field of women Education in the South Gujarat Region. The chief motto of this Institute is to arouse the need and awareness for the higher education among women and train them as well disciplined and self-dependent in various field of life. An exclusive college for women was started with a few students in a private building in the beginning but today this women college having its grand building on the bank of the river Tapi in athwalines area of Surat City. A generous donor Mr.Faramrose Wadia donated a big building to this women college in memory of his loving son Let Mr. ZAL so this college named as Z.F.Wadia Womens College, which was affiliated with S.N.D.T. University, Mumbai. Besides these colleges building the Institute is fortunate enough to building with all necessary facilities. A large member of women has taken the advantages of this hostel. Thus Vidhyamandir Society has been making progress in the field of women education and such other spheres with satisfaction.

LIBRARY MANAGEMENT SYSTEM

ACTIVITIES AND PROGRESS:

One of our ardent desires was to start well-equipped Home-Science college in Surat for womens upliftment and we start a Home-Science college 1965. The women enrolled in this college get a degree of B.A. from the South Gujarat University. We also started some other subjects like Literature, Economics, and Psychology to become helpful to the Gujarati women. When this arts college was started ours was the only college in the whole South.

EXTRA CUPPICULAR ACTIVITE:

We started classis for the various crafts and small-scale industry so that women could earn for their needs. This college has provided facilities for many indoor and outdoor games and the spacious ground. Every year sport competition is held to promote sports among women. Discussions, Debates, Tours, Entertainment programs are held regularly for the overall personality developments of women. To established rapport with the society and college students, Our College conducts program of social awareness and other socially useful activities.

Following are the Courses run by Vidhyamandir Society

1) Pre Primary Courses Jr.K.G,Sr.K.G This section is run by shashikala Doriwala BAL Bhavan. These courses are taught in two mediums. The Admission process for the Jr.K.G: The Application forms are available usually in the month of April-May. The dates are announced at the notice board of the school before the due date as mentioned on the Application forms. Upon submission of the forms, you will get the receipt for the same. The Admission given is based on the draw system. The draw is done in the presence of parents of applicants. The total Intake of Jr.K.G. class is 120, which are divided into 3 sections of 40 students in each section and in each medium.

2) Primary Courses Standard 1 to 7 This section is run by Ramlal Bagdia Primary School. These courses are taught
6

LIBRARY MANAGEMENT SYSTEM

in two mediums. English Medium Gujarati Medium

The Admission Process for STD 1 to 7:

The Students Passing Sr.K.G from the same school is directly admitted to First standard. If the seats are vacant, external students are given admission. For external students to get admission, they need to contect the Principal of the school personally along with a copy of application. 3) Secondary courses Standard 8 to 10 This section is run by M.T.Jariwala Secondary School. These courses are taught in two medium. English Medium Gujarati Medium

The Admission Process for STD 8 to 10:

The Students passing seven standards from the same school are admitted to eight standards. It the seats are vacant, external students are given admissions. For external students to get admission, they need to contect the Principal of the school. 4) Higher secondary courses Standard 11th to 12th This section comes under M.T.Jariwala higher Secondary School. These courses are taught in two medium. English Medium Gujarati Medium Currently we have commerce stream only. The management is trying to open the Science stream. 5) Degree Courses B.A, B.COM, B.Sc.(Home Science) The Degree courses B.A, B.COM, B.Sc. (Home Science) runs under
7

LIBRARY MANAGEMENT SYSTEM

Z.F.Wadia Womens College & N.K.Zhota college of Commerce. All these courses are of 3 years durations and examinations are held by the South Gujarat University. B.C.A. (Bachelor of compute Application): We have stared these courses from 2001 with the intake capacity of 120 students. This course runs under Vidhyamandir College of information science.

Objectives and its Function:The objectives and functions of Vidhyamandir Society are as follows. 1) Spreading the education and especially the education of women. 2) To fulfill this objective taking steps to make efforts easy. 3) To achieve this object, to set up an educational organization, accepting, co-operating and organizing. 4) To develop the education and helping in that case and by those efforts to marbleize. 5) Taking all the steps and doing all type of function to achieve these all objective.

Committees of the trust:Follows members were the first trustees. 1. 2. 3. 4. 5. 6. 7. Dr.Bhukhandas B.Gandhi Dr.Chimanlal M.Dalal. Dr.Amichand C.Shah. Mr. Krishna C.Zaveri. Mr.Hiralal R.Jariwala. Mr.Ishvarlal D.Khanwala. Mrs.Subhadrabahen R.Marfatiya.

After some years a little correction was made in committee. Some retied and the others left their posts willingly. So some new trustees came on the screen.

Area:Z.F.Womens College of Surat is being run under the committee of Vidhyamandir society of Surat. The organization, 6Km far from Surat Railway Station has of 6125 sq mt.At earlier stage area was only 5753 sq mt. Its area is vast and attractive.

LIBRARY MANAGEMENT SYSTEM

Establishment of the College:On 15/7/1948 Mrs.Subhadrabahen Ravivadan Marfatia and other ladies and gentlemen tried set up Vidhyamandir Society. In between 1948 and 1951 this organization run S.S.C, F.Y., S.Y. and T.Y.B.A., without connection with a University. Afterwards it was connected with S.N.D.T. in 1951, with South Gujarat University in 1965.

Financial Sources:For Vidhyamandir Trust 1. Charity. 2. Fund: For z.f.wadia womens college 1. 2. 3. 4. Laboratory fees, Library fees, Examination fees, Admission fees, etc. Fine of students. Selling of identity. State governments grant.

LIBRARY MANAGEMENT SYSTEM

COLLEGE PROFILE:Z.F.WADIA WOMENSCOLLEGE & N.K.JHOTA COLLEGE OF COMMERCE trusted by Vidhyamandir society Surat. It established on river bank of Tapi. It is working in trusts marvelous building. Vehicles or bus facility is easily available for coming to college. EMPLOYEE:In starting the selection of the employee had been according to the committee of the trust. But now the selection of these employees like education and uneducational is done as constuent of the trust. Students:When the Commerce faculty is stared in 1983 there were only a few students. But now there are 1116 students in this college. Staffs:Total strength of the college staff is which involves Hon principal Ashok Desai and following members. 1996-1997 the staff of teachers was 33 and the others were 16.

10

LIBRARY MANAGEMENT SYSTEM

PROSPECTUS 1. Location:
Vidhyamandir Societys Z.F.Wadia Womens College & N.K.Jhota College of Commerce is situated at Athwalines near Chow patty on the Blank of the enchanting river Tapi. The institution has magnificent building houses the office complex and other facilities. It is easily accessible by transport.

2.

Approval:
Arts, Commerce, Home science, Computer Application & m.Com.

The institute has been granted permanent approval by the Veer Narmad South Gujarat University to conduct three-year degree course in Arts and Commerce as well as postgraduate studies in Commerce. The institute offers graduation as a special subject. This is a remarkable characteristic of the degree conferred by this institution. This is the only institute granted recognition by Veer Narmad South Gujarat University to conduct postgraduate studies in commerce for only women. The medium of instruction in the Arts Faculty the institute imparts education through both Gujarati and English medium.

3.

Curriculum:

At the F.Y.B.A level any two subjects may be opted as optimal subjects and from this any one subject Gujarati or History or Home science or English can be taken as principal subject at the S.y/T.Y.B.A lavel.

11

LIBRARY MANAGEMENT SYSTEM

ARTS FACULTY
The following subjects are taught in the Arts Faculty.

1. FIRST YEAR B.A.

(a) English (Higher level) OR Guajarati (Compulsory Language)-one paper. (b) Environment studies-one paper. (c) Sanskrit (classical Language)-one paper.

Optional Subjects:
Any two subjects can be opted from the following (d), (e), (f), (g) subjects. (d) Gujarati (Principal) (two papers) with 1-hindi (subsidiary) (twopapers) or English (subsidiary) (two papers) may be chosen. (e) History (principal) (two papers) with English (subsidiary) or psychology (subsidiary) (two papers) may be chosen. (f) Home Science (principal) (two papers) & home science (subsidiary) (two papers) may be chosen. (g) English: English-self financed (principal) (two papers) with Hindi (subsidiary) (two papers) or psychology (subsidiary) (two papers) or Economics (subsidiary) (two papers) may be chosen.

NOTE: (a) Two papers of optional subject (principal subsidiary) have to be done.
(b) A part from the three compulsory subjects (each paper carries 70 marks) there are two papers on principal subject (70 marks each) & two paper on subsidiary subject (70 marks each). (c) Internal marks to be given out of 30 on the basis of the students attendance in the class, internal tests & assignment.
12

LIBRARY MANAGEMENT SYSTEM

2. SECOND YEAR B.A.

(a) English (higher level) or Gujarati (compulsory language) (two papers). (b) Inter disciplinary subject: (Choose any one subject from the following) (1) Population education (one paper). or (2) History of major revolution.

Optional subjects:
Any two subjects can be opted from the following (c), (d) subjects in Continuation of the subjects selected at the F.Y.B.A. level. (c) Gujarati (two papers) with Hindi (two papers) or English (two papers) may be chosen. (d) History (two papers) with English (two papers) or psychology (two papers) or economics (two papers) may be chosen.

13

LIBRARY MANAGEMENT SYSTEM

COMPUTER APPLICATION
tion center. In the year 1994 the institution commenced a computer applica-

The academy offers computer application (self financed) as principal subject in option to advanced accounting & auditing in the commerce faculty. In this way you can obtain B.COM. degree with computer application as principal subject. At present vidya mandir societysvast computer center with nearly 90 computers are interlinked with ethenet facility & internet facility is also available. Veer Nanmad South Gujarat University recognized B.COM. with computer application is a special feature of institution. Students joining the college for B.COM. With computer application have to study apart from the compulsory subject, one paper of computer application instead of the optional subject. At the First year level, students have to study computer application paper-1 instead of Banking. In the second & third year computer application(in continuity if F.Y.B.COM.) paper 2, 3, 4, 5 have to be studied with cost accounting paper-1 & auditing paper-3 as subsidiary subjects. In the third year along with computer application paper-5, students have to prepare a project work report, which os a characteristic of this subject. After having opted for computer application students cannot change the subject half way through the course. There is a separate timetable for practical. Attendance during practical classes is compulsory.

14

LIBRARY MANAGEMENT SYSTEM

FIRST YEAR

Paper-1: COMPUTER FUNDAMENTALS & OPERATING SYSTEM.

Paper-2: APPLICATION SOFTWARE FOX PROGRAMMING.

SECOND YEAR
Paper-3: INTERNET, WEB PAGES DESIGNING & COREL DRAW.

Paper-2: GRAPHICAL USERINTERFACE TOOLS (VISUAL BASIC + ACCESS).

THIRD YEAR
Paper-3: ENTER PRENEURSHIP & PRENEURSHIP PROJECT REPORT.

15

LIBRARY MANAGEMENT SYSTEM

2.

16

LIBRARY MANAGEMENT SYSTEM

Aim of the computer based system

Every manual activity of function gives rise to consider related to the activity. The information generated is either static of dynamic in nature. Once the volume of information generated grows, it becomes difficult to control and use it for effective decision making. One of major aspects of providing a computer based system for an application arioso capture the status of continuously changing information in raw from and provide timely, up-to-date and accurate information for decision making. As by product of his progress, the system generates various reports. Which replace manually maintained registers the computer system provides detailed information, which can be used by the staff for better follow up action One of the inherent problems of maintaining information manually is the element of redundancy. To search the same information with various views, duplicate registers have to be maintained computerized system helps in reducing duplication of data and provide single of data capture. To summarize, the following are the aims of the computer-based system 1. To provide timely update and accurate information to the management for decision-making. 2. To provide single point data capture for all input information and avoid data redundancy. 3. To reduce book keeping efforts and provide information for better follow-up action. 4. To generate statistical information on activities for estimation and performance comparison.

17

LIBRARY MANAGEMENT SYSTEM

On-Line data entry philosophy

In a computer system, there are two distinct of entering data into the system. On-Line and Off-Line data entry refers to a system. Where the same person who handles the transaction in the physical system enters the data through a terminal interface normally. One of the main characteristics of online data entry Is the relatively smalltime interval between the traction in the physical and its entry into the computer system. As opposed to the above. Off-Line data entry refers to a system where data is transcribed on to a medium such as punch card. Floppy disc etc. this data is them entered as traction in the physical system and is entry into the computer system is considerable. Off-line data entry is conventional and is used high-volume environment. Data processing is incomplete without a facility for manipulating the data is entry into the system. Three distinct operations are possible on the data inquiry. Update and Delete. Inquiry refers to facilities of selective retrieval of data without altering the data. Update reference to the facility by which selected by the facility by which selected parts of the data entered into the system is modified. Deletion refers to removal of already residing in the system. All these operation can be performed in any sequence at any time. But to safeguard consistency of data, the principal of enquirer before update is followed in online system. The data should be retrieved, verified and then update. These risks are further reduced by the validation performed on the data by the computer system itself. Thus, whenever input, updating of data is attempted, the computer system checks the consistency of data within itself and its relation with other data already exiting any inconsistency found is reflected to user in the form of an error message. This error message is in plain English and conveys the data error the nature of error. Data is accepted once all error is corrected.

18

LIBRARY MANAGEMENT SYSTEM

ON-LINE enquiry philosophy

On-line inquiry is the facility of selective retrieval of data without altering the data itself. The process of retrieval is on-line e.g. the request is made thought terminal interface and response is received on the terminal the time interval between, the request and the response is very small, normally of the order seconds. The other type of information retrieval is through computer-generated reports. Information retrieval through reports is characterized by comparatively large time interval between the requests immediately. Information, which is more static in nature, is retrieved through computer-generated reports.

19

LIBRARY MANAGEMENT SYSTEM

3.

20

LIBRARY MANAGEMENT SYSTEM

ABOUT VISUAL BASIC

Microsoft Visual Basic, the fastest and easiest way to create applications for Microsoft Window. Whether you are an experienced professional or brand new to windows programming. Visual Basic provider you with a complete set of tools to simplify rapid application development.

WHAT IS VISUAL BASIC?

The "Visual" part refers to the method used to create the graphical user interface (GUI). Rather than writing numerous lines of code to describe the appearance and location of interface element, you simply add prebuilt objects into place on screen. If you've ever used a drawing program such as paint, you already have most of the skills necessary to create an effective user interface. The "Basic" part to the BASIC (Beginners All Purpose Symbolic Instruction Code) language, a language used by more programmers than any other language in the history of computing. Visual Basic has evolved from the original BASIC language and now contains several hundred statements, function and keywords, many of which relate to the windows GUI.

VISUAL BASIC'S TOOLS:

Data access features allow you to create databases, front-end applications, and scalable server-side components for most popular database formats including Microsoft SQL server and enterprise level database. AativeXtm technologies w you to user the functionality provided by other applications, such as Microsoft Word Processor, Microsoft Excel spreadsheet and other Windows application. You can even automate applications and objects created using the Professional or Enterprise editions of Visual Basic. Internet capabilities make it easy to provide access to documents and Applications across the Internet from within your application, Or to create Internet server applications. Your finished application is true.exe file that users a Visual Basic virtual Machine that you can freely distribute.

Understanding the Event-Driven Model

In traditional or Procedural applications, the application it self controls which portions of code execute and in what sequence. Execution starts with
21

LIBRARY MANAGEMENT SYSTEM

the first line of code and follows a predefined path through the application, calling procedures as needed. In an event-driven application, the code doesnt follow a predetermined path-it executes different code section in response to events. Events can be triggered by the users action by message from the system or other applic ations, or even from the application itself. The sequence of these events determines the sequence in which the code executes, thus the path through the applications code differs each time the program runs. Because you cant predict the sequence of events, your code must make certain assumption about the state of the world when it executes. When you make Assumption (for example, that an entry field must contain a value before running a Procedure to process that value), you should structure your application in such a way as to make sure that assumption will always be valid (for example, disabling the command button that starts the procedure until the entry field contain a value), your code can also a trigger events during execution. For example, programmatically change the text boxs change events to occur. This would cause the code (if any) contained in the events to execute. If you assumed that this event would only be trigged by user interaction, you might see unexpected results. It is for this reason that it is important to understand the event-driven model and keep it in mind when designing your application.

Understanding properties, Methods and Events

Visual Basic forms and controls are objects, which expose their own properties, methods and events. Properties can be thought of as an objects attributes, methods as its actions, and events as its responses. An everyday object like a childs helium balloon also has properties, methods and events. A balloons properties includes such as its height, diameter and color. Other Properties describe its state (inflated or not inflated), or attributes that arent visible such as its age. By definition, all balloons have these Properties; the settings of these Properties may differ from one balloon to another. A balloon also has inherent methods or actions that it might perform. It has an inflate method (the action of filling it with helium), a deflate method (expelling its contents) and a rise method (if you to let go of it). Again, all balloons are capable of these methods. Balloons also have predefined responses to certain external events, For instance, a balloon would respond to the event of being punctured by deflating its self, or to the event of being released by rising into the air.
22

LIBRARY MANAGEMENT SYSTEM

Data in MS-ACCESS is organized in a form of tables. Within a table, records are arranged accordingly to a common reference value, known as the Primary Key or the Key field. The value in the key field ID different for ev ery record and thus helps in uniquely identifying the records. A combination of low or fields an also be used as he primary key. Such a combination is called composite. Since a value in one table can be replicated across other tables, there should be a way to maintain a relation between the two tables this relation is implemented through the concept of foreign key. A Foreign key in a table is field. Which link that table to another table? Database stored in Ms-Access have a default extension of*. Mdb.MSAccess also Maintains index files of tables. An index is an internal table of values that MS-Access maintains to store the order of records. An index object thus provides efficient access to data. It does not duplicate the data itself. Nor does it change the sequence in which the data is stored in the table.

Same Key feature of MS-Access: 1. It is a window based application

MS-Access is a window based application and therefore has an interface similar to WINDOWS NI. We can cut, copy, paste data form any window application to and from access. Since window and access are both products developed by Microsoft Corporation, they work well together. You need to have either window NT or windows 9x on your machine before you can install MS access.

2.

Large data management capacity

MS-Access lets us important from or export to FoxPro, Excel, Oracle and other data formats. Importing creates an access tables: exporting an MS-Access table create e file in the format that we are exporting to Linking means that we can use external data without creating an MS-Access table. We can link to FoxPro, Excel and ASCII data.

3.

Importing, Exporting and Linking External Files

MS-Access lets us important form or export to FoxPro, Excel, Oracle and Other data formats. Importing creates an access tables: exporting an MS23

LIBRARY MANAGEMENT SYSTEM

Access table create a file in the format that we are exporting to Linking means that we can use external data without creating an MS-Access table. We can link to FoxPro, Excel and ASCII data.

4.

Wizard and Builders

A wizard is a utility that helps us perform the complex tasks by guiding us through the process. Wizard asks us questions about the content, style and formant of the object that we want to create, such as a report or a data-entry screen and then generate the object automatically. We need to answer the question by selection options or making yes/no decisions. MS-Access contains nearly 100 wizards to design database. Application, tables forms, report and graph, mailing tables, controls and properties.

5.

Context-sensitive help and the answer wizard

Link window NT, access provides online, context sensitive helps. MSAccess also includes a unique answer wizard that answer question which in simple English.

6.

Built in function

MS-Access includes small program know as function that perform simple calculation or data formation. Access includes mathematical, financial, date, time and sting functions. We can use them to create expression for calculation in our forms. Reports and queries.

7.

Macros

For those users who do not want to write programs, access provides macros. Macros let us perform common task without user intervention. Macros let us manipulate data, open forms and automate any task i.e. repetitive and complex.

8.

Built In Security

Since MS-Access is a multi-user database, security feature are built into the DBMS. We can enrapt a database to prevent unauthorized access. Selective hiding of database objects such as reports, macros and forms is also possible. We can also hide selective fields in a forms of report to protect sensitive. We can assign a password for loading MS-Access to that only authorized can use it.

24

LIBRARY MANAGEMENT SYSTEM

Advantages:

Redundancy of data can be reduced. Inconcentency of data can be avoided. Data can be shared. Data integrity can be maintained. Security restrictions can be implemented.

25

LIBRARY MANAGEMENT SYSTEM

HARDWARE SPECIFICATION
Computer:-Zenith Machine with P-III 933 MHZ Processor. RAM: - 64MB HD Disk: - 20GB CD Drive: - 52X Creative Operating System: -Window-XP FD Disk: -1.44MB

SOFTWARE CONFIGURATION
Operating System Tools Language Data Base :-Window- 7 (ultimate) :-Visual Basic :-Visual Basic :-Microsoft Access

26

LIBRARY MANAGEMENT SYSTEM

4.

27

LIBRARY MANAGEMENT SYSTEM

Scope of the system:

Master: Student info:
User can add record of student of the college, which is stored in the student info.

Book INFO:
User can view the information of the entire book available in the library and its total quantity and current quantity of the books.

MAGAZINE INFO:
User can also get the information of the magazine. Student can issue the magazine for reference all the above information is maintained in maintained in magazine info form.

STAFF INFO:
User can add record of staff of the college, which is stored in the staff info.

TRANSACTION MENU
ISSUE STUDENT:
Student can issue the book for reference all the above information is maintained in issue student info form.

ISSUE STAFF:
Staff can issue the book for reference all the above information is maintained in issue student info form.

DEALER:
Dealers information is also available to the user. User can get information about the payment detail.

PURCHASE:
The purchase information available in the purchase info form user can perform task of purchasing book and magazine on this form and also can view
28

LIBRARY MANAGEMENT SYSTEM

information of purchase.

REPORT:
User can get report of book, magazine, dealer, purchase book, issue book.

EXIT:
User can exit from project system.

CONSTRAINTS:
The book issued by the student must be returned before deleting the records and the returned book entry must be deleted otherwise this student can be not registered. It is very difficult to maintain the project in absent of any one of u.

29

LIBRARY MANAGEMENT SYSTEM

5.

30

LIBRARY MANAGEMENT SYSTEM

Requirement analysis
Requirement analysis is the process of gathering information about the user requirement and to know about the exiting system. Whether manual or computerized. The analysis of the system is as follows:
1. Onsite observation: Working of the manual system was carefully studies and various problems of the working staff were identified. 2. Interview conducted:

Interview were of the staff were conducted to discuss about other details that were not fulfilled during observation. 3. Document observation:

Various document were scrutinized like free Book table, Book issued, Purchase book, etc.

31

LIBRARY MANAGEMENT SYSTEM

Master

Dealer

Exit

Purchase

Report

Dealer info Purchase book Magazine info Purchase Magazine Dealer payment
Magazine info

Student Staff info Staff

Book info Magazine info

Student info Magazine info

Staff info Dealer info

Book info

32

LIBRARY MANAGEMENT SYSTEM

TABLE LINKING
Book id Book info Purchase book

Book id

Book id

Student issue

Book id

Staff issue

G.R.No.

Staff id

Student issue

Staff issue

33

LIBRARY MANAGEMENT SYSTEM

6.

34

LIBRARY MANAGEMENT SYSTEM

DATABASE DESIGN
BOOK ENTRY FORM
SERIAL NO 1 PRIMARY KEY 2 3 4 5 6 7 FIELD NAME ACCESSIONNO TITLE AUTHOR LANGUAGE CLASS DATE OF ENTRY DEALER NAME FIELD TYPE NUMBER TEXT TEXT TEXT TEXT DATE/TIME TEXT SIZE 20 20 20 20 20 20 20

STUDENT S ENTRY FORM

SERIAL NO 1 PRIMARY KEY 2 3 4 FIELD NAME GRNO SURNAME NAME CLASS FIELD TYPE NUMBER TEXT TEXT TEXT SIZE 20 20 20 20

BOOK ISSUE
SERIAL NO 1 FORIGN KEY 2 FORIGN KEY 3 FIELD NAME ACCESSIONNO GRNO ISSUEDATE FIELD TYPE NUMBER NUMBER DATE/TIME SIZE 20 20 15

BOOK RETURN
SEREAL NO 1 FORIGN KEY 2 FORIGN KEY 3 FIELD NAME ACCESSIONNO GRNO RETURNDATE FIELD TYPE NUMBER NUMBER DATE/TIME SIZE 20 20 20

35

LIBRARY MANAGEMENT SYSTEM

STAFF INFO
SERIAL NO 1 PRIMARY KEY 2 3 4 5 FIELD NAME STAFFID TEACHERNAME STREAM ADD SEX FILED TYPE NUMBER TEXT TEXT TEXT TEXT SIZE 20 20 20 20 20

STAFF ISSUE
SERIAL NO 1 FORIGN KEY 2 FORIGN KEY 3 4 FIELD NAME STAFFID ACCESSIONNO BOOKNAME ISSUEDATE FILED TYPE NUMBER NUMBER TEXT DATE/TIME SIZE 20 20 20 20

DEALER INFO
SERIAL NO 1 PRIMARY KEY 2 3 4 5 SERIAL NO 1 2 3 4
FORIGN KEY

FIELD NAME FIELD TYPE DEALERCODE NUMBER NAME TEXT ADD TEXT PHONE NUMBER WEBSITE TEXT DEALER PURCHASE

SIZE 20 20 20 20 20 SIZE 20 20 20 20

FIELD NAME DEALE CODE DEALERNAME BOOKNAME PRICE FIELD NAME DEALERCODE DEALERNAME DATE PAIDAMOUNT

FIELD TYPE NUMBER TEXT TEXT NUMBER FIELD TYPE NUMBER TEXT DATE/TIME NUMBER SIZE 20 20 20 20

DEALER PAYMENT
SERIAL NO 1 FORIGN KEY 2 3 4
36

LIBRARY MANAGEMENT SYSTEM

FORMS & CODING

MDI FORM

37

LIBRARY MANAGEMENT SYSTEM

BOOK ENTRY FORM

38

LIBRARY MANAGEMENT SYSTEM

CODING OF BOOK ENTRY FORM

Dim flag As Integer Dim str As String Dim rsmove As New ADODB.Recordset

Private Sub cmddelete_Click() Dim k As Integer k = InputBox("Enter accno to be deleted") cn.Execute "delete from bookeform where accessionno=" & k MsgBox "record deleted" End Sub

Private Sub cmdedit_Click() Dim rs As New ADODB.Recordset flag = 2 Dim k As Integer k = InputBox("Enter accno to be edited") str = "select* from bookeform where accessionno=" & k rs.Open str, cn, adOpenDynamic, adLockOptimistic txtaccno.Text = rs.Fields("accessionno") txttitle.Text = rs.Fields("title") txtauthor.Text = rs.Fields("author") txtlang.Text = rs.Fields("language") txtclass.Text = rs.Fields("class") txtdate.Text = rs.Fields("dateofentry")
39

LIBRARY MANAGEMENT SYSTEM

txtdealer.Text = rs.Fields("dealername") txtaccno.Enabled = False End Sub

Private Sub cmdnext_Click() rsmove.MoveNext If rsmove.EOF = True Then rsmove.MoveLast End If txtaccno.Text = rsmove.Fields("accessionno") txttitle.Text = rsmove.Fields("title") txtauthor.Text = rsmove.Fields("author") txtlang.Text = rsmove.Fields("language") txtclass.Text = rsmove.Fields("class") txtdate.Text = rsmove.Fields("dateofentry") txtdealer.Text = rsmove.Fields("dealername") End Sub

Private Sub cmdprevious_Click() rsmove.MovePrevious If rsmove.BOF = True Then rsmove.MoveFirst End If txtaccno.Text = rsmove.Fields("accessionno") txttitle.Text = rsmove.Fields("title")
40

LIBRARY MANAGEMENT SYSTEM

txtauthor.Text = rsmove.Fields("author") txtlang.Text = rsmove.Fields("language") txtclass.Text = rsmove.Fields("class") txtdate.Text = rsmove.Fields("dateofentry") txtdealer.Text = rsmove.Fields("dealername") End Sub

Private Sub cmdsave_Click() If flag = 1 Then cn.Execute "insert into bookeform values('" & txtaccno.Text & "','" & txttitle.Text & "','" & txtauthor.Text & "','" & txtlang.Text & "','" & txtclass.Text & "','" & txtdate.Text & "','" & txtdealer.Text & "')" MsgBox "record inserted" Else cn.Execute "update bookeform set title='" & txttitle.Text & "',author='" & txtauthor.Text & "',language='" & txtlang.Text & "',classno=" & txtclass.Text & ",dateofentry=" & txtdate.Text & ",'" & txtdealer.Text & "'where accessionno=" & txtaccno.Text & "" MsgBox "record updeted" End If Call text_blank End Sub

Sub text_blank() txtaccno.Text = "" txttitle.Text = ""

41

LIBRARY MANAGEMENT SYSTEM

txtauthor.Text = "" txtlang.Text = "" txtclass.Text = "" txtdate.Text = "" txtdealer.Text = "" End Sub

Private Sub Command1_Click() Dim rs As New ADODB.Recordset rs.Open "select*from bookeform", cn Set DataReport1.DataSource = rs DataReport1.Show End Sub

Private Sub Form_Load() flag = 1 Call connect cn.Open End Sub

42

LIBRARY MANAGEMENT SYSTEM

STUDENT ENTRY FORM

43

LIBRARY MANAGEMENT SYSTEM

CODING OF STUDENT ENTRY FORM

Dim str As String Dim flag As Integer Dim rsmove As New ADODB.Recordset

Private Sub cmdadd_Click() flag = 1 Call text_blank txtgrno.SetFocus End Sub

Private Sub cmddelete_Click() Dim k As Integer k = InputBox("enter grno to be deleted") cn.Execute "delete from stud where grno=" & k MsgBox "record deleted" End Sub

Private Sub cmdedit_Click() Dim rs As New ADODB.Recordset flag = 2 Dim k As Integer k = InputBox("enter grno to edited") str = "select * from stud where grno= " & k rs.Open str, cn, adOpenDynamic, adLockOptimistic txtgrno.Text = rs.Fields("grno") txtsurname.Text = rs.Fields("surname")
44

LIBRARY MANAGEMENT SYSTEM

txtname.Text = rs.Fields("name") txtclass.Text = rs.Fields("class") txtgrno.Enabled = False End Sub

Private Sub cmdfirst_Click() If rsmove.State = 0 Then rsmove.Open "select* from stud", cn, adOpenDynamic, adLockOptimistic End If If rsmove.BOF <> True Then rsmove.MoveFirst txtgrno.Text = rsmove.Fields("grno") txtsurname.Text = rsmove.Fields("surname") txtname.Text = rsmove.Fields("name") txtclass.Text = rsmove.Fields("class") End If End Sub

Private Sub cmdlast_Click() If rsmove.EOF <> True Then rsmove.MoveLast txtgrno.Text = rsmove.Fields("grno") txtsurname.Text = rsmove.Fields("surname") txtname.Text = rsmove.Fields("name") txtclass.Text = rsmove.Fields("class") End If End Sub
45

LIBRARY MANAGEMENT SYSTEM

Private Sub cmdnext_Click() rsmove.MoveNext If rsmove.EOF Then rsmove.MovePrevious End If txtgrno.Text = rsmove.Fields("grno") txtsurname.Text = rsmove.Fields("surname") txtname.Text = rsmove.Fields("name") txtclass.Text = ("class") End Sub

Private Sub cmdprevious_Click() rsmove.MovePrevious If rsmove.BOF Then rsmove.MoveFirst End If txtgrno.Text = rsmove.Fields("grno") txtsurname.Text = rsmove.Fields("surname") txtname.Text = rsmove.Fields("name") txtclass.Text = rsmove.Fields("class") End Sub

Private Sub cmdsave_Click() If flag = 1 Then cn.Execute "insert into stud value(" & txtgrno.Text & ",'" & txtsurname.Text & "', '" & txtname.Text & "','" & txtclass.Text & "')"
46

LIBRARY MANAGEMENT SYSTEM

MsgBox "recored inserted" Else cn.Execute "update stud set surname= '" & txtsurname.Text & "',name= '" & txtname.Text & "', class= '" & txtclass.Text & "' where grno= " & txtgrno.Text & "" MsgBox "record updated" End If End Sub

Private Sub Command1_Click() Dim rs As New ADODB.Recordset rs.Open "select * from stud", cn Set DataReport1.DataMember = rs DataReport1.Show End Sub

Private Sub Form_Load() flag = 1 Call connect cn.Open End Sub

Sub text_blank() txtgrno.Text = " " txtsurname.Text = " " txtname.Text = " " txtclass.Text = " " End Sub
47

LIBRARY MANAGEMENT SYSTEM

BOOK ISSUE

48

LIBRARY MANAGEMENT SYSTEM

CODING OF BOOKISSUE
Dim str As String Dim flag As Integer Dim rsmove As New ADODB.Recordset

Private Sub cmddelete_Click() Dim k As Integer k = InputBox("Enter accno. to be deleted") cn.Execute "delete from bookissue where srno=" & k MsgBox "record deleted" End Sub

Private Sub cmdedit_Click() Dim rs As New ADODB.Recordset flag = 2 Dim k As Integer k = InputBox("Enter SR NO.to be edited") str = "select*from bookissue where srno='" & k & "'" rs.Open str, cn, adOpenDynamic, adLockOptimistic Text1.Text = rs.Fields("accno") Text2.Text = rs.Fields("grno") Text3.Text = rs.Fields("issuedate") Text1.Enabled = False End Sub

Private Sub cmdnext_Click() rsmove.MoveNext

49

LIBRARY MANAGEMENT SYSTEM

If rsmove.EOF = True Then rsmove.MoveLast End If Text1.Text = rsmove.Fields("accno") Text2.Text = rsmove.Fields("grno") Text3.Text = rsmove.Fields("issuedate") End Sub

Private Sub cmdprevious_Click() rsmove.MovePrevious If rsmove.BOF = True Then rsmove.MoveFirst End If Text1.Text = rsmove.Fields("accno") Text2.Text = rsmove.Fields("grno") Text3.Text = rsmove.Fields("issuedate") End Sub

Private Sub cmdsave_Click() If flag = 1 Then cn.Execute "insert into bookissue values(" & Text1.Text & "," & Text2.Text & "," & Text3.Text & ")" MsgBox "record insert" Else cn.Execute "update bookissue set grno=" & Text2.Text & ",issuedate=" & Text3.Text & " where accno=" & Text1.Text & "" MsgBox "record update" End If
50

LIBRARY MANAGEMENT SYSTEM

End Sub

Sub text_blank() Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub

Private Sub Form_Load() flag = 1 Call connect cn.Open End Sub

51

LIBRARY MANAGEMENT SYSTEM

BOOK RETURN

52

LIBRARY MANAGEMENT SYSTEM

CODING OF BOOK RETURN

Dim str As String Dim flag As Integer Dim rsmove As New ADODB.Recordset

Private Sub cmddelete_Click() Dim k As Integer k = InputBox("Enter accno to be deleted") cn.Execute "delete from bookreturn srno=" & k MsgBox "record deleted" End Sub

Private Sub cmdedit_Click() Dim rs As New ADODB.Recordset flag = 2 Dim k As Integer k = InputBox("Enter srno to be edited") str = "select*from bookreturn where srno='" & k & "'" rs.Open str, cn, adOpenDynamic, adLockOptimistic txtaccno.Text = rs.Fields("accno") txtgrno.Text = rs.Fields("grno") txtreturndate.Text = rs.Fields("returndate") txtsrno.Enabled = False End Sub

Sub text_blank() txtaccno.Text = ""

53

LIBRARY MANAGEMENT SYSTEM

txtgrno.Text = "" txtreturndate.Text = "" End Sub

Private Sub cmdnext_Click() rsmove.MoveNext If rsmove.EOF = True Then rsmove.MoveLast End If txtaccno.Text = rsmove.Fields("accno") txtgrno.Text = rsmove("grno") txtreturndate.Text = rsmove.Fields("returndate") End Sub

Private Sub cmdprevious_Click() rsmove.MovePrevious If rsmove.BOF = True Then rsmove.MoveFirst End If txtaccno.Text = rsmove.Fields("accno") txtgrno.Text = rsmove("grno") txtreturndate.Text = rsmove.Fields("returndate") End Sub

Private Sub cmdsave_Click() If flag = 1 Then

54

LIBRARY MANAGEMENT SYSTEM

cn.Execute "insert into bookreturn values(" & txtaccno.Text & "," & txtgrno.Text & "," & txtreturndate.Text & ")" MsgBox "record insert" Else cn.Execute "update bookreturn set grno=" & txtgrno.Text & ",returndate=" & txtreturndate.Text & "where srno=" & txtaccno.Text & "" MsgBox "record update" End If End Sub

Private Sub Form_Load() flag = 1 Call connect cn.Open End Sub

55

LIBRARY MANAGEMENT SYSTEM

STAFF INFO

56

LIBRARY MANAGEMENT SYSTEM

CODING OF STAFF INFO

Dim str As String Dim flag As Integer Dim rsmove As New ADODB.Recordset Private Sub cmdadd_Click() flag = 1 Call text_blank txtstaffid.SetFocus End Sub

Private Sub cmddelete_Click() Dim k As Integer k = InputBox("enter staffid to be deleted") cn.Execute "delete from staffinfo where staffid=" & k MsgBox "record deleted" End Sub Private Sub cmdedit_Click() Dim rs As New ADODB.Recordset flag = 2 Dim k As Integer k = InputBox("enter staffid to be edited") str = "select* from staffinfo where staffid=" & k rs.Open str, cn, adOpenDynamic, adLockOptimistic txtstaffid.Text = rs.Fields("staffid") txtteachername.Text = rs.Fields("teachername") txtstream.Text = rs.Fields("stream") txtadd.Text = rs.Fields("add")
57

LIBRARY MANAGEMENT SYSTEM

txtsex.Text = rs.Fields("sex") txtstaffid.Enabled = False End Sub

Private Sub cmdfirst_Click() If rsmove.State = 0 Then rsmove.Open "select* from staffinfo", cn, adOpenDynamic, adLockOptimistic End If If rsmove.BOF <> True Then rsmove.MoveFirst txtstaffid.Text = rsmove.Fields("staffid") txtteachername.Text = rsmove.Fields("teachername") txtstream.Text = rsmove.Fields("stream") txtadd.Text = rsmove.Fields("add") txtsex.Text = rsmove.Fields("sex") End If End Sub Private Sub cmdlast_Click() If rsmove.EOF <> True Then rsmove.MoveLast txtstaffid.Text = rsmove.Fields("staffid") txtteachername.Text = rsmove.Fields("teachername") txtstream.Text = rsmove.Fields("stream") txtadd.Text = rsmove.Fields("add") txtsex.Text = rsmove.Fields("sex") End If End Sub
58

LIBRARY MANAGEMENT SYSTEM

Private Sub cmdnext_Click() rsmove.MoveNext If rsmove.EOF Then rsmove.MovePrevious End If txtstaffid.Text = rsmove.Fields("staffid") txtteachername.Text = rsmove.Fields("teachername") txtstream.Text = rsmove.Fields("stream") txtadd.Text = rsmove.Fields("add") txtsex.Text = rsmove.Fields("sex") End Sub Private Sub cmdprevious_Click() rsmove.MovePrevious If rsmove.BOF Then rsmove.MoveFirst End If txtstaffid.Text = rsmove.Fields("staffid") txtteachername.Text = rsmove.Fields("teachername") txtstream.Text = rsmove.Fields("stream") txtadd.Text = rsmove.Fields("add") txtsex.Text = rsmove.Fields("sex") End Sub

Private Sub cmdsave_Click() If flag = 1 Then cn.Execute "insert into staffinfo values(" & txtstaffid.Text & ",'" & txtteachername.Text & "', '" & txtstream.Text & "', '" & txtadd.Text & "', '" & txtsex.Text & "')"
59

LIBRARY MANAGEMENT SYSTEM

MsgBox "record inserted" Else cn.Execute "update staffinfo set teachername='" & txtteachername.Text & "', stream='" & txtstream.Text & "', add='" & txtadd.Text & "', sex='" & txtsex.Text & "' where staffid=" & txtstaffid.Text & "" MsgBox "record updated" End If End Sub

Private Sub Command1_Click() Dim rs As New ADODB.Recordset rs.Open "select * from staffinfo", cn Set DataReport4.DataSource = rs DataReport4.Show End Sub Private Sub Form_Load() flag = 1 Call connect cn.Open End Sub Sub text_blak() txtstaffid.Text = " " txtteachername.Text = " " txtstream.Text = " " txtadd.Text = " " txtsex.Text = " " End Sub
60

LIBRARY MANAGEMENT SYSTEM

STAFF ISSUE

61

LIBRARY MANAGEMENT SYSTEM

CODING OF STAFF ISSUE

Dim str As String Dim flag As Integer Dim rsmove As New ADODB.Recordset

Private Sub cmdadd_Click() flag = 1 Call text_blank txtstaffid.SetFocus End Sub

Private Sub cmddelete_Click() Dim k As Integer k = InputBox("enter staffid to be deleted") cn.Execute "delete from staffissue where staffid=" & k MsgBox "record deleted" End Sub

Private Sub cmdedit_Click() Dim rs As New ADODB.Recordset flag = 2 Dim k As Integer k = InputBox("enter staffid to be edited") str = "select* from staffissue where staffid=" & k rs.Open str, cn, adOpenDynamic, adLockOptimistic txtstaffid.Text = rs.Fields("staffid") txtaccno.Text = rs.Fields("accno")
62

LIBRARY MANAGEMENT SYSTEM

txtbookname.Text = rs.Fields("bookname") txtissuedate.Text = rs.Fields("issuedate") txtstaffid.Enabled = False End Sub

Private Sub cmdfirst_Click() If rsmove.State = 0 Then rsmove.Open "select* from staffissue", cn, adOpenDynamic, adLockOptimistic End If If rsmove.BOF <> True Then rsmove.MoveFirst txtstaffid.Text = rsmove.Fields("staffid") txtaccno.Text = rsmove.Fields("accno") txtbookname.Text = rsmove.Fields("bookname") txtissuedate.Text = rsmove.Fields("issuedate") End If End Sub

Private Sub cmdlast_Click() If rsmove.EOF <> True Then rsmove.MoveLast txtstaffid.Text = rsmove.Fields("staffid") txtaccno.Text = rsmove.Fields("accno") txtbookname.Text = rsmove.Fields("bookname") txtissuedate.Text = rsmove.Fields("issuedate") End If End Sub
63

LIBRARY MANAGEMENT SYSTEM

Private Sub cmdnext_Click() rsmove.MoveNext If rsmove.EOF Then rsmove.MovePrevious End If txtstaffid.Text = rsmove.Fields("staffid") txtaccno.Text = rsmove.Fields("accno") txtbookname.Text = rsmove.Fields("bookname") txtissuedate.Text = rsmove.Fields("issuedate") End Sub

Private Sub cmdprevious_Click() rsmove.MovePrevious If rsmove.BOF Then rsmove.MoveFirst End If txtstaffid.Text = rsmove.Fields("staffid") txtaccno.Text = rsmove.Fields("accno") txtbookname.Text = rsmove.Fields("bookname") txtissuedate.Text = rsmove.Fields("issuedate") End Sub

Private Sub cmdsave_Click() If flag = 1 Then cn.Execute "insert into staffissue values(" & txtstaffid.Text & ", " & txtaccno.Text & ", '" & txtbookname.Text & "', '" & txtissuedate.Text & "')"
64

LIBRARY MANAGEMENT SYSTEM

MsgBox "record inserted" Else cn.Execute "update staffissue set accessionno=" & txtaccno.Text & " bookname='" & txtbookname.Text & "' issuedate=" & txtissuedate.Text & " where staffid=" & txtstaffid.Text & "" MsgBox "record updated" End If End Sub

Private Sub Command1_Click() Dim rs As New ADODB.Recordset rs.Open "select * from staffissue", cn Set DataReport5.DataSource = rs DataReport5.Show End Sub

Private Sub Form_Load() flag = 1 Call connect cn.Open End Sub

Sub text_blak() txtstaffid.Text = " " txtaccno.Text = " " txtbookname.Text = " " txtissuedate.Text = " " End Sub
65

LIBRARY MANAGEMENT SYSTEM

SUBJECT

66

LIBRARY MANAGEMENT SYSTEM

CODING OF SUBJECT
Dim str As String Dim flag As Integer Dim rsmove As New ADODB.Recordset

Private Sub cmdadd_Click() flag = 1 Call text_blank txtsubjectid.SetFocus End Sub

Private Sub cmddelete_Click() Dim k As Integer k = InputBox("enter subjectid to be deleted") cn.Execute "delete from subject where subjectid=" & k MsgBox "record deleted" End Sub

Private Sub cmdedit_Click() Dim rs As New ADODB.Recordset flag = 2 Dim k As Integer k = InputBox("enter subjectid to be edited") str = "select * from subject where subjectid=" & k rs.Open str, cn, adOpenDynamic, adLockOptimistic txtsubjectid.Text = rs.Fields("subjectid")
67

LIBRARY MANAGEMENT SYSTEM

txtname.Text = rs.Fields("subject") End Sub

Private Sub cmdnext_Click() rsmove.MoveNext If rsmove.EOF Then End If txtsubjectid.Text = rsmove.Fields("subjectid") txtname.Text = rsmove.Fields("subject") End Sub

Private Sub cmdprevious_Click() rsmove.MovePrevious If rsmove.BOF Then rsmove.MoveFirst End If txtsubjectid.Text = rsmove.Fields("subjectid") txtname.Text = rsmove.Fields("subject") End Sub

Private Sub cmdsave_Click() If flag = 1 Then cn.Execute "insert into subject values(" & txtsubjectid.Text & ", ' " & txtname.Text & " ') " MsgBox "record inserted" Else
68

LIBRARY MANAGEMENT SYSTEM

cn.Execute "update subject set subject=' " & txtname.Text & " ' where subjectid=" & txtsubjectid.Text & " " MsgBox "record update" End If End Sub

Private Sub Command1_Click() Dim rs As New ADODB.Recordset rs.Open "select * from subject", cn Set DataReport3.DataSource = rs DataReport3.Show End Sub

Private Sub Form_Load() flag = 1 Call connect cn.Open End Sub

Sub text_blank() txtsubjectid.Text = " " txtname.Text = " " End Sub

69

LIBRARY MANAGEMENT SYSTEM

DEALER INFO

70

LIBRARY MANAGEMENT SYSTEM

CODING OF DEALER INFO

Dim str As String Dim flag As Integer Dim rsmove As New ADODB.Recordset Private Sub cmddelete_Click() Dim k As Integer k = InputBox("enter dealercode to be deleted") cn.Execute "delete from dealerinfo where dealercode=" & k MsgBox "record deleted" End Sub

Private Sub cmdedit_Click() Dim rs As New ADODB.Recordset flag = 2 Dim k As Integer k = InputBox("enter dealecode to be edited") str = "select* from dealerinfo where dealercode=" & k rs.Open str, cn, adOpenDynamic, adLockOptimistic txtdealercode.Text = rs.Fields("dealercode") txtname.Text = rs.Fields("name") txtadd.Text = rs.Fields("add") txtphone.Text = rs.Fields("phone") txtwebsite.Text = rs.Fields("website") txtdealercode.Enabled = False End Sub

Private Sub cmdnext_Click()

71

LIBRARY MANAGEMENT SYSTEM

rsmove.MoveNext If rsmove.EOF Then rsmove.MovePrevious End If txtdealercode.Text = rsmove.Fields("dealercode") txtname.Text = rsmove.Fields("name") txtadd.Text = rsmove.Fields("add") txtphone.Text = rsmove.Fields("phone") txtwebsite.Text = rsmove.Fields("website") End Sub

Private Sub cmdprevious_Click() rsmove.MovePrevious If rsmove.BOF Then rsmove.MoveFirst End If txtdealercode.Text = rsmove.Fields("dealercode") txtname.Text = rsmove.Fields("name") txtadd.Text = rsmove.Fields("add") txtphone.Text = rsmove.Fields("phone") txtwebsite.Text = rsmove.Fields("website") End Sub Private Sub cmdsave_Click() If flag = 1 Then cn.Execute "insert into dealerinfo values(" & txtdealercode.Text & ", '" & txtname.Text & "', '" & txtadd.Text & "', " & txtphone.Text & ", '" & txtwebsite.Text & "')" MsgBox "record inserted"
72

LIBRARY MANAGEMENT SYSTEM

Else cn.Execute "update dealerinfo set name='" & txtname.Text & "' add='" & txtadd.Text & "' website='" & txtwebsite.Text & "' phone=" & txtphone.Text & " where dealercode=" & txtdealercode.Text & "" MsgBox "record updated" End If End Sub

Private Sub Command1_Click() Dim rs As New ADODB.Recordset rs.Open "select * from dealerinfo", cn Set DataReport6.DataSource = rs DataReport6.Show End Sub

Private Sub Form_Load() flag = 1 Call connect cn.Open End Sub Sub text_blank() txtdealercode.Text = " " txtname.Text = " " txtadd.Text = " " txtphone.Text = " " txtwebsite.Text = " " End Sub
73

LIBRARY MANAGEMENT SYSTEM

DEALER PURCHASE

74

LIBRARY MANAGEMENT SYSTEM

CODING OF DEALER PURCHASE

Dim str As String Dim flag As Integer Dim rsmove As New ADODB.Recordset

Private Sub cmddelete_Click() Dim k As Integer k = InputBox("Enter dealer code to be deleted") cn.Execute "delete from dealerp where dealercode=" & k MsgBox "record deleted" End Sub

Private Sub cmdedit_Click() Dim rs As New ADODB.Recordset flag = 2 Dim k As Integer k = InputBox("Enter dealer code to be edited") str = "select*from dealerp where dealercode='" & k & "'" rs.Open str, cn, adOpenDynamic, adLockOptimistic Text1.Text = rs.Fields("dealercode") Text2.Text = rs.Fields("dealername") Text3.Text = rs.Fields("bookname") Text4.Text = rs.Fields("price") Text1.Enabled = False End Sub

Private Sub cmdnext_Click()

75

LIBRARY MANAGEMENT SYSTEM

rsmove.MoveNext If rsmove.EOF = True Then rsmove.MoveLast End If Text1.Text = rsmove.Fields("dealercode") Text2.Text = rsmove.Fields("dealername") Text3.Text = rsmove.Fields("bookname") Text4.Text = rsmove.Fields("price") End Sub

Private Sub cmdprevious_Click() rsmove.MovePrevious If rsmove.BOF = True Then rsmove.MoveFirst End If Text1.Text = rsmove.Fields("dealercode") Text2.Text = rsmove.Fields("dealername") Text3.Text = rsmove.Fields("bookname") Text4.Text = rsmove.Fields("price") End Sub

Private Sub cmdsave_Click() If flag = 1 Then cn.Execute "insert into dealerp values(" & Text1.Text & ",'" & Text2.Text & "','" & Text3.Text & "'," & Text4.Text & ")" MsgBox "record insert" Else
76

LIBRARY MANAGEMENT SYSTEM

cn.Execute "update dealerp set dealername='" & Text2.Text & "',bookname='" & Text3.Text & "',price=" & Text4.Text & " where dealercode=" & Text1.Text & "" MsgBox "record update" End If End Sub

Sub text_blank() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" End Sub

Private Sub Form_Load() flag = 1 Call connect cn.Open End Sub

77

LIBRARY MANAGEMENT SYSTEM

DEALER PAYMENT

78

LIBRARY MANAGEMENT SYSTEM

CODING OF DEALER PAYMENT

Dim str As String Dim flag As Integer Dim rsmove As New ADODB.Recordset

Private Sub cmddelete_Click() Dim k As Integer k = InputBox("enterdealercode to be deleted") cn.Execute "delete from dealerpayment where dealercode=" & k MsgBox "record deleted" End Sub

Private Sub cmdedit_Click() Dim rs As New ADODB.Recordset flag = 2 Dim k As Integer k = InputBox("enter dealecode to be edited") str = "select* from dealerpayment where dealercode=" & k rs.Open str, cn, adOpenDynamic, adLockOptimistic txtdealercode.Text = rs.Fields("dealercode") txtdealername.Text = rs.Fields("dealername") txtdate.Text = rs.Fields("date") txtpaidamount.Text = rs.Fields("paidamount") txtdealercode.Enabled = False End Sub

Private Sub cmdnext_Click()

79

LIBRARY MANAGEMENT SYSTEM

rsmove.MoveNext If rsmove.EOF Then rsmove.MovePrevious End If txtdealercode.Text = rsmove.Fields("dealercode") txtdealername.Text = rsmove.Fields("dealername") txtdate.Text = rsmove.Fields("date") txtpaidamount.Text = rsmove.Fields("paidamount") End Sub

Private Sub cmdprevious_Click() rsmove.MovePrevious If rsmove.BOF Then rsmove.MoveFirst End If txtdealercode.Text = rsmove.Fields("dealercode") txtdealername.Text = rsmove.Fields("dealername") txtdate.Text = rsmove.Fields("date") txtpaidamount.Text = rsmove.Fields("paidamount") End Sub

Private Sub cmdsave_Click() If flag = 1 Then cn.Execute "insert into dealerpayment values(" & txtdealercode.Text & ", '" & txtdealername.Text & "', " & txtdate.Text & ", " & txtpaidamount.Text & ")" MsgBox "record inserted" Else
80

LIBRARY MANAGEMENT SYSTEM

cn.Execute "update dealerinfo set dealername='" & txtdealername.Text & "' dueamount=" & txtdueamount.Text & " date=" & txtdate.Text & " where dealercode=" & txtdealercode.Text & "" MsgBox "record updated" End If End Sub

Private Sub Command1_Click() Dim rs As New ADODB.Recordset rs.Open "select * from dealerpayment", cn Set DataReport7.DataSource = rs DataReport7.Show End Sub

Private Sub Form_Load() flag = 1 Call connect cn.Open End Sub

Sub text_blank() txtdealercode.Text = " " txtname.Text = " " txtdate.Text = " " txtpaidamount.Text = " " End Sub

81

LIBRARY MANAGEMENT SYSTEM

REPORT
The report represents the project output in the from of hard copy. It is very important aspect of the software system. It provides the information of the project in very attractive & organized manner. Much report can be generated in a project depending upon the type of requirement.

82

LIBRARY MANAGEMENT SYSTEM

REPORT OF BOOK ENRTY FORM

accessionno title author Dateofentry 1 BHAGVADGITA MADHUSUDAN 1/1/2012 2 3 4 5 SOFTWARE MS-WORD MS-EXCEL GHITA LEE JEK TOM KRISHNA 1/28/2012 1/4/2012 1/13/2012 1/5/2012

83

LIBRARY MANAGEMENT SYSTEM

7.

84

LIBRARY MANAGEMENT SYSTEM

TESTING
A basic objective of the testing is to find error. Testing is the process of exciting a program with the intent of finding an error. If testing is conducted successfully it will uncover errors in the software. Testing demonstrates that software functions according to the specification and that performance requirement appear to the defect. For testing a module prepare a test case that force execution of each path. The development of the system was done modules wisi.e. First main modules were identified and than these modules were developed and independently. The goal here is to test the internal logic of the module. Also at proper internal new developments were represented to the college to take their approvals to overcome any misunderstanding. These present in help a lot in reducing the overhead of time that otherwise would have resulted. When the complete system was tested with live data. This technique helped in improving overall efficiency of the system. The goal here is to see if the software meets its requirements. Once source code has been generated, software must be tested to uncover as many errors as possible before delivery to the customer. Software testing is very improves the perforce and overall quality of development software, each time a developer tests the software. There are various levels of software testing namely, unit testing, integration testing, system and acceptance testing. At each level of testing software is tested in more details to improve software quality in an efficient manner. Various objective and principal of good are stated below:

85

LIBRARY MANAGEMENT SYSTEM

Testing objective: Testing is a process of executing a program with the inter of finding an error. A good test case is one that a high profanity of finding an as-yetundiscovered error. A successful test is one that uncovers an as-yet-uncovered error.

Testing principal: All tests should be traceable to customer requirements. Test should be planned long before test begins. Testing should begin in the small & process toward testing in the larger. Exhaustive testing is not possible.

86

LIBRARY MANAGEMENT SYSTEM

8.

87

LIBRARY MANAGEMENT SYSTEM

BIBLIOGRAPHY
BOOK NAME
Mastering Visual Basic 6.0 Learn to Program with VB6 Successful project in Access Successful project in VB

AUTHOR
Delaney John Smiley P.M.Heathcotse D.Christopher

88