database

form1




Public Class Form1
    Private Sub enabledcontrol()
        Me.LastnameTextBox.Enabled = True
        Me.FirstnameTextBox.Enabled = True
        Me.MiTextBox.Enabled = True
        Me.SchoolyearTextBox.Enabled = True
        Me.CourseTextBox.Enabled = True
        Me.YearlevelTextBox.Enabled = True
        Me.SectionTextBox.Enabled = True
        Me.GenderTextBox.Enabled = True
        Me.CivilstatusTextBox.Enabled = True
        Me.NationalityTextBox.Enabled = True
        Me.BirthplaceTextBox.Enabled = True
        Me.BirthdateTextBox.Enabled = True
        Me.AgeTextBox.Enabled = True
        Me.GuardianTextBox.Enabled = True
        Me.AddressTextBox.Enabled = True
        Me.ContactnoTextBox.Enabled = True
        Me.EmailaddTextBox.Enabled = True
        Me.SchoolyearTextBox.Enabled = True
        Me.SemesterTextBox.Enabled = True

    End Sub
    Private Sub disabledcontrol()
        Me.LastnameTextBox.Enabled = False
        Me.FirstnameTextBox.Enabled = False
        Me.MiTextBox.Enabled = False
        Me.SchoolyearTextBox.Enabled = False
        Me.CourseTextBox.Enabled = False
        Me.YearlevelTextBox.Enabled = False
        Me.SectionTextBox.Enabled = False
        Me.GenderTextBox.Enabled = False
        Me.CivilstatusTextBox.Enabled = False
        Me.NationalityTextBox.Enabled = False
        Me.BirthplaceTextBox.Enabled = False
        Me.BirthdateTextBox.Enabled = False
        Me.AgeTextBox.Enabled = False
        Me.GuardianTextBox.Enabled = False
        Me.AddressTextBox.Enabled = False
        Me.ContactnoTextBox.Enabled = False
        Me.EmailaddTextBox.Enabled = False
        Me.SchoolyearTextBox.Enabled = False
        Me.SemesterTextBox.Enabled = False

    End Sub
    Private Sub InfoBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InfoBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.InfoBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Student_profileDataSet)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Student_profileDataSet.info' table. You can move, or remove it, as needed.
        Me.InfoTableAdapter.Fill(Me.Student_profileDataSet.info)
        Me.disabledcontrol()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.InfoBindingSource.MoveNext()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.InfoBindingSource.MovePrevious()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If MsgBox("Add new record, are you sure?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Add") = MsgBoxResult.Yes Then
            Me.Student_profileDataSet.info.Clear()
            Me.InfoBindingSource.AddNew()
            Me.enabledcontrol()
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.enabledcontrol()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If MsgBox("Save current record, are you sure?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Save") = MsgBoxResult.Yes Then
            Me.InfoBindingSource.EndEdit()
            Me.InfoTableAdapter.Update(Me.Student_profileDataSet.info)
            Me.InfoTableAdapter.Fill(Me.Student_profileDataSet.info)
            Me.disabledcontrol()
        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If MsgBox("Cancel current record, are you sure?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Cancel") = MsgBoxResult.Yes Then
            Me.InfoBindingSource.RemoveCurrent()

            Me.InfoTableAdapter.Update(Me.Student_profileDataSet.info)
            Me.InfoTableAdapter.Fill(Me.Student_profileDataSet.info)
            Me.disabledcontrol()
        End If
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If MsgBox("Delete current record, are you sure?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Delete") = MsgBoxResult.Yes Then
            Me.InfoBindingSource.CancelEdit()
            Me.Student_profileDataSet.info.Clear()
            Me.disabledcontrol()
        End If
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Close()

    End Sub

    Private Sub AddressTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddressTextBox.TextChanged

    End Sub
End Class
form2

Public Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim orow As DataRow
        For Each orow In Me.Student_profileDataSet1.UserInfo
            If (orow.Item("Username") = Me.TextBox2.Text) And (orow.Item("Password") = Me.TextBox1.Text) Then
                MsgBox("Access Granted")
                Form3.form_access = True
            End If
        Next
        If Form3.form_access = True Then
            Me.Close()
        Else
            MsgBox("access denied!incorrect username/password")

        End If


     
    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Student_profileDataSet1.UserInfo' table. You can move, or remove it, as needed.
        Me.UserInfoTableAdapter.Fill(Me.Student_profileDataSet1.UserInfo)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Close()

    End Sub
End Class

form3


Public Class Form3
    Public form_access As Boolean
    Public Class form3

    End Class
    Private Sub CSL2AToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CSL2AToolStripMenuItem.Click
        Form1.ShowDialog()
    End Sub

    Private Sub FileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FileToolStripMenuItem.Click

    End Sub

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Form2.ShowDialog()

    End Sub

 
    Private Sub UserAccuntSittingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UserAccuntSittingToolStripMenuItem.Click
        Form4.ShowDialog()

    End Sub

    Private Sub RestorFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RestorFileToolStripMenuItem.Click
        Form7.ShowDialog()
    End Sub

    Private Sub BackUpFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackUpFileToolStripMenuItem.Click
        Form6.ShowDialog()
    End Sub

    Private Sub StudentFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StudentFileToolStripMenuItem.Click

    End Sub
End Class
form4

Public Class Form4

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Me.TextBox1.Text = "ruben" Then
            MsgBox("access granted")
            Me.Close()
            Form5.ShowDialog()
        Else
            MsgBox("access denied incorrect username/password")
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Close()

    End Sub

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

form5

Public Class Form5

    Private Sub enabledcontrol()
        Me.TextBox1.Enabled = True
        Me.TextBox2.Enabled = True

    End Sub
    Private Sub disabledcontrol()
        Me.TextBox1.Enabled = False
        Me.TextBox2.Enabled = False

    End Sub
    Private Sub UserInfoBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UserInfoBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.UserInfoBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Student_profileDataSet2)

    End Sub

    Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Student_profileDataSet2.UserInfo' table. You can move, or remove it, as needed.
        Me.UserInfoTableAdapter.Fill(Me.Student_profileDataSet2.UserInfo)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNEXT2.Click
        Me.UserInfoBindingSource.MovePrevious()

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPREVIOUS2.Click
        Me.UserInfoBindingSource.MoveFirst()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSAVE2.Click
        If MsgBox("Save current record, are you sure?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Save") = MsgBoxResult.Yes Then
            Me.UserInfoBindingSource.EndEdit()
            Me.UserInfoTableAdapter.Update(Me.Student_profileDataSet2.UserInfo)
            Me.UserInfoTableAdapter.Fill(Me.Student_profileDataSet2.UserInfo)
            Me.disabledcontrol()
            Me.btnEDIT2.Visible = False
            Me.btnSAVE2.Visible = True
            Me.btnCANCEL2.Visible = True
            Me.BTNADD2.Visible = True

        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEDIT2.Click
        Me.enabledcontrol()

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNADD2.Click
        If MsgBox("Add new record, are you sure?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Add") = MsgBoxResult.Yes Then
            Me.Student_profileDataSet2.UserInfo.Clear()
            Me.UserInfoBindingSource.AddNew()
            Me.enabledcontrol()

        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDELETE2.Click

        Me.btnCANCEL2.Visible = True
        Me.BTNADD2.Visible = True
        If MsgBox("Delete current record, are you sure?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Delete") = MsgBoxResult.Yes Then
            Me.UserInfoBindingSource.CancelEdit()
            Me.Student_profileDataSet2.UserInfo.Clear()
            Me.disabledcontrol()
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCLOSE.Click
        Me.Close()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCANCEL2.Click
        If MsgBox("Cancel current record, are you sure?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Cancel") = MsgBoxResult.Yes Then
            Me.UserInfoBindingSource.RemoveCurrent()

            Me.UserInfoTableAdapter.Update(Me.Student_profileDataSet2.UserInfo)
            Me.UserInfoTableAdapter.Fill(Me.Student_profileDataSet2.UserInfo)
            Me.disabledcontrol()
        End If
    End Sub
End Class

form6

