Imports System.Data.Common
Imports System.Globalization
Imports System.IO
Imports System.Text
Imports System.Threading
Imports FlexCell
Imports Mysqlx
Imports Newtonsoft.Json
Imports Steema.TeeChart

Public Class Form1


    Public filepath As String

    Public GdbConnString As String
    Public linglist As Dictionary(Of String， Steema.TeeChart.Styles.Line)
    Public linglist1 As Dictionary(Of String， Steema.TeeChart.Styles.Line)
    Dim LocalConnString As String
    Private _axis As List(Of Steema.TeeChart.Axis)
    Private _axis1 As List(Of Steema.TeeChart.Axis)
    Private _fastLine As Dictionary(Of String, Steema.TeeChart.Styles.FastLine)
    'Private _fastLine1 As Dictionary(Of String, Steema.TeeChart.Styles.FastLine)
    Private _curSor(1) As Steema.TeeChart.Tools.CursorTool
    Private _curSor1(1) As Steema.TeeChart.Tools.CursorTool
    Private Roomlist As Dictionary(Of String, String)
    Public g_Macconfig As (String, Dictionary(Of String, String))
    ''' <summary>
    ''' dat原始文件内容中的数据格式
    ''' </summary>
    Enum LOG_DATA_FORMAT
        Hand = 0
        SN            '日志每条数据增加序列号
        Len
        Len_8         '新增
        Check
        Date_H        '年：5bit 月：5bit 日：5bit
        Date_L
        Type
        Time8B        '小时时间戳
        Time16B
        Time24B
        Time32B
        Data
    End Enum
    ''' <summary>
    ''' 文件名结构解析
    ''' </summary>
    Public Structure fileNameInfoStruct
        Public MAC As String
        Public HotelId As String
        Public RoomId As String
        Public CreateDateTime As String
        Public LogFileName As String
    End Structure
    Public Structure Log_DateStruct
        Public year As UInt16
        Public month As Byte
        Public day As Byte
        Public hour As Byte
        Public minute As Byte
        Public second As Byte
        Public milliscond As UInt16
    End Structure
    Enum Debugtype
        log = 1
    End Enum
    Enum LNetComm
        N_Send = 1               '网络发送数据
        N_Recv                   '网络接收数据
    End Enum
    ''' <summary>
    ''' BLV设备类型
    ''' </summary>
    Enum BLV_DEVICE_TYPE

        RS485_Switch = &H6      'T1开关
        RS485_Temp = &H7        'T1温控器
        RS485_Card = &HA        'T1插卡取电
        RS485_IR_SEND = &HF     '红外转发
        RS485_RGB_Light = &H12  'RGB灯带
        RS485_XiaoBao = &H13    '小宝语音
        RS485_Time = &H23       '时间同步

        C12Dimming = &H12       'BLV_Cx Dimming设备
        C5Music = &H15          'BLV_Cx MUSIC设备
        C5IO = &HF1             'BLV_Cx IO设备
        PC_TEST = &HF2          'BLV_Cx PC测试
    End Enum
    ''' 日志数据 - 系统运行信息
    ''' </summary>
    Enum LSYS
        PHY_Change = 1          'PHY状态变化记录
        DevInfo_Error           '设备链表信息错误
        API_State               '升级状态
        NET_ARGC                '网络初始化参数
        MQTT_ARGC               'MQTT参数
        NetComm_State           '网络通讯状态
        NET_DafaultARGC         '网络默认参数
    End Enum
    Enum LOG_DEV_State
        Online = &H1
        Offline = &H2
    End Enum
    Enum LCOMM
        ASK_TO_Reply = 1        '轮询回复数据
        Send_Control            'RCU下发控制数据
        Control_Reply           'RCU控制回复数据
        Adjust_Baud             '设备调整波特率
    End Enum
    ''' <summary>
    ''' 日志数据 - Launcher记录信息
    ''' </summary>
    Enum LLauncher
        ''' <summary>
        ''' 校验APP
        ''' </summary>
        App_Check = 1
        ''' <summary>
        ''' 读取APP
        ''' </summary>
        Read_App
        ''' <summary>
        ''' 写Flash
        ''' </summary>
        Write_Flash
        ''' <summary>
        '''  恢复出厂设置
        ''' </summary>
        Factory_Reset
        ''' <summary>
        ''' 复位信号源
        ''' 0x00：软件复位
        ''' 0x01：上电复位
        ''' 0x02：看门狗复位
        ''' 0x03：外部手动复位
        ''' 0x05：从下电模式唤醒时的复位 - 通过WCHISPTool烧录后的复位
        ''' </summary>
        Reset_Source
    End Enum
    ''' 温控器设备数据结构
    ''' </summary>
    Class Device_Temp
        Public on_off As Byte       '开关机
        Public mode As Byte         '模式
        Public fan As Byte          '风速
        Public valve As Byte        '阀门
        Public set_temp As Byte     '设置温度
        Public indoor_temp As Byte  '室内温度
    End Class
    ''' 日志数据类型
    ''' </summary>
    Enum log_type
        Launcher = 1            'Launcher信息记录
        SYS_Record              '系统运行信息记录
        Device_COMM             '设备通讯记录
        Device_Online           '设备通讯状态记录
        Global_Parameters       '所有设备状态定期记录 - 暂时还没用
        Net_COMM                '网络通讯记录 - 暂时还没定
        Logic_Record            '逻辑处理记录 - 暂时还没定

    End Enum
    Public Structure LogDataInfoStruct
        Public MAC As String
        Public Log_Valid As Boolean
        Public Log_SN As UInt16
        Public Log_Len As UInt16
        Public Log_DateTime As Log_DateStruct
        Public Log_TimeSpan As Int64
        Public Log_Type As Byte
        Public Log_Content() As Byte
        Public HotelId As String
        Public RoomId As String
        Public CreateDateTime As String
        Public LogFileName As String
        Public parsing As List(Of String)
    End Structure
    Private Shared Log_Data_Len_Max As Int16 = 512
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Text = $"{Application.ProductName }{Application.ProductVersion }"
        filepath = $"{Application.StartupPath }\config.flx"
        g_Macconfig = ("", New Dictionary(Of String, String))
        GdbConnString = "Server=blv-cloud-db.mysql.rds.aliyuncs.com;Port=3307;Database=psmysql;Uid=blv_rcu;Pwd=fnadiaJDIJ7546;charset=utf8;"
        ' 假设你的TeeChart控件名为tcChart
        AddHandler ChartBar.MouseWheel, AddressOf tcChart_ChartMouseWheel
        ChartBar.Zoom.ZoomPercent(130)

        _axis = New List(Of Axis)
        _axis1 = New List(Of Axis)
        _fastLine = New Dictionary(Of String, Styles.FastLine)
        '_fastLine1 = New Dictionary(Of String, Styles.FastLine)
        My.Settings.Reload()
        If IO.Directory.Exists(My.Settings.FileDir) = True Then
            Label1.Text = My.Settings.FileDir
        End If




        init_Grid_config()
        FileTo_Grid_config()
        linglist = New Dictionary(Of String, Steema.TeeChart.Styles.Line)
        'initChartBar(10, 1701747214, 1704822658)
        'Testfunction()
        'ksjfk()
        GetDevtype()
        My.Settings.Reload()

        GetGetHotelList()
        If cbo_HotelList.Items.Count > 0 Then
            cbo_HotelList.SelectedIndex = 0
        End If
    End Sub

    '通过API获取酒店ID
    Private Sub GetGetHotelList()
        cbo_HotelList.Items.Clear()
        If IsNothing(Roomlist) Then Roomlist = New Dictionary(Of String, String)
        Roomlist.Clear()
        Dim li As List(Of String) = GetAccountAuth()
        cbo_HotelList.Items.AddRange(li.ToArray())
    End Sub
    Private Function GetAccountAuth() As List(Of String)
        Dim result As List(Of String) = New List(Of String)()
        Dim jsonString As String = HttpMothod.PostData("http://blv-rd.tech:19055/api/LowerMachineLog/GetHotelList"， "")
        If String.IsNullOrWhiteSpace(jsonString) Then Throw New Exception($"用户鉴权异常，请联系管理员")

        Dim login As LoginReturn = JsonConvert.DeserializeObject(Of LoginReturn)(jsonString)
        If login Is Nothing Then Throw New Exception($"解析用户权限错误!")

        If login.isok Then
            For Each item In login.response
                result.Add($"{item.code}|{item.name}")
                Roomlist.Add($"{item.code}|{item.name}", item.createdate)
            Next
        Else
            MsgBox("API获取酒店项目失败！")
            Return result
        End If
        Return result
    End Function

    ' 事件处理程序
    Private Sub tcChart_ChartMouseWheel(sender As Object, e As MouseEventArgs)
        ' 在这里添加你的逻辑
        ' 例如，根据e.Delta判断滚轮滚动方向
        Dim tx， ty As Integer
        If IsNothing(_fastLine) OrElse _fastLine.Count = 0 Then Return
        Dim fl = _fastLine.Values(0)
        If e.Delta > 0 Then
            'MessageBox.Show("鼠标向上滚动")
            'tx = ChartBar.Zoom.
            '    ty =
            ' ChartBar.Zoom.ZoomRect(New Rectangle(0, 50, ChartBar.Width, 100))


            '  If ChartBar.Zoom.HistorySteps.Count > 0 Then
            'ChartBar.Zoom.Undo()

            'Else
            ChartBar.Zoom.ZoomRect(New Rectangle(0, 0, ChartBar.Width, ChartBar.Height))
            '    Console.WriteLine($"鼠标向上滚动{ChartBar.Width},{ChartBar.Height}")
            ''   End If
            'Dim rectc = ChartBar.RectangleToClient(New Rectangle(0, 0, ChartBar.Width, ChartBar.Height))
            'Console.WriteLine(fl.Chart.ChartRect.X)
        Else
            'MessageBox.Show("鼠标向下滚动")
            ChartBar.Zoom.Undo()
            ' fl = _fastLine.Item(node.Key)
            'If ChartBar.Zoom.HistorySteps.Count > 0 Then
            '    ChartBar.Zoom.Undo()
            '    Console.WriteLine($"鼠标向上滚动_Undo")
            'Else
            '    ChartBar.Zoom.ZoomRect(New Rectangle((ChartBar.Width / 2) - 300, 0, (ChartBar.Width / 2) + 100, ChartBar.Height))
            '    Console.WriteLine($"鼠标向上滚动{(ChartBar.Width / 2) - 100},{(ChartBar.Width / 2) + 200}")
            'End If


            'ChartBar.Zoom.ZoomRect(New Rectangle(100, 100, 120, 120))
        End If

        'Dim X As Integer = Points1.CalcXPos(2)
        'Dim Y As Integer = TChart1.Axes.Left.CalcYPosValue(TChart1.Axes.Left.MaxYValue)
        'Dim Height As Integer = TChart1.Axes.Left.CalcYPosValue(TChart1.Axes.Left.MinYValue) - TChart1.Axes.Left.CalcYPosValue(TChart1.Axes.Left.MaxYValue)
        'Dim Width As Integer = Points1.CalcXPos(5) - X
        'Dim R As New Rectangle(X, Y, Width, Height)
        'TChart1.Zoom.ZoomRect(R)


    End Sub

    Public devnamedic As List(Of String)
    Public Sub GetDevtype()
        devnamedic = New List(Of String)
        Dim selectstr As String = "SELECT DEV_NAME
