初始化
This commit is contained in:
457
BLV_Studio/Control/FrmHotelList.vb
Normal file
457
BLV_Studio/Control/FrmHotelList.vb
Normal file
@@ -0,0 +1,457 @@
|
||||
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
|
||||
Reference in New Issue
Block a user