Public Class Form6

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If MsgBox("back up database files?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "BACK UP") = MsgBoxResult.Yes Then
            My.Computer.FileSystem.CopyFile("student profile.mdb", Me.ComboBox1.Text & "BACK UP.mdb")
        End If
    End Sub

    Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        For i = 3 To 26
            Me.ComboBox1.Items.Add(Chr(64 + i) & ":/")

        Next
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Close()

    End Sub
End Class

form7

Public Class Form7

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If MsgBox("Restore database Back Up ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Restore") = MsgBoxResult.Yes Then
            If My.Computer.FileSystem.FileExists("Me.ComboBox1.Text & Restore.mdb") Then
                My.Computer.FileSystem.CopyFile("me.combobox1.text & restore.mdb", "student profile.mdb")
            End If

        End If
    End Sub

    Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim x As Integer
        For x = 3 To 26
            Me.ComboBox1.Items.Add(Chr(64 + x) & ":/")

        Next
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Close()

    End Sub
End Class

        Capiz is very rich of different beaches and resorts. One of that is L-A Beach Resort located in Sitio Marangkalan Basiao, Ivisan Capiz.  This beach resort managed by Lucy delos Reyes and Alma Pajarillo. It is called L-A Beach Resort because it came from the owner's name Lucy-Alma.  L-A is  a famous and beautiful beach found in Ivisan that has cottages  not more than 15 cottages and two big cottage for all tourist and family. Every evening,you can see the beautiful  sunset. Not only the sunset you can see , but the little and undemanding island too.The two islands are the  Morocol Daku and Marocol Gamay. The L-A Beach Resort are  bounded of coconut trees.

      So come and visit the place to experince the very romantic and momentous moment of your life with your friends, family amd someone special.

 

            A PROPOSED WEBSITE FOR THE L.A. BEACH RESORT

A PROJECT

PRESENTED TO

THE FACULTY OF COMPUTER EDUCATIO DEPARTMENT

HERCOR COLLEGE

ROXAS CITY

IN PARTIAL FULFILLMENT

OF THE REQUIREMENTS FOR

COMPUTER PROGRAMMING NC IV COURSE

BY:

CATHERINE B. PACULBA

LEOVELYN A. ORDAS

CLAICEL A. ABBARIAO

ERNA C. DILI

MARCH 2012

ADVISER’S RECOMMENDATION SHEET

This Thesis entitled

A PROPOSED WEBSITE FOR THE L.A. BEACH RESORT

Prepared and submitted by:

CATHERINE B. PACULBA

LEOVELYN A. ORDAS

CLAICEL A. ABBARIAO

ERNA C. DILI

            In partial fulfillment of the requirements for Computer Programming NC IV Course is hereby recommended for acceptance and approval.

KEDDIE V. OBIDOS

Adviser

March 2012

THESIS DOCUMENTATION EDITOR’S RECOMMENDATION SHEET

This Thesis entitled

A PROPOSED WEBSITE FOR THE L.A BEACH RESORT

Prepared and submitted by

CATHERINE B. PACULBA

LEOVELYN A. ORDAS

CLAICEL A. ABBARIAO

ERNA C. DILI

In partial fulfillment of the requirements for Computer Programming NC IV has been checked and edited, and is hereby recommended for acceptance and approval.

ROSALITO F. ARANDEZ JR.

English Editor

March 2012

DEAN’S ACCEPTANCE SHEET

This Thesis entitled

A PROPOSED WEBSITE FOR THE L.A BEACH RESORT

Prepared and submitted by:

CATHERINE B. PACULBA

LEOVELYN A. ORDAS

CLAICEL A. ABBARIAO

ERNA C. DILI

Is hereby accepted and approval in partial fulfillment of the requirements for the course Computer Programming NC IV Course.

NETALY D. CASIMERO

Dean, Computer Education

March 2012

PANEL’S APPROVAL SHEET

This Thesis entitled

A PROPOSED WEBSITE FOR THE L.A. BEACH RESORT

Prepared and submitted by

CATHERINE B. PACULBA

LEOVELYN A. ORDAS

CLAICEL A. ABBARIAO

ERNA C. DILI

After having presented id hereby approved with the grade of PASSED by the following member of panel:

TABLE OF CONTENTS

PAGE

TITLE PAGE                                                                                                                                

i

Adviser’s Recommendation Sheet                                                                                                ii

English Editor’s Recommendation Sheet

Dean’s Acceptance Sheet

Acknowledgement

Table of Contents

List of Appendices

CHAPTER

I.              INTRODUCTION

Background of the study

Statement of the Problems

Objectives of the Study

Significance of the Study

Scope and Limitation

II.            REVIEW OF RELATED LITERATURE

Conceptual Studies

Local Studies

Foreign Studies

III.           METHODOLOGY OF THE STUDY

IV.          SUMMARY, CONCLUSION AND RECOMMENDATION

Summary

Conclusion

Recommendation

           

ACKNOWLEDGEMENT

BIBLIOGRAPHY

APPENDICES

Appendix A     Project Schedule and Work Assignment

Appendix B     Certification

Appendix C     Transcript of Interview

Appendix D     Survey forms/Questionnaires

Appendix E     Sample forms and Reports

Appendix F      Screen Design

Resource Person

Curriculum Vitae

List of Appendices

            Appendix         A          Project Schedule and Work Assignment

Appendix         B          Certification

Appendix         C         Transcript of Interview

Appendix         D        Survey forms/Questionnaires

Appendix         E         Sample forms and Reports

Appendix         F          Screen Design

INTRODUCTION

BACKGROUND OF THE PROJECT

. A computer is systems consist of hardware and software. The hardware is the physical machine. A set of instructions for the computer is called program. The first use of the word "computer" was recorded in 1613, referring to a person who carried out calculations, or computations, and the word continued with the same meaning until the middle of the 20th century. From the end of the 19th century the word began to take on its more familiar meaning, a machine that carries out computations. Search engine optimization is a method of getting your website to rank higher in search engines—such as Google, Yahoo or Bing. A search engine optimization campaign pairs on-site optimization with off-site tactics, which means you make changes to your site itself while building a portfolio of natural looking back links to increase your organic rankings. When Internet users search for your products or services, your website needs to be the first one they find. SEO helps the search engines recognize your relevance to specific keywords that people search for online. The search engine optimization process includes researching keywords, creating content, building links and making sure your website is visible in the search engines.

SEO is an acronym for "search engine optimization" or "search engine optimizer." Deciding to hire an SEO is a big decision that can potentially improve your site and save time, but you can also risk damage to your site and reputation. Make sure to research the potential advantages as well as the damage that an irresponsible SEO can do to your site. Many SEOs and other agencies and consultants provide useful services for website owners, including such as Review of your site content or structure, technical advice on website development: for example, hosting, redirects, error pages, use of JavaScript, content development, management of online business development campaigns and keyword research expertise in specific markets and geographies.

This project extended the beach on how it will be discussed and how it will develop for future operation through this project could help the management for them to strengthen the revenue of their beach resort. The municipality of Ivisan has many beaches and resorts can be founded is L.A. beach resort located in Sitio Marangkalan Basiao, Ivisan Capiz. A website for the L.A. beach resort is one of the finest and simple beach resorts in Capiz. This beach managed by Mrs. Lucy Delos Reyes and Alma Pajarillo. They called L.A. Beach resort also because of the first name of management which is Lucy and Alma. A travel from Roxas City to L.A. Beach Resort is 45 minutes. We make this website to help them to increase the number of tourism in Capiz and has attraction in our world today to have own websites to become popular. This is the commonly reason why the proponents had came up

Significance of the Projects

This project would be a great advantage to the following people and entitles:

To the L.A BEACH RESORT

This would help the la beach to know further by having a website as means of advertisement not only here in a province of capiz but also in the world.

To the Management

This project would help the management to promote their beach to be popular promoting beach through a website feature the L A beach is a big help to increase the number of tourism in Basiao, Ivisan Capiz.

To Visitors/ Tourist

This project would be helpful to the visitors and tourist through a website or advertising they could get knowledge and proper information needed about the beach resort.

To the student of Hercor College

            This project useful for students for their future project to explain their ability, skill and knowledge better to knowing different or several information about the L.A. Beach resort and to make it better know how to make a website.

To the proponents

            The proponents would like to study the website of L.A. Beach Resort

To the Hercor College

            This project would be helpful for the students of Hercor College and also to the school will also proud because of ability of their students to make a better website and their projects

assignment in WEB programming

Variables are declared when first used in PHP, so no need for the following...

var $somevar;

In PHP, this is only neccessary when building a class, the var keyword when used inside of a class creates special class-scope static variables.

$myvar = "some value";
Automatically created as a String.

$myvar = 2;
Automatically created as an integer.

$myvar = (string) "Some text";
Typecast as a string explicitly (typecasting is optional in PHP for 99% of variable usages).

$myvar = (int) 45;
Typecast an integer.

When you compare values as in...
if($myvar == "some value")

If myvar does not exist PHP will temporarily create a copy of it in memory with null value for comparision purposes, if error_reporting is set to E_ALL PHP will issue a Notice level error complaining that the variable did not exist. A better method is to use isset() or empty()

if (isset($myvar) && $myvar == "some_value)

http://www.php.net/isset
http://www.php.net/empty

This alleviates that Notice level error.

Always best to read the manual... at
http://www.php.net/manual/en/

Pay special attention to section II, which contains basic syntax, control structures, predefined variables... and general language concepts implemented in PHP.

hth,
: )
Rich








2.)

