CODE FOR VISUAL BASIC

Form1 Form
Public Class Form1

Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click
Dim Row As DataRow
For Each Row In Me.PassDataSet.tbpass
If (Row.Item("Username") = ComboBox1.Text) Then
If (Row.Item("Password") = Me.txtpassword.Text) Then
mainmenu.bAccess = True
ComboBox1.Text = ""
ComboBox1.Enabled = True
txtpassword.Enabled = True
ComboBox1.Focus()
Me.Close()
Else
MsgBox("Code did not match to the current record! Click 'OK' to retry.", MsgBoxStyle.Critical, "ERROR")
ComboBox1.Text = ""
txtpassword.Text = ""
ComboBox1.Enabled = True
txtpassword.Enabled = True
ComboBox1.Focus()
End If
End If
Next

End Sub

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

Private Sub txtpassword_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtpassword.KeyPress
If e.KeyChar = Chr(13) Then
btnlogin_Click(sender, e)
End If
End Sub

Private Sub txtpassword_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtpassword.TextChanged
Dim Row As DataRow
For Each Row In Me.PassDataSet.tbpass
If (Row.Item("Password") = Me.txtpassword.Text) Then
txtpassword.Enabled = False
End If
Next
End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim Row As DataRow
For Each Row In Me.PassDataSet.tbpass
If (Row.Item("username") = Me.ComboBox1.Text) Then
ComboBox1.Enabled = False

End If
Next

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 'PassDataSet.tbpass' table. You can move, or remove it, as needed.
Me.TbpassTableAdapter.Fill(Me.PassDataSet.tbpass)

End Sub

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
forgetpass.ShowDialog()
End Sub
End Class

Forget pass Form
Public Class forgetpass

Private Sub TbpassBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.TbpassBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.PassDataSet)
End Sub

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

Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click
Me.Close()
End Sub
End Class
Main menu Form
Public Class mainmenu
Public bAccess As Boolean
Private Sub ExitToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem1.Click
If MsgBox("Operations will be terminated, are you sure you want to quit?", MsgBoxStyle.YesNo + MsgBoxStyle.Question + MsgBoxStyle.DefaultButton2, "QUIT") = MsgBoxResult.No Then
Else
End
End If
End Sub

Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
Form1.ShowDialog()
If Not bAccess Then
End
End If
End Sub

Private Sub mainmenu_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
Form1.ShowDialog()
If Not bAccess Then
End
End If
End Sub


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Enabled = True
Me.lbltime.Text = String.Format(Now, "hh:mm:ss tt")
End Sub

Private Sub F1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles F1ToolStripMenuItem.Click
Form2.ShowDialog()
End Sub

Private Sub ChangePasswordToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChangePasswordToolStripMenuItem.Click
confirmation.ShowDialog()
End Sub

Private Sub BackupToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackupToolStripMenuItem.Click
backup.ShowDialog()
End Sub

Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
Employeeinfo.ShowDialog()
End Sub

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

Private Sub EmployeeInformationToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EmployeeInformationToolStripMenuItem1.Click
makepayroll.ShowDialog()
End Sub

Private Sub ProgrammersFormToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgrammersFormToolStripMenuItem.Click
payrolllist.ShowDialog()
End Sub

Private Sub PaymentPeriodToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PaymentPeriodToolStripMenuItem.Click
preprooflist.ShowDialog()
End Sub

Private Sub PaymentPeriodToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PaymentPeriodToolStripMenuItem1.Click
preprooflist2.ShowDialog()
End Sub

Private Sub To15PaymentPeriodToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles To15PaymentPeriodToolStripMenuItem.Click
preregister.ShowDialog()
End Sub

Private Sub PaymentPeriodToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PaymentPeriodToolStripMenuItem4.Click
preregister1.ShowDialog()
End Sub

Private Sub PaymentPeriodToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PaymentPeriodToolStripMenuItem2.Click
prepayslip.ShowDialog()
End Sub

Private Sub PaymentPeriodToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PaymentPeriodToolStripMenuItem3.Click
prepayslip.ShowDialog()
End Sub

Private Sub MasterFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MasterFileToolStripMenuItem.Click
printlist.ShowDialog()
End Sub
End Class
Employee info Form
Public Class Employeeinfo


Public findID As Integer

Private Sub PASSBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.bndinfo.EndEdit()
Me.TbcapelcoTableAdapter.Update(Me.Capelco1DataSet1.tbcapelco)
End Sub

Private Sub btnmain_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmain.Click
Me.Close()
Me.btnmain.Refresh()
txtno.Text = ""
txtlastname.Text = ""
txtfirstname.Text = ""
cmbmi.Text = ""
txtaddress.Text = ""
cmbstat.Text = ""
cmbchil.Text = ""
cmbgen.Text = ""
txtage.Text = ""
cmbgrade.Text = ""
cmboffice.Text = ""
cmbpos.Text = ""
cmbsection.Text = ""
cmbtype.Text = ""
txtrice.Text = ""
TextBox1.Text = ""
TextBox4.Text = ""
RadioButton4.Refresh()
RadioButton3.Refresh()
txtno.Enabled = False
txtlastname.Enabled = False
txtfirstname.Enabled = False
cmbmi.Enabled = False
txtaddress.Enabled = False
cmbstat.Enabled = False
cmbchil.Enabled = False
cmbgen.Enabled = False
txtage.Enabled = False
cmbgrade.Enabled = False
cmboffice.Enabled = False
cmbpos.Enabled = False
cmbsection.Enabled = False
cmbtype.Enabled = False
txtrice.Enabled = False
TextBox1.Enabled = False
TextBox4.Enabled = False
End Sub


Private Sub enabledtext()
txtfind.Enabled = True
btnadd.Enabled = True
btnedit.Enabled = True
btndel.Enabled = True
btnmain.Enabled = True
btnun.Enabled = False
btnsave.Enabled = False
txtfind.Enabled = False
EmployeenoTextBox.Enabled = False
txtaddress.Enabled = False
txtage.Enabled = False
txtfirstname.Enabled = False
txtlastname.Enabled = False
cmbmi.Enabled = False
txtrice.Enabled = False
cmbgrade.Enabled = False
cmbchil.Enabled = False
cmbstat.Enabled = False
cmbtype.Enabled = False
cmboffice.Enabled = False
cmbpos.Enabled = False
cmbsection.Enabled = False
cmbgen.Enabled = False
TextBox1.Enabled = False
TextBox4.Enabled = False
TbcapelcoDataGridView.Enabled = True
DateTimePicker1.Enabled = False
RadioButton4.Enabled = False
RadioButton3.Enabled = False
End Sub

Private Sub disabledtext()
DateTimePicker1.Enabled = True
txtfind.Enabled = False
btnadd.Enabled = False
btnedit.Enabled = False
btndel.Enabled = False
btnmain.Enabled = True
btnun.Enabled = True
btnsave.Enabled = True
txtfind.Enabled = True
EmployeenoTextBox.Enabled = True
txtaddress.Enabled = True
txtage.Enabled = True
txtfirstname.Enabled = True
txtlastname.Enabled = True
cmbmi.Enabled = True
cmbgen.Enabled = True
txtrice.Enabled = True
cmbgrade.Enabled = True
cmbchil.Enabled = True
cmbstat.Enabled = True
cmbtype.Enabled = True
cmboffice.Enabled = True
cmbpos.Enabled = True
cmbsection.Enabled = True
TextBox1.Enabled = True
TextBox4.Enabled = True
TbcapelcoDataGridView.Enabled = True
RadioButton4.Enabled = True
RadioButton3.Enabled = True
End Sub

Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click
EmployeenoTextBox.Text = Strings.Mid(Me.lbltime.Text, 8, 2) & "_0" & Strings.Mid(lbltime.Text, 1, 1) & Strings.Mid(Me.lbltime.Text, 3, 1) & txtno.Text
Me.Capelco1DataSet1.Clear()
Me.bndinfo.AddNew()
Me.disabledtext()
End Sub

