Desktop_RCULogAgent/RCU_Logviewer.vb

Imports System.IO
Imports System.Threading
Imports FlexCell

Public Class RCU_Logviewer

    Enum TableColName
        ID = 1
        TimeSpan
        mac
        createdatetime
        logfilename
        logprojectid
        logroomid
        log_valid
        log_sn
        log_len
        log_datetime
        log_timespan
        log_type
        log_content
        type_param_1
        type_param_2
        type_param_3
        type_param_4
        type_param_5
        type_param_6
        type_param_7
        type_param_8
        type_param_9
        type_param_10
        remark
    End Enum

    Private Sub RCU_Logviewer_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        pan_sqldata.Parent = Nothing
        Timer1.Start()
        g_fileAnalysisThread = New Thread(AddressOf FileDataToSqlRuning)
        Text = Text & "__" & Application.ProductVersion
        My.Settings.Reload()
        DirPath_txt.Text = My.Settings.FileDir
        LoadingFileTreeInit()
        g_RowFileDic = New Dictionary(Of Integer, String)

        '初始化字体
        Dim theFont As New System.Drawing.Text.InstalledFontCollection
        theFont = New System.Drawing.Text.InstalledFontCollection()
        For Each family As System.Drawing.FontFamily In theFont.Families
            systemfont.Items.Add(family.Name)
        Next
        systemfont.SelectedIndex = 9
        'Font.Name = DropDownList1.SelectedItem.Text
        '初始化字号

        Dim sizeArray() As Integer = [Enum].GetValues(GetType(TableColName))
        Dim strbuff() As String
        strbuff = Array.ConvertAll(sizeArray, New Converter(Of Integer, String)(AddressOf inttostring))
        Textsize.Items.AddRange(strbuff)
        Textsize.SelectedIndex = 8


        Dim str As String = systemfont.SelectedItem.ToString
        Dim gtheFont As New System.Drawing.Font(str, 9.ToString)
        Grid_tab.Font = gtheFont

        g_OldRowColor = New Dictionary(Of Integer, Color())
        InitRowConfig()

        '//获取系统所有颜色(利用枚举获取系统的颜色并且将Dropdownlist的字体颜色改成当前的颜色)
        '   String[] colorArray = Enum.GetNames(TypeOf(System.Drawing.KnownColor));
        '   foreach(String color In colorArray)
        '   {
        '       ListItem item = New ListItem(Color);
        '       item.Attributes.Add("style", "color:" + Color);
        '       DropDownList2.Style.Add("BackColor", Color);
        '       DropDownList2.Items.Add(item);

        '   }
        '   //系统字体大小
        '   String[] sizeArray = Enum.GetNames(TypeOf(System.Web.UI.WebControls.FontSize));
        '   RadioButtonList1.DataSource = sizeArray;
        '   RadioButtonList1.SelectedIndex = -1;
        '   RadioButtonList1.DataBind();
    End Sub


    Public Sub InitRowConfig()
        Grid_RowConfig.Cols = 3
        Grid_RowConfig.Cell(0, 1).Text = "列名"
        Grid_RowConfig.Cell(0, 2).Text = "列值"
        Grid_RowConfig.Rows = TableColName.remark + 1
        Grid_RowConfig.Column(0).Visible = False
        Grid_RowConfig.Range(1, 1, Grid_RowConfig.Rows - 1, Grid_RowConfig.Cols - 1).Alignment = AlignmentEnum.CenterCenter
        For i As Integer = 1 To TableColName.remark
            Grid_RowConfig.Cell(i, 1).Text = [Enum].GetName(GetType(TableColName), i)
        Next

    End Sub

    Public Function inttostring(val As Integer) As String
        Return val.ToString
    End Function
    Private Sub RCU_Logviewer_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        m_FolderIcon.Dispose()
        m_FileIcon.Dispose()
        Timer1.Stop()
        My.Settings.Save()
    End Sub

#Region "时间显示"
    Private AutoCount As Integer
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label3.Text = Now.ToString("yyyy-MM-dd HH:mm:ss")
        If AutoCount > 5 Then
            AotuDirToMySQL()
            AutoCount = 0
            Judgmentpoint()
        Else
            AutoCount = AutoCount + 1
        End If

    End Sub
    Public DbConnString As String = "Server=blv-cloud-db.mysql.rds.aliyuncs.com;Port=3307;Database=rculog;Uid=blv_rcu;Pwd=fnadiaJDIJ7546;charset=utf8;"
    Public Sub CellMysqlFunction()
        Using db As New DbExecutor(DbExecutor.DbTypeEnum.Mysql, DbConnString)
            Try
                db.Open()
                Dim CreateTableStr As String = "CALL `rculog`.`DeleteOldRecords`()"
                db.ExecuteNonQuery(CreateTableStr)
                db.Close()
            Catch ex As Exception
                AdminLog.ApplicationLog.WriteErrorLog($"CALL `rculog`.`DeleteOldRecords`  Error, {ex.Message}")
                db.Close()
            End Try
        End Using

    End Sub
    Public Sub Judgmentpoint()
        Dim currentTime As DateTime = DateTime.Now

        ' 判断当前时间是否为凌晨3点
        If currentTime.Hour = 3 AndAlso currentTime.Minute = 0 AndAlso currentTime.Second = 0 Then
            Console.WriteLine("现在是凌晨3点。")
            AdminLog.ApplicationLog.WriteErrorLog($"现在是凌晨3点,开始清理过期文件与数据 （10天）")
            Dim directoryPath As String = TextBox1.Text  ' 替换为你的目录路径
            Dim cutOffDate As TimeSpan = DateTime.Now - DateTime.Now.AddDays(-15)
            DeleteFilesOlderThan(directoryPath, cutOffDate)
            CellMysqlFunction()

        End If
    End Sub

    Sub DeleteFilesOlderThan(path As String, timeSpan As TimeSpan)
        Dim directoryInfo As New DirectoryInfo(path)
        Dim cutOffDate As DateTime = DateTime.Now.Subtract(timeSpan)

        ' 遍历目录中的文件
        For Each file As FileInfo In directoryInfo.GetFiles()
            If file.CreationTime < cutOffDate Then
                file.Delete()
                Console.WriteLine("Deleted file: " & file.FullName)
            End If
        Next

        ' 递归遍历子目录
        For Each subDir As DirectoryInfo In directoryInfo.GetDirectories()
            DeleteFilesOlderThan(subDir.FullName, timeSpan)
        Next
    End Sub


#End Region