Naming Rules

Given below key naming conventions of PHP variable :

• A variable must have $ sign before its actual name. Example, $first_name.
• A variable in PHP must start with a letter or underscore "_".
• A variable in PHP can have only numeric(0-9), letter(a-z, A-Z) or underscore"_".
• PHP variables are case sensitive. The variables $c_number and $C_number are different variables in PHP.
• The variable name must not have white spaces between them. You can use underscore "_" to fill them. For example, it shouldn't like this-$first name, it should be-$first_name.

No need of declaring data type in PHP
A PHP variable doesn't need to be declare before before adding a value to it. PHP automatically converts the variable to the correct data type, depending on its value.
In the given below example, you will see that there is no need of mentioning data type before passing value to it.






visual
code in login form


Dim orow As DataRow
        For Each orow In Me.ProfileDataSet1.USER
            If (orow.Item("username") = Me.TextBox1.Text) Then
                If (orow.Item("password") = Me.TextBox2.Text) Then
                    MsgBox("you may now to proceed")

                    Form1.ShowDialog()

                Else : MsgBox("USERNAME / PASSWORD")
                End If
                Me.Close()


            End If


        Next
    End Sub




form code




Public Class Form1
    Private Sub enabledcontrol()

        Me.LASTNAMETextBox.Enabled = True
        Me.FIRSTNAMETextBox.Enabled = True
        Me.MITextBox.Enabled = True
        Me.AGETextBox.Enabled = True
        Me.COURSETextBox.Enabled = True
        Me.SECTIONTextBox.Enabled = True
        Me.ADDRESSTextBox.Enabled = True
        Me.EMAILADDTextBox.Enabled = True
        Me.NATIONALITYTextBox.Enabled = True
        Me.BIRTHPLACETextBox.Enabled = True
        Me.BIRTHDATEDateTimePicker.Enabled = True
        Me.GUARDIANTextBox.Enabled = True


    End Sub

    Private Sub disabledcontrol()

        Me.LASTNAMETextBox.Enabled = False
        Me.FIRSTNAMETextBox.Enabled = False
        Me.MITextBox.Enabled = False
        Me.AGETextBox.Enabled = False
        Me.COURSETextBox.Enabled = False
        Me.SECTIONTextBox.Enabled = False
        Me.ADDRESSTextBox.Enabled = False
        Me.EMAILADDTextBox.Enabled = False
        Me.NATIONALITYTextBox.Enabled = False
        Me.BIRTHPLACETextBox.Enabled = False
        Me.BIRTHDATEDateTimePicker.Enabled = False
        Me.GUARDIANTextBox.Enabled = False


    End Sub