Private Sub btnun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnun.Click
Me.bndinfo.CancelEdit()
Me.TbcapelcoTableAdapter.Fill(Me.Capelco1DataSet1.tbcapelco)
Me.TbcapelcoDataGridView.Enabled = False
Me.TbcapelcoDataGridView.Refresh()
Me.bndinfo.MoveLast()
Me.btnmain.Focus()
Me.enabledtext()
Me.txtfind.Enabled = True
End Sub

Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click
Me.disabledtext()
DateTimePicker1.Enabled = True
End Sub

Private Sub txtno_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
If Asc(e.KeyChar) <= 32 Or _
(Asc(e.KeyChar) >= Asc("0") And Asc(e.KeyChar) <= Asc("9")) Then
txtlastname.Focus()
Else
e.KeyChar = ""
End If
End Sub

Private Sub txtaddress_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtaddress.KeyPress
If e.KeyChar = Chr(13) Then
cmbstat.Focus()
End If
End Sub





Private Sub cmbstat_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
If e.KeyChar = Chr(13) Then
cmbchil.Focus()
End If
End Sub

Private Sub txtage_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtage.KeyPress
If e.KeyChar = Chr(13) Then
cmbgrade.Focus()
End If
End Sub

Private Sub txtrice_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtrice.KeyPress
If e.KeyChar = Chr(13) Then
cmbtype.Focus()
End If
End Sub

Private Sub cmbchil_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
If e.KeyChar = Chr(13) Then
cmbgen.Focus()
End If
End Sub

Private Sub cmboffice_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cmbtype.KeyPress
If e.KeyChar = Chr(13) Then
cmbpos.Focus()
End If
End Sub

Private Sub cmbpos_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cmbpos.KeyPress
If e.KeyChar = Chr(13) Then
cmbsection.Focus()
End If
End Sub

Private Sub cmbgrade_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cmbgrade.KeyPress
If e.KeyChar = Chr(13) Then
cmboffice.Focus()
End If
End Sub

Private Sub cmbtype_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cmbtype.KeyPress
If e.KeyChar = Chr(13) Then
TextBox1.Focus()
End If
End Sub


Private Sub btndel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndel.Click
If MsgBox("Delete this current record, are you sure?", MsgBoxStyle.YesNo + MsgBoxStyle.Question + MsgBoxStyle.DefaultButton2, "Delete") = MsgBoxResult.Yes Then
Me.bndinfo.RemoveAt(Me.bndinfo.Position)
Me.TbcapelcoTableAdapter.Update(Me.Capelco1DataSet1.tbcapelco)
MsgBox("Data successfully deleted!", MsgBoxStyle.Information, "Delete Ok")
End If
End Sub

Private Sub addnewemployee_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'Capelco1DataSet1.tbcapelco' table. You can move, or remove it, as needed.
Me.TbcapelcoTableAdapter.Fill(Me.Capelco1DataSet1.tbcapelco)
'TODO: This line of code loads data into the 'Capelco1DataSet.tbcapelco' table. You can move, or remove it, as needed.
Me.bndinfo.MoveLast()
txtfind.Text = ""
Me.DateTimePicker1.Enabled = False
Me.cmbchil.Enabled = False
Me.cmbmi.Enabled = False
Me.cmbstat.Enabled = False
Me.cmbgen.Enabled = False
Me.cmbgrade.Enabled = False
Me.txtfind.Enabled = True
Me.cmbtype.Text = "Regular"
Me.ComboBox1.Text = "Job order"
RadioButton4.Enabled = False
RadioButton3.Enabled = False
End Sub

Private Sub btnnext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnext.Click
Me.bndinfo.MoveNext()
End Sub

Private Sub btnpre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpre.Click
Me.bndinfo.MovePrevious()
End Sub

Private Sub btnsave_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
If Me.txtaddress.Text = "" Then
MsgBox("Please fill up completely the boxes.", MsgBoxStyle.Information, "FILL UP")
ElseIf Me.cmboffice.Text = "" Then
MsgBox("Please fill up completely the boxes.", MsgBoxStyle.Information, "FILL UP")
ElseIf Me.txtfirstname.Text = "" Then
MsgBox("Please fill up completely the boxes.", MsgBoxStyle.Information, "FILL UP")
ElseIf Me.txtlastname.Text = "" Then
MsgBox("Please fill up completely the boxes.", MsgBoxStyle.Information, "FILL UP")
ElseIf Me.cmbmi.Text = "" Then
MsgBox("Please fill up completely the boxes.", MsgBoxStyle.Information, "FILL UP")
ElseIf Me.cmbsection.Text = "" Then
MsgBox("Please fill up completely the boxes.", MsgBoxStyle.Information, "FILL UP")
ElseIf Me.txtno.Text = "" Then
MsgBox("Please fill up completely the boxes.", MsgBoxStyle.Information, "FILL UP")
ElseIf Me.cmbpos.Text = "" Then
MsgBox("Please fill up completely the boxes.", MsgBoxStyle.Information, "FILL UP")
ElseIf Me.cmbtype.Text = "" Then
MsgBox("Please fill up completely the boxes.", MsgBoxStyle.Information, "FILL UP")
ElseIf Me.cmbchil.Text = "" Then
MsgBox("Please fill up completely the boxes.", MsgBoxStyle.Information, "FILL UP")
ElseIf Me.cmbstat.Text = "" Then
MsgBox("Please fill up completely the boxes.", MsgBoxStyle.Information, "FILL UP")
ElseIf Me.cmbgrade.Text = "" Then
MsgBox("Please fill up completely the boxes.", MsgBoxStyle.Information, "FILL UP")
ElseIf Me.txtage.Text = "" Then
MsgBox("Please fill up completely the boxes.", MsgBoxStyle.Information, "FILL UP")
Else
Me.bndinfo.EndEdit()
Me.TbcapelcoTableAdapter.Update(Me.Capelco1DataSet1.tbcapelco)
Me.TbcapelcoTableAdapter.Fill(Me.Capelco1DataSet1.tbcapelco)
MsgBox("Record Successfully Save", MsgBoxStyle.OkOnly, "SAVE")
Me.enabledtext()
Me.txtfind.Enabled = True
Me.txtfind.Text = ""
End If
End Sub

Private Sub txtfind_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtfind.TextChanged
Me.bndinfo.Filter = " Lastname LIKE '" & Me.txtfind.Text & "%'"
Me.bndinfo.Position += 1
If txtno.Text = "" Then
MsgBox("Record Does Not Exist!", MsgBoxStyle.Information, "Search Error")
Me.txtfind.Text = ""
End If
End Sub






Private Sub txtfind_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtfind.KeyPress
If IsNumeric(e.KeyChar) Then
e.KeyChar = ""
End If
If e.KeyChar = Chr(13) Then

End If
End Sub

Private Sub txtlastname_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtlastname.KeyPress
If IsNumeric(e.KeyChar) Then
e.KeyChar = ""
txtfirstname.Focus()
End If
End Sub

Private Sub txtfirstname_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtfirstname.KeyPress
If IsNumeric(e.KeyChar) Then
e.KeyChar = ""
cmbmi.Focus()
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.bndinfo.Filter = "Lastname LIKE '" & Me.txtfind.Text & "%'"
Me.bndinfo.Position += 1
If txtno.Text = "" Then
MsgBox("Record Does Not Exist!", MsgBoxStyle.Information, "Search Error")
Me.txtfind.Text = ""

End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
printlist.ShowDialog()
End Sub

Private Sub txtID_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
If Asc(e.KeyChar) <= 32 Or _
(Asc(e.KeyChar) >= Asc("0") And Asc(e.KeyChar) <= Asc("9")) Then
txtno.Focus()
Else
e.KeyChar = ""
End If
End Sub




Private Sub cmbmi_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cmbmi.KeyPress
If IsNumeric(e.KeyChar) Then
e.KeyChar = ""
txtaddress.Focus()
End If
End Sub

Private Sub cmbgen_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cmbgen.KeyPress
If e.KeyChar = Chr(13) Then
txtage.Focus()
End If
End Sub

Private Sub cmbsection_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cmbsection.KeyPress
If e.KeyChar = Chr(13) Then
txtrice.Focus()
End If
End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
TextBox4.Focus()
End If
End Sub

Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
preoffice.ShowDialog()
End Sub

Private Sub RadioButton4_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
If Me.cmbgrade.Text = 3 Then
Me.cmbtype.Text = "Regular"
Me.TextBox1.Text = "333.33"
Me.TextBox4.Text = "10000"
Me.txtrice.Text = "2300"
ElseIf Me.cmbgrade.Text = 4 Then
Me.cmbtype.Text = "Regular"
Me.TextBox1.Text = "350"
Me.TextBox4.Text = "10500"
Me.txtrice.Text = "2300"
ElseIf Me.cmbgrade.Text = 5 Then
Me.cmbtype.Text = "Regular"
Me.TextBox1.Text = "389.6"
Me.TextBox4.Text = "11688"
Me.txtrice.Text = "2300"
ElseIf Me.cmbgrade.Text = 6 Then
Me.cmbtype.Text = "Regular"
Me.TextBox1.Text = "400"
Me.TextBox4.Text = "12000"
Me.txtrice.Text = "2300"
ElseIf Me.cmbgrade.Text = 7 Then
Me.cmbtype.Text = "Regular"
Me.TextBox1.Text = "419.27"
Me.TextBox4.Text = "12578"
Me.txtrice.Text = "2300"
ElseIf Me.cmbgrade.Text = 8 Then
Me.cmbtype.Text = "Regular"
Me.TextBox1.Text = "448.83"
Me.TextBox4.Text = "13465"
Me.txtrice.Text = "2300"
ElseIf Me.cmbgrade.Text = 9 Then
Me.cmbtype.Text = "Regular"
Me.TextBox1.Text = "452.97"
Me.TextBox4.Text = "13589"
Me.txtrice.Text = "2300"
ElseIf Me.cmbgrade.Text = 10 Then
Me.cmbtype.Text = "Regular"
Me.TextBox1.Text = "466.67"
Me.TextBox4.Text = "14000"
Me.txtrice.Text = "2300"
ElseIf Me.cmbgrade.Text = 11 Then
Me.cmbtype.Text = "Regular"
Me.TextBox1.Text = "489.93"
Me.TextBox4.Text = "14698"
Me.txtrice.Text = "2300"
ElseIf Me.cmbgrade.Text = 12 Then
Me.cmbtype.Text = "Regular"
Me.TextBox1.Text = "526.63"
Me.TextBox4.Text = "15799"
Me.txtrice.Text = "2300"
ElseIf Me.cmbgrade.Text = 13 Then
Me.cmbtype.Text = "Regular"
Me.TextBox1.Text = "553.3"
Me.TextBox4.Text = "16599"
Me.txtrice.Text = "2300"
ElseIf Me.cmbgrade.Text = 14 Then
Me.cmbtype.Text = "Regular"
Me.TextBox1.Text = "559.63"
Me.TextBox4.Text = "16789"
Me.txtrice.Text = "2300"
ElseIf Me.cmbgrade.Text = 15 Then
Me.cmbtype.Text = "Regular"
Me.TextBox1.Text = "599.97"
Me.TextBox4.Text = "17999"
Me.txtrice.Text = "2300"
ElseIf Me.cmbgrade.Text = 16 Then
Me.cmbtype.Text = "Regular"
Me.TextBox1.Text = "616.77"
Me.TextBox4.Text = "18503"
Me.txtrice.Text = "2300"
ElseIf Me.cmbgrade.Text = 17 Then
Me.cmbtype.Text = "Regular"
Me.TextBox1.Text = "666.67"
Me.TextBox4.Text = "20000"
Me.txtrice.Text = "2300"
ElseIf Me.cmbgrade.Text = 18 Then

Me.cmbtype.Text = "Regular"
Me.TextBox1.Text = "783.33"
Me.TextBox4.Text = "23500"
Me.txtrice.Text = "2300"
ElseIf Me.cmbgrade.Text = 19 Then

Me.cmbtype.Text = "Regular"
Me.TextBox1.Text = "800"
Me.TextBox4.Text = "24000"
Me.txtrice.Text = "2300"
ElseIf Me.cmbgrade.Text = 20 Then

Me.cmbtype.Text = "Regular"
Me.TextBox1.Text = "853.33"
Me.TextBox4.Text = "25600"
Me.txtrice.Text = "2300"

End If
cmbtype.Visible = True
ComboBox1.Visible = False
cmbtype.Enabled = True
ComboBox1.Enabled = True
Me.cmbtype.Text = "Regular"
End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
If Me.cmbgrade.Text = 3 Then
Me.cmbtype.Text = "Job order"
Me.TextBox1.Text = "250"
Me.TextBox4.Text = "7500"
ElseIf Me.cmbgrade.Text = 3 Then
Me.cmbtype.Text = "Job order"
Me.TextBox1.Text = "300"
Me.TextBox4.Text = "9000"
End If
cmbtype.Visible = False
ComboBox1.Visible = True
cmbtype.Enabled = True
ComboBox1.Enabled = True
txtrice.Text = ""
Me.ComboBox1.Text = "Job order"
End Sub
End Class
Make Payroll Form
Public Class makepayroll

Dim pagibig, OT1, OT2, OT3, monthlysalary, sss, tax As Decimal

Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click
Me.Close()
datagrid.Refresh()
DataGridView1.Refresh()
txtfind.Text = ""
TextBox6.Text = ""
TextBox14.Text = ""
TextBox7.Text = ""
End Sub

Private Sub makepayroll_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'PhiltaxDataSet.philtax' table. You can move, or remove it, as needed.
Me.PhiltaxTableAdapter.Fill(Me.PhiltaxDataSet.philtax)
'TODO: This line of code loads data into the 'Capelco1DataSet1.tbcapelco' table. You can move, or remove it, as needed.
Me.TbcapelcoTableAdapter.Fill(Me.Capelco1DataSet1.tbcapelco)
Me.cmbID.SelectedValue = Employeeinfo.lblID.Text
'txttax.Text = leavecredits.txttax.Text
btnprint.Enabled = False
btnprint2.Enabled = False
btnprint3.Enabled = False
btnprint4.Enabled = False
btncompute.Enabled = False

