457 lines
15 KiB
VB.net
457 lines
15 KiB
VB.net
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 |