#Region "文件夹加载"
#Region "选择文件夹"
    Private Sub Btn_refresh_Click(sender As Object, e As EventArgs) Handles Btn_refresh.Click
        If String.IsNullOrEmpty(DirPath_txt.Text) OrElse Not Directory.Exists(DirPath_txt.Text) Then Return

        Grid_File.AutoRedraw = False
        m_Tree.Nodes.Clear()
        If Grid_File.Rows >= 2 Then
            Grid_File.Range(1, 1, Grid_File.Rows - 1, 1).DeleteByRow()
        End If

        Dim tempNode = m_Tree.Nodes.Add()
        tempNode.IsDirectory = True
        Grid_File.AddItem(GetFileConfig(DirPath_txt.Text))
        LoadingFileTree(DirPath_txt.Text, tempNode， 1)
        Grid_File.AutoRedraw = True
        Grid_File.Refresh()
    End Sub
    Private Sub Btn_refresh_Click1()
        If String.IsNullOrEmpty(DirPath_txt.Text) OrElse Not Directory.Exists(DirPath_txt.Text) Then Return

        Grid_File.AutoRedraw = False
        m_Tree.Nodes.Clear()
        If Grid_File.Rows >= 2 Then
            Grid_File.Range(1, 1, Grid_File.Rows - 1, 1).DeleteByRow()
        End If

        Dim tempNode = m_Tree.Nodes.Add()
        tempNode.IsDirectory = True
        Grid_File.AddItem(GetFileConfig(DirPath_txt.Text))
        LoadingFileTree(DirPath_txt.Text, tempNode， 1)
        Grid_File.AutoRedraw = True
        Grid_File.Refresh()
    End Sub
    Private Sub SelectFile_btn_Click(sender As Object, e As EventArgs) Handles SelectFile_btn.Click
        Using dlg As New FolderBrowserDialog
            dlg.Description = "请选择入库文件夹！"
            If String.IsNullOrEmpty(DirPath_txt.Text) Or IO.Directory.Exists(DirPath_txt.Text) Then
                dlg.SelectedPath = My.Settings.FileDir
            Else
                dlg.SelectedPath = DirPath_txt.Text
            End If


            If dlg.ShowDialog <> DialogResult.OK Then Return

            DirPath_txt.Text = dlg.SelectedPath

        End Using
        My.Settings.FileDir = DirPath_txt.Text
        My.Settings.Save()
        '第一个节点
        Btn_refresh.PerformClick()
        'Dim tempNode = m_Tree.Nodes.Add()
        'Grid_File.AddItem(GetFileConfig(DirPath_txt.Text))
        'LoadingFileTree(DirPath_txt.Text, tempNode， 1)

    End Sub


