delpay.vb

humar resourse management

        "nt] IS NULL) AND (emp_fname = ? OR ? IS NULL AND emp_fname IS NULL) AND (emp_idn" & _
        "o = ? OR ? IS NULL AND emp_idno IS NULL) AND (emp_lname = ? OR ? IS NULL AND emp" & _
        "_lname IS NULL) AND (emp_pos = ? OR ? IS NULL AND emp_pos IS NULL) AND (emp_stat" & _
        " = ? OR ? IS NULL AND emp_stat IS NULL) AND (netPay = ? OR ? IS NULL AND netPay " & _
        "IS NULL) AND (payDate = ? OR ? IS NULL AND payDate IS NULL) AND (wHours = ? OR ?" & _
        " IS NULL AND wHours IS NULL)"
        Me.OleDbDeleteCommand1.Connection = Me.OleDbConnection1
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_payID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "payID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original__Amount", System.Data.OleDb.OleDbType.Currency, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "$Amount", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original__Amount1", System.Data.OleDb.OleDbType.Currency, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "$Amount", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_emp_fname", System.Data.OleDb.OleDbType.VarWChar, 30, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "emp_fname", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_emp_fname1", System.Data.OleDb.OleDbType.VarWChar, 30, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "emp_fname", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_emp_idno", System.Data.OleDb.OleDbType.VarWChar, 7, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "emp_idno", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_emp_idno1", System.Data.OleDb.OleDbType.VarWChar, 7, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "emp_idno", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_emp_lname", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "emp_lname", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_emp_lname1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "emp_lname", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_emp_pos", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "emp_pos", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_emp_pos1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "emp_pos", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_emp_stat", System.Data.OleDb.OleDbType.VarWChar, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "emp_stat", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_emp_stat1", System.Data.OleDb.OleDbType.VarWChar, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "emp_stat", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_netPay", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "netPay", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_netPay1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "netPay", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_payDate", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "payDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_payDate1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "payDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_wHours", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "wHours", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_wHours1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "wHours", System.Data.DataRowVersion.Original, Nothing))
        '
        'OleDbDataAdapter1
        '
        Me.OleDbDataAdapter1.DeleteCommand = Me.OleDbDeleteCommand1
        Me.OleDbDataAdapter1.InsertCommand = Me.OleDbInsertCommand1
        Me.OleDbDataAdapter1.SelectCommand = Me.OleDbSelectCommand1
        Me.OleDbDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "ePayroll", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("$Amount", "$Amount"), New System.Data.Common.DataColumnMapping("emp_fname", "emp_fname"), New System.Data.Common.DataColumnMapping("emp_idno", "emp_idno"), New System.Data.Common.DataColumnMapping("emp_lname", "emp_lname"), New System.Data.Common.DataColumnMapping("emp_pos", "emp_pos"), New System.Data.Common.DataColumnMapping("emp_stat", "emp_stat"), New System.Data.Common.DataColumnMapping("netPay", "netPay"), New System.Data.Common.DataColumnMapping("payDate", "payDate"), New System.Data.Common.DataColumnMapping("payID", "payID"), New System.Data.Common.DataColumnMapping("wHours", "wHours")})})
        Me.OleDbDataAdapter1.UpdateCommand = Me.OleDbUpdateCommand1
        '
        'objdelPayDS
        '
        Me.objdelPayDS.DataSetName = "delPayDS"
        Me.objdelPayDS.Locale = New System.Globalization.CultureInfo("en-US")
        '
        'btnUpdate
        '
        Me.btnUpdate.Location = New System.Drawing.Point(432, 112)
        Me.btnUpdate.Name = "btnUpdate"
        Me.btnUpdate.Size = New System.Drawing.Size(48, 16)
        Me.btnUpdate.TabIndex = 88
        Me.btnUpdate.Text = "&Update"
        '
        'lbl_Amount
        '
        Me.lbl_Amount.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lbl_Amount.Location = New System.Drawing.Point(424, 63)
        Me.lbl_Amount.Name = "lbl_Amount"
        Me.lbl_Amount.Size = New System.Drawing.Size(64, 23)
        Me.lbl_Amount.TabIndex = 3
        Me.lbl_Amount.Text = "$ Per Hour"
        Me.lbl_Amount.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'lblemp_fname
        '
        Me.lblemp_fname.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblemp_fname.Location = New System.Drawing.Point(16, 63)
        Me.lblemp_fname.Name = "lblemp_fname"
        Me.lblemp_fname.Size = New System.Drawing.Size(96, 23)
        Me.lblemp_fname.TabIndex = 4
        Me.lblemp_fname.Text = "Employee Name:"
        Me.lblemp_fname.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'lblemp_idno
        '
        Me.lblemp_idno.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblemp_idno.Location = New System.Drawing.Point(24, 39)
        Me.lblemp_idno.Name = "lblemp_idno"
        Me.lblemp_idno.Size = New System.Drawing.Size(88, 23)
        Me.lblemp_idno.TabIndex = 5
        Me.lblemp_idno.Text = "Employee  ID#:"
        Me.lblemp_idno.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'lblemp_pos
        '
        Me.lblemp_pos.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblemp_pos.Location = New System.Drawing.Point(0, 87)
        Me.lblemp_pos.Name = "lblemp_pos"
        Me.lblemp_pos.Size = New System.Drawing.Size(112, 23)
        Me.lblemp_pos.TabIndex = 7
        Me.lblemp_pos.Text = "Employee Position:"
        Me.lblemp_pos.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'edit_Amount
        '
        Me.edit_Amount.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.edit_Amount.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objdelPayDS, "ePayroll.$Amount"))
        Me.edit_Amount.Location = New System.Drawing.Point(320, 64)
        Me.edit_Amount.Name = "edit_Amount"
        Me.edit_Amount.ReadOnly = True
        Me.edit_Amount.TabIndex = 8
        Me.edit_Amount.Text = ""
        Me.edit_Amount.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'editemp_fname
        '
        Me.editemp_fname.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.editemp_fname.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objdelPayDS, "ePayroll.emp_fname"))
        Me.editemp_fname.Location = New System.Drawing.Point(112, 64)
        Me.editemp_fname.Name = "editemp_fname"
        Me.editemp_fname.ReadOnly = True
        Me.editemp_fname.TabIndex = 9
        Me.editemp_fname.Text = ""
        '
        'editemp_idno
        '
        Me.editemp_idno.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.editemp_idno.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objdelPayDS, "ePayroll.emp_idno"))
        Me.editemp_idno.Location = New System.Drawing.Point(112, 40)
        Me.editemp_idno.Name = "editemp_idno"
        Me.editemp_idno.ReadOnly = True
        Me.editemp_idno.TabIndex = 10
        Me.editemp_idno.Text = ""
        '
        'editemp_pos
        '
        Me.editemp_pos.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.editemp_pos.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objdelPayDS, "ePayroll.emp_pos"))
        Me.editemp_pos.Location = New System.Drawing.Point(112, 88)
        Me.editemp_pos.Name = "editemp_pos"
        Me.editemp_pos.ReadOnly = True
        Me.editemp_pos.TabIndex = 12
        Me.editemp_pos.Text = ""
        '
        'lblemp_stat
        '
        Me.lblemp_stat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblemp_stat.Location = New System.Drawing.Point(8, 111)
        Me.lblemp_stat.Name = "lblemp_stat"
        Me.lblemp_stat.TabIndex = 13
        Me.lblemp_stat.Text = "Employee Status:"
        Me.lblemp_stat.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'lblnetPay
        '
        Me.lblnetPay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblnetPay.Location = New System.Drawing.Point(424, 87)
        Me.lblnetPay.Name = "lblnetPay"
        Me.lblnetPay.Size = New System.Drawing.Size(56, 23)
        Me.lblnetPay.TabIndex = 14
        Me.lblnetPay.Text = "NET Pay"
        Me.lblnetPay.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'lblpayDate
        '
        Me.lblpayDate.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblpayDate.Location = New System.Drawing.Point(424, 111)
        Me.lblpayDate.Name = "lblpayDate"
        Me.lblpayDate.Size = New System.Drawing.Size(56, 23)
        Me.lblpayDate.TabIndex = 15
        Me.lblpayDate.Text = "Pay Date"
        Me.lblpayDate.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'lblpayID
        '
        Me.lblpayID.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblpayID.Location = New System.Drawing.Point(232, 48)
        Me.lblpayID.Name = "lblpayID"
        Me.lblpayID.Size = New System.Drawing.Size(72, 23)
        Me.lblpayID.TabIndex = 16
        Me.lblpayID.Text = "Payroll ID #"
        Me.lblpayID.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'lblwHours
        '
        Me.lblwHours.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblwHours.Location = New System.Drawing.Point(424, 39)
        Me.lblwHours.Name = "lblwHours"
        Me.lblwHours.Size = New System.Drawing.Size(80, 23)
        Me.lblwHours.TabIndex = 17
        Me.lblwHours.Text = "Hours Worked"
        Me.lblwHours.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'editemp_stat
        '
        Me.editemp_stat.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.editemp_stat.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objdelPayDS, "ePayroll.emp_stat"))
        Me.editemp_stat.Location = New System.Drawing.Point(112, 112)
        Me.editemp_stat.Name = "editemp_stat"
        Me.editemp_stat.ReadOnly = True
        Me.editemp_stat.TabIndex = 18
        Me.editemp_stat.Text = ""
        '
        'editnetPay
        '
        Me.editnetPay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle