asdfawdf

    If MsgBox(”Add.New Record .are you sure?”, MsgBoxStyle.Question + MsgBoxStyle.YesNo, “Add”) Then
            Me.SampleDataSet.profile.Clear()
            Me.bngPro.AddNew()
            enabledcontrol()
        End If

delete

   If MsgBox(”Delete current Record,are you sure?”, MsgBoxStyle.Question + MsgBoxStyle.YesNo, “Delete”) = MsgBoxResult.Yes Then
            Me.bngPro.RemoveAt(Me.bngPro.Position)
            ProfileTableAdapter.Update(Me.SampleDataSet.profile)
        End If

save

  If MsgBox(”Save current Record,are you sure?”, MsgBoxStyle.Question + MsgBoxStyle.YesNo, “Save”) = MsgBoxResult.Yes Then
            Me.bngPro.EndEdit()
            ProfileTableAdapter.Update(Me.SampleDataSet.profile)
            ProfileTableAdapter.Update(Me.SampleDataSet.profile)
            disablecontrol()
        End If

cancel

 If MsgBox(”cancel current operation,are you sure?”, MsgBoxStyle.Question + MsgBoxStyle.YesNo, “cancel”) = MsgBoxResult.Yes Then
            Me.bngPro.CancelEdit()
            ProfileTableAdapter.Update(Me.SampleDataSet.profile)
            ProfileTableAdapter.Update(Me.SampleDataSet.profile)
            enabledcontrol()
        End If

find

  Dim i As Integer
        Form3.ShowDialog()
        For i = 0 To Me.bngPro.Count - 1
            Me.bngPro.Position = i
            If Me.lblid.Text = findId Then
                Exit For
            End If
        Next

  Private Sub enabledcontrol()

        Me.txtlastname.Enabled = True
        Me.txtfirstname.Enabled = True
        Me.txtmi.Enabled = True
        Me.txtage.Enabled = True
        Me.txtaddress.Enabled = True
        Me.cmbcourse.Enabled = True
        Me.cmbgender.Enabled = True
        Me.cmbyrlevel.Enabled = True
        Me.cmbsection.Enabled = True
        Me.DateTimePicker1.Enabled = True
        Me.btnadd.Enabled = False
        Me.btnedit.Enabled = False
        Me.btnclose.Enabled = False
        Me.btndelete.Enabled = False
        Me.btnprevious.Enabled = False
        Me.btnnext.Enabled = False
        Me.btncancel.Enabled = True
        Me.btnsave.Enabled = True

        Me.btnadd.Visible = False
        Me.btnsave.Visible = True
        Me.btncancel.Visible = True
        Me.btnedit.Visible = False
    End Sub

  Private Sub disablecontrol()

        Me.txtlastname.Enabled = False
        Me.txtfirstname.Enabled = False
        Me.txtmi.Enabled = False
        Me.txtage.Enabled = False
        Me.txtaddress.Enabled = False
        Me.cmbcourse.Enabled = False
        Me.cmbgender.Enabled = False
        Me.cmbyrlevel.Enabled = False
        Me.cmbsection.Enabled = False
        Me.DateTimePicker1.Enabled = False

        Me.btnadd.Enabled = True
        Me.btnedit.Enabled = True
        Me.btnclose.Enabled = True
        Me.btndelete.Enabled = True
        Me.btnprevious.Enabled = True
        Me.btnnext.Enabled = True

        Me.btncancel.Enabled = True
        Me.btnsave.Enabled = True

        Me.btnadd.Visible = True
        Me.btnsave.Visible = False
        Me.btncancel.Visible = False
        Me.btnedit.Visible = True

    End Sub

foxnews

President preps backup plan if sweeping legislation fails to generate enough support at bipartisan health summit
• SLIDESHOW: Meet Health Care Showdown Players
• YOU DECIDE: Will Summit Accomplish Anything?
• Low Expectations for Health Care Summit
• Reagan Bemoaning ‘Socialized Medicine’ a YouTube Hit
• FOX FORUM: Dems Shouldn’t Do Reconciliation Option

to move about news just clicck fox news or visit fox news

Fox News

President preps backup plan if sweeping legislation fails to generate enough support at bipartisan health summit
• SLIDESHOW: Meet Health Care Showdown Players
• YOU DECIDE: Will Summit Accomplish Anything?
• Low Expectations for Health Care Summit
• Reagan Bemoaning ‘Socialized Medicine’ a YouTube Hit
• FOX FORUM: Dems Shouldn’t Do Reconciliation Option

to know more about news just click Fox News

blog review update me

ang blogph adfnadkfj asdfkjadkfj asdlkfjadklfjasdo;f kjadjflksjad fsdakfjsadfjsakdfsdfjsadkjfksajdfjreview sa sirjohncarbo.i.

wla

l;kgl./kj8ifp0op,;g

http://daijin.i.ph

beauty

beauty

jfjlfkflg

ncildkld,fd;g

asdkjfkjksadf

sadfsdfad

sadfsdhj

dfhsfn