codes visual basic

    Private Sub btnLOGIN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLOGIN.Click
        If Me.txtPASSWORD.Text = "labquiz" And txtUSERNAME.Text = "weng_lorenz@yahoo.com" Then
            MsgBox("You may now proceed!")
            Me.lblUSERNAME.Visible = False
            Me.lblPASSWORD.Visible = False
            Me.txtUSERNAME.Visible = False
            Me.txtPASSWORD.Visible = False
            Me.btnLOGIN.Visible = False
            Me.btnCANCEL.Visible = False

            Me.lblWELCOME.Visible = True
            Me.btnCLICK.Visible = True
            Me.lblcath.Visible = True
            Me.lblcath.Text = Me.txtUSERNAME.Text


        ElseIf txtPASSWORD.Text = "" And txtUSERNAME.Text = "" Then
            MsgBox("Please enter your username and password!")

        Else
            MsgBox("Sorry but you've entered incorrect username and password")

celsius and fahreneit codes:

Public Class Form2

    Private Sub btnCCONVERT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCCONVERT.Click

        lblfah.Text = 9 / 5 * (Val(txtCELSIUS.Text)) + 32

        Me.lblfahrenheit.Visible = True

        Me.lblfah.Visible = True

    End Sub

    Private Sub btnFCONVERT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFCONVERT.Click

        lblfahblank.Text = (txtFAHRENHEIT.Text - 32) * 5 / 9

        Me.lblcelsius.Visible = True

        Me.lblfahblank.Visible = True

    End Sub

    Private Sub txtFAHRENHEIT_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtFAHRENHEIT.TextChanged

    End Sub

    Private Sub btnFRETRY_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFRETRY.Click

        Me.lblfahblank.Visible = False

        Me.lblcelsius.Visible = False

        Me.txtFAHRENHEIT.Text = ""

    End Sub

    Private Sub btnCRETRY_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCRETRY.Click

        Me.lblfah.Visible = False

        Me.lblfahrenheit.Visible = False

        Me.txtCELSIUS.Text = ""

    End Sub

