Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                

BRGY Profiling System

Download as pdf or txt
Download as pdf or txt
You are on page 1of 102

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 1
COMPUTINGSCIENCES
Barangay Profiling System

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


Profiling System of Barangay of Barangay NannarianPeñablanca 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 NannarianPeñablanca
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 barangayNannarianPeñaBlanca 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 NannarianPeñablanca Cagayan, particularly in managing the

Cagayan State University- COLLEGE of INFORMATION and 2


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 server’s 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 3


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 4


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 5


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 man’s 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 6


COMPUTINGSCIENCES
Barangay Profiling System

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

records. Examples are the entire student’s courses card for Anthropology 101

or the transcript of all courses in the register’s 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 do’s 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 7
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 8


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 9


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 data’s, 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 10


COMPUTINGSCIENCES
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, Peñablanca,

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 11


COMPUTINGSCIENCES
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 12


COMPUTINGSCIENCES
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 13
COMPUTINGSCIENCES Profiling Baranga
Resident
System 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 Request Verify


Ver
resident
info
Business Detail

Owner’s info
Register
Business
14
Cagayan State University- COLLEGE of INFORMATION and
COMPUTINGSCIENCES
Barangay Profiling System

D1 List of Detail
Verify Residents
Owner’s Check Process
info
Generate
Process
Report
Issue
Business
Permit
Report

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 there’s 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 15


COMPUTINGSCIENCES
Barangay Profiling System

4.3 ENTITY RELATIONSHIP DIAGRAM

Citizenship business occupation

zone residents

religion
streets
Cagayan State University- COLLEGE of INFORMATION and 16
COMPUTINGSCIENCES
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 password

Cagayan State University- COLLEGE of INFORMATION and 17


COMPUTINGSCIENCES
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

CITIZENSHIP FIRSTNAME

CONTACTNO INFORMATION MIDDLENAME

BIRTHDATE
CIVIL STATUS

GENDER RELIGION
Cagayan State University- COLLEGE of INFORMATION and 18
COMPUTINGSCIENCES

CIVIL GENDER RELIGION


Barangay Profiling System

B.Data Entry

C. Data Description

The resident’s 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 19


COMPUTINGSCIENCES
Barangay Profiling System

FULLNAME POSITION AGE

YEAR OF SERVICE 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 20


COMPUTINGSCIENCES
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 information’s


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 21


COMPUTINGSCIENCES
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 22


COMPUTINGSCIENCES
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 religion
Cagayan State University- COLLEGE of INFORMATION and 23
COMPUTINGSCIENCES

religion
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 24


COMPUTINGSCIENCES
Barangay Profiling System

ID streets

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 25


COMPUTINGSCIENCES
Barangay Profiling System

I. DATABASE DESIGN

User View 8: Occupation

A. Data Environment

ID occupation

occupation
residents

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 26


COMPUTINGSCIENCES
Barangay Profiling System

J. TABLE DESIGN

TABLE/ FIELSD/ DATA TYPE FIELD REMARKS


ENTITY ATTRBUTES SIZE

tblLog-in ID Auto Number 50 Primary key


Full name Text 50
Access mode Text 30
Position Text 50
Username Text 30
Password Text 30

Tblinfo ID Auto Number 50 Primary key


Restno Text 30
Lastname Text 50
Firstname Text 50
Middlename Text 50
Birthdate Text 30
Religion Text 50
Gender Text 5
Civilstatus Text 30
Contactno Text 20
Citizenship Text 50
Birthplace Text 50
Zone Text 30
Occupation Text 50
Business Text 50
Household Text 30
Age Text 3
Streets Text 50
Remarks Text 50

Cagayan State University- COLLEGE of INFORMATION and 27


COMPUTINGSCIENCES
Barangay Profiling System

Tblofficials ID Auto Number 50 Primary key


Fullname Text 50
Position Text 50
BirthDate Text 30
Age Text 3
Gender Text 5
Yearelected Text 30
Yearofservice Text 30
Remarks Text 50

tblestablishment ID Auto Number 50 Primary key


COMPANYNAME Text 50
OWNER Text 50
DATEISSUED Text 30
DATEESTABLISHED Text 30
PUROK Text 20
STREETS Text 50
Text 50
Text 50
Tblarchive ID Auto Number 50 Primary key
Restno Text 30
Lastname Text 50
Firstname Text 50
Middlename Text 50
Birthdate Text 30
Religion Text 50
Gender Text 5
Civilstatus Text 30
Contactno Text 20
Citizenship Text 50
Birthplace Text 50
Zone Text 50
Occupation Text 50
Business Text 50
Household Text 30
Age Text 3
Street Text 50

Tblbusiness ID Auto Number 50 Primary key


Business Text 50

tblcitizenship ID Auto Number 50 Primary key


Citizenship Text 50

Cagayan State University- COLLEGE of INFORMATION and 28


COMPUTINGSCIENCES
Barangay Profiling System

tbloccupation ID Auto Number 50 Primary key


