LIBRARY INFORMATION SYSTEM OF PIAT ACADEMY STO.

DOMINGO, PIAT, CAGAYAN ________________________________ A Thesis Presented to the Faculty of the College of Information And Computer Science Cagayan State University Carig Sur, Tuguegarao City _________________________________ In Partial Fulfillment of the Academic Requirement for the Degree of Bachelor of Science in Information Technology ____________________________________

By:

FERNAN A. PALATTAO March 2013

Library Information System of Piat Academy Chapter I The Problem and its Background Introduction
Information Systems are becoming ever more central to society, especially in business and industry. As society and technology develop, the most important skills for the futurelife in the development of individuals with the ability to both understand and manage these interrelated systems. Consequently, the things that were once seen in our country (people, organizations, information and technology) are now expected to operate a system that would help them to make their work easier and faster. At present, Piat Academy couldnt search for the files easily because as we observe, they do not have any computerized system. Thus, many problems are encountered. Common of which are the losing of files, consume a lot of time and prone to error. The researchers therefore, propose for the Piat Academy Library Information System so that the parish will have better and faster manipulation that would be efficient to the school.

Cagayan State University College of Information Technology and Computer Science 2

Library Information System of Piat Academy

Conceptual Frameworks
Students Name Borrow/Return Students record what or when the book has borrowed.

The system will allow admin to enter the students name (LastName, FirstName) Where in it can easily record the students data and what book was borrowed. It will also the remarks of the books which were lost, damaged and vandalized.

Statement of the Problem

These are some information regarding on the problem of the agency in their manual library transaction. 1. How to provide a system that will secure the borrowed books? 2. How to provide a system that will process the returning and borrowing of books? 3. How to provide a system that will monitor the recording of the library holdings? 4. How to produce a system to solve library transaction? 5. How report books that are frequently of used and borrowers particular?

Cagayan State University College of Information Technology and Computer Science 3

Library Information System of Piat Academy General Objectives

The main objectives of this study are to design, develop and implement the Library Information System of Piat Academy.

Research Objectives
1. To provide a library system that will secure the borrowed books. 2. To provide a system that will process the returning and borrowing of books. 3. To provide a system that will monitor the recording of the library holding. 4. To produce a system to solve library transaction. 5. Reports books that are frequently of used and borrowers particular.

Significance if the Study

This study is conducted for the benefit of the student, castration schools library, administration staff and researchers. School Administration.The result of the study would provide efficient an effective processing of data for the library service. Information User. They can be benefited through receiving better services and save time. It also encourages them to cooperate to the library staff for the improvement of the library. Library Staff.To determine the information needs, problem and practices are encountered by the users. To find also the baseline information for librarians in improving services as them to Researchers. This study may help them to apply their knowledge and skills in finding solutions for the problems.

Cagayan State University College of Information Technology and Computer Science 4

Library Information System of Piat Academy Scope and Delimitation

In this study, it is focused on the needs, practices and problems encountered by the users and librarian in terms of 1. Borrowing 2. Returning 3. Information It is limited to the evaluation of library files and other pertinent documents that require confidentiality. This was conducted at Piat Academy.

Definition of Terms
To have a clear understanding of the study, the following terms are being defined. Access to call upto active for use a computer system may contains a variety of programs and date files, but not are active already for use until called up by the operator or a program routine. Library - a room, building, or institution where a collection of books or other research materials is kept. Book- a collection of printed or manuscript pages sewn or glued together along one side and bound between rigid boards or flexible covers. Computer is an electronic device capable of accepting data and processes this data to become meaningful information.

Cagayan State University College of Information Technology and Computer Science 5

Library Information System of Piat Academy

Computerized it is conducted by means of a computer or automated procedure. Data is a collection of raw facts, used for interference, quantities or characters operated by a computer. Documents refer to the original official paper relied upon a basis or support of something. Entity person, partnership, organization or business unit which has a legal existence for which accounting records are kept, and about which financial statements are prepared. Identification Number- student unique identification number carrying the whole name and position. Information a data can be stored, retrieved and manipulated by a computer. It is a process data. Input data or programs entered or to be entered in the computer. Manual- a system involving data processing which does not make use of stored program computing equipment; by this somewhat arbitrary definition, system using other types of tabulating equipment, such as the card- programmed calculator are considered to be manual. Manual System is a process of computing the compensation of salaries of employees involving their hands of physical source.

Cagayan State University College of Information Technology and Computer Science 6

Library Information System of Piat Academy

Output is information resulting from computer processing, which is delivered to user as printout or video display or transferred to a disk. Password a secret word or phrase that somebody must use to enter in a place or to access in ones private property. Program set of instruction telling a computer what to do. It is usually done or performed by the user. Retrievalthe operation of accessing in from the computers memory, the act of regaining or saving something lost (or in danger of becoming lost). Storage the area of non- volatile memory in the computers such as in a hard disk or an external device, as diskette or tape were copies of program and data files are kept for future use. System is a regular interaction of interdependent elements forming a unified whole (people, equipment and materials). User Management consists of an access level that will manage or organized whether the employee have the right to access the whole system.

Cagayan State University College of Information Technology and Computer Science 7

Library Information System of Piat Academy Chapter III Review of Related Literature and Studies Related Literature
Libraries are composed of wide selection of non-fiction (fact-based) books as well as fiction (novels and stories). Library is a collection of literary documents records kept or reference or borrowing. To determine whether or not a library has the book you need, you have to consult the card catalog. It is also collection of materials containing information ideas, and works of imagination organized and staff by people trained to make them available. (Eleanor Ahlers, 2005) Different groups of people use libraries- Teachers and students, youngsters and the elderly, police and plumbers and politicians. Each group, each person has different library needs. Because no one library can handle all needs, there are different kinds of libraries share materials with each other. (Ariz Tucson, 2004) No library, no matter how large, has every book or the answer to every question. So libraries, through borrowing and lending arrangements, share with each other as well as the people who use them. Should the book or magazine be needed where it is, a photographic copy or photocopy can be made of the pages wanted. (Lilian Bradshaw, 2004) To provide an accurate and consistent output as well as systematic accessing of data involved in borrowing, returning and inventory process a client- server library system was needed. The community talks many physical forms, ranging from large purpose built buildings and in this community there may be libraries fulfilling different purpose and serving different client groups or groups it serve. (John F. Anderson, 2003)

Cagayan State University College of Information Technology and Computer Science 8

Library Information System of Piat Academy

Leading client/server library automation systems provider Data Researcher Associates, Inc (DRA) (NASDAQ: DRAI) today announced an agreement with net Library. DRA and net Library are working together to integrate ne Library eBooks into the acquisitions protocols for the transfer of machine- readable catalog (MARC) records. (Academic PR Newswire, 2000) SIRSI Corp. has announced that the Indiana Cooperative Library Services Authority (INCOLSA), a resource- sharing network for Indianan libraries, is the 1000th organization to select SIRSI to provide a centralized, client/server based, library management system INCOLSA was established in 1974 to provide a cooperative, statewide structure for information and resource sharing, thereby assuring that all Indianan residents receive the best possible library and information services. (Information Today, Inc,. 2001) Electronic Online Systems (EOS) International has announced that, in 1999, 53 libraries installed the Q Series, EQS Internationals next- generation, client/ server- based library information management system. The majority of these libraries have implemented the full Q Series system, including the Cataloging, Circulation, Serials Acquisitions, OPAC, and/or Q @ccess Web OPAC modules. (Information Today, Inc., 2000) The use of information and communication technologies (ICT) in schools is now commonplace and, for many teachers, an unquestionable part of everyday teaching and learning. Within music education, detailed studies of the use of ICT in the classroom are rare. It discussed how many of the potentially liberating effects of ICT in musical practices outside the classroom have failed to make an impact within the classroom. (Jonathan Savage, 2007) The rapid advances in information and communication technologies are offering new potentials for producing and distributing knowledge. These techniques have fundamentally altered how we live and work as well as how

Cagayan State University College of Information Technology and Computer Science 9

Library Information System of Piat Academy

we learn. Computer connectivity has allowed new form of correspondence to evolve. Academic, are fast extolling academically, professionally due to the advert of information technology. (Karllheinz Kautz and Khofoed, 2009) A significant amount of literature is available on library system. A majority of the findings are derived from experiences in the US, Japan and Western Europe. Some library systems however, can be affected by variations in local conditions such s infrastructure, customs, duties, and regulations. Hence, it is essential to view such systems in an international context. To frame this research, we will examine the literature on operations in NIC countries followed by an analysis of local conditions in Thailand. A number of articles are available that examine the inventory setups in Singapore, Hong Kong, and Korea. (Amsden, 2000) With the modern trends of technology nowadays, children are prone to harmful effects that gadgetry brings. About 60 to 70% of kids around the world age 10-17 years old are hooked up to cellular phones. They Spend up to 5 or more hours calling, sending texts or just playing. (Ma. Sheila Escuro, 2009) A dynamic website is one that has frequently changing information or interacts with the user from various methods or direct interaction. When the Web server receives a request for a given page, The page is automatically retrieved from storage by the software in response to the page request. A site can display the current state of a dialogue between users, monitor a changing situation, or provide information in some way personalized to the requirements of the individual user. (WikiPedia)

Cagayan State University College of Information Technology and Computer Science 10

Library Information System of Piat Academy

Chapter III. Methodology of the Study

Research Design: The Design used was descriptive. The research discussed the collection of data on the present status of the user or the person which wishes to study.

Locale of the Study The research entitled Library information System was conducted at Piat Academy, Piat, Cagayan particularly the Library.

Research Instrument: The researchers tend to know the dis/advantages with regard to the library set-up of the school and how the processing of borrowing and returning of books being done. Part of it is to know the importance of electronic Library set-up.

Cagayan State University College of Information Technology and Computer Science 11

Library Information System of Piat Academy Chapter IV.The Proposed Library Information System of Peablanca National High School.
Present Flow Borrowing and Returning

Borr Borrower Yes

No

The Student will just get the book from the shelves and use it.

If the students to borrow the book, the student must log-in in the logbook.

It will be verified by the Librarian

The student will return the book after he/she use it.

If ever loss of book encountered, there will be a penalty.

Cagayan State University College of Information Technology and Computer Science 12

Library Information System of Piat Academy Entity Relationship Diagram

Last name

Section

Year

Gender

First name

Borrower

ID

Student ID

Password

User Information

Username

The diagram shows the relationship of two entities, the borrower entity, the books entity. It also shows the attributes of the user information entity.

Cagayan State University College of Information Technology and Computer Science 13

Library Information System of Piat Academy Flow of the Existing DFD

1.0 Borrowing of Books 1.1 Borrowing of Books 1.2 Borrowing of Books

1.0 LIBRARIAN

1.1 Check the Book List

1.2 Enter/Creates a record for student /teacher who borrows book Release the book

2.0 Returning of Books

2.1Returning of Books

2.2Returning of Books

2.0if penalized
Of lost book

2.1

2.2

Payment for lost book

Keep the book

Look for student/ teacher record

Cagayan State University College of Information Technology and Computer Science 14

Library Information System of Piat Academy Flow of the Proposed ERD

Student Borrower return the book cleared

Request Book/s

Book/s

Issued

Check/ verifies

Librarian

Cagayan State University College of Information Technology and Computer Science 15

Library Information System of Piat Academy

Date Issued Time Issued

Borrowing
Book code

Books

Book Author

Book Title

Student ID

Borrower
Last Name

Year
Section First name

The diagram shows the relationship of three entities for borrowing transaction, the borrower entity and the entity of books.

Cagayan State University College of Information Technology and Computer Science 16

Library Information System of Piat Academy

Time Issued

Date Issued

Returning

Time Returned

Date Retuned

Last Name

Books Borrower
Book code

Title
Student ID First Name

Cagayan State University College of Information Technology and Computer Science 17

Library Information System of Piat Academy The Proposed Library System A. Input- Process- Output Diagram
INPUT
Password Username Password Books Id Book Code Title Author Publisher Date Published Place of Publication Book Quantity Authors Id Last Name First Name Student Id Last Name First Name Year Section Gender Borrowing Id Last Name First Name Section Year Book Title Time Issued Date Issued Returning Id Borrower Last Name Borrower First Name Book Title Time Issued Date Issued Time Return Date Return

