frmistatus.vb

humar resourse management

        'Name1
        '
        Me.Name1.Format = ""
        Me.Name1.FormatInfo = Nothing
        Me.Name1.HeaderText = "Name"
        Me.Name1.MappingName = "Candidate_Personal.Name"
        Me.Name1.ReadOnly = True
        Me.Name1.Width = 150
        '
        'PassportNumber
        '
        Me.PassportNumber.Format = ""
        Me.PassportNumber.FormatInfo = Nothing
        Me.PassportNumber.HeaderText = "PP No#"
        Me.PassportNumber.MappingName = "PassportNumber"
        Me.PassportNumber.ReadOnly = True
        Me.PassportNumber.Width = 80
        '
        'Title
        '
        Me.Title.Format = ""
        Me.Title.FormatInfo = Nothing
        Me.Title.HeaderText = "Job Title"
        Me.Title.MappingName = "Title"
        Me.Title.Width = 140
        '
        'IStatus
        '
        Me.IStatus.Format = ""
        Me.IStatus.FormatInfo = Nothing
        Me.IStatus.HeaderText = "Status"
        Me.IStatus.MappingName = "IStatus"
        Me.IStatus.ReadOnly = True
        Me.IStatus.Width = 80
        '
        'MStatus
        '
        Me.MStatus.Format = ""
        Me.MStatus.FormatInfo = Nothing
        Me.MStatus.HeaderText = "Medical"
        Me.MStatus.MappingName = "MStatus"
        Me.MStatus.ReadOnly = True
        Me.MStatus.Width = 80
        '
        'VStatus
        '
        Me.VStatus.Format = ""
        Me.VStatus.FormatInfo = Nothing
        Me.VStatus.HeaderText = "Visa"
        Me.VStatus.MappingName = "VStatus"
        Me.VStatus.ReadOnly = True
        Me.VStatus.Width = 80
        '
        'Departure
        '
        Me.Departure.Format = ""
        Me.Departure.FormatInfo = Nothing
        Me.Departure.HeaderText = "Departure"
        Me.Departure.MappingName = "Departure"
        Me.Departure.ReadOnly = True
        Me.Departure.Width = 80
        '
        'Label1
        '
        Me.Label1.BackColor = System.Drawing.SystemColors.Control
        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label1.ForeColor = System.Drawing.Color.Black
        Me.Label1.Location = New System.Drawing.Point(332, 16)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(136, 24)
        Me.Label1.TabIndex = 3
        Me.Label1.Text = "Interview Status"
        '
        'Label2
        '
        Me.Label2.BackColor = System.Drawing.SystemColors.Control
        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label2.ForeColor = System.Drawing.Color.Black
        Me.Label2.Location = New System.Drawing.Point(98, 66)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(64, 16)
        Me.Label2.TabIndex = 4
        Me.Label2.Text = "Client:"
        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'lblStatus
        '
        Me.lblStatus.BackColor = System.Drawing.SystemColors.Control
        Me.lblStatus.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.lblStatus.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblStatus.ForeColor = System.Drawing.Color.Black
        Me.lblStatus.Location = New System.Drawing.Point(414, 66)
        Me.lblStatus.Name = "lblStatus"
        Me.lblStatus.Size = New System.Drawing.Size(48, 16)
        Me.lblStatus.TabIndex = 5
        Me.lblStatus.Text = "Status:"
        '
        'btnGo
        '
        Me.btnGo.BackColor = System.Drawing.Color.Chocolate
        Me.btnGo.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnGo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnGo.ForeColor = System.Drawing.Color.Black
        Me.btnGo.Location = New System.Drawing.Point(666, 62)
        Me.btnGo.Name = "btnGo"
        Me.btnGo.Size = New System.Drawing.Size(36, 24)
        Me.btnGo.TabIndex = 3
        Me.btnGo.Text = "&Go"
        '
        'btnClose
        '
        Me.btnClose.BackColor = System.Drawing.Color.Chocolate
        Me.btnClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnClose.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnClose.ForeColor = System.Drawing.Color.Black
        Me.btnClose.Location = New System.Drawing.Point(336, 424)
        Me.btnClose.Name = "btnClose"
        Me.btnClose.Size = New System.Drawing.Size(128, 23)
        Me.btnClose.TabIndex = 5
        Me.btnClose.Text = "&Close Interview"
        '
        '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", "Status", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("ClientID", "ClientID"), New System.Data.Common.DataColumnMapping("DDate", "DDate"), New System.Data.Common.DataColumnMapping("Departure", "Departure"), New System.Data.Common.DataColumnMapping("ID", "ID"), New System.Data.Common.DataColumnMapping("ID1", "ID1"), New System.Data.Common.DataColumnMapping("IDate", "IDate"), New System.Data.Common.DataColumnMapping("ILocation", "ILocation"), New System.Data.Common.DataColumnMapping("IStatus", "IStatus"), New System.Data.Common.DataColumnMapping("JobID", "JobID"), New System.Data.Common.DataColumnMapping("MDate", "MDate"), New System.Data.Common.DataColumnMapping("MStatus", "MStatus"), New System.Data.Common.DataColumnMapping("Remarks", "Remarks"), New System.Data.Common.DataColumnMapping("VDate", "VDate"), New System.Data.Common.DataColumnMapping("VStatus", "VStatus")})})
        Me.OleDbDataAdapter1.UpdateCommand = Me.OleDbUpdateCommand1
        '
        'OleDbDeleteCommand1
        '
        Me.OleDbDeleteCommand1.CommandText = "DELETE FROM Status WHERE (ID1 = ?) AND (ClientID = ? OR ? IS NULL AND ClientID IS" & _
        " NULL) AND (DDate = ? OR ? IS NULL AND DDate IS NULL) AND (Departure = ? OR ? IS" & _
        " NULL AND Departure IS NULL) AND (ID = ? OR ? IS NULL AND ID IS NULL) AND (IDate" & _
        " = ? OR ? IS NULL AND IDate IS NULL) AND (ILocation = ? OR ? IS NULL AND ILocati" & _
        "on IS NULL) AND (IStatus = ? OR ? IS NULL AND IStatus IS NULL) AND (JobID = ? OR" & _
        " ? IS NULL AND JobID IS NULL) AND (MDate = ? OR ? IS NULL AND MDate IS NULL) AND" & _
        " (MStatus = ? OR ? IS NULL AND MStatus IS NULL) AND (Remarks = ? OR ? IS NULL AN" & _
        "D Remarks IS NULL) AND (VDate = ? OR ? IS NULL AND VDate IS NULL) AND (VStatus =" & _
        " ? OR ? IS NULL AND VStatus IS NULL)"
        Me.OleDbDeleteCommand1.Connection = Me.OleDbConnection1
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ID1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ID1", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ClientID", System.Data.OleDb.OleDbType.SmallInt, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ClientID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ClientID1", System.Data.OleDb.OleDbType.SmallInt, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ClientID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DDate", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DDate1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Departure", System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Departure", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Departure1", System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Departure", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ID", System.Data.OleDb.OleDbType.SmallInt, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ID2", System.Data.OleDb.OleDbType.SmallInt, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_IDate", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "IDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_IDate1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "IDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ILocation", System.Data.OleDb.OleDbType.VarWChar, 25, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ILocation", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ILocation1", System.Data.OleDb.OleDbType.VarWChar, 25, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ILocation", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_IStatus", System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "IStatus", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_IStatus1", System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "IStatus", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_JobID", System.Data.OleDb.OleDbType.SmallInt, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "JobID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_JobID1", System.Data.OleDb.OleDbType.SmallInt, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "JobID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_MDate", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MDate", System.Data.DataRowVersion.Original, Nothing))