Occupation Text 50

Tblposition ID Auto Number 50 Primary key


Position Text 50

Tblreligion ID Auto Number 50 Primary key


Religion Text 50

Tblremarks ID Auto Number 50 Primary key


Remarks Text 50
Tblsecure ID Auto Number 50 Primary key
Password Text 50

Tblstatus ID Auto Number 50 Primary key


Status Text 50

Tblstreets ID Auto Number 50 Primary key


Streets Text 50
Purok Text 30

Tblzone ID Auto Number 50 Primary key


Zun Text 30

Tbltotal ID Auto Number 50 Primary key


Purok Text 30
Title Text 50
Male Text 50
Female Text 50
Total Number 30

K. DEFINING ATTRIBUTES AND DESIGN

TABLE/ENTITY FIELSD/ATTRBUTES DOMAIN


tblLog-in ID 0-9
Full name A-Z, a-z
Access mode 0-9
Position A-Z, a-z
Username A-Z, a-z
Password 0-9
tblinfo ID 0-9
Restno 0-9
Lastname A-Z, a-z
Firstname A-Z, a-z
Middlename A-Z, a-z

Cagayan State University- COLLEGE of INFORMATION and 29


COMPUTINGSCIENCES
Barangay Profiling System

Birthdate 0-9
Religion A-Z, a-z
Gender A-Z, a-z
Civilstatus A-Z, a-z
Contactno 0-20
Citizenship A-Z, a-z
Birthplace A-Z, a-z
Zone 0-9
Occupation A-Z, a-z
Business A-Z, a-z
Household 0-9
Age 3
Streets A-Z, a-z, 0-9
Remarks A-Z, a-z
tblofficials ID 0-9
Fullname A-Z, a-z
Position A-Z, a-z
BirthDate 0-9
Age 3
Gender A-Z, a-z
Yearelected 0-9
Yearofservice 0-9
Remarks A-Z, a-z

tblestablishment ID 0-9
COMPANYNAME A-Z, a-z
OWNER A-Z, a-z
DATEISSUED 0-9, /
DATEESTABLISHED 0-9, /
PUROK 0-9
STREETS A-Z, a-z, 0-9
Tblarchive ID 0-9
Restno 0-9
Lastname A-Z, a-z
Firstname A-Z, a-z
Middlename A-Z, a-z
Birthdate 0-9
Religion A-Z, a-z
Gender A-Z, a-z
Civilstatus A-Z, a-z
Citizenship A-Z, a-z
Civilstatus A-Z, a-z
Contactno 0-20
Citizenship A-Z, a-z
Birthplace A-Z, a-z
Zone 0-9
Cagayan State University- COLLEGE of INFORMATION and 30
COMPUTINGSCIENCES
Barangay Profiling System

Occupation A-Z, a-z


Business A-Z, a-z
Household 0-9
Age 3
Street A-Z, a-z
tblbusiness ID 0-9
Business A-Z, a-z
tblcitizenship ID 0-9
Citizenship A-Z, a-z
tbloccupation ID 0-9
Occupation A-Z, a-z
Tblposition ID 0-9
Position A-Z, a-z
Tblreligion ID 0-9
Religion A-Z, a-z
tblremarks ID 0-9
Remarks A-Z, a-z
Tblsecure ID 0-9
Password 0-9
Tblstatus ID 0-9
Status A-Z, a-z
Tblstreets ID 0-9
Streets A-Z, a-z, 0-9
Purok 0-9
Tblzone ID 0-9
Zun 0-9
Tbltotal ID 0-9
Purok 0-9
ADD- allows the
Title A-Z, a-z
user
Maleadd new
to A-Z, a-z
entry.
Female A-Z, a-z
EDIT- let the user
Total 0-9
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 OUTPUT
user to update or
store information
entered.
PASSWORD CANCEL- use to
Username terminate process. Information of
Password CLOSE- allows the Residents and
RESIDENTS user to exit from the Officials.
Residents No. transaction.
Last Name SEARCH- allows the
First Name user to find look or
Middle Name
view the information.
Birthdate
Religion
Cagayan State University- COLLEGE of INFORMATION and 31
COMPUTINGSCIENCES
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 32


COMPUTINGSCIENCES
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 TRANSACTI REPORT SYSTEM


ON

LIBRARY RESIDENTS LIST OF


HELP
FILE RESIDENTS

OFFICIALS ABOUT

SECURITY
SETTING

Cagayan State University- COLLEGE of INFORMATION and 33


COMPUTINGSCIENCES

ESTABLISHMENTS
Barangay Profiling System

BRGY. OFFICIALS
LIST

EXIT

Cagayan State University- COLLEGE of INFORMATION and 34


COMPUTINGSCIENCES
Barangay Profiling System

4.6 PHYSICAL DESIGN

Cagayan State University- COLLEGE of INFORMATION and 35


COMPUTINGSCIENCES
Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and 36


COMPUTINGSCIENCES
Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and 37


COMPUTINGSCIENCES
Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and 38