PROCESS
OK- this is to accept the particular information you input. Cancel- this is to cancel a particular transaction. Add- this is to add information. Edit- this is to edit information on a particular transaction. Reload- this is the other term for refresh. Close- this is to close particular form. Save- this is to save a particular information or data. save data and information Issue- saving transaction in issuing books. Return- saving and updating all transaction in the returning of books.

OUTPUT
Access to the system. List of the books with corresponding information.

List of the Authors with corresponding information. List of student.

List of all Borrowers.

List of all Returned Books.

Cagayan State University College of Information Technology and Computer Science 18

Library Information System of Piat Academy B. Hierarchical Input- Process- Output Diagram

Log-in

Library

Set-up Library Files Books Borrowed Books Returning of Books

Transaction Borrowing Returning Books

Reports
List of borrowed books

About
The Researcher

List of returned books Books

About the System

User Management

Log-out Print Set-up

Exit

Cagayan State University College of Information Technology and Computer Science 19

Library Information System of Piat Academy C. Data base Design - Entity Relationship Diagram User View 1: User Management a. Data Environment
Access Level

Password

LOGIN

Username

b. Data Entry

c. Data Description
This form shows how the books bring processed by the librarian. Whenever there are new published books, the only button that can be use is ADD. Fewer wrong information entered use EDIT. And search for searching something. And close button to close a particular form.

Cagayan State University College of Information Technology and Computer Science 20

Library Information System of Piat Academy User View 2: Book Entry a. Data Environment

ID Number Title Subject Book ID Book ISBN Quantity

ID

Author

Date Purchased Price Book Description

Books

Book Left

b. Data entry

Cagayan State University College of Information Technology and Computer Science 21

Library Information System of Piat Academy

C. Data Description
This form allows you to add new book entries as you can see in the sample form there is a Book ID this is were you will input different codes of new book title.Whenever there are new published books, the only button that can be use is ADD. Fewer wrong information entered use EDIT. And search for searching something. And close button to close a particular form.

User View 3: Student Entry a. Data Environment

MI

First Name

Last Name

ID Number

Student
Year Level

Age

Sectio n

Gende r

Address

Cagayan State University College of Information Technology and Computer Science 22

Library Information System of Piat Academy

b. Data Entry

Cagayan State University College of Information Technology and Computer Science 23

Library Information System of Piat Academy

c. Data Description
This form allows you to add new borrower that will need some transaction of the system as you can see there are textboxes in the form this were you will input all data and information of the particular borrower also as you can see there are buttons available this are the add button responsible in saving all information you input in the given textboxes and the close button is for you to exit the particular button.

Cagayan State University College of Information Technology and Computer Science 24

Library Information System of Piat Academy User View 4: Teacher Entry a. Data Environment

ID

MI

ID Number

Teacher
First Name Last Name Address

b. Data Entry

Cagayan State University College of Information Technology and Computer Science 25

Library Information System of Piat Academy

c. Data Description

This form allows you to add new borrower that will need some transaction of the system as you can see there are textboxes in the form this were you will input all data and information of the particular borrower also as you can see there are buttons available this are the add button responsible in saving all information you input in the given textboxes and the close button is for you to exit the particular button.

Cagayan State University College of Information Technology and Computer Science 26

Library Information System of Piat Academy User View 5: Borrowing Transaction a. Data Environment
Gender Name ID Number Section n Year Level BookID

Time Issued

BORROWING

Title

Type Subject Due date Due Time Date Issued Author

Cagayan State University College of Information Technology and Computer Science 27

Library Information System of Piat Academy b. Data Entry

Cagayan State University College of Information Technology and Computer Science 28

Library Information System of Piat Academy c. Data Description

This form has two parts the Teachers data and Student data. In the teachers data there is a three button which you will use in searching in the database the data about the teacher who will borrow book and in the student data is the same with the teacher data. It will also display the time and what day you borrowed the book. There are also two buttons bellow the student data and teacher data, the refresh button, issue button and the close button, the issue button responsible for saving whatever data you input in the given textboxes and the close button is to close the particular form.

User View 6: Returning Transaction a. Data Environment

Gender Name ID Number Section n Year Level BookID

Time Issued

BORROWING

Title

Type Subject Due date Due Time Date Issued Author

Cagayan State University College of Information Technology and Computer Science 29

Library Information System of Piat Academy b. Data Entry

c. Data Description
This form contains the return in which it will show who borrowed the book, what book was borrowed and when it was borrowed. There will be also remarks regarding the book condition if it is lost and damaged. There is also one button bellow the return, the update button, the update button is responsible for whatever data you input in the given textboxes.

Cagayan State University College of Information Technology and Computer Science 30

Library Information System of Piat Academy B. Table Design

Table Entity Password Field Attributes ID User Name Password Confirm Password Access Level ID Number Last_ Name First_ name MI Year_ level Section Gender Address Age Id ID ID Number Title Author Subject Book ID Book ISBN Quantity Book Left Book Description Price Date Purchase ID ID number First_ name MI Last_ name Address ID number Name Gender Section Year Level Book ID Title Subject Author Date Issued Data Type Autonumber Text Text Text Text Autonumber Text Text Text Text Text Text Text Number Number Autonumber Number Text Text Text Number Number Number Number Text Number Date/time Autonumber Number Text Text Text text Autonumber Text Text Text Text Number Text Text Text Date/time Size 10 50 20 20 20 LongInteger 30 50 10 10 10 10 50 10 10 Autonumber 10 30 50 50 15 15 10 10 50 10 30 Autonumber 10 50 10 30 50 LongInteger 20 10 20 10 10 50 20 50 10 Remarks Primary Key

Student

Primary Key

Books

Primary Key

Teacher

Primary Key

Borrowing

Primary Key

Cagayan State University College of Information Technology and Computer Science 31

Library Information System of Piat Academy

Time issued Type Duedate Duetime Date Returned Time Returned Remarks Penalty Fines Prices Status ID number Name Gender Section Year Level Book ID Title Subject Author Date Issued Time issued Type Duedate Duetime Date Returned Time Returned Remarks Penalty Fines Prices Status Date/time Text Date/Time Date/Time Date/ Time Date/Time Text Text Text Text Text Autonumber Text Text Text Text Number Text Text Text Date/time Date/time Text Date/Time Date/Time Date/ Time Date/Time Text Text Text Text Text 10 10 10 10 10 10 15 10 10 10 10 LongInteger 20 10 20 10 10 50 20 50 10 10 10 10 10 10 10 15 10 10 10 10

Returning

Primary Key

Cagayan State University College of Information Technology and Computer Science 32

Library Information System of Piat Academy C. Defining Attributes and design

Table Entity Password Field Attributes ID UserName Password Confirm Password Access Level ID Number Last_ Name First_ name MI Year_ level Section Gender Address Age Id ID ID Number Title Author Subject Book ID Book ISBN Quantity Book Left Book Description Price Date Purchase ID number Name Gender Section Year Level Book ID Title Subject Author Date Issued Time issued Type Duedate Duetime Date Returned Domain 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 0-9 0-9 0-9 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 0-9 0-9 0-9 0-9 A-Z, a-z, 0-9 0-9 0-9 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 0-9 0-9 A-Z, a-z, 0-9

Students

Books

Returning

Cagayan State University College of Information Technology and Computer Science 33

Library Information System of Piat Academy

Time Returned Remarks Penalty Fines Prices Status ID ID number First_ name MI Last_ name Address ID number Name Gender Section Year Level Book ID Title Subject Author Date Issued Time issued Type Duedate Duetime Date Returned Time Returned Remarks Penalty Fines Prices Status A-Z, a-z, 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 0-9 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 0-9 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9 A-Z, a-z, 0-9

Teachers

Borrowing

Cagayan State University College of Information Technology and Computer Science 34

Library Information System of Piat Academy D. Physical Design: User Interface, Input Screens, Output screens Design: User

Cagayan State University College of Information Technology and Computer Science 35

Library Information System of Piat Academy

Cagayan State University College of Information Technology and Computer Science 36

Library Information System of Piat Academy

Cagayan State University College of Information Technology and Computer Science 37

Library Information System of Piat Academy Chapter V Summary of Findings, Conclusion, and Recommendation
Summary and Findings Through the proposed systems, the solution is to secure the book file, data or records through making security confidential information by implementing a password which means that access to the system would be denied unauthorized person. The solution on how you save time inventorying the books and this can be done through the use of library information system by classifying the books according to author, and titles. In easy sorting the books the users can find the book by searching with the keyword, for instance it can allow the users to do rapid words searches to find the needed resources like who is the author and what is the title of the book. The solution for the loss or damage records of the books is done through verifying the name of the borrowers and by searching the availability of the books. If the borrowers cannot return it they can be given a penalty. The study provided more efficient and effective processing of data. And it would also make faster and easier generation of outputs. Conclusion Based on the findings of this study, the researchers conclude that library system brings many advantage for efficient processes and procedures. The researchers implement the library system for the following benefits.

Cagayan State University College of Information Technology and Computer Science 38

Library Information System of Piat Academy

Through the implementation of library system, the transaction is faster rather than using the manual operation. Retrieval of records is easier and faster. Can minimized time and effort during transaction. Records are stored permanently in a safe storage.

Recommendations After the development of the system the researchers had the following recommendation the system should be used to minimize time, effort and assure the accuracy in work. The security code should be kept secret. Each one who uses the system shall have his own work.

Cagayan State University College of Information Technology and Computer Science 39

Library Information System of Piat Academy Chapter VI Appendices Appendix A: Flowcharting Symbol Symbol Symbol Name FLOW Meaning
-indicates the flow of the process.

DOCUMENT SYMBOL

-a symbol shaped that the data can be recorded or stored on a hard document. -rectangular shaped where the data can be recorded or stored on adocument. - this symbol represent input/output operation. -cylindrical shaped symbol specifies input/output operation being program on a magnetic drain storage device. -indicates that a process is being performed manually without the use of machine or computer

PROCESS SYMBOL

INPUT/OUTPUT PROCESS

STORAGE SYMBOL

MANUAL PROCESS

Cagayan State University College of Information Technology and Computer Science 40

Library Information System of Piat Academy Appendix B: Entity Relationship Diagram Symbols Symbol Symbol Name ENTITY Meaning
-An object that exists in and distinguishable from other objects.

ATTRIBUTES

-A named property or characterized of an entity that is of interest to the organization. -An attribute of one entity that has been chosen as the primary key of the other entity. -A candidate key that has been identifies for an entity type.

FOREIGN KEY

PRIMARY KEY

Cagayan State University College of Information Technology and Computer Science 41

Library Information System of Piat Academy Appendixes C: Reference Letter

July 27, 2011

Mrs. Analyn Romeo Officer in Charge Piat Academy Sto Domingo, Piat, Cagayan Maam: Greetings! Part of the requirements of the subject System Analysis and Design is to develop a computer- based system that could facilitate manual transactions. It is in this relation that we third year students of the College Of Information and Computer Science came out with a proposal entitled Library Information System, and we humbly have chosen your school as the main respondent. In this connection, may we be allowed to conduct an interview as our main source of data gathering at your most convenient time. Rest assured that all data gathered will be treated with utmost confidentiality. Thank you very much and more power. Respectfully yours,

Fernan Palattao Researcher Noted By: Arlen B. Calimag, MIT Subject Teacher Approved By: Mr. Generino B. Siddayao, MSIT Academic Dean

Cagayan State University College of Information Technology and Computer Science 42

Library Information System of Piat Academy

Appendix D: User's Manual

This form indicates you to Login form. As you can see there are three types of textboxes in the form. The first box given is to for you to input your username. The second box given is for you to input your password note: the password must be greater than six characters and the last box is for you to choose. This form allows you to add new user of the system. There are two textboxes given, This is for the username and for your password. There are two buttons, the save button and the cancel button. The save button allow you to save whatever you input in the given textbox, while the cancel button allows you to exit in the particular form. Note only the administrator user can use this part of the system.

This form allows you to add new borrower that you will need in some transaction of the system. As you can see, there are textboxes in the form this is where you will input all data and information of the particular borrower. There are also two buttons available, these are the add button which responsible in saving all
Cagayan State University College of Information Technology and Computer Science 43