#End Region
#Region "树状目录加载"
    Private m_FolderIcon As System.Drawing.Icon
    Private m_FileIcon As System.Drawing.Icon

    Public Sub LoadingFileTreeInit()
        Dim resourceStream As System.IO.Stream

        resourceStream = MyBase.GetType().Assembly.GetManifestResourceStream("RCU_LogAgent_sqllite.Folder.ico")
        m_FolderIcon = New Drawing.Icon(resourceStream)
        resourceStream = MyBase.GetType().Assembly.GetManifestResourceStream("RCU_LogAgent_sqllite.File.ico")
        m_FileIcon = New Drawing.Icon(resourceStream)

        Grid_File.AutoRedraw = False
        Grid_File.ExtendLastCol = True
        Grid_File.DrawMode = FlexCell.DrawModeEnum.OwnerDraw
        Grid_File.AllowUserPaste = FlexCell.ClipboardDataEnum.Text
        Grid_File.Cols = 7
        Grid_File.Rows = 1
        Grid_File.DisplayRowNumber = True
        Grid_File.Cell(0, 0).Text = "ID"
        Grid_File.Cell(0, 1).Text = "A"
        Grid_File.Cell(0, 2).Text = "名称"
        Grid_File.Cell(0, 3).Text = "修改日期"
        Grid_File.Cell(0, 4).Text = "类型"
        Grid_File.Cell(0, 5).Text = "大小"
        Grid_File.Cell(0, 6).Text = "备注"
        Grid_File.Range(0, 1, 0, 6).Alignment = FlexCell.AlignmentEnum.CenterCenter
        Grid_File.Column(0).Width = 20
        Grid_File.Column(1).Width = 20
        Grid_File.Column(2).Width = 350
        Grid_File.Column(3).Width = 120
        Grid_File.Column(4).Width = 50
        Grid_File.Column(5).Width = 50

        Grid_File.Column(1).Locked = False
        Grid_File.Column(2).Locked = True
        Grid_File.Column(3).Locked = True
        Grid_File.Column(4).Locked = True
        Grid_File.Column(5).Locked = True
        Grid_File.Column(1).CellType = FlexCell.CellTypeEnum.CheckBox
        Grid_File.AutoRedraw = True

        Grid_File.Refresh()
    End Sub
    Private m_Tree As New Node

    Public Sub LoadingFileTree(filedirPath As String， tempNode As Node, Level As Integer)
        If Directory.Exists(filedirPath) = False Then Return '指定目录不存在
        Dim datas As IReadOnlyCollection(Of String) = My.Computer.FileSystem.GetFiles(filedirPath) '获取文件夹内的文件路径集合

        For Each strFileName As String In datas
            tempNode.Nodes.Add()
            Grid_File.AddItem(GetFileConfig(strFileName))
        Next

    End Sub
    Public Function IsNewAnalyzeFile(filedirPath As String， btime As Date) As Boolean
        If Directory.Exists(filedirPath) = False Then Return False   '指定目录不存在
        Dim datas As IReadOnlyCollection(Of String) = My.Computer.FileSystem.GetFiles(filedirPath) '获取文件夹内的文件路径集合

        For Each strFileName As String In datas
            Dim fa As FileAttributes = File.GetAttributes(strFileName)
            If fa = FileAttributes.Directory Then
                Continue For
            Else
                Dim tmpFileInfo As New FileInfo(strFileName)
                Dim sp = btime - tmpFileInfo.LastWriteTime
                If sp.TotalSeconds > 600 Then
                    Return False
                End If
            End If
        Next
        Return True
    End Function

    Public Function GetFileConfig(path As String) As String
        Dim result As String = "0" & vbTab
        Dim filesize As Double = 0
        Dim fa As FileAttributes = File.GetAttributes(path)
        If fa = FileAttributes.Directory Then
            Dim tmpDirInfo As New DirectoryInfo(path)
            result = result & tmpDirInfo.Name & vbTab & Format(tmpDirInfo.LastWriteTime, "yyyy-MM-dd HH:mm:ss") & vbTab & "Directory"

        Else
            Dim tmpFileInfo As New FileInfo(path)
            result = result & tmpFileInfo.Name & vbTab & Format(tmpFileInfo.LastWriteTime, "yyyy-MM-dd HH:mm:ss") & vbTab & "File" & vbTab
            result = result & GetfileSize(tmpFileInfo.Length)
        End If
        Return result
    End Function
    Public Function GetfileSize（fileSize As Long） As String
        Dim num As Double = 1024
        If fileSize < num Then
            Return fileSize.ToString & "B"
        ElseIf fileSize < Math.Pow(num, 2) Then
            Return (fileSize / num).ToString("f2") & "K"
        ElseIf fileSize < Math.Pow(num, 3) Then
            Return (fileSize / Math.Pow(num, 2)).ToString("f2") & "M"
        ElseIf fileSize < Math.Pow(num, 4) Then
            Return (fileSize / Math.Pow(num, 3)).ToString("f2") & "G"
        ElseIf fileSize < Math.Pow(num, 5) Then
            Return (fileSize / Math.Pow(num, 4)).ToString("f2") & "T"
        Else
            Return "文件大小获取异常"
        End If
    End Function


    Private Declare Function DrawIconEx Lib "user32" (ByVal hDC As IntPtr, ByVal xLeft As Integer, ByVal yTop As Integer, ByVal hIcon As IntPtr, ByVal cxWidth As Integer, ByVal cyWidth As Integer, ByVal istepIfAniCur As Integer, ByVal hbrFlickerFreeDraw As Integer, ByVal diFlags As Integer) As Integer
    Private Const DI_NORMAL = &H3

    Private Sub Grid_File_OwnerDrawCell(ByVal Sender As Object, ByVal e As FlexCell.Grid.OwnerDrawCellEventArgs) Handles Grid_File.OwnerDrawCell
        If e.Row < 1 OrElse e.Col <> 2 Then
            Return
        End If

        Dim i, j As Integer
        Dim blnDrawLine As Boolean
        Dim node, tmpNode As Node
        Dim intLevel As Integer
        Dim intWidth As Integer
        Dim intAdd As Integer

        If True Then
            intWidth = 20
            intAdd = 26
        Else
            intWidth = 10
            intAdd = 6
        End If

        node = m_Tree.FindNode(e.Row - 1 + 2)
        If node IsNot Nothing Then
            intLevel = node.Level - 1

            '画树线
            Dim pen As New System.Drawing.Pen(Color.Gray, 1)
            pen.DashStyle = Drawing2D.DashStyle.Solid
            For i = 0 To intLevel
                If i < intLevel - 1 Then
                    blnDrawLine = True
                    tmpNode = node
                    For j = i To intLevel - 2
                        tmpNode = tmpNode.Parent
                    Next
                    If tmpNode.NextNode Is Nothing Then
                        blnDrawLine = False
                    End If
                    If blnDrawLine Then
                        '全部
                        e.Graphics.DrawLine(pen, CInt(e.Bounds.Left + intWidth * i + intAdd), CInt(e.Bounds.Top - 1), CInt(e.Bounds.Left + intWidth * i + intAdd), CInt(e.Bounds.Bottom + 1))
                    End If
                ElseIf i = intLevel - 1 Then
                    '上半部分
                    e.Graphics.DrawLine(pen, CInt(e.Bounds.Left + intWidth * i + intAdd), CInt(e.Bounds.Top - 1), CInt(e.Bounds.Left + intWidth * i + intAdd), CInt(e.Bounds.Top + e.Bounds.Height / 2))
                    If node.NextNode IsNot Nothing Then
                        '下半部分
                        e.Graphics.DrawLine(pen, CInt(e.Bounds.Left + intWidth * i + intAdd), CInt(e.Bounds.Top + e.Bounds.Height / 2), CInt(e.Bounds.Left + intWidth * i + intAdd), CInt(e.Bounds.Bottom + 1))
                    End If
                ElseIf i = intLevel Then
                    '下半部分
                    If node.VisibleNodesCount > 1 Then
                        If True Then
                            e.Graphics.DrawLine(pen, CInt(e.Bounds.Left + intWidth * i + intAdd), CInt(e.Bounds.Top + e.Bounds.Height / 2) + 7, CInt(e.Bounds.Left + intWidth * i + intAdd), CInt(e.Bounds.Bottom + 1))
                        Else
                            e.Graphics.DrawLine(pen, CInt(e.Bounds.Left + intWidth * i + intAdd), CInt(e.Bounds.Top + e.Bounds.Height / 2), CInt(e.Bounds.Left + intWidth * i + intAdd), CInt(e.Bounds.Bottom + 1))
                        End If
                    End If
                End If
                '水平的
                If intLevel > 0 Then
                    e.Graphics.DrawLine(pen, CInt(e.Bounds.Left + intWidth * (intLevel - 1) + intAdd), CInt(e.Bounds.Top + e.Bounds.Height / 2), CInt(e.Bounds.Left + intWidth * (intLevel - 1) + intAdd + 10), CInt(e.Bounds.Top + e.Bounds.Height / 2))
                End If
            Next
            pen.Dispose()

            '+/-
            If node.ChildrenCount > 0 Then
                Dim rect As New Rectangle(e.Bounds.Left + 2 + intLevel * intWidth, CInt(e.Bounds.Top + (e.Bounds.Height - 9) / 2), 8, 8)
                e.Graphics.FillRectangle(Brushes.White, rect)
                e.Graphics.DrawRectangle(Pens.Black, rect)
                If node.Expanded Then
                    e.Graphics.DrawLine(Pens.Black, rect.Left + 2, rect.Top + 4, rect.Right - 2, rect.Top + 4)
                Else
                    e.Graphics.DrawLine(Pens.Black, rect.Left + 2, rect.Top + 4, rect.Right - 2, rect.Top + 4)
                    e.Graphics.DrawLine(Pens.Black, rect.Left + 4, rect.Top + 2, rect.Left + 4, rect.Bottom - 2)
                End If
            End If

            '图标
            '  If CheckBox1.Checked Then
            If node.IsDirectory Then
                DrawIconEx(e.hDC, e.Bounds.Left + intWidth * intLevel + 18, e.Bounds.Top + (e.Bounds.Height - 16) / 2, m_FolderIcon.Handle, 16, 16, 0, 0, DI_NORMAL)
            Else
                DrawIconEx(e.hDC, e.Bounds.Left + intWidth * intLevel + 18, e.Bounds.Top + (e.Bounds.Height - 16) / 2, m_FileIcon.Handle, 16, 16, 0, 0, DI_NORMAL)
            End If
            '  End If

            '文字
            With Grid_File.Cell(e.Row, e.Col)
                If True Then
                    e.Graphics.DrawString(.Text, .Font, Brushes.Black, e.Bounds.Left + intWidth * intLevel + 35, e.Bounds.Top + (e.Bounds.Height - e.Graphics.MeasureString(.Text, .Font).Height) / 2 + 1)
                Else
                    e.Graphics.DrawString(.Text, .Font, Brushes.Black, e.Bounds.Left + intWidth * intLevel + 12, e.Bounds.Top + (e.Bounds.Height - e.Graphics.MeasureString(.Text, .Font).Height) / 2 + 1)
                End If
            End With

            e.Handled = True
        End If
    End Sub
    Private Sub Grid_File_MouseDown(ByVal Sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Grid_File.MouseDown
        If Grid_File.EditorVisible Then '处于编辑状态
            Return
        End If

        If e.Button <> Windows.Forms.MouseButtons.Right Then
            Return
        End If

        Dim cell As FlexCell.Cell = Grid_File.HitTest(e.X, e.Y)
        If cell Is Nothing Then
            Return
        End If
        If cell.Row < 1 OrElse cell.Col <> 2 Then
            '  If cell.Row < m_Row OrElse cell.Col <> m_Col Then
            Return
        End If

        Grid_File.Range(cell.Row, cell.Col, cell.Row, cell.Col).SelectCells()

        Dim node As Node = m_Tree.FindNode(cell.Row - 1 + 2)
        If node Is Nothing Then
            Return
        End If

        If node.ChildrenCount > 0 Then
            If node.Expanded Then
                mnuExpand.Enabled = False
                mnuCollapse.Enabled = True
            Else
                mnuExpand.Enabled = True
                mnuCollapse.Enabled = False
            End If
        Else
            mnuExpand.Enabled = False
            mnuCollapse.Enabled = False
        End If

        If node.Level = 1 Then
            mnuRemove.Enabled = False '第一个节点不允许删除
            mnuLevelDown.Enabled = False
        Else
            mnuRemove.Enabled = True
            If node.PrevNode Is Nothing Then
                mnuLevelDown.Enabled = False
            Else
                mnuLevelDown.Enabled = True
            End If
        End If

        If node.Level <= 2 Then
            mnuLevelUp.Enabled = False
        Else
            mnuLevelUp.Enabled = True
        End If

        If node.PrevNode Is Nothing Then
            mnuMoveUp.Enabled = False
        Else
            If node.Level > 1 Then
                mnuMoveUp.Enabled = True
            Else
                mnuMoveUp.Enabled = False
            End If
        End If

        If node.NextNode Is Nothing Then
            mnuMoveDown.Enabled = False
        Else
            If node.Level > 1 Then
                mnuMoveDown.Enabled = True
            Else
                mnuMoveDown.Enabled = False
            End If
        End If

        ContextMenuStrip1.Show(MousePosition.X, MousePosition.Y)
    End Sub
    Private Sub Grid_File_Click(ByVal Sender As Object, ByVal e As System.EventArgs) Handles Grid_File.Click
        If Grid_File.EditorVisible Then '处于编辑状态
            Return
        End If

        Dim point As Point = Grid_File.PointToClient(Windows.Forms.Cursor.Position)
        Dim cell As FlexCell.Cell = Grid_File.HitTest(point.X, point.Y)
        Dim intWidth As Integer

        If True Then
            intWidth = 20
        Else
            intWidth = 10
        End If

        If cell IsNot Nothing Then

            If cell.Row >= 1 AndAlso cell.Col = 2 Then
                Dim node As Node
                node = m_Tree.FindNode(cell.Row - 1 + 2)
                If node IsNot Nothing Then
                    Dim rect As New Rectangle(cell.Bounds.Left + 2 + (node.Level - 1) * intWidth, cell.Bounds.Top + (cell.Bounds.Height - 9) / 2, 8, 8)
                    Dim i As Integer
                    If rect.Contains(point) Then
                        If node.Expanded Then
                            node.Collapse()
                            Grid_File.AutoRedraw = False
                            For i = 1 To node.ChildrenCount
                                Grid_File.Row(cell.Row + i).Visible = False
                            Next
                            Grid_File.AutoRedraw = True
                            Grid_File.Refresh()
                        Else
                            node.Expand()
                            Grid_File.AutoRedraw = False
                            For i = 1 To node.ChildrenCount
                                If node.FindNode(i + 1).Visible Then
                                    Grid_File.Row(cell.Row + i).Visible = True
                                End If
                            Next
                            Grid_File.AutoRedraw = True
                            Grid_File.Refresh()
                        End If
                    End If
                End If
            End If
        End If
    End Sub
    Private g_isCheckBox1CheckedChanged As Boolean = False
    'Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs)
    '
    'End Sub



    Public Sub ALLDirectory(IsAll As Boolean)

        If g_isCheckBox1CheckedChanged Then
            g_isCheckBox1CheckedChanged = False
            Return
        End If
        Grid_File.AutoRedraw = False
        For i As Integer = 1 To Grid_File.Rows - 1
            Grid_File.Cell(i, 1).Text = IIf(IsAll, "1", "0")
        Next
        Grid_File.AutoRedraw = True
        Grid_File.Refresh()
    End Sub




#End Region
#End Region

#Region "文件解析"

    Private g_RowFileDic As Dictionary(Of Integer， String）
    Private Sub Grid_File_CellChange(Sender As Object, e As FlexCell.Grid.CellChangeEventArgs) Handles Grid_File.CellChange

        If e.Row > 0 AndAlso e.Col = 1 Then
            If Grid_File.Cell(e.Row, 4).Text.Equals("Directory") Then
                If Grid_File.Cell(e.Row, 1).Text.Equals("1") Then
                    g_isCheckBox1CheckedChanged = False
                    ALLDirectory(True)
                Else
                    ALLDirectory(False)
                End If
            Else
                If Grid_File.Cell(e.Row, 1).Text.Equals("1") Then
                    If g_RowFileDic.ContainsKey(e.Row) Then
                        g_RowFileDic.Item(e.Row) = Grid_File.Cell(e.Row, 2).Text
                    Else
                        If IsAuto Then
                            If TimeDriverJudgement(e.Row) Then
                                g_RowFileDic.Add(e.Row, Grid_File.Cell(e.Row, 2).Text)
                            Else
                                Grid_File.Cell(e.Row, 1).Text = "0"
                            End If
                        Else
                            g_RowFileDic.Add(e.Row, Grid_File.Cell(e.Row, 2).Text)
                        End If

                    End If
                Else
                    If g_RowFileDic.ContainsKey(e.Row) Then
                        g_RowFileDic.Remove(e.Row)
                    End If
                    g_isCheckBox1CheckedChanged = True
                    Grid_File.Cell(1, 1).Text = "0"
                End If
            End If
        End If

    End Sub

    Public Function TimeDriverJudgement(Trow As Integer) As Boolean
        Dim filetime As Date = Date.Parse(Grid_File.Cell(Trow, 3).Text)
        Dim sp = AutoTime - filetime
        If sp.TotalSeconds > 600 Then
            Return True
        End If
        Return False
    End Function


    Private Sub btn_analysis_Click(sender As Object, e As EventArgs) Handles btn_analysis.Click
        'Dim logpar As New LogParsing

        If IsNothing(g_fileAnalysisThread) OrElse Not g_fileAnalysisThread.IsAlive Then
            Console.WriteLine(g_RowFileDic.Count)
            If g_RowFileDic.Count > 0 Then
                StartfileAnalysisThread()
            End If
        Else
            Debug.WriteLine("正在同步")
            Trace.WriteLine("正在同步")
        End If



    End Sub

    Private g_fileAnalysisThread As Thread
    Public Sub StartfileAnalysisThread()
        If IsNothing(g_fileAnalysisThread) Then
            g_fileAnalysisThread = New Thread(AddressOf FileDataToSqlRuning)
        End If
        If g_fileAnalysisThread.IsAlive Then Return
        Try
            g_fileAnalysisThread = New Thread(AddressOf FileDataToSqlRuning)
            g_fileAnalysisThread.Start()
        Catch ex As Exception

        End Try
    End Sub
    Public Sub FileDataToSqlRuning()
        Dim logpar As New LogParsing

        AddHandler logpar.Fileschedule, AddressOf SetUIProgressBar2
        SetUIProgressBar1("", 0, g_RowFileDic.Count)
        For Index As Integer = 0 To g_RowFileDic.Count - 1
            SetUIProgressBar1(g_RowFileDic.Values(Index), Index)
            Dim filepath As String = DirPath_txt.Text & "\" & g_RowFileDic.Values(Index)
            Dim starttime As Date = Date.Now
            Dim tsp As TimeSpan
            logpar.Parsefile(TextBox1.Text， filepath)
            tsp = Now - starttime
            Console.WriteLine($"文件{g_RowFileDic.Values(Index)}解析时间：" & tsp.TotalMilliseconds)
        Next
        SetUIProgressBar1("", g_RowFileDic.Count)
        'If IsAuto Then
        '    Btn_refresh_Click(Nothing, Nothing)
        'End If
    End Sub
    Delegate Sub delegate_MatchingInfo_Change(filename As String， berval As Integer, bervalmax As Integer)

    Public Sub SetUIProgressBar1(filename As String， berval As Integer, Optional bervalmax As Integer = Nothing)
        If InvokeRequired = True Then
            Dim dev As New delegate_MatchingInfo_Change(AddressOf SetUIProgressBar1)
            Me.Invoke(dev, New Object() {filename, berval, bervalmax})
        Else

            If bervalmax > 0 Then
                PBar_1.Maximum = bervalmax
            End If
            PBar_1.Value = berval
            If Not String.IsNullOrEmpty(filename) Then
                Lab_4.Text = filename
            End If
            If PBar_1.Maximum = berval Then
                g_RowFileDic.Clear()
                Btn_refresh_Click(Nothing, Nothing)
            End If
        End If
    End Sub
    Delegate Sub delegate_MatchingInfo(berval As Integer, ismax As Boolean)
    Public Sub SetUIProgressBar2(berval As Integer, ismax As Boolean)
        If InvokeRequired = True Then
            Dim dev As New delegate_MatchingInfo(AddressOf SetUIProgressBar2)
            Me.Invoke(dev, New Object() {berval, ismax})
        Else
            If ismax Then
                PBar_2.Value = berval
            Else
                PBar_2.Maximum = berval
                PBar_2.Value = 0
            End If
        End If

    End Sub






#End Region
#Region "页面切换"
    Private Sub toopBtn_Fileloading_Selected(sender As Object, e As TabControlEventArgs) Handles toopBtn_Fileloading.Selected
        If toopBtn_Fileloading.SelectedIndex = 0 Then
            If g_RowFileDic.Count > 0 Then
                Btn_refresh.PerformClick()
            End If
        ElseIf toopBtn_Fileloading.SelectedIndex = 1 Then
            GetTablename()
        End If
    End Sub




#End Region

#Region "查询页面"
    Public Sub GetTablename()
        Dim logpar As New LogParsing
        Dim li As List(Of String)
        Dim headnode As New TreeNode("LogService.db")
        li = logpar.Gettablename()
        Tree_View2.Nodes.Clear()
        Tree_View2.Nodes.Add(headnode)
        Tree_View2.Tag = headnode
        headnode.Expand()

        If IsNothing(li) Or li.Count = 0 Then
            Return
        Else
            For Each index As String In li
                Dim Cnode As New TreeNode(index)
                headnode.Nodes.Add(Cnode)

            Next
        End If
        If headnode.Nodes.Count > 0 Then
            Tree_View2.SelectedNode = headnode.Nodes(0)
            Tree_View2_NodeMouseClick(Nothing, Nothing)
        End If

    End Sub

    Private Sub Tree_View2_NodeMouseClick(sender As Object, e As TreeNodeMouseClickEventArgs) Handles Tree_View2.NodeMouseClick

        Dim node As TreeNode = Tree_View2.SelectedNode
        Dim logpar As New LogParsing
        If node Is Nothing Then Return
        If node.Level <> 1 Then Return
        Label6.Text = node.Text
        If Not IsNothing（g_TableLookup） AndAlso g_TableLookup.IsAlive Then
            g_TableLookup.Abort()
            txt_find.ReadOnly = False
            Button1.Enabled = True
            g_OldRowColor.Clear()
        End If
        Dim udt As DataTable = logpar.QueryDatabase(node.Text)
        Grid_tab.AutoRedraw = False
        Grid_tab.SetDataBinding(udt)
        SetGridStyle()
        Grid_tab.AutoRedraw = True
        Grid_tab.Refresh()
    End Sub
    Public Sub SetGridStyle()
        '设置隐藏列
        Grid_tab.Column(0).Visible = False
        Grid_tab.Column(TableColName.TimeSpan).Visible = False
        Grid_tab.Column(TableColName.mac).Visible = False
        Grid_tab.Column(TableColName.logprojectid).Visible = False
        Grid_tab.Column(TableColName.logroomid).Visible = False
        Grid_tab.Column(TableColName.log_valid).Visible = False
        '全表 字体居中
        Grid_tab.Range(1, 1, Grid_tab.Rows - 1, Grid_tab.Cols - 1).Alignment = AlignmentEnum.CenterCenter
        '设置排序
        Grid_tab.AllowUserSort = True
        '设置列宽


        Grid_tab.Column(TableColName.ID).Width = 20
        Grid_tab.Column(TableColName.createdatetime).Width = 130
        Grid_tab.Column(TableColName.logfilename).Width = 220
        Grid_tab.Column(TableColName.log_sn).Width = 25
        Grid_tab.Column(TableColName.log_len).Width = 20
        Grid_tab.Column(TableColName.log_datetime).Width = 130
        Grid_tab.Column(TableColName.log_timespan).Width = 40
        Grid_tab.Column(TableColName.log_type).Width = 20
        Grid_tab.Column(TableColName.log_content).Width = 200
        Grid_tab.Column(TableColName.type_param_1).Width = 80
        Grid_tab.Column(TableColName.type_param_2).Width = 100
        Grid_tab.Column(TableColName.type_param_3).Width = 80
        Grid_tab.Column(TableColName.type_param_4).Width = 80

        Grid_tab.Column(TableColName.type_param_5).Width = 80
        Grid_tab.Column(TableColName.type_param_6).Width = 180
        Grid_tab.Column(TableColName.type_param_7).Width = 180
        Grid_tab.Column(TableColName.type_param_8).Width = 180
        Grid_tab.Column(TableColName.type_param_9).Width = 180
        Grid_tab.Column(TableColName.type_param_10).Width = 180
        Grid_tab.Column(TableColName.remark).Width = 180
    End Sub

    Private Sub btn_delete_Click(sender As Object, e As EventArgs) Handles btn_delete.Click
        Dim strInputMsg As String = InputBox("请输入密码", "密码确认")

        If strInputMsg <> "Cc2022OK" Then Return
        Dim node As TreeNode = Tree_View2.SelectedNode
        Dim logpar As New LogParsing
        If node Is Nothing Then Return
        If node.Level <> 1 Then Return
        logpar.DeleteTable(node.Text)
        Dim headnode As TreeNode = Tree_View2.Tag
        headnode.Nodes.Remove(node)
        If Label6.Text.Equals(node.Text) Then
            Label6.Text = "----------"
            Grid_tab.AutoRedraw = False
            If Not IsNothing（g_TableLookup） AndAlso g_TableLookup.IsAlive Then
                g_TableLookup.Abort()
                txt_find.ReadOnly = False
                Button1.Enabled = True
                g_OldRowColor.Clear()
            End If
            Dim udt As DataTable = logpar.QueryDatabase("Insqlite_UserTest")
            Grid_tab.AutoRedraw = False
            Grid_tab.SetDataBinding(udt)
            SetGridStyle()
            Grid_tab.AutoRedraw = True
            Grid_tab.Refresh()
        End If

    End Sub

    Private Sub delete_all_Click(sender As Object, e As EventArgs) Handles delete_all.Click
        Dim strInputMsg As String = InputBox("请输入密码", "密码确认")
        If strInputMsg <> "Cc2022OK" Then Return
        Dim logpar As New LogParsing
        Dim headnode As TreeNode = Tree_View2.Tag
        For Each index As TreeNode In headnode.Nodes
            logpar.DeleteTable(index.Text)
            If Label6.Text.Equals(index.Text) Then
                Label6.Text = "----------"
                Grid_tab.AutoRedraw = False
                If Not IsNothing（g_TableLookup） AndAlso g_TableLookup.IsAlive Then
                    g_TableLookup.Abort()
                    txt_find.ReadOnly = False
                    Button1.Enabled = True
                    g_OldRowColor.Clear()
                End If
                Dim udt As DataTable = logpar.QueryDatabase("Insqlite_UserTest")
                Grid_tab.AutoRedraw = False
                If udt.Rows.Count > 0 Then
                    Grid_tab.SetDataBinding(udt)

                End If

                SetGridStyle()
                Grid_tab.AutoRedraw = True
                Grid_tab.Refresh()
            End If
        Next
        headnode.Nodes.Clear()
    End Sub

    Private Sub Table_save_Click(sender As Object, e As EventArgs) Handles Table_save.Click
        Dim savePath As String
        Using dlg As New FolderBrowserDialog
            dlg.Description = "保存到"

            dlg.SelectedPath = My.Settings.FileDir

            If dlg.ShowDialog <> DialogResult.OK Then Return

            savePath = dlg.SelectedPath
            Grid_tab.ExportToExcel(dlg.SelectedPath & $"\{Label6.Text }.xls", "数据表"， True, False)


        End Using
    End Sub

    Private Sub systemfont_TextChanged(sender As Object, e As EventArgs) Handles systemfont.TextChanged
        Dim str As String = systemfont.SelectedItem.ToString
        Dim theFont As New System.Drawing.Font(str, 9.ToString)
        Grid_tab.Selection.Font = theFont
    End Sub
    Private Sub Handles_TextChanged(sender As Object, e As EventArgs) Handles Textsize.TextChanged
        Grid_tab.Selection.FontSize = CType(Textsize.Text, Integer)
    End Sub

    Private Sub btn_bold_Click(sender As Object, e As EventArgs) Handles btn_bold.Click
        Grid_tab.Selection.FontBold = Not Grid_tab.ActiveCell.FontBold
    End Sub

    Private Sub btn_lean_Click(sender As Object, e As EventArgs) Handles btn_lean.Click
        Grid_tab.Selection.FontItalic = Not Grid_tab.ActiveCell.FontItalic
    End Sub

    Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click
        Grid_tab.Selection.FontUnderline = Not Grid_tab.ActiveCell.FontUnderline
    End Sub



    Private Sub btn_txtcolor_ButtonClick(sender As Object, e As EventArgs) Handles btn_txtcolor.ButtonClick
        If Not IsNothing(Grid_tab.Selection) AndAlso Grid_tab.Selection.FirstRow <> 0 Then
            Grid_tab.Selection.ForeColor = btn_txtcolor.ForeColor
        End If

    End Sub

    Private Sub btn_txtcolor_DropDownOpening(sender As Object, e As EventArgs) Handles btn_txtcolor.DropDownOpening
        If ColorDialog1.ShowDialog() = DialogResult.OK Then
            btn_txtcolor.ForeColor = ColorDialog1.Color
            If Not IsNothing(Grid_tab.Selection) OrElse Grid_tab.Selection.FirstRow <> 0 Then
                Grid_tab.Selection.ForeColor = btn_txtcolor.ForeColor
            End If
        End If
    End Sub

    Private Sub btn_bcolor_DropDownOpening(sender As Object, e As EventArgs) Handles btn_bcolor.DropDownOpening
        If ColorDialog1.ShowDialog() = DialogResult.OK Then
            btn_bcolor.ForeColor = ColorDialog1.Color
            If Not IsNothing(Grid_tab.Selection) OrElse Grid_tab.Selection.FirstRow <> 0 Then
                Grid_tab.Selection.BackColor = btn_bcolor.ForeColor
            End If
        End If
    End Sub

    Private Sub btn_bcolor_ButtonClick(sender As Object, e As EventArgs) Handles btn_bcolor.ButtonClick
        If Not IsNothing(Grid_tab.Selection) AndAlso Grid_tab.Selection.FirstRow <> 0 Then
            Grid_tab.Selection.BackColor = btn_bcolor.ForeColor
        End If
    End Sub

    Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click， ToolStripMenuItem5.Click， ToolStripMenuItem4.Click
        Dim MenuItem As ToolStripMenuItem = sender
        btn_center.Image = MenuItem.Image
        btn_center.Tag = MenuItem.Tag
        If Not IsNothing(Grid_tab.Selection) AndAlso Grid_tab.Selection.FirstRow <> 0 Then
            Grid_tab.Selection.Alignment = btn_center.Tag
        End If
    End Sub

    Private Sub btn_center_ButtonClick(sender As Object, e As EventArgs) Handles btn_center.ButtonClick
        If Not IsNothing(Grid_tab.Selection) AndAlso Grid_tab.Selection.FirstRow <> 0 Then
            Grid_tab.Selection.Alignment = btn_center.Tag
        End If
    End Sub

    Private g_OldRowColor As Dictionary(Of Integer, Color())
    'Private Sub Grid_tab_MouseHover(Sender As Object, e As EventArgs) Handles Grid_tab.MouseHover
    '    ' Grid_tab.MouseCol
    '    Dim mosrow As Integer = Grid_tab.MouseRow
    '    If mosrow < 1 Then Return
    '    Dim rowcolor As New List(Of Color)
    '    Console.WriteLine($"mosrow:{mosrow}")
    '    For index As Integer = 0 To Grid_tab.Cols - 1
    '        If g_OldRowColor.Count > 0 Then
    '            Grid_tab.Cell(g_OldRowColor.Keys(0), index).BackColor = g_OldRowColor.Values(0)(index)
    '        End If
    '        rowcolor.Add(Grid_tab.Cell(mosrow, index).BackColor)
    '    Next
    '    g_OldRowColor.Clear()
    '    g_OldRowColor.Add(mosrow, rowcolor.ToArray)

    '    Grid_tab.Range(mosrow, 1, mosrow, Grid_tab.Cols - 1).BackColor = Color.LightYellow
    'End Sub

    Private Sub Grid_tab_MouseLeave(sender As Object, e As EventArgs) Handles Grid_tab.MouseLeave
        If g_OldRowColor.Count > 0 Then
            For index As Integer = 0 To Grid_tab.Cols - 1
                If g_OldRowColor.Count > 0 Then
                    Grid_tab.Cell(g_OldRowColor.Keys(0), index).BackColor = g_OldRowColor.Values(0)(index)
                End If
                ' rowcolor.Add(Grid_tab.Cell(Grid_tab.MouseRow, index).BackColor)
            Next
        End If

    End Sub

    Private Sub Grid_tab_MouseMove(Sender As Object, e As MouseEventArgs) Handles Grid_tab.MouseMove
        Dim mosrow As Integer = Grid_tab.MouseRow
        If mosrow < 1 Then Return
        If g_OldRowColor.Count > 0 Then
            If mosrow = g_OldRowColor.Keys(0) Then Return
        End If

        Dim rowcolor As New List(Of Color)
        ' Console.WriteLine($"mosrow:{mosrow}")
        For index As Integer = 0 To Grid_tab.Cols - 1
            If g_OldRowColor.Count > 0 Then
                Grid_tab.Cell(g_OldRowColor.Keys(0), index).BackColor = g_OldRowColor.Values(0)(index)
            End If
            rowcolor.Add(Grid_tab.Cell(mosrow, index).BackColor)
            If index = 0 Then Continue For
            Grid_RowConfig.Cell(index, 2).Text = Grid_tab.Cell(mosrow, index).Text
        Next
        g_OldRowColor.Clear()
        g_OldRowColor.Add(mosrow, rowcolor.ToArray)

        Grid_tab.Range(mosrow, 1, mosrow, Grid_tab.Cols - 1).BackColor = Color.Yellow
    End Sub

    Private Sub Grid_tab_KeyDown(Sender As Object, e As KeyEventArgs) Handles Grid_tab.KeyDown
        If e.KeyData = Keys.Up Then

            Dim mosrow As Integer = Grid_tab.ActiveCell.Row - 1
            If mosrow < 1 Then Return
            If g_OldRowColor.Count > 0 Then
                If mosrow = g_OldRowColor.Keys(0) Then Return
            End If
            Dim rowcolor As New List(Of Color)
            ' Console.WriteLine($"mosrow:{mosrow}")
            For index As Integer = 0 To Grid_tab.Cols - 1
                If g_OldRowColor.Count > 0 Then
                    Grid_tab.Cell(g_OldRowColor.Keys(0), index).BackColor = g_OldRowColor.Values(0)(index)
                End If
                rowcolor.Add(Grid_tab.Cell(mosrow, index).BackColor)
                If index = 0 Then Continue For
                Grid_RowConfig.Cell(index, 2).Text = Grid_tab.Cell(mosrow, index).Text
            Next
            g_OldRowColor.Clear()
            g_OldRowColor.Add(mosrow, rowcolor.ToArray)

            Grid_tab.Range(mosrow, 1, mosrow, Grid_tab.Cols - 1).BackColor = Color.Yellow
        ElseIf e.KeyData = Keys.Down Then

            Dim mosrow As Integer = Grid_tab.ActiveCell.Row + 1
            If mosrow < 1 Then Return
            If g_OldRowColor.Count > 0 Then
                If mosrow = g_OldRowColor.Keys(0) Then Return
            End If
            Dim rowcolor As New List(Of Color)
            ' Console.WriteLine($"mosrow:{mosrow}")
            For index As Integer = 0 To Grid_tab.Cols - 1
                If g_OldRowColor.Count > 0 Then
                    Grid_tab.Cell(g_OldRowColor.Keys(0), index).BackColor = g_OldRowColor.Values(0)(index)
                End If
                rowcolor.Add(Grid_tab.Cell(mosrow, index).BackColor)
                If index = 0 Then Continue For
                Grid_RowConfig.Cell(index, 2).Text = Grid_tab.Cell(mosrow, index).Text
            Next
            g_OldRowColor.Clear()
            g_OldRowColor.Add(mosrow, rowcolor.ToArray)

            Grid_tab.Range(mosrow, 1, mosrow, Grid_tab.Cols - 1).BackColor = Color.Yellow
        End If
    End Sub

    Private Sub delete_flag_Click(sender As Object, e As EventArgs) Handles delete_flag.Click
        Dim headnode As TreeNode = Tree_View2.Nodes(0)
        If headnode.Nodes.Count > 0 Then
            'Tree_View2.SelectedNode = headnode.Nodes(0)
            'Tree_View2_NodeMouseClick(Nothing, Nothing)
            Dim logpar As New LogParsing
            If Not IsNothing（g_TableLookup） AndAlso g_TableLookup.IsAlive Then
                g_TableLookup.Abort()
                g_OldRowColor.Clear()
                txt_find.ReadOnly = False
                Button1.Enabled = True

            End If
            Dim udt As DataTable = logpar.QueryDatabase(Label6.Text)
            Grid_tab.AutoRedraw = False
            Grid_tab.SetDataBinding(udt)
            SetGridStyle()
            Grid_tab.AutoRedraw = True
            Grid_tab.Refresh()
        End If
    End Sub





#End Region

#Region "全表查找"
    Public g_TableLookup As Thread
    Private IsLookupflag As Boolean = False '默认模糊查找
    Public Sub FuzzyLookup()

        txt_find.ReadOnly = True
        Button1.Enabled = False
        If IsNothing(g_TableLookup) Then
            g_TableLookup = New Thread(AddressOf StartTableLookup)
            g_TableLookup.Start()
            Return
        End If
        If g_TableLookup.IsAlive Then
            Return
        End If
        g_TableLookup = New Thread(AddressOf StartTableLookup)
        g_TableLookup.Start()

    End Sub


    Public Sub StartTableLookup()
        Dim ti As Date = Now
        Dim sp As TimeSpan
        If String.IsNullOrEmpty(txt_find.Text) Then
            ThreadSetTableCell(Grid_tab, 1, 1, Color.Red)
            Return
        End If
        For i As Integer = 1 To Grid_tab.Rows - 1
            For j As Integer = 1 To Grid_tab.Cols - 1
                If j = TableColName.TimeSpan OrElse j = TableColName.mac AndAlso
                   j = TableColName.logprojectid AndAlso j = TableColName.log_valid OrElse
                   j = TableColName.logroomid Then Continue For
                If IsLookupflag Then
                    If Grid_tab.Cell(i, j).Text.Equals(txt_find.Text) Then
                        ' Grid_tab.Cell(i, j).BackColor = Color.LightSalmon
                        ThreadSetTableCell(Grid_tab, i, j, Color.LightSalmon)
                    End If
                Else
                    If Grid_tab.Cell(i, j).Text.Contains(txt_find.Text) Then
                        ' Grid_tab.Cell(i, j).BackColor = Color.LightPink
                        ThreadSetTableCell(Grid_tab, i, j, Color.LightPink)
                    End If
                End If
            Next
        Next
        ThreadSetTableCell(Grid_tab, 1, 1, Color.Red)
        sp = Now - ti
        Console.WriteLine($"查找耗时：{sp.TotalMilliseconds }")

    End Sub
    Delegate Sub IsThreadSetTableCell(Gridtab As FlexCell.Grid, Inrow As Integer， Incol As Integer, thecolor As Color)
    Public Sub ThreadSetTableCell(Gridtab As FlexCell.Grid, Inrow As Integer， Incol As Integer, thecolor As Color)

        If InvokeRequired = True Then
            Dim dev As New IsThreadSetTableCell(AddressOf ThreadSetTableCell)
            Me.Invoke(dev, New Object() {Gridtab, Inrow, Incol， thecolor})
        Else
            If thecolor = Color.Red Then
                txt_find.ReadOnly = False
                Button1.Enabled = True
                Return
            End If
            Gridtab.Cell(Inrow, Incol).BackColor = thecolor
        End If
    End Sub


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        g_OldRowColor.Clear()
        FuzzyLookup()
    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        IsLookupflag = CheckBox1.Checked
    End Sub
    Private IsAuto As Boolean
    Private Sub ONOFF_btn_Click(sender As Object, e As EventArgs) Handles ONOFF_btn.Click
        'ONOFF_btn.Enabled = Not ONOFF_btn.Enabled


        IsAuto = Not IsAuto
        If IsAuto Then
            ONOFF_btn.Text = "停止循环扫描"
            ONOFF_btn.ForeColor = Color.Red

        Else
            ONOFF_btn.Text = "开始循环扫描"
            ONOFF_btn.ForeColor = Color.Black
            If Not IsNothing(g_fileAnalysisThread) Then
                g_fileAnalysisThread.Abort()
            End If
        End If
        DirPath_txt.Enabled = Not IsAuto
        SelectFile_btn.Enabled = Not IsAuto
        Btn_refresh.Enabled = Not IsAuto
        Count_txt.Enabled = Not IsAuto
        btn_analysis.Enabled = Not IsAuto

    End Sub
    Public AutoTime As Date
    Public Sub AotuDirToMySQL()

        While (IsAuto And Not g_fileAnalysisThread.IsAlive)

            AutoTime = Now
            If IsNewAnalyzeFile(DirPath_txt.Text, AutoTime) Then
                Return
            End If
            Dim sp = Now - AutoTime
            Console.WriteLine(sp.TotalSeconds)
            Btn_refresh_Click(Nothing, Nothing)
            g_RowFileDic.Clear()
            Grid_File.Cell(1, 1).Text = 1
            btn_analysis_Click(Nothing, Nothing)
            sp = Now - AutoTime
            Console.WriteLine(sp.TotalSeconds)

            Exit While
        End While
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Using dlg As New FolderBrowserDialog
            dlg.Description = "请选择文件解析后存放文件夹路径！"
            If String.IsNullOrEmpty(DirPath_txt.Text) Or IO.Directory.Exists(DirPath_txt.Text) Then
                dlg.SelectedPath = My.Settings.FileDir
            Else
                dlg.SelectedPath = DirPath_txt.Text
            End If

            If dlg.ShowDialog <> DialogResult.OK Then Return

            TextBox1.Text = dlg.SelectedPath

        End Using
    End Sub

    Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click
        If Label3.BackColor = SystemColors.ActiveCaption Then
            Label3.BackColor = SystemColors.GradientActiveCaption

        Else

            Label3.BackColor = SystemColors.ActiveCaption
        End If
    End Sub




#End Region

End Class