'****************************************************************
Code for Full Name Matching
Developed by	: Technical Team, Election Commission of India, New Delhi.
'*************************************************************

Imports System.Data.OleDb
Public Class frmNameSuggestor
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents Label3 As System.Web.UI.WebControls.Label
    Protected WithEvents Label4 As System.Web.UI.WebControls.Label
    Protected WithEvents Panel1 As System.Web.UI.WebControls.Panel
    Protected WithEvents txtName As System.Web.UI.WebControls.TextBox
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents uiddlPercentage As System.Web.UI.WebControls.DropDownList
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label
    Protected WithEvents uibtnSuggest As System.Web.UI.WebControls.Button
    Protected WithEvents Panel2 As System.Web.UI.WebControls.Panel
    Protected WithEvents uidgNames As System.Web.UI.WebControls.DataGrid
    Protected WithEvents Label5 As System.Web.UI.WebControls.Label
    Protected WithEvents Panel3 As System.Web.UI.WebControls.Panel
    Protected WithEvents pnlHeader As System.Web.UI.WebControls.Panel
    Protected WithEvents Label6 As System.Web.UI.WebControls.Label

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region
    Dim objSearch As New AMIN.AMIN
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
        If Not IsPostBack Then
            Session("Sort_Order") = "PERCENTAGE DESC"
        End If
    End Sub
    Private Sub uibtnSuggest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles uibtnSuggest.Click
        Dim strDbasePath As String = Server.MapPath("Database\Names.mdb")
        Dim condb As New OleDbConnection("provider=Microsoft.Jet.Oledb.4.0; data source=" & strDbasePath)
        Dim strsource As String
        Dim strMsg As String
        strsource = Trim(UCase(txtName.Text))
        If Len(strsource) < 2 Then
            strMsg = "<SCRIPT>" & "alert('Please Enter word of atleast two characters');" & "<\SCRIPT>"
            RegisterStartupScript("valid", strMsg)
            Exit Sub
        End If
        Dim SQL As String
        SQL = "SELECT NAME_EN,ID_NO FROM DELHI_DICT where"
        ProcessOriginal(strsource, SQL, condb)
    End Sub
    Function ProcessOriginal(ByVal strSource As String, ByVal SQL As String, ByVal condb As OleDbConnection)
        Dim likesearchstring As String
        likesearchstring = fuzzyMatchFirstChar_EN(strSource.Substring(0, 1), strSource.Substring(1, 1))
        SQL = SQL + likesearchstring
        Dim da As New OleDb.OleDbDataAdapter(SQL, condb)
        Dim ds As New DataSet
        Dim dtFinal As New DataTable
        da.Fill(ds, "Dict")
        Dim introw As Integer
        Dim dr As DataRow
        Dim decPer As Decimal
        dtFinal.TableName = "FINAL"
        dtFinal.Columns.Add("NAME")
        dtFinal.Columns.Add("PERCENTAGE", System.Type.GetType("System.Decimal"))
        ds.Tables.Add(dtFinal)
        Dim row As Integer = 0
        For introw = 0 To ds.Tables("dict").Rows.Count - 1
            decPer = objSearch.AMIN_percentage(strSource, Trim(UCase(ds.Tables("dict").Rows(introw).Item("NAME_EN"))))
            If decPer >= CInt(uiddlPercentage.SelectedItem.Text) Then
                dr = dtFinal.NewRow
                dr.Item("NAME") = UCase(ds.Tables("dict").Rows(introw).Item("NAME_EN"))
                dr.Item("PERCENTAGE") = decPer
                dtFinal.Rows.Add(dr)
            End If
        Next
        Dim dvNames As DataView
        dvNames = ds.Tables("FINAL").DefaultView
        Session("Result") = dvNames
        Call Sort_grid()
    End Function
    Function Sort_grid()
        Dim dvNames As DataView
        dvNames = Session("Result")
        dvNames.Sort = Session("Sort_Order")
        uidgNames.DataSource = dvNames
        uidgNames.DataBind()
    End Function
    Function fuzzyMatchFirstChar_EN(ByVal chr As Char, ByVal nextChr As Char)
        Select Case chr
            Case "C"
                fuzzyMatchFirstChar_EN = " FIRST_CHAR = 'K' OR FIRST_CHAR = 'C'  OR  FIRST_CHAR = 'S'"
            Case "K"
                fuzzyMatchFirstChar_EN = " FIRST_CHAR = 'K' OR  FIRST_CHAR = 'C' OR  FIRST_CHAR = 'Q' "
            Case "S"
                fuzzyMatchFirstChar_EN = " FIRST_CHAR = 'S' OR FIRST_CHAR = 'C' OR FIRST_CHAR = 'Z' OR FIRST_CHAR = 'X' OR NAME_EN LIKE 'PS%'  "
            Case "A", "I"
                fuzzyMatchFirstChar_EN = " FIRST_CHAR = 'A' OR FIRST_CHAR  = 'E' OR FIRST_CHAR  = 'I' "
            Case "E"
                fuzzyMatchFirstChar_EN = " FIRST_CHAR = 'A' OR FIRST_CHAR  = 'E' OR FIRST_CHAR  = 'I' "
                'FOR HANDLING MATCHES OF "ES" AND "S"
                If nextChr = "S" Then fuzzyMatchFirstChar_EN = fuzzyMatchFirstChar_EN & " OR FIRST_CHAR='S' "
            Case "O"
                fuzzyMatchFirstChar_EN = " FIRST_CHAR  = 'O' OR FIRST_CHAR  = 'U' "
            Case "U"
                fuzzyMatchFirstChar_EN = " FIRST_CHAR  = 'O' OR FIRST_CHAR  = 'U' OR NAME_EN LIKE 'YO%' OR NAME_EN LIKE 'YU%' "
            Case "G"
                fuzzyMatchFirstChar_EN = " FIRST_CHAR = 'G' OR FIRST_CHAR = 'J'"
            Case "B", "V", "W"
                fuzzyMatchFirstChar_EN = " FIRST_CHAR = 'B' OR FIRST_CHAR = 'V' OR FIRST_CHAR = 'W'"
            Case "Q"
                fuzzyMatchFirstChar_EN = " FIRST_CHAR = 'K'"
            Case "Z"
                fuzzyMatchFirstChar_EN = " FIRST_CHAR = 'Z' OR FIRST_CHAR = 'J' OR FIRST_CHAR = 'X' OR FIRST_CHAR = 'S' "
            Case "J"
                fuzzyMatchFirstChar_EN = " FIRST_CHAR = 'Z' OR FIRST_CHAR = 'J' OR FIRST_CHAR = 'G' "
            Case "X"
                fuzzyMatchFirstChar_EN = " FIRST_CHAR = 'Z' OR FIRST_CHAR = 'X' OR FIRST_CHAR = 'S' "
            Case "P", "F"
                fuzzyMatchFirstChar_EN = " FIRST_CHAR = 'P' OR FIRST_CHAR = 'F'"
                'FOR HANDLING MATCHES OF "PS" AND "S"
                If chr = "P" And nextChr = "S" Then fuzzyMatchFirstChar_EN = fuzzyMatchFirstChar_EN & " OR FIRST_CHAR='S' "
            Case "Y"
                fuzzyMatchFirstChar_EN = " FIRST_CHAR = 'U' OR FIRST_CHAR = 'Y'"
                'FOR HANDLING MATCHES OF "YO" AND "U"
                If nextChr = "O" Or nextChr = "U" Then fuzzyMatchFirstChar_EN = fuzzyMatchFirstChar_EN & " OR FIRST_CHAR='U' "
            Case Else
                fuzzyMatchFirstChar_EN = " FIRST_CHAR = '" & chr & "'"
        End Select
    End Function
    Private Sub uidgNames_SortCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridSortCommandEventArgs) Handles uidgNames.SortCommand
        If Session("Sort_Order") = "PERCENTAGE" Then
            Session("Sort_Order") = "PERCENTAGE DESC"
        Else
            Session("Sort_Order") = "PERCENTAGE"
        End If
        Call Sort_grid()
    End Sub
End Class