Imports System.ComponentModel

Public Class FrmHotelList

#Region "多语种信息"

    ''' <summary>
    ''' 初始化界面控件文本
    ''' </summary>
    Private Sub MultiLanguageInfo()
        Text = LanguageData.StringList(MultiLanguageDAL.StringEnum.HotelList)
        Button5.Text = LanguageData.StringList(MultiLanguageDAL.StringEnum.Checked)
        Button1.Text = LanguageData.StringList(MultiLanguageDAL.StringEnum.HomeExit)

    End Sub


#End Region

#Region "初始化信息"

    Private _count As Integer = 0
    Public FCsConfig As FrmCSeriesConfig
    ''' <summary>
    ''' 初始化酒店列表
    ''' </summary>
    ''' <param name="match"></param>
    Public Sub InitHotelList(match As Boolean, mainfrom As FrmCSeriesConfig)
        FCsConfig = mainfrom
        If match = False Then
            TreeView1.Nodes.Clear()
            Grid5.NewFile()
            InitHotelTable()
            _count = 0
            Button5.ForeColor = Color.Green
            Button5.Text = $"{LanguageData.StringList(MultiLanguageDAL.StringEnum.Checked)}"
            TreeView1.Enabled = True
            Grid5.Enabled = True
        End If

        LblUserInfo.Text = $"{LanguageData.StringList(MultiLanguageDAL.StringEnum.WelcomeYou)}！{_userNames}  {LanguageData.StringList(MultiLanguageDAL.StringEnum.PleaseSelectYourHotel)}！"
        _count += 1
        If _count = 1 Then
            MultiLanguageInfo()
            InitHotelInfo()
        End If
        InitLoadHotelInfo()
    End Sub


#End Region

#Region "权限管理_酒店管理"


    ''' <summary>
    ''' 权限列表
    ''' </summary>
    Enum EnAuthInfo

        ''' <summary> 空 </summary>
        Null
        ''' <summary> 锁定权限 </summary>
        Lock
        ''' <summary> 授权时间 </summary>
        AuthorizedTime

        Auth3

        Auth4

        Auth5

        Auth6

        Auth7

        Auth8

        Auth9

        ''' <summary> 升级/房态/季节 </summary>
        UpdateAndRoomStateAndSeason

        Auth11

        Auth12

        Auth13

        Auth14

        Auth15

        Auth16

        ''' <summary> 研发管理 </summary>
        ResearchManage

        Auth18

        ''' <summary> 批量下发 </summary>
        BatchIssued

    End Enum


    Private Sub Grid5_Click(Sender As Object, e As EventArgs) Handles Grid5.Click
        If Grid5.ActiveCell.Row > 0 Then
            _projectNumber = Grid5.Cell(Grid5.ActiveCell.Row, HotelDataCol.ProjectNumber).Text
            _HotelName = Grid5.Cell(Grid5.ActiveCell.Row, HotelDataCol.HotelName).Text
        End If
    End Sub


    ''' <summary>
    ''' 选择酒店事件
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Buttin5click()
    End Sub
    Public Sub Buttin5click()
        FCsConfig.NoAuthority()
        If Button5.Text = $"{LanguageData.StringList(MultiLanguageDAL.StringEnum.Checked)}" Then
            If TipInfo() = False Then Return
            AddAuthorityInfo()

            Button5.ForeColor = Color.Red
            Button5.Text = $"{LanguageData.StringList(MultiLanguageDAL.StringEnum.Loosen)}"

            TreeView1.Enabled = False
            Grid5.Enabled = False
        ElseIf Button5.Text = $"{LanguageData.StringList(MultiLanguageDAL.StringEnum.Loosen)}" Then
            Button5.ForeColor = Color.Green
            Button5.Text = $"{LanguageData.StringList(MultiLanguageDAL.StringEnum.Checked)}"

            TreeView1.Enabled = True
            Grid5.Enabled = True
        End If

        FCsConfig.LblUserNames.Text = $"{LanguageData.StringList(MultiLanguageDAL.StringEnum.TheCurrentHotel)}：{_projectNumber}-{_HotelName}  | {_userNames} {LanguageData.StringList(MultiLanguageDAL.StringEnum.WelcomeYou)}！    "
        FCsConfig.TextBox9.Text = _projectNumber
        'FCsConfig.ComboBox16.Text = ""
        FCsConfig.ComboBox16.Items.Clear()
        FCsConfig.ComboBox17.Text = ""
        FCsConfig.ComboBox17.Items.Clear()
        FCsConfig.CBoRoomTpRemark.Checked = False
        FCsConfig.CBoRoomNuRemark.Checked = False
        FCsConfig.CheckBox37.Checked = False
        FCsConfig.Network_cke.Checked = False
        FCsConfig.Iptype_txt.Text = ""
        FCsConfig.Loadip_txt.Text = ""
        FCsConfig.IPMask_txt.Text = ""
        FCsConfig.IPGateway_txt.Text = ""
        FCsConfig.ServerIP_txt.Text = ""
        FCsConfig.ipconfig_txt.Text = ""
        FCsConfig.IpDns_txt.Text = ""
        FCsConfig.IpPort_txt.Text = ""
        FCsConfig.TextBox25.Text = ""
        FCsConfig.TextBox21.Text = ""
        AuthorityInfo(FCsConfig)
    End Sub


    ''' <summary>
    ''' 提示信息
    ''' </summary>
    ''' <returns></returns>
    Private Function TipInfo() As Boolean
        If Grid5.Cell(Grid5.ActiveCell.Row, HotelDataCol.ProjectNumber).Text = Nothing Then
            MsgBox($"{LanguageData.StringList(MultiLanguageDAL.StringEnum.PleaseSelectTheHotelUnderYourName)}！")
            Return False
        End If
        If _projectNumber = $"" Then
            MsgBox($"{LanguageData.StringList(MultiLanguageDAL.StringEnum.PleaseSelectTheHotelUnderYourName)}！")
            Return False
        End If
        If _HotelName = $"" Then
            MsgBox($"{LanguageData.StringList(MultiLanguageDAL.StringEnum.PleaseSelectTheHotelUnderYourName)}！")
            Return False
        End If

        Return True
    End Function


    ''' <summary>
    ''' 添加权限
    ''' </summary>
    Public Sub AddAuthorityInfo()
        _authorityInfo.Clear()
        For index = 0 To _loginData.Values.Count - 1
            If _HotelName = _loginData.Values(index).HotelName AndAlso _projectNumber = _loginData.Values(index).Code Then

                _authorityInfo.Add(_loginData.Values(index).AuthorityId, _loginData.Values(index).AuthotypeId)
            End If
        Next
    End Sub


    ''' <summary>
    ''' 添加上一次保存的酒店权限
    ''' </summary>
    Public Sub AddLastTimeAuthorityInfo()
        _authorityInfo.Clear()
        For index = 0 To _loginData.Values.Count - 1
            If My.Settings.HotelName = _loginData.Values(index).HotelName AndAlso My.Settings.ProjectCode = _loginData.Values(index).Code Then
                _authorityInfo.Add(_loginData.Values(index).AuthorityId, _loginData.Values(index).AuthotypeId)
            End If
        Next
    End Sub



    ''' <summary>
    ''' 权限管理_权限信息
    ''' </summary>
    Public Sub AuthorityInfo(Config As FrmCSeriesConfig)
        FCsConfig = Config
        For index = 0 To _authorityInfo.Count - 1
            Select Case _authorityInfo.Keys(index)
                Case EnAuthInfo.Lock      '锁定
                    FCsConfig.LockAuth(_authorityInfo.Values(index))
                Case EnAuthInfo.AuthorizedTime      '授权时间
                    FCsConfig.AuthorizedTimeAuth(_authorityInfo.Values(index))
                Case EnAuthInfo.UpdateAndRoomStateAndSeason     '升级&房态&季节
                    FCsConfig.UpdateRoomStateSeasonAuth(_authorityInfo.Values(index))
                Case EnAuthInfo.ResearchManage      '研发管理
                    FCsConfig.UpdateResearchManageAuth(_authorityInfo.Values(index))
                Case EnAuthInfo.BatchIssued         '批量下发
                    FCsConfig.UpdateBatchIssuedAuth(_authorityInfo.Values(index))
            End Select
        Next
    End Sub



    '''' <summary>
    '''' 选择页面
    '''' </summary>
    '''' <param name="sender"></param>
    '''' <param name="e"></param>
    'Private Sub TabControl1_Selecting(sender As Object, e As TabControlCancelEventArgs) Handles TabControl1.Selecting
    '    If Button5.Text = $"{LanguageData.StringList(MultiLanguageDAL.StringEnum.Checked)}" Then
    '        MsgBox($"{LanguageData.StringList(MultiLanguageDAL.StringEnum.PleaseSelectTheHotelUnderYourName)}！")
    '        e.Cancel = True
    '    End If
    'End Sub


    ''' <summary>
    ''' 初始化酒店区域信息
    ''' </summary>
    Public Sub InitHotelInfo()
        InitHotelTable()
        Dim nodeOne As TreeNode = TreeView1.Nodes.Add($"{LanguageData.StringList(MultiLanguageDAL.StringEnum.AllHotel)}")
        Dim dic As Dictionary(Of String, Integer) = AddHotelInfo()
        For index = 0 To dic.Count - 1
            nodeOne.Nodes.Add(dic.ElementAt(index).Key & "-(" & dic.ElementAt(index).Value & ")")
        Next

    End Sub


    Public Function AddHotelInfo()
        Dim dic As New Dictionary(Of String, Integer)
        dic.Clear()
        Dim txt As String
        For index = 0 To _loginData.Count - 1
            txt = _loginData.Values(index).HotelGroupsName
            If dic.ContainsKey(txt) Then
                dic(txt) += 1
            Else
                dic.Add(txt, 1)
                'nodeOne.Nodes.Add(txt)
            End If
        Next

        Return dic
    End Function


    ''' <summary>
    ''' 树状目录点击事件
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub TreeView1_NodeMouseClick(sender As Object, e As TreeNodeMouseClickEventArgs) Handles TreeView1.NodeMouseClick
        'Console.WriteLine(e.Node.Text & " " & e.Node.Index & " " & e.Node.Level & " " & e.Node.FullPath)
        'Grid5.DisplayRowNumber = True
        Dim str As String() = e.Node.Text.Split($"-")
        'Console.WriteLine($"点击酒店：" & str(0))

        Grid5.NewFile()
        InitHotelTable()

        Dim rowCount As Integer = 0
        Dim dic As New Dictionary(Of String, Integer)
        For index = 0 To _loginData.Values.Count - 1
            If str(0) = _loginData.Values(index).HotelGroupsName Then
                'HotelGroupsName = _loginData.Values(index).HotelGroupsName
                If dic.ContainsKey(_loginData.Values(index).Code) = False Then
                    dic.Add(_loginData.Values(index).Code, 1)
                    Grid5.Rows += 1
                    rowCount += 1
                    Grid5.Cell(rowCount, 1).Text = _loginData.Values(index).Code

                    Grid5.Cell(rowCount, 2).Text = _loginData.Values(index).HotelName
                    'Grid5.Cell(rowCount, 1).Text = _loginData.Values(_loginData.Values.Count - 1 - index).Code
                    'Grid5.Cell(rowCount, 2).Text = _loginData.Values(_loginData.Values.Count - 1 - index).HotelName
                End If
            ElseIf str(0) = $"{LanguageData.StringList(MultiLanguageDAL.StringEnum.AllHotel)}" Then
                'HotelGroupsName = _loginData.Values(index).HotelGroupsName
                If dic.ContainsKey(_loginData.Values(index).Code) = False Then
                    dic.Add(_loginData.Values(index).Code, 1)
                    Grid5.Rows += 1
                    rowCount += 1
                    Grid5.Cell(rowCount, 1).Text = _loginData.Values(index).Code
                    Grid5.Cell(rowCount, 2).Text = _loginData.Values(index).HotelName
                    'Grid5.Cell(rowCount, 1).Text = _loginData.Values(_loginData.Values.Count - 1 - index).Code
                    'Grid5.Cell(rowCount, 2).Text = _loginData.Values(_loginData.Values.Count - 1 - index).HotelName
                End If
            End If
        Next
    End Sub


    ''' <summary>
    ''' 酒店区域表列名_枚举
    ''' </summary>
    Enum HotelDataCol
        ''' <summary> 空 </summary>
        Null

        ''' <summary> 项目编码 </summary>
        ProjectNumber

        ''' <summary> 酒店名称 </summary>
        HotelName
    End Enum

    ''' <summary>
    ''' 酒店区域表列名
    ''' </summary>
    Private _hotelTable() As String = {$"0", $"{LanguageData.StringList(MultiLanguageDAL.StringEnum.ProjectCode)}", $"{LanguageData.StringList(MultiLanguageDAL.StringEnum.HotelName)}"}

    ''' <summary>
    ''' 初始化酒店表格
    ''' </summary>
    Private Sub InitHotelTable()
        Grid5.Column(0).Width = 0
        Grid5.Cols = _hotelTable.Length
        Grid5.Rows = 1

        For index = 1 To Grid5.Cols - 1
            With Grid5.Cell(0, index)
                .ForeColor = Color.Blue
                .Text = _hotelTable(index)
                .ForeColor = Color.DarkCyan
            End With

            With Grid5.Column(index)
                .Alignment = FlexCell.AlignmentEnum.CenterCenter
                If index = HotelDataCol.ProjectNumber Then
                    .Width = 75
                Else
                    .Width = 180
                End If
            End With
        Next
        Grid5.SelectionMode = FlexCell.SelectionModeEnum.ByRow  '设置选中行
        Grid5.AllowUserSort = True
    End Sub


    Private Sub InitLoadHotelInfo()
        Dim amountGrpByDates = From row In _userData
                               Group row By dateGroup = New With {
                                                    Key .Code = row.Field(Of Integer)(_userData.Columns(8).ColumnName),
                                                    Key .Name = row.Field(Of String)(_userData.Columns(7).ColumnName)
                                               } Into Group
                               Select New With {
                                      Key .Code = dateGroup.Code,
                                      .Name = dateGroup.Name}
        Dim lst = amountGrpByDates.ToList

        For index = 0 To lst.Count - 1
            Grid5.Rows += 1
            Grid5.Cell(index + 1, 1).Text = lst(index).Code     '项目编码
            Grid5.Cell(index + 1, 2).Text = lst(index).Name     '酒店名称
        Next
    End Sub


    ''' <summary>
    ''' 关闭窗体
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        My.Settings.ProjectCode = _projectNumber
        My.Settings.HotelName = _HotelName
        My.Settings.UserName = _userNames
        My.Settings.Save()
        Close()
    End Sub

#End Region

#Region "窗体关闭事件"

    ''' <summary>
    ''' 窗体关闭事件
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub FrmHotelList_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        My.Settings.ProjectCode = _projectNumber
        My.Settings.HotelName = _HotelName
        My.Settings.UserName = _userNames
        My.Settings.Save()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If IsNothing(Grid5) AndAlso Grid5.Rows < 1 AndAlso String.IsNullOrEmpty（TextBox1.Text.Trim） Then Return
        Dim tabstr As String
        For index As Integer = 1 To Grid5.Rows - 1
            tabstr = Grid5.Cell(index, 1).Text.Trim & Grid5.Cell(index, 2).Text.Trim
            If tabstr.Contains(TextBox1.Text.Trim) Then
                Grid5.Row(index).Position = 1
            End If
        Next

    End Sub

















#End Region


End Class