End Class

my COLLECTION

"If a hug represented how much I loved you, I would hold you in my arms forever."

"Love is a fabric which never fades, no matter how often it is washed in the water of adversity and grief." 

"In his younger days a man dreams of possessing the heart of the woman whom he loves; later, the feeling that he possesses the heart of a woman may be enough to make him fall in love with her." 


"Love is not to be purchased, and affection has no price." 

"It is at the edge of a petal that love waits." 

"True love knows no league." 


"Absence from the person you love is only healthy in theory." 

"The hardest thing to do is watch the one you love, love someone else." 



"Stimulate the heart to love, and all other virtues will rise of their own accord." 

"I believe love produces a certain flowering of the whole personality which nothing else can achieve."

GEOGRAPHY

ROXAS CITY

The City of Roxas, once known as the municipality of Capiz is the capital of the province of Capiz.

In 1569, Captain Diego de Artieda who was sent by Miguel Lopez de Legazpi from Cebu, landed on the town of Pan-ay and proclaimed it as the capital. Later the capital was moved to its present site upon discovering that the town of Capiz was near the sea where they can have better docking facilities. The Spaniards saw the long coastal cover and envisioned a trading and shipping center. Ports were constructed in Libas and later in Culasi.

A river meanders across the town, cuts it at the heart and divides it almost equally into two. Tributaries from the mountains flowed into the head of Panay River through settlements formed along its shores, irrigating and fertilizing the land to provide food to the people. Following its course into the sea, it provides water to fishponds during high tide.

In 1590, the Navy of Acapulco, Mexico made Capiz port its arsenal (naval yard) where they can seek shelter when the sea was rough. Capiz then eventually grew into a bustling port and several houses of stones were built. The social and political status enjoyed by the native chieftains of Capiz often resulted in mixed marriages with the Spaniards. The mestizo descendants became the base of the principalia or influential citizens. Their privileged positions allowed them to build houses around the favored square of the poblacion - around the church and the government complex.

Their children became the beneficiaries of the Augustinian mission in 1593.

In 1746, Capiz was made the seat of the politico-military government, although it was ecclesiastically controlled by the Bishopric of Cebu. In the latter part of 1795, under Gobernadorcillo Miguel Bautista, the old road to Baybay Beach was built as an extension of San Roque Street.

The town of Capiz was frequently attacked by Muslims that in 1814, stone forts at Baybay Beach (Baluarte) were built through the initiative of Gobernadorcillo Jose Consolacion.

In 1870, the ground was broken for the foundation of the Cathedral of Capiz under the guidance of Reverend Apolonio Alvarez. It was built by sturdy hands, sweat and blood of Capizeños who were victims of forced labor.

In 1876, the diocese of Jaro in Iloilo was erected and Capiz came under its jurisdiction. In 1877, the cathedral was finally finished. Prior to its construction, a chapel was built in Burgos Street beside the municipal building.

In August 1899, the Spanish colonial government represented by Governor Juan Herrero formally surrendered to General Ananias Diokno in Baybay Beach.

Economic debacle hit the town of Capiz in 1914 when the Ayala Distillery grounded to a halt. What could have been an ambitious forerunner of nationalized industrialization became the victim of the Internal Revenue Law under American control.

In 1917, Division Superintendent of Schools F.E. Hemingway founded Capiz Trade School for intermediate pupils and offered woodworking as the only vocational course. The next division superintendent opened Capiz High School.

In 1926, Division Superintendent Arthur Wittman authorized teaching of complete secondary curriculum in the Capiz Trade School. In the same year, Culasi Port was built to accommodate inter-island ships.

On February 15, 1951 the diocese of Capiz became a separate ecclesiastical jurisdiction from Jaro. Its first bishop was Msgr. Manuel Yap. In the same year, former Vice Mayor Libertad Conlu became the first female mayor of Capiz.

Capiz became a chartered city on May 12, 1951 through House Bill 1528 sponsored by Ramon Acuña Arnaldo, the representative of the First District of Capiz. It was approved by President Elpidio Quirino on April 11, 1951 as Republic Act 603.^[1] Consequently, the town was named Roxas City after her greatest son, President Manuel Acuña Roxas, the last president of the Commonwealth and the first president of the Philippine Republic.

The first appointed mayor was Lorenzo Acuña Arnaldo followed by Ramon Berjamin Blanco, Jose Dorado and Juliano Alovera Alba. In 1959, Lorenzo Acuña Arnaldo again became the head of the city as the first elected mayor. The next mayor was Teodoro Roxas Arcenas who was succeeded by Juliano Alovera Alba who was also the representative of the First District of Capiz at the House of Congress when Martial Law was declared.