btnpaysli.Enabled = False
btnpayslip2.Enabled = False
btncompute2.Enabled = False
DataGridView1.Enabled = False
datagrid.Enabled = False

Button7.Enabled = False
btnexit.Enabled = True
txtfind.Enabled = True
btnexit.Refresh()
btndeduct.Enabled = False
btndeduct2.Enabled = False
btnnet.Enabled = False
btnnet2.Enabled = False
TextBox13.Enabled = False
TextBox15.Enabled = False
TextBox16.Enabled = False
Button1.Enabled = False
End Sub

Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
TextBox4.Text = ""
TextBox9.Text = ""
txtunder.Text = ""
TextBox6.Text = ""
txtcanteen.Text = ""
txtpagibig.Text = ""
txtcig.Text = ""
txtbond.Text = ""
btndeduct2.Enabled = False
btndeduct.Enabled = True
btnnet.Enabled = True
btnnet2.Enabled = True
DataGridView1.Visible = True
datagrid.Visible = False
Button7.Enabled = False
btncompute.Visible = True
btnprint.Visible = False
btnprint3.Visible = False
btnprint4.Visible = True
Label30.Visible = True
Label44.Visible = False
Label30.Enabled = True
Label44.Enabled = True
btnprint2.Visible = True
btnpaysli.Visible = False
btnpayslip2.Visible = True
Label29.Visible = False
Label28.Visible = True
Label29.Enabled = True
Label28.Enabled = True
btndeduct2.Visible = False
btndeduct.Visible = True
btnnet.Visible = True
btnnet2.Visible = False
txtfind.Enabled = True
btnprint.Enabled = False
btnprint4.Enabled = False
btnprint2.Enabled = False
btnprint3.Enabled = False
btnpaysli.Enabled = False
btnpayslip2.Enabled = False
txtfname.Enabled = False
txtlname.Enabled = False
cmbmi.Enabled = False
txtpolicy.Enabled = False
txtrate.Enabled = False
txttax.Enabled = False
txtlife.Enabled = False
txtoptional.Enabled = False
txtpagibig.Enabled = True
txtphil.Enabled = False
txtcash.Enabled = False
txtbond.Enabled = True
txtsale.Enabled = False
txtmotor.Enabled = False
txtcanteen.Enabled = True
txtunder.Enabled = True
txtcig.Enabled = True
TextBox8.Enabled = False
TextBox10.Enabled = False
TextBox4.Enabled = False
TextBox9.Enabled = True
TextBox12.Enabled = False
TextBox2.Enabled = False
TextBox3.Enabled = False
TextBox1.Enabled = False
TextBox5.Enabled = False
btncompute.Enabled = True
DataGridView1.Enabled = True
datagrid.Enabled = False
TextBox11.Enabled = False
TextBox13.Enabled = False
TextBox15.Enabled = False
TextBox16.Enabled = False
RadioButton3.Refresh()
Button1.Enabled = False
End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
Button1.Enabled = True
txtcash.Text = ""
txtoptional.Text = ""
txtphil.Text = ""
txtsale.Text = ""
txtmotor.Text = ""
txtcanteen.Text = ""
TextBox8.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
btndeduct2.Enabled = True
btndeduct.Enabled = False
btnnet.Enabled = True
btnnet2.Enabled = True
TextBox13.Enabled = True
TextBox15.Enabled = True
TextBox16.Enabled = True
DataGridView1.Visible = False
datagrid.Visible = True
Button7.Enabled = True
btncompute.Visible = False
btnprint.Visible = False
btnprint2.Visible = True
btnprint3.Visible = True
btnprint4.Visible = False
Label30.Visible = False
Label44.Visible = True
Label30.Enabled = True
Label44.Enabled = True
btnpaysli.Visible = True
btnpayslip2.Visible = false
Label29.Visible = True
Label28.Visible = False
Label29.Enabled = True
Label28.Enabled = True
btndeduct2.Visible = True
btndeduct.Visible = False
btnnet.Visible = False
btnnet2.Visible = True
txtfind.Enabled = True
txtfname.Enabled = False
txtlname.Enabled = False
cmbmi.Enabled = False
btnprint.Enabled = False
btnprint4.Enabled = False
btnprint2.Enabled = False
btnprint3.Enabled = False
btnpaysli.Enabled = False
txtpolicy.Enabled = True
txtrate.Enabled = False
txttax.Enabled = False
txtlife.Enabled = False
txtoptional.Enabled = True
txtpagibig.Enabled = False
txtphil.Enabled = True
txtcash.Enabled = True
txtbond.Enabled = False
txtsale.Enabled = True
txtmotor.Enabled = True
txtcanteen.Enabled = False
txtunder.Enabled = True
txtcig.Enabled = False
TextBox8.Enabled = True
TextBox10.Enabled = True
TextBox11.Enabled = True
TextBox4.Enabled = False
TextBox9.Enabled = True
TextBox2.Enabled = False
TextBox3.Enabled = False
TextBox1.Enabled = False
TextBox5.Enabled = False
btncompute.Enabled = True
TextBox12.Enabled = False
DataGridView1.Enabled = False
datagrid.Enabled = True
RadioButton4.Refresh()
txtpagibig.Text = ""
End Sub

Private Sub btnprint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnprint.Click
preregister.ShowDialog()
End Sub

Private Sub btnprint2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnprint2.Click
preregister1.ShowDialog()
End Sub

Private Sub btnprint4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnprint4.Click
preprooflist.ShowDialog()
End Sub
Private Sub btnprint3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnprint3.Click
preprooflist2.ShowDialog()
End Sub

Private Sub btnnet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnet.Click
TextBox7.Text = Val(pagibig) + Val(Me.txtbond.Text) + Val(Me.txtcanteen.Text) + Val(Me.txtcig.Text)
TextBox14.Text = Val(Me.TextBox6.Text) - Val(Me.TextBox7.Text)
Me.bndpayroll.EndEdit()
Me.TbcapelcoTableAdapter.Update(Me.Capelco1DataSet1.tbcapelco)
btnprint.Enabled = True
btnprint3.Enabled = True
btnprint2.Enabled = True
btnprint4.Enabled = True
btnpaysli.Enabled = True
btnpayslip2.Enabled = True
End Sub

Private Sub btndeduct_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndeduct.Click
Dim mr As Decimal
mr = Val(txtrate.Text)
pagibig = mr * 0.09
Me.txtpagibig.Text = pagibig
TextBox6.Text = Val(Me.TextBox5.Text)
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Me.bndpayroll.Filter = "Salarygrade like'" & Button5.Text & "*'"
If Me.TextBox1.Text = "" Then
MsgBox("Record does not Exist.", MsgBoxStyle.Critical, "ERROR")
Me.bndpayroll.Filter = "Salarygrade like'" & Button5.Text & "*'"
End If
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Me.bndpayroll.Filter = "Salarygrade like'" & Button6.Text & "*'"
If Me.TextBox1.Text = "" Then
MsgBox("Record does not Exist.", MsgBoxStyle.Critical, "ERROR")
Me.bndpayroll.Filter = "Salarygrade like'" & Button6.Text & "*'"
End If
End Sub

Private Sub btnun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.bndpayroll.CancelEdit()
Me.TbcapelcoTableAdapter.Fill(Me.Capelco1DataSet1.tbcapelco)
Me.bndpayroll.MoveFirst()
Button3.Visible = True
End Sub


Private Sub txtfind_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
If IsNumeric(e.KeyChar) Then
e.KeyChar = ""
End If
If e.KeyChar = Chr(13) Then
End If
End Sub

Private Sub txtfind_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtfind.TextChanged
Me.bndpayroll.Filter = "Lastname LIKE '" & Me.txtfind.Text & "%' "
Me.bndpayroll.Position += 1
If TextBox12.Text = "" Then
MsgBox("Record Does Not Exist!", MsgBoxStyle.Information, "Search Error")
Me.txtfind.Text = ""
End If
End Sub

Private Sub TextBox13_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox13.TextChanged
TextBox2.Text = Val(Me.TextBox13.Text) * 1 * Val(Me.txtrate.Text)
End Sub

Private Sub TextBox15_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox15.TextChanged
TextBox3.Text = Val(Me.TextBox15.Text) * 1.5 * Val(Me.txtrate.Text)
End Sub

Private Sub TextBox16_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox16.TextChanged
TextBox1.Text = Val(Me.TextBox16.Text) * 3 * Val(Me.txtrate.Text)
End Sub

Private Sub TextBox9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox9.TextChanged
TextBox5.Text = Val(TextBox9.Text) * Val(txtrate.Text)
End Sub

Private Sub btndeduct2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndeduct2.Click
TextBox17.Text = Val(Me.TextBox2.Text) + Val(Me.TextBox3.Text) + Val(Me.TextBox1.Text)
TextBox6.Text = Val(Me.TextBox5.Text) + Val(Me.TextBox4.Text) + Val(Me.TextBox17.Text)
Dim F As Decimal
F = Val(txtrate.Text)
sss = F * 0.6
Me.txtlife.Text = sss
End Sub

Private Sub txtunder_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtunder.TextChanged
TextBox5.Text = Val(TextBox5.Text) - (Val(txtunder.Text) * Val(txtrate.Text))
End Sub

Private Sub btnnet2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnet2.Click
TextBox7.Text = Val(Me.txttax.Text) + Val(Me.txtlife.Text) + Val(Me.txtoptional.Text) + Val(Me.txtpolicy.Text) + Val(Me.txtcash.Text) + Val(Me.txtphil.Text) + Val(Me.txtsale.Text) + Val(Me.txtmotor.Text) + Val(Me.TextBox8.Text) + Val(Me.TextBox10.Text) + Val(Me.TextBox11.Text)
TextBox14.Text = Val(Me.TextBox7.Text) - Val(Me.TextBox6.Text)
Me.bndpayroll.EndEdit()
Me.TbcapelcoTableAdapter.Update(Me.Capelco1DataSet1.tbcapelco)
btnprint.Enabled = True
btnprint3.Enabled = True
btnprint2.Enabled = True
btnprint4.Enabled = True
btnpaysli.Enabled = True
btnpayslip2.Enabled = True
End Sub

Private Sub btnpaysli_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpaysli.Click
prepayslip.ShowDialog()
End Sub

Private Sub btnpayslip2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpayslip2.Click
prepayslip.ShowDialog()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.bndpayroll.AddNew()
txtrate.Enabled = False
TextBox5.Enabled = False
End Sub

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
leavecredits.ShowDialog()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox6.Text = Val(TextBox5.Text) + 0
TextBox14.Text = Val(TextBox6.Text) + 0
Me.bndpayroll.EndEdit()
Me.TbcapelcoTableAdapter.Update(Me.Capelco1DataSet1.tbcapelco)
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
Me.bndpayroll.EndEdit()
Me.TbcapelcoTableAdapter.Update(Me.Capelco1DataSet1.tbcapelco)
MsgBox("Record Successfully Save", MsgBoxStyle.OkOnly, "SAVE")
End Sub


Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
leavecredits.ShowDialog()
End Sub
End Class
Leave credits Form
Public Class leavecredits
Dim totalincome, totaladdtax, total, TOTAL1 As Decimal

Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click
makepayroll.txttax.Text = Me.txttax.Text
Me.Close()
TextBox4.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ComboBox1.Text = ""
ComboBox3.Text = ""
ComboBox6.Text = ""
ComboBox5.Text = ""
TextBox8.Text = ""
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox4.Text = Val(TextBox5.Text) * 12
TextBox2.Text = (Val(ComboBox4.Text) * Val(cmbchil.Text)) + Val(ComboBox2.Text)
TextBox3.Text = Val(TextBox4.Text) - Val(TextBox2.Text)

If Me.TextBox3.Text < 30000 Then
Me.ComboBox1.Text = "over 10000 but not over 30000"
Me.ComboBox3.Text = "500 + 10% of the excess over 10000"
Me.ComboBox6.Text = "500"
Me.ComboBox5.Text = ".10"

ElseIf Me.TextBox3.Text < 70000 Then
Me.ComboBox1.Text = "over 30000 but not over 70000"
Me.ComboBox3.Text = "2500 + 15% of the excess over 30000"
Me.ComboBox6.Text = "2500"
Me.ComboBox5.Text = ".15"

ElseIf Me.TextBox3.Text < 140000 Then
Me.ComboBox1.Text = "over 70000 but not over 1400000"
Me.ComboBox3.Text = "8500 + 20% of the excess over 70000"
Me.ComboBox6.Text = "8500"
Me.ComboBox5.Text = ".20"

ElseIf Me.TextBox3.Text < 250000 Then
Me.ComboBox1.Text = "over 140000 but not over 250000"
Me.ComboBox3.Text = "22500 + 25% of the excess over 140000"
Me.ComboBox6.Text = "22500"
Me.ComboBox5.Text = ".25"

ElseIf Me.TextBox3.Text <= 500000 Then
Me.ComboBox1.Text = "over 250000 but not over 500000"
Me.ComboBox3.Text = "50000 + 30% of the excess over 250000"
Me.ComboBox6.Text = "50000"
Me.ComboBox5.Text = ".30"

ElseIf Me.TextBox3.Text >= 500000 Then
Me.ComboBox1.Text = "over(500000)"
Me.ComboBox3.Text = "12500 + 34% of the excess over 500000"
Me.ComboBox6.Text = "125000"
Me.ComboBox5.Text = ".34"
End If
End Sub

Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click
Me.Capelco1DataSet1.Clear()
Me.PhiltaxDataSet.Clear()
Me.bndtax.AddNew()
Me.bndtax1.AddNew()
Me.disabledtext()
End Sub

Private Sub btnun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnun.Click
Me.bndtax.CancelEdit()
Me.TbcapelcoTableAdapter.Fill(Me.Capelco1DataSet1.tbcapelco)
Me.bndtax.MoveFirst()

Me.bndtax1.CancelEdit()
Me.PhiltaxTableAdapter.Fill(Me.PhiltaxDataSet.philtax)
Me.bndtax1.MoveFirst()
Me.enabledtext()
End Sub

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

