Imports System.IO
Imports System.Security.Cryptography

Public Class HotelConfigurationLogic
    Public InsertFirmware As New Dictionary(Of String, String）
    Public InsertFirmwareV4 As New Dictionary(Of String, String）
    Private _dicPojer As Dictionary(Of String, String)
    Private _dicRoonType As Dictionary(Of String, String)

    Public FileName As String
    Public SafeFileName As String
    Public FileNameV4 As String
    Public SafeFileNameV4 As String

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        SetAPP_FOR_Codev（False）
        'SetLauncher_cbointem(Launcher_cbo, "tbl_luncher_list", "Luncher_Name")
        DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
        DataGridView2.SelectionMode = DataGridViewSelectionMode.FullRowSelect
    End Sub
    Public Function SetLauncher_cbointem(cbo As ComboBox, tabname As String, clunm As String, Optional col As String = "", Optional hotel As Integer = 0) As Dictionary(Of String, String)
        cbo.Items.Clear()
        Dim udt As DataTable
        Dim dickey As String = ""
        Dim dicval As String = ""
        Dim dic As New Dictionary(Of String, String)
        Using db As New DbExecutor(DbExecutor.DbTypeEnum.Mysql, FrmMain.DbConnString)
            db.Open()
            If hotel <> 0 Then
                udt = db.ExecuteDataTable(db.CmdHelper.SearchAll(tabname, $"`HOTEL_OLD_ID`='{hotel}'"))
            Else
                udt = db.ExecuteDataTable(db.CmdHelper.SearchAll(tabname))
            End If

            db.Close()
        End Using

        If IsNothing(udt) Then
            Return Nothing
        Else
            For Each dtrow As DataRow In udt.Rows

                For i As Integer = 0 To udt.Columns.Count - 1

                    If udt.Columns(i).ColumnName.Equals(clunm) Then

                        dickey = dtrow.Item(i).ToString
                    ElseIf udt.Columns(i).ColumnName.Equals(col) Then
                        dicval = dtrow.Item(i).ToString
                    Else
                        Continue For
                    End If

                Next
                If String.IsNullOrWhiteSpace(dicval) Then
                    dickey = dickey
                Else
                    dickey = dicval & "_" & dickey
                End If

                If dic.ContainsKey(dickey) Then
                    Continue For
                End If
                dic.Add(dickey, dicval)

            Next
            cbo.Items.AddRange(dic.Keys.ToArray)
        End If
        Return dic
    End Function


    Private Sub ComboBox1_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles Firmware_cbo.SelectionChangeCommitted
        If Firmware_cbo.SelectedItem.Equals("APP_FOR_Code") Then
            SetAPP_FOR_Codev(True)
            SetLauncher_cbointem(ApplicableModels_cbo, "tbl_rcu_model_list", "RCU_Model_Name")
            _dicPojer = SetLauncher_cbointem(FirmwarePojer_cbo, "tbl_hotel_basic_info", "HOTEL_NAME_CN", "IDOLD")

            DataGridView1.Rows.Clear()
            For Each hot In _dicPojer
                DataGridView1.Rows.Add(hot.Key)
            Next
        End If
    End Sub

    Public Sub SetAPP_FOR_Codev(flag As Boolean)
        ApplicableModels_cbo.Enabled = flag
        FirmwarePojer_cbo.Enabled = flag
        FirmwareHouseType_cbo.Enabled = flag
        Search_txt.Enabled = flag
        Search_btn.Enabled = flag
        DataGridView1.Enabled = flag
        DataGridView2.Enabled = flag
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Ok_btn.Click
        InsertFirmware.Clear()
        InsertFirmwareV4.Clear()
        If Not Firmware_cbo.Text.Length > 0 Then
            MsgBox("未选择上传固件类型")
            InsertFirmware.Clear()
            Return

        End If
        If Not FirmwarePath_txt.Text.Length > 0 Then
            MsgBox("未选择上传固件")
            Return

        End If
        If Not FirmwarePathV4_txt.Text.Length > 0 Then
            MsgBox("未选择上传固件")
            Return
        End If
        If Not FirmwareVer_txt.Text.Length > 0 Then
            MsgBox("未输入上传固件版本")
            Return

        End If
        '  If Not FirmwareV4_txt.Text.Length > 0 Then
        '    MsgBox("未输入上传固件版本")
        '    Return

        'End If
        'If Not Launcher_cbo.Text.Length > 0 Then
        '    MsgBox("未选择上传固件Launcher")
        '    Return

        'End If
        If Firmware_cbo.SelectedItem.Equals("APP_FOR_Code") Then
            If Not ApplicableModels_cbo.Text.Length > 0 Then
                MsgBox("未选择固件适用机型")
                Return
            Else
                InsertFirmware.Add("AppForModel", ApplicableModels_cbo.Text)
            End If

            If Not DataGridView2.SelectedRows.Item(0).Cells(0).Value.Length > 0 Then
                MsgBox("未选择固件适用项目")
                Return
            Else
                'If _dicPojer.ContainsKey(FirmwarePojer_cbo.SelectedItem.ToString) Then
                '    Dim clunm As String = _dicPojer.Item(FirmwarePojer_cbo.SelectedItem.ToString)
                '    InsertFirmware.Add("HOTEL_ID", clunm)
                'End If
                If _dicPojer.ContainsKey(DataGridView1.SelectedRows.Item(0).Cells(0).Value) Then
                    Dim clunm As String = _dicPojer.Item(DataGridView1.SelectedRows.Item(0).Cells(0).Value)
                    InsertFirmware.Add("HOTEL_ID", clunm)
                End If

            End If

            If Not DataGridView2.SelectedRows.Item(0).Cells(0).Value.Length > 0 Then
                MsgBox("未选择固件适用户型")
                Return
            Else
                If _dicPojer.ContainsKey(DataGridView2.SelectedRows.Item(0).Cells(0).Value) Then
                    Dim clunm As String = _dicPojer.Item(DataGridView2.SelectedRows.Item(0).Cells(0).Value)
                    InsertFirmware.Add("ROOM_TYPE_ID", clunm)
                End If

            End If
        End If

        If Not Remark_txt.Text.Length > 0 Then
            MsgBox("未填写上传固件说明：")
            Return

        End If

        Dim filepath As String = FirmwarePath_txt.Text
        Dim filepathV4 As String = FirmwarePathV4_txt.Text
        Dim md5 As String = GetStringMd5(filepath)
        Dim v4md5 As String = GetStringMd5(filepathV4)
        Dim filename As String = filepath.Substring(filepath.LastIndexOf("\") + 1)
        Dim filenameV4 As String = filepathV4.Substring(filepathV4.LastIndexOf("\") + 1)
        InsertFirmware.Add("AppType", Firmware_cbo.Text)
        InsertFirmware.Add("FileName", filename)
        InsertFirmware.Add("MD5Val", md5)
        InsertFirmware.Add("Ver", FirmwareVer_txt.Text)
        'InsertFirmware.Add("Luncher_Ver", Launcher_cbo.Text)
        InsertFirmware.Add("Remark", Remark_txt.Text)
        InsertFirmware.Add("DateTime", Now.ToString("yyyy-MM-dd HH:mm:ss.fff"))
        InsertFirmware.Add("FilePath", "\Data\Firmware\".Replace("\", "\\"))
        InsertFirmware.Add("IsValid", "1")

        For Each index In InsertFirmware
            InsertFirmwareV4.Add (index.Key,index .Value )
        Next
        
        InsertFirmwareV4.Item("FileName") = filenameV4
        InsertFirmwareV4.Item("MD5Val") = v4md5
        'InsertFirmwarev4.Item("Ver")= FirmwareV4_txt.Text

        Me.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.Close()
        Return

    End Sub


    Public Function GetStringMd5(filePath As String) As String
        Dim dataFile() As Byte = File.ReadAllBytes(filePath)
        Dim databuff As Byte() = MD5.Create().ComputeHash(dataFile)
        Dim MD5str As String = BitConverter.ToString(databuff)
        ' Console.WriteLine($"md5-1:{MD5str}")
        Return MD5str.Replace("-", "")
    End Function

    Private Sub No_btn_Click(sender As Object, e As EventArgs) Handles No_btn.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Return
    End Sub

    Private Sub SelectFile_btn_Click(sender As Object, e As EventArgs) Handles SelectFile_btn.Click
        Dim openFileDialog As New OpenFileDialog
        openFileDialog.InitialDirectory = Application.StartupPath
        openFileDialog.RestoreDirectory = True
        openFileDialog.Title = "选择上传固件"
        openFileDialog.Filter = $"配置文件(*.hex)|*.hex"
        If openFileDialog.ShowDialog() = DialogResult.OK Then
            FirmwarePath_txt.Text = openFileDialog.FileName
            FileName = openFileDialog.FileName
            SafeFileName = openFileDialog.SafeFileName
        End If


    End Sub

    Private Sub FirmwarePojer_cbo_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles FirmwarePojer_cbo.SelectionChangeCommitted

        If _dicPojer.ContainsKey(FirmwarePojer_cbo.SelectedItem.ToString) Then
            Dim clunm As String = _dicPojer.Item(FirmwarePojer_cbo.SelectedItem.ToString)
            _dicRoonType = SetLauncher_cbointem(FirmwareHouseType_cbo, "tbl_room_type_list", "ROOM_TYPE_NAME", "ROOM_TYPE_ID", clunm)


        End If

    End Sub

    Private Sub Search_btn_Click(sender As Object, e As EventArgs) Handles Search_btn.Click

        Dim txt As String = Search_txt.Text

        'Dim query = From name As String In FirmwarePojer_cbo.Items
        '            Order By name.Contains(txt) Descending
        '            Select name
        Dim query = From name As String In FirmwarePojer_cbo.Items
                    Where name.Contains(txt) = True
                    Select name
        'FirmwarePojer_cbo.Items.Clear
        '        for Each s In query
        '            Console.WriteLine($"排序:{s}")
        '        Next
        Dim li As New List(Of String）
        li.AddRange(query.ToArray)
        DataGridView2.Rows.Clear()
        DataGridView1.Rows.Clear()
        For Each hot In query
            DataGridView1.Rows.Add(hot)
        Next

        'FirmwarePojer_cbo.Items.Clear()
        'FirmwarePojer_cbo.Items.AddRange(li.ToArray)


        'dim source As ParallelQuery=query 
        'FirmwarePojer_cbo.Items . .AsOrdered (source)

    End Sub

    Public Shared Sub Demo()

        Dim names As New List(Of String) From {"Zhao", "Qian", "Sun", "Li"}
        Dim result = From name In names Where name.Contains("a"c) Select name

        Console.WriteLine($"result:{String.Join(",", result.ToArray) }")

        names.AddRange({"Zhou", "Wu", "Zhen", "Wang"})
        Console.WriteLine($"result:{String.Join(",", result.ToArray) }")
    End Sub

    Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick

        If _dicPojer.ContainsKey(DataGridView1.SelectedRows.Item(0).Cells(0).Value) Then
            Dim clunm As String = _dicPojer.Item(DataGridView1.SelectedRows.Item(0).Cells(0).Value)
            _dicRoonType = SetLauncher_cbointem(FirmwareHouseType_cbo, "tbl_room_type_list", "ROOM_TYPE_NAME", "ROOM_TYPE_ID", clunm)
            DataGridView2.Rows.Clear()
            For Each hot In _dicRoonType
                DataGridView2.Rows.Add(hot.Key)
            Next
        End If
    End Sub

    Private Sub DataGridView2_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView2.CellClick

    End Sub

    Private Sub SelectFileV4_btn_Click(sender As Object, e As EventArgs) Handles SelectFileV4_btn.Click
        Dim openFileDialog As New OpenFileDialog
        openFileDialog.InitialDirectory = Application.StartupPath
        openFileDialog.RestoreDirectory = True
        openFileDialog.Title = "选择上传固件"
        openFileDialog.Filter = $"配置文件(*.hex)|*.hex"
        If openFileDialog.ShowDialog() = DialogResult.OK Then
            FirmwarePathV4_txt.Text = openFileDialog.FileName
            FileNameV4 = openFileDialog.FileName
            SafeFileNameV4 = openFileDialog.SafeFileName
        End If


    End Sub
End Class