Library Information System of Piat Academy information you input in the given textboxes and the close button is for you to exit the particular button.

Cagayan State University College of Information Technology and Computer Science 44

Library Information System of Piat Academy

This form contains the borrowers information. It will show who borrowed the book, what book was borrowed. There will also remarks regarding the book condition if it was lost, damaged and vandalized. There is also two buttons below the borrowers information, the save button and the exit button, the save button is responsible for saving on is the whatever data you input in the given textboxes and the last button is the close button. The function of this button is to close the particular form.

Cagayan State University College of Information Technology and Computer Science 45

Library Information System of Piat Academy

This form contains the borrowers book condition information in which it will show who borrowed the book, what book was borrowed and when it was borrowed. There will also be remarks regarding the book condition if it was lost, damaged and vandalized. There is also two buttons below the borrowers information, the save button and the exit button, the save button is responsible for saving on is the whatever data you input in the given textboxes and the last button is the close button. The function of this button is to close the particular form.

Cagayan State University College of Information Technology and Computer Science 46

Library Information System of Piat Academy Appendixes E: Program Source Code

Dim counter As Integer Private Sub cmd_Click(Index As Integer) Select Case Index Case 0 ok Case 1 Unload Me End Select End Sub Sub ok() If Trim(Len(txtUserName.Text)) = 0 Then MsgBox "UserName is empty. Please try again..", vbInformation + vbOKOnly, "Empty Textbox" txtUserName.SetFocus Exit Sub End If If Trim(Len(txtPassword.Text)) = 0 Then MsgBox "Password is empty. Please try again..", vbInformation + vbOKOnly, "Empty Textbox" txtPassword.SetFocus Exit Sub

End If Adodc1.RecordSource = "SELECT * FROM tblUser WHERE USERNAME='" &Trim(txtUserName.Text) & "' AND PASSWORD='" & Trim(txtPassword.Text) & "'" Adodc1.Refresh Adodc3.RecordSource = "SELECT * FROM tblBlocker WHERE Username like '" &Trim(txtUserName.Text) & "'"

Cagayan State University College of Information Technology and Computer Science 47

Library Information System of Piat Academy

Adodc3.Refresh If Adodc3.Recordset.RecordCount > 0 Then MsgBox "This Username has been Blocked. Please ask Assistance", vbCritical + vbOKOnly, App.Title 'Unload Me frmBlocker.Show 1 Exit Sub End If

Adodc1.RecordSource = "SELECT * FROM tblUser WHERE Username='" &Trim(txtUserName.Text) & "' AND Password='" & Trim(txtPassword.Text) & "'" Adodc1.Refresh

If Adodc1.Recordset.RecordCount > 0 Then

If Adodc1.Recordset.Fields(4).Value = "USER" Then End If

frmMain.StatusBar1.Panels(2).Text = Me.DataGrid1.Columns(1).Value frmMain.StatusBar1.Panels(3).Text = Me.DataGrid1.Columns(4).Value user = Adodc1.Recordset(1).Value Level = Adodc1.Recordset(4).Value

If Adodc1.Recordset.Fields(4).Value = "USER" Then MDIMain.mnuLibrary.Enabled = False MDIMain.mnuUserManagement.Enabled = False End If

Cagayan State University College of Information Technology and Computer Science 48

Library Information System of Piat Academy

MsgBox "Hello "& Trim(Me.DataGrid1.Columns(1).Value) & " Welcome to ALDEN ANNA SPORTS HOUSE.", vbInformation Unload Me Else On Error Resume Next If counter <= 1 Then MsgBox "Invalid usename or Password.", vbCritical + vbOKOnly, App.Title txtUserName.Text = "" txtPassword.Text = "" txtUserName.SetFocus counter = counter + 1 ElseIf counter = 2 Then MsgBox "You have reached the maximum number of attempts! The System will now close.", vbCritical + vbOKOnly, App.Title 'Shell ("shutdown -s") 'Shutdown 'Shell ("shutdown -r") 'Restart 'Shell ("shutdown -l") 'Logout MDIMain.Enabled = False 'frmLogin.Enabled = False 'blocker = 1

Login.Adodc3.RecordSource = "SELECT * FROM tblBlocker" Login.Adodc3.Refresh If Left(Trim(Me.Caption), 3) = "Add" Then Login.Adodc3.Recordset.AddNew Login.Adodc3.Recordset.Fields(1).Value = Trim(txtUserName.Text) Login.Adodc3.Recordset.Fields(2).Value = Trim(txtPassword.Text)

Cagayan State University College of Information Technology and Computer Science 49

Library Information System of Piat Academy

'Login.Adodc3.Recordset.Fields(2).Value = Val(blocker) Login.Adodc1.Recordset.Update Login.Adodc1.Refresh End Else user.adoUser.RecordSource = "SELECT * FROM tblUser WHERE ID=" &Val(txtpk.Text) & "" user.adoUser.Refresh Login.Adodc3.Recordset.AddNew Login.Adodc3.Recordset.Fields(1).Value = Trim(txtUserName.Text) Login.Adodc3.Recordset.Fields(2).Value = Trim(txtPassword.Text) 'Login.Adodc3.Recordset.Fields(2).Value = Val(blocker) Login.Adodc1.Recordset.Update Login.Adodc1.Refresh End End If End If End If 'If Adodc1.Recordset.RecordCount > 0 Then 'MDIMain.StatusBar1.Panels(2).Text = Me.DataGrid2.Columns(4).Value ' borrowStudent.INFO.Caption = Me.DataGrid1.Columns(1).Value

' BarrowTeacher.INFO.Caption = Me.DataGrid1.Columns(1).Value ' frmreturn.INFO.Caption = Me.DataGrid1.Columns(1).Value ' Unload Me ' MDIMain.Show ' Else

' MsgBox "Password Did'nt Match", vbInformation + vbOKOnly, "Empty Textbox"

Cagayan State University College of Information Technology and Computer Science 50

Library Information System of Piat Academy

' ' ' Me.txtPassword.Text = "" Me.txtUserName.Text = "" Me.txtUserName.SetFocus

'End If

'If X = 3 Then 'MsgBox "You have reach the maximum attemp!! The system will now terminated", vbExclamation 'Me.Visible = False 'FormLock.Show 1 'End If End Sub Private Sub txtUserName_LostFocus() If Len(Me.txtUserName.Text) < 6 Then MsgBox "Please input atlease 6 chracter", vbCritical Me.txtUserName.Text = "" Me.txtUserName.SetFocus End If End Sub Dim counter As Integer

Private Sub cmd_Click(Index As Integer) Select Case Index Case 0 ok Case 1 Unload Me

Cagayan State University College of Information Technology and Computer Science 51

Library Information System of Piat Academy

End Select End Sub Sub ok() If Trim(Len(txtUserName.Text)) = 0 Then MsgBox "UserName is empty. Please try again..", vbInformation + vbOKOnly, "Empty Textbox" txtUserName.SetFocus Exit Sub

End If If Trim(Len(txtPassword.Text)) = 0 Then MsgBox "Password is empty. Please try again..", vbInformation + vbOKOnly, "Empty Textbox" txtPassword.SetFocus Exit Sub

End If Adodc1.RecordSource = "SELECT * FROM tblUser WHERE USERNAME='" &Trim(txtUserName.Text) & "' AND PASSWORD='" & Trim(txtPassword.Text) & "'" Adodc1.Refresh

Adodc3.RecordSource = "SELECT * FROM tblBlocker WHERE Username like '" &Trim(txtUserName.Text) & "'" Adodc3.Refresh If Adodc3.Recordset.RecordCount > 0 Then MsgBox "This Username has been Blocked. Please ask Assistance", vbCritical + vbOKOnly, App.Title 'Unload Me frmBlocker.Show 1

Cagayan State University College of Information Technology and Computer Science 52

Library Information System of Piat Academy

Exit Sub End If

Adodc1.RecordSource = "SELECT * FROM tblUser WHERE Username='" &Trim(txtUserName.Text) & "' AND Password='" & Trim(txtPassword.Text) & "'" Adodc1.Refresh

If Adodc1.Recordset.RecordCount > 0 Then If Adodc1.Recordset.Fields(4).Value = "USER" Then End If

frmMain.StatusBar1.Panels(2).Text = Me.DataGrid1.Columns(1).Value frmMain.StatusBar1.Panels(3).Text = Me.DataGrid1.Columns(4).Value user = Adodc1.Recordset(1).Value Level = Adodc1.Recordset(4).Value

If Adodc1.Recordset.Fields(4).Value = "USER" Then MDIMain.mnuLibrary.Enabled = False MDIMain.mnuUserManagement.Enabled = False End If MsgBox "Hello "& Trim(Me.DataGrid1.Columns(1).Value) & " Welcome to ALDEN ANNA SPORTS HOUSE.", vbInformation Unload Me

Else On Error Resume Next If counter <= 1 Then

Cagayan State University College of Information Technology and Computer Science 53

Library Information System of Piat Academy

MsgBox "Invalid usename or Password.", vbCritical + vbOKOnly, App.Title txtUserName.Text = "" txtPassword.Text = "" txtUserName.SetFocus counter = counter + 1 ElseIf counter = 2 Then MsgBox "You have reached the maximum number of attempts! The System will now close.", vbCritical + vbOKOnly, App.Title 'Shell ("shutdown -s") 'Shutdown 'Shell ("shutdown -r") 'Restart 'Shell ("shutdown -l") 'Logout MDIMain.Enabled = False 'frmLogin.Enabled = False 'blocker = 1

Login.Adodc3.RecordSource = "SELECT * FROM tblBlocker" Login.Adodc3.Refresh If Left(Trim(Me.Caption), 3) = "Add" Then Login.Adodc3.Recordset.AddNew Login.Adodc3.Recordset.Fields(1).Value = Trim(txtUserName.Text) Login.Adodc3.Recordset.Fields(2).Value = Trim(txtPassword.Text) 'Login.Adodc3.Recordset.Fields(2).Value = Val(blocker) Login.Adodc1.Recordset.Update Login.Adodc1.Refresh End Else

Cagayan State University College of Information Technology and Computer Science 54

Library Information System of Piat Academy

user.adoUser.RecordSource = "SELECT * FROM tblUser WHERE ID=" &Val(txtpk.Text) & "" user.adoUser.Refresh Login.Adodc3.Recordset.AddNew Login.Adodc3.Recordset.Fields(1).Value = Trim(txtUserName.Text) Login.Adodc3.Recordset.Fields(2).Value = Trim(txtPassword.Text) 'Login.Adodc3.Recordset.Fields(2).Value = Val(blocker) Login.Adodc1.Recordset.Update Login.Adodc1.Refresh End End If End If End If 'If Adodc1.Recordset.RecordCount > 0 Then 'MDIMain.StatusBar1.Panels(2).Text = Me.DataGrid2.Columns(4).Value ' borrowStudent.INFO.Caption = Me.DataGrid1.Columns(1).Value

' BarrowTeacher.INFO.Caption = Me.DataGrid1.Columns(1).Value ' frmreturn.INFO.Caption = Me.DataGrid1.Columns(1).Value ' Unload Me ' MDIMain.Show ' Else

' MsgBox "Password Did'nt Match", vbInformation + vbOKOnly, "Empty Textbox" ' ' ' Me.txtPassword.Text = "" Me.txtUserName.Text = "" Me.txtUserName.SetFocus

'End If

Cagayan State University College of Information Technology and Computer Science 55

Library Information System of Piat Academy

'If X = 3 Then 'MsgBox "You have reach the maximum attemp!! The system will now terminated", vbExclamation 'Me.Visible = False 'FormLock.Show 1 'End If End Sub

Private Sub txtUserName_LostFocus() If Len(Me.txtUserName.Text) < 6 Then MsgBox "Please input atlease 6 chracter", vbCritical Me.txtUserName.Text = "" Me.txtUserName.SetFocus End If End Sub Private Sub cmdbookid_Click()

frmbookrecords.Caption = "TEACHER" frmbookrecords.Show vbModal

End Sub

Private Sub cmdcancel_Click() If MsgBox("Are You Sure You Want to Cancel?", vbYesNo + vbQuestion, "Cancel") = vbYes Then Adodc1.Recordset.CancelBatch Unload Me Me.Show