Hon. Antonio A. Del Rosario, who is now the Congressman of the 1st District of Capiz, was elected to three terms as mayor of Roxas City, serving from 1998 to 2007.

Hon. Vicente B. Bermejo, who is the former governor of the province of Capiz, was elected mayor and served for three years, from 2007 to 2010.

The incumbent mayor of Roxas City is Hon. Angel Alan B. Celino, who also served as Vice Mayor of the city from 2004 to 2007. 

Barangay of CAPIZ

• Tiza
• Bago
• Balijuagan
• Banica
• Barangay 1
• Barangay 2
• Barangay 3
• Barangay 4
• Barangay 5
• Barangay 6
• Barangay 7
• Barangay 8
• Barangay 9
• Barangay 10
• Barangay 11
• Barra

• Bato
• Baybay
• Adlawan
• Cabugao
• Cagay
• Cogon
• Culajao
• Culasi
• Dumolog
• Dayao
• Dinginan
• Gabu-an
• Inzo Arnaldo Village (Cadimahan)
• Jumaguicjic
• Lanot
• Lawa-an

• Li-ong
• Libas
• Loctugan
• Lonoy
• Milibili
• Mongpong
• Olotayan
• Punta Cogon
• Punta Tabuc
• San Jose
• Sibaguan
• Talon
• Tanque
• Tanza
• Bolo

provinces:

1. * Abra
2. * Agusan del Norte
3. * Agusan del Sur
4. * Aklan
5. * Albay
6. * Antique
7. * Apayao
8. * Aurora
9. * Basilan
10. * Bataan
11. * Batanes
12. * Batangas
13. * Benguet
14. * Biliran
15. * Bohol
16. * Bukidnon
17. * Bulacan
18. * Cagayan
19. * Camarines Norte
20. * Camarines Sur
21. * Camiguin
22. * Capiz
23. * Catanduanes
24. * Cavite
25. * Cebu
26. * Compostela Valley
27. * Cotabato
28. * Davao del Norte
29. * Davao del Sur
30. * Davao Oriental
31. * Eastern Samar
32. * Guimaras
33. * Ifugao
34. * Ilocos Norte
35. * Ilocos Sur
36. * Iloilo
37. * Isabela
38. * Kalinga
39. * La Union
40. * Laguna
41. * Lanao del Norte
42. * Lanao del Sur
43. * Leyte
44. * Maguindanao
45. * Marinduque
46. * Masbate
47. * Misamis Occidental
48. * Misamis Oriental
49. * Mountain Province
50. * Negros Occidental
51. * Negros Oriental
52. * Northern Samar
53. * Nueva Ecija
54. * Nueva Vizcaya
55. * Occidental Mindoro
56. * Oriental Mindoro
57. * Palawan
58. * Pampanga
59. * Pangasinan
60. * Quezon
61. * Quirino
62. * Rizal
63. * Romblon
64. * Samar
65. * Sarangani
66. * Siquijor
67. * Sorsogon
68. * South Cotabato
69. * Southern Leyte
70. * Sultan Kudarat
71. * Sulu
72. * Surigao del Norte
73. * Surigao del Sur
74. * Tarlac
75. * Tawi-Tawi
76. * Zambales
77. * Zamboanga del Norte
78. * Zamboanga del Sur
79. * Zamboanga Sibugay