Me.cmbID.SelectedValue = Employeeinfo.lblID.Text
'TODO: This line of code loads data into the 'Capelco1DataSet1.tbcapelco' table. You can move, or remove it, as needed.
Me.TbcapelcoTableAdapter.Fill(Me.Capelco1DataSet1.tbcapelco)
cmbchil.Enabled = False
cmbstat.Enabled = False
ComboBox1.Enabled = False
ComboBox2.Enabled = False
ComboBox5.Enabled = False
DateTimePicker1.Enabled = False
DateTimePicker2.Enabled = False
ComboBox3.Enabled = False
ComboBox1.Text = ""
ComboBox3.Text = ""
ComboBox2.Text = 50000
ComboBox4.Text = 25000
txtfind.Text = ""
txtfind.Enabled = True
ComboBox1.Text = ""
ComboBox3.Text = ""
ComboBox6.Enabled = False
ComboBox5.Enabled = False
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox8.Text = ""

End Sub

Private Sub enabledtext()
btnadd.Enabled = True
btnedit.Enabled = True
btndel.Enabled = True
btnexit.Enabled = True
btnun.Enabled = False
btnsave.Enabled = False
txtno.Enabled = False
txtfirstname.Enabled = False
txtlastname.Enabled = False
cmbmi.Enabled = False
cmbchil.Enabled = False
cmbstat.Enabled = False
ComboBox1.Enabled = False
ComboBox2.Enabled = False
ComboBox3.Enabled = False
ComboBox5.Enabled = False
ComboBox4.Enabled = False
ComboBox6.Enabled = False
TextBox8.Enabled = False
DateTimePicker1.Enabled = False
DateTimePicker2.Enabled = False
End Sub



Private Sub disabledtext()
btnadd.Enabled = False
btnedit.Enabled = False
btndel.Enabled = False
btnexit.Enabled = True
btnun.Enabled = True
btnsave.Enabled = True
ComboBox5.Enabled = False
txtno.Enabled = True
txtfirstname.Enabled = False
txtlastname.Enabled = False
cmbmi.Enabled = False
cmbchil.Enabled = True
cmbstat.Enabled = False
ComboBox1.Enabled = False
ComboBox2.Enabled = False
ComboBox3.Enabled = FALSE
ComboBox4.Enabled = False
ComboBox6.Enabled = False
TextBox8.Enabled = True
DateTimePicker1.Enabled = True
DateTimePicker2.Enabled = True
End Sub

Private Sub txtno_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtno.KeyPress
If Asc(e.KeyChar) <= 32 Or _
(Asc(e.KeyChar) >= Asc("0") And Asc(e.KeyChar) <= Asc("9")) Then
Else
e.KeyChar = ""
End If
End Sub

Private Sub cmbstat_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
If e.KeyChar = Chr(13) Then
cmbchil.Focus()
End If
End Sub

Private Sub cmbchil_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
If e.KeyChar = Chr(13) Then
TextBox5.Focus()
End If
End Sub

Private Sub btndel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndel.Click

If MsgBox("Delete this current record, are you sure?", MsgBoxStyle.YesNo + MsgBoxStyle.Question + MsgBoxStyle.DefaultButton2, "Delete") = MsgBoxResult.Yes Then
Me.bndtax.RemoveAt(Me.bndtax.Position)
Me.TbcapelcoTableAdapter.Update(Me.Capelco1DataSet1.tbcapelco)

Me.bndtax1.RemoveAt(Me.bndtax1.Position)
Me.PhiltaxTableAdapter.Update(Me.PhiltaxDataSet.philtax)
MsgBox("Data successfully deleted!", MsgBoxStyle.Information, "Delete Ok")
End If
End Sub

Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click
Me.disabledtext()

End Sub

Private Sub btnnext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnext.Click
Me.bndtax.MoveNext()
Me.bndtax1.MoveNext()
ComboBox2.Text = 50000
ComboBox4.Text = 25000
ComboBox1.Text = ""
ComboBox3.Text = ""
ComboBox2.Enabled = False
ComboBox4.Enabled = False
End Sub

Private Sub btnpre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpre.Click
Me.bndtax.MovePrevious()
Me.bndtax1.MovePrevious()
ComboBox2.Text = 50000
ComboBox4.Text = 25000
ComboBox1.Text = ""
ComboBox3.Text = ""
ComboBox2.Enabled = False
ComboBox4.Enabled = False
End Sub

Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
Me.bndtax.EndEdit()
'Me.TbcapelcoTableAdapter.Fill(Me.Capelco1DataSet1.tbcapelco)
Me.TbcapelcoTableAdapter.Update(Me.Capelco1DataSet1.tbcapelco)
'makepayroll.txttax.Text = Me.txttax.Text
Me.bndtax1.EndEdit()
Me.PhiltaxTableAdapter.Update(Me.PhiltaxDataSet.philtax)
Me.PhiltaxTableAdapter.Fill(Me.PhiltaxDataSet.philtax)
MsgBox("Record Successfully Save", MsgBoxStyle.OkOnly, "SAVE")
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim S, C, B As Decimal
S = Val(ComboBox5.Text)
C = Val(TextBox8.Text)
B = Val(ComboBox6.Text)
TOTAL1 = S * C + B / 12
Me.txttax.Text = TOTAL1
End Sub

Private Sub txtfind_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtfind.TextChanged
Me.bndtax.Filter = " Lastname LIKE '" & Me.txtfind.Text & "%'"
Me.bndtax.Position += 1
If txtlastname.Text = "" Then
MsgBox("Record Does Not Exist!", MsgBoxStyle.Information, "Search Error")
Me.txtfind.Text = ""
End If
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Me.bndtax.Filter = "Salarygrade like'" & Button5.Text & "*'"
If Me.txtno.Text = "" Then
MsgBox("Record does not Exist.", MsgBoxStyle.Critical, "ERROR")
Me.bndtax.Filter = "Salarygrade like'" & Button5.Text & "*'"
End If
End Sub

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
makepayroll.ShowDialog()
End Sub
End Class
Back up Form
Public Class backup

Private Sub btnbackup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbackup.Click
If MsgBox("Continue with the backup operation?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Backup") = MsgBoxResult.Yes Then
My.Computer.FileSystem.CopyFile("dbpayroll.mdb", Me.ComboBox1.Text & "BackUp.mdb")
End If
End Sub

Private Sub backup_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 btncancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncancel.Click
Me.Close()
End Sub
End Class
Confirmation Form
Public Class confirmation

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

Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click
Dim Row As DataRow
For Each Row In Me.passdataset.tbpass
If (Row.Item("Username") = Me.txtuserid.Text) Then
If (Row.Item("password") = Me.txtpassword.Text) Then
changepass.useracess = True
MsgBox("Username and password verification GRANTED!", MsgBoxStyle.Information, "VERIFICATION")
Me.Dispose()
Else
MsgBox("Code did not match to the current record! Click 'OK' to retry.", MsgBoxStyle.Critical, "ERROR")
txtuserid.Text = ""
txtpassword.Text = ""
txtuserid.Enabled = True
txtpassword.Enabled = True
txtuserid.Focus()
End If
End If
Next
End Sub

Private Sub confirmation_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'PassDataSet.tbpass' table. You can move, or remove it, as needed.
Me.TbpassTableAdapter.Fill(Me.PassDataSet.tbpass)
End Sub
End Class
Changepass Form
Public Class changepass
Public useracess As Boolean

