Barangay Profiling System

Chapter I
INTRODUCTION
1.1 Background of the Study
The rapid growth of technology has contributed a lot to the continued
progress of all classification of industry. However, some sectors today seem to
be left behind in adapting the use of different methods to have progress on
their part.
Nowadays, business people define the applications and problems to be
solved by the computer. But unfortunately this potential has not been fully
recognized or even adequately realized in some business. It is because users
may not fully understand the capabilities and limitations of modern computer
technology.
Computerization is a control system that manages processes in the
industrial workplace. It reduce human errors and processing time, thus it can
boost productivity and result into a high quality of product produce. This can
result in a system well integrated process that can perform much faster and
more accurate than the manual system.
The Barangay Profiling System is appropriate for the use of barangay
employees, who have access to profile information of barangay residents for
the direct reports and also departmental organizational staffs that have
business need for this information for their business unit. The Barangay
Profiling System is responsible for an effective and efficient approach for
baranagay employees and residents. It will help them accomplish task faster
and also it eliminates the need of a large staff. It will provide profile-based
information on residents.
The interest of investigating the research topic is a good example of a
computer generated process, this can lessen the workload and provides
information needed by a resident. As a result, it will benefit not only the
barangay employee but the administration as a whole.

1.2 Statement of the Objectives

Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

Barangay Profiling System

This study aimed to come up with a design and develop a Barangay

Profiling System of Barangay of Barangay NannarianPeablanca Cagayan.
Specifically, it aimed to answer the following:
1. How is the flow of the manual system?
2. How is the flow of the proposed system?
3. How secured are the data in the present manual system compared with the
proposed system?
4. How efficient the manual system with that of the proposed system?
General Statement of the Objectives
To feed the interest and specialization the researcher would like to
provide a Barangay Profiling System of barangay NannarianPeablanca
Cagayan, to lessen the work load, reduce human errors and processing times.
Specific Statement of the Objectives
1.

To familiarize the staff with the organizational structure of the

office, including the duties and responsibilities of each personnel
involved in the system.
2. To avoid time and effort consuming, resulting into a number of
work accomplish.
3. To have an easy and faster preparation of the residents profile
without going to traditional way of searching an employee profile.
1.3 Scope and Delimitation
The computerized office automation system focused in the information
of residents of barangayNannarianPeaBlanca Cagayan.
This study aimed to determine with office automation which includes
pertinent information such as fullname, birth place. Date of birth.gender. Civil
status, religion, occupation, Restno., citizenship and etc. . This will make the
work of the secretary faster and easier and more comprehensive

1.4 Significance of the Study

The study will contribute to develop Barangay Profiling System at
Barangay NannarianPeablanca Cagayan, particularly in managing the
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

Barangay Profiling System

transaction of files of residents. Barangay Profiling System is an example of a

new technology which facilitates the searching of files of each residents.
The study will benefit the following:
To the Agency:
The result of the study would provide more efficient and effective
processing of data, it would help them to lighten their work.

To the Residents:

Easily avail a copy of their profiles any time they want

Lessen the time and effort in filling forms

To the researcher

Enhance their potential in interacting with the officials

They were able to discover how competent in the fields of Information,
Technology and system analysis and design

1.5 Definition of Terms

These terminologies were gathered by the researcher for better and
clearer understanding about the study.
Client.Does not share any of its resources that request a servers content or
service function.
Computer.Machine capable of the following the instruction to alter data,
programmable electronic device that can perform calculations and processing
information.
Database. Is a container to store your tables in.
Information.Knowledge given or received of some fact or circumstances.
Program.An algorithm that a computer can both follow directly and follow
the translated version.
Record. It is the collection of related field with information that usually
pertains to only one subject.
Server. A computer on a local area that is running software for controlling
access to all or part of the network and its resources and shares its resources
with client.

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

Barangay Profiling System

System. It is a group of interrelated components working together toward

common goal by accepting input and producing output in an organized
transformation process.
Software. It is a system utility or application program expressed in complete
readable language.
User.The person who uses a computer for word processing, communications,
and other application.
User-Friendly.A program easy to use even though an individual is not
knowledgeable about the system.
Visual Basic Net. Scripting language or programming language that is used
to design the system.
Computerized System To equip the user from electronic computer to
facilitate or automated procedures it is an easy tool to produce printed output
or data.
Data Is a collection of an unauthorized facts of figures
Delete To remove or erase
Edit To change something, usually for the better
Input Refers to information that given to a computer that acts on
information to a computer
Output Refers to information to the convention for transmitting data
between a computer and its peripherals
Process Refers to a series of instructions that computer executes in a
multitasking of operating system
Password A secret combination of characters a user must type into the
computer in order to start a program or open a file.
Profile It is a type of feature story and usually focuses on a person.
Profiling It is a set of techniques for estimating the amount of time spent in
various portions of your program
Profiling System The profiling system is a unique personality assessment
that encompasses a system of profiling both people and processes.
CHAPTER II
REVIEW OF RELATED LITERATURE AND STUDIES

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

Barangay Profiling System

The chapter states the different literature and studies that were
conducted for the research to gain familiarity that are relevant and similar to
the present study.
Related Literature
Tinn (2001) stated that the computerization responded to the call the
office or any workplace to help their daily operation.
Janes (2001) stated that computers are extremely reliable device and
very powerful calculators with some great accessories applications like word
processing problem for all of business activities, regardless of size, computers
have three advantages over other type of office equipment that process
information because computer are faster, more accurate more economical.
Dioso (2001),

stated

that computer assist

careful intelligent

planning, organizing, actuating and controlling .This maybe observed from

the past that they monitor production activities, solve scientific problem and
help arrive in tentative answer to a multitude of involve conditions.
Maloloset.al (2002) stated that the study of automation is important
in the sense time that minimizes the time and effort normally exerted in
manual process.
Reyes (2005) said that task would be time consuming to accomplish
manually and more practical with the aid of computers field in cabinet.
According to Flores (2002), the automation is described simply as the
substitution of machine control of human.

RalphM.

Stair

(1999)

emphasized

that

the

development

of

technology through the years have enabled us to do more with less effort.

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

Barangay Profiling System

From the orientation of the light bulb to the industrial revolution and beyond,
we have continuously tried to in a more efficient means of doing tasks.
Lewis (2002) stated that the reason for using computers vary from
person to person. Some of the computers in business are to perform
accuracy, to be as productivity, to decrease bottle necks or hassles to alter
cash flows or to simples elevate your status.
Sybex

Inc (1999) stated that visual basic provide a graphical

environment in which the users usually designed the forms and control that
become the building block of tour application . Visual Basic support many
useful tools that will help the user more productivity.
GoldChageretal (2003) said that computer as a device for processing
information knew computer plays a significant role in their lives, but few are
aware of just how pervasive role is.
Mane (2000) mentioned that the creation of the computer made the
easier to accomplish that by doing it manually, to have the direct access on
straightforward answer just monitoring record where in the needs of
computer make possible for everyone to get data in a particular need. We can
consider that the computer is necessary and its productive tool for individual.

Gurewich (1999) stated that the database system makes the work
faster for every institution. For the mere fact that instead of doing things
manually, with the use of computer technology everything is done fasters.
Halili, M.C.N. (2004) that mans actions are t just involuntary
movements especially when time allow to plan his next action. These
responses pass through the process of reasoning and analysis.

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

Barangay Profiling System

Huntchinsonet.al (2001) stated that file is a collection of related

records. Examples are the entire students courses card for Anthropology 101
or the transcript of all courses in the registers office.
Bryan (2006) emphasized the information system is a set of people,
procedures and resources that collects, transforms and disseminates
information in an organization to dos ends rely on many types of information
system (IS). They might include simple manual information system and
informal system and also computer based information system that uses
hardware, software telecommunication and other forms of information
technology (IT).
Sander (2002)believed that computers are an intelligence amplifier
that can free human to use their time effectively. Because a computer is a
fast and accurate electronic symbol or data manipulating system that design
automatically accept and store input data process and procedure output
results under the direction of the stored program or instruction.
Towsand (2005) stated that database is structed collection of data.
The data may be about people, product events in short, any type of
information is to manage the collection of data for reporting and making
decision.

Perkins (1999) stated that computer has an impressive impact upon

business, governmental organization; bank and all sorts of organization and
on how they are operate and manage.

Related Studies
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

Barangay Profiling System

Conde(2007) in his study entitled Barangay profiling System

cited

that the manual process of inputting records and manual handling of

information and reports of the residents

is very laborious one. The

proponents developed a computer based ,barangay profiling system to solve

the huge amount of task.

Saayo(2008) developed the system Barangay profiling System. Due

to increasing population of the barangay, and the

barnagay currently

implementing the manual system, every resident spends a lot of time during
filling of personal files.

Admissions profiles can also include transcripts of interviews, records

of interactions with the applicant, and other relevant data. If the student was
accepted, the admissions profile will be used to generate a student profile for
recordkeeping purposes, with the profile including records of personal data of
the students like name, address, age, birthday, and some important details,
and being maintained by the registrar. Education

had

been industrialized

for the past centuries. From teaching and learning under a tree to developing
the minds and skills of students through effective, efficient and modern way
One of the best methods of student administration is the Student Profiling
System. Student profiling system is professional and academic discipline
concerned with the strategic, managerial and operational activities involved
in the gathering, processing, storing, distributing and use of information, and
its associated technologies, in society and organizations. Specifically, this
computer-based

profiling

system

is

complementary

networks

of

hardware/software that people or organization use to collect, filters, and

process, create and distribute data.

Profiling systems are implemented

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

Barangay Profiling System

within an organization for the purpose of improving the effectiveness and

efficiency of that organization. Admissions profiles can also include transcripts
of interviews, records of interactions with the applicant, and other relevant
data. If the student was accepted, the admissions profile will be used to
generate

a student profile for

recordkeeping

purposes,

with

the profile including records of personal data of the students like name,
address, age, birthday, and some important details, and being maintained by
the registrar. Education had been industrialized for the past centuries. From
teaching and learning under a tree to developing the minds and skills of
students through effective, efficient and modern way One of the best
methods of student administration is the Student Profiling System. Student
profiling system is professional and academic discipline concerned with the
strategic, managerial and operational activities involved in the gathering,
processing, storing, distributing and use of information, and its associated
technologies, in society and organizations. Specifically, this computer-based
profiling system is complementary networks of hardware/software that people
or organization use to collect, filters, and process, create and distribute data.
Profiling systems are implemented within an organization for the purpose of
improving the effectiveness and efficiency of that organization. Admissions
profiles can also include transcripts of interviews, records of interactions with
the applicant, and other relevant data. If the student was accepted, the
admissions profile will be used to generate a student profile for recordkeeping
purposes, with the profile including records of personal data of the students
like name, address, age, birthday, and some important details, and being
maintained by the registrar. Education

had

been industrialized for the past

centuries. From teaching and learning under a tree to developing the minds
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

Barangay Profiling System

