📄 frmcsearch.vb
字号:
' Human Resources Management System (HRMS)
'
' Programmed by: Nura Tijjani Abubakar (ntagrafix@yahoo.com)
' Submitted to: Mr. Ravindran Kanapathy
'
' Oxford Brookes University (OBU)
' Final Year Project (November, 2007)
Imports System.Data.OleDb
Public Class frmCSearch
Inherits System.Windows.Forms.Form
Dim ConnectionString As String = System.Configuration.ConfigurationSettings.AppSettings("DSN") ' Declared in App.Config File
Dim Connection As OleDbConnection
Dim DACandidate As OleDbDataAdapter
Dim DSCndM As DataSet ' DataSet Main
Dim TmpTable As DataTable
Dim Result() As DataRow
Dim CurrentRow As DataRow
Dim cid As Integer
Dim CurId As String
Dim oDetails As Details
Dim PersQuery, PPQuery, EduQuery, ExpQuery As String 'Query for DataAdapter
Dim CandName, EmailID As String
Dim IS1 As String = "Selected" ' To exclude selected or shortisted candidates from list
Dim IS2 As String = "Shortlisted"
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents panelCnd As System.Windows.Forms.Panel
Friend WithEvents dtpAppliedOn As System.Windows.Forms.DateTimePicker
Friend WithEvents lblAppliedOn As System.Windows.Forms.Label
Friend WithEvents dtpYears3 As System.Windows.Forms.DateTimePicker
Friend WithEvents txtMajor3 As System.Windows.Forms.TextBox
Friend WithEvents txtCourse3 As System.Windows.Forms.TextBox
Friend WithEvents txtInstitute3 As System.Windows.Forms.TextBox
Friend WithEvents dtpYears2 As System.Windows.Forms.DateTimePicker
Friend WithEvents txtMajor2 As System.Windows.Forms.TextBox
Friend WithEvents txtCourse2 As System.Windows.Forms.TextBox
Friend WithEvents txtInstitute2 As System.Windows.Forms.TextBox
Friend WithEvents dtpYears1 As System.Windows.Forms.DateTimePicker
Friend WithEvents Label16 As System.Windows.Forms.Label
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents txtMajor1 As System.Windows.Forms.TextBox
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents txtCourse1 As System.Windows.Forms.TextBox
Friend WithEvents txtInstitute1 As System.Windows.Forms.TextBox
Friend WithEvents Label15 As System.Windows.Forms.Label
Friend WithEvents txtJob3 As System.Windows.Forms.TextBox
Friend WithEvents txtMonths3 As System.Windows.Forms.TextBox
Friend WithEvents txtYears3 As System.Windows.Forms.TextBox
Friend WithEvents txtCountry3 As System.Windows.Forms.TextBox
Friend WithEvents txtCompany3 As System.Windows.Forms.TextBox
Friend WithEvents txtJob2 As System.Windows.Forms.TextBox
Friend WithEvents txtMonths2 As System.Windows.Forms.TextBox
Friend WithEvents txtYears2 As System.Windows.Forms.TextBox
Friend WithEvents txtCountry2 As System.Windows.Forms.TextBox
Friend WithEvents txtCompany2 As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents txtJob1 As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents txtMonths1 As System.Windows.Forms.TextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents txtYears1 As System.Windows.Forms.TextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents txtCountry1 As System.Windows.Forms.TextBox
Friend WithEvents txtCompany1 As System.Windows.Forms.TextBox
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents dtpDoE As System.Windows.Forms.DateTimePicker
Friend WithEvents txtPPNo As System.Windows.Forms.TextBox
Friend WithEvents Label17 As System.Windows.Forms.Label
Friend WithEvents Label20 As System.Windows.Forms.Label
Friend WithEvents cbxAgent As System.Windows.Forms.ComboBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtCandPincode As System.Windows.Forms.TextBox
Friend WithEvents txtCandCity As System.Windows.Forms.TextBox
Friend WithEvents txtCandAddress As System.Windows.Forms.TextBox
Friend WithEvents lblCandPincode As System.Windows.Forms.Label
Friend WithEvents dtpCandDoB As System.Windows.Forms.DateTimePicker
Friend WithEvents lblCandDoB As System.Windows.Forms.Label
Friend WithEvents lblCandCity As System.Windows.Forms.Label
Friend WithEvents lblCandAddress As System.Windows.Forms.Label
Friend WithEvents btnProfile As System.Windows.Forms.Button
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents btnGo As System.Windows.Forms.Button
Friend WithEvents cbxJob As System.Windows.Forms.ComboBox
Friend WithEvents dgCnd As System.Windows.Forms.DataGrid
Friend WithEvents DataGridTableStyle1 As System.Windows.Forms.DataGridTableStyle
Friend WithEvents ID As System.Windows.Forms.DataGridTextBoxColumn
Friend WithEvents City As System.Windows.Forms.DataGridTextBoxColumn
Friend WithEvents Phone As System.Windows.Forms.DataGridTextBoxColumn
Friend WithEvents Mobile As System.Windows.Forms.DataGridTextBoxColumn
Friend WithEvents Email As System.Windows.Forms.DataGridTextBoxColumn
Friend WithEvents ApplicantName As System.Windows.Forms.DataGridTextBoxColumn
Friend WithEvents DateOfBirth As System.Windows.Forms.DataGridTextBoxColumn
Friend WithEvents AppliedOn As System.Windows.Forms.DataGridTextBoxColumn
Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmCSearch))
Me.panelCnd = New System.Windows.Forms.Panel
Me.Label7 = New System.Windows.Forms.Label
Me.dtpAppliedOn = New System.Windows.Forms.DateTimePicker
Me.lblAppliedOn = New System.Windows.Forms.Label
Me.dtpYears3 = New System.Windows.Forms.DateTimePicker
Me.txtMajor3 = New System.Windows.Forms.TextBox
Me.txtCourse3 = New System.Windows.Forms.TextBox
Me.txtInstitute3 = New System.Windows.Forms.TextBox
Me.dtpYears2 = New System.Windows.Forms.DateTimePicker
Me.txtMajor2 = New System.Windows.Forms.TextBox
Me.txtCourse2 = New System.Windows.Forms.TextBox
Me.txtInstitute2 = New System.Windows.Forms.TextBox
Me.dtpYears1 = New System.Windows.Forms.DateTimePicker
Me.Label16 = New System.Windows.Forms.Label
Me.Label13 = New System.Windows.Forms.Label
Me.txtMajor1 = New System.Windows.Forms.TextBox
Me.Label12 = New System.Windows.Forms.Label
Me.txtCourse1 = New System.Windows.Forms.TextBox
Me.txtInstitute1 = New System.Windows.Forms.TextBox
Me.Label15 = New System.Windows.Forms.Label
Me.txtJob3 = New System.Windows.Forms.TextBox
Me.txtMonths3 = New System.Windows.Forms.TextBox
Me.txtYears3 = New System.Windows.Forms.TextBox
Me.txtCountry3 = New System.Windows.Forms.TextBox
Me.txtCompany3 = New System.Windows.Forms.TextBox
Me.txtJob2 = New System.Windows.Forms.TextBox
Me.txtMonths2 = New System.Windows.Forms.TextBox
Me.txtYears2 = New System.Windows.Forms.TextBox
Me.txtCountry2 = New System.Windows.Forms.TextBox
Me.txtCompany2 = New System.Windows.Forms.TextBox
Me.Label2 = New System.Windows.Forms.Label
Me.txtJob1 = New System.Windows.Forms.TextBox
Me.Label3 = New System.Windows.Forms.Label
Me.txtMonths1 = New System.Windows.Forms.TextBox
Me.Label4 = New System.Windows.Forms.Label
Me.txtYears1 = New System.Windows.Forms.TextBox
Me.Label5 = New System.Windows.Forms.Label
Me.txtCountry1 = New System.Windows.Forms.TextBox
Me.txtCompany1 = New System.Windows.Forms.TextBox
Me.Label10 = New System.Windows.Forms.Label
Me.dtpDoE = New System.Windows.Forms.DateTimePicker
Me.txtPPNo = New System.Windows.Forms.TextBox
Me.Label17 = New System.Windows.Forms.Label
Me.Label20 = New System.Windows.Forms.Label
Me.cbxAgent = New System.Windows.Forms.ComboBox
Me.Label1 = New System.Windows.Forms.Label
Me.txtCandPincode = New System.Windows.Forms.TextBox
Me.txtCandCity = New System.Windows.Forms.TextBox
Me.txtCandAddress = New System.Windows.Forms.TextBox
Me.lblCandPincode = New System.Windows.Forms.Label
Me.dtpCandDoB = New System.Windows.Forms.DateTimePicker
Me.lblCandDoB = New System.Windows.Forms.Label
Me.lblCandCity = New System.Windows.Forms.Label
Me.lblCandAddress = New System.Windows.Forms.Label
Me.btnProfile = New System.Windows.Forms.Button
Me.LinkLabel1 = New System.Windows.Forms.LinkLabel
Me.Button1 = New System.Windows.Forms.Button
Me.cbxJob = New System.Windows.Forms.ComboBox
Me.Label6 = New System.Windows.Forms.Label
Me.btnGo = New System.Windows.Forms.Button
Me.dgCnd = New System.Windows.Forms.DataGrid
Me.DataGridTableStyle1 = New System.Windows.Forms.DataGridTableStyle
Me.ID = New System.Windows.Forms.DataGridTextBoxColumn
Me.AppliedOn = New System.Windows.Forms.DataGridTextBoxColumn
Me.ApplicantName = New System.Windows.Forms.DataGridTextBoxColumn
Me.DateOfBirth = New System.Windows.Forms.DataGridTextBoxColumn
Me.City = New System.Windows.Forms.DataGridTextBoxColumn
Me.Phone = New System.Windows.Forms.DataGridTextBoxColumn
Me.Mobile = New System.Windows.Forms.DataGridTextBoxColumn
Me.Email = New System.Windows.Forms.DataGridTextBoxColumn
Me.panelCnd.SuspendLayout()
CType(Me.dgCnd, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'panelCnd
'
Me.panelCnd.Controls.Add(Me.Label7)
Me.panelCnd.Controls.Add(Me.dtpAppliedOn)
Me.panelCnd.Controls.Add(Me.lblAppliedOn)
Me.panelCnd.Controls.Add(Me.dtpYears3)
Me.panelCnd.Controls.Add(Me.txtMajor3)
Me.panelCnd.Controls.Add(Me.txtCourse3)
Me.panelCnd.Controls.Add(Me.txtInstitute3)
Me.panelCnd.Controls.Add(Me.dtpYears2)
Me.panelCnd.Controls.Add(Me.txtMajor2)
Me.panelCnd.Controls.Add(Me.txtCourse2)
Me.panelCnd.Controls.Add(Me.txtInstitute2)
Me.panelCnd.Controls.Add(Me.dtpYears1)
Me.panelCnd.Controls.Add(Me.Label16)
Me.panelCnd.Controls.Add(Me.Label13)
Me.panelCnd.Controls.Add(Me.txtMajor1)
Me.panelCnd.Controls.Add(Me.Label12)
Me.panelCnd.Controls.Add(Me.txtCourse1)
Me.panelCnd.Controls.Add(Me.txtInstitute1)
Me.panelCnd.Controls.Add(Me.Label15)
Me.panelCnd.Controls.Add(Me.txtJob3)
Me.panelCnd.Controls.Add(Me.txtMonths3)
Me.panelCnd.Controls.Add(Me.txtYears3)
Me.panelCnd.Controls.Add(Me.txtCountry3)
Me.panelCnd.Controls.Add(Me.txtCompany3)
Me.panelCnd.Controls.Add(Me.txtJob2)
Me.panelCnd.Controls.Add(Me.txtMonths2)
Me.panelCnd.Controls.Add(Me.txtYears2)
Me.panelCnd.Controls.Add(Me.txtCountry2)
Me.panelCnd.Controls.Add(Me.txtCompany2)
Me.panelCnd.Controls.Add(Me.Label2)
Me.panelCnd.Controls.Add(Me.txtJob1)
Me.panelCnd.Controls.Add(Me.Label3)
Me.panelCnd.Controls.Add(Me.txtMonths1)
Me.panelCnd.Controls.Add(Me.Label4)
Me.panelCnd.Controls.Add(Me.txtYears1)
Me.panelCnd.Controls.Add(Me.Label5)
Me.panelCnd.Controls.Add(Me.txtCountry1)
Me.panelCnd.Controls.Add(Me.txtCompany1)
Me.panelCnd.Controls.Add(Me.Label10)
Me.panelCnd.Controls.Add(Me.dtpDoE)
Me.panelCnd.Controls.Add(Me.txtPPNo)
Me.panelCnd.Controls.Add(Me.Label17)
Me.panelCnd.Controls.Add(Me.Label20)
Me.panelCnd.Controls.Add(Me.cbxAgent)
Me.panelCnd.Controls.Add(Me.Label1)
Me.panelCnd.Controls.Add(Me.txtCandPincode)
Me.panelCnd.Controls.Add(Me.txtCandCity)
Me.panelCnd.Controls.Add(Me.txtCandAddress)
Me.panelCnd.Controls.Add(Me.lblCandPincode)
Me.panelCnd.Controls.Add(Me.dtpCandDoB)
Me.panelCnd.Controls.Add(Me.lblCandDoB)
Me.panelCnd.Controls.Add(Me.lblCandCity)
Me.panelCnd.Controls.Add(Me.lblCandAddress)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -