Imports System.IO
Imports BLV_Studio.UTSModule

Public Class UpdataDevMode
    Public DbConnString As String = "Server=blv-cloud-db.mysql.rds.aliyuncs.com;Port=3307;Database=blv_rcu_db;Uid=blv_rcu;Pwd=fnadiaJDIJ7546;charset=utf8;"
    Public Author As String

    Private Sub UpdataDevMode_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        UploadFileList = New Dictionary(Of String, String)

        InitGrid()

        InitGrid2()

    End Sub
    Public Sub InitGrid()
        Grid1.Rows = 1
        Grid1.Cols = 5
        Grid1.DisplayRowNumber = True
        Grid1.ExtendLastCol = True
        For i = 0 To 4
            Select Case i
                Case 0
                    Grid1.Cell(0, i).Text = "ID"
                Case 1
                    Grid1.Cell(0, i).Text = "Name"
                Case 2
                    Grid1.Cell(0, i).Text = "MD5"
                Case 3
                    Grid1.Cell(0, i).Text = "Size"
                Case 4
                    Grid1.Cell(0, i).Text = "PATH"
            End Select

            Grid1.Column(i).Locked = True
        Next



    End Sub
    Public rmodedevtablenode As Dictionary(Of String, modedevtablenode)
    Public Sub InitGrid2()
        Grid2.Rows = 1
        Grid2.Cols = 5
        Grid2.DisplayRowNumber = True
        Grid2.ExtendLastCol = True
        For i = 0 To 4
            Select Case i
                Case 0
                    Grid2.Cell(0, i).Text = "ID"
                Case 1
                    Grid2.Cell(0, i).Text = "UPdataTime"
                Case 2
                    Grid2.Cell(0, i).Text = "Name"

                Case 3
                    Grid2.Cell(0, i).Text = "MD5"
                Case 4
                    Grid2.Cell(0, i).Text = "PATH"
                   ' Grid2.Cell(0, i).Text = "Size"
                Case 5

            End Select

            Grid2.Column(i).Locked = True
        Next
        rmodedevtablenode = GetServerFile()
        For Each item In rmodedevtablenode
            Grid2.AddItem("")
            Grid2.Cell(Grid2.Rows - 1, 1).Text = item.Value.UploadDateTime
            Grid2.Cell(Grid2.Rows - 1, 4).Text = item.Value.Directory
            Grid2.Cell(Grid2.Rows - 1, 3).Text = item.Value.XLM_MD5
            Grid2.Cell(Grid2.Rows - 1, 2).Text = item.Value.XML_FileName

        Next

    End Sub


    Public Function GetServerFile()
        Dim result As New Dictionary(Of String, modedevtablenode)
        Dim selectstr As String = $"SELECT  * FROM `blv_rcu_db`.`tbl_model_file_data`  ORDER BY `MFD_ID` DESC"
        'Dim delete As String = $"DELETE FROM {tablename} WHERE HotelID ='{HotelID}' and RoomID='{RoomID}'"
        Dim dt As DataTable
        Dim mdtn As modedevtablenode
        Using db As New DbExecutor(DbExecutor.DbTypeEnum.Mysql, DbConnString)
            db.Open()
            Try
                dt = db.ExecuteDataTable(selectstr)
                If IsNothing(dt) Then Return result
                For i As Integer = 0 To dt.Rows.Count - 1
                    mdtn = New modedevtablenode
                    mdtn.MFD_ID = dt(i)("MFD_ID")
                    mdtn.Available = dt(i)("Available")
                    'mdtn.Brand = dt(i)("Brand")
                    'mdtn.ModelNo = dt(i)("ModelNo")
                    'mdtn.ModelName = dt(i)("ModelName")
                    'mdtn.Description = dt(i)("Description")
                    'mdtn.Image = dt(i)("Image")
                    mdtn.Directory = dt(i)("Directory")
                    mdtn.XML_FileName = dt(i)("XML_FileName")
                    'mdtn.DAT_FileName = dt(i)("DAT_FileName")
                    'mdtn.Version = dt(i)("Version")
                    mdtn.UploadDateTime = dt(i)("UploadDateTime")
                    '判读Author 是否为dbnull
                    If IsDBNull(dt(i)("Author")) Then
                        mdtn.Author = ""
                    Else
                        mdtn.Author = dt(i)("Author")
                    End If

                    mdtn.XLM_MD5 = dt(i)("XLM_MD5")
                    'mdtn.DAT_MD5 = dt(i)("DAT_MD5")
                    'mdtn.PartNumber = dt(i)("PartNumber")
                    'mdtn.Remark = dt(i)("Remark")
                    result.Add($"{dt(i)("XML_FileName")}", mdtn)
                Next
                db.Close()
            Catch ex As Exception
                db.Close()
            End Try

        End Using
        Return result
    End Function

    Public Function deleteServerFile(XML_FileName As String) As Boolean
        Dim result As Boolean = False
        Dim selectstr As String = $"DELETE FROM `blv_rcu_db`.`tbl_model_file_data` where XML_FileName='{XML_FileName}' "
        'Dim delete As String = $"DELETE FROM {tablename} WHERE HotelID ='{HotelID}' and RoomID='{RoomID}'"
        Dim dt As Integer = 0
        Dim mdtn As modedevtablenode
        Using db As New DbExecutor(DbExecutor.DbTypeEnum.Mysql, DbConnString)
            db.Open()
            Try
                dt = db.ExecuteNonQuery(selectstr)
                If IsNothing(dt) OrElse dt = 0 Then Return result
                result = True
                db.Close()
            Catch ex As Exception
                db.Close()
            End Try

        End Using
        Return result
    End Function

    Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles ToolStripButton6.Click
        '获取Grid1选中的行
        Dim selectedRow As Integer = Grid1.ActiveCell.Row
        '获取选中的文件名称
        Dim selectedFileName As String = Grid1.Cell(selectedRow, 1).Text
        '判断是否选中了有效行
        If selectedRow > 0 Then
            '删除Grid1选中行(selectedRow)
            Grid1.RemoveItem(selectedRow)
            '判断文件在不在键值对
            If UploadFileList.ContainsKey(selectedFileName) Then
                '删除键值对
                UploadFileList.Remove(selectedFileName)
            End If
        End If
    End Sub

    '待上传文件列表变量
    Public UploadFileList As Dictionary(Of String, String)


    Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click
        '打开文件选择器 设置打开的路径为根目录下BLV_Studio\Data\Model
        Dim OpenFileDialog1 As New OpenFileDialog()
        OpenFileDialog1.Filter = "XML Files (*.xml)|*.xml"
        OpenFileDialog1.InitialDirectory = Application.StartupPath & "\Data\Model"
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            '将选中的文件名和文件路径填充键值对
            If rmodedevtablenode.ContainsKey(OpenFileDialog1.SafeFileName) Then
                MsgBox("服务器已存在该文件！")
                Return
            End If
            If UploadFileList.ContainsKey(OpenFileDialog1.SafeFileName) Then
                MsgBox("文件已存在")
            Else
                '将选中的文件名和文件路径填充键值对
                UploadFileList.Add(OpenFileDialog1.SafeFileName, OpenFileDialog1.FileName)

            End If
        End If

        'Case 0
        'Grid1.Cell(0, i).Text = "ID"
        'Case 1
        'Grid1.Cell(0, i).Text = "Name"
        'Case 2
        'Grid1.Cell(0, i).Text = "MD5"
        'Case 3
        'Grid1.Cell(0, i).Text = "Size"
        'Case 4
        'Grid1.Cell(0, i).Text = "PATH"
        Dim xmlmd5 As String
        Dim fileInfo As FileInfo
        Dim fileSize As Long
        Grid1.Rows = 1
        For Each item In UploadFileList
            Grid1.AddItem("")
            Grid1.Cell(Grid1.Rows - 1, 1).Text = item.Key
            xmlmd5 = GetStringMd5(item.Value)
            Grid1.Cell(Grid1.Rows - 1, 2).Text = xmlmd5
            '获取文件大小
            fileInfo = New FileInfo(item.Value)
            fileSize = fileInfo.Length
            Grid1.Cell(Grid1.Rows - 1, 3).Text = fileSize
            Grid1.Cell(Grid1.Rows - 1, 4).Text = item.Value
        Next

    End Sub



    Private Sub UpdataDevMode_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
        Me.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.Close()
        Return
    End Sub

    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
        If String.IsNullOrEmpty(ToolStripComboBox1.Text) Then
            MsgBox("请选择上传的文件类型！")
            Return
        End If
        If UploadFileList.Count = 0 Then
            MsgBox("请选择上传的文件！")
            Return
        End If
        Dim strInputMsg As String = InputBox("请输入上传设备模型密码", "密码确认")

        If strInputMsg <> "Cc2022OK" Then Return

        '遍历UploadFileList
        Dim serverpath = $"\Data\Model\{ToolStripComboBox1.Text}"
        Dim tmp_FTP_Xml_FullName As String = ""
        Dim sqlstr As String = ""
        Dim insertstr As String = ""
        Dim dt As Integer = 0
        For Each item In UploadFileList
            tmp_FTP_Xml_FullName = serverpath & "\" & item.Key
            If UtsFtp.CreateObject.FtpUploadBlv(tmp_FTP_Xml_FullName, item.Value) = 1 Then
                '插入一条数据库记录
                insertstr = getInsertStr(serverpath, item.Key, item.Value)

                Using db As New DbExecutor(DbExecutor.DbTypeEnum.Mysql, DbConnString)
                    db.Open()
                    Try
                        dt = db.ExecuteNonQuery(insertstr)
                        db.Close()
                    Catch ex As Exception
                        db.Close()
                    End Try
                End Using

            Else
                MsgBox("上传文件错误！")
                Return
            End If
        Next
        MsgBox("上传完成！")
        UpdataDevMode_Load(Nothing， Nothing)
    End Sub
    '生成插入一条数据库记录函数
    Public Function getInsertStr(serverpath As String, filename As String， filepath As String)
        Dim md5 As String = GetStringMd5(filepath)
        Dim result As String = $"INSERT INTO `blv_rcu_db`.`tbl_model_file_data`
		(`Available`		
		,`Directory`
		,`XML_FileName`
		,`UploadDateTime`
		,`Author`
		,`XLM_MD5`
		,`Remark`)
	    VALUES
		(1,'{serverpath.Replace("\", "\\")}','{filename}','{Now}','{Author}','{md5}','配置上传~')"

        Return result

    End Function


    Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click

        Dim strInputMsg As String = InputBox("请输入删除设备模型密码", "密码确认")

        If strInputMsg <> "Cc2022OK" Then Return


        '获取Gri2的选择文件名
        Dim selectedRow As Integer = Grid2.ActiveCell.Row
        Dim selectedFileName As String = Grid2.Cell(selectedRow, 2).Text
        '判断是否选中了有效行
        If selectedRow > 0 Then

            If deleteServerFile(selectedFileName) Then
                '删除Grid2选中行(selectedRow)
                Grid2.RemoveItem(selectedRow)
                '判断文件在不在键值对
                If rmodedevtablenode.ContainsKey(selectedFileName) Then
                    '删除键值对 
                    rmodedevtablenode.Remove(selectedFileName)
                End If
            Else
                MsgBox("删除失败！")
            End If

        End If

    End Sub
End Class
Public Class modedevtablenode
    Public MFD_ID As Integer
    Public Available As String
    Public Brand As String
    Public ModelNo As String
    Public ModelName As String
    Public Description As String
    Public Image As String
    Public Directory As String
    Public XML_FileName As String
    Public DAT_FileName As String
    Public Version As String
    Public UploadDateTime As String
    Public Author As String
    Public XLM_MD5 As String
    Public DAT_MD5 As String
    Public PartNumber As String
    Public Remark As String


End Class