empyroll.vb

humar resourse management

        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_emp_dob", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "emp_dob", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_emp_dob1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "emp_dob", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_emp_fname", System.Data.OleDb.OleDbType.VarWChar, 50, 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, 50, 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_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_mname", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "emp_mname", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_emp_mname1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "emp_mname", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_emp_pass", System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "emp_pass", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_emp_pass1", System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "emp_pass", 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))
        '
        '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", "tblEmployee", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("emp_addr", "emp_addr"), New System.Data.Common.DataColumnMapping("emp_age", "emp_age"), New System.Data.Common.DataColumnMapping("emp_dob", "emp_dob"), 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_mname", "emp_mname"), New System.Data.Common.DataColumnMapping("emp_pass", "emp_pass"), New System.Data.Common.DataColumnMapping("emp_pos", "emp_pos"), New System.Data.Common.DataColumnMapping("emp_stat", "emp_stat")})})
        Me.OleDbDataAdapter1.UpdateCommand = Me.OleDbUpdateCommand1
        '
        'objnewEmpDS
        '
        Me.objnewEmpDS.DataSetName = "newEmpDS"
        Me.objnewEmpDS.Locale = New System.Globalization.CultureInfo("en-US")
        '
        'btnUpdate
        '
        Me.btnUpdate.Location = New System.Drawing.Point(304, 24)
        Me.btnUpdate.Name = "btnUpdate"
        Me.btnUpdate.TabIndex = 99
        Me.btnUpdate.Text = "&Update"
        '
        'btnCancelAll
        '
        Me.btnCancelAll.Location = New System.Drawing.Point(304, 16)
        Me.btnCancelAll.Name = "btnCancelAll"
        Me.btnCancelAll.TabIndex = 33
        Me.btnCancelAll.Text = "Ca&ncel All"
        '
        '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(264, 96)
        Me.lblemp_fname.Name = "lblemp_fname"
        Me.lblemp_fname.Size = New System.Drawing.Size(120, 23)
        Me.lblemp_fname.TabIndex = 3
        Me.lblemp_fname.Text = "Employee First Name"
        '
        '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(56, 96)
        Me.lblemp_idno.Name = "lblemp_idno"
        Me.lblemp_idno.TabIndex = 4
        Me.lblemp_idno.Text = "Employee ID #"
        '
        'editemp_fname
        '
        Me.editemp_fname.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.editemp_fname.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objnewEmpDS, "tblEmployee.emp_fname"))
        Me.editemp_fname.Location = New System.Drawing.Point(240, 112)
        Me.editemp_fname.Name = "editemp_fname"
        Me.editemp_fname.ReadOnly = True
        Me.editemp_fname.Size = New System.Drawing.Size(176, 20)
        Me.editemp_fname.TabIndex = 3
        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.objnewEmpDS, "tblEmployee.emp_idno"))
        Me.editemp_idno.Location = New System.Drawing.Point(16, 112)
        Me.editemp_idno.Name = "editemp_idno"
        Me.editemp_idno.ReadOnly = True
        Me.editemp_idno.Size = New System.Drawing.Size(176, 20)
        Me.editemp_idno.TabIndex = 2
        Me.editemp_idno.Text = ""
        '
        '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(48, 144)
        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 Porision"
        '
        '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(280, 144)
        Me.lblemp_stat.Name = "lblemp_stat"
        Me.lblemp_stat.TabIndex = 8
        Me.lblemp_stat.Text = "Employee Status"
        '
        'editemp_pos
        '
        Me.editemp_pos.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.editemp_pos.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objnewEmpDS, "tblEmployee.emp_pos"))
        Me.editemp_pos.Location = New System.Drawing.Point(16, 160)
        Me.editemp_pos.Name = "editemp_pos"
        Me.editemp_pos.ReadOnly = True
        Me.editemp_pos.Size = New System.Drawing.Size(176, 20)
        Me.editemp_pos.TabIndex = 4
        Me.editemp_pos.Text = ""
        '
        'editemp_stat
        '
        Me.editemp_stat.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.editemp_stat.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objnewEmpDS, "tblEmployee.emp_stat"))
        Me.editemp_stat.Location = New System.Drawing.Point(240, 160)
        Me.editemp_stat.Name = "editemp_stat"
        Me.editemp_stat.ReadOnly = True
        Me.editemp_stat.Size = New System.Drawing.Size(176, 20)
        Me.editemp_stat.TabIndex = 5
        Me.editemp_stat.Text = ""
        '
        'btnNavFirst
        '
        Me.btnNavFirst.Location = New System.Drawing.Point(48, 24)
        Me.btnNavFirst.Name = "btnNavFirst"
        Me.btnNavFirst.Size = New System.Drawing.Size(40, 23)
        Me.btnNavFirst.TabIndex = 55
        Me.btnNavFirst.Text = "<<"
        '
        'btnNavPrev
        '
        Me.btnNavPrev.Location = New System.Drawing.Point(88, 24)
        Me.btnNavPrev.Name = "btnNavPrev"
        Me.btnNavPrev.Size = New System.Drawing.Size(35, 23)
        Me.btnNavPrev.TabIndex = 66
        Me.btnNavPrev.Text = "<"
        '
        'lblNavLocation
        '
        Me.lblNavLocation.BackColor = System.Drawing.Color.White
        Me.lblNavLocation.Location = New System.Drawing.Point(120, 24)
        Me.lblNavLocation.Name = "lblNavLocation"
        Me.lblNavLocation.Size = New System.Drawing.Size(95, 23)
        Me.lblNavLocation.TabIndex = 22
        Me.lblNavLocation.Text = "No Records"
        Me.lblNavLocation.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'btnNavNext
        '
        Me.btnNavNext.Location = New System.Drawing.Point(216, 24)
        Me.btnNavNext.Name = "btnNavNext"
        Me.btnNavNext.Size = New System.Drawing.Size(35, 23)
        Me.btnNavNext.TabIndex = 14
        Me.btnNavNext.Text = ">"
        '
        'btnLast
        '
        Me.btnLast.Location = New System.Drawing.Point(256, 24)
        Me.btnLast.Name = "btnLast"
        Me.btnLast.Size = New System.Drawing.Size(40, 23)
        Me.btnLast.TabIndex = 15
        Me.btnLast.Text = ">>"
        '
        'btnAdd
        '
        Me.btnAdd.Location = New System.Drawing.Point(48, 16)
        Me.btnAdd.Name = "btnAdd"
        Me.btnAdd.TabIndex = 16
        Me.btnAdd.Text = "&Add"
        '
        'btnDelete
        '
        Me.btnDelete.Location = New System.Drawing.Point(136, 16)
        Me.btnDelete.Name = "btnDelete"
        Me.btnDelete.TabIndex = 17
        Me.btnDelete.Text = "&Delete"
        '
        'btnCancel
        '
        Me.btnCancel.Location = New System.Drawing.Point(216, 16)
        Me.btnCancel.Name = "btnCancel"
        Me.btnCancel.TabIndex = 18
        Me.btnCancel.Text = "&Cancel"
        '
        'OleDbDataAdapter2
        '
        Me.OleDbDataAdapter2.DeleteCommand = Me.OleDbDeleteCommand2
        Me.OleDbDataAdapter2.InsertCommand = Me.OleDbInsertCommand2
        Me.OleDbDataAdapter2.SelectCommand = Me.OleDbSelectCommand2
        Me.OleDbDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "tblEmployee", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("emp_fname", "emp_fname"), New System.Data.Common.DataColumnMapping("emp_idno", "emp_idno"), New System.Data.Common.DataColumnMapping("emp_pos", "emp_pos"), New System.Data.Common.DataColumnMapping("emp_stat", "emp_stat")})})
        Me.OleDbDataAdapter2.UpdateCommand = Me.OleDbUpdateCommand2
        '
        'OleDbDeleteCommand2
        '
        Me.OleDbDeleteCommand2.CommandText = "DELETE FROM tblEmployee WHERE (emp_idno = ?) AND (emp_fname = ? OR ? IS NULL AND " & _
        "emp_fname IS NULL) AND (emp_pos = ? OR ? IS NULL AND emp_pos IS NULL) AND (emp_s" & _
        "tat = ? OR ? IS NULL AND emp_stat IS NULL)"
        Me.OleDbDeleteCommand2.Connection = Me.OleDbConnection1
        Me.OleDbDeleteCommand2.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.OleDbDeleteCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_emp_fname", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "emp_fname", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_emp_fname1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "emp_fname", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand2.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.OleDbDeleteCommand2.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.OleDbDeleteCommand2.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.OleDbDeleteCommand2.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))
        '
        'OleDbInsertCommand2
        '
        Me.OleDbInsertCommand2.CommandText = "INSERT INTO tblEmployee(emp_fname, emp_idno, emp_pos, emp_stat) VALUES (?, ?, ?, " & _
        "?)"
        Me.OleDbInsertCommand2.Connection = Me.OleDbConnection1
        Me.OleDbInsertCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("emp_fname", System.Data.OleDb.OleDbType.VarWChar, 50, "emp_fname"))
        Me.OleDbInsertCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("emp_idno", System.Data.OleDb.OleDbType.VarWChar, 7, "emp_idno"))
        Me.OleDbInsertCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("emp_pos", System.Data.OleDb.OleDbType.VarWChar, 50, "emp_pos"))
        Me.OleDbInsertCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("emp_stat", System.Data.OleDb.OleDbType.VarWChar, 4, "emp_stat"))
        '
        'OleDbSelectCommand2
        '
        Me.OleDbSelectCommand2.CommandText = "SELECT emp_fname, emp_idno, emp_pos, emp_stat FROM tblEmployee"
        Me.OleDbSelectCommand2.Connection = Me.OleDbConnection1
        '