COMPUTINGSCIENCES
Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and 39


COMPUTINGSCIENCES
Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and 40


COMPUTINGSCIENCES
Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and 41


COMPUTINGSCIENCES
Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and 42


COMPUTINGSCIENCES
Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and 43


COMPUTINGSCIENCES
Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and 44


COMPUTINGSCIENCES
Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and 45


COMPUTINGSCIENCES
Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and 46


COMPUTINGSCIENCES
Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and 47


COMPUTINGSCIENCES
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,

Peñablanca, 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 48


COMPUTINGSCIENCES
Barangay Profiling System

Peñablanca 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 49


COMPUTINGSCIENCES
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 50


COMPUTINGSCIENCES
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 60’s 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 70’s 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 Peñablanca.

Mission

Cagayan State University- COLLEGE of INFORMATION and 51


COMPUTINGSCIENCES
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 52


COMPUTINGSCIENCES
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 53


COMPUTINGSCIENCES
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 54


COMPUTINGSCIENCES
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 55


COMPUTINGSCIENCES
Barangay Profiling System

APPENDIX C: REPORT PRINTOUT

Cagayan State University- COLLEGE of INFORMATION and 56


COMPUTINGSCIENCES
Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and 57


COMPUTINGSCIENCES
Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and 58


COMPUTINGSCIENCES
Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and 59


COMPUTINGSCIENCES
Barangay Profiling System

APPENDIX D: ACCEPTANCE LETTER

December 3, 2013

MRS.ANGELITA MACARILAY

Barangay Captain

Barangay Nannarian, Peñablanca Cagayan

Ma’am:

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 60


COMPUTINGSCIENCES
Barangay Profiling System

GEORGE BICERA EDISON D. BRAVO,


MSME, MIT

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 61


COMPUTINGSCIENCES
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 62


COMPUTINGSCIENCES
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 63


COMPUTINGSCIENCES
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 64


COMPUTINGSCIENCES
Barangay Profiling System

APPENDIX E:COMPLETION FORM

Cagayan State University- COLLEGE of INFORMATION and 65


COMPUTINGSCIENCES
Barangay Profiling System

Cagayan State University- COLLEGE of INFORMATION and 66


COMPUTINGSCIENCES
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
PEÑABLANCA"
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 67


COMPUTINGSCIENCES
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 68


COMPUTINGSCIENCES
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 69


COMPUTINGSCIENCES
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 70


COMPUTINGSCIENCES
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 71


COMPUTINGSCIENCES
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 72


COMPUTINGSCIENCES
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 73


COMPUTINGSCIENCES
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 74


COMPUTINGSCIENCES
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 75


COMPUTINGSCIENCES
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 76


COMPUTINGSCIENCES
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 77


COMPUTINGSCIENCES
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 78


COMPUTINGSCIENCES
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 79


COMPUTINGSCIENCES
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 80
COMPUTINGSCIENCES
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 81


COMPUTINGSCIENCES
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 82


COMPUTINGSCIENCES
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 83


COMPUTINGSCIENCES
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 84


COMPUTINGSCIENCES
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 85


COMPUTINGSCIENCES
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 86


COMPUTINGSCIENCES
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 87


COMPUTINGSCIENCES
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 88


COMPUTINGSCIENCES
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 89


COMPUTINGSCIENCES
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 90


COMPUTINGSCIENCES
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 91


COMPUTINGSCIENCES
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 92


COMPUTINGSCIENCES
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 93


COMPUTINGSCIENCES
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 94
COMPUTINGSCIENCES
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 95


COMPUTINGSCIENCES
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 96


COMPUTINGSCIENCES
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 97


COMPUTINGSCIENCES
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 98


COMPUTINGSCIENCES
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 99


COMPUTINGSCIENCES
Barangay Profiling System

Curriculum Vitae

Name: Junel C. Quindatan

Address: Nannarian, Peñablanca, Cagayan

Gender: Male

Birthday: October 28, 1994

Nationality: Filipino

Religion: Roman Catholic

Father’s Name: Pedro L. Quindatan Jr.

Mother’s Name: Elsie C. Quindatan

Educational Attaiment

Primary: Nannarian Elementary School

Address: NannarianPeňablanca, Cagayan

Year Graduate: 2006-2007

Secondary: Don SeverinoPagalilauan National High School

Address: Callao Peňablanca, 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 100


COMPUTINGSCIENCES
Barangay Profiling System

Name: John Michael Marcos

Address: Hacienda Baggao, Cagayan

Gender: Male

Birthday: April 10, 1995

Nationality: Filipino

Religion: Roman Catholic

Father’s Name: Filiciano S. Marcos

Mother’s 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 101


COMPUTINGSCIENCES
Barangay Profiling System

Address: Capatan Tuguegarao City, Cagayan

Gender: Male

Birthday: May 3, 1995

Nationality: Filipino

Religion: Roman Catholic

Father’s Name: InocencioLiquigan

Mother’s 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 102


COMPUTINGSCIENCES

You might also like