FROM `psmysql`.`deviceparsingdatalog`
GROUP BY DEV_NAME"
        Dim dt As DataTable
        Try
            Using db As New DbExecutor(DbExecutor.DbTypeEnum.Mysql, GdbConnString)
                db.Open()
                dt = db.ExecuteDataTable(selectstr)
                If IsNothing(dt) OrElse dt.Rows.Count = 0 OrElse dt.Columns.Count = 0 Then
                    MsgBox($"数据查询失败！！！{vbCrLf }原因:{vbCrLf }数据查询语句异常:{selectstr}")
                Else
                    For i = 0 To dt.Rows.Count - 1
                        devnamedic.Add(dt(i)(0))
                    Next



                End If


            End Using




        Catch ex As Exception
            MsgBox($"数据查询失败！！！{vbCrLf }原因:{vbCrLf }{ex.Message }")
            Return
        End Try
    End Sub
    Public Function ClearDeviceform(dbpath As String, Tftp_Log As String) As Boolean

        Dim localConn As New DbConnectionStringBuilder
        localConn.Add("Data Source", dbpath)
        'localConn.Add("Password", "123456")
        LocalConnString = localConn.ToString()


        Dim selectstr As String = $"CREATE TABLE  IF NOT EXISTS [{Tftp_Log}] (
	                                                                [ID] integer COLLATE BINARY NOT NULL PRIMARY KEY AUTOINCREMENT, 
	                                                                [DevName] nvarchar(254) COLLATE BINARY, 
                                                                    [FileName] nvarchar(254) COLLATE BINARY,
                                                                    [CreateFileTime] nvarchar(254) COLLATE BINARY,
                                                                    [Datastr] nvarchar(254) COLLATE BINARY,
	                                                                [T1] nvarchar(254) COLLATE BINARY, 
                                                                    [DevService] nvarchar(254) COLLATE BINARY, 
                                                                    [T3] nvarchar(254) COLLATE BINARY, 
                                                                    [T2] nvarchar(254) COLLATE BINARY,
                                                                    [T5] nvarchar(254) COLLATE BINARY,
	                                                                [T4] nvarchar(254) COLLATE BINARY, 
	                                                                [loop] nvarchar(254) COLLATE BINARY, 
	                                                                [Datatime] integer COLLATE BINARY	)"

        Dim dt As DataTable
        Try
            Using db As New DbExecutor(DbExecutor.DbTypeEnum.Sqlite, LocalConnString)

                db.Open()
                'Try
                '    'Dim vselectstr = $"DELETE FROM {Tftp_Log};"
                '    'db.ExecuteNonQuery(vselectstr)
                'Catch ex As Exception


                'End Try
                dt = db.ExecuteDataTable(selectstr)
                db.Close()
                If IsNothing(dt) Then
                    MsgBox($"数据表创建失败！！！{vbCrLf }")
                    Return False
                Else
                    Return True
                End If
                Return True

            End Using

        Catch ex As Exception
            MsgBox($"数据表创建失败！！！{vbCrLf }原因:{vbCrLf }{ex.Message }")
            Return False
        End Try
    End Function

    Private Sub InitPieChart(kkdic As Dictionary(Of String， Dictionary(Of String, Double)), starttime As Date， stoptime As Date)
        InitTeeChart(kkdic, starttime, stoptime)

        Dim fl As Steema.TeeChart.Styles.FastLine
        Dim tval As Dictionary(Of String, Double)
        Dim yt, yn As DateTime
        Dim sp = stoptime - starttime
        Dim dtOffset As New DateTimeOffset(starttime)
        Dim tstr As String
        Dim tstfsr As String

        'Dim index As Integer = 0

        For Each node In kkdic
            'Console.WriteLine($"{node.Key}")
            If node.Key = "执行条件状态" Then
                fl = _fastLine.Item(node.Key)
                Dim MarksTip1 As Steema.TeeChart.Tools.MarksTip = New Steema.TeeChart.Tools.MarksTip(ChartBar.Chart)
                MarksTip1.Series = fl
                MarksTip1.ForeColor = Color.White
                MarksTip1.BackColor = Color.Gray
                MarksTip1.HideDelay = 2500
                MarksTip1.MouseDelay = 100
                MarksTip1.Style = Styles.MarksStyles.LabelOrValue
                MarksTip1.MouseAction = Tools.MarksTipMouseAction.Click
            End If
            For t = 0 To sp.TotalSeconds
                fl = _fastLine.Item(node.Key)
                tval = node.Value

                yt = （dtOffset.AddSeconds(t)).LocalDateTime
                tstr = $"{yt.Year }/{yt.Month }/{yt.Day } {yt.Hour }:{yt.Minute }:{yt.Second }"

                If t <> 0 Then
                    yn = （dtOffset.AddSeconds(t - 1)).LocalDateTime
                    tstfsr = $"{yn.Year }/{yn.Month }/{yn.Day } {yn.Hour }:{yn.Minute }:{yn.Second }"
                End If


                If node.Key = "执行条件状态" Then


                    If tval.ContainsKey(tstr) Then
                        If t = 0 OrElse Not (tval.Item(tstr) <> tval.Item(tstfsr)) Then

                        Else
                            fl.Add(yt.AddHours(8).ToOADate, tval.Item(tstfsr))
                        End If
                        fl.Add(yt.AddHours(8).ToOADate, tval.Item(tstr))
                    Else

                        If Date.Parse(tstr) < Date.Parse(tval.Keys(0)) Then
                            fl.Add(yt.AddHours(8).ToOADate, 0)
                            tval.Add(tstr, 0)
                        Else

                            'Dim s = fl.YValues((fl.YValues.Count - 1))
                            fl.Add(yt.AddHours(8).ToOADate, fl.YValues((fl.YValues.Count - 1)))
                            's = fl.YValues((fl.YValues.Count - 1))
                            tval.Add(tstr, fl.YValues((fl.YValues.Count - 1)))
                        End If
                    End If

                Else

                    If tval.ContainsKey(tstr) Then
                        If t = 0 OrElse Not (tval.Item(tstr) <> tval.Item(tstfsr)) Then

                        Else
                            fl.Add(yt.AddHours(8).ToOADate, tval.Item(tstfsr))
                        End If
                        fl.Add(yt.AddHours(8).ToOADate, tval.Item(tstr))
                        'Console.WriteLine($"{tstr}:{ tval.Values(t)}")
                    Else
                        If Date.Parse(tstr) < Date.Parse(tval.Keys(0)) Then
                            If tval.Values(0) = 1 Then
                                fl.Add(yt.AddHours(8).ToOADate, 0)
                                tval.Add(tstr, 0)
                                '   Console.WriteLine($"{tstr}:0")
                            ElseIf tval.Values(0) = 0 Then
                                fl.Add(yt.AddHours(8).ToOADate, 1)
                                tval.Add(tstr, 1)
                                ' Console.WriteLine($"{tstr}:1")
                            Else
                                fl.Add(yt.AddHours(8).ToOADate, 0.5)
                                tval.Add(tstr, 0.5)
                                'Console.WriteLine($"{tstr}:0.5")
                            End If
                        Else
                            If tval.Item(tstfsr) = 1 Then
                                fl.Add(yt.AddHours(8).ToOADate, 1)
                                tval.Add(tstr, 1)
                                '  Console.WriteLine($"{tstr}:1")
                            ElseIf tval.Item(tstfsr) = 0 Then
                                fl.Add(yt.AddHours(8).ToOADate, 0)
                                tval.Add(tstr, 0)
                                '  Console.WriteLine($"{tstr}:0")
                            Else
                                fl.Add(yt.AddHours(8).ToOADate, 0.5)
                                tval.Add(tstr, 0.5)
                                '  Console.WriteLine($"{tstr}:0.5")
                            End If
                        End If
                    End If
                End If

            Next
        Next



    End Sub




    Private Sub InitPieChart(kkdic As Dictionary(Of String， Dictionary(Of Long, Double)), starttime As Long， stoptime As Long)


        InitTeeChart(kkdic, starttime, stoptime)
        Dim fl As Steema.TeeChart.Styles.FastLine
        Dim tval As Dictionary(Of Long, Double)
        Dim dtOffset As New DateTimeOffset(New DateTime(1970, 1, 1, 0, 0, 0))
        ' 获取本地日期和时间
        Dim yt As DateTime

        For t = starttime To stoptime
            For Each node In kkdic
                fl = _fastLine.Item(node.Key)
                tval = node.Value
                yt = （dtOffset.AddSeconds(t)).LocalDateTime

                If tval.ContainsKey(t) Then
                    If t = starttime OrElse Not (tval.Item(t) = tval.Item(t - 1)) Then
                    Else
                        fl.Add(yt.ToOADate, tval.Item(t - 1))
                        'Console.WriteLine($"{yt.ToOADate}:{ tval.Item(t - 1)}")
                    End If
                    fl.Add(yt.ToOADate, tval.Item(t))
                    'Console.WriteLine($"{yt.ToOADate}:{ tval.Item(t)}")
                    ''Console.WriteLine(DateTime.FromOADate(yt.ToOADate).ToString("yyyy-MM-dd HH:mm:ss"))

                    '#1/16/2024 01:09:47 AM#
                Else
                    If t < tval.Keys(0) Then
                        If tval.Values(0) = 1 Then
                            fl.Add(yt.ToOADate, 0)
                            tval.Add(t, 0)
                            'Console.WriteLine($"{yt.ToOADate}:0")
                        ElseIf tval.Values(0) = 0 Then
                            fl.Add(yt.ToOADate, 1)
                            tval.Add(t, 1)
                            'Console.WriteLine($"{yt.ToOADate}:1")
                        Else
                            fl.Add(yt.ToOADate, 0.5)
                            tval.Add(t, 0.5)
                            'Console.WriteLine($"{yt.ToOADate}:0.5")
                        End If
                    Else
                        If tval.Item(t - 1) = 1 Then
                            fl.Add(yt.ToOADate, 1)
                            tval.Add(t, 1)
                            'Console.WriteLine($"{yt.ToOADate}:1")
                        ElseIf tval.Item(t - 1) = 0 Then
                            fl.Add(yt.ToOADate, 0)
                            tval.Add(t, 0)
                            'Console.WriteLine($"{yt.ToOADate}:0")
                        Else
                            fl.Add(yt.ToOADate, 0.5)
                            tval.Add(t, 0.5)
                            'Console.WriteLine($"{yt.ToOADate}:0.5")
                        End If
                    End If



                End If
            Next
        Next

    End Sub
    Public Sub initChartBar(tCounta As Integer, starttime As Double, stoptime As Double)

        'Dim devline = AddTeeChartStylesLine()

        ChartBar.Header.Text = "" '标题
        ChartBar.Header.Visible = True
        ChartBar.Legend.Transparent = False  '刻印说明
        '  ChartBar.Legend.Alignment = Steema.TeeChart.LegendAlignments.Top
        ChartBar.Aspect.View3D = False
        ChartBar.Axes.Left.Automatic = True
        ChartBar.Axes.Left.AutomaticMaximum = True
        ChartBar.Axes.Left.AutomaticMinimum = True
        ChartBar.Axes.Left.Labels.ValueFormat = "0.0"
        ChartBar.Axes.Left.Increment = 0.5
        ChartBar.Axes.Left.Labels.LabelHeight(10)

        'ChartBar.Axes.Left.Scroll(15, True)

        'ChartBar.Axes.Left.Labels.Exponent = True
        'Line1.Clear()
        'ChartBar.Axes.
        ChartBar.Axes.Bottom.AutomaticMaximum = False
        ChartBar.Axes.Bottom.AutomaticMinimum = False
        ChartBar.Axes.Bottom.Automatic = False
        ChartBar.Axes.Bottom.Increment = 1
        ChartBar.Axes.Bottom.Maximum = stoptime
        'ChartBar.Axes.Bottom.Minimum = starttime
        'ChartBar.Axes.Bottom.Labels.Width = 20
        'ChartBar.Axes.Bottom.Labels.DateTimeFormat = "HH:mm:ss"
        'ChartBar.Series(0).XValues.DateTime = False
        'ChartBar.Axes.Bottom.MaxXValue = stoptime
        'ChartBar.Axes.Bottom.ma = stoptime
        'ChartBar.Axes.Bottom.Scroll(1705386785, False)

        'ChartBar.Axes.Bottom.Scroll()
        'ChartBar.Zoom.ZoomRect(New Rectangle(0, 0, 1000, 1000))



        Dim ftemp = tCounta
        ChartBar.Axes.Left.Maximum = ftemp ' / 100
        ChartBar.Axes.Left.Minimum = 0 '/ 100

        ChartBar.Axes.Bottom.Labels.Align = -45
        ChartBar.Axes.Bottom.Labels.MultiLine = True


        'Dim X As Integer = ChartBar

        'Dim R As New Rectangle(X, Y, Width, Height)





        ' ChartBar.Refresh()
    End Sub
    Public Sub Testfunction()

        ChartBar.Header.Text = "" '标题
        ChartBar.Header.Visible = True
        ChartBar.Aspect.View3D = False


        ChartBar.Axes.Left.Automatic = False
        ChartBar.Axes.Left.AutomaticMaximum = False
        ChartBar.Axes.Left.AutomaticMinimum = False
        ChartBar.Axes.Left.Labels.ValueFormat = "0.0"
        ChartBar.Axes.Left.Increment = 0.5
        ChartBar.Axes.Left.Maximum = 10 ' / 100
        ChartBar.Axes.Left.Minimum = 0 '/ 100

        ChartBar.Axes.Bottom.AutomaticMaximum = False
        ChartBar.Axes.Bottom.AutomaticMinimum = False
        ChartBar.Axes.Bottom.Automatic = False
        ChartBar.Axes.Bottom.Labels.Align = -45
        ChartBar.Axes.Bottom.Labels.MultiLine = True
        ChartBar.Axes.Bottom.Labels.DateTimeFormat = "yyyy-MM-dd"
        ChartBar.Series(0).XValues.DateTime = True



        ' 创建 DateTimeOffset 对象并设置其值为指定的 UTC 秒数
        Dim dtOffset As New DateTimeOffset(New DateTime(1970, 1, 1), TimeSpan.Zero)
        ' 获取本地日期和时间
        Dim yt As DateTime = （dtOffset + TimeSpan.FromSeconds(1704822366)).LocalDateTime
        Dim minValue As DateTime = New DateTime(yt.Year, yt.Month, yt.Day, yt.Hour, yt.Minute， yt.Second) '' 最小日期
        yt = （dtOffset + TimeSpan.FromSeconds(1704823530)).LocalDateTime
        Dim maxValue As DateTime = New DateTime(yt.Year, yt.Month, yt.Day, yt.Hour, yt.Minute， yt.Second) '' 最小日期

        ChartBar.Axes.Bottom.Maximum = maxValue.ToOADate
        ChartBar.Axes.Bottom.Minimum = minValue.ToOADate
        'Dim dou As Double = 1 / (maxValue.ToOADate - minValue.ToOADate)
        'ChartBar.Axes.Bottom.Increment = TimeSpan.FromSeconds(1).TotalSeconds



    End Sub

    Public Sub ksjfk()
        ' 创建TeeChart控件对象
        Dim chart = ChartBar.Chart

        ' 添加Series到图表上（这里使用Line Series作示例）
        Dim series As New Steema.TeeChart.Styles.Line()
        'chart.Add(series)
        ChartBar.Series.Add(series)
        ' 定义要显示的数据点及其相应的X轴标签
        Dim xDataPoints() As Double = {10, 20, 30, 40} ' X轴数据点
        Dim yDataPoints() As Double = {50, 60, 70, 80} ' Y轴数据点
        Dim labels() As String = {"Label1", "Label2", "Label3", "Label4"} ' X轴标签

        ' 遍历数据并设置每个数据点的值和标签
        For i As Integer = 0 To xDataPoints.Length - 1

            Dim point As New PointF(xDataPoints(i), yDataPoints(i))

            ' 设置X轴标签
            point.X = labels(i)

            ' 向系列中添加数据点
            series.Add(point)
        Next

        ' 显示图表
        'chart.ShowDialog()
    End Sub


    Public Function AddTeeChartStylesLine() As Styles.Line
        Dim devline As Steema.TeeChart.Styles.Line = New Styles.Line
        ChartBar.Series.Add(devline)
        Dim minValue As DateTime = New DateTime(2024, 1, 10, 2, 35， 30) '' 最小日期


        Return devline
        '  Dim chart As TChart = ChartBar
    End Function

    Public Sub init_Grid_config()
        With Grid_config
            .NewFile()
            .Cols = 3
            .Rows = 7
            .Width = 300
            .DisplayRowNumber = False
            .Cell(0, 0).Text = "序号"
            .Cell(0, 1).Text = "属性"
            .Cell(0, 2).Text = "属性值"
            .Column(0).Width = 0
            .Column(1).Width = 100
            .Column(1).Locked = True
            .Column(2).Width = 150
            .Column(1).Alignment = AlignmentEnum.CenterCenter
            .Column(2).Alignment = AlignmentEnum.CenterCenter
            .Cell(1, 1).Text = "开始时间"
            .Cell(2, 1).Text = "结束时间"
            .Cell(3, 1).Text = "机型"
            .Cell(4, 1).Text = "界面宽度"
            .Cell(5, 1).Text = "界面高度"
            .Cell(6, 1).Text = "左右比例"
            .Cell(1, 2).CellType = CellTypeEnum.DateTime
            .Cell(2, 2).CellType = CellTypeEnum.DateTime
            .Cell(3, 2).CellType = CellTypeEnum.ComboBox
            .Row(4).Visible = False

            .Row(5).Visible = False
            .Row(6).Visible = False
        End With
    End Sub
    Public Sub FileTo_Grid_config()
        If IO.File.Exists(filepath) Then
            Grid_config.OpenFile(filepath)
            Dim kk As Integer = 0
            Dim kr As Integer = 0
            If Integer.TryParse(Grid_config.Cell(4, 2).Text, kk) And Integer.TryParse(Grid_config.Cell(5, 2).Text, kr) Then
                If kk <> 0 And kr <> 0 Then
                    Size = New Size(kk, kr)
                End If
            End If
            kk = 0
            If Integer.TryParse(Grid_config.Cell(6, 2).Text, kk) Then
                If kk <> 0 Then
                    SplitContainer1.SplitterDistance = kk
                End If
            End If


        End If
    End Sub
    Public Sub Grid_config_FileTo()

        Grid_config.Cell(4, 2).Text = Size.Width
        Grid_config.Cell(5, 2).Text = Size.Height
        Grid_config.Cell(6, 2).Text = SplitContainer1.SplitterDistance
        Grid_config.SaveFile(filepath)


        My.Settings.FileDir = Label1.Text
        My.Settings.Save()
        If IsNothing(_fastLine) OrElse _fastLine.Count = 0 Then Return
        Dim fastNameList As String = String.Empty
        For Each node In ChartBar.Axes.Custom
            fastNameList = fastNameList & node.title.Caption & ","
        Next
        fastNameList = fastNameList.Substring(0, fastNameList.Length - 1)
        My.Settings.fastLineName = fastNameList
        My.Settings.Save()
    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        Grid_config_FileTo()
        If IsNothing(threadli) Then Return
        For Each node In threadli
            node.Abort()
        Next
    End Sub

    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
        Grid_config.AddItem("")
        Grid_config.Cell(Grid_config.Rows - 1, 1).Text = "机型"
    End Sub

    Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
        Grid_configDeleteRow(Grid_config.ActiveCell.Row)
    End Sub
    Public Sub Grid_configDeleteRow(erow As Integer)
        Dim devname As String = Grid_config.Cell(erow, 1).Text
        If devname.Equals("机型") Then
            Grid_config.Row(erow).Delete()
        End If
    End Sub

    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
        init_Grid_config()
    End Sub



    Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click
        'MysqlDataDispose()
        SqlitDataDispose()
    End Sub
    Public Sub SqlitDataDispose()
        If String.IsNullOrEmpty(Label1.Text) Then
            MsgBox("未选择日志目录")
            Return
        End If
        If Not IO.Directory.Exists(Label1.Text) Then
            MsgBox("日志目录不存在")
            Return
        End If

        Dim filrpath As String = Grid_config.Cell(3, 2).Text.Trim
        If String.IsNullOrEmpty(filrpath) Then
            MsgBox("目标机型为空")
            Return
        End If
        Dim mubdir As String = $"{Label1.Text}\{filrpath}"
        If Not IO.Directory.Exists(mubdir) Then
            MsgBox("目标机型目录不存在")
            Return
        End If
        IO.Directory.CreateDirectory($"{Label1.Text}\ParsingLog\{filrpath}")
        Dim ParsingLog As String = $"{Label1.Text}\ParsingLog\{filrpath}"

        Dim localConn As New DbConnectionStringBuilder
        localConn.Add("Data Source", $"{ParsingLog}\Tftp_Log.db")

        LocalConnString = localConn.ToString()
        If String.IsNullOrEmpty（LocalConnString） Then
            MsgBox("未选择日志目录或未解析该机型数据")
            Return
        End If

        Dim selectstr As String = "SELECT * FROM `Tftp_Log` WHERE"
        Dim cstrpar As String = String.Empty
        Dim starttime, stoptime As DateTime
        Dim dtZone As DateTime = New DateTime(1970, 1, 1, 0, 0, 0)
        Try

            starttime = DateTime.Parse(Grid_config.Cell(1, 2).Text.Trim)
            stoptime = DateTime.Parse(Grid_config.Cell(2, 2).Text.Trim)
            If IsNothing(starttime) OrElse IsNothing(stoptime) Then
                MsgBox($"数据查询失败！！！{vbCrLf }原因:{vbCrLf }日期输入错误")
                Return
            End If
        Catch ex As Exception
            MsgBox($"数据查询失败！！！{vbCrLf }原因:{vbCrLf }日期输入错误")
            Return
        End Try

        For i = 1 To Grid_config.Rows - 1
            If i = 1 Then
                selectstr = $"{selectstr}`DataTime`>='{starttime.ToUniversalTime.Ticks }' And "
            ElseIf i = 2 Then
                selectstr = $"{selectstr}`DataTime`<='{stoptime.ToUniversalTime.Ticks}' And "
            ElseIf i = 3 Then
                cstrpar = $"{cstrpar}OR `DevName` = '{Grid_config.Cell(i, 2).Text.Trim}'{vbCrLf }"
            End If

        Next
        If Not String.IsNullOrEmpty(cstrpar) Then
            cstrpar = cstrpar.Remove(0, 2)
            selectstr = $"{selectstr}({cstrpar.Trim })   ORDER BY (`DataTime`) ASC"
        End If

        Dim treenode As Dictionary(Of String, List(Of (String, String))) = New Dictionary(Of String, List(Of (String, String)))
        Dim treedic As List(Of (String, String))
        Dim rval As Double = 0
        Dim colounmdic As Dictionary(Of String， Dictionary(Of String, Double)) = New Dictionary(Of String, Dictionary(Of String, Double))
        Dim T3dci As Dictionary(Of String, Double) = New Dictionary(Of String, Double)
        Dim dt As DataTable

        Try
            Using db As New DbExecutor(DbExecutor.DbTypeEnum.Sqlite, LocalConnString)
                db.Open()
                dt = db.ExecuteDataTable(selectstr)
                If IsNothing(dt) OrElse dt.Rows.Count = 0 OrElse dt.Columns.Count = 0 Then
                    MsgBox($"数据查询失败！！！")
                    db.Close()
                    Return
                Else

                    Dim sqldate As Date
                    Dim timse As String
                    Dim val1， val2, val3 As String
                    Dim keystr As String
                    For i = 0 To dt.Rows.Count - 1
                        Dim Tcint As Long = （dt.Rows(i)("Datatime"))
                        sqldate = New DateTime(1, 1, 1, 0, 0, 0, 0, DateTimeKind.Utc)
                        sqldate = sqldate.AddTicks(Tcint)

                        sqldate.ToLocalTime()
                        timse = $"{sqldate.Year }/{sqldate.Month }/{sqldate.Day } {sqldate.Hour }:{sqldate.Minute }:{sqldate.Second }"

                        If i = 0 Then
                            starttime = sqldate
                        ElseIf i = dt.Rows.Count - 1 Then
                            stoptime = sqldate
                        End If

                        Try
                            keystr = $"{dt.Rows(i)("FileName")}-{dt.Rows(i)("CreateFileTime")}"
                            If treenode.ContainsKey(keystr) Then
                                treedic = treenode.Item(keystr)
                            Else
                                treedic = New List(Of (String, String))
                                treenode.Add(keystr, treedic)
                            End If
                            treedic.Add((timse, $"{dt.Rows(i)("Datastr")}"))



                        Catch ex As Exception

                        End Try


                        If IsDBNull(dt.Rows(i)("T4")) AndAlso ((Not IsDBNull(dt.Rows(i)("T1")) OrElse (Not IsDBNull(dt.Rows(i)("T3")))) AndAlso Not IsDBNull(dt.Rows(i)("loop"))) Then
                            Dim vloop As String = $"loop{dt.Rows(i)("loop")}"
                            If Not IsDBNull(dt.Rows(i)("T3")) Then

                                If T3dci.ContainsKey(timse) Then
                                    T3dci.Item(timse) = dt.Rows(i)("loop")
                                Else
                                    T3dci.Add(timse, dt.Rows(i)("loop"))
                                End If

                            ElseIf Not IsDBNull(dt.Rows(i)("T1")) Then

                                If colounmdic.ContainsKey(vloop) Then
                                    If colounmdic.Item(vloop）.ContainsKey(timse) Then
                                        If dt.Rows(i)("T1").Equals("1") Then
                                            colounmdic.Item(vloop）.Item(timse) = 1
                                        Else
                                            colounmdic.Item(vloop）.Item(timse) = 0
                                        End If
                                    Else
                                        If dt.Rows(i)("T1").Equals("1") Then
                                            colounmdic.Item(vloop）.Add(timse, 1)
                                        Else
                                            colounmdic.Item(vloop）.Add(timse, 0)
                                        End If

                                    End If
                                Else
                                    Dim dic As Dictionary(Of String, Double) = New Dictionary(Of String, Double)
                                    colounmdic.Add(vloop, dic)
                                    If dt.Rows(i)("T1").Equals("1") Then
                                        dic.Add(timse, 1)
                                    Else
                                        dic.Add(timse, 0)
                                    End If

                                End If
                            Else

                            End If

                        ElseIf Not IsDBNull(dt.Rows(i)("T4")) Then
                            'Console.WriteLine($"{dt.Rows(i)("FileName")}{timse}, {dt.Rows(i)("Datastr")}"")
                            'Console.WriteLine($"{dt.Rows(i)("FileName")}      {timse}        {dt.Rows(i)("Datastr")}")
                            If colounmdic.ContainsKey("T4") Then
                                If colounmdic.Item("T4"）.ContainsKey(timse) Then
                                    If dt.Rows(i)("T4").Equals("1") Then
                                        colounmdic.Item("T4"）.Item(timse) = 1
                                    Else
                                        colounmdic.Item("T4"）.Item(timse) = 0
                                    End If
                                Else
                                    If dt.Rows(i)("T4").Equals("1") Then
                                        colounmdic.Item("T4").Add(timse, 1)
                                    Else
                                        colounmdic.Item("T4").Add(timse, 0)
                                    End If
                                End If
                            Else

                                Dim dic As Dictionary(Of String, Double) = New Dictionary(Of String, Double)
                                colounmdic.Add("T4", dic)
                                If dt.Rows(i)("T4").Equals("1") Then
                                    dic.Add(timse, 1)
                                Else
                                    dic.Add(timse, 0)
                                End If
                            End If

                        ElseIf Not IsDBNull(dt.Rows(i)("DevService")) AndAlso Not IsDBNull(dt.Rows(i)("loop")) AndAlso dt.Rows(i)("DevService").Equals("0") Then
                            If colounmdic.ContainsKey("DevService") Then
                                If colounmdic.Item("DevService"）.ContainsKey(timse) Then
                                    If dt.Rows(i)("loop").Equals("1") Then
                                        colounmdic.Item("DevService"）.Item(timse) = 1
                                    Else
                                        colounmdic.Item("DevService"）.Item(timse) = 0
                                    End If
                                Else
                                    If dt.Rows(i)("loop").Equals("1") Then
                                        colounmdic.Item("DevService"）.Add(timse, 1)
                                    Else
                                        colounmdic.Item("DevService"）.Add(timse, 0)
                                    End If

                                End If
                            Else
                                Dim dic As Dictionary(Of String, Double) = New Dictionary(Of String, Double)
                                colounmdic.Add("DevService", dic)
                                If dt.Rows(i)("loop").Equals("1") Then
                                    dic.Add(timse, 1)
                                Else
                                    dic.Add(timse, 0)
                                End If

                            End If
                        End If



                    Next

                End If

                db.Close()
            End Using


        Catch ex As Exception
            MsgBox($"数据查询失败！！！{vbCrLf }原因:{vbCrLf }{ex.Message }")
            Return
        End Try

        colounmdic.Add("执行条件状态", T3dci)
        SetTreeStakeData(treenode)
        SortDic(colounmdic)
        ChangeLineAlias(colounmdic)
        InitPieChart(colounmdic, starttime.AddHours(-8), stoptime.AddHours(-8))


    End Sub
    '键值对排序
    Private Sub SortDic(ByRef kkdic As Dictionary(Of String， Dictionary(Of String, Double)))
        Dim T4 As New Dictionary(Of String, Double)
        Dim T2 As New Dictionary(Of String, Double)
        Dim DevService As New Dictionary(Of String, Double)
        Dim li As New Dictionary(Of String， Dictionary(Of String, Double))
        If kkdic.ContainsKey("T4") Then
            T4 = kkdic.Item("T4")
            kkdic.Remove("T4")
        End If
        If kkdic.ContainsKey("DevService") Then
            DevService = kkdic.Item("DevService")
            kkdic.Remove("DevService")
        End If
        If kkdic.ContainsKey("执行条件状态") Then
            T2 = kkdic.Item("执行条件状态")
            kkdic.Remove("执行条件状态")
        End If
        Dim arrys = kkdic.Keys.ToArray
        arrys = arrys.OrderBy(Function(x) x).ToArray
        For Each item In arrys
            li.Add(item, kkdic.Item(item))
        Next
        If Not IsNothing(T4) AndAlso T4.Count > 0 Then
            li.Add("T4", T4)
        End If
        If Not IsNothing(DevService) AndAlso DevService.Count > 0 Then
            li.Add("取电服务", DevService)
        End If
        If Not IsNothing(T2) AndAlso T2.Count > 0 Then
            li.Add("执行条件状态", T2)
        End If

        kkdic = li

    End Sub
    ' 自定义比较器


    '设置树桩表数据
    Private Sub SetTreeStakeData(treenode As Dictionary(Of String, List(Of (String, String))))
        If IsNothing(treenode) OrElse treenode.Count = 0 Then Return
        TreeView1.Nodes.Clear()
        TreeView1.Nodes.Add(Grid_config.Cell(3, 2).Text)
        Dim timgs As String
        For Each item In treenode
            '
            Dim node As TreeNode = New TreeNode(item.Key)
            TreeView1.Nodes(0).Nodes.Add(node)
            For Each item1 In item.Value
                timgs = DateTime.Parse(item1.Item1).AddHours(8).ToString("yyyy-MM-dd HH:mm:ss")
                node.Nodes.Add(timgs & "|" & item1.Item2)
            Next
        Next

    End Sub

    '修改图线别名
    Private Sub ChangeLineAlias(ByRef kkdic As Dictionary(Of String， Dictionary(Of String, Double)))
        If IsNothing(g_Macconfig) OrElse String.IsNullOrEmpty(g_Macconfig.Item1) OrElse IsNothing(g_Macconfig.Item2) OrElse g_Macconfig.Item2.Count = 0 OrElse IsNothing(kkdic) OrElse kkdic.Count = 0 Then Return
        If Grid_config.Cell(3, 2).Text.Trim.Equals(g_Macconfig.Item1) Then
            Dim kkdic1 As New Dictionary(Of String， Dictionary(Of String, Double))
            For Each item In kkdic
                If item.Key.Equals("T4") Then
                    kkdic1.Add("有无人", kkdic.Item("T4"))
                ElseIf g_Macconfig.Item2.ContainsKey(item.Key) Then
                    kkdic1.Add(g_Macconfig.Item2.Item(item.Key), kkdic.Item(item.Key))
                Else
                    kkdic1.Add(item.Key, kkdic.Item(item.Key))
                End If
            Next
            kkdic = kkdic1
            Return
        Else
            Return
        End If

    End Sub

    Public Sub MysqlDataDispose()
        Dim selectstr As String = "SELECT * FROM `psmysql`.`deviceparsingdatalog` WHERE"
        Dim cstrpar As String = String.Empty
        Dim starttime, stoptime As DateTime
        Dim dtZone As DateTime = New DateTime(1970, 1, 1, 0, 0, 0)
        Try

            starttime = DateTime.Parse(Grid_config.Cell(1, 2).Text.Trim)
            stoptime = DateTime.Parse(Grid_config.Cell(2, 2).Text.Trim)
            If IsNothing(starttime) OrElse IsNothing(stoptime) Then
                MsgBox($"数据查询失败！！！{vbCrLf }原因:{vbCrLf }日期输入错误")
                Return
            End If
        Catch ex As Exception
            MsgBox($"数据查询失败！！！{vbCrLf }原因:{vbCrLf }日期输入错误")
            Return
        End Try

        For i = 1 To Grid_config.Rows - 1
            If i = 1 Then
                selectstr = $"{selectstr}`DateTime`>='{starttime.Year }/{starttime.Month }/{starttime.Day } {starttime.Hour }:{starttime.Minute }:{starttime.Second }' And "
            ElseIf i = 2 Then
                selectstr = $"{selectstr}`DateTime`<='{stoptime.Year }/{stoptime.Month }/{stoptime.Day } {stoptime.Hour }:{stoptime.Minute }:{stoptime.Second }' And "
            ElseIf i = 3 Then
                cstrpar = $"{cstrpar}OR `DEV_NAME` = '{Grid_config.Cell(i, 2).Text.Trim}'{vbCrLf }"
            End If

        Next
        If Not String.IsNullOrEmpty(cstrpar) Then
            cstrpar = cstrpar.Remove(0, 2)
            selectstr = $"{selectstr}({cstrpar.Trim })   ORDER BY (`DateTime`) ASC"
        End If
        ' Dim rowdic As Dictionary(Of String, Dictionary(Of String, String)) = New Dictionary(Of String, Dictionary(Of String, String))
        Dim colounmdic As Dictionary(Of String， Dictionary(Of String, Double)) = New Dictionary(Of String, Dictionary(Of String, Double))
        Dim dt As DataTable
        Dim rval As Double = 0
        Try

            Using db As New DbExecutor(DbExecutor.DbTypeEnum.Mysql, GdbConnString)
                db.Open()
                dt = db.ExecuteDataTable(selectstr)
                If IsNothing(dt) OrElse dt.Rows.Count = 0 OrElse dt.Columns.Count = 0 Then
                    MsgBox($"数据查询失败！！！{vbCrLf }原因:{vbCrLf }数据查询语句异常:{selectstr}")
                    db.Close()
                    Return
                Else


                    Dim sqldate As Date
                    Dim timse As String

                    For i = 0 To dt.Rows.Count - 1
                        sqldate = Date.Parse(dt.Rows(i)("DateTime"))
                        timse = $"{sqldate.Year }/{sqldate.Month }/{sqldate.Day } {sqldate.Hour }:{sqldate.Minute }:{sqldate.Second }"
                        If i = 0 Then
                            starttime = sqldate
                        ElseIf i = dt.Rows.Count - 1 Then
                            stoptime = sqldate
                        End If

                        ' Try
                        'If i = 558 Then
                        '        Console.WriteLine(i)
                        '    End If
                        If Not colounmdic.ContainsKey("Room_isExist") Then
                            colounmdic.Add("Room_isExist", New Dictionary(Of String, Double))
                        End If
                        If IsDBNull(dt.Rows(i)("Room_isExist")) Then
                            rval = 0
                        Else
                            Double.TryParse(dt.Rows(i)("Room_isExist"), rval)
                        End If

                        If colounmdic.Item("Room_isExist").ContainsKey(timse) Then
                            colounmdic.Item("Room_isExist").Item(timse) = rval
                        Else
                            colounmdic.Item("Room_isExist").Add(timse, rval)
                        End If


                        If Not colounmdic.ContainsKey("isExist_Gol") Then
                            colounmdic.Add("isExist_Gol", New Dictionary(Of String, Double))
                        End If
                        If IsDBNull(dt.Rows(i)("isExist_Gol")) Then
                            rval = 0
                        Else
                            Double.TryParse(dt.Rows(i)("isExist_Gol"), rval)
                        End If

                        If colounmdic.Item("isExist_Gol").ContainsKey(timse) Then
                            colounmdic.Item("isExist_Gol").Item(timse) = rval
                        Else
                            colounmdic.Item("isExist_Gol").Add(timse, rval)
                        End If
                        'Catch ex As Exception
                        '    Console.WriteLine(i)
                        'End Try


                        ' Try
                        For j = 1 To 5
                            selectstr = $"isExist_Area_{j}"
                            cstrpar = $"isTrig_{j}"
                            If Not colounmdic.ContainsKey(selectstr) Then
                                colounmdic.Add(selectstr, New Dictionary(Of String, Double))
                            End If
                            'Double.TryParse(dt.Rows(i)(selectstr), rval)
                            If IsDBNull(dt.Rows(i)(selectstr)) Then
                                rval = 0
                            Else
                                Double.TryParse(dt.Rows(i)(selectstr), rval)
                            End If
                            If colounmdic.Item(selectstr).ContainsKey(timse) Then
                                colounmdic.Item(selectstr).Item(timse) = rval
                            Else
                                colounmdic.Item(selectstr).Add(timse, rval)
                            End If

                            If Not colounmdic.ContainsKey(cstrpar) Then
                                colounmdic.Add(cstrpar, New Dictionary(Of String, Double))
                            End If
                            If IsDBNull(dt.Rows(i)(cstrpar)) Then
                                rval = 0
                            Else
                                Double.TryParse(dt.Rows(i)(cstrpar), rval)
                            End If

                            If colounmdic.Item(cstrpar).ContainsKey(timse) Then
                                colounmdic.Item(cstrpar).Item(timse) = rval
                            Else
                                colounmdic.Item(cstrpar).Add(timse, rval)
                            End If
                        Next
                        'Catch ex As Exception
                        '    Console.WriteLine(i)
                        'End Try





                    Next



                End If


            End Using

            InitPieChart(colounmdic, starttime, stoptime)


        Catch ex As Exception
            MsgBox($"数据查询失败！！！{vbCrLf }原因:{vbCrLf }{ex.Message }")
            Return
        End Try


    End Sub

    Public Sub initGrid_Mysqldate(rowdic As Dictionary(Of String, Dictionary(Of String, String)))
        If IsNothing(rowdic) AndAlso rowdic.Count = 0 AndAlso (Not rowdic.ContainsKey("colounmdic")) Then
            MsgBox($"数据加载失败！！数据为空或未检测到列信息。")
        End If

        Dim starttime As Long = 0
        Dim stoptime As Long = 0
        Dim kkdic As Dictionary(Of String， Dictionary(Of Long, Double)) = New Dictionary(Of String, Dictionary(Of Long, Double))
        Dim colounmdic As Dictionary(Of String, String) = rowdic.Item("colounmdic")
        With Grid_Mysqldate
            .NewFile()
            .AutoRedraw = False
            .Cols = colounmdic.Count + 3
            .Rows = 1
            .DisplayRowNumber = True
            .Cell(0, 0).Text = "序号"
            .Cell(0, 1).Text = "时间"
            .Cell(0, 2).Text = "时间戳"
            .Column(0).Width = 20
            .Column(1).Width = 150
            .Column(1).Alignment = AlignmentEnum.CenterCenter

            For i = 0 To colounmdic.Count - 1
                .Cell(0, i + 3).Text = colounmdic.Keys(i)
                .Column(i + 3).Alignment = AlignmentEnum.CenterCenter
            Next
            Dim dtOffset As New DateTimeOffset(New DateTime(1970, 1, 1), TimeSpan.Zero)
            ' 获取本地日期和时间


            For Each node In rowdic
                If node.Key.Equals("colounmdic") Then Continue For
                .AddItem("")

                Dim t As Long = Long.Parse(node.Key)
                t = t / 1000
                Dim yt As DateTime = （dtOffset + TimeSpan.FromSeconds(t)).LocalDateTime
                If starttime = 0 OrElse t < starttime Then
                    starttime = t
                End If
                If stoptime = 0 OrElse t > stoptime Then
                    stoptime = t
                End If


                .Cell(.Rows - 1, 1).Text = yt.ToString("yyyy-MM-dd HH:mm:ss")
                .Cell(.Rows - 1, 2).Text = t.ToString
                For Each index In node.Value
                    For j = 0 To colounmdic.Count - 1
                        '  'Console.WriteLine(.Cell(0, j + 2).Text)
                        If .Cell(0, j + 3).Text.Equals(index.Key) Then
                            .Cell(.Rows - 1, j + 3).Text = index.Value
                        End If
                    Next
                Next

                Dim datadic As Dictionary(Of Long, Double)
                If kkdic.ContainsKey(node.Value.Keys(0)) Then
                    datadic = kkdic.Item(node.Value.Keys(0))
                    If datadic.ContainsKey(t) Then
                        datadic.Item(t) = CInt(node.Value.Values(0))
                    Else
                        datadic.Add(t, node.Value.Values(0))
                    End If

                Else
                    datadic = New Dictionary(Of Long, Double)
                    datadic.Add(t, node.Value.Values(0))
                    kkdic.Add(node.Value.Keys(0), datadic)
                End If


            Next

        End With
        Grid_Mysqldate.AutoRedraw = True
        Grid_Mysqldate.Refresh()


        InitPieChart(kkdic, starttime, stoptime)

    End Sub



    ''' <summary>
    ''' 初始化Chart控件
    ''' </summary>
    Private Sub InitTeeChart(kkdic As Dictionary(Of String， Dictionary(Of Long, Double)), starttime As Long， stoptime As Long)
        ChartBar.AutoRepaint = False
        ChartBar.Header.Lines = New String() {""} 'TeeChart标题
        ChartBar.Panning.InsideBounds = True
        ChartBar.Panning.Allow = ScrollModes.Horizontal
        InitCustomAxies(kkdic, starttime, stoptime)
        InitFastLine(kkdic)
        InitCursor()
        ChartBar.AutoRepaint = True
        ChartBar.Refresh()
    End Sub
    Private Sub InitTeeChart(kkdic As Dictionary(Of String， Dictionary(Of String, Double)), starttime As Date， stoptime As Date)
        ChartBar.AutoRepaint = False
        ChartBar.Header.Lines = New String() {""} 'TeeChart标题
        ChartBar.Panning.InsideBounds = True
        ChartBar.Panning.Allow = ScrollModes.Horizontal
        InitCustomAxies(kkdic, starttime, stoptime)
        InitFastLine(kkdic)
        InitCursor()
        ChartBar.AutoRepaint = True
        ChartBar.Refresh()
    End Sub


    ''' <summary>
    ''' 初始化轴
    ''' </summary>
    Private Sub InitCustomAxies(kkdic As Dictionary(Of String， Dictionary(Of String, Double)), starttime As Date， stoptime As Date)

        _axis.Clear()
        ChartBar.Axes.Custom.Clear()
        ChartBar.Walls.Visible = False '不显示立面（背景色将统一）

        ChartBar.Axes.Bottom.Title.Caption = "时间轴"
        ChartBar.Axes.Bottom.Title.Visible = False
        ChartBar.Axes.Bottom.MaximumOffset = 4 '最大值偏移
        ChartBar.Axes.Bottom.MinimumOffset = 4 '最小值偏移
        ChartBar.Axes.Bottom.Grid.Style = System.Drawing.Drawing2D.DashStyle.Dash
        ChartBar.Axes.Bottom.Grid.Width = 2
        ChartBar.Axes.Bottom.Ticks.Color = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
        ChartBar.Axes.Bottom.Ticks.Length = 4 '标记长度
        ChartBar.Axes.Bottom.Ticks.Width = 4 '标记宽度
        ChartBar.Axes.Bottom.Grid.Transparency = 60
        ' _axis.Add(ChartBar.Axes.Bottom)
        ChartBar.Axes.Bottom.Automatic = True

        Dim dtOffset As New DateTimeOffset(New DateTime(1970, 1, 1, 0, 0, 0))
        ' 获取本地日期和时间
        Dim yt As DateTime
        yt = stoptime ' （dtOffset.AddSeconds(stoptime)).LocalDateTime
        ChartBar.Axes.Bottom.Maximum = yt.AddHours（8）.ToOADate
        Dim bvtOffset As New DateTimeOffset(New DateTime(1970, 1, 1, 0, 0, 0))
        yt = starttime ' （dtOffset.AddSeconds(starttime)).LocalDateTime

        ChartBar.Axes.Bottom.Minimum = yt.AddHours（8）.ToOADate
        ' ChartBar.Axes.Bottom.Increment = 1
        ChartBar.Axes.Bottom.Logarithmic = False
        'ChartBar.Axes.Right.Title.Right = 20
        ChartBar.Axes.Bottom.Labels.DateTimeFormat = "yyyy-MM-dd HH:mm:ss"

        ChartBar.Axes.Left.Title.Caption = "电流-电压轴"
        ChartBar.Axes.Left.Title.Visible = False
        ChartBar.Axes.Left.MaximumOffset = 4 '最大值偏移
        ChartBar.Axes.Left.MinimumOffset = 1 '最小值偏移
        ChartBar.Axes.Left.Grid.Style = System.Drawing.Drawing2D.DashStyle.Dash
        ChartBar.Axes.Left.Grid.Width = 2
        ChartBar.Axes.Left.Ticks.Color = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
        ChartBar.Axes.Left.Ticks.Length = 2 '标记长度
        ChartBar.Axes.Left.Ticks.Width = 2 '标记宽度
        ChartBar.Axes.Left.Grid.Transparency = 60
        ChartBar.Axes.Left.Automatic = False
        ChartBar.Axes.Left.Minimum = 0.001
        ChartBar.Axes.Left.Maximum = 1000
        ChartBar.Axes.Left.Logarithmic = True


        For i = 0 To kkdic.Count - 1



            '_axis.Add(ChartBar.Axes.Left)
            'Case Else 'IO
            Dim idx As Integer = i
            _axis.Add(New Steema.TeeChart.Axis)

            _axis(i).Title.Caption = kkdic.Keys(i) '标题文本

            _axis(i).Title.Font.Brush.Color = Color.GhostWhite

            _axis(i).Title.Angle = 0 '标题角度
            _axis(i).AxisPen.Color = Color.FromArgb(255, idx * 12, 255 - idx * 10, idx * 6) '颜色
            _axis(i).OtherSide = True '右边显示

            _axis(i).StartPosition = idx * 8.0R
            _axis(i).EndPosition = _axis(i).StartPosition + 4.0R
            _axis(i).Automatic = False
            _axis(i).Minimum = 0
            _axis(i).Maximum = 1
            _axis(i).Increment = 1.0R

            If i = kkdic.Count - 1 Then
                _axis(i).Minimum = 0
                _axis(i).Maximum = 12
                _axis(i).Increment = 12.0R
                _axis(i).StartPosition = idx * 8.0R
                _axis(i).EndPosition = _axis(i).StartPosition + 10.0R
            End If

            _axis(i).Grid.Visible = False
            _axis(i).Labels.Angle = 0 '角度


            ChartBar.Axes.Custom.Add(_axis(i))
            'AddHandler _axis(i).GetAxisDrawLabel, AddressOf Axis_GetAxisDrawLabel

            'End Select
        Next
        AddHandler ChartBar.ClickAxis, AddressOf Axis_GetAxisDrawLabel
    End Sub
    Private Sub Axis_GetAxisDrawLabel(sender As Object, e As MouseEventArgs)
        Dim enderAxis As Axis = sender
        Dim inputalstr As String = InputBox(enderAxis.Title.Caption, "请输入新的名称")
        If String.IsNullOrEmpty(inputalstr) Then Return
        enderAxis.Title.Caption = inputalstr
    End Sub
    ''' <summary>
    ''' 初始化轴
    ''' </summary>
    Private Sub InitCustomAxies1(kkdic As Dictionary(Of String， Dictionary(Of String, Double)), starttime As Date， stoptime As Date)

        _axis.Clear()
        ChartBar.Axes.Custom.Clear()
        ChartBar.Walls.Visible = False '不显示立面（背景色将统一）

        ChartBar.Axes.Bottom.Title.Caption = "时间轴"
        ChartBar.Axes.Bottom.Title.Visible = False
        ChartBar.Axes.Bottom.MaximumOffset = 4 '最大值偏移
        ChartBar.Axes.Bottom.MinimumOffset = 4 '最小值偏移
        ChartBar.Axes.Bottom.Grid.Style = System.Drawing.Drawing2D.DashStyle.Dash
        ChartBar.Axes.Bottom.Grid.Width = 2
        ChartBar.Axes.Bottom.Ticks.Color = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
        ChartBar.Axes.Bottom.Ticks.Length = 4 '标记长度
        ChartBar.Axes.Bottom.Ticks.Width = 4 '标记宽度
        ChartBar.Axes.Bottom.Grid.Transparency = 60
        ' _axis.Add(ChartBar.Axes.Bottom)
        ChartBar.Axes.Bottom.Automatic = False

        Dim dtOffset As New DateTimeOffset(New DateTime(1970, 1, 1, 0, 0, 0))
        ' 获取本地日期和时间
        Dim yt As DateTime
        yt = stoptime ' （dtOffset.AddSeconds(stoptime)).LocalDateTime
        ChartBar.Axes.Bottom.Maximum = yt.ToOADate
        Dim bvtOffset As New DateTimeOffset(New DateTime(1970, 1, 1, 0, 0, 0))
        yt = starttime ' （dtOffset.AddSeconds(starttime)).LocalDateTime

        ChartBar.Axes.Bottom.Minimum = yt.ToOADate
        ' ChartBar.Axes.Bottom.Increment = 1
        ChartBar.Axes.Bottom.Logarithmic = False
        'ChartBar.Axes.Right.Title.Right = 20
        ChartBar.Axes.Bottom.Labels.DateTimeFormat = "yyyy-MM-dd HH"

        ChartBar.Axes.Left.Title.Caption = "电流-电压轴"
        ChartBar.Axes.Left.Title.Visible = False
        ChartBar.Axes.Left.MaximumOffset = 4 '最大值偏移
        ChartBar.Axes.Left.MinimumOffset = 4 '最小值偏移
        ChartBar.Axes.Left.Grid.Style = System.Drawing.Drawing2D.DashStyle.Dash
        ChartBar.Axes.Left.Grid.Width = 2
        ChartBar.Axes.Left.Ticks.Color = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
        ChartBar.Axes.Left.Ticks.Length = 2 '标记长度
        ChartBar.Axes.Left.Ticks.Width = 2 '标记宽度
        ChartBar.Axes.Left.Grid.Transparency = 60
        ChartBar.Axes.Left.Automatic = False
        ChartBar.Axes.Left.Minimum = 0.001
        ChartBar.Axes.Left.Maximum = 1000
        ChartBar.Axes.Left.Logarithmic = True


        For i = 0 To kkdic.Count - 1



            '_axis.Add(ChartBar.Axes.Left)
            'Case Else 'IO
            Dim idx As Integer = i
            _axis.Add(New Steema.TeeChart.Axis)
            _axis(i).Title.Caption = kkdic.Keys(i) '标题文本

            _axis(i).Title.Font.Brush.Color = Color.GhostWhite

            _axis(i).Title.Angle = 0 '标题角度
            _axis(i).AxisPen.Color = Color.FromArgb(255, idx * 12, 255 - idx * 10, idx * 6) '颜色
            _axis(i).OtherSide = True '右边显示

            _axis(i).StartPosition = idx * 8.0R
            _axis(i).EndPosition = _axis(i).StartPosition + 4.0R
            _axis(i).Automatic = False
            _axis(i).Minimum = 0
            _axis(i).Maximum = 1
            _axis(i).Increment = 1.0R
            _axis(i).Grid.Visible = False
            _axis(i).Labels.Angle = 0 '角度


            ChartBar.Axes.Custom.Add(_axis(i))

            'End Select
        Next

    End Sub
    Private Sub InitCustomAxies(kkdic As Dictionary(Of String， Dictionary(Of Long, Double)), starttime As Long， stoptime As Long)

        _axis.Clear()
        ChartBar.Axes.Custom.Clear()
        ChartBar.Walls.Visible = False '不显示立面（背景色将统一）

        ChartBar.Axes.Bottom.Title.Caption = "时间轴"
        ChartBar.Axes.Bottom.Title.Visible = False
        ChartBar.Axes.Bottom.MaximumOffset = 4 '最大值偏移
        ChartBar.Axes.Bottom.MinimumOffset = 4 '最小值偏移
        ChartBar.Axes.Bottom.Grid.Style = System.Drawing.Drawing2D.DashStyle.Dash
        ChartBar.Axes.Bottom.Grid.Width = 2
        ChartBar.Axes.Bottom.Ticks.Color = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
        ChartBar.Axes.Bottom.Ticks.Length = 4 '标记长度
        ChartBar.Axes.Bottom.Ticks.Width = 4 '标记宽度
        ChartBar.Axes.Bottom.Grid.Transparency = 60
        ' _axis.Add(ChartBar.Axes.Bottom)
        ChartBar.Axes.Bottom.Automatic = False

        Dim dtOffset As New DateTimeOffset(New DateTime(1970, 1, 1, 0, 0, 0))
        ' 获取本地日期和时间
        Dim yt As DateTime
        yt = （dtOffset.AddSeconds(stoptime)).LocalDateTime
        ChartBar.Axes.Bottom.Maximum = yt.ToOADate
        Dim bvtOffset As New DateTimeOffset(New DateTime(1970, 1, 1, 0, 0, 0))
        yt = （dtOffset.AddSeconds(starttime)).LocalDateTime

        ChartBar.Axes.Bottom.Minimum = yt.ToOADate
        ' ChartBar.Axes.Bottom.Increment = 1
        ChartBar.Axes.Bottom.Logarithmic = False
        'ChartBar.Axes.Right.Title.Right = 20
        ChartBar.Axes.Bottom.Labels.DateTimeFormat = "yyyy-MM-dd HH"

        ChartBar.Axes.Left.Title.Caption = "电流-电压轴"
        ChartBar.Axes.Left.Title.Visible = False
        ChartBar.Axes.Left.MaximumOffset = 4 '最大值偏移
        ChartBar.Axes.Left.MinimumOffset = 4 '最小值偏移
        ChartBar.Axes.Left.Grid.Style = System.Drawing.Drawing2D.DashStyle.Dash
        ChartBar.Axes.Left.Grid.Width = 2
        ChartBar.Axes.Left.Ticks.Color = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
        ChartBar.Axes.Left.Ticks.Length = 2 '标记长度
        ChartBar.Axes.Left.Ticks.Width = 2 '标记宽度
        ChartBar.Axes.Left.Grid.Transparency = 60
        ChartBar.Axes.Left.Automatic = False
        ChartBar.Axes.Left.Minimum = 0.001
        ChartBar.Axes.Left.Maximum = 1000
        ChartBar.Axes.Left.Logarithmic = True


        For i = 0 To kkdic.Count - 1



            '_axis.Add(ChartBar.Axes.Left)
            'Case Else 'IO
            Dim idx As Integer = i
            _axis.Add(New Steema.TeeChart.Axis)
            _axis(i).Title.Caption = kkdic.Keys(i) '标题文本

            _axis(i).Title.Font.Brush.Color = Color.GhostWhite

            _axis(i).Title.Angle = 0 '标题角度
            _axis(i).AxisPen.Color = Color.FromArgb(255, idx * 12, 255 - idx * 10, idx * 6) '颜色
            _axis(i).OtherSide = True '右边显示

            _axis(i).StartPosition = idx * 8.0R
            _axis(i).EndPosition = _axis(i).StartPosition + 4.0R
            _axis(i).Automatic = False
            _axis(i).Minimum = 0
            _axis(i).Maximum = 1
            _axis(i).Increment = 1.0R
            _axis(i).Grid.Visible = False
            _axis(i).Labels.Angle = 0 '角度


            ChartBar.Axes.Custom.Add(_axis(i))

            'End Select
        Next

    End Sub
    ''' <summary>
    ''' 初始化线
    ''' </summary>
    Private Sub InitFastLine(kkdic As Dictionary(Of String， Dictionary(Of Long, Double)))
        ChartBar.Series.Clear()
        _fastLine.Clear()
        Dim namebuf() As String
        'namebuf = My.Settings.fastLineName.Split(",")
        For i = 0 To kkdic.Count - 1

            _fastLine.Add（kkdic.Keys(i), New Steema.TeeChart.Styles.FastLine)
            AddHandler _fastLine.Item(kkdic.Keys(i)).Click, AddressOf FastLine1_Click
            ' _fastLine(i).Title = $"电流{i}" ' FastLineTitle(i) '标题     
            _fastLine.Item(kkdic.Keys(i)).TreatNulls = Steema.TeeChart.Styles.TreatNullsStyle.DoNotPaint
            ChartBar.Series.Add(_fastLine.Item(kkdic.Keys(i)))
            _fastLine.Item(kkdic.Keys(i)).XValues.DateTime = True
            'Select Case i
            '    Case 0
            '        _fastLine(i).Title = $"电流"
            '        ' FastLine(i).CustomVertAxis = ChartBar.Axes.Left '绑定电流轴
            '        _fastLine(i).Transparency = 0 '线条透明度
            '        _fastLine(i).LinePen.Color = Color.FromArgb(255, 255, 0, 0) '线条颜色
            '        
            '    Case 1 To 5
            '        If i = 1 Then
            '            _fastLine(i).Title = $"电压"
            '        Else
            '            _fastLine(i).Title = $"CH{i - 1}"
            '        End If

            '        '  _fastLine(i).Visible = False
            '        ' _fastLine(i).CustomVertAxis = _axis(0) '绑定电压
            '        _fastLine(i).Transparency = 75 '线条透明度
            '        _fastLine(i).LinePen.Color = Color.FromArgb(126, 0, 0, 255) '线条颜色
            '        _fastLine(i).Legend.Visible = True '不在图例中显示
            '    Case Else
            _fastLine.Item(kkdic.Keys(i)).Title = $"{kkdic.Keys(i)}"
            '_fastLine(i).Legend.Visible = True '不在图例中显示
            ' _fastLine.Item(kkdic.Keys(i)).Visible = False
            _fastLine.Item(kkdic.Keys(i)).Transparency = 0 '线条透明度
            _fastLine.Item(kkdic.Keys(i)).CustomVertAxis = _axis(i) '绑定IO轴
            _fastLine.Item(kkdic.Keys(i)).Stairs = True '线条阶梯状
            Dim random As New Random()

            _fastLine.Item(kkdic.Keys(i)).LinePen.Color = Color.GhostWhite   '线条颜色
            '_fastLine.Item(kkdic.Keys(i)).LinePen.Color = Color.Blue
            _fastLine.Item(kkdic.Keys(i)).LinePen.Width = 2
            _fastLine.Item(kkdic.Keys(i)).Legend.Visible = False '不在图例中显示
            '  _fastLine(i).LinePen.Color = _axis(i - 5).Labels.Color
            'End Select
            ' FastLine(i).LinePen.Color = Color.FromArgb(12, 12, 12, 12) '颜色
            ' FastLine(i).ColorEach = False '各点之间颜色不一
        Next
    End Sub
    Private Sub InitFastLine(kkdic As Dictionary(Of String， Dictionary(Of String, Double)))
        ChartBar.Series.Clear()
        _fastLine.Clear()
        For i = 0 To kkdic.Count - 1
            _fastLine.Add（kkdic.Keys(i), New Steema.TeeChart.Styles.FastLine)
            AddHandler _fastLine.Item(kkdic.Keys(i)).Click, AddressOf FastLine1_Click

            ' _fastLine(i).Title = $"电流{i}" ' FastLineTitle(i) '标题     
            _fastLine.Item(kkdic.Keys(i)).TreatNulls = Steema.TeeChart.Styles.TreatNullsStyle.DoNotPaint
            ChartBar.Series.Add(_fastLine.Item(kkdic.Keys(i)))
            _fastLine.Item(kkdic.Keys(i)).XValues.DateTime = True
            'Select Case i
            '    Case 0
            '        _fastLine(i).Title = $"电流"
            '        ' FastLine(i).CustomVertAxis = ChartBar.Axes.Left '绑定电流轴
            '        _fastLine(i).Transparency = 0 '线条透明度
            '        _fastLine(i).LinePen.Color = Color.FromArgb(255, 255, 0, 0) '线条颜色
            '        
            '    Case 1 To 5
            '        If i = 1 Then
            '            _fastLine(i).Title = $"电压"
            '        Else
            '            _fastLine(i).Title = $"CH{i - 1}"
            '        End If

            '        '  _fastLine(i).Visible = False
            '        ' _fastLine(i).CustomVertAxis = _axis(0) '绑定电压
            '        _fastLine(i).Transparency = 75 '线条透明度
            '        _fastLine(i).LinePen.Color = Color.FromArgb(126, 0, 0, 255) '线条颜色
            '        _fastLine(i).Legend.Visible = True '不在图例中显示
            '    Case Else
            _fastLine.Item(kkdic.Keys(i)).Title = 1111 ' $"{kkdic.Keys(i)}"
            '_fastLine(i).Legend.Visible = True '不在图例中显示
            ' _fastLine.Item(kkdic.Keys(i)).Visible = False
            _fastLine.Item(kkdic.Keys(i)).Transparency = 0 '线条透明度
            _fastLine.Item(kkdic.Keys(i)).CustomVertAxis = _axis(i) '绑定IO轴
            _fastLine.Item(kkdic.Keys(i)).Stairs = True '线条阶梯状
            Dim random As New Random()

            _fastLine.Item(kkdic.Keys(i)).LinePen.Color = Color.GhostWhite   '线条颜色
            '_fastLine.Item(kkdic.Keys(i)).LinePen.Color = Color.Blue
            _fastLine.Item(kkdic.Keys(i)).LinePen.Width = 2
            _fastLine.Item(kkdic.Keys(i)).Legend.Visible = False '不在图例中显示
            '  _fastLine(i).LinePen.Color = _axis(i - 5).Labels.Color
            'End Select
            ' FastLine(i).LinePen.Color = Color.FromArgb(12, 12, 12, 12) '颜色
            ' FastLine(i).ColorEach = False '各点之间颜色不一
        Next

    End Sub
    Private Sub InitCursor()
        ChartBar.Tools.Clear()
        For i = 0 To _curSor.Length - 1
            _curSor(i) = New Steema.TeeChart.Tools.CursorTool
            ChartBar.Tools.Add(_curSor(i))
            _curSor(i).Style = Steema.TeeChart.Tools.CursorToolStyles.Vertical
            _curSor(i).OriginalCursor = System.Windows.Forms.Cursors.Default
            _curSor(i).Pen.Style = System.Drawing.Drawing2D.DashStyle.Dot
            _curSor(i).Pen.Width = 2
            _curSor(i).Tag = i
            '_curSor(i).Series = _fastLine.Item("执行条件状态")
            _curSor(i).Active = True
            _curSor(i).FollowMouse = False
            '_curSor(i).Pen.Visible = False
            _curSor(i).Pen.Visible = True
            '_curSor(i).Chart.ShowCoord
            '_curSor(i).ValueFormat = "X: {X}, Y: {Y}"
            Dim cursorTool As New Steema.TeeChart.Tools.CursorTool()

            AddHandler _curSor(i).Change, AddressOf CursorChange
            Select Case i
                Case 0
                    _curSor(i).Pen.Color = System.Drawing.Color.OrangeRed
                Case 1
                    _curSor(i).Pen.Color = System.Drawing.Color.Green
                Case 2
                    _curSor(i).Pen.Color = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer))
            End Select
        Next
    End Sub
    ''' <summary>
    ''' 光标位置改变触发事件
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub CursorChange(sender As Object, e As Steema.TeeChart.Tools.CursorChangeEventArgs)
        Dim index As Integer = sender.tag
        CursorChangeDataDisplay(index)
    End Sub
    ''' <summary>
    ''' 光标移动显示数据
    ''' </summary>
    ''' <param name="index">当前移动的是第几个光标</param>
    Private Sub CursorChangeDataDisplay(index As Integer)

        Dim X1 As Double = 0
        Dim X2 As Double = 0
        Dim dtOffset As New DateTimeOffset(New DateTime(1900, 1, 1), TimeSpan.Zero)
        Dim Nx As Double = 0
        ' 获取本地日期和时间
        Dim yt As DateTime
        Dim ts As TimeSpan
        Select Case index
            Case 0
                X1 = _curSor(index).XValue.ToString("#0.00000")
                yt = DateTime.FromOADate(X1)

                Nx = X1
                'Console.WriteLine($"CursorChangeDataDisplay:X1 {X1}:{yt.ToString("yyyy-MM-dd HH:mm:ss")}")
                'yt = （dtOffset + TimeSpan.FromDays(X1)).LocalDateTime
                'yt = yt + TimeSpan.FromHours(8)
                labY1.Text = yt.ToString("dd HH:mm:ss")
                ts = New TimeSpan(yt.Ticks)
                labY1.Tag = ts.TotalSeconds
            Case 1
                X2 = _curSor(index).XValue.ToString("#0.00000")
                yt = DateTime.FromOADate(X2)
                Nx = X2
                'yt = yt + TimeSpan.FromHours(8)
                labY2.Text = yt.ToString("dd HH:mm:ss")
                'Console.WriteLine($"CursorChangeDataDisplay:X2 {X2}:{yt.ToString("yyyy-MM-dd HH:mm:ss")}")
                ts = New TimeSpan(yt.Ticks)
                labY2.Tag = ts.TotalSeconds
        End Select




        Double.TryParse(labY1.Tag, X1)
        Double.TryParse(labY2.Tag, X2)

        Dim couinm As Double = X2 - X1
        lab1_2.Text = ""
        If couinm < 0 Then
            lab1_2.Text = " - "
        End If
        ';'Console.WriteLine($"CursorChangeDataDisplay:{ _curSor(index).XValue.ToString("#0.00")}|{_curSor(index).XValue.ToString("#0.00")}|{couinm}")
        Dim timeval As TimeSpan = TimeSpan.FromSeconds(Math.Abs(couinm))
        '  'Console.WriteLine(couinm)
        If timeval.Days > 0 Then
            lab1_2.Text = $"{ lab1_2.Text}{timeval.Days }天 "
        End If
        lab1_2.Text = $"{ lab1_2.Text}{timeval.Hours }:{timeval.Minutes }:{timeval.Seconds }"

        'SetSelectNode(yt)

        '获取
        ';Dim e = ChartBar.PointToScreen(New System.Drawing.Point(_curSor(index).XValue, _curSor(index).YValue))
        'Dim fl = _fastLine.Item("执行条件状态")
        'Dim cupos = _curSor(index).Chart.Animations
        ''获取鼠标的 x 和 y 坐标
        'Dim x As Integer = e.X
        'Dim y As Integer = e.Y


        ''使用 TeeChart 的 Chart 方法来转换坐标

        'Dim chartX As Double = fl.XValues(x)
        ''Double chartY = FastLine1.Chart.GetChartYValue(y);
        'Dim chartY As Double = fl.YValues(y)
        'fl.Chart.CalcClickedPart(New System.Drawing.Point(_curSor(index).XValue, _curSor(index).YValue))

        'fl.ClickTolerance


    End Sub

    ' 设置选择节点
    Private Sub SetSelectNode(yt As DateTime)
        If IsNothing(TreeView1) OrElse TreeView1.Nodes.Count = 0 Then Return
        Dim node As TreeNode = TreeView1.Nodes(0)
        Dim datetime As Date
        Dim bbuf() As String
        Dim nstr As String
        For Each childNode As TreeNode In node.Nodes
            bbuf = childNode.Text.Split(".")
            nstr = bbuf(1).Substring(4)
            datetime = DateTime.ParseExact(nstr, "yyyy-MM-dd HH:mm:ss", Nothing)
            If datetime > yt Then
                For Each childNode2 As TreeNode In childNode.Nodes
                    bbuf = childNode2.Text.Split("|")
                    nstr = bbuf(0)
                    datetime = DateTime.ParseExact(nstr, "yyyy-MM-dd HH:mm:ss", Nothing)
                    If datetime <= yt Then
                        TreeView1.SelectedNode = childNode2
                        TreeView1.Select()
                        Return
                    End If
                Next
            End If
        Next

    End Sub

    Private _curTool As Steema.TeeChart.Tools.CursorTool
    Private Sub ChartBar_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles ChartBar.MouseDoubleClick
        If e.Button = MouseButtons.Middle Then
            ChartBar.Zoom.Undo()
        ElseIf e.Button = MouseButtons.Left Then
            Dim idx As Integer
            Dim row As Integer

            If _curTool Is Nothing Then
                idx = 0
                _curTool = _curSor(idx)
                _curTool.FollowMouse = True
                'row = _rowChart.Cursor + idx * (EnCursor.Width + 2) + 1 + EnCursor.FollowMouse + 1
                'GrdChartInfo.Cell(row, EnGridCol.Value).Text = $"1"

            Else
                If _curTool.FollowMouse = False Then
                    idx = _curTool.Tag
                    '  row = _rowChart.Cursor + idx * (EnCursor.Width + 2) + 1 + EnCursor.FollowMouse + 1
                    '_isUserChange = False
                    _curTool.FollowMouse = False
                    'GrdChartInfo.Cell(row, EnGridCol.Value).Text = $"0"

                    idx += 1
                    If idx >= _curSor.Length Then
                        idx = 0
                        _curTool = _curSor(idx)
                        _curTool.FollowMouse = True
                    Else
                        _curTool = _curSor(idx)
                        _curTool.FollowMouse = True
                        '  row = _rowChart.Cursor + idx * (EnCursor.Width + 2) + 1 + EnCursor.FollowMouse + 1
                        'GrdChartInfo.Cell(row, EnGridCol.Value).Text = $"1"
                    End If


                    '_isUserChange = True
                End If

            End If

        End If
    End Sub

    Private Sub ChartBar_MouseClick(sender As Object, e As MouseEventArgs) Handles ChartBar.MouseClick
        If e.Button = MouseButtons.Middle Then

            ChartBar.Zoom.Undo()
        ElseIf e.Button = MouseButtons.Right Then
            If IsNothing(_curTool) Then Return
            _curTool.FollowMouse = False
        End If

    End Sub



    Private Sub FastLine1_Click(sender As Object, e As MouseEventArgs)
        Dim fl As Styles.FastLine = sender




        'For Each node In _fastLine
        '    If node.Value.Title.Equals(fl.Title) Then
        '        fl = node.Value
        '        Dim x1 As Double = 0
        '        labdevanme.Text = fl.Title
        '        ''Console.WriteLine($"{e.X} {fl.YValues.Value(e.X).ToString("#0.0.")} {e.Y} {fl.YValues.Value(e.Y).ToString("#0.00")}")
        '        Dim intcv As Integer = CInt（Math.Round(ChartBar.Series(0).YScreenToValue(e.Y))）
        '        labval.Text = intcv.ToString


        '        'Console.WriteLine(fl.XValues.Value.Length)
        '        x1 = ChartBar.Series(0).XScreenToValue(e.X)
        '        Dim stra As String = fl.XValues.AsDateTime(e.X)


        '        Dim dtOffset As New DateTimeOffset(New DateTime(1970, 1, 1), TimeSpan.Zero)
        '        ' 获取本地日期和时间
        '        Dim yt As DateTime
        '        yt = DateTime.FromOADate(x1)
        '        yt = yt + TimeSpan.FromHours(8)
        '        'Console.WriteLine($"FastLine1_Click:{x1}:{ yt.ToString("yyyy-MM-dd HH:mm:ss")}")
        '        labDate.Text = yt.ToString("yyyy-MM-dd HH:mm:ss")

        '    End If
        'Next





    End Sub

    Private Sub Grid_config_ComboDropDown(Sender As Object, e As Grid.ComboDropDownEventArgs)
        Grid_config.ComboBox(0).Items.Clear()
        If IsNothing(devnamedic) OrElse devnamedic.Count = 0 Then Return
        Grid_config.ComboBox(0).Items.AddRange(devnamedic.ToArray)
    End Sub
    Public filequeue As Queue
    Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles ToolStripButton6.Click
        If String.IsNullOrEmpty(Label1.Text) Then
            MsgBox("未选择日志目录")
            Return
        End If
        If Not IO.Directory.Exists(Label1.Text) Then
            MsgBox("日志目录不存在")
            Return
        End If

        Dim filrpath As String = Grid_config.Cell(3, 2).Text.Trim
        If String.IsNullOrEmpty(filrpath) Then
            MsgBox("目标机型为空")
            Return
        End If
        Dim mubdir As String = $"{Label1.Text}\{filrpath}"
        If Not IO.Directory.Exists(mubdir) Then
            MsgBox("目标机型目录不存在")
            Return
        End If
        Dim TFTPNew() As String


        IO.Directory.CreateDirectory($"{Label1.Text}\ParsingLog\{filrpath}")
        Dim ParsingLog As String = $"{Label1.Text}\ParsingLog\{filrpath}"
        Dim filename() As String = IO.Directory.GetFiles(mubdir)
        Dim starttime As Date
        Dim stoptime As Date
        filequeue = New Queue
        Dim filgtime As Date
        If String.IsNullOrEmpty(Grid_config.Cell(1, 2).Text.Trim) OrElse String.IsNullOrEmpty(Grid_config.Cell(2, 2).Text.Trim) Then
            MsgBox("开始时间或结束时间为空")
            Return
        End If
        Date.TryParse(Grid_config.Cell(1, 2).Text.Trim, starttime)
        Date.TryParse(Grid_config.Cell(2, 2).Text.Trim, stoptime)
        If IsNothing(starttime) OrElse IsNothing(stoptime) OrElse (starttime > stoptime) Then
            MsgBox("开始时间或结束时间异常")
            Return
        End If
        Dim filenamebuff() As String
        Dim tstr As String = "yyMMddHHmmss" ' 对应的格式

        ProgressBar2.Maximum = filename.Length
        ProgressBar2.Minimum = 0

        If IO.Directory.Exists($"C:\TFTP-New\") Then
            TFTPNew = IO.Directory.GetFiles("C:\TFTP-New\")
            If TFTPNew.Length > 0 Then
                For Each node In TFTPNew
                    '判断文件名称是否包含目标机型
                    If node.Contains(filrpath) Then
                        ' 判断文件创建时间是否在10分钟之前
                        If (DateTime.Now - IO.File.GetCreationTime(node)).TotalMinutes > 10 Then
                            '将文件移动到日志目录的对应机型文件夹
                            If IO.File.Exists($"{Label1.Text}\{filrpath}") Then

                            Else
                                Try
                                    IO.File.Move(node, $"{Label1.Text}\{filrpath}{node.Substring(node.LastIndexOf("\"))}")

                                Catch ex As Exception
                                    MsgBox($"{Label1.Text}\{filrpath}{node.Substring(node.LastIndexOf("\"))}")
                                End Try

                            End If

                        End If

                    End If
                Next
            End If
        End If


        For i = 0 To filename.Length - 1
            Dim node As String = filename（i）
            Dim index As String = node.Substring(node.LastIndexOf("\") + 1)
            filenamebuff = index.Split("_")
            filenamebuff = filenamebuff(filenamebuff.Length - 1).Split(".")
            Try
                filgtime = DateTime.ParseExact(filenamebuff(0), tstr, CultureInfo.InvariantCulture)

                If starttime <= filgtime AndAlso filgtime <= stoptime Then
                    'ProgressBar2.Value = i
                    'Label2.Text = i Mod filename.Length
                    filequeue.Enqueue($"{ParsingLog}\{index}")
                    IO.File.Copy($"{mubdir}\{index}", $"{ParsingLog}\{index}")
                End If

            Catch ex As Exception
                Continue For
            End Try

        Next
        'ProgressBar2.Value = filename.Length
        'Label2.Text = "解析完成" 
        ClearDeviceform($"{ParsingLog}\Tftp_Log.db", "Tftp_Log")
        StartParsinglog(filequeue, $"{ParsingLog}\Tftp_Log.db")
        ' Label2.ForeColor = Color.DarkGreen
    End Sub
    Public threadli As List(Of Thread)
    Public Sub StartParsinglog(fileli As Queue, dbpath As String)
        If IsNothing(threadli) Then threadli = New List(Of Thread)
        For Each node In threadli
            node.Abort()
        Next
        threadli.Clear()
        For i = 1 To 1

            Dim t As New Thread(Sub() ParsinglogThreadRuning(fileli, dbpath))
            t.SetApartmentState(Threading.ApartmentState.STA)
            t.IsBackground = True
            threadli.Add(t)
            t.Start()
        Next
    End Sub
    Public Sub ParsinglogThreadRuning(fileli As Queue, dbpath As String)
        Dim nct As Integer = fileli.Count
        While fileli.Count > 0

            Dim filename As String = fileli.Dequeue
            SetUIProgressBar1(nct - fileli.Count)
            GetFileInfoList(filename, dbpath) '解析文件

            '数据入库
        End While
        SetUIProgressBar1(ProgressBar2.Maximum)
    End Sub
    Delegate Sub delegate_MatchingInfo_Change(berval As Integer)

    Public Sub SetUIProgressBar1(berval As Integer)
        If InvokeRequired = True Then
            Dim dev As New delegate_MatchingInfo_Change(AddressOf SetUIProgressBar1)
            Me.Invoke(dev, berval)
        Else
            ProgressBar2.Value = berval
            If ProgressBar2.Value = ProgressBar2.Maximum Then
                Label2.Text = "解析完成"
            End If

        End If

    End Sub




    ''' <summary>
    ''' 解析文件内容
    ''' </summary>
    ''' <param name="datFile"></param>
    ''' <returns></returns>
    Private Function GetFileInfoList(filename As String, dbpath As String) As Boolean
        Dim result As Boolean = True
        '确认文件是否存在


        '读取文件内容
        Dim file_data As Byte() = My.Computer.FileSystem.ReadAllBytes(filename)
        Dim sampleArr_len As UInt32 = file_data.Length
        Dim sampleArr_showlen As UInt32 = 0
        Dim data_len As UInt16
        Dim data_end As Byte
        Dim fileInfoList As New List(Of LogDataInfoStruct) '读取文件内容保存在此变量
        Dim Addnode As LogDataInfoStruct

        '解析文件名，获取MAC、酒店id、房号、生成日期等信息
        Dim tmpFileNameInfo As fileNameInfoStruct = GetFileNameInfo(filename)
        'Try
        While sampleArr_showlen < sampleArr_len
            If file_data(sampleArr_showlen) = &HA5 And sampleArr_showlen + 3 < sampleArr_len Then                 '判断文件头
                data_len = file_data(sampleArr_showlen + LOG_DATA_FORMAT.Len) Or (file_data(sampleArr_showlen + LOG_DATA_FORMAT.Len_8) << 8)            '读取数据长度



                If data_len < Log_Data_Len_Max And sampleArr_showlen + data_len - 1 < file_data.Length Then
                    data_end = file_data(sampleArr_showlen + data_len - 1)
                    'Console.WriteLine($"Data Len :{data_len:d} Data :{data_end:X}")
                    If sampleArr_showlen + data_len <= sampleArr_len AndAlso file_data(sampleArr_showlen + data_len - 1) = &H5A Then  '判断文件尾

                        Dim data_buff(data_len - 1) As Byte
                        ' Dim data_string As String

                        Array.Copy(file_data, sampleArr_showlen, data_buff, 0, data_len)
                        sampleArr_showlen += data_len           '数据偏移
                        If GetSumCheckMod(data_buff, data_len) = &H0 Then
                            'Console.WriteLine("Data Check Succ !\r\n")

                            'Parsing_a_piece_of_data(data_buff, show_form， DataGridView1)

                            ' data_list.Add(data_buff)                '保存一份数据，添加到列表中

                            If fileInfoList.Count = 0 Then
                                Addnode = File_Data_Parsing_To_Iten(tmpFileNameInfo, data_buff, Nothing)
                            Else
                                Addnode = File_Data_Parsing_To_Iten(tmpFileNameInfo, data_buff, fileInfoList.Item(fileInfoList.Count - 1))
                            End If


                            fileInfoList.Add(Addnode)
                            'data_string = BitConverter.ToString(data_buff)
                            'data_string = data_string.Replace("-", " ")
                            'Console.WriteLine(data_string)
                        Else
                            ' AnalysisLog("Data Check Fail !\r\n")
                            Console.WriteLine("Data Check Fail !\r\n")
                        End If
                    Else
                        sampleArr_showlen += 1
                        ' AnalysisLog("Data Len Fail!!! Now Len:" & sampleArr_showlen)
                        Console.WriteLine("Data Len Fail!!! Now Len:" & sampleArr_showlen)
                        result = False
                    End If
                Else
                    sampleArr_showlen += 1
                    'AnalysisLog("Data Len Fail!!! Now Len:" & sampleArr_showlen)
                    result = False
                    Console.WriteLine("Data Len Error!!! " & sampleArr_showlen)
                End If
            Else
                sampleArr_showlen += 1
                result = False
            End If
            'delay(1)
            'Application.DoEvents()
        End While
        'RaiseEvent Fileschedule(sampleArr_len， True)
        'Catch ex As Exception
        '    AdminLog.ApplicationLog.WriteErrorLog(ex)
        'End Try

        '数据添加到列表
        '  fileInfoList = File_Data_Parsing_To_List(datFileName, data_list)

        interpositionTfTpData(fileInfoList, dbpath)
        Return result
    End Function

    Public Sub interpositionTfTpData(fileInfoList As List(Of LogDataInfoStruct), dbpath As String)
        Dim selectstr As String = String.Empty
        Dim Insert As String
        Dim localDateTimeString As String ' 本地时间日期字符串
        Dim format As String = "yyyy-MM-dd HH:mm:ss" ' 根据您的字符串格式调整

        ' 解析字符串为DateTime对象
        Dim localDateTime As DateTime

        ' 将DateTime对象的种类指定为UTC
        Dim utcDateTime As DateTime

        For Each node In fileInfoList

            Select Case node.Log_Type
                Case 7


                    For Each index In node.parsing

                        If IsNothing(index) Then Continue For
                        localDateTimeString = $"20{node.Log_DateTime.year}-{node.Log_DateTime.month.ToString.PadLeft(2, "0")  }-{node.Log_DateTime.day.ToString.PadLeft(2, "0")  } {node.Log_DateTime.hour.ToString.PadLeft(2, "0")  }:{node.Log_DateTime.minute.ToString.PadLeft(2, "0")  }:{node.Log_DateTime.second.ToString.PadLeft(2, "0") }"
                        If DateTime.TryParse(localDateTimeString, localDateTime) Then
                        Else
                            Console.WriteLine(localDateTimeString)
                        End If

                        utcDateTime = DateTime.SpecifyKind(localDateTime, DateTimeKind.Utc)
                        If index.Contains("VCLog:T1") Then
                            Dim sbuf() As String = index.Split(":")
                            Insert = $"INSERT INTO [Tftp_Log]
		                                ([FileName]
                                        ,[CreateFileTime]
                                        ,[Datastr]
                                        ,[DevName]
		                                ,[T1]
		                                ,[loop]
		                                ,[Datatime])
	                                VALUES
		                               ('{node.LogFileName }','{node.CreateDateTime}','{index}','{node.MAC }'
		                                ,'{sbuf(3)}'
		                                ,'{sbuf(2)}'
		                                ,'{localDateTime.ToUniversalTime.Ticks  }');{vbCrLf }"
                            selectstr = $"{selectstr}{Insert}"
                        ElseIf index.Contains("VCLog:T3") Then
                            Dim sbuf() As String = index.Split(":")
                            Insert = $"INSERT INTO [Tftp_Log]
		                                ([FileName]
                                        ,[CreateFileTime]
                                        ,[Datastr]
                                        ,[DevName]
		                                ,[T3]
		                                ,[loop]
		                                ,[Datatime])
	                                VALUES
		                               ('{node.LogFileName }','{node.CreateDateTime}','{index}','{node.MAC }'
		                                ,'{sbuf(3)}'
		                                ,'{sbuf(2)}'
		                                ,'{localDateTime.ToUniversalTime.Ticks  }');{vbCrLf }"
                            selectstr = $"{selectstr}{Insert}"
                        ElseIf index.Contains("VCLog:T5") Then
                            Dim sbuf() As String = index.Split(":")
                            Insert = $"INSERT INTO [Tftp_Log]
		                                ([FileName]
                                        ,[CreateFileTime]
                                        ,[Datastr]
                                        ,[DevName]
		                                ,[T5]		                              
		                                ,[Datatime])
	                                VALUES
		                               ('{node.LogFileName }','{node.CreateDateTime}','{index}','{node.MAC }'
		                                ,'{sbuf(2)}'		                               
		                                ,'{localDateTime.ToUniversalTime.Ticks  }');{vbCrLf }"
                            selectstr = $"{selectstr}{Insert}"
                        ElseIf index.Contains("DevService:loop") Then

                            Dim sbuf() As String = index.Split(":")
                            Insert = $"INSERT INTO [Tftp_Log]
		                                ([FileName]
                                        ,[CreateFileTime]
                                        ,[Datastr]
                                        ,[DevName]
		                                ,[DevService]	
                                        ,[loop]
		                                ,[Datatime])
	                                VALUES
		                               ('{node.LogFileName }','{node.CreateDateTime}','{index}','{node.MAC }'
                                        ,'{sbuf(2).Split(",")(0)}'
		                                ,'{sbuf(3)}'		                               
		                                ,'{localDateTime.ToUniversalTime.Ticks  }');{vbCrLf }"
                            selectstr = $"{selectstr}{Insert}"

                        ElseIf index.Contains("VCLog:T2") Then
                            Dim sbuf() As String = index.Split(":")
                            Insert = $"INSERT INTO [Tftp_Log]
		                                ([FileName]
                                        ,[CreateFileTime]
                                        ,[Datastr]
                                        ,[DevName]
		                                ,[T2]
		                                ,[loop]
		                                ,[Datatime])
	                                VALUES
		                               ('{node.LogFileName }','{node.CreateDateTime}','{index}','{node.MAC }'
		                                ,'{sbuf(3)}'
		                                ,'{sbuf(2)}'
		                                ,'{localDateTime.ToUniversalTime.Ticks  }');{vbCrLf }"
                            selectstr = $"{selectstr}{Insert}"
                        ElseIf index.Contains("VCLog:T4") Then
                            Dim sbuf() As String = index.Split(":")
                            Insert = $"INSERT INTO [Tftp_Log]
		                                ([FileName]
                                        ,[CreateFileTime]
                                        ,[Datastr]
                                        ,[DevName]
		                                ,[T4]
		                                ,[Datatime])
	                                VALUES
		                                ('{node.LogFileName }','{node.CreateDateTime}','{index}','{node.MAC }'
		                                ,'{sbuf(2)}'		                               
                                        ,'{localDateTime.ToUniversalTime.Ticks}');{vbCrLf }"
                            selectstr = $"{selectstr}{Insert}"
                        End If
                    Next

            End Select

        Next
        'selectstr = $"{selectstr}COMMIT ;"
        Dim dt As DataTable


        ' Try
        Using db As New DbExecutor(DbExecutor.DbTypeEnum.Sqlite, LocalConnString)
            db.Open()
            Try
                ' 开始一个事务
                db.BeginTransaction()
                dt = db.ExecuteDataTable(selectstr)
                db.CommitTransaction()
            Catch ex As Exception
                db.RollbackTransaction()
            End Try
            db.Close()
        End Using

        'Catch ex As Exception
        '    MsgBox($"数据批量写入失败！！！{vbCrLf }原因:{vbCrLf }{ex.Message }")
        'End Try

    End Sub



    Private Function GetFileNameInfo(ByVal datFile As String) As fileNameInfoStruct
        Dim tmpFileInfo As New fileNameInfoStruct
        Dim fileInfo As FileInfo = New FileInfo(datFile)
        Dim FileNameStr As String = fileInfo.Name
        Dim Strbyte As String() = FileNameStr.Split("_")

        Dim lastModified As DateTime = fileInfo.LastWriteTime
        Try
            tmpFileInfo.MAC = Strbyte(0)
            tmpFileInfo.HotelId = Strbyte(1)
            tmpFileInfo.RoomId = Strbyte(2)
            'tmpFileInfo.CreateDateTime = datFile.DateLastModified
            tmpFileInfo.CreateDateTime = Format(lastModified, "yyyy-MM-dd HH:mm:ss")

            tmpFileInfo.LogFileName = fileInfo.Name
        Catch ex As Exception
            AdminLog.ApplicationLog.WriteErrorLog(ex)
        End Try

        Return tmpFileInfo
    End Function
    Public Function File_Data_Parsing_To_Iten(ByVal datFileName As fileNameInfoStruct, databuff() As Byte， lastdata As LogDataInfoStruct) As LogDataInfoStruct
        Dim save_data As New LogDataInfoStruct
        'Dim parsing_string As String
        Dim hour_tick As Int32
        Dim hour_temp As Int32
        Dim data_date As Int32
        '数据类型及长度等
        'save_data.original_data = file_data(idx)
        save_data.Log_SN = databuff(LOG_DATA_FORMAT.SN)
        save_data.Log_Type = databuff(LOG_DATA_FORMAT.Type)
        hour_temp = databuff(LOG_DATA_FORMAT.Len_8)
        save_data.Log_Len = (databuff(LOG_DATA_FORMAT.Len) Or (hour_temp << 8)) - LOG_DATA_FORMAT.Data       '数据长度

        ' If save_data.Log_Len > Log_Data_Len_Max Then
        'save_data.len = Log_Data_Len_Max 数据长度超过数据最大长度
        ' Return tmpDataList
        ' End If

        '日期
        data_date = (databuff(LOG_DATA_FORMAT.Date_L) And &HFF)                    '记录时间
        hour_temp = databuff(LOG_DATA_FORMAT.Date_H)
        data_date = data_date Or (hour_temp << 8)

        hour_tick = databuff(LOG_DATA_FORMAT.Time8B)
        hour_temp = databuff(LOG_DATA_FORMAT.Time16B)
        hour_tick = hour_tick Or (hour_temp << 8)
        hour_temp = databuff(LOG_DATA_FORMAT.Time24B)
        hour_tick = hour_tick Or (hour_temp << 16)
        hour_temp = databuff(LOG_DATA_FORMAT.Time32B)
        hour_tick = hour_tick Or (hour_temp << 24)

        save_data.Log_DateTime.year = (data_date >> 10) And &H1F
        save_data.Log_DateTime.month = (data_date >> 5) And &H1F
        save_data.Log_DateTime.day = (data_date) And &H1F

        '时间
        save_data.Log_DateTime.hour = hour_tick \ 3600000

        '防止24:00:00 溢出 Momo 2022-06-26 24：00：00
        If save_data.Log_DateTime.hour >= 24 Then save_data.Log_DateTime.hour = 0

        hour_temp = hour_tick Mod 3600000
        save_data.Log_DateTime.minute = hour_temp \ 60000
        hour_temp = hour_temp Mod 60000
        save_data.Log_DateTime.second = hour_temp \ 1000
        save_data.Log_DateTime.milliscond = hour_temp Mod 1000


        '分离文件内容中的数据
        Dim copy As UInt16 = save_data.Log_Len - 1
        Dim parsing_data(copy - 1) As Byte

        Array.Copy(databuff, LOG_DATA_FORMAT.Data, parsing_data, 0, copy)

        save_data.Log_Content = parsing_data

        'parsing_string = BitConverter.ToString(parsing_data)
        'parsing_string = parsing_string.Replace("-", " ")
        'Console.WriteLine($"parsing_string:{parsing_string}")

        'parsing_string = $"Data SN:{save_data.Log_SN:d} TYPE:{save_data.Log_Type:d} Len:{save_data.Log_Len:d} data_date:{data_date:X} hour_tick:{hour_tick:X}"
        ' Console.WriteLine(parsing_string)

        '解析数据内容
        Dim Parsing_Param As New List(Of String)
        Parsing_Data_Content(save_data.Log_Type, parsing_data, Parsing_Param) '解析

        '判断Param参数,不够10个则补足
        If Parsing_Param.Count > 0 Then
            Dim len As Integer = 10 - Parsing_Param.Count
            Dim par(len - 1) As String
            Parsing_Param.AddRange(par)
        End If
        save_data.parsing = Parsing_Param
        save_data.Log_TimeSpan = Get_Data_Time_Difference2(lastdata, save_data) '时间差
        save_data.Log_Valid = True
        save_data.HotelId = datFileName.HotelId
        save_data.RoomId = datFileName.RoomId
        save_data.CreateDateTime = datFileName.CreateDateTime
        save_data.LogFileName = datFileName.LogFileName
        save_data.MAC = datFileName.MAC
        ' Dim savedata As String = $"[HotelId:{save_data.HotelId }],{vbCrLf}[RoomId:{save_data.RoomId}],{vbCrLf}[LogFileName:{save_data.LogFileName }],{vbCrLf}[Log_SN:{save_data.Log_SN }],{vbCrLf}[Log_Len:{save_data.Log_SN}],{vbCrLf}[Log_DateTime:{ newtime_h(save_data).ToString("yyyy-MM-dd HH:mm:ss") }],{vbCrLf}[Log_TimeSpan:{save_data.Log_TimeSpan}],{vbCrLf}[Log_Type:{Parsing_Param}],{vbCrLf}[CreateDateTime:{save_data.CreateDateTime}],{vbCrLf}[LogFileName:{save_data.LogFileName }]"
        '   Console.WriteLine($"解析数据包({idx}):{vbCrLf}{savedata}")
        ' Console.WriteLine($"解析数据包({idx})")
        Return save_data
    End Function
    ''' <summary>
    ''' 解析数据内容
    '''     按照数据类型来解析,用于加载表格时的数据显示 - 简单的内容解析
    ''' </summary>
    ''' <param name="data_content"></param>
    ''' <returns></returns>
    Public Function Parsing_Data_Content(data_type As Byte, data_content As Byte(), ByRef Type_Param As List(Of String)) As List(Of String)


        Dim dev_temp As New Device_Temp
        Try
            Select Case data_type

                Case log_type.Launcher
                    Type_Param.Add("Launcher信息")
                    Type_Param = Parsing_LogData_Launcher_Content(data_content, Type_Param)
                Case log_type.SYS_Record
                    Type_Param.Add("系统信息")
                    Type_Param = Parsing_LogData_SYS_Record_Content(data_content, Type_Param)
                Case log_type.Device_COMM
                    Type_Param.Add("设备通讯")
                    Type_Param = Parsing_LogData_Device_COMM_Content(data_content, Type_Param)
                Case log_type.Device_Online
                    Type_Param.Add("设备通讯状态")
                    Type_Param = Parsing_LogData_Device_Online_Content(data_content, Type_Param)
                Case log_type.Global_Parameters
                    Type_Param.Add("定期保存设备信息")
                    Type_Param = Parsing_LogData_Global_Parameters_Content(data_content, Type_Param)
                Case log_type.Net_COMM
                    Type_Param.Add("网络处理")
                    Type_Param = Parsing_LogData_Net_COMM_Content(data_content, Type_Param)
                Case log_type.Logic_Record
                    Type_Param.Add("事件处理")
                    Type_Param = Parsing_LogData_Logic_Record_Content(data_content, Type_Param)
                Case Else
                    Type_Param.Add("数据类型错误")
            End Select
        Catch ex As Exception
            AdminLog.ApplicationLog.WriteErrorLog(ex)
        End Try


        Return Type_Param
    End Function
    ''' <summary>
    ''' 系统运行信息数据解析
    ''' </summary>
    ''' <param name="data_content"></param>
    ''' <returns></returns>
    Public Function Parsing_LogData_SYS_Record_Content(data_content As Byte(), ByRef Type_Param As List(Of String)) As List(Of String)

        'data_parsing = "系统运行数据解析" & BitConverter.ToString(data_content).Replace("-", " ")

        Dim sys_type As Byte = data_content(0)

        Try
            Select Case sys_type
                Case LSYS.PHY_Change
                    Type_Param.Add("网络PHY状态记录")
                    If data_content(1) = &H0 Then
                        Type_Param.Add("拔出")
                    ElseIf data_content(1) = &H1 Then
                        Type_Param.Add("插入")
                    Else
                        Type_Param.Add($"PHY状态错误： {data_content(1)}")
                    End If

                Case LSYS.DevInfo_Error
                    Type_Param.Add("设备链表读取信息错误记录")
                    Type_Param.Add($"设备类型：{data_content(1)}")
                    Type_Param.Add($"地址：{data_content(2)}")
                    Type_Param.Add($"链表信息读取错误")
                Case LSYS.API_State
                    Type_Param.Add("系统升级信息")
                    If data_content(1) = &H1 Then
                        Type_Param.Add("串口升级")
                    ElseIf data_content(1) = &H2 Then
                        Type_Param.Add("网络升级")
                    Else
                        Type_Param.Add("错误升级类型")
                    End If

                    If data_content(2) = &H1 Then
                        Type_Param.Add("写入成功")
                    ElseIf data_content(2) = &H2 Then
                        Type_Param.Add("写入失败")
                    ElseIf data_content(2) = &H3 Then
                        Type_Param.Add("文件块数错误")
                    ElseIf data_content(2) = &H4 Then
                        Type_Param.Add("MD5校验错误")
                    ElseIf data_content(2) = &H5 Then
                        Type_Param.Add("CRC校验错误")
                    ElseIf data_content(2) = &H6 Then
                        Type_Param.Add("跳转Launcher")
                    Else
                        Type_Param.Add("未知状态")
                    End If

                Case LSYS.NET_ARGC
                    Type_Param.Add("网络初始化：")
                    Type_Param.Add($"IP : {data_content(1)}.{data_content(2)}.{data_content(3)}.{data_content(4)}")
                    Type_Param.Add($"MAC : {data_content(5)}.{data_content(6)}.{data_content(7)}.{data_content(8)}.{data_content(9)}.{data_content(10)}")
                    Type_Param.Add($"服务器IP : {data_content(11)}.{data_content(12)}.{data_content(13)}.{data_content(14)}")
                    Type_Param.Add($"TFTP服务器IP : {data_content(15)}.{data_content(16)}.{data_content(17)}.{data_content(18)}")
                    Type_Param.Add($"MQTT服务器IP : {data_content(19)}.{data_content(20)}.{data_content(21)}.{data_content(22)}")
                Case LSYS.MQTT_ARGC
                    Type_Param.Add("MQTT初始化参数")
                    Type_Param.Add("还没解析")
                Case LSYS.NetComm_State
                    Type_Param.Add("云端通讯状态")
                    If data_content(1) = &H0 Then
                        Type_Param.Add("服务器状态：离线")
                    ElseIf data_content(1) = &H1 Then
                        Type_Param.Add("本地服务器通信正常")
                    ElseIf data_content(1) = &H2 Then
                        Type_Param.Add("云端服务器通信正常")
                    Else
                        Type_Param.Add("云端通讯状态 - 未知状态")
                    End If
                Case LSYS.NET_DafaultARGC

                    Type_Param.Add("网络初始化")
                    Type_Param.Add($"IP : {data_content(1)}.{data_content(2)}.{data_content(3)}.{data_content(4)}")
                    Type_Param.Add($"网关 : {data_content(5)}.{data_content(6)}.{data_content(7)}.{data_content(8)}")
                    Type_Param.Add($"子网掩码 : {data_content(9)}.{data_content(10)}.{data_content(11)}.{data_content(12)}")
                    Type_Param.Add($"DNS_IP : {data_content(13)}.{data_content(14)}.{data_content(15)}.{data_content(16)}")

                    If data_content(17) = &H1 Then
                        Type_Param.Add("网络ArgcFlag标志：PC设置参数")
                    Else
                        Type_Param.Add("网络ArgcFlag标志：主机默认参数")
                    End If

                    If data_content(18) = &H2 Then
                        Type_Param.Add("DHCP标志：关闭DHCP")
                    Else
                        Type_Param.Add("DHCP标志：启动DHCP")
                    End If

                    If data_content(19) = &H1 Then
                        Type_Param.Add("使用本地服务器标志")
                    Else
                        Type_Param.Add("使用云端服务器标志")
                    End If
                Case Else
                    Type_Param.Add($"系统运行信息 类型错误{sys_type}")
            End Select
        Catch ex As Exception
            AdminLog.ApplicationLog.WriteErrorLog(ex)
            Type_Param.Add("数据异常----")
        End Try


        Return Type_Param
    End Function

    ''' <summary>
    ''' 设备通讯数据解析
    ''' </summary>
    ''' <param name="data_content"></param>
    ''' <returns></returns>
    Public Function Parsing_LogData_Device_COMM_Content(data_content As Byte(), ByRef Type_Param As List(Of String)) As List(Of String)
        Dim data_type As Byte = data_content(0)
        Dim data_port As Byte = data_content(1)
        Dim data_baud As UInt32
        Dim data_buff(data_content.Length - 7) As Byte

        Array.Copy(data_content, 6, data_buff, 0, data_content.Length - 6)

        data_baud = data_content(5)
        data_baud = (data_baud << 8) Or data_content(4)
        data_baud = (data_baud << 8) Or data_content(3)
        data_baud = (data_baud << 8) Or data_content(2)
        Try
            Select Case data_type
                Case LCOMM.Adjust_Baud '设备切换通讯波特率

                    Type_Param.Add($"设备切换通讯波特率")
                    data_baud = data_content(6)
                    data_baud = (data_baud << 8) Or data_content(5)
                    data_baud = (data_baud << 8) Or data_content(4)
                    data_baud = (data_baud << 8) Or data_content(3)

                    Obtaining_The_Device_Type(data_content(1), Type_Param)
                    Type_Param.Add($" 设备地址:{data_content(2)}")
                    Type_Param.Add($" 切换波特率:{data_baud}" & vbCrLf)


                Case LCOMM.ASK_TO_Reply '轮询回复数据
                    Type_Param.Add($"轮询回复数据")
                    Type_Param.Add($"Port_{data_port} ")
                    Type_Param.Add($"Baud:{data_baud} ")
                    Type_Param.Add("485通讯数据:" & BitConverter.ToString(data_buff).Replace("-", " "))
                    DataTypes.Parsing_485Data_type(data_buff, Type_Param)

                Case LCOMM.Control_Reply 'RCU下发数据
                    Type_Param.Add($"RCU下发数据")
                    Type_Param.Add($"Port_{data_port}")
                    Type_Param.Add($"Baud:{data_baud}")
                    Type_Param.Add("485通讯数据:" & BitConverter.ToString(data_buff).Replace("-", " "))
                    DataTypes.Parsing_485Data_type(data_buff, Type_Param)

                Case LCOMM.Send_Control 'RCU接收控制回复数据
                    Type_Param.Add($"RCU接收控制回复数据")
                    Type_Param.Add($"Port_{data_port}")
                    Type_Param.Add($"Baud:{data_baud}")
                    Type_Param.Add("485通讯数据:" & BitConverter.ToString(data_buff).Replace("-", " "))
                    DataTypes.Parsing_485Data_type(data_buff, Type_Param)
                Case Else
                    Type_Param.Add("类型错误:" & BitConverter.ToString(data_content).Replace("-", " "))
            End Select
        Catch ex As Exception
            AdminLog.ApplicationLog.WriteErrorLog(ex)
        End Try


        Return Type_Param
    End Function
    ''' <summary>
    ''' 设备通讯状态数据解析
    ''' </summary>
    ''' <param name="data_content"></param>
    ''' <returns></returns>
    Public Function Parsing_LogData_Device_Online_Content(data_content As Byte(), ByRef Type_Param As List(Of String)) As List(Of String)
        Dim dev_type As Byte = data_content(0)
        Dim dev_addr As Byte = data_content(1)
        Dim dev_state As Byte = data_content(2)
        Try
            Type_Param.Add("设备状态改变")
            Type_Param = Obtaining_The_Device_Type(dev_type, Type_Param)
            Type_Param.Add($"设备地址:{dev_addr} ")
            If dev_state = LOG_DEV_State.Offline Then
                Type_Param.Add("设备状态:离线")
            ElseIf dev_state = LOG_DEV_State.Online Then
                Type_Param.Add("设备状态:在线")
            Else
                Type_Param.Add($"状态错误:{dev_state}")
            End If
        Catch ex As Exception
            AdminLog.ApplicationLog.WriteErrorLog(ex)
        End Try


        Return Type_Param
    End Function
    ''' <summary>
    ''' 获取设备类型
    ''' </summary>
    ''' <returns></returns>
    Public Function Obtaining_The_Device_Type(data As Byte, ByRef Type_Param As List(Of String)) As List(Of String)
        Try
            Select Case data
                Case BLV_DEVICE_TYPE.C12Dimming
                    Type_Param.Add("设备类型:C12调光设备")
                Case BLV_DEVICE_TYPE.C5IO
                    Type_Param.Add("设备类型:C5IO设备")
                Case BLV_DEVICE_TYPE.C5Music
                    Type_Param.Add("设备类型:C5Music设备")
                Case BLV_DEVICE_TYPE.PC_TEST
                    Type_Param.Add("设备类型:BLV PC TEST")
                Case BLV_DEVICE_TYPE.RS485_Card
                    Type_Param.Add("设备类型:RS485 插卡取电")
                Case BLV_DEVICE_TYPE.RS485_IR_SEND
                    Type_Param.Add("设备类型:RS485 红外转发")
                Case BLV_DEVICE_TYPE.RS485_RGB_Light
                    Type_Param.Add("设备类型:RS485 RGB灯带")
                Case BLV_DEVICE_TYPE.RS485_Switch
                    Type_Param.Add("设备类型:RS485 开关")
                Case BLV_DEVICE_TYPE.RS485_Temp
                    Type_Param.Add("设备类型:RS485 温控器")
                Case BLV_DEVICE_TYPE.RS485_Time
                    Type_Param.Add("设备类型:时间同步")
                Case BLV_DEVICE_TYPE.RS485_XiaoBao
                    Type_Param.Add("设备类型:RS485 小宝语音")
                Case Else
                    Type_Param.Add($"未知设备:{data}")
            End Select
        Catch ex As Exception
            AdminLog.ApplicationLog.WriteErrorLog(ex)
        End Try


        Return Type_Param
    End Function
    ''' <summary>
    ''' 所有设备状态定期保存数据解析
    ''' </summary>
    ''' <param name="data_content"></param>
    ''' <returns></returns>
    Public Function Parsing_LogData_Global_Parameters_Content(data_content As Byte(), ByRef Type_Param As List(Of String)) As List(Of String)
        Type_Param.Add("所有设备状态定期保存数据解析" & BitConverter.ToString(data_content).Replace("-", " "))
        Return Type_Param
    End Function
    ''' <summary>
    ''' 网络处理记录信息解析
    ''' </summary>
    ''' <param name="data_content"></param>
    ''' <returns></returns>
    Public Function Parsing_LogData_Net_COMM_Content(data_content As Byte(), ByRef Type_Param As List(Of String)) As List(Of String)

        Dim net_type As Byte = data_content(0)
        Dim net_port As UInt16
        Select Case net_type
            Case LNetComm.N_Recv
                Try
                    Type_Param.Add("网络接收记录")
                    Type_Param.Add($"套接字序号(1~4):{data_content(1)}")
                    Type_Param.Add($"接收IP:{data_content(2)}.{data_content(3)}.{data_content(4)}.{data_content(5)}")
                    net_port = data_content(7)
                    net_port <<= 8
                    net_port = net_port Or data_content(6)
                    Type_Param.Add($"接收端口Port:{net_port}")
                    Type_Param.Add("Data:" & BitConverter.ToString(data_content, 8).Replace("-", " "))
                    DataTypes.Check_Network_Data(data_content, Type_Param, True)
                Catch ex As Exception
                    Type_Param.Add("网络数据解析错误：" & BitConverter.ToString(data_content, 1).Replace("-", " "))
                End Try

            Case LNetComm.N_Send
                Try
                    Type_Param.Add("网络发送记录")
                    Type_Param.Add($"套接字序号(1~4):{data_content(1)}")
                    Type_Param.Add($"发送IP:{data_content(2)}.{data_content(3)}.{data_content(4)}.{data_content(5)}")
                    net_port = data_content(7)
                    net_port <<= 8
                    net_port = net_port Or data_content(6)
                    Type_Param.Add($"发送端口Port:{net_port}")
                    Type_Param.Add("Data:" & BitConverter.ToString(data_content, 8).Replace("-", " "))
                    DataTypes.Check_Network_Data(data_content, Type_Param, False)
                Catch ex As Exception
                    Console.WriteLine("网络数据解析错误：长度不够")
                    Type_Param.Add("网络数据解析错误：" & BitConverter.ToString(data_content, 1).Replace("-", " "))
                End Try
        End Select

        Return Type_Param
    End Function
    ''' <summary>
    ''' 事件处理记录信息解析
    ''' </summary>
    ''' <param name="data_content"></param>
    ''' <returns></returns>
    Public Function Parsing_LogData_Logic_Record_Content(data_content As Byte(), ByRef Type_Param As List(Of String)) As List(Of String)
        'Type_Param.Add("事件处理记录信息解析" & BitConverter.ToString(data_content).Replace("-", " "))
        Dim net_type As Byte = data_content(0)
        Select Case net_type
            Case Debugtype.log
                Type_Param.Add("调试日志")
                Type_Param.Add(Encoding.GetEncoding("GBK").GetString(data_content, 1, data_content.Length - 1)）

        End Select
        Return Type_Param
    End Function
    ''' <summary>
    ''' Launcher类型数据解析
    ''' </summary>
    ''' <param name="data_content"></param>
    ''' <returns></returns>
    Public Function Parsing_LogData_Launcher_Content(data_content As Byte(), ByRef Type_Param As List(Of String)) As List(Of String)

        Dim Launcher_type As Byte = data_content(0)
        Try
            Select Case Launcher_type
                Case LLauncher.App_Check
                    Type_Param.Add("校验APP")

                    If data_content(1) = &H0 Then
                        Type_Param.Add("相同")
                    ElseIf data_content(1) = &H1 Then
                        Type_Param.Add("APP版本号不同")
                    ElseIf data_content(1) = &H2 Then
                        Type_Param.Add("特征区CRC不同")
                    ElseIf data_content(1) = &H3 Then
                        Type_Param.Add("Flash APP地址错误")
                    ElseIf data_content(1) = &H4 Then
                        Type_Param.Add("Flash APP数据校验错误")
                    ElseIf data_content(1) = &H5 Then
                        Type_Param.Add("Flash APP标志未置位")
                    ElseIf data_content(1) = &H6 Then
                        Type_Param.Add("Flash 特征区的CRC校验错误")
                    ElseIf data_content(1) = &H7 Then
                        Type_Param.Add("MCU Flash数据校验错误")
                    ElseIf data_content(1) = &H8 Then
                        Type_Param.Add("MCU Flash的APP标志未置位")
                    ElseIf data_content(1) = &H9 Then
                        Type_Param.Add("MCU Flash特征区的CRC校验错误")
                    Else
                        Type_Param.Add("数据错误")
                    End If


                Case LLauncher.Read_App
                    Type_Param.Add("读取APP")
                    If data_content(1) = &H0 Then
                        Type_Param.Add("成功")
                    ElseIf data_content(1) = &H1 Then
                        Type_Param.Add("失败")
                    End If


                Case LLauncher.Reset_Source
                    Type_Param.Add("复位源")
                    If data_content(1) = &H0 Then
                        Type_Param.Add("软件复位")
                    ElseIf data_content(1) = &H1 Then
                        Type_Param.Add("上电复位")
                    ElseIf data_content(1) = &H2 Then
                        Type_Param.Add("看门狗超时复位")
                    ElseIf data_content(1) = &H3 Then
                        Type_Param.Add("外部手动复位")
                    ElseIf data_content(1) = &H5 Then
                        Type_Param.Add("从下电模式唤醒时的复位")
                    Else
                        Type_Param.Add($"复位源位置：{data_content(1):00}")
                    End If
                Case Else
                    Type_Param.Add("数据类型错误")
            End Select
        Catch ex As Exception
            AdminLog.ApplicationLog.WriteErrorLog(ex)
        End Try


        Return Type_Param
    End Function
    Public Function Get_Data_Time_Difference2(lastdata As LogDataInfoStruct, data As LogDataInfoStruct) As Int64
        Dim temp_tick As Int64 = 0
        Dim temp_time As New Log_DateStruct
        Dim temp_time2 As New Log_DateStruct
        If IsNothing(lastdata) Then Return temp_tick

        temp_time.year = data.Log_DateTime.year + 2000

        If data.Log_DateTime.month = 0 Then
            temp_time.month = data.Log_DateTime.month + 1
        Else
            temp_time.month = data.Log_DateTime.month
        End If

        If data.Log_DateTime.day = 0 Then
            temp_time.day = data.Log_DateTime.day + 1
        Else
            temp_time.day = data.Log_DateTime.day
        End If
        temp_time.hour = data.Log_DateTime.hour
        temp_time.minute = data.Log_DateTime.minute
        temp_time.second = data.Log_DateTime.second
        temp_time.milliscond = data.Log_DateTime.milliscond

        temp_time2.year = lastdata.Log_DateTime.year + 2000
        If lastdata.Log_DateTime.month = 0 Then
            temp_time2.month = lastdata.Log_DateTime.month + 1
        Else
            temp_time2.month = lastdata.Log_DateTime.month
        End If

        If lastdata.Log_DateTime.day = 0 Then
            temp_time2.day = lastdata.Log_DateTime.day + 1
        Else
            temp_time2.day = lastdata.Log_DateTime.day
        End If
        temp_time2.hour = lastdata.Log_DateTime.hour
        temp_time2.minute = lastdata.Log_DateTime.minute
        temp_time2.second = lastdata.Log_DateTime.second
        temp_time2.milliscond = lastdata.Log_DateTime.milliscond


        ' Try

        Dim temp_date1 As New DateTime(temp_time.year, temp_time.month, temp_time.day, temp_time.hour, temp_time.minute, temp_time.second)
        Dim temp_date2 As New DateTime(temp_time2.year, temp_time2.month, temp_time2.day, temp_time2.hour, temp_time2.minute, temp_time2.second)

        temp_tick = DateDiff(DateInterval.Second, temp_date2, temp_date1)       'temp_date1 - temp_date2
        temp_tick = temp_tick * 1000 + temp_time.milliscond - temp_time2.milliscond

        'Catch ex As Exception
        '    'ShowRichTextBox(RichTextBox1, " xxx 时间格式错误：tempDate1：" & tmpSn & "," & temp_time.year & "," & temp_time.month & "," & temp_time.day & "," & temp_time.hour & "," & temp_time.minute & "," & temp_time.second)
        '    'ShowRichTextBox(RichTextBox1, " xxx 时间格式错误：tempDate2：" & tmpSn & "," & temp_time2.year & "," & temp_time2.month & "," & temp_time2.day & "," & temp_time2.hour & "," & temp_time2.minute & "," & temp_time2.second)
        'End Try



        Return temp_tick
    End Function

    ''' 和校验取余数
    ''' 求Byte数组的和校验取余数
    ''' </summary>
    ''' <param name="dataPacket">Byte数组</param>
    ''' <returns></returns>
    Public Function GetSumCheckMod(dataPacket As Byte(), datalen As Byte) As Byte
        Dim sum As Integer
        For idx = 0 To datalen - 1
            sum += dataPacket(idx)
            sum = sum And &HFF
        Next
        Dim sumMod As Byte = &HFF - sum
        Return sumMod
    End Function
    '弃用
    Public Sub ParsingLog(Mac As String, starttime As Date， stoptime As Date)

        '获取ftp文件夹列表
        '筛选出符合时间的文件
        '线程解析对应文件
        '事务操作入库

    End Sub

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

            If dlg.ShowDialog <> DialogResult.OK Then Return

            Label1.Text = dlg.SelectedPath

        End Using

    End Sub



    Private Sub cbo_HotelList_DropDown(sender As Object, e As EventArgs)
        GetGetHotelList()
    End Sub


    Private Function GetRoomMAC() As List(Of String)
        Dim result As List(Of String) = New List(Of String)()
        If Roomlist.ContainsKey(cbo_HotelList.Text) Then
            Dim strbuf() As String = cbo_HotelList.Text.Split("|")
            Dim jsonString As String = HttpMothod.PostData("http://blv-rd.tech:19055/api/LowerMachineLog/GetHostList"， $"hotel_code={strbuf(0)}&createDate={Roomlist.Item(cbo_HotelList.Text) }")
            If String.IsNullOrWhiteSpace(jsonString) Then Throw New Exception($"用户鉴权异常，请联系管理员")

            Dim login As LoginReturn1 = JsonConvert.DeserializeObject(Of LoginReturn1)(jsonString)
            If login Is Nothing Then Throw New Exception($"解析用户权限错误!")

            If login.isok Then
                For Each item In login.response
                    If String.IsNullOrEmpty(item.mac) Then Continue For
                    result.Add($"{item.roomno}|{item.mac.Replace("-", "")}|{item.roomtypeid}")
                Next
            Else
                MsgBox("API获取酒店项目失败！")
                Return result
            End If
            Return result
        Else
            MsgBox("请先选择酒店！")
            Return result
        End If

    End Function

    Private Sub ComboBox2_DragDrop(sender As Object, e As EventArgs) Handles ComboBox2.DropDown
        'GetRoomMAC()
        ComboBox2.Items.Clear()
        ComboBox2.Items.AddRange(GetRoomMAC().ToArray)
    End Sub

    Private Sub ComboBox2_TextChanged(sender As Object, e As EventArgs) Handles ComboBox2.TextChanged
        Dim strbuf() As String = ComboBox2.Text.Split("|")
        Dim strbuf1() As String = cbo_HotelList.Text.Split("|")
        Grid_config.Cell(3, 2).Text = strbuf(1).Substring(4)
        '获取数据指定房型配置的无卡取电回路别名
        Dim GdbConnStr = "Server=blv-cloud-db.mysql.rds.aliyuncs.com;Port=3307;Database=blv_rcu_db;Uid=blv_rcu;Pwd=fnadiaJDIJ7546;charset=utf8;"
        Dim wherestsre As String = $"{strbuf1(0)}_{strbuf(2)}"
        Dim selectstr As String = $"SELECT *
FROM `blv_rcu_db`.`tbl_rcu_virtualcard_looplogs`
where Combination_ID='{wherestsre}' "
        Dim dt As DataTable
        Try
            Using db As New DbExecutor(DbExecutor.DbTypeEnum.Mysql, GdbConnStr)
                db.Open()
                dt = db.ExecuteDataTable(selectstr)
                If IsNothing(dt) OrElse dt.Rows.Count = 0 OrElse dt.Columns.Count = 0 Then
                    'MsgBox($"数据查询失败！！！{vbCrLf }原因:{vbCrLf }数据查询语句异常:{selectstr}")
                Else
                    g_Macconfig.Item2.Clear()
                    g_Macconfig.Item1 = Grid_config.Cell(3, 2).Text
                    For i = 0 To dt.Rows.Count - 1
                        For j = 0 To dt.Columns.Count - 1
                            '获取列名和对应键值
                            g_Macconfig.Item2.Add(dt.Columns(j).ColumnName, dt(i)(j).ToString)
                        Next
                    Next



                End If
                db.Close()

            End Using
        Catch ex As Exception

            ' MsgBox($"数据查询失败！！！{vbCrLf }原因:{vbCrLf }{ex.Message }")
            Return
        End Try


        'g_Macconfig
    End Sub

    Private Sub ToolStripButton8_Click(sender As Object, e As EventArgs) Handles ToolStripButton8.Click
        'If String.IsNullOrEmpty(Label1.Text) Then
        '    MsgBox("未选择日志目录")
        '    Return
        'End If
        'If Not IO.Directory.Exists(Label1.Text) Then
        '    MsgBox("日志目录不存在")
        '    Return
        'End If

        Dim filrpath As String = Grid_config.Cell(3, 2).Text.Trim
        'If String.IsNullOrEmpty(filrpath) Then
        '    MsgBox("目标机型为空")
        '    Return
        'End If
        'Dim mubdir As String = $"{Label1.Text}\{filrpath}"
        'If Not IO.Directory.Exists(mubdir) Then
        '    MsgBox("目标机型目录不存在")
        '    Return
        'End If
        If IO.Directory.Exists($"{Label1.Text}\ParsingLog\{filrpath}\") Then
            Dim filename() As String = IO.Directory.GetFiles($"{Label1.Text}\ParsingLog\{filrpath}\")
            For i = 0 To filename.Length - 1
                Dim node As String = filename（i）
                Dim index As String = node.Substring(node.LastIndexOf("\") + 1)
                If index.Contains(".dat") Then
                    Try
                        IO.File.Copy($"{Label1.Text}\ParsingLog\{filrpath}\{index}", $"{Label1.Text}\{filrpath}\{index}")
                    Catch ex As Exception
                        Continue For
                    End Try
                End If


            Next

        End If
        If IO.File.Exists($"{Label1.Text}\ParsingLog\{filrpath}\Tftp_Log.db") Then
            IO.File.Delete($"{Label1.Text}\ParsingLog\{filrpath}\Tftp_Log.db")
            'Return
        End If
        ToolStripButton6_Click(Nothing, Nothing)
        'If MsgBox("清空数据库将丢失更早之前解析的数据！", MsgBoxStyle.SystemModal.OkCancel) = MsgBoxResult.Ok Then
        '    IO.File.Delete($"{Label1.Text}\ParsingLog\{filrpath}\Tftp_Log.db")
        'End If
    End Sub



    Private Sub TreeView1_NodeMouseDoubleClick(sender As Object, e As TreeNodeMouseClickEventArgs) Handles TreeView1.NodeMouseDoubleClick
        'Console.WriteLine(e.Node.Level)
        If e.Node.Level <> 2 OrElse IsNothing(_curTool) Then Return

        Dim text() As String = e.Node.Text.Split("|")
        Dim dt As DateTime = DateTime.ParseExact(text(0), "yyyy-MM-dd HH:mm:ss", Nothing)
        _curTool.XValue = dt.ToOADate
    End Sub
End Class