Home » Archives » February 2010
asdfawdf
February 26, 2010 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
February 25, 2010President 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
February 23, 2010ang blogph adfnadkfj asdfkjadkfj asdlkfjadklfjasdo;f kjadjflksjad fsdakfjsadfjsakdfsdfjsadkjfksajdfjreview sa sirjohncarbo.i.