Cagayan State University College of Information Technology and Computer Science 56

Library Information System of Piat Academy

End If End Sub Private Sub cmdclose_Click() Unload Me End Sub

Private Sub cmdsave_Click() Dim quantity As Integer

If Me.txtid.Text = "" Or Me.txttitle.Text = "" Then MsgBox "All Fields Are required!", vbInformation Else If MsgBox("Are you sure you want to issue this book?", vbYesNo + vbQuestion, " Issue") = vbYes Then With Adodc1.Recordset .AddNew .Fields("IDNUMBER").Value = txtid.Text .Fields("Name").Value = txtname.Text .Fields("type").Value = txttype.Text .Fields("title").Value = txttitle.Text .Fields("author").Value = txtauthor.Text .Fields("bookid").Value = txtbid.Text .Fields("subject").Value = txtsub.Text .Fields("dateissued").Value = txtdi.Text .Fields("timeissued").Value = txtti.Text .Fields("duedate").Value = txtdd.Text .Fields("duetime").Value = txtdi1.Text

Cagayan State University College of Information Technology and Computer Science 57

Library Information System of Piat Academy

.Fields("price").Value = txtp.Text .Fields("status").Value = txtstat.Text .Update Adodc2.RecordSource = "select * from tblbooks where title='" & txttitle.Text & "'" Adodc2.Refresh quantity = Val(Adodc2.Recordset.Fields(8)) - 1 txtbleft.Text = quantity Adodc2.Recordset.Fields(8) = txtbleft.Text

Adodc2.Recordset.Update Adodc2.Refresh

MsgBox "Successfully issued book to "& Trim(txtname.Text) & " with IDnumber : " & Trim(txtid.Text) & " ", vbInformation, "Issued"

If MsgBox("Do you want to Issue another book?", vbYesNo + vbQuestion, "Issue") = vbYes Then

frmbookrecords.Caption = "TEACHER" frmbookrecords.Show vbModal

Else clear End If End With End If End If

Cagayan State University College of Information Technology and Computer Science 58

Library Information System of Piat Academy

hide1 End Sub

Private Sub cmdsearch_Click() frmteacherrecord.Show 1 End Sub

Private Sub Command1_Click() If MsgBox("Are You Sure You Want to Delete?", vbYesNo + vbQuestion, "Delete") = vbYes Then Adodc1.Recordset.Delete Unload Me Me.Show End If End Sub

Private Sub Form_Load() txtdi.Text = Trim(Date) txtti.Text = Trim(Time) Me.naun.Caption = Format(Now, ("mmmm") & " " & ("dd") & " " & ("yyyy")) hide1 End Sub Sub hide1()

Me.DataGrid1.Columns(0).Width = 0 Me.DataGrid1.Columns(1).Width = 0

Cagayan State University College of Information Technology and Computer Science 59

Library Information System of Piat Academy

Me.DataGrid1.Columns(3).Width = 0 Me.DataGrid1.Columns(4).Width = 0 Me.DataGrid1.Columns(5).Width = 0 Me.DataGrid1.Columns(6).Width = 0 Me.DataGrid1.Columns(9).Width = 0 Me.DataGrid1.Columns(11).Width = 0 Me.DataGrid1.Columns(12).Width = 0 Me.DataGrid1.Columns(13).Width = 0 Me.DataGrid1.Columns(14).Width = 0 Me.DataGrid1.Columns(15).Width = 0 Me.DataGrid1.Columns(16).Width = 0 Me.DataGrid1.Columns(17).Width = 0 Me.DataGrid1.Columns(18).Width = 0 Me.DataGrid1.Columns(19).Width = 0 Me.DataGrid1.Columns(20).Width = 0 Me.DataGrid1.Columns(21).Width = 0 End Sub Private Sub txtq_KeyPress(KeyAscii As Integer) If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8) Then KeyAscii = 0 MsgBox "Input Number only", vbInformation, "numeric" End If End Sub Public Sub clear() txtid.Text = "" txtname.Text = "" txttitle.Text = ""

Cagayan State University College of Information Technology and Computer Science 60

Library Information System of Piat Academy

txtauthor.Text = "" txtbid.Text = "" txtsub.Text = "" txtp.Text = "" txtdi.Text = "" txtti.Text = ""

End Sub

Private Sub Timer2_Timer() Me.oras.Caption = Time End Sub

Private Sub txtname_Change() Adodc1.RecordSource = "SELECT * FROM TBLTRANSACTIONs WHERE idNumber like '%" &Trim(txtid.Text) & "%' and name like '%" & Trim(txtname.Text) & "%'" Adodc1.Refresh End Sub

Private Sub txtSearch_Change() Adodc1.RecordSource = "SELECT * FROM tbltransactions WHERE BookID & Title & Name& Author LIKE '%" & Trim(txtsearch.Text) & "%'" Adodc1.Refresh End Sub

Private Sub cmbcriteria_KeyPress(KeyAscii As Integer) KeyAscii = 0

Cagayan State University College of Information Technology and Computer Science 61

Library Information System of Piat Academy

End Sub

Private Sub cmbsel_Click() txtsearch.Text = vbNullString txtsearch.Enabled = True txtsearch.SetFocus

End Sub Private Sub cmdadd_Click() Adodc1.Recordset.AddNew Me.txttitle.Enabled = True Me.txtauthor.Enabled = True Me.txtsubject.Enabled = True Me.txtbookid.Enabled = True Me.txtbookis.Enabled = True Me.txtquantity.Enabled = True Me.txtbookleft.Enabled = True Me.txtdescription.Enabled = True Me.txtprice.Enabled = True Me.txtdp.Text = Trim(Date) txttitle.SetFocus cmdClose.Enabled = False cmdsave.Enabled = True cmdcancel.Enabled = True cmdadd.Enabled = False cmdEdit.Enabled = False

Cagayan State University College of Information Technology and Computer Science 62

Library Information System of Piat Academy

cmdDelete.Enabled = False cmdnext.Enabled = False cmdprevious.Enabled = False cmdlast.Enabled = False cmdfirst.Enabled = False End Sub

Private Sub cmdcancel_Click() If MsgBox("Are You Sure You Want to Cancel?", vbYesNo + vbQuestion, "Cancel") = vbYes Then Adodc1.Recordset.CancelBatch Unload Me Me.Show End If End Sub

Private Sub cmdClear_Click() ReloadRecords End Sub

Private Sub cmdclose_Click() Unload Me End Sub

Private Sub cmddelete_Click() If Adodc1.Recordset.RecordCount = 0 Then

Cagayan State University College of Information Technology and Computer Science 63

Library Information System of Piat Academy

MsgBox " No recordds to be deleted.", vbExclamation, "books"

Else If MsgBox("Are You Sure You Want to Delete?", vbYesNo + vbQuestion, "Delete") = vbYes Then Adodc1.Recordset.Delete MsgBox "Successfully deleted", vbInformation, "Books"

End If End If End Sub

Private Sub cmdedit_Click() If Adodc1.Recordset.RecordCount = 0 Then MsgBox " No recordds to be updated.", vbExclamation, "Books"

Else Me.txttitle.Enabled = True Me.txtauthor.Enabled = True Me.txtsubject.Enabled = True Me.txtbookid.Enabled = True Me.txtbookis.Enabled = True Me.txtquantity.Enabled = True Me.txtbookleft.Enabled = True Me.txtdescription.Enabled = True Me.txtprice.Enabled = True txttitle.SetFocus

Cagayan State University College of Information Technology and Computer Science 64

Library Information System of Piat Academy

cmdsave.Enabled = True cmdcancel.Enabled = True cmdadd.Enabled = False cmdEdit.Enabled = False cmdDelete.Enabled = False cmdnext.Enabled = False cmdprevious.Enabled = False cmdlast.Enabled = False cmdfirst.Enabled = False End If End Sub Private Sub cmdfirst_Click() Adodc1.Recordset.MoveFirst End Sub

Private Sub cmdlast_Click() Adodc1.Recordset.MoveLast

End Sub

Private Sub cmdnext_Click() If Adodc1.Recordset.EOF Then MsgBox "End of File" Adodc1.Recordset.MoveLast Else Adodc1.Recordset.MoveNext End If

Cagayan State University College of Information Technology and Computer Science 65

Library Information System of Piat Academy

End Sub

Private Sub cmdprevious_Click() If Adodc1.Recordset.BOF Then MsgBox "Beginning of File" Adodc1.Recordset.MoveFirst

Else

Adodc1.Recordset.MovePrevious

End If End Sub

Private Sub cmdsave_Click() If Me.txttitle.Text = "" Or Me.txtauthor.Text = "" Or Me.txtbookleft.Text = "" Or Me.txtsubject.Text = "" Or Me.txtbookid.Text = "" Or Me.txtbookis.Text = "" Or Me.txtquantity.Text = "" Or Me.txtbookleft.Text = "" Or Me.txtdescription.Text = "" Or Me.txtprice.Text = "" Then MsgBox "All Fields are Required", vbInformation

Else

If MsgBox("Are You Sure You Want to Save?", vbYesNo + vbQuestion, "Save") = vbYes Then

Adodc1.Recordset.Update

MsgBox " Successfully Saved.", vbInformation, "Books"

Cagayan State University College of Information Technology and Computer Science 66

Library Information System of Piat Academy

Unload Me Me.Show

End If End If

End Sub

Private Sub DTPicker1_Change()

End Sub

Private Sub DataGrid1_Click() If Adodc1.Recordset.RecordCount = 0 Then MsgBox " No recordds to be updated.", vbExclamation, "Return" End If End Sub

Private Sub Form_Load() ReloadRecords End Sub

Private Sub txtauthor_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtsubject.SetFocus End If

Cagayan State University College of Information Technology and Computer Science 67

Library Information System of Piat Academy

End Sub

Private Sub txtbdamage_KeyPress(KeyAscii As Integer) If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8) Then KeyAscii = 0 MsgBox "Input Number only", vbInformation, "numeric" End If End Sub

Private Sub txtbookid_KeyPress(KeyAscii As Integer) If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8) Then KeyAscii = 0 MsgBox "Input Number only", vbInformation, "numeric" End If If KeyAscii = 13 Then txtbookis.SetFocus End If

End Sub

Private Sub txtbookis_KeyPress(KeyAscii As Integer) If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8 Or KeyAscii = 45) Then KeyAscii = 0 MsgBox "Input Number only", vbInformation, "numeric" End If

Cagayan State University College of Information Technology and Computer Science 68

Library Information System of Piat Academy

If KeyAscii = 13 Then txtquantity.SetFocus End If

End Sub

Private Sub txtbookleft_KeyPress(KeyAscii As Integer) KeyAscii = 0 End Sub

Private Sub txtdescription_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtprice.SetFocus End If

End Sub

Private Sub txtlostbook_KeyPress(KeyAscii As Integer) If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8) Then KeyAscii = 0 MsgBox "Input Number only", vbInformation, "numeric" End If End Sub

Private Sub txtoverdue_KeyPress(KeyAscii As Integer) If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8) Then KeyAscii = 0

Cagayan State University College of Information Technology and Computer Science 69

Library Information System of Piat Academy

MsgBox "Input Number only", vbInformation, "numeric" End If End Sub

Private Sub txtprice_KeyPress(KeyAscii As Integer) If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8) Then KeyAscii = 0 MsgBox "Input Number only", vbInformation, "numeric" End If If KeyAscii = 13 Then DTPicker1.SetFocus End If

End Sub

Private Sub txtquantity_Change() txtbookleft.Text = txtquantity.Text End Sub

Private Sub txtquantity_KeyPress(KeyAscii As Integer)

If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8) Then KeyAscii = 0 MsgBox "Input Number only", vbInformation, "numeric" End If If KeyAscii = 13 Then txtbookleft.SetFocus

Cagayan State University College of Information Technology and Computer Science 70

Library Information System of Piat Academy

End If

End Sub

Private Sub txtSearch_Change() Adodc1.RecordSource = "select * from tblbooks where Title like'%" &Trim(txtsearch.Text) & "%' or Author like'%" & Trim(txtsearch.Text) & "%'" Adodc1.Refresh

Adodc1.RecordSource = "SELECT * FROM tblbooks where IDNumber LIKE '%" & Trim(txtsearch.Text) & "%'" Adodc1.RecordSource = Adodc1.Recordset.RecordCount total.Caption = Adodc1.Recordset.RecordCount If Adodc1.Recordset.RecordCount = 0 Then

MsgBox "No Record Match.", vbExclamation, "Student" txtsearch.Text = ""

Exit Sub

End If End Sub

Private Sub txtsubject_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtbookid.SetFocus End If

Cagayan State University College of Information Technology and Computer Science 71

Library Information System of Piat Academy

End Sub

Private Sub txttitle_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtauthor.SetFocus End If End Sub Sub ReloadRecords() Adodc1.RecordSource = "SELECT * FROM tblbooks ORDER BY Title" Adodc1.Refresh

Adodc1.RecordSource = "SELECT * FROM tblbooks where IDNumber LIKE '%" & Trim(txtsearch.Text) & "%'" Adodc1.RecordSource = Adodc1.Recordset.RecordCount total.Caption = Adodc1.Recordset.RecordCount

HideColumns End Sub Sub HideColumns() Me.DataGrid1.Columns(0).Width = 0 Me.DataGrid1.Columns(1).Width = 0

End Sub

Private Sub ccmdcancel_Click() If MsgBox("Are You Sure You Want to ?", vbYesNo + vbQuestion, "Cancel") = vbYes Then Adodc1.Recordset.CancelBatch

Cagayan State University College of Information Technology and Computer Science 72

Library Information System of Piat Academy

Unload Me Me.Show End If End Sub

Private Sub ccmdclose_Click() Unload Me End Sub

Private Sub cmdbookid_Click() frmbookrecords.Show vbModal End Sub

Private Sub cmdclose_Click() Unload Me End Sub

Private Sub cmdrefresh_Click() Adodc1.RecordSource = "SELECT * FROM TBLTRANSACTIONs" Adodc1.Refresh hide1 End Sub Private Sub cmdsave_Click() Dim quantity As Integer

If Me.txtstudid.Text = "" Or Me.txttitle.Text = "" Then

Cagayan State University College of Information Technology and Computer Science 73

Library Information System of Piat Academy

MsgBox "All Fields Are Required!", vbInformation

Else If MsgBox("Are you sure you want to issue this book?", vbYesNo + vbQuestion, " Issue") = vbYes Then

With Adodc1.Recordset

.AddNew

.Fields("IDNUMBER").Value = txtstudid.Text .Fields("Name").Value = txtname.Text .Fields("section").Value = txtsection.Text .Fields("yearlevel").Value = txtyl.Text .Fields("gender").Value = txtgender.Text .Fields("type").Value = txttype.Text .Fields("title").Value = txttitle.Text .Fields("author").Value = txtauthor.Text .Fields("bookid").Value = txtbookid.Text .Fields("subject").Value = txtsubject.Text .Fields("timeissued").Value = txtti.Text .Fields("dateissued").Value = txtdi.Text .Fields("duedate").Value = txtod.Text .Fields("duetime").Value = txtdt.Text .Fields("price").Value = txtprice.Text

Cagayan State University College of Information Technology and Computer Science 74

Library Information System of Piat Academy

.Fields("status").Value = txtu.Text

.Update Adodc2.RecordSource = "select * from tblbooks where title='" & txttitle.Text & "'" Adodc2.Refresh quantity = Val(Adodc2.Recordset.Fields(8)) - 1 txtbleft.Text = quantity Adodc2.Recordset.Fields(8) = txtbleft.Text

Adodc2.Recordset.Update Adodc2.Refresh

MsgBox "Successfully issued book to "& Trim(txtname.Text) & " with IDnumber : " & Trim(txtstudid.Text) & " ", vbInformation, "Issued" If MsgBox("Do you want to Issue another book?", vbYesNo + vbQuestion, "Issue") = vbYes Then

frmbookrecords.Show vbModal Else clear End If End With End If End If hide1 End Sub

Cagayan State University College of Information Technology and Computer Science 75

Library Information System of Piat Academy

Private Sub cmdsearch_Click() frmstudentrecord.Show vbModal End Sub

Private Sub Combo1_Change() KeyAscii = 0 End Sub

Private Sub Command1_Click() Unload Me End Sub

Private Sub Cou_Change() If Int(cou) > 1 Then clear MsgBox "only two books are allowed to Borrow", vbInformation, "Error" End If End Sub Private Sub Form_Load() Me.naun.Caption = Format(Now, ("mmmm") & " " & ("dd") & " " & ("yyyy")) txtdi.Text = Trim(Date) txtti.Text = Trim(Time) txtod.Text = Trim(Date + 4) hide1 End Sub Sub hide1()

Cagayan State University College of Information Technology and Computer Science 76

Library Information System of Piat Academy

Me.DataGrid1.Columns(0).Width = 0 Me.DataGrid1.Columns(1).Width = 0 Me.DataGrid1.Columns(3).Width = 0 Me.DataGrid1.Columns(4).Width = 0 Me.DataGrid1.Columns(5).Width = 0 Me.DataGrid1.Columns(6).Width = 0 Me.DataGrid1.Columns(9).Width = 0 Me.DataGrid1.Columns(11).Width = 0 Me.DataGrid1.Columns(12).Width = 0 Me.DataGrid1.Columns(13).Width = 0 Me.DataGrid1.Columns(14).Width = 0 Me.DataGrid1.Columns(15).Width = 0 Me.DataGrid1.Columns(16).Width = 0 Me.DataGrid1.Columns(17).Width = 0 Me.DataGrid1.Columns(18).Width = 0 Me.DataGrid1.Columns(19).Width = 0 Me.DataGrid1.Columns(20).Width = 0 Me.DataGrid1.Columns(21).Width = 0 End Sub

Private Sub txtq_KeyPress(KeyAscii As Integer) If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8) Then KeyAscii = 0 MsgBox "Input Number only", vbInformation, "numeric" End If End Sub

Cagayan State University College of Information Technology and Computer Science 77

Library Information System of Piat Academy

Private Sub Timer1_Timer() txtti.Text = Time txtdt.Text = Time

End Sub

Public Sub clear() txtstudid.Text = "" txtname.Text = "" Me.txtsection.Text = "" Me.txtyl.Text = "" Me.txtgender.Text = "" txttitle.Text = "" txtauthor.Text = "" txtbookid.Text = "" txtsubject.Text = "" txtprice.Text = "" txtdi.Text = "" txtti.Text = "" txtod.Text = "" txtdt.Text = ""

End Sub

Private Sub Timer2_Timer() Me.oras.Caption = Time

Cagayan State University College of Information Technology and Computer Science 78

Library Information System of Piat Academy

End Sub

Private Sub txtname_Change() Adodc1.RecordSource = "SELECT * FROM TBLTRANSACTIONs WHERE idnumber like '%" &Trim(txtstudid.Text) & "%' and name like '%" & Trim(txtname.Text) & "%'" Adodc1.Refresh

cou.Text = Adodc1.Recordset.RecordCount End Sub

Private Sub txtSearch_Change() Adodc1.RecordSource = "SELECT * FROM tbltransactions WHERE BookID & Title & Name& Author LIKE '%" & Trim(txtsearch.Text) & "%'" Adodc1.Refresh End Sub

Private Sub txttitle_Change()

cou.Text = Adodc1.Recordset.RecordCount End Sub Private Sub cmdclose_Click() Unload Me End Sub

Private Sub cmdselect_Click() If txtleft.Text = 1 Then

Cagayan State University College of Information Technology and Computer Science 79

Library Information System of Piat Academy

MsgBox "CHOOSE ANOTHER BOOK!", vbOKOnly, "Book record"

Exit Sub End If

If txtid.Text = vbnullstirng Then MsgBox " Record Selected", vbInformation, "Student record" ElseIf Val(Adodc1.Recordset.Fields(7)) <= 0 Then MsgBox " No Available Book.", vbInformation, "Borrow" Else Unload Me End If

If Me.Caption = "TEACHER" Then With BarrowTeacher .txttitle.Text = Adodc1.Recordset("title").Value .txtauthor.Text = Adodc1.Recordset("author").Value .txtbid.Text = Adodc1.Recordset("bookid").Value .txtsub.Text = Adodc1.Recordset("subject").Value .txtp.Text = Adodc1.Recordset("price").Value .txtdi.Text = Trim(Date) .txtti.Text = Trim(Time) .txtdd.Text = Trim(Date + 4) .txtdi1.Text = Trim(Time)

End With

Cagayan State University College of Information Technology and Computer Science 80

Library Information System of Piat Academy

Else

If Adodc1.Recordset.RecordCount = 0 Then MsgBox " No records to be updated.", vbExclamation, "Return" Else With borrowStudent .txttitle.Text = Adodc1.Recordset("title").Value .txtauthor.Text = Adodc1.Recordset("author").Value .txtbookid.Text = Adodc1.Recordset("bookid").Value .txtsubject.Text = Adodc1.Recordset("subject").Value .txtprice.Text = Adodc1.Recordset("price").Value .txtdi.Text = Trim(Date) .txtti.Text = Trim(Time) .txtod.Text = Trim(Date + 4) .txtdt.Text = Trim(Time)

End With

End If

End If Unload Me End Sub

Private Sub DataGrid1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Cagayan State University College of Information Technology and Computer Science 81

Library Information System of Piat Academy

txtleft.Text = Adodc1.Recordset("bookleft").Value

If Adodc1.Recordset.RecordCount = 0 Then MsgBox " No records to be updated.", vbExclamation, "Return" Else With borrowStudent .txttitle.Text = Adodc1.Recordset("title").Value .txtauthor.Text = Adodc1.Recordset("author").Value .txtbookid.Text = Adodc1.Recordset("bookid").Value .txtsubject.Text = Adodc1.Recordset("subject").Value .txtprice.Text = Adodc1.Recordset("price").Value .txtdi.Text = Trim(Date) .txtti.Text = Trim(Time) .txtod.Text = Trim(Date + 4) .txtdt.Text = Trim(Time)

End With End If

End Sub

Private Sub txtSearch_Change() Adodc1.RecordSource = "select * from tblbooks where Title like'" & txtsearch.Text & "%' and subject like'" & cmbcriteria.Text & "%'" Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then

Cagayan State University College of Information Technology and Computer Science 82

Library Information System of Piat Academy

MsgBox "No Record Match.", vbExclamation, "Books" txtsearch.Text = "" End If End Sub

Private Sub cmbcriteria_KeyPress(KeyAscii As Integer) KeyAscii = 0 End Sub

Private Sub cmbremarks_KeyPress(KeyAscii As Integer) KeyAscii = 0 End Sub

Private Sub cmbsearch_Change() txtsearch.Text = vbNullString txtsearch.Enabled = True txtsearch.SetFocus

End Sub

Private Sub cmbp_Change() If cmbp.Text = "None" Then txtpf.Text = cmbp.Text End If End Sub

Private Sub cmbp_Click()

Cagayan State University College of Information Technology and Computer Science 83

Library Information System of Piat Academy

If cmbp.Text = "Overdue" Then txtpf.Text = 10 txtpf.Enabled = True txtpf.SetFocus ElseIf cmbp.Text = "Lost Book" Then txtpf.Text = txtprice.Text ElseIf cmbp.Text = "Damaged Book" Then txtpf.Text = Adodc1.Recordset.Fields(20) / 2

End If End Sub

Private Sub cmbp_KeyPress(KeyAscii As Integer) KeyAscii = 0 End Sub

Private Sub cmbrem_Click() If cmbrem.Text = "None" Then cmbp.Text = "None" cmbp.Enabled = False Else cmbp.Enabled = True End If End Sub

Private Sub cmbrem_KeyPress(KeyAscii As Integer) KeyAscii = 0

Cagayan State University College of Information Technology and Computer Science 84

Library Information System of Piat Academy

End Sub

Private Sub Combo1_KeyPress(KeyAscii As Integer) KeyAscii = 0 End Sub

Private Sub cmdcalc_Click() On Error GoTo err Shell "calc.exe", vbNormalFocus err: 'MsgBox "You do not have calculator installed in your computer.", vbExclamation, "Return" End Sub

Private Sub cmdcancel_Click() If MsgBox("Are You Sure You Want to Cancel?", vbYesNo + vbQuestion, "Cancel") = vbYes Then