and skills of students through effective, efficient and modern way One of the
best methods of student administration is the Student Profiling System.
Student profiling system is professional and academic discipline concerned
with the strategic, managerial and operational activities involved in the
gathering, processing, storing, distributing and use of information, and its
associated technologies, in society and organizations. Specifically, this
computer-based

profiling

system

is

complementary

networks

of

hardware/software that people or organization use to collect, filters, and

process, create and distribute data.

Profiling systems are implemented

within an organization for the purpose of improving the effectiveness and

efficiency of that organization.

Rona (2011) in her study

entitled A Proposed Student Profiling

System for the College of Information Technology, University of La Salette,

Santiago City will aid the time of the students in filling the profile information
for the student can manage their time in their studies. The activities that the
researchers want to develop are the computerized profiling system.

Dr. Peter G. Knight in his study, The Online Information System, can
stored datas, that is, its file or its database, are usually organized in such a
way that individual pieces of data can be retrieve and for modified quickly
and without necessarily accessing any other piece of data in the system.

According to Rice (2006), computers enhancement proved to be more

remarkable and even for a global communication to access immediate
information system to information technology that is used by people to
accomplish specified organizational individual object. The technology that

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

10

Barangay Profiling System

may be used in gathering, processing, storing and dissemination of

information and the users are trained in the use of that technology

CHAPTER III

RESEARCH METHODOLOGY

This chapter presents the procedure which the researchers

made use of, including the description of respondents locale of the
study and instruments utilized for gathering data and information for
the development of the study.

3.1Research Design

The researchers made use of the description normative survey

of research to obtain data. It involves describing, analyzing and
interpreting the conditions of the existing system. This was designed
to record information, analyzed and interpreted data being entered on
the proposed system.

3.2 Locale of the Study

This study was conducted at Barangay Nannarian, Peablanca,

Cagayan.

3.3Research Instruments

To obtain the necessary data in this study the researchers used

the following methods.

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

11

Barangay Profiling System

The

researchers

used

the

interview

method

to

gather

information and data needed in this study. Interview method was

conducted to ensure the responses to certain questions intended to
obtain

information

about

the

problem.

With

this

method

the

researchers was able to identify the existing problem of the existing

system.

A questionnaire was also utilized as the instrument for

gathering data. This is composed the profile of the officials and queries
for data gathering. It is a set of questions arranged in a sequence.

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

12

Barangay Profiling System

CHAPTER IV
PRESENTATION, ANALYSIS AND INTERPRETATION OF RESULTS
The following diagrams, tables and forms are used by the researchers
as their guides to have a good and effective result.
4.1 Context Level Diagram

0
Barangay
Cagayan State University- COLLEGE of INFORMATION and
Profiling
COMPUTINGSCIENCES
Resident
System

13
Baranga
y
Officials

Barangay Profiling System

Issued upon

Barangay Official
Detail

Resident Detail
Reports

Barangay
Captain

The resident comes to provides all necessary information of him/her,

upon the providing these information, those information go through a process
where it is an barangay profiling system and further produces the output or
the feedback of the resident and finally produce a report.

4.2 Data Flow Diagram

Resident info

Resident

Business

Request

Verify
Ver

resident
info
Detail

Owners info
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

Register
Business
14

Barangay Profiling System

Verify
Owners
info

D1
List of
Residents
Check

Detail

Process

Generate
Process
Report

Report

Issue
Business
Permit

The resident provide information; those information will deliver to the

sub process. Once the resident give his her information it will go in the verify
resident information process. When theres a new resident, it is required to
provide his/her detail information. That information will go to the verification
process and will proceed to the next step which is the process of register
information resident and will immediately store the details of the new resident
in the list of residents. From there, it will generate the report. In establishing a
business in the barangay, the owner needs to provide his/her information;
that information will go to the verification process and check the owner in the
list of residents. After that the business will be registered. When the business
registered it will issue the business permit to the owner of the business.

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

15

Barangay Profiling System

4.3 ENTITY RELATIONSHIP DIAGRAM

Citizenship

zone

business

occupation

residents

streets
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

religion

16

Barangay Profiling System

official

Establishments

position

PUROK

Log-in

Archives

A. DATABASE DESIGN
User View: LOGIN
A. Data Environment

Username
accessmod

Fullname

LOG-IN

position

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

password

17

Barangay Profiling System

B. Data Entry

C. ERD: Data Description

This form is use to modify the username password and access level of
the system. Only the secretary can do the modification, this form is made
used of data grid to view the list of the username who use the system. If you
entered invalid password and username you will not able to use the system.

B. DATABASE DESIGN
User View 1: Residents
A. Data Environment

RESTNO

LASTNAME
FIRSTNAME

CITIZENSHIP
INFORMATION

CONTACTNO

MIDDLENAME

BIRTHDATE

CIVIL STATUS
GENDER

RELIGION
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

CIVIL

GENDER

18

RELIGION

Barangay Profiling System

B.Data Entry

C. Data Description
The residents registration form is used to enter formation about the
residents of the barangay. The following are inputted in the residents
registration form: Restno, Lastname, Firstname, Middlename, Birthdate,
Religion, Gender, Civil status, Contactno, Citizenship, Birthplace, Zone,
occupation, business, Household, Age, Streets, Remarks. The command
buttons like add allows adding new entry, edit let the user modify the
entered data or information, delete to eliminate data or information and
cancel to terminate a process. Data grid is used to view the list of residents.

C. DATABASE DESIGN
User View 2: Officials

A. Data Environment

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

19

Barangay Profiling System

FULLNAME

YEAR OF SERVICE

POSITION

AGE

OFFICIALS

YEAR ELECTED

ENDED

GENDER

B. Data Entry

C. Data Description
This is the officials form; you can see here the list of officials elected
with their basic information about them. The command buttons like add
allows to add new entry, edit let the user modify the entered data or
information, delete to eliminate data or information and cancel to terminate
a process. Data grid is used to view the list of officials and their basic
information
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

20

Barangay Profiling System

D. DATABASE DESIGN
User View 3: Establishment
A. Data Environment

OWNER

COMPANYNAME

DATE ISSUED

ESTABLISHMENTS
Streets

DATE ESTABLISHED
PUROK

B. Data Entry

C. Data Description
This is the list of establishments with their corresponding informations
that are currently available. The command buttons like add allows to add new
entry, edit let the user modify the entered data or information, delete to
eliminate data or information and cancel to terminate a process. Data grid is
used to view the list of establishments and their basic information.

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

21

Barangay Profiling System

E. DATABASE DESIGN
User View 4: Business
A. Data Environment

ID

Business

Business

Residents

B. Data Entry

C. Data Description
This is a business form where the name of business can be seen. The
command button add allows you to add new entry, edit let the user modify
the entered data or information, delete to eliminate data or Information about
the business, cancel to terminate the process. Data grid is used to view the
list of business.

F. DATABASE DESIGN
User View 5: Zone
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

22

Barangay Profiling System

A. Data Environment

ID

Zone

Residents

Zone

B. Data Entry

C. Data Description
This is a zone form where you can see zones in the barangay. It has
four command buttons, add, edit, delete, cancel. Add allows you to add new
entry
in the form, edit let the user to modify the entered data or
information, delete to eliminate data or information, cancel to terminate the
process. Data grid is used to view the list of zones in the barangay.
G. DATABASE DESIGN
User View 6: Religion
A. Data Environment

ID
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES
religion

religion

23

Barangay Profiling System

residents

B. Data Entry

C. Data Description
This is a religion form where you can the religions in the barangay.
It has four command buttons, add edit, delete and cancel. Add allows you to
add new entry in the form, edit let the user to modify the entered data or
information, delete to eliminate data or information, cancel to terminate the
process. Data grid is used to view the list of puroks in the barangay.
H. DATABASE DESIGN
User View 7: Streets
A. Data Environment
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

24

Barangay Profiling System

streets

ID

residents

streets

purok

B. Data Entry

C. Data Description
This is a street form where you can see street of each purok in the
barangay. It has four command buttons, add, edit, delete, cancel . Add allows
you to add new entry in the form, edit let the user to modify the entered
data or information, delete to eliminate data or information, cancel to
terminate the process. Data grid is used to view the list of puroks in the
barangay.
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

25

Barangay Profiling System

I. DATABASE DESIGN
User View 8: Occupation
A. Data Environment

occupation

ID

residents

occupation

B. Data Entry

C. Data Description
This is a occupation form where you can see the list of
occupations in the barangay. It has four command buttons, add, edit, delete,
cancel . Add allows you to add new entry in the form, edit let the user to
modify the entered data or information, delete to eliminate data or
information, cancel to terminate the process. Data grid is used to view the list
of occupations in the barangay.

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

26

Barangay Profiling System

J. TABLE DESIGN
TABLE/
ENTITY

FIELSD/
ATTRBUTES

DATA TYPE

FIELD
SIZE

REMARKS

tblLog-in

ID
Full name
Access mode
Position
Username
Password

Auto Number
Text
Text
Text
Text
Text

50
50
30
50
30
30

Primary key

Tblinfo

ID
Restno
Lastname
Firstname
Middlename
Birthdate
Religion
Gender
Civilstatus
Contactno
Citizenship
Birthplace
Zone
Occupation
Business
Household
Age
Streets
Remarks

Auto Number
Text
Text
Text
Text
Text
Text
Text
Text
Text
Text
Text
Text
Text
Text
Text
Text
Text
Text

50
30
50
50
50
30
50
5
30
20
50
50
30
50
50
30
3
50
50

Primary key

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

27

Barangay Profiling System

Tblofficials

ID
Fullname
Position
BirthDate
Age
Gender
Yearelected
Yearofservice
Remarks

Auto Number
Text
Text
Text
Text
Text
Text
Text
Text

50
50
50
30
3
5
30
30
50

Primary key

tblestablishment

ID
COMPANYNAME
OWNER
DATEISSUED
DATEESTABLISHED
PUROK
STREETS

ID
Restno
Lastname
Firstname
Middlename
Birthdate
Religion
Gender
Civilstatus
Contactno
Citizenship
Birthplace
Zone
Occupation
Business
Household
Age
Street

50
50
50
30
30
20
50
50
50
50
30
50
50
50
30
50
5
30
20
50
50
50
50
50
30
3
50

Primary key

Tblarchive

Auto Number
Text
Text
Text
Text
Text
Text
Text
Text
Auto Number
Text
Text
Text
Text
Text
Text
Text
Text
Text
Text
Text
Text
Text
Text
Text
Text
Text

Tblbusiness

ID
Business

Auto Number
Text

50
50

Primary key

tblcitizenship

ID
Citizenship

Auto Number
Text

50
50

Primary key

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

Primary key

28

Barangay Profiling System

tbloccupation

ID
Occupation

Auto Number
Text

50
50

Primary key

Tblposition

ID
Position

Auto Number
Text

50
50

Primary key

Tblreligion

ID
Religion

Auto Number
Text

50
50

