Imports System.Data.OleDb

Public Class ProSearch
    Dim SeaType, Field, Opera, Sta As String
#Region "Setting"
    Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged
        Select Case ComboBox3.Text
            Case "مساوي"
                Opera = "="
            Case "نامساوي"
                Opera = "<>"
            Case "بزرگتر"
                Opera = ">"
            Case "بزرگتر مساوي"
                Opera = ">="
            Case "كوچكتر"
                Opera = "<"
            Case "كوچكتر مساوي"
                Opera = "<="
        End Select
    End Sub

    Sub Setting()
        Select Case ComboBox1.Text
            Case "نام كاربري"
                SeaType = "uname"
                TextBox1.Text = ""
                TextBox1.RightToLeft = Windows.Forms.RightToLeft.No
                Panel1.Enabled = True
                TextBox1.Visible = True
                TextBox1.Focus()
                MTextBox1.Visible = False
                Panel2.Visible = False
                TextBox4.Visible = False
                Panel4.Visible = False
                Panel3.Visible = False
                Panel5.Visible = False
                ComboBox2.Visible = False
            Case "نام"
                SeaType = "fname"
                TextBox1.Text = ""
                TextBox1.RightToLeft = Windows.Forms.RightToLeft.Yes
                TextBox1.Visible = True
                TextBox1.Focus()
                Panel1.Enabled = True
                MTextBox1.Visible = False
                Panel2.Visible = False
                TextBox4.Visible = False
                Panel4.Visible = False
                Panel3.Visible = False
                Panel5.Visible = False
                ComboBox2.Visible = False
            Case "نام خانوادگي"
                SeaType = "lname"
                TextBox1.Text = ""
                TextBox1.RightToLeft = Windows.Forms.RightToLeft.Yes
                TextBox1.Visible = True
                TextBox1.Focus()
                Panel1.Enabled = True
                MTextBox1.Visible = False
                Panel2.Visible = False
                TextBox4.Visible = False
                Panel4.Visible = False
                Panel5.Visible = False
                Panel3.Visible = False
                ComboBox2.Visible = False
            Case "نام و نام خانوادگي"
                SeaType = "allname"
                Panel2.Visible = True
                Panel1.Enabled = True
                TextBox1.Visible = False
                TextBox4.Visible = False
                Panel5.Visible = False
                Panel4.Visible = False
                Panel3.Visible = False
                MTextBox1.Visible = False
                ComboBox2.Visible = False
            Case "نام شركت"
                SeaType = "coname"
                TextBox1.Text = ""
                TextBox1.RightToLeft = Windows.Forms.RightToLeft.Yes
                TextBox1.Visible = True
                TextBox1.Focus()
                Panel1.Enabled = True
                MTextBox1.Visible = False
                ComboBox2.Visible = False
                TextBox4.Visible = False
                Panel4.Visible = False
                Panel3.Visible = False
                Panel5.Visible = False
                Panel2.Visible = False
            Case "تلفن"
                SeaType = "tel"
                TextBox1.Text = ""
                TextBox1.RightToLeft = Windows.Forms.RightToLeft.No
                TextBox1.Visible = True
                TextBox1.Focus()
                Panel1.Enabled = True
                MTextBox1.Visible = False
                ComboBox2.Visible = False
                TextBox4.Visible = False
                Panel4.Visible = False
                Panel3.Visible = False
                Panel5.Visible = False
                Panel2.Visible = False
            Case "موبايل"
                SeaType = "mob"
                TextBox1.Text = ""
                TextBox1.RightToLeft = Windows.Forms.RightToLeft.No
                TextBox1.Visible = True
                TextBox1.Focus()
                Panel1.Enabled = True
                MTextBox1.Visible = False
                ComboBox2.Visible = False
                Panel4.Visible = False
                TextBox4.Visible = False
                Panel3.Visible = False
                Panel5.Visible = False
                Panel2.Visible = False
            Case "آدرس"
                SeaType = "address"
                TextBox4.Visible = True
                TextBox4.Focus()
                Panel1.Enabled = True
                TextBox1.Visible = False
                MTextBox1.Visible = False
                ComboBox2.Visible = False
                Panel4.Visible = False
                Panel5.Visible = False
                Panel3.Visible = False
                Panel2.Visible = False
            Case "ايميل"
                SeaType = "email"
                TextBox1.Text = ""
                TextBox1.RightToLeft = Windows.Forms.RightToLeft.No
                TextBox1.Visible = True
                TextBox1.Focus()
                Panel1.Enabled = True
                MTextBox1.Visible = False
                ComboBox2.Visible = False
                TextBox4.Visible = False
                Panel4.Visible = False
                Panel5.Visible = False
                Panel3.Visible = False
                Panel2.Visible = False
            Case "مقدار فضا"
                SeaType = "host"
                TextBox1.Text = ""
                TextBox1.RightToLeft = Windows.Forms.RightToLeft.No
                TextBox1.Visible = True
                TextBox1.Focus()
                Panel1.Enabled = True
                MTextBox1.Visible = False
                ComboBox2.Visible = False
                TextBox4.Visible = False
                Panel3.Visible = False
                Panel4.Visible = False
                Panel5.Visible = False
                Panel2.Visible = False
            Case "نوع سرور"
                SeaType = "khost"
                ComboBox2.Visible = True
                Panel1.Enabled = True
                TextBox1.Visible = False
                MTextBox1.Visible = False
                TextBox4.Visible = False
                Panel5.Visible = False
                Panel3.Visible = False
                Panel4.Visible = False
                Panel2.Visible = False
            Case "نام پانل"
                SeaType = "panel"
                TextBox1.Text = ""
                TextBox1.RightToLeft = Windows.Forms.RightToLeft.No
                TextBox1.Visible = True
                TextBox1.Focus()
                Panel1.Enabled = True
                MTextBox1.Visible = False
                ComboBox2.Visible = False
                TextBox4.Visible = False
                Panel3.Visible = False
                Panel4.Visible = False
                Panel5.Visible = False
                Panel2.Visible = False
            Case "نام دامين"
                SeaType = "domain"
                TextBox1.Text = ""
                TextBox1.RightToLeft = Windows.Forms.RightToLeft.No
                TextBox1.Visible = True
                TextBox1.Focus()
                Panel1.Enabled = True
                MTextBox1.Visible = False
                ComboBox2.Visible = False
                TextBox4.Visible = False
                Panel4.Visible = False
                Panel3.Visible = False
                Panel5.Visible = False
                Panel2.Visible = False
            Case "قيمت اين دوره"
                SeaType = "cost"
                Panel4.Visible = True
                Panel1.Enabled = False
                TextBox1.Visible = False
                MTextBox1.Visible = False
                ComboBox2.Visible = False
                TextBox4.Visible = False
                Panel5.Visible = False
                Panel3.Visible = False
                Panel2.Visible = False
            Case "كل درآمد"
                SeaType = "allcost"
                Panel4.Visible = True
                Panel1.Enabled = False
                TextBox1.Visible = False
                MTextBox1.Visible = False
                ComboBox2.Visible = False
                TextBox4.Visible = False
                Panel5.Visible = False
                Panel3.Visible = False
                Panel2.Visible = False
            Case "تاريخ ثبت"
                SeaType = "bdate"
                TextBox1.Visible = False
                Panel1.Enabled = True
                MTextBox1.Visible = True
                MTextBox1.Focus()
                ComboBox2.Visible = False
                Panel4.Visible = False
                TextBox4.Visible = False
                Panel3.Visible = False
                Panel5.Visible = False
                Panel2.Visible = False
            Case "تاريخ پايان"
                SeaType = "edate"
                TextBox1.Visible = False
                Panel1.Enabled = True
                MTextBox1.Visible = True
                MTextBox1.Focus()
                ComboBox2.Visible = False
                Panel4.Visible = False
                TextBox4.Visible = False
                Panel5.Visible = False
                Panel3.Visible = False
                Panel2.Visible = False
            Case "مدت خريد"
                SeaType = "time"
                Panel5.Visible = True
                Numeric.Focus()
                Panel1.Enabled = False
                TextBox1.Visible = False
                MTextBox1.Visible = False
                ComboBox2.Visible = False
                Panel4.Visible = False
                Panel3.Visible = False
                TextBox4.Visible = False
                Panel2.Visible = False
            Case "اطلاعات بيشتر"
                SeaType = "info"
                TextBox4.Visible = True
                TextBox4.Focus()
                Panel1.Enabled = True
                Panel5.Visible = False
                TextBox1.Visible = False
                MTextBox1.Visible = False
                Panel4.Visible = False
                Panel3.Visible = False
                ComboBox2.Visible = False
                Panel2.Visible = False
            Case "وضعيت"
                SeaType = "status"
                Panel3.Visible = True
                Panel1.Enabled = False
                TextBox4.Visible = False
                Panel5.Visible = False
                Panel4.Visible = False
                TextBox1.Visible = False
                MTextBox1.Visible = False
                ComboBox2.Visible = False
                Panel2.Visible = False
        End Select
    End Sub