Unload Me Me.Show 1

End If End Sub

Private Sub cmdupdate_Click() Dim quantity As Integer If txtid.Text = "" Then MsgBox " Select record.", vbExclamation, "Return"

Cagayan State University College of Information Technology and Computer Science 85

Library Information System of Piat Academy

Exit Sub End If If cmbrem.Text = "select" Or cmbp.Text = "select" Then MsgBox "Please fill all record.", vbInformation, "Returned" Else Adodc1.Recordset.Update Adodc1.Recordset("Datereturned").Value = txtdr.Text Adodc1.Recordset("Timereturned").Value = txtr2.Text Adodc1.Recordset("remarks").Value = cmbrem.Text Adodc1.Recordset("Penalty").Value = cmbp.Text Adodc1.Recordset("fines").Value = txtpf.Text Adodc1.Recordset("price").Value = txtprice.Text Adodc1.Recordset("status").Value = txtup.Text MsgBox "Successfully update record.", vbInformation, "Returned" If cmbp.Text = "Lost Book" Then Adodc2.RecordSource = "select * from tblbooks where title='" & txttitle.Text & "'" Adodc2.Refresh quantity = Val(Adodc2.Recordset.Fields(8)) + 0 txtbleft.Text = quantity Adodc2.Recordset.Fields(8) = txtbleft.Text Else Adodc2.RecordSource = "select * from tblbooks where title='" & txttitle.Text & "'" Adodc2.Refresh quantity = Val(Adodc2.Recordset.Fields(8)) + 1 txtbleft.Text = quantity Adodc2.Recordset.Fields(8) = txtbleft.Text

Cagayan State University College of Information Technology and Computer Science 86

Library Information System of Piat Academy

Adodc2.Recordset.Update Adodc2.Refresh End If End If Unload Me Me.Show

End Sub Sub hide1()

Me.DataGrid1.Columns(0).Width = 0 Me.DataGrid1.Columns(1).Width = 0 Me.DataGrid1.Columns(3).Width = 0 Me.DataGrid1.Columns(4).Width = 0 Me.DataGrid1.Columns(5).Width = 0 Me.DataGrid1.Columns(6).Width = 0 Me.DataGrid1.Columns(9).Width = 0 Me.DataGrid1.Columns(11).Width = 0 Me.DataGrid1.Columns(12).Width = 0 Me.DataGrid1.Columns(13).Width = 0 Me.DataGrid1.Columns(14).Width = 0 Me.DataGrid1.Columns(15).Width = 0 Me.DataGrid1.Columns(16).Width = 0 Me.DataGrid1.Columns(17).Width = 0 Me.DataGrid1.Columns(18).Width = 0 Me.DataGrid1.Columns(19).Width = 0 Me.DataGrid1.Columns(20).Width = 0

Cagayan State University College of Information Technology and Computer Science 87

Library Information System of Piat Academy

Me.DataGrid1.Columns(21).Width = 0 End Sub

Private Sub DataGrid1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Adodc1.Recordset.RecordCount = 0 Then MsgBox " No records to be update.", vbExclamation, "Return Else

txtid.Text = Adodc1.Recordset("IDNumber").Value txtname.Text = Adodc1.Recordset("name").Value txttitle.Text = Adodc1.Recordset("title").Value txtauthor.Text = Adodc1.Recordset("author").Value txtbi.Text = Adodc1.Recordset("bookid").Value txtsubject.Text = Adodc1.Recordset("subject").Value txtdt.Text = Adodc1.Recordset("duetime").Value txtdd.Text = Adodc1.Recordset("duedate").Value txtprice.Text = Adodc1.Recordset("price").Value txtdr.Text = Trim(Date) txtr2.Text = Trim(Time) cmbrem.Enabled = True

End If End Sub

Cagayan State University College of Information Technology and Computer Science 88

Library Information System of Piat Academy

Private Sub Form_Load() txtdr.Text = Trim(Date) txtr2.Text = Trim(Time) Me.naun.Caption = Format(Now, ("mmmm") & " " & ("dd") & " " & ("yyyy")) hide1 End Sub Private Sub Timer2_Timer() Me.oras.Caption = Time End Sub

Private Sub cmbcriteria_Click() txtsearch.Text = vbNullString txtsearch.Enabled = True txtsearch.SetFocus

End Sub

Private Sub cmbcriteria_KeyPress(KeyAscii As Integer) KeyAscii = 0 End Sub Private Sub cmdclose_Click() Unload Me End Sub Private Sub cmdselect_Click() If txtid.Text = vbNullString Then MsgBox " Record Selected", vbInformation, "Student record"

Cagayan State University College of Information Technology and Computer Science 89

Library Information System of Piat Academy

Else Unload Me End If With borrowStudent .txtstudid.Text = Adodc1.Recordset("IDnumber").Value .txtname.Text = Adodc1.Recordset("First_name").Value & " " & Adodc1.Recordset("MI").Value & ". " &Adodc1.Recordset("Last_name").Value .txtsection.Text = Adodc1.Recordset("Section").Value .txtgender.Text = Adodc1.Recordset("gender").Value .txtyl.Text = Adodc1.Recordset("Year_level").Value

End With Unload Me End Sub

Private Sub cmbcriteria_Click() txtsearch.Text = vbNullString txtsearch.Enabled = True txtsearch.SetFocus End Sub

Private Sub cmdcancel_Click() If MsgBox("Are You Sure You Want to Cancel?", vbYesNo + vbQuestion, "Cancel") = vbYes Then Adodc1.Recordset.CancelBatch Unload Me Me.Show End If

Cagayan State University College of Information Technology and Computer Science 90

Library Information System of Piat Academy

End Sub

Private Sub cmbcriteria_KeyPress(KeyAscii As Integer) KeyAscii = 0 End Sub

Private Sub cmdclose_Click() Unload Me

End Sub

Private Sub cmdselect_Click() If Adodc1.Recordset.RecordCount = 0 Then MsgBox " No recordds to be updated.", vbExclamation, "Return" Else With BarrowTeacher txtid.Text = Adodc1.Recordset("IDnumber").Value .txtid.Text = Adodc1.Recordset("IDnumber").Value .txtname.Text = Adodc1.Recordset("First_name").Value & Adodc1.Recordset("MI").Value & Adodc1.Recordset("Last_name").Value End With End If If txtid.Text = vbNullString Then MsgBox "Select Record.", vbExclamation, "Select" Else Unload Me End If

Cagayan State University College of Information Technology and Computer Science 91

Library Information System of Piat Academy

End Sub Private Sub txtSearch_Change() If cmbcriteria.Text = "ID Number" Then Adodc1.RecordSource = "select * from tblteacher where IDNumber like'" & txtsearch.Text & "%'" Adodc1.Refresh

ElseIf cmbcriteria.Text = "First Name" Then Adodc1.RecordSource = "select * from tblteacher where First_Name like'" & txtsearch.Text & "%'" Adodc1.Refresh ElseIf cmbcriteria.Text = "Last Name" Then Adodc1.RecordSource = "select * from tblteacher where Last_Name like'" & txtsearch.Text & "%'" Adodc1.Refresh End If End Sub

Sub NewRecord() frmaddedituser.Show 1 Adodc1.RecordSource = "SELECT * FROM tblUser ORDER BY UserName" Adodc1.Refresh HideColumns End Sub

Sub EditRecord() frmLock.txtpk.Text = Me.DataGrid1.Columns(0).Value frmLock.user.Text = Me.DataGrid1.Columns(1).Value

Cagayan State University College of Information Technology and Computer Science 92

Library Information System of Piat Academy

frmLock.confirmpassword.Text = Me.DataGrid1.Columns(3).Value frmLock.Show 1 End Sub Sub DeleteRecord()

If access.Text = "Admin" Then MsgBox "Can't DELETED,Access Level is ADMIN", vbCritical + vbOKOnly, "Invalid input" Else If MsgBox("Do you really want to delete this record?", vbYesNo + vbQuestion, "Delete") = vbYes Then frmLock.Caption = "Enter Password to Delete" frmLock.logpass.Text = Me.DataGrid1.Columns(2).Value frmLock.Show 1 End If End If HideColumns End Sub Private Sub cmd_Click(Index As Integer) End Sub

Private Sub access_Change() If frmUserManagement.access.Text = "User" Then frmUserManagement.cmdEdit.Enabled = False End If End Sub

Private Sub cmdclose_Click()

Cagayan State University College of Information Technology and Computer Science 93

Library Information System of Piat Academy

Unload Me End Sub

Private Sub cmddelete_Click() DeleteRecord End Sub

Private Sub cmdedit_Click() EditRecord End Sub

Private Sub cmdNew_Click(Index As Integer) frmaddedituser.cou.Text = Adodc1.Recordset.RecordCount NewRecord End Sub

Private Sub cmdReload_Click() ReloadRecords End Sub

Private Sub Form_Activate() 'access.Text = DataGrid1.Columns(4).Value ReloadRecords 'DataGrid1.Columns(1).CellValue (Adodc1.Recordset.Fields(1)) End Sub Sub ReloadRecords() Adodc1.RecordSource = "SELECT * FROM tblUser"

Cagayan State University College of Information Technology and Computer Science 94

Library Information System of Piat Academy

Adodc1.Refresh HideColumns End Sub Sub HideColumns() Me.DataGrid1.Columns(0).Visible = False Me.DataGrid1.Columns(2).Visible = False Me.DataGrid1.Columns(3).Visible = False End Sub

Private Sub Form_Load() HideColumns End Sub

Private Sub cmbcivil_KeyPress(KeyAscii As Integer) KeyAscii = 0 End Sub

Private Sub cmbcourse_KeyPress(KeyAscii As Integer) KeyAscii = 0 End Sub

Private Sub cmbcriteria_Click() Me.txtsearch.Text = vbNullString Me.txtsearch.Enabled = True Me.txtsearch.SetFocus End Sub

Cagayan State University College of Information Technology and Computer Science 95

Library Information System of Piat Academy

Private Sub cmbcriteria_KeyPress(KeyAscii As Integer) KeyAscii = 0 End Sub Private Sub cmbgender_KeyPress(KeyAscii As Integer) KeyAscii = 0 If KeyAscii = 13 Then cmbyear.SetFocus End If End Sub

Private Sub cmbyear_KeyPress(KeyAscii As Integer) KeyAscii = 0 If KeyAscii = 13 Then txtsection.SetFocus End If End Sub

Private Sub cmdadd_Click()

DataGrid1.Enabled = False

Me.txtid.Enabled = True Me.txtage.Enabled = True Me.txtsection.Enabled = True Me.txtfname.Enabled = True Me.txtlname.Enabled = True Me.txtmiddle.Enabled = True

Cagayan State University College of Information Technology and Computer Science 96

Library Information System of Piat Academy

cmbgender.Enabled = True Me.txtsection.Enabled = True Me.txtaddress.Enabled = True

cmbyear.Enabled = True

txtid.SetFocus cmdsave.Enabled = True cmdcancel.Enabled = True cmdadd.Enabled = False cmdEdit.Enabled = False cmdDelete.Enabled = False cmdnext.Enabled = False cmdprevious.Enabled = False cmdlast.Enabled = False cmdfirst.Enabled = False Me.txtid.Text = "" Me.txtage.Text = "" Me.txtsection.Text = "" Me.txtfname.Text = "" Me.txtlname.Text = "" Me.txtmiddle.Text = "" cmbgender.Text = "" Me.txtsection.Text = "" Me.txtaddress.Text = ""

cmbyear.Text = ""

Cagayan State University College of Information Technology and Computer Science 97

Library Information System of Piat Academy

End Sub

Private Sub cmdcancel_Click() If MsgBox("Are You Sure You Want to Cancel?", vbYesNo + vbQuestion, "Cancel") = vbYes Then Adodc2.Recordset.CancelBatch Unload Me Me.Show 1 End If End Sub

Private Sub cmdClear_Click() ReloadRecords End Sub

Private Sub cmdclose_Click() Unload Me

End Sub

Private Sub cmddelete_Click() If Adodc2.Recordset.RecordCount = 0 Then MsgBox " No records to be deleted.", vbExclamation, "Student"