Primary key

Tblremarks

ID
Remarks

Auto Number
Text

50
50

Primary key

Tblsecure

ID
Password

Auto Number
Text

50
50

Primary key

Tblstatus

ID
Status

Auto Number
Text

50
50

Primary key

Tblstreets

ID
Streets
Purok

Auto Number
Text
Text

50
50
30

Primary key

Tblzone

ID
Zun

Auto Number
Text

50
30

Primary key

Tbltotal

ID
Purok
Title
Male
Female
Total

Auto Number
Text
Text
Text
Text
Number

50
30
50
50
50
30

Primary key

K. DEFINING ATTRIBUTES AND DESIGN

TABLE/ENTITY
tblLog-in

tblinfo

FIELSD/ATTRBUTES
ID
Full name
Access mode
Position
Username
Password
ID
Restno
Lastname
Firstname
Middlename

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

DOMAIN
0-9
A-Z,
0-9
A-Z,
A-Z,
0-9
0-9
0-9
A-Z,
A-Z,
A-Z,

a-z
a-z
a-z

a-z
a-z
a-z

29

Barangay Profiling System

tblofficials

tblestablishment

Tblarchive

Birthdate
Religion
Gender
Civilstatus
Contactno
Citizenship
Birthplace
Zone
Occupation
Business
Household
Age
Streets
Remarks
ID
Fullname
Position
BirthDate
Age
Gender
Yearelected
Yearofservice
Remarks

0-9
A-Z, a-z
A-Z, a-z
A-Z, a-z
0-20
A-Z, a-z
A-Z, a-z
0-9
A-Z, a-z
A-Z, a-z
0-9
3
A-Z, a-z, 0-9
A-Z, a-z
0-9
A-Z, a-z
A-Z, a-z
0-9
3
A-Z, a-z
0-9
0-9
A-Z, a-z

ID
COMPANYNAME
OWNER
DATEISSUED
DATEESTABLISHED
PUROK
STREETS
ID
Restno
Lastname
Firstname
Middlename
Birthdate
Religion
Gender
Civilstatus
Citizenship
Civilstatus
Contactno
Citizenship
Birthplace
Zone

0-9
A-Z, a-z
A-Z, a-z
0-9, /
0-9, /
0-9
A-Z, a-z, 0-9
0-9
0-9
A-Z, a-z
A-Z, a-z
A-Z, a-z
0-9
A-Z, a-z
A-Z, a-z
A-Z, a-z
A-Z, a-z
A-Z, a-z
0-20
A-Z, a-z
A-Z, a-z
0-9

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

30

Barangay Profiling System

Occupation
Business
Household
Age
Street
tblbusiness
ID
Business
tblcitizenship
ID
Citizenship
tbloccupation
ID
Occupation
Tblposition
ID
Position
Tblreligion
ID
Religion
tblremarks
ID
Remarks
Tblsecure
ID
Password
Tblstatus
ID
Status
Tblstreets
ID
Streets
Purok
Tblzone
ID
Zun
Tbltotal
ID
Purok
ADDallows the
Title
user
to
Maleadd new
entry.
Female
EDIT- let the user
Total
modify the input
data or information.
DELETE- use to
4.4 IPO (INPUT PROCESS OUTPUT DIAGRAM)
eliminate data or file.
SAVE- allows the
INPUT
PROCESS
user to update or
store information
entered.
PASSWORD
CANCEL- use to
Username
terminate process.
Password
CLOSE- allows the
RESIDENTS
user to exit from the
Residents No.
transaction.
Last Name
SEARCH- allows the
First Name
user to find look or
Middle Name
view the information.
Birthdate
Religion

A-Z,
A-Z,
0-9
3
A-Z,
0-9
A-Z,
0-9
A-Z,
0-9
A-Z,
0-9
A-Z,
0-9
A-Z,
0-9
A-Z,
0-9
0-9
0-9
A-Z,
0-9
A-Z,
0-9
0-9
0-9
0-9
0-9
A-Z,
A-Z,
A-Z,
0-9

a-z
a-z

a-z
a-z
a-z
a-z
a-z
a-z
a-z

a-z
a-z, 0-9

a-z
a-z
a-z

OUTPUT

Information of
Residents and
Officials.

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

31

Barangay Profiling System

Gender
Civil Status
Contact number
Citizenship
Birthplace
Zone
Occupation
Business
House number
Age
Streets
Remarks
OFFICIALS
Full Name
Position
Age
Gender
Year Elected
ARCHIVES
Restno
Lastname
Firstname
Middlename
Birthdate
Religion
Gender
Civilstatus
Contactno
Citizenship
Birthplace
Zone
Occupation
Business
Household
Age
Street
ESTABLISHMENTS
ID
COMPANYNAME
OWNER
DATEISSUED
DATEESTABLISHED
PUROK
STREETS
BUSINESS
ID
Business
CITIZENSHIP
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

32

Barangay Profiling System

ID
Citizenship
OCCUPATION
ID
Occupation
POSITION
ID
Position
RELIGION
ID
Religion
REMARKS
ID
Remarks
STATUS
ID
status
STREETS
ID
Streets
Purok

4.5 HIPO (HIRARCHY INPUT PROCESS OUTPUT DIAGRAM)

PASWORD

MAIN MENU

FILE

LIBRARY
FILE

TRANSACTI
ON
RESIDENTS

REPORT

LIST OF
RESIDENTS

OFFICIALS

SYSTEM

HELP
ABOUT
SECURITY
SETTING

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

ESTABLISHMENTS

33

Barangay Profiling System

BRGY. OFFICIALS
LIST

EXIT

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

34

Barangay Profiling System

4.6 PHYSICAL DESIGN

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

35

Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

36

Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

37

Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

38

Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

39

Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

40

Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

41

Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

42

Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

43

Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

44

Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

45

Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

46

Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

47

Barangay Profiling System

Chapter V

SUMMARY, CONCLUSION AND RECOMMENDATION

5.1 Summary of Finding

Through the thorough implementation of the system, the

researchers found that BARANGAY PROFILING SYSTEM of Barangay Nannarian,
Peablanca, Cagayan is the best solution of the time and effort consuming
recording and generating reports of residents of the barangay.

5.2 Conclusion

The researchers conclude that using the said study is more effective
and efficient in recording the residents profiles and therefore it is not already
a burden and laborious on the apart of the officials in charge in updating the
profiles of each residents and generates records of each residents.

5.3 Recommendation

The researchers therefore recommend that Barangay Profiling System

is more reliable to use and they recommend that Barangay Nannarian,

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

48

Barangay Profiling System

Peablanca should adopt it, so, as to cope with a high speed transformation
of technology and could generate a great degree of accuracy and speed.

BIBLIOGRAPHY
[1] http//academia.com
[2] Angeles University Foundation Graduate School.Guidelines on Writing the
Dissertation, Thesis, and Project Study.
[2] Booth, Wayne C., Colomb, Gregory G., and Williams, Joseph M. 1993. The
Craft of Research.University of Chicago Press.
[3] Institute of Electrical and Electronic Engineers. 1965. Information for IEEE
Authors. IEEE Spectrum 2

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

49

Barangay Profiling System

APPENDICES

APPENDIX A.History of Barangay Nannarian

The hunters who settled in barangay Callao went as far as the

adjacent barangay, their place of settlement to farm. They planted corn, rice,
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

50

Barangay Profiling System

peanut mongo beans, tobacco, sorghum and millet. These hunters are fond of
drinking chocolate which they get from the cacao seeds which they planted in
abundance. The best cake that goes with this chocolate is a native cake from
millet. Millet in the Ibanang dialect is NANNA. Because of their fondness in
drinking chocolate with millet or Nanna cake, they planted their farm with
plenty of millet. Their millet or nanna plants grew very well, very healthy and
very productive.

One time, some Spaniards passed by the farm. They were so excited
and very happy upon seeing how beautiful and how plenty were the millet or
Nanna. They asked the farmers what those plants were. The farmers
answered NANNA RA YAN meaning Those are millet. The Spaniards kept
on repeating Nannarayan until they got so used to saying the words and
soon the words Nanna ray an became one word, Nannarian. Not long after
in the latter 60s the place was proclaimed as a barangay. When Nannarian
was not proclaimed as barangay, it has three (3) sitios, namely Paku, Labo
and Fugu. Later on, in the latter 70s Nannarianhas five (5) zones. After
sometime, the zone was change into purok and with five (5) puroks, then with
six (6) and presently it has seven (7) puroks due to the rapid increase in
population.

Today, Nannarian is one among the developing barangays in the

municipality Peablanca.

Mission

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

51

Barangay Profiling System

To upgrade the status of the community people through proper

utilization of resources and implementing priority programs and projects with
respect to nature and welfare of mankind.

Vission

A united barangay capable of managing and sustaining development

activities to ensure the economic growth and progress of community and well
being

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

52

Barangay Profiling System

APPENDIX B:DIAGRAMMING SYMBOLS

ERD SYMBOLS
Attributes: A named property of characteristics of
an entity that is of interest of the organization

Entity: An object that exist and is distuishable from

other
Objects

Primary Key: An attributing in the table that has no

duplicate value, it is a unique identifier

Foreign key: The attribute in the table that is

unique in its table but when moves to another table
becomes an ordinary attribute

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

53

Barangay Profiling System

Cardinality Symbols
A named property or
characteristics of an entity is
interested to the organization.
One to One relationship.

One to Many relationship

Optional one or one cardinality

Flowcharting symbols
Terminal Symbol
Marks the starting or ending point of
the flowchart.

Process
Represents a single page, or an entire
sub-process within a larger process

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

54

Barangay Profiling System

Input/Output
Represents material or information
entering or leaving the system

On-Page Connector
Indicates that the flow continues where
a matching symbol has been placed

Flow Line
Lines indicate the sequence of steps
and the direction of flow

Off-Page Connector
Indicates that the process continues of
page

Decision
A branching point; lines representing
different decisions emerge from
different points of the diamond.

Initialization
Used to prepare components of a
program

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

55

Barangay Profiling System

APPENDIX C: REPORT PRINTOUT

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

56

Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

57

Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

58

Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

59

Barangay Profiling System

APPENDIX D: ACCEPTANCE LETTER

December 3, 2013
MRS.ANGELITA MACARILAY
Barangay Captain
Barangay Nannarian, Peablanca Cagayan
Maam:
Greetings in the Name of the Lord!
We are currently enrolled in Capstone Project, a course that envisions a good
systems proposal, which is a part of a dynamic and responsive curriculum of
the degree Bachelor of Science in Information Technology. The course
cultivates and hones the ability of the students to develop interpersonal,
analysis, research, and design skills through interactive and meaningful data
gathering activities.
We are very willing to help your organization by developing a Barangay
Profiling System which may be of great use for your daily routines and
rigorous business transactions. As approved by our Instructor, we seek
permission from you for us to conduct data gathering activity through
interview, observation, investigation, and/or floating of questionnaires.
The output of the data gathering activity shall be useful in defining the
business problem of your organization and the data shall be utilized as basis
for the development of a sound system that primordially eradicates the bulk
of paper work, filing, and retrieval. We also ensure the security and
confidentiality of the data gathered from your organization.
Should you have inquiries or verifications, please feel free to contact us
anytime and we shall be very pleased to accommodate you. Thank you, in
anticipation, for your positive response on this humble request. More Power
and God Bless!
Respectfully yours,
JunelQuindatan
John Michael Marcos
Jeremy Liquigan
NOTED:

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