Private Sub changepass_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'PassDataSet.tbpass' table. You can move, or remove it, as needed.
Me.TbpassTableAdapter.Fill(Me.PassDataSet.tbpass)
Me.bndpass.AddNew()
End Sub

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

Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click
Me.bndpass.EndEdit()
Me.TbpassTableAdapter.Update(Me.PassDataSet.tbpass)
Me.TbpassTableAdapter.Fill(Me.PassDataSet.tbpass)
Me.Close()
MsgBox("Security changes successfully completed!", MsgBoxStyle.Information, "SECURITY")
End Sub

Private Sub changeuserpass_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
If Not useracess Then
Me.Dispose()
End If
End Sub
End Class
Payrollregister1 Form
Public Class payrollregister1

Private Sub payrollregister1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'Capelco1DataSet1.tbcapelco' table. You can move, or remove it, as needed.
Me.TbcapelcoTableAdapter.Fill(Me.Capelco1DataSet1.tbcapelco)
Me.CrystalReportViewer1.RefreshReport()
Me.CrystalReport41.SetDataSource(Me.Capelco1DataSet1)
Me.CrystalReportViewer1.RefreshReport()
'This will filter the records
Me.CrystalReportViewer1.SelectionFormula = "{tbcapelco.Salarygrade} like '" & preregister1.ComboBox1.Text & "'"
Me.CrystalReportViewer1.RefreshReport()
Me.CrystalReportViewer1.ReportSource = Me.CrystalReport41
End Sub
End Class
Payrollregister Form
Public Class payrollregister

Private Sub payrollregister_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'Capelco1DataSet1.tbcapelco' table. You can move, or remove it, as needed.
Me.TbcapelcoTableAdapter.Fill(Me.Capelco1DataSet1.tbcapelco)
Me.crv.RefreshReport()
Me.CrystalReport32.SetDataSource(Me.Capelco1DataSet1)
Me.crv.RefreshReport()
'This will filter the records
Me.crv.SelectionFormula = "{tbcapelco.Salarygrade} like '" & preregister.ComboBox1.Text & "'"
Me.crv.RefreshReport()
Me.crv.ReportSource = Me.CrystalReport32
End Sub
End Class

Payrollprooflist1 Form

Public Class payrollprooflist1

Private Sub payrollprooflist1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'Capelco1DataSet1.tbcapelco' table. You can move, or remove it, as needed.
Me.TbcapelcoTableAdapter.Fill(Me.Capelco1DataSet1.tbcapelco)
Me.CrystalReportViewer1.RefreshReport()
Me.CrystalReport61.SetDataSource(Me.Capelco1DataSet1)
Me.CrystalReportViewer1.RefreshReport()
'This will filter the records
Me.CrystalReportViewer1.SelectionFormula = "{tbcapelco.Salarygrade} like '" & preprooflist2.ComboBox1.Text & "'"
Me.CrystalReportViewer1.RefreshReport()
Me.CrystalReportViewer1.ReportSource = Me.CrystalReport61
End Sub
End Class

Payrollprooflist Form

Public Class payrollprooflist

Private Sub payrollprooflist_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'Capelco1DataSet1.tbcapelco' table. You can move, or remove it, as needed.
Me.TbcapelcoTableAdapter.Fill(Me.Capelco1DataSet1.tbcapelco)
Me.CrystalReportViewer1.RefreshReport()
Me.CrystalReport51.SetDataSource(Me.Capelco1DataSet1)
Me.CrystalReportViewer1.RefreshReport()
'This will filter the records
Me.CrystalReportViewer1.SelectionFormula = "{tbcapelco.Salarygrade} like '" & preprooflist.ComboBox1.Text & "'"
Me.CrystalReportViewer1.RefreshReport()
Me.CrystalReportViewer1.ReportSource = Me.CrystalReport51
End Sub
End Class




Print Pay Form
Public Class printpay

Private Sub printpay_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'Capelco1DataSet1.tbcapelco' table. You can move, or remove it, as needed.
Me.TbcapelcoTableAdapter.Fill(Me.Capelco1DataSet1.tbcapelco)
Me.CrystalReportViewer1.RefreshReport()
Me.CrystalReport11.SetDataSource(Me.Capelco1DataSet1)
Me.CrystalReportViewer1.RefreshReport()
'This will filter the records
Me.CrystalReportViewer1.SelectionFormula = "{tbcapelco.Salarygrade} like '" & prepayslip.ComboBox1.Text & "'"
Me.CrystalReportViewer1.RefreshReport()
Me.CrystalReportViewer1.ReportSource = Me.CrystalReport11
End Sub
End Class
Preregister1 Form
Public Class preregister1

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

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

End Sub

Private Sub btnpre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpre.Click
If (Me.ComboBox1.SelectedIndex = 0) Then
payrollregister1.CrystalReport41.SetDataSource(Me.Capelco1DataSet1)
TextBox1.Text = "REGULAR"
payrollregister1.CrystalReportViewer1.SelectionFormula = "{tbcapelco.Salarygrade}='" & TextBox1.Text & "'"
payrollregister1.CrystalReportViewer1.Update()
payrollregister1.CrystalReportViewer1.Refresh()
payrollregister1.CrystalReportViewer1.RefreshReport()
payrollregister1.ShowDialog()
Else
payrollregister1.CrystalReport41.SetDataSource(Me.Capelco1DataSet1)
TextBox2.Text = "JOB ORDER"
payrollregister1.CrystalReportViewer1.SelectionFormula = "{tbcapelco.Salarygrade}='" & TextBox2.Text & "'"
payrollregister1.CrystalReportViewer1.Update()
payrollregister1.CrystalReportViewer1.Refresh()
payrollregister1.CrystalReportViewer1.RefreshReport()
payrollregister1.ShowDialog()
End If
End Sub
End Class

Preregister Form
Public Class preregister

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

Private Sub btnpre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpre.Click
If (Me.ComboBox1.SelectedIndex = 0) Then
payrollregister.CrystalReport32.SetDataSource(Me.Capelco1DataSet1)
TextBox1.Text = "REGULAR"
payrollregister.crv.SelectionFormula = "{tbcapelco.Salarygrade}='" & TextBox1.Text & "'"
payrollregister.crv.Update()
payrollregister.crv.Refresh()
payrollregister.crv.RefreshReport()
payrollregister.ShowDialog()
Else
payrollregister.CrystalReport32.SetDataSource(Me.Capelco1DataSet1)
TextBox2.Text = "JOB ORDER"
payrollregister.crv.SelectionFormula = "{tbcapelco.Salarygrade}='" & TextBox2.Text & "'"
payrollregister.crv.Update()
payrollregister.crv.Refresh()
payrollregister.crv.RefreshReport()
payrollregister.ShowDialog()
End If
End Sub

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

End Sub
End Class


Preprroflist2 Form
Public Class preprooflist2

Private Sub btnpre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpre.Click
If (Me.ComboBox1.SelectedIndex = 0) Then
payrollprooflist1.CrystalReport61.SetDataSource(Me.Capelco1DataSet1)
TextBox1.Text = "REGULAR"
payrollprooflist1.CrystalReportViewer1.SelectionFormula = "{tbcapelco.Salarygrade}='" & TextBox1.Text & "'"
payrollprooflist1.CrystalReportViewer1.Update()
payrollprooflist1.CrystalReportViewer1.Refresh()
payrollprooflist1.CrystalReportViewer1.RefreshReport()
payrollprooflist1.ShowDialog()
Else
payrollprooflist1.CrystalReport61.SetDataSource(Me.Capelco1DataSet1)
TextBox2.Text = "JOB ORDER"
payrollprooflist1.CrystalReportViewer1.SelectionFormula = "{tbcapelco.Salarygrade}='" & TextBox2.Text & "'"
payrollprooflist1.CrystalReportViewer1.Update()
payrollprooflist1.CrystalReportViewer1.Refresh()
payrollprooflist1.CrystalReportViewer1.RefreshReport()
payrollprooflist1.ShowDialog()
End If
End Sub

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

