401 lines
14 KiB
VB.net
401 lines
14 KiB
VB.net
Public Class FrmChangeHotel
|
||
Private _defalut As Boolean
|
||
|
||
''' <summary>
|
||
''' 客户索引
|
||
''' </summary>
|
||
''' <returns></returns>
|
||
Public Property VerderIndex As String
|
||
|
||
''' <summary>
|
||
''' 客户名称
|
||
''' </summary>
|
||
''' <returns></returns>
|
||
Public Property VerderName As String
|
||
|
||
''' <summary>
|
||
''' 客户索引
|
||
''' </summary>
|
||
''' <returns></returns>
|
||
Public Property HotelIndex As String
|
||
|
||
|
||
''' <summary>
|
||
''' 酒店四位数字代号，在TBL_HOTEL_BASIC_INFO 数据表中对应 “PROJECT_NUMBER”字段
|
||
''' </summary>
|
||
''' <returns></returns>
|
||
Public Property HotelCode As String
|
||
|
||
|
||
''' <summary>
|
||
''' 酒店名称
|
||
''' </summary>
|
||
''' <returns></returns>
|
||
Public Property HotelName As String
|
||
|
||
|
||
''' <summary>
|
||
''' 账号权限
|
||
''' </summary>
|
||
''' <returns></returns>
|
||
Public Property AccountAuth As AccountAuth
|
||
|
||
|
||
''' <summary>
|
||
''' 酒店个数
|
||
''' </summary>
|
||
Private _count As Integer = 0
|
||
|
||
|
||
''' <summary>
|
||
''' 酒店信息列表
|
||
''' </summary>
|
||
Private g_Hotel_List As New List(Of Struc_HotelList) '当选定酒店组以后，将该酒店组下的酒店信息保存在这个list中
|
||
|
||
''' <summary>
|
||
''' 当前选中的tree view节点信息
|
||
''' </summary>
|
||
Private g_Current_Selected_TreeView_Node As Struc_TreeView_NodeInfo
|
||
|
||
''' <summary>当前选择的酒店组</summary>
|
||
Private _selectGroup As HotelGroup
|
||
|
||
'treeview信息
|
||
Public Structure Struc_TreeView_NodeInfo
|
||
Public Node_Level As Integer
|
||
Public Node_Idx As Integer
|
||
Public Node_Text As String
|
||
Public Node_BackColor As Color
|
||
End Structure
|
||
|
||
'酒店信息
|
||
Public Structure Struc_HotelList
|
||
Public HotelId As String
|
||
Public HotelCode As String
|
||
Public HotelName As String
|
||
Public HotelGroupsId As String
|
||
Public HotelGroupsName As String
|
||
End Structure
|
||
|
||
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
|
||
VerderName = lab_CurrentHotelGroup.Text
|
||
|
||
If String.IsNullOrEmpty(VerderName) Then
|
||
MsgBox("酒店组无效")
|
||
GoTo lab_ErrHandle
|
||
End If
|
||
|
||
If String.IsNullOrEmpty(HotelCode) Then
|
||
MsgBox("HotelCode无效")
|
||
GoTo lab_ErrHandle
|
||
End If
|
||
|
||
If String.IsNullOrEmpty(HotelName) Then
|
||
MsgBox("酒店名称无效")
|
||
GoTo lab_ErrHandle
|
||
End If
|
||
|
||
Me.DialogResult = System.Windows.Forms.DialogResult.OK
|
||
Me.Close()
|
||
Return
|
||
|
||
lab_ErrHandle:
|
||
VerderName = ""
|
||
HotelCode = ""
|
||
HotelName = ""
|
||
Return
|
||
|
||
End Sub
|
||
|
||
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
|
||
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
|
||
Me.Close()
|
||
End Sub
|
||
|
||
|
||
Private Sub FrmChangeHotel_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||
Text = $"{Application.ProductName} {Application.ProductVersion}"
|
||
|
||
If String.IsNullOrEmpty(VerderIndex) OrElse String.IsNullOrEmpty(HotelIndex) Then
|
||
_defalut = False
|
||
Else
|
||
_defalut = True
|
||
End If
|
||
|
||
'查询所有厂商
|
||
tv_GroupList.Nodes.Clear()
|
||
tv_GroupList.Nodes.Add("所有酒店")
|
||
tv_GroupList.Nodes(0).ForeColor = Color.Blue
|
||
tv_GroupList.Nodes(0).NodeFont = New Font("幼圆", 12, FontStyle.Bold)
|
||
tv_GroupList.Nodes(0).ImageIndex = 2
|
||
|
||
Dim node As TreeNode = tv_GroupList.Nodes(0)
|
||
Dim tmpReslut As Boolean = False
|
||
|
||
For Each group As HotelGroup In AccountAuth.HotelData
|
||
'遍历所有酒店组，将酒店组添加到tree view控件中
|
||
node.Nodes.Add(group.HotelGroupsName)
|
||
|
||
If _defalut AndAlso group.HotelGroupsId = VerderIndex Then
|
||
'匹配酒店组默认值
|
||
tmpReslut = MatchHotelGroup(group.HotelGroupsName, g_Current_Selected_TreeView_Node)
|
||
If tmpReslut = True Then
|
||
lab_CurrentHotelGroup.Text = group.HotelGroupsName
|
||
'匹配酒店默认值’
|
||
tmpReslut = MatchHotelName(HotelName)
|
||
If tmpReslut = True Then
|
||
lab_CurrentHotel.Text = HotelName
|
||
Else
|
||
lab_CurrentHotel.Text = ""
|
||
End If
|
||
Else
|
||
lab_CurrentHotelGroup.Text = ""
|
||
End If
|
||
End If
|
||
Next
|
||
|
||
tv_GroupList.ExpandAll()
|
||
|
||
_defalut = False
|
||
End Sub
|
||
|
||
'Private Sub CboVendor_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboVendor.SelectedIndexChanged
|
||
' If CboVendor.SelectedIndex = -1 Then Return
|
||
|
||
' For Each group As HotelGroup In AccountAuth.HotelData
|
||
' If group.HotelGroupsName <> CboVendor.Text Then Continue For
|
||
|
||
' _selectGroup = group
|
||
|
||
' CboHotel.Items.Clear()
|
||
|
||
|
||
' For Each hotel As Hotel In group.Hotels
|
||
' CboHotel.Items.Add(hotel.HotelName)
|
||
' If _defalut AndAlso hotel.HotelId = HotelIndex Then CboHotel.SelectedIndex = CboHotel.Items.Count - 1
|
||
' Next
|
||
|
||
' If _defalut = False AndAlso CboHotel.Items.Count > 0 Then CboHotel.SelectedIndex = 0
|
||
' 'If CboHotel.Items.Count > 0 Then CboHotel.SelectedIndex = 0
|
||
|
||
' VerderIndex = group.HotelGroupsId
|
||
' VerderName = group.HotelGroupsName
|
||
' Exit For
|
||
' Next
|
||
|
||
'End Sub
|
||
|
||
'Private Sub CboHotel_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboHotel.SelectedIndexChanged
|
||
' If CboHotel.SelectedIndex = -1 Then Return
|
||
' If _selectGroup Is Nothing Then Return
|
||
|
||
' For Each hotel As Hotel In _selectGroup.Hotels
|
||
' If hotel.HotelName <> CboHotel.Text Then Continue For
|
||
|
||
' HotelIndex = hotel.HotelId
|
||
' HotelName = hotel.HotelName
|
||
|
||
' Exit For
|
||
' Next
|
||
|
||
'End Sub
|
||
|
||
Private Sub tv_GroupList_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles tv_GroupList.AfterSelect
|
||
Dim tmpHotelInfo As Struc_HotelList
|
||
Dim tmpStrSelectGroupName As String = e.Node.Text
|
||
Dim node As TreeNode = tv_GroupList.Nodes(0)
|
||
|
||
For Each node In node.Nodes
|
||
tv_GroupList.Nodes(0).BackColor = Color.White
|
||
tv_GroupList.Nodes(0).ForeColor = Color.Black
|
||
node.BackColor = Color.White
|
||
node.ForeColor = Color.Black
|
||
Next
|
||
|
||
e.Node.BackColor = Color.CornflowerBlue
|
||
e.Node.ForeColor = Color.White
|
||
|
||
'清空列表
|
||
g_Hotel_List.Clear()
|
||
For Each group As HotelGroup In AccountAuth.HotelData
|
||
If tv_GroupList.SelectedNode.Text = "所有酒店" Then
|
||
For Each hotel As Hotel In group.Hotels
|
||
tmpHotelInfo.HotelId = hotel.HotelId
|
||
tmpHotelInfo.HotelCode = hotel.Code
|
||
tmpHotelInfo.HotelName = hotel.HotelName
|
||
tmpHotelInfo.HotelGroupsId = group.HotelGroupsId
|
||
tmpHotelInfo.HotelGroupsName = group.HotelGroupsName
|
||
g_Hotel_List.Add(tmpHotelInfo)
|
||
Next
|
||
|
||
|
||
|
||
' Return '如果选中根节点，则退出
|
||
'todo：选中“所有酒店”则将所有的酒店都列在数据表中
|
||
Else
|
||
If group.HotelGroupsName <> tmpStrSelectGroupName Then Continue For '未匹配到节点
|
||
_selectGroup = group
|
||
'Console.WriteLine($"group.Hotels================={group.Hotels.Count }")
|
||
lab_CurrentHotelGroup.Text = tmpStrSelectGroupName
|
||
|
||
For Each hotel As Hotel In group.Hotels
|
||
tmpHotelInfo.HotelId = hotel.HotelId
|
||
tmpHotelInfo.HotelCode = hotel.Code
|
||
tmpHotelInfo.HotelName = hotel.HotelName
|
||
tmpHotelInfo.HotelGroupsId = group.HotelGroupsId
|
||
tmpHotelInfo.HotelGroupsName = group.HotelGroupsName
|
||
g_Hotel_List.Add(tmpHotelInfo)
|
||
Next
|
||
|
||
VerderIndex = group.HotelGroupsId
|
||
VerderName = group.HotelGroupsName
|
||
|
||
HotelName = ""
|
||
lab_CurrentHotel.Text = HotelName
|
||
|
||
|
||
Exit For
|
||
End If
|
||
Next
|
||
Update_Grid(g_Hotel_List)
|
||
End Sub
|
||
|
||
#Region "酒店选择 "
|
||
|
||
Private Function MatchHotelName(ByVal HotelHotelName As String) As Boolean
|
||
For i = 1 To grd_HolteList.Rows - 1
|
||
If grd_HolteList.Cell(i, 3).Text = HotelHotelName Then
|
||
grd_HolteList.Range(i, 1, i, 3).BackColor = Color.LightCyan
|
||
Return True
|
||
End If
|
||
Next
|
||
HotelName = ""
|
||
Return False
|
||
End Function
|
||
Private Function MatchHotelGroup(ByVal GroupName As String, ByRef SelectedTreeNode As Struc_TreeView_NodeInfo) As Boolean
|
||
Dim node As TreeNode = tv_GroupList.Nodes(0)
|
||
Dim tmpHotelInfo As Struc_HotelList
|
||
|
||
'遍历一级子节点
|
||
For Each node In node.Nodes
|
||
'匹配到组名
|
||
If node.Text = GroupName Then
|
||
SelectedTreeNode.Node_Level = 0
|
||
SelectedTreeNode.Node_Idx = node.Index
|
||
SelectedTreeNode.Node_Text = GroupName
|
||
SelectedTreeNode.Node_BackColor = Color.CornflowerBlue
|
||
node.BackColor = Color.CornflowerBlue
|
||
|
||
'列出所有酒店
|
||
'清空列表
|
||
g_Hotel_List.Clear()
|
||
|
||
For Each group As HotelGroup In AccountAuth.HotelData
|
||
If group.HotelGroupsName <> GroupName Then Continue For '未匹配到节点
|
||
_selectGroup = group
|
||
|
||
|
||
For Each hotel As Hotel In group.Hotels
|
||
tmpHotelInfo.HotelCode = hotel.Code
|
||
tmpHotelInfo.HotelName = hotel.HotelName
|
||
tmpHotelInfo.HotelId = hotel.HotelId
|
||
tmpHotelInfo.HotelGroupsId = group.HotelGroupsId
|
||
tmpHotelInfo.HotelGroupsName = group.HotelGroupsName
|
||
g_Hotel_List.Add(tmpHotelInfo)
|
||
Next
|
||
|
||
VerderIndex = group.HotelGroupsId
|
||
VerderName = group.HotelGroupsName
|
||
|
||
Update_Grid(g_Hotel_List)
|
||
Exit For
|
||
Next
|
||
|
||
Return True
|
||
End If
|
||
Next
|
||
Return False
|
||
End Function
|
||
|
||
Private Sub Update_Grid(HotelInfoList As List(Of Struc_HotelList))
|
||
grd_HolteList.AutoRedraw = False
|
||
|
||
With grd_HolteList
|
||
.Rows = HotelInfoList.Count + 1
|
||
.Cols = 4
|
||
.DefaultRowHeight = 20
|
||
.Column(1).Width = 60
|
||
.Column(2).Width = 60
|
||
.Column(3).Width = 210
|
||
.Column(1).Alignment = FlexCell.AlignmentEnum.CenterCenter
|
||
.Column(2).Alignment = FlexCell.AlignmentEnum.CenterCenter
|
||
.Column(2).Alignment = FlexCell.AlignmentEnum.LeftCenter
|
||
.Font = New Font("Arial", 10, FontStyle.Bold)
|
||
.AllowUserResizing = FlexCell.ResizeEnum.None
|
||
.ExtendLastCol = True
|
||
End With
|
||
|
||
grd_HolteList.Cell(0, 1).Text = "ID"
|
||
grd_HolteList.Cell(0, 2).Text = "Code"
|
||
grd_HolteList.Cell(0, 3).Text = "酒店名称"
|
||
grd_HolteList.Cell(0, 2).Alignment = FlexCell.AlignmentEnum.CenterCenter
|
||
|
||
For i = 1 To HotelInfoList.Count
|
||
grd_HolteList.Range(i, 1, i, 3).BackColor = Color.White
|
||
grd_HolteList.Cell(i, 0).Text = i
|
||
grd_HolteList.Cell(i, 1).Text = HotelInfoList(i - 1).HotelId
|
||
grd_HolteList.Cell(i, 2).Text = HotelInfoList(i - 1).HotelCode
|
||
grd_HolteList.Cell(i, 3).Text = HotelInfoList(i - 1).HotelName
|
||
grd_HolteList.Cell(i, 2).Tag = HotelInfoList(i - 1).HotelGroupsId
|
||
grd_HolteList.Cell(i, 3).Tag = HotelInfoList(i - 1).HotelGroupsName
|
||
Next
|
||
|
||
grd_HolteList.Refresh()
|
||
grd_HolteList.AutoRedraw = True
|
||
End Sub
|
||
|
||
Private Sub grd_HolteList_MouseClick(sender As Object, e As MouseEventArgs) Handles grd_HolteList.MouseClick
|
||
grd_HolteList.AutoRedraw = False
|
||
|
||
grd_HolteList.Range(1, 1, grd_HolteList.Rows - 1, 3).BackColor = Color.White
|
||
|
||
grd_HolteList.Range(grd_HolteList.ActiveCell.Row, 1, grd_HolteList.ActiveCell.Row, 3).BackColor = Color.LightCyan
|
||
|
||
grd_HolteList.Refresh()
|
||
grd_HolteList.AutoRedraw = True
|
||
|
||
lab_CurrentHotel.Text = grd_HolteList.Cell(grd_HolteList.ActiveCell.Row, 3).Text
|
||
HotelName = lab_CurrentHotel.Text
|
||
HotelCode = grd_HolteList.Cell(grd_HolteList.ActiveCell.Row, 2).Text
|
||
HotelIndex = grd_HolteList.Cell(grd_HolteList.ActiveCell.Row, 1).Text
|
||
|
||
|
||
VerderIndex = grd_HolteList.Cell(grd_HolteList.ActiveCell.Row, 2).Tag
|
||
VerderName = grd_HolteList.Cell(grd_HolteList.ActiveCell.Row, 3).Tag
|
||
lab_CurrentHotelGroup.Text = VerderName
|
||
'tmpHotelInfo.HotelGroupsId = group.HotelGroupsId
|
||
'tmpHotelInfo.HotelGroupsName = group.HotelGroupsName
|
||
'HotelName = ""
|
||
'lab_CurrentHotel.Text = HotelName
|
||
|
||
|
||
|
||
End Sub
|
||
|
||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||
If IsNothing(grd_HolteList) AndAlso grd_HolteList.Rows < 1 AndAlso String.IsNullOrEmpty（TextBox1.Text.Trim） Then Return
|
||
Dim tabstr As String
|
||
For index As Integer = 1 To grd_HolteList.Rows - 1
|
||
tabstr = grd_HolteList.Cell(index, 2).Text.Trim & grd_HolteList.Cell(index, 3).Text.Trim
|
||
If tabstr.Contains(TextBox1.Text.Trim) Then
|
||
grd_HolteList.Row(index).Position = 1
|
||
End If
|
||
Next
|
||
|
||
End Sub
|
||
|
||
|
||
#End Region
|
||
|
||
End Class
|