初始化

BLV_Studio/FrmMain - 副本.vb

@@ -0,0 +1,891 @@
+Imports BLV_Studio.GridModel
+Imports BLV_Studio.UTSModule
+Imports FlexCell
+
+
+Public Class FrmMain
+    ''' <summary>
+    ''' 项目信息
+    ''' </summary>
+    Private _project As ProjectInfo
+
+    ''' <summary>
+    ''' 模型表格
+    ''' </summary>
+    Private _grdModel As GridModel.DeviceEventModel
+
+    ''' <summary>
+    ''' 账号
+    ''' </summary>
+    Public Property Account As String
+
+    ''' <summary>
+    ''' 账号权限
+    ''' </summary>
+    Public Property AccountAuth As AccountAuth
+
+    ''' <summary>
+    ''' 基类信息
+    ''' </summary>
+    Private _basicClass As DeviceObjectClasses
+
+    ''' <summary>
+    ''' 当前编辑的酒店房型 node index，等同于在 _project.RoomType list列表中的位置
+    ''' </summary>
+    Private g_CurrentTreeNodeRoomTypeItemIndex As Integer = 0
+
+    ''' <summary>
+    ''' 根据酒店组+酒店ID+酒店名称 确定XML文件存放目录
+    ''' </summary>
+    Public g_Xml_FullPath_BaseedOnTempFolder As String
+
+    ''' <summary>
+    ''' XML 临时文件文件名
+    ''' </summary>
+    Public g_Xml_FullName As String '当前编辑中的文件名含完整路径
+    Public g_Xml_Name As String '当前编辑中的文件名，不含路径
+    Public g_Xml_FilePath As String '当前编辑中的文件路径
+    Public g_Last_Edit_Xml_FileName As String '上次关闭程序前编辑的文件名，下次打开程序后恢复该文件
+
+    Public DBconnString As String = "Data Source=blv-oa.com;Initial Catalog=BLV_RCU_DB;User ID=sa;Password=9S844fK3;Integrated Security=false"
+
+
+    '项目视图 true = 显示’
+    Public g_IsProjectTreeView_Visable = False
+
+    Public Enum EnumTreeLevel
+        HotelName = 0
+        RoomType
+        RCU
+        Device
+    End Enum
+
+
+    Private Sub FrmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
+        AddHandler AppDomain.CurrentDomain.UnhandledException, Sub(s As Object, arg As UnhandledExceptionEventArgs)
+                                                                   Dim ex As Exception = CType(arg.ExceptionObject, Exception)
+                                                                   AppLog.WriteFatalLog($"{Application.ProductName} {Application.ProductVersion}未处理异常，{ex}")
+                                                                   MsgBox($"{Application.ProductName} {Application.ProductVersion}未处理异常，{ex}")
+                                                               End Sub
+
+        AddHandler Application.ThreadException, Sub(s As Object, arg As System.Threading.ThreadExceptionEventArgs)
+                                                    AppLog.WriteFatalLog($"{Application.ProductName} {Application.ProductVersion}线程异常，{arg.Exception}")
+                                                    MsgBox($"{Application.ProductName} {Application.ProductVersion}线程异常，{arg.Exception}")
+                                                End Sub
+
+        '读取项目信息
+        _project = New ProjectInfo
+
+        Dim tmpResult As Boolean = LoadSettings()
+        If tmpResult = False Then
+            MsgBox("开始工作前请选择酒店项目！")
+        End If
+
+        If String.IsNullOrEmpty(_project.HotelCode) = False Then
+            '读取房型
+            Dim RoomTypes As List(Of RoomType) = GetRoomType(_project.HotelIndex)
+
+            '填充酒店节点
+            FillTreeView(_project.HotelName, RoomTypes)
+        End If
+
+        '读取基类信息
+        _basicClass = XmlSerializer.DeserializeFormXml(Of DeviceObjectClasses)($"{Application.StartupPath}\xml\DeviceObjectClass.Xml")
+
+        '初始化模型表格
+        _grdModel = New GridModel.DeviceEventModel
+        If _grdModel.Grid Is Nothing Then _grdModel.Grid = GrdEvent
+        If _grdModel.BasicClasses Is Nothing Then _grdModel.BasicClasses = _basicClass
+        AddHandler _grdModel.TipChanged, AddressOf EventGridTipChanged
+
+        UpdateHotelAndRoomtypeLab_text()
+
+        '生成文件夹
+        CreateXmlPath()
+
+        '恢复上次编辑的文件
+        g_Xml_FullName = g_Last_Edit_Xml_FileName
+
+        If Not String.IsNullOrEmpty(g_Xml_FullName) Then
+            If FileExist(g_Xml_FullName) Then
+                If _grdModel.Load(g_Xml_FullName) = False Then g_Xml_FullName = ""
+            Else
+                g_Xml_FullName = ""
+            End If
+        Else
+            g_Xml_FullName = ""
+        End If
+
+        UpdateWindowTitle()
+    End Sub
+
+
+    Private Sub TsmiChangeUser_Click(sender As Object, e As EventArgs) Handles TsmiChangeUser.Click
+        Dim frm As New FrmLogin
+        frm.Show()
+        Me.Close()
+    End Sub
+
+    Private Sub TsmiQuit_Click(sender As Object, e As EventArgs) Handles TsmiQuit.Click
+        Me.Close()
+    End Sub
+
+    Private Sub TsBtnChangeProject_Click(sender As Object, e As EventArgs) Handles TsBtnChangeProject.Click
+        Using frmHotel As New FrmChangeHotel
+            frmHotel.VerderIndex = _project.VerderIndex
+            frmHotel.VerderName = _project.VerdorName
+            frmHotel.HotelIndex = _project.HotelIndex
+            frmHotel.HotelName = _project.HotelName
+            frmHotel.HotelCode = _project.HotelCode
+            frmHotel.AccountAuth = AccountAuth
+
+            If frmHotel.ShowDialog() <> DialogResult.OK Then Return
+
+            _project.VerderIndex = frmHotel.VerderIndex
+            _project.VerdorName = frmHotel.VerderName
+            _project.HotelIndex = frmHotel.HotelIndex
+            _project.HotelName = frmHotel.HotelName
+            _project.HotelCode = frmHotel.HotelCode
+
+            '读取房型
+            Dim roomtypes As List(Of RoomType) = GetRoomType(_project.HotelIndex)
+
+            '填充酒店节点
+            FillTreeView(_project.HotelName, roomtypes)
+
+            '更新右上角项目和房型标签显示内容
+            g_CurrentTreeNodeRoomTypeItemIndex = 0
+            UpdateHotelAndRoomtypeLab_text()
+
+            ''Momo 2022-04-03 创建FTP文件夹’
+            'CreateXmlPath()
+
+        End Using
+    End Sub
+
+    Private Sub FillTreeView(hotel As String, RoomTypes As List(Of RoomType))
+        TvwMain.Nodes.Clear()
+        TvwMain.ItemHeight = 21
+        TvwMain.CheckBoxes = False
+        TvwMain.HideSelection = True
+        TvwMain.SelectedImageKey = TvwMain.ImageKey
+
+        Dim pNode As TreeNode = TvwMain.Nodes.Add(hotel)
+        pNode.ForeColor = Color.DarkGreen
+        pNode.NodeFont = New Font("宋体", 10, FontStyle.Bold)
+        pNode.ImageKey = "09664.ico"
+        pNode.SelectedImageKey = "09664.ico"
+
+
+        Dim i As Integer = 0
+        Dim tmpRoomType As New ProjectInfo.StrutRoomType
+        Dim retryCnt As Integer
+
+        _project.ReDim_RoomType(RoomTypes.Count)
+
+        For Each room_type As RoomType In RoomTypes
+            retryCnt = 0
+            Dim typeNode As TreeNode = pNode.Nodes.Add(room_type.RoomType)
+            typeNode.ForeColor = Color.Black  'Color.DeepPink
+            typeNode.NodeFont = New Font("宋体", 10， FontStyle.Bold)
+
+            Dim tmpPath As String = "\Temp\Config\" _
+                                    & _project.VerdorName & "\" _
+                                    & _project.HotelCode & "-" _
+                                    & _project.HotelName
+
+            Dim tmp_Local_XmlFullName As String = Application.StartupPath & tmpPath & "\" & room_type.XmlFile
+            Dim tmp_FTP_Xml_FullName As String = tmpPath & "\" & room_type.XmlFile
+
+            If String.IsNullOrEmpty(room_type.XmlFile) Then
+                typeNode.ImageKey = "03716-gary.ico"
+                typeNode.SelectedImageKey = "03716-gary.ico"
+                typeNode.Nodes.Add("无配置文件") '增加一个空节点’
+                typeNode.Nodes(0).ImageKey = "Others_gray.ico" '本地文件存在
+                typeNode.Nodes(0).SelectedImageKey = "Others_gray.ico"
+            Else
+                typeNode.ImageKey = "03716.ico"
+                typeNode.SelectedImageKey = "03716.ico"
+                typeNode.Nodes.Add(room_type.XmlFile)
+            End If
+
+lab_CheckFileExist:
+            If FileExist(tmp_Local_XmlFullName) Then
+                typeNode.Nodes(0).ImageKey = "01087.ico" '本地文件存在
+                typeNode.Nodes(0).SelectedImageKey = "01087.ico"
+                typeNode.Nodes(0).ForeColor = Color.Black
+            Else
+                typeNode.Nodes(0).ImageKey = "01088.ico" '本地文件不存在’
+                typeNode.Nodes(0).SelectedImageKey = "01088.ico" '本地文件不存在’
+                typeNode.Nodes(0).ForeColor = Color.LightGray
+                If retryCnt < 2 Then
+                    '’DownloadXmlFile(_project.VerdorName, _project.HotelCode, _project.HotelName, room_type.XmlFile)
+                    Console.WriteLine("Download XML: " & room_type.XmlFile & " ,Retry = " & retryCnt)
+                    retryCnt += 1
+                    GoTo lab_CheckFileExist
+                End If
+            End If
+
+            tmpRoomType.structRoomType_ID = room_type.RoomTypeIdx
+            tmpRoomType.structRoomType_Name = room_type.RoomType
+            tmpRoomType.structRoomType_XML_Filename = room_type.XmlFile
+
+            _project.RoomType(i) = tmpRoomType
+
+            i += 1
+        Next
+
+        TvwMain.Nodes(0).Expand()
+    End Sub
+
+    Private Function GetRoomType(strHotelId As String) As List(Of RoomType)
+        Dim result As New List(Of RoomType)
+
+        Dim dt As DataTable
+        Using db As New DbExecutor(DbExecutor.DbTypeEnum.Mssql, DBconnString)
+            db.Open()
+            dt = db.ExecuteDataTable(db.CmdHelper.SearchAll("TBL_ROOM_TYPE_LIST", $"[HOTEL_ID] = '{strHotelId}'"))
+            db.Close()
+        End Using
+
+        Dim roomtype As RoomType
+        For Each dtRow As DataRow In dt.Rows
+            roomtype = New RoomType
+            roomtype.RoomTypeIdx = dtRow("ROOM_TYPE_ID").ToString
+            roomtype.HotelID = dtRow("HOTEL_ID").ToString
+            roomtype.RoomType = dtRow("ROOM_TYPE_NAME").ToString
+            roomtype.BinFile = dtRow("CONFIG_BIN").ToString
+            roomtype.BinFileMd5 = dtRow("CONFIG_BIN_MD5").ToString
+            roomtype.XmlFile = dtRow("CONFIG_XML").ToString
+            result.Add(roomtype)
+        Next
+        Return result
+    End Function
+    Private Function GetNodesRoomTypeItemIdx(argTreeNode As TreeNode, ByRef argRoomTypeNodeIdx As Integer) As Boolean
+
+        Try
+            Dim tmpTreeNode As TreeNode = argTreeNode
+            'S1:获取当前节点级数
+            Dim tmpNodeLevel As Integer = tmpTreeNode.Level
+            Console.WriteLine("tmpNodeLevel = " & tmpNodeLevel)
+
+            'S2：一直递归到第二级
+            If tmpNodeLevel >= 2 Then
+                Do
+                    tmpTreeNode = tmpTreeNode.Parent
+                    tmpNodeLevel = tmpTreeNode.Level
+                    argRoomTypeNodeIdx = tmpTreeNode.Index
+                    Console.WriteLine("tmpNodeLevel = " & tmpNodeLevel & " , node name = " & tmpTreeNode.Text)
+                Loop While tmpNodeLevel > 1
+            End If
+
+            Console.WriteLine("argRoomTypeNodeIdx = " & argRoomTypeNodeIdx)
+
+            Return True
+
+        Catch ex As Exception
+            Return False
+        End Try
+    End Function
+
+    Private Sub SetTreeNodeBackColor(argRoomTypeItemIdx As Integer)
+        For i = 0 To TvwMain.Nodes(0).GetNodeCount(False) - 1
+            TvwMain.Nodes(0).Nodes(i).BackColor = Color.White
+            TvwMain.Nodes(0).Nodes(i).ForeColor = Color.Black 'Color.DeepPink
+        Next
+        TvwMain.Nodes(0).Nodes(argRoomTypeItemIdx).BackColor = Color.CornflowerBlue
+        TvwMain.Nodes(0).Nodes(argRoomTypeItemIdx).ForeColor = Color.White
+    End Sub
+    Private Sub TvwMain_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TvwMain.AfterSelect
+        Dim tmpRoomTypeNodeIdx As Integer = 0
+        Dim tmpXmlFullName As String = ""
+
+        Select Case e.Node.Level
+            Case EnumTreeLevel.HotelName
+                g_CurrentTreeNodeRoomTypeItemIndex = 0 '0 = error
+                Return
+
+            Case EnumTreeLevel.RoomType
+                _project.CurrentSelectedRoomTypeIdx = e.Node.Index
+                SetTreeNodeBackColor(e.Node.Index)
+                g_CurrentTreeNodeRoomTypeItemIndex = e.Node.Index
+
+            Case EnumTreeLevel.RCU
+
+                '获取当前房型item idx
+                If (GetNodesRoomTypeItemIdx(e.Node, tmpRoomTypeNodeIdx) = True) Then
+                    SetTreeNodeBackColor(tmpRoomTypeNodeIdx)
+                    g_CurrentTreeNodeRoomTypeItemIndex = tmpRoomTypeNodeIdx
+                    UpdateHotelAndRoomtypeLab_text()
+                Else
+                    Return
+                End If
+
+                If _grdModel._isXmlModified = True Then
+                    MsgBox("当前文件尚未保存，请保存后再打开新的文件！"， MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "请先保存当前编辑的文件！")
+                    Return
+                End If
+
+                '文件名
+                '配置文件保存地址
+                Dim tmpPath As String = "\Temp\Config\" _
+                                    & _project.VerdorName & "\" _
+                                    & _project.HotelCode & "-" _
+                                    & _project.HotelName
+
+                If Not String.IsNullOrEmpty(_project.RoomType(g_CurrentTreeNodeRoomTypeItemIndex).structRoomType_XML_Filename) Then
+                    tmpXmlFullName = Application.StartupPath & tmpPath & "\" &
+                                    _project.RoomType(g_CurrentTreeNodeRoomTypeItemIndex).structRoomType_XML_Filename
+                    Console.WriteLine("tmpFullName = " & tmpXmlFullName)
+
+                    '本地是否有该文件存在
+                    If FileExist(tmpXmlFullName) Then
+                        g_Xml_FullName = tmpXmlFullName
+                        Console.WriteLine("g_Xml_FullName = " & g_Xml_FullName)
+                        If _grdModel.Load(tmpXmlFullName) = True Then g_Xml_FullName = tmpXmlFullName '打开成功就更新全局变量，确保显示正确
+                    Else
+                        MsgBox("本地没有此配置文件，请从服务器下载！", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "本地文件不存在！")
+                    End If
+                End If
+
+                UpdateWindowTitle()
+
+
+
+            Case EnumTreeLevel.Device
+                GetNodesRoomTypeItemIdx(e.Node, tmpRoomTypeNodeIdx)
+                If (GetNodesRoomTypeItemIdx(e.Node, tmpRoomTypeNodeIdx) = True) Then
+                    SetTreeNodeBackColor(tmpRoomTypeNodeIdx)
+                    g_CurrentTreeNodeRoomTypeItemIndex = tmpRoomTypeNodeIdx
+                End If
+
+            Case Else
+                GetNodesRoomTypeItemIdx(e.Node, tmpRoomTypeNodeIdx)
+                If (GetNodesRoomTypeItemIdx(e.Node, tmpRoomTypeNodeIdx) = True) Then
+                    SetTreeNodeBackColor(tmpRoomTypeNodeIdx)
+                    g_CurrentTreeNodeRoomTypeItemIndex = tmpRoomTypeNodeIdx
+                End If
+        End Select
+
+        UpdateHotelAndRoomtypeLab_text()
+    End Sub
+
+    Private Function DealPasteData(str As String) As List(Of List(Of String))
+        Dim result As New List(Of List(Of String))
+
+        Dim tmpStrings() As String = str.Split(New String() {vbCrLf}, StringSplitOptions.None)
+        For Each tmpStr As String In tmpStrings
+            Dim lst As New List(Of String)
+            lst.AddRange(tmpStr.Split(vbTab))
+
+            result.Add(lst)
+        Next
+
+        Return result
+    End Function
+
+    Private Sub TsBtnAddDev_Click(sender As Object, e As EventArgs) Handles TsBtnAddDev.Click
+        If _grdModel Is Nothing Then Return
+        Try
+            _grdModel.AddDeviceObject()
+        Catch ex As Exception
+            MsgBox($"添加节点失败，{ex.Message}")
+        End Try
+    End Sub
+
+    Private Sub TsBtnAddCondition_Click(sender As Object, e As EventArgs) Handles TsBtnAddCondition.Click
+        If _grdModel Is Nothing Then Return
+        Try
+            _grdModel.AddEventContidion()
+        Catch ex As Exception
+            MsgBox($"添加节点失败，{ex.Message}")
+        End Try
+    End Sub
+
+    Private Sub TsBtnAddAction_Click(sender As Object, e As EventArgs) Handles TsBtnAddAction.Click
+        If _grdModel Is Nothing Then Return
+        Try
+            _grdModel.AddEventAction()
+        Catch ex As Exception
+            MsgBox($"添加节点失败，{ex.Message}")
+        End Try
+    End Sub
+
+    Private Sub TsBtnRemoveNode_Click(sender As Object, e As EventArgs) Handles TsBtnRemoveNode.Click
+        If _grdModel Is Nothing Then Return
+        If MsgBox("确定删除当前节点吗？") <> MsgBoxResult.Ok Then Return
+        Try
+            _grdModel.RemoteNode()
+        Catch ex As Exception
+            MsgBox($"删除节点失败，{ex.Message}")
+        End Try
+
+    End Sub
+
+    Private Sub TsmiAppDev_Click(sender As Object, e As EventArgs) Handles TsmiAppDev.Click
+        TsBtnAddDev_Click(Nothing, Nothing)
+    End Sub
+
+    Private Sub TsmiAddCondition_Click(sender As Object, e As EventArgs) Handles TsmiAddCondition.Click
+        TsBtnAddCondition_Click(Nothing, Nothing)
+    End Sub
+
+    Private Sub TsmiAddAction_Click(sender As Object, e As EventArgs) Handles TsmiAddAction.Click
+        TsBtnAddAction_Click(Nothing, Nothing)
+    End Sub
+
+    Private Sub TsmiRemoveNode_Click(sender As Object, e As EventArgs) Handles TsmiRemoveNode.Click
+        TsBtnRemoveNode_Click(Nothing, Nothing)
+    End Sub
+
+    Private xmlPath As String = $"{Application.StartupPath}\xml\BLV.xml"
+    Private Sub TsBtnSaveAs_Click(sender As Object, e As EventArgs) Handles TsBtnSaveAs.Click
+        SaveFileAs()
+    End Sub
+
+    Private Sub TsBtnLoad_Click(sender As Object, e As EventArgs) Handles TsBtnLoad.Click
+        If _grdModel._isXmlModified = True Then
+            MsgBox("当前文件尚未保存，请保存后再打开新的文件！"， MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "请先保存当前编辑的文件！")
+            Return
+        End If
+
+        Using openFileDialog As New OpenFileDialog
+            Dim tmpInitDir As String = Application.StartupPath & "\Temp\Config\"
+            openFileDialog.InitialDirectory = tmpInitDir
+            openFileDialog.RestoreDirectory = True
+            openFileDialog.Title = "打开文件"
+            openFileDialog.Filter = $"配置文件(*.xml)|*.xml"
+
+            If openFileDialog.ShowDialog() = DialogResult.OK Then
+                g_Xml_Name = openFileDialog.SafeFileName
+                g_Xml_FullName = openFileDialog.FileName
+                'MsgBox("g_Xml_FullName = " & g_Xml_FullName & vbCrLf & "g_Xml_Name = " & g_Xml_Name)
+                If _grdModel.Load(g_Xml_FullName) = False Then
+                    g_Xml_FullName = ""
+                End If
+            End If
+        End Using
+
+        UpdateWindowTitle()
+    End Sub
+
+    Private Sub TsBtnClean_Click(sender As Object, e As EventArgs) Handles TsBtnNewFile.Click
+        If _grdModel._isXmlModified = True Then
+            MsgBox("当前文件尚未保存，请保存后再打开新的文件！"， MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "请先保存当前编辑的文件！")
+            Return
+        End If
+        _grdModel.InitGrid()
+        g_Xml_FullName = ""
+        UpdateWindowTitle()
+
+    End Sub
+
+
+    Private Sub EventGridTipChanged(sender As Object, e As TipChangedEventArgs)
+        RtxColTip.SuspendLayout()
+        RtxColTip.Clear()
+        RtxColTip.SelectionColor = Color.Black
+        RtxColTip.AppendText(e.Title & vbCrLf)
+        RtxColTip.SelectionColor = Color.Gray
+        RtxColTip.AppendText(e.TipString)
+        RtxColTip.ResumeLayout(False)
+    End Sub
+
+    Private Sub TsBtnAddModel_Click(sender As Object, e As EventArgs) Handles TsBtnAddModel.Click
+        If _grdModel Is Nothing Then Return
+        Try
+            _grdModel.AddContextualModel()
+        Catch ex As Exception
+            MsgBox($"添加节点失败，{ex.Message}")
+        End Try
+    End Sub
+
+#Region "数据库操作"
+    Private Sub ReleaseConfigXmlToDB()
+        '取当前时间
+        Dim tmpModifiedTime As Date = DateAndTime.Now
+        Dim strModifiedTime As String = Format(tmpModifiedTime, "yyMMddHHmmss") ' yyyyMMddHHmmss
+
+        '配置文件保存地址
+        Dim tmpPath As String = "\Temp\Config\" _
+                                    & _project.VerdorName & "\" _
+                                    & _project.HotelCode & "-" _
+                                    & _project.HotelName
+
+        ''文件名
+        Dim tmpXmlName = "Config-" &
+                      _project.HotelCode & "-" &
+                      _project.HotelName & "-" &
+                      _project.RoomType(g_CurrentTreeNodeRoomTypeItemIndex).structRoomType_Name & "-" &
+                      strModifiedTime & ".xml"
+
+
+        '确认发布内容
+        Dim tmpMsgBoxString As String = "请确认发布项目和房型：" & vbCrLf & vbCrLf & vbCrLf &
+                                        "项目分组  ：  " & _project.VerdorName & vbCrLf &
+                                        "项目编号  ：  " & _project.HotelCode & vbCrLf &
+                                        "项目名称  ：  " & _project.HotelName & vbCrLf &
+                                        "房    型  ：  " & _project.RoomType(g_CurrentTreeNodeRoomTypeItemIndex).structRoomType_Name & vbCrLf &
+                                        "房型ID    ：  " & _project.RoomType(g_CurrentTreeNodeRoomTypeItemIndex).structRoomType_ID & vbCrLf & vbCrLf &
+                                        "配置文件名 :  " & tmpXmlName & vbCrLf
+
+        If MsgBox(tmpMsgBoxString, MsgBoxStyle.OkCancel + vbExclamation, "请确认发布信息!") = MsgBoxResult.Ok Then
+            ''保存配置文件到本地
+            '创建本地和FTP文件夹
+            CreateXmlPath()
+
+            '保存文件’
+            Dim tmp_Local_XmlFullName As String = Application.StartupPath & tmpPath & "\" & tmpXmlName
+            Dim tmp_FTP_Xml_FullName As String = tmpPath & "\" & tmpXmlName
+
+            If _grdModel.Save(tmp_Local_XmlFullName) = True Then '保存配置文件成功
+                g_Xml_FullName = tmp_Local_XmlFullName
+            End If
+
+            ''上传配置文件到FTP site
+            UtsFtp.CreateObject.FtpUpload(tmp_FTP_Xml_FullName, tmp_Local_XmlFullName)
+
+            ''写入配置文件名到数据库
+            Dim tmpDestStr As String = "'" & tmpXmlName & "'"
+            Dim tmpCondiction As String = "'" & _project.RoomType(g_CurrentTreeNodeRoomTypeItemIndex).structRoomType_ID & "'"
+            Dim dt As DataTable
+            Using db As New DbExecutor(DbExecutor.DbTypeEnum.Mssql, DBconnString)
+                db.Open()
+                dt = db.ExecuteDataTable(db.CmdHelper.DbUpdate("dbo",
+                                                               "TBL_ROOM_TYPE_LIST",
+                                                               "CONFIG_XML=" & tmpDestStr,
+                                                               "ROOM_TYPE_ID=" & tmpCondiction))
+                db.Close()
+            End Using
+
+            '更新窗口标题
+            UpdateWindowTitle()
+
+            '更新treeview
+            UpdateTreeView()
+        Else
+
+        End If
+
+    End Sub
+
+
+
+#End Region
+
+#Region "MISC"
+    Private Sub UpdateWindowTitle()
+        If Not String.IsNullOrEmpty(g_Xml_FullName) Then
+            If FileExist(g_Xml_FullName) Then
+                g_Xml_Name = GetFileName(g_Xml_FullName)
+                g_Xml_FilePath = GetFilePath(g_Xml_FullName)
+                Text = $"{Application.ProductName} {Application.ProductVersion} Account:{Account}" & "-(" & g_Xml_Name & ")"
+                Return
+            End If
+        End If
+        Text = $"{Application.ProductName} {Application.ProductVersion} Account:{Account}"
+    End Sub
+    Private Sub UpdateHotelAndRoomtypeLab_text()
+        lab_HotelGroup_And_Hotel.Text = _project.VerdorName & ":" & _project.HotelCode & "-" & _project.HotelName
+
+        If _project.RoomType Is Nothing Then
+            lab_RoomType.Text = "未选择房型"
+        Else
+            lab_RoomType.Text = _project.RoomType(g_CurrentTreeNodeRoomTypeItemIndex).structRoomType_ID & "-" &
+                    _project.RoomType(g_CurrentTreeNodeRoomTypeItemIndex).structRoomType_Name
+        End If
+    End Sub
+
+    '从完整的文件名中分理出文件名
+    Public Function GetFileName(FilePathFileName As String) As String '获取文件名 aaa.txt
+        Dim i As Integer, J As Integer
+        i = Len(FilePathFileName)
+        J = InStrRev(FilePathFileName, "\")
+        Return Mid(FilePathFileName, J + 1, i)
+    End Function
+
+    '从完整的文件名中分理出路径
+    Public Function GetFilePath(FilePathFileName As String) As String '获取路径路径 c:\dir1001\
+        On Error Resume Next
+        Dim J As Integer
+        J = InStrRev(FilePathFileName, "\")
+        Return Mid(FilePathFileName, 1, J)
+    End Function
+
+    '判断目录是否存在的函数  传入String值 返回Boolean值
+    Private Function DirExist(ByVal Str_Path As String) As Boolean
+        Return System.IO.Directory.Exists(Str_Path)
+    End Function
+
+    '判断文件是否存在的函数  传入String值 返回Boolean值
+    Private Function FileExist(ByVal Str_File As String) As Boolean
+        Return System.IO.File.Exists(Str_File)
+    End Function
+
+    '当房型数据发生变化时，刷新tree view
+    Private Sub UpdateTreeView()
+        '读取房型
+        Dim roomtypes As List(Of RoomType) = GetRoomType(_project.HotelIndex)
+
+        '填充酒店节点
+        FillTreeView(_project.HotelName, roomtypes)
+    End Sub
+
+    '文件另存为
+    Private Function SaveFileAs() As Boolean
+        Try
+            Using saveFileDialog As New SaveFileDialog
+
+                Dim tmpXmlFullName As String = ""
+                Dim tmpInitDir As String = Application.StartupPath & "\Temp\Config\"
+
+                With saveFileDialog
+                    .InitialDirectory = tmpInitDir
+                    .RestoreDirectory = True
+                    .OverwritePrompt = True
+                    .AddExtension = True
+                    .DefaultExt = ".xml"
+                    .Title = "保存文件"
+                    .Filter = $"配置文件(*.xml)|*.xml"
+                End With
+
+                If saveFileDialog.ShowDialog() = DialogResult.OK Then
+                    tmpXmlFullName = saveFileDialog.FileName
+
+                    If _grdModel.Save(tmpXmlFullName) = True Then
+                        g_Xml_FullName = tmpXmlFullName '只有保存成功才会更新全局变量，确保全局变量的正确性
+                        UpdateWindowTitle()
+                        Return True
+                    End If
+                End If
+            End Using
+
+            UpdateWindowTitle()
+            Return False
+
+        Catch ex As Exception
+            Return False
+        End Try
+
+    End Function
+
+#End Region
+
+
+#Region "SaveSetting"
+    Private Sub SaveSettings()
+
+        My.Settings.HotelName = _project.HotelName
+        My.Settings.HotelCode = _project.HotelCode
+        My.Settings.VerdorName = _project.VerdorName
+        My.Settings.HotelId = _project.HotelIndex
+        My.Settings.VenderIndex = _project.VerderIndex
+        My.Settings.LastEditXmlFile = g_Xml_FullName
+        My.Settings.Save()
+    End Sub
+
+    Private Function LoadSettings() As Boolean
+        Try
+            My.Settings.Reload()
+            _project.HotelName = My.Settings.HotelName
+            _project.HotelCode = My.Settings.HotelCode
+            _project.VerdorName = My.Settings.VerdorName
+            _project.HotelIndex = My.Settings.HotelId
+            _project.VerderIndex = My.Settings.VenderIndex
+            g_Last_Edit_Xml_FileName = My.Settings.LastEditXmlFile
+
+        Catch ex As Exception
+            Return False
+        End Try
+
+        Return True
+    End Function
+
+
+
+#End Region
+
+
+#Region "文件和目录操作"
+
+    'FTP地址：'blv-oa.com
+    '账号：BLV_Studio
+    'pw：37f5675t6R&5*
+    '端口：50
+
+    Public FtpHost As String = "blv-oa.com"
+    Public FtpPort As Integer = 50
+    Public FtpUser As String = "BLV_Studio"
+    Public FtpPwd As String = "37f5675t6R&5*"
+
+    '下载xml文件
+    Private Function DownloadXmlFile(strVendorName As String, strHotelCode As String, strHotelName As String, strFileName As String) As Boolean
+        Try
+            Dim retry As Integer = 0
+            Dim tmpPath As String = "\Temp\Config\" _
+                                                & strVendorName & "\" _
+                                                & strHotelCode & "-" _
+                                                & strHotelName
+
+            Dim tmp_Local_XmlFullName As String = Application.StartupPath & tmpPath & "\" & strFileName
+            Dim tmp_FTP_Xml_FullName As String = tmpPath & "\" & strFileName
+
+            Console.WriteLine("tmp_Local_XmlFullName: " & tmp_Local_XmlFullName)
+            Console.WriteLine("tmp_FTP_Xml_FullName: " & tmp_FTP_Xml_FullName)
+
+            UtsFtp.InitConnectParams(FtpPort, FtpUser, FtpPwd)
+            Dim ftp As UtsFtp = UtsFtp.CreateObject()
+            ftp.FtpHost = FtpHost
+            ftp.FtpDownload(tmp_FTP_Xml_FullName, tmp_Local_XmlFullName)
+            Console.WriteLine("Function:DownloadXmlFile: " & strFileName & " ,Retry = " & retry)
+
+            Return True
+        Catch ex As Exception
+            Return False
+        End Try
+
+    End Function
+
+    '根据酒店组和酒店名称信息创建XML文件保存目录（同时创建FTP目录和本地目录）
+    Private Function CreateXmlPath() As Boolean
+        If String.IsNullOrEmpty(_project.HotelCode) Then
+            MsgBox("请选择有效的酒店组")
+            Return False
+        End If
+
+        If String.IsNullOrEmpty(_project.VerdorName) Then
+            MsgBox("请选择有效的酒店组")
+            Return False
+        End If
+
+        If String.IsNullOrEmpty(_project.HotelName) Then
+            MsgBox("请选择有效的酒店名称")
+            Return False
+        End If
+
+
+        '拼接文件名
+        g_Xml_FullPath_BaseedOnTempFolder = "\Temp\Config\" _
+                                            & _project.VerdorName & "\" _
+                                            & _project.HotelCode & "-" _
+                                            & _project.HotelName
+
+        UtsFtp.InitConnectParams(FtpPort, FtpUser, FtpPwd)
+        Dim ftp As UtsFtp = UtsFtp.CreateObject()
+        ftp.FtpHost = FtpHost
+
+        Try
+            System.IO.Directory.CreateDirectory(Application.StartupPath & g_Xml_FullPath_BaseedOnTempFolder)
+            ftp.CreateDir(g_Xml_FullPath_BaseedOnTempFolder) '创建文件夹
+        Catch ex As Exception
+            Throw New Exception($"创建客户Ftp文件夹失败,{ex.Message}")
+            Return False
+        End Try
+
+        Return True
+    End Function
+
+    Private Sub FrmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        SaveSettings()
+    End Sub
+
+    Private Sub TvwMain_ForeColorChanged(sender As Object, e As EventArgs) Handles TvwMain.ForeColorChanged
+
+    End Sub
+
+    Private Sub tsb_ReleaseToProjcet_Click(sender As Object, e As EventArgs) Handles tsb_ReleaseToProjcet.Click
+        ReleaseConfigXmlToDB()
+    End Sub
+
+    Private Sub tsb_SetTreeViewVisableOrNot_Click(sender As Object, e As EventArgs) Handles tsb_SetTreeViewVisableOrNot.Click
+        g_IsProjectTreeView_Visable = Not g_IsProjectTreeView_Visable
+        SplitContainer1.Panel1Collapsed = g_IsProjectTreeView_Visable
+    End Sub
+
+    Private Sub tsb_SaveFile_Click(sender As Object, e As EventArgs) Handles tsb_SaveFile.Click
+        If FileExist(g_Xml_FullName) Then
+            _grdModel.Save(g_Xml_FullName)  '保存配置文件
+        Else
+            SaveFileAs() '如果文件名不存在则启动“另存为”
+        End If
+    End Sub
+
+    Private Sub tsb_OpenFileFolder_Click(sender As Object, e As EventArgs) Handles tsb_OpenFileFolder.Click
+        If FileExist(g_Xml_FullName) Then
+            g_Xml_FilePath = GetFilePath(g_Xml_FullName)
+            Shell("explorer.exe /select," & g_Xml_FullName, vbNormalFocus)
+        Else
+            MsgBox("文件尚未保存，必须保存后才能通过目录打开!", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "文件尚未保存")
+        End If
+    End Sub
+
+    Private Sub tsb_ExportToExcel_Click(sender As Object, e As EventArgs) Handles tsb_ExportToExcel.Click
+        Using saveFileDialog As New SaveFileDialog
+
+            Dim tmpInitDir As String = Application.StartupPath & "\Temp\Config\"
+            Dim tmpExcelFileName As String = ""
+
+            With saveFileDialog
+                .InitialDirectory = tmpInitDir
+                .RestoreDirectory = True
+                .OverwritePrompt = True
+                .AddExtension = True
+                .DefaultExt = ".xls"
+                .Title = "导出到Excel文件"
+                .Filter = $"Excel文件(*.xls)|*.xls"
+            End With
+
+
+            If saveFileDialog.ShowDialog() = DialogResult.OK Then
+                tmpExcelFileName = saveFileDialog.FileName
+                _grdModel.ExportToXls(tmpExcelFileName)
+            End If
+        End Using
+
+        UpdateWindowTitle()
+    End Sub
+
+    Private Sub tsb_SyncConfigFiles_Click(sender As Object, e As EventArgs) Handles tsb_SyncConfigFiles.Click
+        DownloadXmlFile(_project.VerdorName, _project.HotelCode, _project.HotelName, _project.RoomType(g_CurrentTreeNodeRoomTypeItemIndex).structRoomType_XML_Filename)
+    End Sub
+
+#End Region
+
+
+End Class
+
+<Serializable>
+Public Class DemoClass
+    Public Name As String
+    Public Age As String
+    Public Room As RoomType
+
+    Sub New()
+        Name = "N"
+        Age = "A"
+
+        Room = New RoomType
+
+        Room.HotelID = 1
+        Room.RoomType = 2
+        Room.XmlFile = 3
+        Room.BinFile = 4
+        Room.BinFileMd5 = 5
+    End Sub
+
+    Public Overrides Function ToString() As String
+        Return $"Name:{Name},Age:{Age},HID:{Room.HotelID},HT:{Room.RoomType}"
+    End Function
+End Class
+
+<Serializable>
+Public Class RoomType
+    Public Property HotelID As String
+    Public Property HotelCode As String
+    Public Property RoomType As String
+    Public Property RoomTypeIdx As String
+    Public Property XmlFile As String
+    Public Property BinFile As String
+    Public Property BinFileMd5 As String
+
+End Class