End Sub

Private Sub btncan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncan.Click
Me.Close()
End Sub
End Class
Preprroflist Form
Public Class preprooflist

Private Sub btnpre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpre.Click
If (Me.ComboBox1.SelectedIndex = 0) Then payrollprooflist.CrystalReport51.SetDataSource(Me.Capelco1DataSet1)
TextBox1.Text = "REGULAR"
payrollprooflist.CrystalReportViewer1.SelectionFormula = "{tbcapelco.Salarygrade}='" & TextBox1.Text & "'"
payrollprooflist.CrystalReportViewer1.Update()
payrollprooflist.CrystalReportViewer1.Refresh()
payrollprooflist.CrystalReportViewer1.RefreshReport()
payrollprooflist.ShowDialog()
Else
payrollprooflist.CrystalReport51.SetDataSource(Me.Capelco1DataSet1)
TextBox2.Text = "JOB ORDER"
payrollprooflist.CrystalReportViewer1.SelectionFormula = "{tbcapelco.Salarygrade}='" & TextBox2.Text & "'"
payrollprooflist.CrystalReportViewer1.Update()
payrollprooflist.CrystalReportViewer1.Refresh()
payrollprooflist.CrystalReportViewer1.RefreshReport()
payrollprooflist.ShowDialog()
End If
End Sub

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

Private Sub btncan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncan.Click
Me.Close()
End Sub
End Class

Employeelist Form
Public Class employeelist

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

End Sub
End Class
Prepayslip Form
Public Class prepayslip

Private Sub btnpre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpre.Click
If (Me.ComboBox1.SelectedIndex = 0) Then
printpay.CrystalReport11.SetDataSource(Me.Capelco1DataSet1)
TextBox1.Text = "REGULAR"
printpay.CrystalReportViewer1.SelectionFormula = "{tbcapelco.Salarygrade}='" & TextBox1.Text & "'"
printpay.CrystalReportViewer1.Update()
printpay.CrystalReportViewer1.Refresh()
printpay.CrystalReportViewer1.RefreshReport()
printpay.ShowDialog()

Else
printpay.CrystalReport11.SetDataSource(Me.Capelco1DataSet1)
TextBox2.Text = "JOB ORDER"
printpay.CrystalReportViewer1.SelectionFormula = "{tbcapelco.Salarygrade}='" & TextBox2.Text & "'"
printpay.CrystalReportViewer1.Update()
printpay.CrystalReportViewer1.Refresh()
printpay.CrystalReportViewer1.RefreshReport()
printpay.ShowDialog()
End If
End Sub

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

Private Sub btncan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncan.Click
Me.Close()
End Sub
End Class
Preoffice Form
Public Class preoffice

Private Sub btncan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncan.Click
Me.Close()

End Sub

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

End Sub

Private Sub btnpre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpre.Click

If TextBox1.Text = "" Then
employeelist.masterlist.SetDataSource(Me.Capelco1DataSet1)
TextBox1.Text = "Timpas, Panitan"
employeelist.CrystalReportViewer1.SelectionFormula = "{tbcapelco.AreaOffice}='" & TextBox1.Text & "'"
employeelist.CrystalReportViewer1.Update()
employeelist.CrystalReportViewer1.Refresh()
employeelist.CrystalReportViewer1.RefreshReport()
employeelist.ShowDialog()
ElseIf TextBox2.Text = "" Then
employeelist.masterlist.SetDataSource(Me.Capelco1DataSet1)
TextBox2.Text = "Roxas City"
employeelist.CrystalReportViewer1.SelectionFormula = "{tbcapelco.AreaOffice}='" & TextBox2.Text & "'"
employeelist.CrystalReportViewer1.Update()
employeelist.CrystalReportViewer1.Refresh()
employeelist.CrystalReportViewer1.RefreshReport()
employeelist.ShowDialog()
ElseIf TextBox3.Text = "" Then
employeelist.masterlist.SetDataSource(Me.Capelco1DataSet1)
TextBox3.Text = "President Roxas"
employeelist.CrystalReportViewer1.SelectionFormula = "{tbcapelco.AreaOffice}='" & TextBox3.Text & "'"
employeelist.CrystalReportViewer1.Update()
employeelist.CrystalReportViewer1.Refresh()
employeelist.CrystalReportViewer1.RefreshReport()
employeelist.ShowDialog()
ElseIf TextBox4.Text = "" Then
employeelist.masterlist.SetDataSource(Me.Capelco1DataSet1)
TextBox4.Text = "Dao"
employeelist.CrystalReportViewer1.SelectionFormula = "{tbcapelco.AreaOffice}='" & TextBox4.Text & "'"
employeelist.CrystalReportViewer1.Update()
employeelist.CrystalReportViewer1.Refresh()
employeelist.CrystalReportViewer1.RefreshReport()
employeelist.ShowDialog()
ElseIf TextBox5.Text = "" Then
employeelist.masterlist.SetDataSource(Me.Capelco1DataSet1)
TextBox5.Text = "Mambusao"
employeelist.CrystalReportViewer1.SelectionFormula = "{tbcapelco.AreaOffice}='" & TextBox5.Text & "'"
employeelist.CrystalReportViewer1.Update()
employeelist.CrystalReportViewer1.Refresh()
employeelist.CrystalReportViewer1.RefreshReport()
employeelist.ShowDialog()
ElseIf TextBox6.Text = "" Then
employeelist.masterlist.SetDataSource(Me.Capelco1DataSet1)
TextBox6.Text = "Dumalag"
employeelist.CrystalReportViewer1.SelectionFormula = "{tbcapelco.AreaOffice}='" & TextBox6.Text & "'"
employeelist.CrystalReportViewer1.Update()
employeelist.CrystalReportViewer1.Refresh()
employeelist.CrystalReportViewer1.RefreshReport()
employeelist.ShowDialog()
End If

End Sub
End Class
Prelist Form
Public Class printlist

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

Private Sub btnpre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpre.Click
If (Me.ComboBox1.SelectedIndex = 0) Then
employeelist.masterlist.SetDataSource(Me.Capelco1DataSet1)
TextBox1.Text = "REGULAR"
employeelist.CrystalReportViewer1.SelectionFormula = "{tbcapelco.Salarygrade}='" & TextBox1.Text & "'"
employeelist.CrystalReportViewer1.Update()
employeelist.CrystalReportViewer1.Refresh()
employeelist.CrystalReportViewer1.RefreshReport()
employeelist.ShowDialog()
Else
employeelist.masterlist.SetDataSource(Me.Capelco1DataSet1)
TextBox2.Text = "JOB ORDER"
employeelist.CrystalReportViewer1.SelectionFormula = "{tbcapelco.Salarygrade}='" & TextBox2.Text & "'"
employeelist.CrystalReportViewer1.Update()
employeelist.CrystalReportViewer1.Refresh()
employeelist.CrystalReportViewer1.RefreshReport()
employeelist.ShowDialog()
End If
End Sub

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

End Sub
End Class