Else If MsgBox("Are You Sure You Want to Delete?", vbYesNo + vbQuestion, "Delete") = vbYes Then Adodc2.Recordset.Delete

Cagayan State University College of Information Technology and Computer Science 98

Library Information System of Piat Academy

MsgBox "Record Successfully Deleted", vbInformation, "Student" End If End If ReloadRecords End Sub

Private Sub cmdedit_Click() DataGrid1.Enabled = False Me.Caption = "Edit" If Adodc2.Recordset.RecordCount = 0 Then MsgBox " No Records to be updated.", vbExclamation, "Student" cmdEdit.Enabled = False Else Me.txtaddress.Enabled = True

Me.txtfname.Enabled = True Me.txtid.Enabled = True Me.txtlname.Enabled = True Me.txtmiddle.Enabled = True Me.txtsection.Enabled = True Me.txtaddress.Enabled = True Me.txtage.Enabled = True Me.txtsection.Enabled = True cmbgender.Enabled = True cmbyear.Enabled = True txtid.SetFocus cmdsave.Enabled = True

Cagayan State University College of Information Technology and Computer Science 99

Library Information System of Piat Academy

cmdcancel.Enabled = True cmdadd.Enabled = False cmdEdit.Enabled = False cmdDelete.Enabled = False cmdnext.Enabled = False cmdprevious.Enabled = False cmdlast.Enabled = False cmdfirst.Enabled = False End If End Sub Private Sub cmdfirst_Click() Adodc2.Recordset.MoveFirst txtid.Text = Adodc2.Recordset("idNumber").Value txtlname.Text = Adodc2.Recordset("Last_name").Value txtfname.Text = Adodc2.Recordset("First_name").Value txtmiddle.Text = Adodc2.Recordset("MI").Value txtsection.Text = Adodc2.Recordset("Section").Value cmbyear.Text = Adodc2.Recordset("year_level").Value cmbgender.Text = Adodc2.Recordset("gender").Value txtage.Text = Adodc2.Recordset("Age").Value txtaddress.Text = Adodc2.Recordset("Address").Value ID.Text = Adodc2.Recordset("id").Value End Sub

Private Sub cmdlast_Click() Adodc2.Recordset.MoveLast txtid.Text = Adodc2.Recordset("idNumber").Value

Cagayan State University College of Information Technology and Computer Science 100

Library Information System of Piat Academy

txtlname.Text = Adodc2.Recordset("Last_name").Value txtfname.Text = Adodc2.Recordset("First_name").Value txtmiddle.Text = Adodc2.Recordset("MI").Value txtsection.Text = Adodc2.Recordset("Section").Value cmbyear.Text = Adodc2.Recordset("year_level").Value cmbgender.Text = Adodc2.Recordset("gender").Value txtage.Text = Adodc2.Recordset("Age").Value txtaddress.Text = Adodc2.Recordset("Address").Value ID.Text = Adodc2.Recordset("id").Value End Sub

Private Sub cmdnext_Click() If Adodc2.Recordset.EOF Then MsgBox "End of File", vbInformation, "Student" Adodc2.Recordset.MoveLast Else Adodc2.Recordset.MoveNext End If

txtid.Text = Adodc2.Recordset("idNumber").Value txtlname.Text = Adodc2.Recordset("Last_name").Value txtfname.Text = Adodc2.Recordset("First_name").Value txtmiddle.Text = Adodc2.Recordset("MI").Value txtsection.Text = Adodc2.Recordset("Section").Value cmbyear.Text = Adodc2.Recordset("year_level").Value cmbgender.Text = Adodc2.Recordset("gender").Value txtage.Text = Adodc2.Recordset("Age").Value

Cagayan State University College of Information Technology and Computer Science 101

Library Information System of Piat Academy

txtaddress.Text = Adodc2.Recordset("Address").Value ID.Text = Adodc2.Recordset("id").Value End Sub

Private Sub cmdprev_Click() Adodc2.RecordSource = "select * from tblstud" Adodc2.Refresh RS_AllStudentsAccounts.Show vbModal End Sub

Private Sub cmdprevious_Click() On Error Resume Next If Adodc2.Recordset.BOF Then MsgBox "Beginning of File", vbInformation, "Student" Adodc2.Recordset.MoveFirst Else Adodc2.Recordset.MovePrevious End If txtid.Text = Adodc2.Recordset("idNumber").Value txtlname.Text = Adodc2.Recordset("Last_name").Value txtfname.Text = Adodc2.Recordset("First_name").Value txtmiddle.Text = Adodc2.Recordset("MI").Value txtsection.Text = Adodc2.Recordset("Section").Value cmbyear.Text = Adodc2.Recordset("year_level").Value cmbgender.Text = Adodc2.Recordset("gender").Value txtage.Text = Adodc2.Recordset("Age").Value txtaddress.Text = Adodc2.Recordset("Address").Value

Cagayan State University College of Information Technology and Computer Science 102

Library Information System of Piat Academy

ID.Text = Adodc2.Recordset("id").Value End Sub

Private Sub cmdsave_Click() If Me.txtage.Text = "" Or Me.txtaddress.Text = "" Or Me.txtfname.Text = "" Or Me.txtid.Text = "" Or Me.txtlname.Text = "" Or Me.txtmiddle.Text = "" Or Me.txtfname.Text = "" Or Me.cmbgender.Text = "" Or Me.cmbyear.Text = "" Then MsgBox "All Fields are Required", vbInformation Exit Sub End If cmdadd.Enabled = True cmdsave.Enabled = False cmdEdit.Enabled = True cmdDelete.Enabled = True cmdadd.Enabled = True cmdcancel.Enabled = False

DataGrid1.Enabled = True Frame1.Enabled = False cmdnext.Enabled = True cmdprevious.Enabled = True cmdlast.Enabled = True cmdfirst.Enabled = True If Me.Caption = "Edit" Then Adodc2.RecordSource = "SELECT * FROM tblStud WHERE ID = " &Val(ID.Text) & "" With Adodc2.Recordset

Cagayan State University College of Information Technology and Computer Science 103

Library Information System of Piat Academy

.Fields("IDNumber").Value = txtid.Text .Fields("First_name").Value = txtfname.Text .Fields("Last_Name").Value = txtlname.Text .Fields("MI").Value = txtmiddle.Text .Fields("Year_Level").Value = cmbyear.Text .Fields("Section").Value = txtsection.Text .Fields("Gender").Value = cmbgender.Text .Fields("Address").Value = txtaddress.Text .Fields("Age").Value = txtage.Text Adodc2.Recordset.Update End With Adodc2.Recordset.Update MsgBox "Record successfully Updated.", vbInformation, "Student" Else If MsgBox("Are you sure you really want to ADD this Record?", vbQuestion + vbYesNo, "Save") = vbYes Then Adodc2.Recordset.AddNew With Adodc2.Recordset .Fields("IDNumber").Value = txtid.Text .Fields("First_name").Value = txtfname.Text .Fields("Last_Name").Value = txtlname.Text .Fields("MI").Value = txtmiddle.Text .Fields("Year_Level").Value = cmbyear.Text .Fields("Section").Value = txtsection.Text .Fields("Gender").Value = cmbgender.Text .Fields("Address").Value = txtaddress.Text .Fields("Age").Value = txtage.Text

Cagayan State University College of Information Technology and Computer Science 104

Library Information System of Piat Academy

End With Adodc2.Recordset.Update MsgBox "New Record Successfully Added.", vbInformation, "Student"

End If Unload Me Me.Show

End If

End Sub Private Sub Combo2_KeyPress(KeyAscii As Integer) KeyAscii = 0 End Sub Private Sub cmdsave_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End If End Sub

Private Sub Command1_Click() drStud.Show 1 Set DataEnvironment1 = Nothing End Sub

Private Sub DataGrid1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) On Error Resume Next

Cagayan State University College of Information Technology and Computer Science 105

Library Information System of Piat Academy

txtid.Text = Adodc2.Recordset("idNumber").Value txtlname.Text = Adodc2.Recordset("Last_name").Value txtfname.Text = Adodc2.Recordset("First_name").Value txtmiddle.Text = Adodc2.Recordset("MI").Value txtsection.Text = Adodc2.Recordset("Section").Value cmbyear.Text = Adodc2.Recordset("year_level").Value cmbgender.Text = Adodc2.Recordset("gender").Value txtage.Text = Adodc2.Recordset("Age").Value txtaddress.Text = Adodc2.Recordset("Address").Value ID.Text = Adodc2.Recordset("id").Value End Sub

Private Sub ReloadRecords() Adodc2.RecordSource = "select * from tblstud ORDER BY Last_Name, First_Name" Adodc2.Refresh= Adodc2.RecordSource = Adodc2.RecordSource = "SELECT * FROM tblstud where IDNumber LIKE '%" &Trim(IdNumber) & "%'" Adodc2.RecordSource = Adodc2.Recordset.RecordCount total.Caption = Adodc2.Recordset.RecordCount Me.txtsearch.Text = "" Me.cmbcriteria.Text = "" HideColumns End Sub

Private Sub Timer1_Timer() Me.Image1.Visible = False = Me.Image1.Visible = True End Sub

Cagayan State University College of Information Technology and Computer Science 106

Library Information System of Piat Academy

Private Sub txtaddress_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cmdsave.SetFocus End If End Sub

Private Sub txtbday_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtcp.SetFocus End If End Sub

Private Sub txtcp_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtaddress.SetFocus End If End Sub

Private Sub txtage_KeyPress(KeyAscii As Integer) If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8) Then KeyAscii = 0 MsgBox "Input Number only", vbInformation, "numeric" End If If KeyAscii = 13 Then txtaddress.SetFocus End If

Cagayan State University College of Information Technology and Computer Science 107

Library Information System of Piat Academy

End Sub Private Sub txtfname_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtlname.SetFocus End If End Sub Private Sub txtid_KeyPress(KeyAscii As Integer) If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8 Or KeyAscii = 45) Then KeyAscii = 0 MsgBox "Only Numeric is allowed", vbInformation, "Number" End If If KeyAscii = 13 Then txtfname.SetFocus End If End Sub

Private Sub txtmname_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtaddress.SetFocus End If End Sub

Private Sub txtlname_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtmi.SetFocus End If

Cagayan State University College of Information Technology and Computer Science 108

Library Information System of Piat Academy

End Sub

Private Sub txtmiddle_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cmbgender.SetFocus End If End Sub

Private Sub txtSearch_Change() Adodc2.RecordSource = "select * from tblstud where IDNumber like'" & txtsearch.Text & "%' or last_name like'" & txtsearch.Text & "%'" Adodc2.Refresh Adodc2.RecordSource = "SELECT * FROM tblstud where IDNumber LIKE '%" &Trim(IdNumber) & "%'" Adodc2.RecordSource = Adodc2.Recordset.RecordCount total.Caption = Adodc2.Recordset.RecordCount If Adodc2.Recordset.RecordCount = 0 Then MsgBox "No Record Match.", vbExclamation, "Student" txtsearch.Text = "" Exit Sub End If If cmbcriteria.Text = "Student ID" Then Adodc2.RecordSource = "select * from tblstud where IDNumber like'" & txtsearch.Text & "%'" Adodc2.Refresh If Adodc2.Recordset.RecordCount = 0 Then MsgBox "No Record Match.", vbExclamation, "Student" txtsearch.Text = ""

Cagayan State University College of Information Technology and Computer Science 109

Library Information System of Piat Academy

Adodc2.Refresh Exit Sub End If

ElseIf cmbcriteria.Text = "First Name" Then Adodc2.RecordSource = "select * from tblstud where First_Name like'" & txtsearch.Text & "%'" Adodc2.Refresh If Adodc2.Recordset.RecordCount = 0 Then MsgBox "No Record Match.", vbExclamation, "Student" Exit Sub End If ElseIf cmbcriteria.Text = "Last Name" Then Adodc2.RecordSource = "select * from tblstud where Last_Name like'" & txtsearch.Text & "%'" Adodc2.Refresh If Adodc2.Recordset.RecordCount = 0 Then MsgBox "No Record Match.", vbExclamation, "Student" Exit Sub End If ElseIf cmbcriteria.Text = "Year Level" Then Adodc2.RecordSource = "select * from tblstud where Year_Level like'" & txtsearch.Text & "%'" Adodc2.Refresh If Adodc2.Recordset.RecordCount = 0 Then MsgBox "No Record Match.", vbExclamation, "Student" Exit Sub End If

Cagayan State University College of Information Technology and Computer Science 110

Library Information System of Piat Academy

End If End Sub

Private Sub txtsection_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtage.SetFocus End If End Sub

Private Sub txtsid_Change() Adodc1.RecordSource = "select * from tblStud where IDNumber like'" & txtid.Text & "%'" Adodc1.Refresh End Sub

Sub HideColumns() DataGrid1.Columns(0).Width = 1100 DataGrid1.Columns(3).Width = 500 End Sub

Private Sub cmbcriteria_Click() txtsearch.Text = vbNullString txtsearch.SetFocus End Sub Private Sub cmdadd_Click() DataGrid1.Enabled = False Me.txtid.Enabled = True

Cagayan State University College of Information Technology and Computer Science 111

Library Information System of Piat Academy

Me.txtaddress.Enabled = True Me.txtfname.Enabled = True Me.txtlname.Enabled = True Me.txtmi.Enabled = True txtid.SetFocus cmdsave.Enabled = True cmdcancel.Enabled = True cmdadd.Enabled = False cmdEdit.Enabled = False cmdDelete.Enabled = False cmdnext.Enabled = False cmdprevious.Enabled = False cmdlast.Enabled = False cmdfirst.Enabled = False cmdClose.Enabled = False Me.txtid.Text = "" Me.txtaddress.Text = "" Me.txtfname.Text = "" Me.txtlname.Text = "" Me.txtmi.Text = "" End Sub

Private Sub cmdcancel_Click() If MsgBox("Are You Sure You Want to Cancel?", vbYesNo + vbQuestion, "Cancel") = vbYes Then Adodc1.Recordset.CancelBatch

Cagayan State University College of Information Technology and Computer Science 112

Library Information System of Piat Academy

Unload Me Me.Show End If End Sub

Private Sub cmdClear_Click() ReloadRecords End Sub

Private Sub cmdclose_Click() Unload Me End Sub

Private Sub cmddelete_Click() If Adodc1.Recordset.RecordCount = 0 Then MsgBox " No recordds to be deleted.", vbExclamation, "Teacher" Else If MsgBox("Are You Sure You Want to Delete?", vbYesNo + vbQuestion, "Delete") = vbYes Then Adodc1.Recordset.Delete MsgBox "Record Successfully Deleted", vbInformation, "Teacher"

End If End If ReloadRecords End Sub Private Sub cmdedit_Click()

Cagayan State University College of Information Technology and Computer Science 113

Library Information System of Piat Academy

Me.Caption = "edit" DataGrid1.Enabled = False If Adodc1.Recordset.RecordCount = 0 Then MsgBox " No recordds to be updated.", vbExclamation, "Student" cmdEdit.Enabled = False Else Me.txtaddress.Enabled = True Me.txtfname.Enabled = True Me.txtid.Enabled = True Me.txtlname.Enabled = True Me.txtmi.Enabled = True Me.txtaddress.Enabled = True Me.txtfname.Enabled = True Me.txtid.Enabled = True Me.txtlname.Enabled = True txtid.SetFocus cmdsave.Enabled = True cmdcancel.Enabled = True cmdadd.Enabled = False cmdEdit.Enabled = False cmdDelete.Enabled = False cmdnext.Enabled = False cmdprevious.Enabled = False cmdlast.Enabled = False cmdfirst.Enabled = False End If End Sub

Cagayan State University College of Information Technology and Computer Science 114

Library Information System of Piat Academy

Private Sub cmdfirst_Click() Adodc1.Recordset.MoveFirst txtid.Text = Adodc1.Recordset("IDNumber").Value ID.Text = Adodc1.Recordset("ID").Value txtfname.Text = Adodc1.Recordset("First_Name").Value txtlname.Text = Adodc1.Recordset("Last_Name").Value txtmi.Text = Adodc1.Recordset("MI").Value txtaddress.Text = Adodc1.Recordset("Address").Value End Sub

Private Sub cmdlast_Click() Adodc1.Recordset.MoveLast txtid.Text = Adodc1.Recordset("IDNumber").Value ID.Text = Adodc1.Recordset("ID").Value txtfname.Text = Adodc1.Recordset("First_Name").Value txtlname.Text = Adodc1.Recordset("Last_Name").Value txtmi.Text = Adodc1.Recordset("MI").Value txtaddress.Text = Adodc1.Recordset("Address").Value End Sub

Private Sub cmdnext_Click() On Error Resume Next If Adodc1.Recordset.EOF Then MsgBox " End of File " Adodc1.Recordset.MoveLast Else

Cagayan State University College of Information Technology and Computer Science 115

Library Information System of Piat Academy

Adodc1.Recordset.MoveNext End If txtid.Text = Adodc1.Recordset("IDNumber").Value ID.Text = Adodc1.Recordset("ID").Value txtfname.Text = Adodc1.Recordset("First_Name").Value txtlname.Text = Adodc1.Recordset("Last_Name").Value txtmi.Text = Adodc1.Recordset("MI").Value txtaddress.Text = Adodc1.Recordset("Address").Value End Sub

Private Sub cmdprev_Click() Adodc1.RecordSource = "select * from tblteacher" Adodc1.Refresh RS_AllTeachersAccounts.Show vbModal End Sub

Private Sub cmdprevious_Click() If Adodc1.Recordset.BOF Then MsgBox " Beginning of File " Adodc1.Recordset.MoveFirst Else Adodc1.Recordset.MovePrevious End If txtid.Text = Adodc1.Recordset("IDNumber").Value ID.Text = Adodc1.Recordset("ID").Value txtfname.Text = Adodc1.Recordset("First_Name").Value txtlname.Text = Adodc1.Recordset("Last_Name").Value

Cagayan State University College of Information Technology and Computer Science 116

Library Information System of Piat Academy

txtmi.Text = Adodc1.Recordset("MI").Value txtaddress.Text = Adodc1.Recordset("Address").Value End Sub

Private Sub cmdsave_Click() If Me.txtid.Text = "" Or Me.txtaddress.Text = "" Or Me.txtfname.Text = "" Or Me.txtlname.Text = "" Or Me.txtmi.Text = "" Then MsgBox "All Fields are Required", vbInformation Exit Sub End If If Me.Caption = "edit" Then Adodc1.RecordSource = "SELECT * FROM tblteacher WHERE ID = " &Val(ID.Text) & "" With Adodc1.Recordset .Fields("IDnumber").Value = txtid.Text .Fields("First_name").Value = txtfname.Text .Fields("Last_Name").Value = txtlname.Text .Fields("MI").Value = txtmi.Text .Fields("Address").Value = txtaddress.Text Adodc1.Recordset.Update MsgBox "Record successfully Updated.", vbInformation, "Teacher" End With Else Adodc1.Recordset.AddNew With Adodc1.Recordset .Fields("IDnumber").Value = txtid.Text .Fields("First_name").Value = txtfname.Text .Fields("Last_Name").Value = txtlname.Text

Cagayan State University College of Information Technology and Computer Science 117

Library Information System of Piat Academy

.Fields("MI").Value = txtmi.Text .Fields("Address").Value = txtaddress.Text End With MsgBox "New Record Successfully Added.", vbInformation, "Teacher" End If Unload Me Me.Show End Sub

Private Sub Command2_Click() drTeacher.Show 1 Set DataEnvironment1 = Nothing End Sub

Private Sub DataGrid1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) txtid.Text = Adodc1.Recordset("IDNumber").Value ID.Text = Adodc1.Recordset("ID").Value txtfname.Text = Adodc1.Recordset("First_Name").Value txtlname.Text = Adodc1.Recordset("Last_Name").Value txtmi.Text = Adodc1.Recordset("MI").Value txtaddress.Text = Adodc1.Recordset("Address").Value End Sub

Private Sub Form_Load() ReloadRecords End Sub

Cagayan State University College of Information Technology and Computer Science 118

Library Information System of Piat Academy

Private Sub Timer1_Timer() Me.Image1.Visible = False = Me.Image1.Visible = True End Sub

Private Sub txtaddress_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cmdsave.SetFocus End If End Sub

Private Sub txtfname_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtlname.SetFocus End If End Sub

Private Sub txtid_KeyPress(KeyAscii As Integer) If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8 Or KeyAscii = 45) Then KeyAscii = 0 MsgBox "Only Numeric is allowed", vbInformation, "Number" End If If KeyAscii = 13 Then txtfname.SetFocus End If End Sub

Cagayan State University College of Information Technology and Computer Science 119

Library Information System of Piat Academy

Private Sub txtlname_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtmi.SetFocus End If End Sub

Private Sub txtmi_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtaddress.SetFocus End If End Sub

Private Sub txtSearch_Change() Adodc1.RecordSource = "select * from tblteacher where IDNumber like'" & txtsearch.Text & "%' & First_Name like'" & txtsearch.Text & "%'" Adodc1.Refresh

Adodc1.RecordSource = "SELECT * FROM tblteacher where IDNumber LIKE '%" &Trim(IdNumber) & "%'" Adodc1.RecordSource = Adodc1.Recordset.RecordCount total.Caption = Adodc1.Recordset.RecordCount If Adodc1.Recordset.RecordCount = 0 Then MsgBox "No Record Match.", vbExclamation, "Techer" txtsearch.Text = "" ReloadRecords Exit Sub End If

Cagayan State University College of Information Technology and Computer Science 120

Library Information System of Piat Academy

If cmbcriteria.Text = "Teacher ID" Then Adodc1.RecordSource = "select * from tblteacher where IDNumber like'" & txtsearch.Text & "%'" Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then MsgBox "No Record Match.", vbExclamation, "Techer" txtsearch.Text = "" Adodc1.Refresh Exit Sub End If ElseIf cmbcriteria.Text = "First Name" Then Adodc1.RecordSource = "select * from tblteacher where First_Name like'" & txtsearch.Text & "%'" Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then MsgBox "No Record Match.", vbExclamation, "Techer" Exit Sub End If ElseIf cmbcriteria.Text = "Last Name" Then Adodc1.RecordSource = "select * from tblteacher where Last_Name like'" & txtsearch.Text & "%'" Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then MsgBox "No Record Match.", vbExclamation, "Techer" Exit Sub End If End If End Sub

Cagayan State University College of Information Technology and Computer Science 121

Library Information System of Piat Academy

Sub ReloadRecords() Adodc1.RecordSource = "SELECT * FROM tblteacher ORDER BY Last_Name, First_Name" Adodc1.Refresh Adodc1.RecordSource = Adodc1.RecordSource = "SELECT * FROM tblteacher where IDNumber LIKE '%" &Trim(IdNumber) & "%'" Adodc1.RecordSource = Adodc1.Recordset.RecordCount total.Caption = Adodc1.Recordset.RecordCount Me.txtsearch.Text = "" Me.cmbcriteria.Text = "" HideColumns End Sub Sub HideColumns() Me.DataGrid1.Columns(0).Width = 0 Me.DataGrid1.Columns(1).Width = 1100 Me.DataGrid1.Columns(3).Width = 500 End Sub

Cagayan State University College of Information Technology and Computer Science 122

Library Information System of Piat Academy Appendixes F: References

1. Eleanor Ahlrers, 2005 2. Ariz Tucson, 2004 3. John F. Anderson, 2003 4. Academic PR Newswire, 2000 5. Information Today, Inc., 2001 6. Jonathan savage, 2007 7. Karllheinz and khofoed, 2009 8. Amsden, 2000 9. WikiPedia

Cagayan State University College of Information Technology and Computer Science 123

Library Information System of Piat Academy Appendixes G: Curriculum Vitae Personal Data Name: Fernan A. Palattao Date of Birth: September 29, 1990 Place of Birth: Sto. Domingo, Piat, Cagayan Home Address: arsumco, Sto. Domingo, Piat, Cagayan Civil Status: Single Father: Felomeno N. Palattao Mother: Elena A. Palattao Educational Background Elementary: Piat Central Elementary School Year Graduated:2002 Secondary: Our Lady Of Piat High School Year Graduated: 2006 College: Cagayan State University

Cagayan State University College of Information Technology and Computer Science 124