#End Region

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Setting()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Dispose()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim RLike, LLike, TSQL, Pnl, Duration As String, Row As Integer
        Dim con As OleDbConnection = New OleDbConnection(strcon)
        Dim cmd As OleDbCommand = New OleDbCommand
        Dim data As OleDbDataReader
        ListView1.Items.Clear()
        If RadioButton1.Checked = True Then
            RLike = ""
            LLike = ""
        End If
        If RadioButton2.Checked = True Then
            RLike = "%"
            LLike = "%"
        End If
        If RadioButton3.Checked = True Then
            RLike = "%"
            LLike = ""
        End If
        If RadioButton4.Checked = True Then
            RLike = ""
            LLike = "%"
        End If
        If ComboBox4.Text = "سال" Then
            Duration = "sal"
        Else
            Duration = "mah"
        End If
        TSQL = ""
        Row = 1

        '############## H O S T  &  D O M A I N ##############

        If CheckBox1.Checked = True Then
            Select Case SeaType
                Case "allname"
                    TSQL = "SELECT * FROM hd WHERE fname LIKE '" & LLike & TextBox3.Text & RLike & "' AND lname LIKE '" & LLike & TextBox2.Text & RLike & "'"
                Case "status"
                    If RadioButton5.Checked = True Then TSQL = "SELECT * FROM hd WHERE status ='inact'"
                    If RadioButton6.Checked = True Then TSQL = "SELECT * FROM hd WHERE status ='act'"
                Case "cost"
                    TSQL = "SELECT * FROM hd WHERE cost " & Opera & " '" & TextBox5.Text & "'"
                Case "allcost"
                    TSQL = "SELECT * FROM hd WHERE allcost " & Opera & " '" & TextBox5.Text & "'"
                Case "fname"
                    TSQL = "SELECT * FROM hd WHERE fname LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "lname"
                    TSQL = "SELECT * FROM hd WHERE lname LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "uname"
                    TSQL = "SELECT * FROM hd WHERE uname LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "coname"
                    TSQL = "SELECT * FROM hd WHERE coname LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "tel"
                    TSQL = "SELECT * FROM hd WHERE tel LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "mob"
                    TSQL = "SELECT * FROM hd WHERE mob LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "address"
                    TSQL = "SELECT * FROM hd WHERE address LIKE '" & LLike & TextBox4.Text & RLike & "'"
                Case "email"
                    TSQL = "SELECT * FROM hd WHERE email LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "domain"
                    TSQL = "SELECT * FROM hd WHERE [domain] LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "host"
                    TSQL = "SELECT * FROM hd WHERE host LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "panel"
                    TSQL = "SELECT * FROM hd WHERE panel LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "info"
                    TSQL = "SELECT * FROM hd WHERE info LIKE '" & LLike & TextBox4.Text & RLike & "'"
                Case "khost"
                    TSQL = "SELECT * FROM hd WHERE khost LIKE '" & LLike & ComboBox2.Text & RLike & "'"
                Case "time"
                    TSQL = "SELECT * FROM hd WHERE time LIKE '" & LLike & Numeric.Value & RLike & "' AND KDuration='" & Duration & "'"
                Case "bdate"
                    TSQL = "SELECT * FROM hd WHERE bdate LIKE '" & LLike & MTextBox1.Text & RLike & "'"
                Case "edate"
                    TSQL = "SELECT * FROM hd WHERE edate LIKE '" & LLike & MTextBox1.Text & RLike & "'"
            End Select
            con.Open()
            cmd.CommandText = TSQL
            cmd.Connection = con
            data = cmd.ExecuteReader
            Do While data.Read
                If data("Panel") <> "nothing" Then
                    Pnl = data.Item("Panel")
                Else
                    Pnl = "-----"
                End If
                If data("status") = "act" Then
                    Sta = "فعال"
                ElseIf data("status") = "inact" Then
                    Sta = "غيرفعال"
                End If
                Dim MyItem As New ListViewItem
                Name = data("Fname") & " " & data("Lname")
                MyItem = ListView1.Items.Add(Row)
                With MyItem
                    .SubItems.Add("هاست و دامين")
                    .SubItems.Add(data("uname"))
                    .SubItems.Add(Name)
                    .SubItems.Add(data("Coname"))
                    .SubItems.Add(data("tel"))
                    .SubItems.Add(data("Mob"))
                    .SubItems.Add(data("Email"))
                    .SubItems.Add(data("address"))
                    .SubItems.Add(data("domain"))
                    .SubItems.Add(data("host"))
                    .SubItems.Add(data("BandW"))
                    .SubItems.Add(data("khost"))
                    .SubItems.Add(Pnl)
                    .SubItems.Add(data("cost"))
                    .SubItems.Add(data("allcost"))
                    .SubItems.Add(data("bdate"))
                    .SubItems.Add(data("time") & " " & ComboBox4.Text)
                    .SubItems.Add(data("edate"))
                    .SubItems.Add(Sta)
                    .SubItems.Add(data("info"))
                End With
                Row += 1
            Loop
            con.Close()

        End If

        '############## R E S E L L E R ##############

        If CheckBox4.Checked = True Then
            Select Case SeaType
                Case "allname"
                    TSQL = "SELECT * FROM Reseller WHERE fname LIKE '" & LLike & TextBox3.Text & RLike & "' AND lname LIKE '" & LLike & TextBox2.Text & RLike & "'"
                Case "status"
                    If RadioButton5.Checked = True Then TSQL = "SELECT * FROM Reseller WHERE status ='inact'"
                    If RadioButton6.Checked = True Then TSQL = "SELECT * FROM Reseller WHERE status ='act'"
                Case "cost"
                    TSQL = "SELECT * FROM Reseller WHERE cost " & Opera & " '" & TextBox5.Text & "'"
                Case "allcost"
                    TSQL = "SELECT * FROM Reseller WHERE allcost " & Opera & " '" & TextBox5.Text & "'"
                Case "fname"
                    TSQL = "SELECT * FROM Reseller WHERE fname LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "lname"
                    TSQL = "SELECT * FROM Reseller WHERE lname LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "uname"
                    TSQL = "SELECT * FROM Reseller WHERE uname LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "coname"
                    TSQL = "SELECT * FROM Reseller WHERE coname LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "tel"
                    TSQL = "SELECT * FROM Reseller WHERE tel LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "mob"
                    TSQL = "SELECT * FROM Reseller WHERE mob LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "address"
                    TSQL = "SELECT * FROM Reseller WHERE address LIKE '" & LLike & TextBox4.Text & RLike & "'"
                Case "email"
                    TSQL = "SELECT * FROM Reseller WHERE email LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "domain"
                    TSQL = "SELECT * FROM Reseller WHERE [domain] LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "host"
                    TSQL = "SELECT * FROM Reseller WHERE host LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "info"
                    TSQL = "SELECT * FROM Reseller WHERE info LIKE '" & LLike & TextBox4.Text & RLike & "'"
                Case "khost"
                    TSQL = "SELECT * FROM Reseller WHERE khost LIKE '" & LLike & ComboBox2.Text & RLike & "'"
                Case "time"
                    TSQL = "SELECT * FROM Reseller WHERE time LIKE '" & LLike & Numeric.Value & RLike & "' AND KDuration='" & Duration & "'"
                Case "bdate"
                    TSQL = "SELECT * FROM Reseller WHERE bdate LIKE '" & LLike & MTextBox1.Text & RLike & "'"
                Case "edate"
                    TSQL = "SELECT * FROM Reseller WHERE edate LIKE '" & LLike & MTextBox1.Text & RLike & "'"
            End Select
            con.Open()
            cmd.CommandText = TSQL
            cmd.Connection = con
            data = cmd.ExecuteReader
            Do While data.Read
                If data("status") = "act" Then
                    Sta = "فعال"
                ElseIf data("status") = "inact" Then
                    Sta = "غيرفعال"
                End If

                Name = data("Fname") & " " & data("Lname")
                Dim MyItem = ListView1.Items.Add(Row)
                With MyItem
                    .SubItems.Add("نمايندگي")
                    .SubItems.Add(data("uname"))
                    .SubItems.Add(Name)
                    .SubItems.Add(data("Coname"))
                    .SubItems.Add(data("tel"))
                    .SubItems.Add(data("Mob"))
                    .SubItems.Add(data("Email"))
                    .SubItems.Add(data("address"))
                    .SubItems.Add(data("domain"))
                    .SubItems.Add(data("host"))
                    .SubItems.Add(data("BandW"))
                    .SubItems.Add(data("khost"))
                    .SubItems.Add("-----")
                    .SubItems.Add(data("cost"))
                    .SubItems.Add(data("allcost"))
                    .SubItems.Add(data("bdate"))
                    .SubItems.Add(data("time") & " " & ComboBox4.Text)
                    .SubItems.Add(data("edate"))
                    .SubItems.Add(Sta)
                    .SubItems.Add(data("info"))
                End With
                Row += 1
            Loop
            con.Close()

        End If

        '############### H O S T ###############

        If CheckBox2.Checked = True And SeaType <> "domain" Then
            Select Case SeaType
                Case "allname"
                    TSQL = "SELECT * FROM host WHERE fname LIKE '" & LLike & TextBox3.Text & RLike & "' AND lname LIKE '" & LLike & TextBox2.Text & RLike & "'"
                Case "status"
                    If RadioButton5.Checked = True Then TSQL = "SELECT * FROM host WHERE status ='inact'"
                    If RadioButton6.Checked = True Then TSQL = "SELECT * FROM host WHERE status ='act'"
                Case "cost"
                    TSQL = "SELECT * FROM host WHERE cost " & Opera & " '" & TextBox5.Text & "'"
                Case "allcost"
                    TSQL = "SELECT * FROM host WHERE allcost " & Opera & " '" & TextBox5.Text & "'"
                Case "fname"
                    TSQL = "SELECT * FROM host WHERE fname LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "lname"
                    TSQL = "SELECT * FROM host WHERE lname LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "uname"
                    TSQL = "SELECT * FROM host WHERE uname LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "coname"
                    TSQL = "SELECT * FROM host WHERE coname LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "tel"
                    TSQL = "SELECT * FROM host WHERE tel LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "mob"
                    TSQL = "SELECT * FROM host WHERE mob LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "address"
                    TSQL = "SELECT * FROM host WHERE address LIKE '" & LLike & TextBox4.Text & RLike & "'"
                Case "email"
                    TSQL = "SELECT * FROM host WHERE email LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "host"
                    TSQL = "SELECT * FROM host WHERE host LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "panel"
                    TSQL = "SELECT * FROM host WHERE panel LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "info"
                    TSQL = "SELECT * FROM host WHERE info LIKE '" & LLike & TextBox4.Text & RLike & "'"
                Case "khost"
                    TSQL = "SELECT * FROM host WHERE khost LIKE '" & LLike & ComboBox2.Text & RLike & "'"
                Case "time"
                    TSQL = "SELECT * FROM host WHERE time LIKE '" & LLike & Numeric.Value & RLike & "' AND KDuration='" & Duration & "'"
                Case "bdate"
                    TSQL = "SELECT * FROM host WHERE bdate LIKE '" & LLike & MTextBox1.Text & RLike & "'"
                Case "edate"
                    TSQL = "SELECT * FROM host WHERE edate LIKE '" & LLike & MTextBox1.Text & RLike & "'"
            End Select
            con.Open()
            cmd.CommandText = TSQL
            cmd.Connection = con
            data = cmd.ExecuteReader
            Do While data.Read
                If data("Panel") <> "nothing" Then
                    Pnl = data.Item("Panel")
                Else
                    Pnl = "-----"
                End If
                If data("status") = "act" Then
                    Sta = "فعال"
                ElseIf data("status") = "inact" Then
                    Sta = "غيرفعال"
                End If

                Name = data("Fname") & " " & data("Lname")
                Dim MyItem = ListView1.Items.Add(Row)
                With MyItem
                    .SubItems.Add("هاست")
                    .SubItems.Add(data("uname"))
                    .SubItems.Add(Name)
                    .SubItems.Add(data("Coname"))
                    .SubItems.Add(data("tel"))
                    .SubItems.Add(data("Mob"))
                    .SubItems.Add(data("Email"))
                    .SubItems.Add(data("address"))
                    .SubItems.Add("-----")
                    .SubItems.Add(data("host"))
                    .SubItems.Add(data("BandW"))
                    .SubItems.Add(data("khost"))
                    .SubItems.Add(Pnl)
                    .SubItems.Add(data("cost"))
                    .SubItems.Add(data("allcost"))
                    .SubItems.Add(data("bdate"))
                    .SubItems.Add(data("time") & " " & ComboBox4.Text)
                    .SubItems.Add(data("edate"))
                    .SubItems.Add(Sta)
                    .SubItems.Add(data("info"))
                End With
                Row += 1
            Loop
            con.Close()

        End If

        '############### D O M A I N #############

        If CheckBox3.Checked = True And SeaType <> "host" And SeaType <> "khost" And SeaType <> "panel" Then
            Select Case SeaType
                Case "allname"
                    TSQL = "SELECT * FROM [domain] WHERE fname LIKE '" & LLike & TextBox3.Text & RLike & "' AND lname LIKE '" & LLike & TextBox2.Text & RLike & "'"
                Case "status"
                    If RadioButton5.Checked = True Then TSQL = "SELECT * FROM [domain] WHERE status ='inact'"
                    If RadioButton6.Checked = True Then TSQL = "SELECT * FROM [domain] WHERE status ='act'"
                Case "cost"
                    TSQL = "SELECT * FROM [domain] WHERE cost " & Opera & " '" & TextBox5.Text & "'"
                Case "allcost"
                    TSQL = "SELECT * FROM [domain] WHERE allcost " & Opera & " '" & TextBox5.Text & "'"
                Case "fname"
                    TSQL = "SELECT * FROM [domain] WHERE fname LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "lname"
                    TSQL = "SELECT * FROM [domain] WHERE lname LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "uname"
                    TSQL = "SELECT * FROM [domain] WHERE uname LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "coname"
                    TSQL = "SELECT * FROM [domain] WHERE coname LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "tel"
                    TSQL = "SELECT * FROM [domain] WHERE tel LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "mob"
                    TSQL = "SELECT * FROM [domain] WHERE mob LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "address"
                    TSQL = "SELECT * FROM [domain] WHERE address LIKE '" & LLike & TextBox4.Text & RLike & "'"
                Case "email"
                    TSQL = "SELECT * FROM [domain] WHERE email LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "domain"
                    TSQL = "SELECT * FROM [domain] WHERE [domain] LIKE '" & LLike & TextBox1.Text & RLike & "'"
                Case "info"
                    TSQL = "SELECT * FROM [domain] WHERE info LIKE '" & LLike & TextBox4.Text & RLike & "'"
                Case "time"
                    TSQL = "SELECT * FROM [domain] WHERE time LIKE '" & LLike & Numeric.Value & RLike & "' AND KDuration='" & Duration & "'"
                Case "bdate"
                    TSQL = "SELECT * FROM [domain] WHERE bdate LIKE '" & LLike & MTextBox1.Text & RLike & "'"
                Case "edate"
                    TSQL = "SELECT * FROM [domain] WHERE edate LIKE '" & LLike & MTextBox1.Text & RLike & "'"
            End Select
            con.Open()
            cmd.CommandText = TSQL
            cmd.Connection = con
            data = cmd.ExecuteReader
            Do While data.Read
                If data("status") = "act" Then
                    Sta = "فعال"
                ElseIf data("status") = "inact" Then
                    Sta = "غيرفعال"
                End If

                Name = data("Fname") & " " & data("Lname")
                Dim MyItem = ListView1.Items.Add(Row)
                With MyItem
                    .SubItems.Add("دامين")
                    .SubItems.Add(data("uname"))
                    .SubItems.Add(Name)
                    .SubItems.Add(data("Coname"))
                    .SubItems.Add(data("tel"))
                    .SubItems.Add(data("Mob"))
                    .SubItems.Add(data("Email"))
                    .SubItems.Add(data("address"))
                    .SubItems.Add(data("domain"))
                    .SubItems.Add("-----")
                    .SubItems.Add("-----")
                    .SubItems.Add("-----")
                    .SubItems.Add("-----")
                    .SubItems.Add(data("cost"))
                    .SubItems.Add(data("allcost"))
                    .SubItems.Add(data("bdate"))
                    .SubItems.Add(data("time") & " " & ComboBox4.Text)
                    .SubItems.Add(data("edate"))
                    .SubItems.Add(Sta)
                    .SubItems.Add(data("info"))
                End With
                Row += 1
            Loop
            con.Close()
        End If

    End Sub
End Class