60

Barangay Profiling System

GEORGE BICERA
MSME, MIT

EDISON D. BRAVO,

Instructor-Adviser, Capstone

OIC-Dean
USER MANUAL

This screen will ask the user to input his/her uername and correct
password to access the system. The login button confirms the password if the
entered username and password is valid it will go to the next form else it will
ask the user to type the correct username.

This is the main form of the system. Here, you can choose what part of
the system to view or navigate by clicking the corresponding buttons.

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

61

Barangay Profiling System

This form is the residents form. In this form the following are
inputedfirstname, lastname, middlename, age, gender,etc..you made use of
labels to identify. It has four buttons, add, edit, delete, cancel.Add allows you
to add new entry in the form, edit let the user to modify the entered data or
information, delete to eliminate data or information, cancel to terminate the
process.

This form is the adding form. This is made used to enter data about the
profile of the new residents of the barangay. It has two command buttons,
save and cancel. Save allows the user to update or store information entered.
Cancel use to terminate process.

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

62

Barangay Profiling System

This is the edit form, this is used to modify the Input data about the
profiles of the residents. It used to change information about the residents.

This form is the list of officials in the barangay with their corresponding
data about them. It has four command buttons add, edit, delete, cancel. Add
allows you to add new entry in the form, edit let the user to modify the
entered data or information, delete to eliminate data or information, cancel to
terminate the process.

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

63

Barangay Profiling System

This form is used to add new elected officials of the barangay. It has
two command buttons, save and cancel. Save allows the user to update or
store the information entered.

This form is the edit form of officials, it is used to modify the input data
about the officials. It has two buttons the save and cancel. Save allows the
user to update or store the information entered.

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

64

Barangay Profiling System

APPENDIX E:COMPLETION FORM

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

65

Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

66

Barangay Profiling System

APPENDIX F:SOURCE CODE

LOGIN
Private Sub login_KeyDown(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.Escape Then
End
End If
End Sub
Sub checkuser()
If Trim(txtuss.Text) <> "" And Trim(txtpss.Text) <> "" Then
FillDataGrid("Select * from tblLogin Where password='" &
Trim(txtpss.Text) & "','" & Trim(txtuss.Text) & "'", dgvusers)
End If
End Sub
Private Sub Piclog_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Piclog.Click
If Trim(txtpss.Text = "") Then
MsgBox("Please enter your Password", MsgBoxStyle.Information,
"Empty")
Exit Sub
End If
FillDataGrid("Select * from tblLogin Where username='" &
Trim(txtuss.Text) & "' and password='" & Trim(txtpss.Text) & "'", dgvusers)
If dgvusers.Rows.Count >= 1 Then
If dgvusers.CurrentRow.Cells(5).Value = Trim(txtpss.Text) And
dgvusers.CurrentRow.Cells(4).Value = Trim(txtuss.Text) Then
Me.Hide()
mainnnn.Text = "BARANGAY PROFILING SYSTEM OF NANNARIAN
PEABLANCA"
mainnnn.Show()
End If
Else
MsgBox("Invalid Password", MsgBoxStyle.Critical, "Invalid")
txtpss.Clear()
txtpss.Focus()
End If
End Sub
ADD PASSWORD
Private Sub picadd_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles picadd.Click
AddPassword.txtname.Clear()
AddPassword.txtmod.Clear()
AddPassword.txtposition.Clear()
AddPassword.txtuser.Clear()
AddPassword.txtpassword.Clear()
AddPassword.Show()
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

67

Barangay Profiling System

End Sub
EDIT PASSWORD
Private Sub picedit_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles picedit.Click
On Error Resume Next
edituser.Text = "Edit User"
edituser.txtfullname.Text = dgv2.CurrentRow.Cells(1).Value
edituser.txtaccess.Text = dgv2.CurrentRow.Cells(2).Value
edituser.txtposition.Text = dgv2.CurrentRow.Cells(3).Value
edituser.txtuser.Text = dgv2.CurrentRow.Cells(4).Value
' frmuser.txtoldnew.Text = dgvsetup.CurrentRow.Cells(5).Value
edituser.txt1.Text = dgv2.CurrentRow.Cells(5).Value
edituser.ShowDialog()
edituser.txtconfirm.Clear()
edituser.txtexpass.Clear()
edituser.txtnewpass.Clear()

End Sub
DELETE PASSWORD
Private Sub picdelete_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles picdelete.Click
If MsgBox("Do you really want to delete this records?",
MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Delete") = MsgBoxResult.Yes
Then
FillDataGrid("DELETE FROM tblLogin WHERE ID=" &
dgv2.CurrentRow.Cells(0).Value & "", dgv2)
loadsetup()
End If
End Sub
End Class
UPDATE PASSWORD
Sub updatepassword()
If chk.Checked = True Then
txtnewpass.Enabled = True
txtconfirm.Enabled = True
Else
chk.Checked = False
txtnewpass.Enabled = False
txtconfirm.Enabled = False
End If
End Sub
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

68

Barangay Profiling System

Private Sub edituser_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load
updatepassword()
End Sub
Private Sub chk_CheckedChanged(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles chk.CheckedChanged
updatepassword()
End Sub
Private Sub picsave_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles picsave.Click
If Trim(txtexpass.Text) <> Trim(txt1.Text) Then
MsgBox("Invalid Password", MsgBoxStyle.Critical)
txtexpass.Focus()
Exit Sub
End If
FillDataGrid("UPDATE tblLogin set [Fullname]='" & Trim(txtfullname.Text)
& "',[accessmod]='" & Trim(txtaccess.Text) & "',[position]='" &
Trim(txtposition.Text) & "',[username]='" & Trim(txtuser.Text) & "',
[password]='" & Trim(txtnewpass.Text) & "' WHERE ID=" &
user_setup.dgv2.CurrentRow.Cells(0).Value & "", user_setup.dgv2)
If chk.Checked = True Then
If Trim(txtnewpass.Text) <> Trim(txtconfirm.Text) Then
MsgBox("Password Did Not Match", MsgBoxStyle.Critical)
txtnewpass.Focus()
Exit Sub
End If
FillDataGrid("UPDATE tblLogin SET password='" &
Trim(txtnewpass.Text) & "' WHERE ID=" &
user_setup.dgv2.CurrentRow.Cells(0).Value & "", user_setup.dgv2)
End If
Me.Close()
user_setup.loadsetup()
user_setup.Show()
End Sub
SAVE AND UPDATE RESIDENTS

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

69

Barangay Profiling System

Private Sub picsave_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles picsave.Click
If MsgBox("Are you Sure you want to SAVE this records?",
MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Save") = MsgBoxResult.Yes
Then
If Me.Text = "Add Resident" Then
FillDataGrid("INSERT INTO tblinfo ([Restno],[Lastname],[Firstname],
[Middlename],[Birthdate],[Religion],[Gender],[Civilstatus],[Contactno],
[Citizenship],[Birthplace],[Zone],[occupation],[business] , [Household] ,
[Age] , [Streets] , [rel] , [gen] , [civ] , [zun] , [occ] , [bus] , [strit] , [Remarks] ,
[Attainment] , [SeniorCitizen] , [DisAbilities] ) values ('" &
Trim(txtresident.Text) & "','" & Trim(txtlname.Text) & "','" &
Trim(txtfname.Text) & "','" & Trim(txtmname.Text) & "','" & Trim(txtdate.Text)
& "','" & Trim(cmbreligion.Text) & "','" & Trim(cmbgender.Text) & "','" &
Trim(cmbstat.Text) & "','" & Trim(txtcon.Text) & "','" &Trim(cmbcitizen.Text) &
"','" & Trim(txtbp.Text) & "','" & cmbpurok.Text & "','" & cmboccupation.Text &
"','" & cmbbusiness.Text & "','" & Trim(txthousehold.Text) & "','" &
Trim(txtage.Text) & "','" & cmbstreets.Text & "','" & Trim(txtrel.Text) & "','" &
Trim(txtgender.Text) & "','" & Trim(txtciv.Text) & "','" & Trim(txtcitizenship.Text)
& "','" & Trim(txtocc.Text) & "','" & Trim(txtbus.Text) & "','" &
Trim(txtstrteets.Text) & "','" & cmbremarks.Text & "','" & cmbattainment.Text
& "','" & cmbsenior.Text & "','" & cmbdis.Text & "')", frmlist.dgv1)
MsgBox("done")
Call frmlist.Loadres()
Else
Dim con As New OleDb.OleDbConnection(StrCon)
Dim comm As OleDb.OleDbCommand
con.Open()
comm = New OleDb.OleDbCommand
comm.Connection = con
comm.CommandText = "UPDATE tblinfo SET [Restno]='" &
Trim(txtresident.Text) & "',[Lastname]='" & Trim(txtlname.Text) & "',
[Firstname]='" & Trim(txtfname.Text) & "',[Middlename]='" &
Trim(txtmname.Text) & "',[Birthdate]='" & Trim(txtdate.Text) & "',[Religion]='"
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

70

Barangay Profiling System

& Trim(cmbreligion.Text) & "',[Gender]='" & Trim(cmbgender.Text) & "',

[Civilstatus]='" & Trim(cmbstat.Text) & "',[Contactno]='" & Trim(txtcon.Text) &
"',[Citizenship]='" & Trim(cmbcitizen.Text) & "',[Birthplace]='" &
Trim(txtbp.Text) & "',[Zone]='" & Trim(cmbpurok.Text) & "',[occupation]='" &
Trim(cmboccupation.Text) & "',[business]='" & Trim(cmbbusiness.Text) & "',
[Household]='" & Trim(txthousehold.Text) & "',[Age]='" & Trim(txtage.Text) &
"',[Streets]='" & Trim(cmbstreets.Text) & "',[rel]='" & Trim(txtrel.Text) & "',
[gen]='" & Trim(txtgender.Text) & "',[civ]='" & Trim(txtciv.Text) & "',[zun]='" &
Trim(txtcitizenship.Text) & "',[occ]='" & Trim(txtocc.Text) & "',[bus]='" &
Trim(txtbus.Text) & "',[strit]='" & Trim(txtstrteets.Text) & "',[Remarks]='" &
Trim(cmbremarks.Text) & "',[Attainment]='" & Trim(cmbattainment.Text) & "',
[SeniorCitizen]='" &Trim(cmbcitizen.Text) & "',[DisAbilities]='" &
Trim(cmbdis.Text) & "' WHERE [ID]=" & frmlist.dgv1.CurrentRow.Cells(0).Value
& ""
comm.ExecuteNonQuery()
'FillDataGrid("UPDATE tblinfo SET Restno='" & Trim(txtresident.Text) &
"',Lastname='" & Trim(txtlname.Text) & "',Firstname='" & Trim(txtfname.Text)
& "',Middlename='" & Trim(txtmname.Text) & "',Birthdate='" &
Trim(txtdate.Text) & "',Religion='" & Trim(cmbreligion.Text) & "',Gender='" &
Trim(txtgen.Text) & "',Civilstatus='" & Trim(cmbstat.Text) & "',Contactno='" &
Trim(txtcon.Text) & "',Citizenship='" & Trim(txtciti.Text) & "',Birthplace='" &
Trim(txtbp.Text) & "',Zone='" & Trim(cmbpurok.Text) & "',occupation='" &
Trim(cmboccupation.Text) & "',business,='" & Trim(cmbbusiness.Text) &
"',FamilyID,='" & Trim(cmbbusiness.Text) & "',Familycode,='" &
Trim(cmbfamcode.Text) & "' WHERE ID=" &
frmlist.dgv1.CurrentRow.Cells(0).Value & "", frmlist.dgv1)
Call frmlist.Loadres()
End If
'txtresident.Text = Val(txtresident.Text) + 1
frmlist.Refresh()
'Me.Close()
Call frmlist.Loadres()
frmlist.lbltotal.Text = frmlist.dgv1.RowCount
End If
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

71

Barangay Profiling System

Exit Sub
End Sub
ADD RESIDENTS
Private Sub picADD_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles picADD.Click
resident_info.Text = "Add Resident"
resident_info.txtresident.Clear()
resident_info.txtlname.Clear()
resident_info.txtfname.Clear()
resident_info.txtmname.Clear()
resident_info.txtage.Clear()
resident_info.cmbgender.Items.Clear()
resident_info.cmbreligion.Items.Clear()
resident_info.cmbstat.Items.Clear()
resident_info.cmboccupation.Items.Clear()
resident_info.cmbpurok.Items.Clear()
resident_info.cmbbusiness.Items.Clear()
resident_info.txthousehold.Clear()
resident_info.txtcon.Clear()
resident_info.cmbcitizen.Items.Clear()
resident_info.txtbp.Clear()
resident_info.txtrel.Clear()
resident_info.txtgender.Clear()
resident_info.txtstrteets.Clear()
resident_info.txtcitizenship.Clear()
resident_info.txtbus.Clear()
resident_info.txtocc.Clear()
resident_info.txtciv.Clear()
resident_info.txtpurok.Clear()
resident_info.txtbirth.Clear()
resident_info.txtremarks.Clear()
resident_info.cmbremarks.Visible = False
resident_info.lbl1.Visible = False
resident_info.txtresident.Clear()
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

72

Barangay Profiling System

dgv1.Columns(25).Visible = False
End Sub

EDIT RESIDENTS
Private Sub picedit_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles picedit.Click
resident_info.Text = "Edit Profile"
resident_info.txtresident.Text = dgv1.CurrentRow.Cells(1).Value.ToString
resident_info.txtlname.Text = dgv1.CurrentRow.Cells(2).Value.ToString
resident_info.txtfname.Text = dgv1.CurrentRow.Cells(3).Value.ToString
resident_info.txtmname.Text = dgv1.CurrentRow.Cells(4).Value.ToString
resident_info.txtbirth.Text = dgv1.CurrentRow.Cells(5).Value.ToString
resident_info.txtrel.Text = dgv1.CurrentRow.Cells(6).Value.ToString
resident_info.txtgender.Text = dgv1.CurrentRow.Cells(7).Value.ToString
resident_info.txtciv.Text = dgv1.CurrentRow.Cells(8).Value.ToString
resident_info.txtcon.Text = dgv1.CurrentRow.Cells(9).Value.ToString
resident_info.txtcitizenship.Text =
dgv1.CurrentRow.Cells(10).Value.ToString
resident_info.txtbp.Text = dgv1.CurrentRow.Cells(11).Value.ToString
resident_info.txtpurok.Text = dgv1.CurrentRow.Cells(12).Value.ToString
resident_info.txtocc.Text = dgv1.CurrentRow.Cells(13).Value.ToString
resident_info.txtbus.Text = dgv1.CurrentRow.Cells(14).Value.ToString
resident_info.txthousehold.Text =
dgv1.CurrentRow.Cells(15).Value.ToString
resident_info.txtage.Text = dgv1.CurrentRow.Cells(16).Value.ToString
resident_info.txtstrteets.Text = dgv1.CurrentRow.Cells(17).Value.ToString
resident_info.txtremarks.Text = dgv1.CurrentRow.Cells(25).Value.ToString
resident_info.cmbattainment.Text =
dgv1.CurrentRow.Cells(26).Value.ToString
resident_info.cmbdis.Text = dgv1.CurrentRow.Cells(28).Value.ToString
resident_info.cmbremarks.Visible = True
resident_info.lbl1.Visible = True
resident_info.ShowDialog()
dgv1.Columns(25).Visible = True
End Sub
DELETE RESIDENTS
Private Sub PictDelete_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles PicDelete.Click
If MsgBox("Do you really want to delete this records?",
MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Delete") = MsgBoxResult.Yes
Then

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

73

Barangay Profiling System

FillDataGrid("DELETE FROM tblinfo WHERE ID=" &

dgv1.CurrentRow.Cells(0).Value & "", dgv1)
Loadres()
lbltotal.Text = dgv1.RowCount
dgv1.Columns(25).Visible = False
End If
End Sub
SEARCH RESIDENTS
Private Sub txtsearch_TextChanged(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles txtsearch.TextChanged
searchone()
End Sub
Sub searchone()
'[Birthdate],[Religion],[Gender],[Civilstatus],[Contactno],[Citizenship],
[Birthplace],[Zone],[occupation],[business] , [Household] , [Age] , [Streets] ,
[Remarks]
If txtsearch.Text <> "" Then
FillDataGrid("SELECT * FROM tblinfo WHERE Restno like '" &
Trim(txtsearch.Text) & "%' or Lastname like '" & Trim(txtsearch.Text) & "%' or
Firstname like '" & Trim(txtsearch.Text) & "%' or Middlename like '" &
Trim(txtsearch.Text) & "%' or Birthdate like '" & Trim(txtsearch.Text) & "%' or
Religion like '" & Trim(txtsearch.Text) & "%' or Gender like '" &
Trim(txtsearch.Text) & "%'", dgv1)
formatgrid()
Else
FillDataGrid("SELECT * FROM tblinfo WHERE Restno= 'wewe123123'",
dgv1)
formatgrid()

End If
SAVE OFFICIALS
Private Sub picsave_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles picsave.Click
Dim year As String = cmbelected.Text + " - " + txtended.Text
FillDataGrid("INSERT INTO tblofficials([Fullname] , [Position] ,
[BirthDate] , [Age] , [Gender] , [Yearelected] , [year] , [ended] ,
[yearofservice] , [Remarks]) VALUES('" & Trim(txtfull.Text) & "','" &
Trim(cmbposition.Text) & "','" & Trim(dtbirth.Text) & "','" & Trim(txtt.Text) &
"','" & Trim(cmbgender.Text) & "','" & year & "','" & Trim(txtyear.Text) & "','" &
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

74

Barangay Profiling System

Trim(txtend.Text) & "','" & Trim(txtyearofsrvice.Text) & "','" &

Trim(cmbremarks.Text) & "')", list_of_officials.dgvofficials)
list_of_officials.loadoff()
Me.Close()
End Sub
ADD OFFICIALS
Private Sub picadd_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles picadd.Click
barangay_officials.txtfull.Clear()
barangay_officials.cmbposition.Items.Clear()
barangay_officials.txtt.Clear()
barangay_officials.cmbgender.Items.Clear()
barangay_officials.cmbelected.Items.Clear()
barangay_officials.txtended.Clear()
barangay_officials.txtservice.Clear()
barangay_officials.txtyearofsrvice.Clear()
barangay_officials.txtend.Clear()
barangay_officials.txtyear.Clear()
barangay_officials.cmbremarks.Items.Clear()
barangay_officials.ShowDialog()
End Sub
EDIT OFFICIALS
Private Sub picedit_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles picedit.Click
editofficials.txtfull.Text = dgvofficials.CurrentRow.Cells(1).Value.ToString
editofficials.txtpos.Text = dgvofficials.CurrentRow.Cells(2).Value.ToString
editofficials.txtdate.Text = dgvofficials.CurrentRow.Cells(3).Value.ToString
editofficials.txtt.Text = dgvofficials.CurrentRow.Cells(4).Value.ToString
editofficials.cmbgender.Text =
dgvofficials.CurrentRow.Cells(5).Value.ToString
editofficials.txtyear.Text = dgvofficials.CurrentRow.Cells(7).Value.ToString
editofficials.txtend.Text = dgvofficials.CurrentRow.Cells(8).Value.ToString
editofficials.txtyearofservice.Text =
dgvofficials.CurrentRow.Cells(9).Value.ToString
editofficials.cmbstatus.Text =
dgvofficials.CurrentRow.Cells(10).Value.ToString
editofficials.ShowDialog()
End Sub
UPDATE OFFICIALS
Private Sub picsave_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles picsave.Click
Dim year As String = cmbelected.Text + " - " + txtended.Text

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

75

Barangay Profiling System

FillDataGrid("UPDATE tblofficials SET [Fullname]='" & Trim(txtfull.Text) &

"',[Position]='" & Trim(cmbposition.Text) & "',[BirthDate]='" &
Trim(dtbirth.Text) & "',[Age]='" & Trim(txtt.Text) & "',[Gender]='" &
Trim(cmbgender.Text) & "',[Yearelected]='" & year & "',[ended]='" &
Trim(txtended.Text) & "',[Remarks]='" & Trim(cmbstatus.Text) & "' WHERE
[ID]=" & list_of_officials.dgvofficials.CurrentRow.Cells(0).Value & "",
list_of_officials.dgvofficials)
Me.Close()
list_of_officials.loadoff()
End Sub
DELETE OFFICIALS
Private Sub picdelete_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles picdelete.Click
If MsgBox("Do you really want to delete this records?", MsgBoxStyle.Question
+ MsgBoxStyle.YesNo, "Delete") = MsgBoxResult.Yes Then
FillDataGrid("DELETE FROM tblofficials WHERE ID=" &
dgvofficials.CurrentRow.Cells(0).Value & "", dgvofficials)
loadoff()
End If
End Sub
SEARCH OFFICIALS
Private Sub txtsearch_TextChanged(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles txtsearch.TextChanged
FillDataGrid("SELECT * FROM tblofficials where [Fullname] like '" &
Trim(txtsearch.Text) & "%' or [Position] like '" & Trim(txtsearch.Text) & "%' or
[Age] like '" & Trim(txtsearch.Text) & "%' or [Gender] like '" &
Trim(txtsearch.Text) & "%' or [Yearelected] like '" & Trim(txtsearch.Text) & "%'
or [year] like '" & Trim(txtsearch.Text) & "%' or [ended] like '" &
Trim(txtsearch.Text) & "%'", dgvofficials)
End Sub
SAVE ESTABLISHMENTS
Private Sub picsave_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles picsave.Click
FillDataGrid("INSERT INTO tblestablishment([COMPANYNAME] ,
[OWNER] , [DATEISSUED] , [DATEESTABLISHED] ,[PUROK] , [STREETS] )
VALUES('" & Trim(txtcompany.Text) & "','" & Trim(txtowner.Text) & "','" &
Trim(txtis.Text) & "','" & Trim(txtestablished.Text) & "','" & cmbpurok.Text &
"','" & cmbstreets.Text & "')", frmestablishment.dgvestablish)
Me.Close()
frmestablishment.loadestablishment()
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

76

Barangay Profiling System

End Sub
ADD ESTABLISHMENTS
Private Sub picadd_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles picadd.Click
Addestablishment.txtcompany.Clear()
Addestablishment.txtowner.Clear()
Addestablishment.cmbpurok.Items.Clear()
Addestablishment.cmbstreets.Items.Clear()
Addestablishment.ShowDialog()
End Sub
EDIT ESTABLISHMENTS
Private Sub picedit_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles picedit.Click
editestablishment.txtcompany.Text =
dgvestablish.CurrentRow.Cells(1).Value.ToString
editestablishment.txtowner.Text =
dgvestablish.CurrentRow.Cells(2).Value.ToString
editestablishment.txtissued.Text =
dgvestablish.CurrentRow.Cells(3).Value.ToString
editestablishment.txtes.Text =
dgvestablish.CurrentRow.Cells(4).Value.ToString
editestablishment.cmbpurok.Text =
dgvestablish.CurrentRow.Cells(5).Value.ToString
editestablishment.cmbstreets.Text =
dgvestablish.CurrentRow.Cells(6).Value.ToString
editestablishment.ShowDialog()
End Sub
DELETE ESTABLISHMENTS
If MsgBox("Do you really want to delete this records?",
MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Delete") = MsgBoxResult.Yes
Then
FillDataGrid("DELETE FROM tblestablishment WHERE ID=" &
dgvestablish.CurrentRow.Cells(0).Value & "", dgvestablish)
loadestablishment()
End If
End Sub
UPDATE ESTABLISHMENTS
Private Sub picsave_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles picsave.Click
FillDataGrid("UPDATE tblestablishment SET [COMPANYNAME]='" &
Trim(txtcompany.Text) & "',[OWNER]='" & Trim(txtowner.Text) & "',
[DATEISSUED]='" & Trim(txtis.Text) & "',[DATEESTABLISHED]='" &
Trim(txtestablished.Text) & "',[PUROK]='" & Trim(cmbpurok.Text) & "',
[STREETS]='" & Trim(cmbstreets.Text) & "' WHERE [ID]=" &
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

77

Barangay Profiling System

frmestablishment.dgvestablish.CurrentRow.Cells(0).Value & "",

frmestablishment.dgvestablish)
Me.Close()
frmestablishment.loadestablishment()
End Sub
SEARCH ESTABLISHMENTS
Private Sub txtsearch_TextChanged(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles txtsearch.TextChanged
FillDataGrid("SELECT * FROM tblestablishment WHERE COMPANYNAME
like '" & Trim(txtsearch.Text) & "%' or OWNER like '" & Trim(txtsearch.Text) &
"%' or DATEESTABLISHED like '" & Trim(txtsearch.Text) & "%'", dgvestablish)
End Sub
SAVE PUROK
Private Sub picsave_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles picsave.Click
FillDataGrid("INSERT INTO tblzone(zun) VALUES ('" & Trim(txtpurok.Text)
& "')", frmzone.dgvstreet)
Me.Close()
frmzone.loadstreets()
resident_info.loadpurok()
End Sub
ADD PUROK
Private Sub picadd_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles picadd.Click
addzone.txtpurok.Clear()
addzone.ShowDialog()
End Sub
EDIT PUROK
Private Sub picedit_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles picedit.Click
frmeditzone.txtpurok.Text = dgvstreet.CurrentRow.Cells(1).Value
frmeditzone.ShowDialog()
End Sub
DELETE PUROK
Private Sub picdelete_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles picdelete.Click
If txtinfo.Text <> "" Then
MsgBox("This ZONE is in use!!!")

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

78

Barangay Profiling System

ElseIf MsgBox("Do you really want to delete this records?",

MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Delete") = MsgBoxResult.Yes
Then
FillDataGrid("DELETE FROM tblzone WHERE ID=" &
dgvstreet.CurrentRow.Cells(0).Value & "", dgvstreet)
loadstreets()
End If
End Sub
UPDATE PUROK
Private Sub picsave_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles picsave.Click
FillDataGrid("UPDATE tblzone SET zun='" & Trim(txtpurok.Text) & "'
WHERE [ID]=" & frmzone.dgvstreet.CurrentRow.Cells(0).Value & "",
frmzone.dgvstreet)
Me.Close()
frmzone.loadstreets()
End Sub

SEARCH PUROK
Private Sub txtserch_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles txtserch.TextChanged
FillDataGrid("SELECT * FROM tblzone WHERE zun like '" &
Trim(txtserch.Text) & "%'", dgvstreet)
End Sub
SAVE STREETS
Private Sub picsave_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles picsave.Click
FillDataGrid("insert into tblstreetss([streets] , [purok]) values ('" &
Trim(txtstreets.Text) & "','" & Trim(cmbpurok.Text) & "')",
frmstreets1.dgvstreets)
Me.Close()
frmstreets1.loadstreets()
resident_info.loadstreetss()
End Sub
ADD STREETS
Private Sub picadd_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles picadd.Click
frmaddstreets.txtstreets.Clear()
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

79

Barangay Profiling System

frmaddstreets.cmbpurok.Items.Clear()
frmaddstreets.Show()
End Sub
EDIT STREETS
Private Sub picedit_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles picedit.Click
frmeditstreets.txtstreets.Text =
dgvstreets.CurrentRow.Cells(1).Value.ToString
frmeditstreets.cmbpurok.Text =
dgvstreets.CurrentRow.Cells(2).Value.ToString
frmeditstreets.Show()
End Sub

DELETE STREETS
Private Sub picdelete_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles picdelete.Click
If MsgBox("Do you really want to delete this records?",
MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Delete") = MsgBoxResult.Yes
Then
FillDataGrid("DELETE FROM tblstreetss WHERE ID=" &
dgvstreets.CurrentRow.Cells(0).Value & "", dgvstreets)
loadstreets()
End If
End Sub

UPDATE STREETS
Private Sub picsave_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles picsave.Click
FillDataGrid("UPDATE tblstreetss set streets='" & Trim(txtstreets.Text) &
"',Purok='" & Trim(cmbpurok.Text) & "' where ID=" &
frmstreets1.dgvstreets.CurrentRow.Cells(0).Value & "",
frmstreets1.dgvstreets)
Me.Close()
frmstreets1.loadstreets()
End Sub
SEARCH STREETS
Private Sub txtserch_TextChanged(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles txtserch.TextChanged
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

80

Barangay Profiling System

FillDataGrid("SELECT * FROM tblstreetss WHERE streets like '" &

Trim(txtserch.Text) & "%' or Purok like '" & Trim(txtserch.Text) & "%'",
dgvstreets)
End Sub

PRINTING OF RESIDENTS
Imports System.Data.OleDb
Public Class frmprinting
Dim kom As New OleDbCommand
Dim da As New OleDbDataAdapter
Dim dset, dset2, dset3, dsetDel, dsetDept, dsetKors As New DataSet
Private Sub frmprinting_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
If switchPRint = 1 Then
Dim cr As New Officials
da = New OleDbDataAdapter("select * from tblofficials", ultracon)
dset = New DataSet
da.Fill(dset, "tblofficials")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
ElseIf switchPRint = 2 Then

Dim cr As New Residents

da = New OleDbDataAdapter("select * from tblinfo", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()

ElseIf switchPRint = 3 Then

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

81

Barangay Profiling System

Dim cr As New R_established

da = New OleDbDataAdapter("select * from tblestablishment",
ultracon)
dset = New DataSet
da.Fill(dset, "tblestablishment")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()

ElseIf switchPRint = 6 Then

Dim cr As New rpp

da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &
frmprintresidents.cmbpurok.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
ElseIf switchPRint = 7 Then

Dim cr As New rpp1

da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &
frmprintresidents.cmbpurok.Text & "'and [Civilstatus]='" &
frmprintresidents.cmbstat.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
ElseIf switchPRint = 8 Then

Dim cr As New year

da = New OleDbDataAdapter("select * from tblofficials where year='"
& (frmservice.cmbelected.Text) & "'", ultracon)
dset = New DataSet
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

82

Barangay Profiling System

da.Fill(dset, "tblofficials")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
ElseIf switchPRint = 9 Then

Dim cr As New rpp2

da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &
frmprintresidents.cmbpurok.Text & "' and [Gender]='" &
frmprintresidents.cmbgender.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
ElseIf switchPRint = 10 Then

Dim cr As New rpp3

da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &
frmprintresidents.cmbpurok.Text & "' and [Streets]='" &
frmprintresidents.cmbstreets.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
ElseIf switchPRint = 11 Then

Dim cr As New rpp4

da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &
frmprintresidents.cmbpurok.Text & "' and [Citizenship]='" &
frmprintresidents.cmbcitizen.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

83

Barangay Profiling System

ElseIf switchPRint = 12 Then

Dim cr As New rpp5

da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &
frmprintresidents.cmbpurok.Text & "' and [Religion]='" &
frmprintresidents.cmbreligion.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
ElseIf switchPRint = 13 Then

Dim cr As New rpp6

da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &
frmprintresidents.cmbpurok.Text & "' and [Civilstatus]='" &
frmprintresidents.cmbstat.Text & "' and [Gender]='" &
frmprintresidents.cmbgender.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
ElseIf switchPRint = 14 Then

Dim cr As New rpp7

da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &
frmprintresidents.cmbpurok.Text & "' and [Civilstatus]='" &
frmprintresidents.cmbstat.Text & "' and [Streets]='" &
frmprintresidents.cmbstreets.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
ElseIf switchPRint = 15 Then

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

84

Barangay Profiling System

Dim cr As New rpp8

da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &
frmprintresidents.cmbpurok.Text & "' and [Civilstatus]='" &
frmprintresidents.cmbstat.Text & "' and [Religion]='" &
frmprintresidents.cmbreligion.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
ElseIf switchPRint = 16 Then

Dim cr As New rpp9

da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &
frmprintresidents.cmbpurok.Text & "' and [Civilstatus]='" &
frmprintresidents.cmbstat.Text & "' and [Citizenship]='" &
frmprintresidents.cmbcitizen.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
ElseIf switchPRint = 17 Then

Dim cr As New rpp10

da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &
frmprintresidents.cmbpurok.Text & "' and [Civilstatus]='" &
frmprintresidents.cmbstat.Text & "' and [Gender]='" &
frmprintresidents.cmbgender.Text & "' and [Streets]='" &
frmprintresidents.cmbstreets.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
ElseIf switchPRint = 18 Then

Dim cr As New rpp11

Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

85

Barangay Profiling System

da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &

frmprintresidents.cmbpurok.Text & "' and [Civilstatus]='" &
frmprintresidents.cmbstat.Text & "' and [Gender]='" &
frmprintresidents.cmbgender.Text & "' and [Religion]='" &
frmprintresidents.cmbreligion.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
ElseIf switchPRint = 19 Then

Dim cr As New rpp12

da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &
frmprintresidents.cmbpurok.Text & "' and [Civilstatus]='"
&frmprintresidents.cmbstat.Text & "' and [Gender]='" &
frmprintresidents.cmbgender.Text & "' and [Citizenship]='" &
frmprintresidents.cmbcitizen.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
ElseIf switchPRint = 20 Then

Dim cr As New rpp13

da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &
frmprintresidents.cmbpurok.Text & "' and [Civilstatus]='" &
frmprintresidents.cmbstat.Text & "' and [Gender]='" &
frmprintresidents.cmbgender.Text & "' and [Streets]='" &
frmprintresidents.cmbstreets.Text & "' and [Religion]='" &
frmprintresidents.cmbreligion.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
ElseIf switchPRint = 21 Then

Dim cr As New rpp14

Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

86

Barangay Profiling System

da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &

frmprintresidents.cmbpurok.Text & "' and [Civilstatus]='" &
frmprintresidents.cmbstat.Text & "' and [Gender]='" &
frmprintresidents.cmbgender.Text & "' and [Streets]='" &
frmprintresidents.cmbstreets.Text & "' and [Citizenship]='" &
frmprintresidents.cmbcitizen.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()

ElseIf switchPRint = 22 Then

Dim cr As New rpp15

da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &
frmprintresidents.cmbpurok.Text & "' and [Gender]='" &
frmprintresidents.cmbgender.Text & "' and [Streets]='" &
frmprintresidents.cmbstreets.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
ElseIf switchPRint = 23 Then

Dim cr As New rpp16

da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &
frmprintresidents.cmbpurok.Text & "' and [Gender]='" &
frmprintresidents.cmbgender.Text & "' and [Religion]='" &
frmprintresidents.cmbreligion.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
ElseIf switchPRint = 24 Then

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

87

Barangay Profiling System

Dim cr As New rpp17

da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &
frmprintresidents.cmbpurok.Text & "' and [Gender]='" &
frmprintresidents.cmbgender.Text & "' and [Citizenship]='" &
frmprintresidents.cmbcitizen.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
ElseIf switchPRint = 25 Then

Dim cr As New rpp18

da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &
frmprintresidents.cmbpurok.Text & "' and [Streets]='" &
frmprintresidents.cmbstreets.Text & "' and [Religion]='" &
frmprintresidents.cmbreligion.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
ElseIf switchPRint = 26 Then

Dim cr As New rpp19

da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &
frmprintresidents.cmbpurok.Text & "' and [Streets]='" &
frmprintresidents.cmbstreets.Text & "' and [Citizenship]='" &
frmprintresidents.cmbcitizen.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
ElseIf switchPRint = 27 Then

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

88

Barangay Profiling System

Dim cr As New rpp20

da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &
frmprintresidents.cmbpurok.Text & "' and [Religion]='" &
frmprintresidents.cmbreligion.Text & "' and [Citizenship]='" &
frmprintresidents.cmbcitizen.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
ElseIf switchPRint = 28 Then

Dim cr As New rpp21

da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &
frmprintresidents.cmbpurok.Text & "' and [Gender]='" &
frmprintresidents.cmbgender.Text & "' and [Streets]='" &
frmprintresidents.cmbstreets.Text & "' and [Religion]='" &
frmprintresidents.cmbreligion.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
ElseIf switchPRint = 29 Then

Dim cr As New rpp22

da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &
frmprintresidents.cmbpurok.Text & "' and [Gender]='" &
frmprintresidents.cmbgender.Text & "' and [Streets]='" &
frmprintresidents.cmbstreets.Text & "' and [Citizenship]='" &
frmprintresidents.cmbcitizen.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
ElseIf switchPRint = 30 Then

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

89

Barangay Profiling System

Dim cr As New rpp23

da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &
frmprintresidents.cmbpurok.Text & "' and [Gender]='" &
frmprintresidents.cmbgender.Text & "' and [Streets]='" &
frmprintresidents.cmbstreets.Text & "' and [Religion]='" &
frmprintresidents.cmbreligion.Text & "' and [Citizenship]='" &
frmprintresidents.cmbcitizen.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()

ElseIf switchPRint = 31 Then

Dim cr As New rpp24

da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &
frmprintresidents.cmbpurok.Text & "' and [Civilstatus]='" &
frmprintresidents.cmbstat.Text & "' and [Streets]='" &
frmprintresidents.cmbstreets.Text & "' and [Religion]='" &
frmprintresidents.cmbreligion.Text & "' and [Citizenship]='" &
frmprintresidents.cmbcitizen.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
ElseIf switchPRint = 32 Then

Dim cr As New rpp25

da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &
frmprintresidents.cmbpurok.Text & "' and [Civilstatus]='" &
frmprintresidents.cmbstat.Text & "' and [Gender]='" &
frmprintresidents.cmbgender.Text & "' and [Religion]='" &
frmprintresidents.cmbreligion.Text & "' and [Citizenship]='" &
frmprintresidents.cmbcitizen.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

90

Barangay Profiling System

ElseIf switchPRint = 33 Then

Dim cr As New rpp26

da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &
frmprintresidents.cmbpurok.Text & "' and [Gender]='" &
frmprintresidents.cmbgender.Text & "' and [Religion]='" &
frmprintresidents.cmbreligion.Text & "' and [Citizenship]='" &
frmprintresidents.cmbcitizen.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
ElseIf switchPRint = 34 Then

Dim cr As New rpp27

da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &
frmprintresidents.cmbpurok.Text & "' and [Civilstatus]='" &
frmprintresidents.cmbstat.Text & "' and [Religion]='" &
frmprintresidents.cmbreligion.Text & "' and [Citizenship]='" &
frmprintresidents.cmbcitizen.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
ElseIf switchPRint = 35 Then

Dim cr As New rpp28

da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &
frmprintresidents.cmbpurok.Text & "' and [Civilstatus]='" &
frmprintresidents.cmbstat.Text & "' and [Streets]='" &
frmprintresidents.cmbstreets.Text & "' and [Citizenship]='" &
frmprintresidents.cmbcitizen.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

91

Barangay Profiling System

ElseIf switchPRint = 36 Then

Dim cr As New rpp29

da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &
frmprintresidents.cmbpurok.Text & "' and [Civilstatus]='" &
frmprintresidents.cmbstat.Text & "' and [Streets]='" &
frmprintresidents.cmbstreets.Text & "' and [Religion]='" &
frmprintresidents.cmbreligion.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()

ElseIf switchPRint = 37 Then

Dim cr As New rppofficials
da = New OleDbDataAdapter("select * from tblofficials where
[Position]='" & frmprintingofficials.cmbposition.Text & "' and [year]='" &
frmprintingofficials.cmbelected.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblofficials")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()

ElseIf switchPRint = 38 Then

Dim cr As New rpp30
da = New OleDbDataAdapter("select * from tbltotal ", ultracon)
dset = New DataSet
da.Fill(dset, "tbltotal")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()

ElseIf switchPRint = 39 Then

Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

92

Barangay Profiling System

Dim cr As New R_established

da = New OleDbDataAdapter("select * from tblestablishment where
[PUROK]='" & printestblishment.cmbpurok.Text & "' and [STREETS]='" &
printestblishment.cmbstreets.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblestablishment")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()

ElseIf switchPRint = 40 Then

Dim cr As New rpp31

da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &
frmprintresidents.cmbpurok.Text & "' and [Streets]='" &
frmprintresidents.cmbstreets.Text & "' and [Religion]='" &
frmprintresidents.cmbreligion.Text & "' and [Citizenship]='" &
frmprintresidents.cmbcitizen.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
ElseIf switchPRint = 41 Then
Dim cr As New rpp32
da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &
frmprintresidents.cmbpurok.Text & "' and [Civilstatus]='" &
frmprintresidents.cmbstat.Text & "' and [Gender]='" &
frmprintresidents.cmbgender.Text & "' and [Streets]='" &
frmprintresidents.cmbstreets.Text & "' and [Religion]='" &
frmprintresidents.cmbreligion.Text & "' and [Citizenship]='" &
frmprintresidents.cmbcitizen.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

93

Barangay Profiling System

ElseIf switchPRint = 42 Then

Dim cr As New rpp33
da = New OleDbDataAdapter("select * from tbltotal ", ultracon)
dset = New DataSet
da.Fill(dset, "tbltotal")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
ElseIf switchPRint = 43 Then
Dim cr As New rppdeceased
da = New OleDbDataAdapter("select * from tblarchive ", ultracon)
dset = New DataSet
da.Fill(dset, "tblarchive")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
ElseIf switchPRint = 44 Then
Dim cr As New rpp34
da = New OleDbDataAdapter("select * from tblinfo where [Zone]='" &
PrintEducational_Attainment.cmbpurok.Text & "' and [Attainment]='" &
PrintEducational_Attainment.cmbattainment.Text & "'", ultracon)
dset = New DataSet
da.Fill(dset, "tblinfo")
cr.SetDatabaseLogon("", "123")
cr.SetDataSource(dset)
CrystalReportViewer1.ReportSource = cr
CrystalReportViewer1.Refresh()
Refresh()
End If
End Sub
Sub delete()
FillDataGrid("delete from tbltotal", frmstatistic.dgvtotal)
End Sub

SEARCH PRINTING
Private Sub picprint_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles picprint.Click
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

94

Barangay Profiling System

If cmbpurok.Text <> "" And cmbstat.Text = "" And cmbgender.Text = ""

And cmbstreets.Text = "" And cmbcitizen.Text = "" And cmbreligion.Text = ""
Then
switchPRint = 6
frmprinting.ShowDialog()
ElseIf cmbpurok.Text <> "" And cmbstat.Text <> "" And cmbgender.Text
= "" And cmbstreets.Text = "" And cmbcitizen.Text = "" And cmbreligion.Text
= "" Then
switchPRint = 7
frmprinting.ShowDialog()
ElseIf cmbpurok.Text <> "" And cmbstat.Text = "" And cmbgender.Text
<> "" And cmbstreets.Text = "" And cmbcitizen.Text = "" And
cmbreligion.Text = "" Then
switchPRint = 9
frmprinting.ShowDialog()
ElseIf cmbpurok.Text <> "" And cmbstat.Text = "" And cmbgender.Text =
"" And cmbstreets.Text <> "" And cmbcitizen.Text = "" And cmbreligion.Text
= "" Then
switchPRint = 10
frmprinting.ShowDialog()
ElseIf cmbpurok.Text <> "" And cmbstat.Text = "" And cmbgender.Text =
"" And cmbstreets.Text = "" And cmbcitizen.Text <> "" And cmbreligion.Text
= "" Then
switchPRint = 11
frmprinting.ShowDialog()
ElseIf cmbpurok.Text <> "" And cmbstat.Text = "" And cmbgender.Text =
"" And cmbstreets.Text = "" And cmbcitizen.Text = "" And cmbreligion.Text
<> "" Then
switchPRint = 12
frmprinting.ShowDialog()
ElseIf cmbpurok.Text <> "" And cmbstat.Text <> "" And cmbgender.Text
<> "" And cmbstreets.Text = "" And cmbcitizen.Text = "" And
cmbreligion.Text = "" Then
switchPRint = 13
frmprinting.ShowDialog()
ElseIf cmbpurok.Text <> "" And cmbstat.Text <> "" And cmbgender.Text
= "" And cmbstreets.Text <> "" And cmbcitizen.Text = "" And
cmbreligion.Text = "" Then
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

95

Barangay Profiling System

switchPRint = 14
frmprinting.ShowDialog()
ElseIf cmbpurok.Text <> "" And cmbstat.Text <> "" And cmbgender.Text
= "" And cmbstreets.Text = "" And cmbcitizen.Text = "" And cmbreligion.Text
<> "" Then
switchPRint = 15
frmprinting.ShowDialog()
ElseIf cmbpurok.Text <> "" And cmbstat.Text <> "" And cmbgender.Text
= "" And cmbstreets.Text = "" And cmbcitizen.Text <> "" And
cmbreligion.Text = "" Then
switchPRint = 16
frmprinting.ShowDialog()
ElseIf cmbpurok.Text <> "" And cmbstat.Text <> "" And cmbgender.Text
<> "" And cmbstreets.Text <> "" And cmbcitizen.Text = "" And
cmbreligion.Text = "" Then
switchPRint = 17
frmprinting.ShowDialog()
ElseIf cmbpurok.Text <> "" And cmbstat.Text <> "" And cmbgender.Text
<> "" And cmbstreets.Text = "" And cmbcitizen.Text = "" And
cmbreligion.Text <> "" Then
switchPRint = 18
frmprinting.ShowDialog()
ElseIf cmbpurok.Text <> "" And cmbstat.Text <> "" And cmbgender.Text
<> "" And cmbstreets.Text = "" And cmbcitizen.Text <> "" And
cmbreligion.Text = "" Then
switchPRint = 19
frmprinting.ShowDialog()
ElseIf cmbpurok.Text <> "" And cmbstat.Text <> "" And cmbgender.Text
<> "" And cmbstreets.Text <> "" And cmbcitizen.Text = "" And
cmbreligion.Text <> "" Then
switchPRint = 20
frmprinting.ShowDialog()

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

96

Barangay Profiling System

ElseIf cmbpurok.Text <> "" And cmbstat.Text <> "" And cmbgender.Text
<> "" And cmbstreets.Text <> "" And cmbcitizen.Text <> "" And
cmbreligion.Text = "" Then
switchPRint = 21
frmprinting.ShowDialog()
ElseIf cmbpurok.Text <> "" And cmbstat.Text = "" And cmbgender.Text
<> "" And cmbstreets.Text <> "" And cmbcitizen.Text = "" And
cmbreligion.Text = "" Then
switchPRint = 22
frmprinting.ShowDialog()
ElseIf cmbpurok.Text <> "" And cmbstat.Text = "" And cmbgender.Text
<> "" And cmbstreets.Text = "" And cmbcitizen.Text = "" And
cmbreligion.Text <> "" Then
switchPRint = 23
frmprinting.ShowDialog()
ElseIf cmbpurok.Text <> "" And cmbstat.Text = "" And cmbgender.Text
<> "" And cmbstreets.Text = "" And cmbcitizen.Text <> "" And
cmbreligion.Text = "" Then
switchPRint = 24
frmprinting.ShowDialog()
ElseIf cmbpurok.Text <> "" And cmbstat.Text = "" And cmbgender.Text =
"" And cmbstreets.Text <> "" And cmbcitizen.Text = "" And cmbreligion.Text
<> "" Then
switchPRint = 25
frmprinting.ShowDialog()
ElseIf cmbpurok.Text <> "" And cmbstat.Text = "" And cmbgender.Text =
"" And cmbstreets.Text <> "" And cmbcitizen.Text <> "" And cmbreligion.Text
= "" Then
switchPRint = 26
frmprinting.ShowDialog()
ElseIf cmbpurok.Text <> "" And cmbstat.Text = "" And cmbgender.Text =
"" And cmbstreets.Text = "" And cmbcitizen.Text <> "" And cmbreligion.Text
<> "" Then
switchPRint = 27
frmprinting.ShowDialog()

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

97

Barangay Profiling System

ElseIf cmbpurok.Text <> "" And cmbstat.Text = "" And cmbgender.Text

<> "" And cmbstreets.Text <> "" And cmbcitizen.Text = "" And
cmbreligion.Text <> "" Then
switchPRint = 28
frmprinting.ShowDialog()
ElseIf cmbpurok.Text <> "" And cmbstat.Text = "" And cmbgender.Text
<> "" And cmbstreets.Text <> "" And cmbcitizen.Text <> "" And
cmbreligion.Text = "" Then
switchPRint = 29
frmprinting.ShowDialog()
ElseIf cmbpurok.Text <> "" And cmbstat.Text = "" And cmbgender.Text
<> "" And cmbstreets.Text <> "" And cmbcitizen.Text <> "" And
cmbreligion.Text <> "" Then
switchPRint = 30
frmprinting.ShowDialog()
ElseIf cmbpurok.Text <> "" And cmbstat.Text <> "" And cmbgender.Text
= "" And cmbstreets.Text <> "" And cmbcitizen.Text <> "" And
cmbreligion.Text <> "" Then
switchPRint = 31
frmprinting.ShowDialog()
ElseIf cmbpurok.Text <> "" And cmbstat.Text <> "" And cmbgender.Text
<> "" And cmbstreets.Text = "" And cmbcitizen.Text <> "" And
cmbreligion.Text <> "" Then
switchPRint = 32
frmprinting.ShowDialog()
ElseIf cmbpurok.Text <> "" And cmbstat.Text = "" And cmbgender.Text
<> "" And cmbstreets.Text = "" And cmbcitizen.Text <> "" And
cmbreligion.Text <> "" Then
switchPRint = 33
frmprinting.ShowDialog()

ElseIf cmbpurok.Text <> "" And cmbstat.Text <> "" And cmbgender.Text
= "" And cmbstreets.Text = "" And cmbcitizen.Text <> "" And
cmbreligion.Text <> "" Then
switchPRint = 34
frmprinting.ShowDialog()
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES

98

Barangay Profiling System

ElseIf cmbpurok.Text <> "" And cmbstat.Text <> "" And cmbgender.Text
= "" And cmbstreets.Text <> "" And cmbcitizen.Text <> "" And
cmbreligion.Text = "" Then
switchPRint = 35
frmprinting.ShowDialog()
ElseIf cmbpurok.Text <> "" And cmbstat.Text <> "" And cmbgender.Text
= "" And cmbstreets.Text <> "" And cmbcitizen.Text = "" And
cmbreligion.Text <> "" Then
switchPRint = 36
frmprinting.ShowDialog()
ElseIf cmbpurok.Text <> "" And cmbstat.Text = "" And cmbgender.Text =
"" And cmbstreets.Text <> "" And cmbcitizen.Text <> "" And cmbreligion.Text
<> "" Then
switchPRint = 40
frmprinting.ShowDialog()
ElseIf cmbpurok.Text <> "" And cmbstat.Text <> "" And cmbgender.Text
<> "" And cmbstreets.Text <> "" And cmbcitizen.Text <> "" And
cmbreligion.Text <> "" Then
switchPRint = 41
frmprinting.ShowDialog()
ElseIf cmbpurok.Text = "" And cmbstat.Text = "" And cmbgender.Text =
"" And cmbstreets.Text = "" And cmbcitizen.Text = "" And cmbreligion.Text =
"" Then
MsgBox("Please Select to Print")

End If
End Sub

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

99

Barangay Profiling System

Curriculum Vitae
Name:

Junel C. Quindatan

Address:

Nannarian, Peablanca, Cagayan

Gender:

Male

Birthday:

October 28, 1994

Nationality:

Filipino

Religion:

Roman Catholic

Fathers Name:

Pedro L. Quindatan Jr.

Mothers Name:

Elsie C. Quindatan

Educational Attaiment
Primary:

Nannarian Elementary School

Address:

NannarianPeablanca, Cagayan

Year Graduate:

2006-2007

Secondary:

Don SeverinoPagalilauan National High School

Address:

Callao Peablanca, Cagayan

Year Graduate:

2010-2011

Tertiary:

Cagayan State University- Carig Campus

Address:

Carig Sur, Tuguegarao City

Year Graduate:

2014-2015

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

100

Barangay Profiling System

Name:

John Michael Marcos

Address:

Hacienda Baggao, Cagayan

Gender:

Male

Birthday:

April 10, 1995

Nationality:

Filipino

Religion:

Roman Catholic

Fathers Name:

Filiciano S. Marcos

Mothers Name:

Elsie B. Marcos

Educational Attaiment
Primary:

Hacienda Elementary School

Address:

Hacienda-IntalBaggao, Cagayan

Year Graduate:

2006-2007

Secondary:

Hacienda-Intal National High School

Address:

Hacienda Baggao, Cagayan

Year Graduate:

2010-2011

Tertiary:

Cagayan State University- Carig Campus

Address:

Carig Sur, Tuguegarao City

Year Graduate:

2014-2015

Name:

Jeremy S. Liquigan

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

101

Barangay Profiling System

Address:

Capatan Tuguegarao City, Cagayan

Gender:

Male

Birthday:

May 3, 1995

Nationality:

Filipino

Religion:

Roman Catholic

Fathers Name:

InocencioLiquigan

Mothers Name:

Josephine Liquigan

Educational Attaiment
Primary:

Capatan Elementary School

Address:

CapatanTuguegarao City, Cagayan

Year Graduate:

2006-2007

Secondary:

Cagayan National High School

Address:

CaritanTuguegarao City, Cagayan

Year Graduate:

2010-2011

Tertiary:

Cagayan State University- Carig Campus

Address:

Carig Sur, Tuguegarao City

Year Graduate:

2014-2015

Cagayan State University- COLLEGE of INFORMATION and

COMPUTINGSCIENCES

102