1	Afghanistan
2	Akrotiri
3	Albania
4	Algeria
5	American Samoa
6	Andorra
7	Angola
8	Anguilla
9	Antarctica
10	Antigua and Barbuda
11	Argentina
12	Armenia
13	Aruba
14	Ashmore and Cartier Islands
15	Australia
16	Austria
17	Azerbaijan
18	Bahamas, The
19	Bahrain
20	Bangladesh
21	Barbados
22	Bassas da India
23	Belarus
24	Belgium
25	Belize
26	Benin
27	Bermuda
28	Bhutan
29	Bolivia
30	Bosnia and Herzegovina
31	Botswana
32	Bouvet Island
33	Brazil
34	British Indian Ocean Territory
35	British Virgin Islands
36	Brunei
37	Bulgaria
38	Burkina Faso
39	Burma
40	Burundi
41	Cambodia
42	Cameroon
43	Canada
44	Cape Verde
45	Cayman Islands
46	Central African Republic
47	Chad
48	Chile
49	China
50	Christmas Island
51	Clipperton Island
52	Cocos (Keeling) Islands
53	Colombia
54	Comoros
55	Congo, Democratic Republic of the
56	Congo, Republic of the
57	Cook Islands
58	Coral Sea Islands
59	Costa Rica
60	Cote d'Ivoire
61	Croatia
62	Cuba
63	Cyprus
64	Czech Republic
65	Denmark
66	Dhekelia
67	Djibouti
68	Dominica
69	Dominican Republic
70	Ecuador
71	Egypt
72	El Salvador
73	Equatorial Guinea
74	Eritrea
75	Estonia
76	Ethiopia
77	Europa Island
78	Falkland Islands (Islas Malvinas)
79	Faroe Islands
80	Fiji
81	Finland
82	France
83	French Guiana
84	French Polynesia
85	French Southern and Antarctic Lands
86	Gabon
87	Gambia, The
88	Gaza Strip
89	Georgia
90	Germany
91	Ghana
92	Gibraltar
93	Glorioso Islands
94	Greece
95	Greenland
96	Grenada
97	Guadeloupe
98	Guam
99	Guatemala
100	Guernsey
101	Guinea
102	Guinea-Bissau
103	Guyana
104	Haiti
105	Heard Island and McDonald Islands
106	Holy See (Vatican City)
107	Honduras
108	Hong Kong
109	Hungary
110	Iceland
111	India
112	Indonesia
113	Iran
114	Iraq
115	Ireland
116	Isle of Man
117	Israel
118	Italy
119	Jamaica
120	Jan Mayen
121	Japan
122	Jersey
123	Jordan
124	Juan de Nova Island
125	Kazakhstan
126	Kenya
127	Kiribati
128	Korea, North
129	Korea, South
130	Kuwait
131	Kyrgyzstan
132	Laos
133	Latvia
134	Lebanon
135	Lesotho
136	Liberia
137	Libya
138	Liechtenstein
139	Lithuania
140	Luxembourg
141	Macau
142	Macedonia
143	Madagascar
144	Malawi
145	Malaysia
146	Maldives
147	Mali
148	Malta
149	Marshall Islands
150	Martinique
151	Mauritania
152	Mauritius
153	Mayotte
154	Mexico
155	Micronesia, Federated States of
156	Moldova
157	Monaco
158	Mongolia
159	Montserrat
160	Morocco
161	Mozambique
162	Namibia
163	Nauru
164	Navassa Island
165	Nepal
166	Netherlands
167	Netherlands Antilles
168	New Caledonia
169	New Zealand
170	Nicaragua
171	Niger
172	Nigeria
173	Niue
174	Norfolk Island
175	Northern Mariana Islands
176	Norway
177	Oman
178	Pakistan
179	Palau
180	Panama
181	Papua New Guinea
182	Paracel Islands
183	Paraguay
184	Peru
185	Philippines
186	Pitcairn Islands
187	Poland
188	Portugal
189	Puerto Rico
190	Qatar
191	Reunion
192	Romania
193	Russia
194	Rwanda
195	Saint Helena
196	Saint Kitts and Nevis
197	Saint Lucia
198	Saint Pierre and Miquelon
199	Saint Vincent and the Grenadines
200	Samoa
201	San Marino
202	Sao Tome and Principe
203	Saudi Arabia
204	Senegal
205	Serbia and Montenegro
206	Seychelles
207	Sierra Leone
208	Singapore
209	Slovakia
210	Slovenia
211	Solomon Islands
212	Somalia
213	South Africa
214	South Georgia and the South Sandwich Islands
215	Spain
216	Spratly Islands
217	Sri Lanka
218	Sudan
219	Suriname
220	Svalbard
221	Swaziland
222	Sweden
223	Switzerland
224	Syria
225	Taiwan
226	Tajikistan
227	Tanzania
228	Thailand
229	Timor-Leste
230	Togo
231	Tokelau
232	Tonga
233	Trinidad and Tobago
234	Tromelin Island
235	Tunisia
236	Turkey
237	Turkmenistan
238	Turks and Caicos Islands
239	Tuvalu
240	Uganda
241	Ukraine
242	United Arab Emirates
243	United Kingdom
244	United States
245	Uruguay
246	Uzbekistan
247	Vanuatu
248	Venezuela
249	Vietnam
250	Virgin Islands
251	Wake Island
252	Wallis and Futuna
253	West Bank
254	Western Sahara
255	Yemen
256	Zambia
257	Zimbabwe