528 lines
22 KiB
VB.net
528 lines
22 KiB
VB.net
Imports System.Text
|
||
Imports System.Xml
|
||
Imports BLV_Studio.TableInteraction
|
||
Imports FlexCell
|
||
Imports Newtonsoft.Json
|
||
|
||
Public Class DrSeverGrid
|
||
|
||
|
||
|
||
''' <summary>
|
||
''' 设备键值对 设备名-设备信息集合 主机=主机名 外设=外设名+播马地址
|
||
''' </summary>
|
||
Public Dic_Devicemodel As Dictionary(Of String， DeviceModel）
|
||
''' <summary>
|
||
''' 设备动作信息 设备名-动作信息集合
|
||
''' </summary>
|
||
Public Dic_ActionConfiguration As List(Of TableRowTag)
|
||
|
||
Public Dic_Dgrid As Grid
|
||
Public Dic_TimeZone As String
|
||
Public Dic_Bname As String
|
||
Public Dic_Cname As String
|
||
Public G_SceneID As Integer
|
||
Public ColumnAnothername As Dictionary(Of String， String)
|
||
Sub New(devlList As Dictionary(Of String， DeviceModel）, ActionConfiguration As List(Of TableRowTag), Dgrid As Grid， bname As String, Cname As String)
|
||
Dic_Devicemodel = devlList
|
||
Dic_ActionConfiguration = ActionConfiguration
|
||
Dic_Dgrid = Dgrid
|
||
Dic_Bname = bname
|
||
Dic_Cname = Cname
|
||
ColumnAnothername = New Dictionary(Of String, String)
|
||
'保存----------
|
||
'保存基类名称
|
||
'保存设备类对象
|
||
'保存动作
|
||
'提交-----
|
||
'下载-----
|
||
'解析到类对象
|
||
'加载设备对象
|
||
'加载设备对象约束
|
||
'加载动作
|
||
End Sub
|
||
#Region "Save"
|
||
|
||
|
||
''' <summary>
|
||
''' 保存模型信息至Xml文件
|
||
''' </summary>
|
||
''' <param name="OuputFullName">xml完整路径</param>
|
||
''' <returns></returns>
|
||
Public Function Save(OuputFullName As String) As Boolean
|
||
Dim xws As New XmlWriterSettings
|
||
Dim xmlpath As String = OuputFullName.Replace(".blv", ".xml")
|
||
Try
|
||
With xws
|
||
.Indent = True
|
||
.NewLineOnAttributes = False
|
||
.Encoding = New UTF8Encoding(False)
|
||
End With
|
||
IO.Directory.CreateDirectory(xmlpath.Substring(0, xmlpath.LastIndexOf("\")))
|
||
Using xw As XmlWriter = XmlWriter.Create(xmlpath, xws)
|
||
xw.WriteStartDocument()
|
||
xw.WriteStartElement($"RcuConfig") '创建跟节点
|
||
|
||
'新建基类文件名节点
|
||
xw.WriteStartElement($"BasicClassFilename") '创建表属性节点
|
||
xw.WriteString(Dic_Bname)
|
||
xw.WriteEndElement()
|
||
|
||
'新建条件文件名节点
|
||
xw.WriteStartElement($"ConctionFilename") '创建表属性节点
|
||
xw.WriteString(Dic_Cname)
|
||
xw.WriteEndElement()
|
||
|
||
xw.WriteStartElement($"DevNodes") '创建表属性节点
|
||
'For Each node In Dic_Devicemodel
|
||
xw.WriteString($"{JsonConvert.SerializeObject(Dic_Devicemodel)}")
|
||
'WriteRowNodeToXml(xw, node.Value)
|
||
' Next
|
||
xw.WriteEndElement()
|
||
|
||
xw.WriteStartElement($"Cols") '创建表属性节点
|
||
WriteColNodeToXml(xw)
|
||
xw.WriteEndElement()
|
||
|
||
xw.WriteStartElement($"Rows") '创建表属性节点
|
||
WriteRowNodeToXml(xw)
|
||
xw.WriteEndElement()
|
||
|
||
|
||
|
||
xw.WriteEndElement()
|
||
xw.WriteEndDocument()
|
||
End Using
|
||
|
||
If IO.File.Exists(OuputFullName) Then
|
||
IO.File.Delete(OuputFullName)
|
||
End If
|
||
Rename(xmlpath, OuputFullName)
|
||
' _isCellChanged = False '复位文件修改标记
|
||
Return True
|
||
|
||
Catch ex As Exception
|
||
MsgBox($"保存文件失败，{ex.Message}")
|
||
Return False
|
||
End Try
|
||
|
||
End Function
|
||
Public Sub WriteRowNodeToXml(xw As XmlWriter)
|
||
Dim row As Integer = 7
|
||
Dim li As New List(Of Integer)
|
||
For Each node In Dic_ActionConfiguration
|
||
xw.WriteStartElement($"DevName")
|
||
'xw.WriteString($"{node.G_DevModeName}")
|
||
xw.WriteAttributeString("DevName", $"{node.G_DevModeName}")
|
||
xw.WriteAttributeString("DataType", $"{node.G_DevNodeName}")
|
||
xw.WriteAttributeString("Name", $"{node.G_DevNodeIndex }")
|
||
xw.WriteAttributeString("KeyType", $"{JsonConvert.SerializeObject(node.G_KeyType) }")
|
||
xw.WriteAttributeString("DicRow", $"{JsonConvert.SerializeObject(node.G_DicRow) }")
|
||
li.Clear()
|
||
For Each index In node.G_DicRow.Keys
|
||
If Dic_Dgrid.Cell(row, index).ForeColor = Color.DarkRed Then
|
||
li.Add(index)
|
||
End If
|
||
Next
|
||
xw.WriteAttributeString("DicRowCheck", $"{JsonConvert.SerializeObject(li) }")
|
||
|
||
xw.WriteAttributeString("Tag", JsonConvert.SerializeObject(Dic_Dgrid.Cell(row, 6).Tag))
|
||
row += 1
|
||
|
||
xw.WriteEndElement()
|
||
Next
|
||
End Sub
|
||
|
||
Public Sub WriteColNodeToXml(xw As XmlWriter)
|
||
Dim fr, lr， fc, lc As Integer
|
||
For i = 8 To Dic_Dgrid.Cols - 1
|
||
With Dic_Dgrid.Range(1, i, 1, i)
|
||
fr = .FirstRow
|
||
lr = .LastRow
|
||
fc = .FirstCol
|
||
lc = .LastCol
|
||
If String.IsNullOrEmpty(Dic_Dgrid.Cell(fr, fc).Text) Then
|
||
i = lc
|
||
Continue For
|
||
End If
|
||
xw.WriteStartElement($"DevName")
|
||
xw.WriteAttributeString("DevName", $"{Dic_Dgrid.Cell(fr, fc).Text }")
|
||
|
||
i = lc
|
||
|
||
For j = fc To i
|
||
With Dic_Dgrid.Range(2, j, 2, j)
|
||
fr = .FirstRow
|
||
lr = .LastRow
|
||
fc = .FirstCol
|
||
lc = .LastCol
|
||
xw.WriteStartElement($"Function")
|
||
xw.WriteAttributeString("DataType", $"{Dic_Dgrid.Cell(fr, fc).Text }")
|
||
xw.WriteAttributeString("Name", $"{Dic_Dgrid.Cell(fr + 1, fc).Text }")
|
||
|
||
For cj = fc To lc
|
||
xw.WriteStartElement($"ID")
|
||
xw.WriteAttributeString("Val", $"{Dic_Dgrid.Cell(fr + 2, cj).Text }")
|
||
xw.WriteAttributeString("Name", $"{Dic_Dgrid.Cell(fr + 3, cj).Text }")
|
||
xw.WriteAttributeString("LockCol"， Dic_Dgrid.Column(cj).Visible)
|
||
|
||
xw.WriteEndElement()
|
||
Next
|
||
xw.WriteEndElement()
|
||
j = lc
|
||
End With
|
||
Next
|
||
|
||
|
||
End With
|
||
xw.WriteEndElement()
|
||
Next
|
||
|
||
|
||
End Sub
|
||
|
||
#End Region
|
||
|
||
|
||
#Region "LoadFile"
|
||
Public InsertColumn As Integer
|
||
Public Function LoadFile(OuputFullName As String)
|
||
|
||
Dim ts As DateTime = Now
|
||
Dim st As TimeSpan
|
||
'解析到类对象
|
||
Dim xd As New XmlDocument()
|
||
|
||
xd.Load(OuputFullName)
|
||
InsertColumn = 8
|
||
Dim xe， axe, bxe, cxe As XmlElement
|
||
Dim nodeList As XmlNodeList = xd.SelectSingleNode($"RcuConfig").ChildNodes
|
||
|
||
For Each node As XmlNode In nodeList
|
||
xe = CType(node, XmlElement)
|
||
Select Case xe.LocalName
|
||
Case "TimeZone"
|
||
Dic_TimeZone = xe.InnerText
|
||
Dic_Dgrid.Cell(TableRowNumber.FunctionAnotherName, TableColNumber.ServerAttribute).Text = Dic_TimeZone
|
||
Case "BasicClassFilename"
|
||
Dic_Bname = xe.InnerText
|
||
Case "ConctionFilename"
|
||
Dic_Cname = xe.InnerText
|
||
Case "DevNodes"
|
||
Dic_Devicemodel = JsonConvert.DeserializeObject(Of Dictionary(Of String， DeviceModel）)(xe.InnerText)
|
||
Case "Cols"
|
||
Dim DevName As String = String.Empty
|
||
Dim DataType As String = String.Empty
|
||
Dim Name As String = String.Empty
|
||
ColumnAnothername.Clear()
|
||
Dim startColumn = 8
|
||
For Each Index In xe.ChildNodes
|
||
axe = CType(Index, XmlElement)
|
||
DevName = axe.Attributes.GetNamedItem("DevName").InnerText
|
||
|
||
For Each aIndex In axe.ChildNodes
|
||
bxe = CType(aIndex, XmlElement)
|
||
DataType = bxe.Attributes.GetNamedItem("DataType").InnerText
|
||
Name = bxe.Attributes.GetNamedItem("Name").InnerText
|
||
|
||
Dic_Dgrid.InsertCol(InsertColumn, bxe.ChildNodes.Count)
|
||
|
||
Dic_Dgrid.Cell(1, startColumn).Text = DevName
|
||
With Dic_Dgrid.Range(1, startColumn, 1, InsertColumn + bxe.ChildNodes.Count - 1)
|
||
.Locked = False
|
||
.Merge()
|
||
.Locked = True
|
||
End With
|
||
|
||
|
||
Dic_Dgrid.Cell(3, InsertColumn).Text = Name
|
||
With Dic_Dgrid.Range(3, InsertColumn, 3, InsertColumn + bxe.ChildNodes.Count - 1)
|
||
.Locked = False
|
||
.Merge()
|
||
.Locked = True
|
||
End With
|
||
Dic_Dgrid.Cell(2, InsertColumn).Text = DataType
|
||
With Dic_Dgrid.Range(2, InsertColumn, 2, InsertColumn + bxe.ChildNodes.Count - 1)
|
||
.Locked = False
|
||
.Merge()
|
||
.Locked = True
|
||
End With
|
||
For Each bIndex In bxe.ChildNodes
|
||
cxe = CType(bIndex, XmlElement)
|
||
Dic_Dgrid.Column(InsertColumn).Width = 30
|
||
With Dic_Dgrid.Range(5, InsertColumn, 6, InsertColumn)
|
||
.Locked = False
|
||
.WrapText = True
|
||
.Merge()
|
||
End With
|
||
|
||
Dic_Dgrid.Cell(4, InsertColumn).Text = cxe.Attributes.GetNamedItem("Val").InnerText
|
||
Dic_Dgrid.Cell(5, InsertColumn).Text = cxe.Attributes.GetNamedItem("Name").InnerText
|
||
Dic_Dgrid.Column(InsertColumn).Visible = cxe.Attributes.GetNamedItem("LockCol").InnerText
|
||
|
||
Dim val As String = $"{DevName }*{Dic_Dgrid.Cell(4, InsertColumn).Text }*{DataType }"
|
||
Dim key As String = $"{DevName}_{ Dic_Dgrid.Cell(5, InsertColumn).Text}"
|
||
If ColumnAnothername.ContainsKey(key) Then
|
||
Else
|
||
For Each strval In ColumnAnothername
|
||
If strval.Value.Equals(val) Then
|
||
ColumnAnothername.Remove(strval.Key)
|
||
Exit For
|
||
End If
|
||
Next
|
||
ColumnAnothername.Add(key, val)
|
||
|
||
|
||
End If
|
||
|
||
InsertColumn += 1
|
||
Next
|
||
Next
|
||
startColumn = InsertColumn
|
||
Next
|
||
|
||
Dic_Dgrid.Column(InsertColumn).Width = 0
|
||
Dic_Dgrid.Range(1, 8, 5, Dic_Dgrid.Cols - 1).Alignment = AlignmentEnum.CenterCenter
|
||
'--------------设置列绑定
|
||
|
||
Case "Rows"
|
||
Dic_ActionConfiguration.Clear()
|
||
Dim rowlockli As New List(Of Integer)
|
||
Dim DicRowCheckli As New List(Of Integer)
|
||
For Each Index In xe.ChildNodes
|
||
axe = CType(Index, XmlElement)
|
||
Dim rowTag As New TableRowTag
|
||
rowTag.G_DevModeName = axe.Attributes.GetNamedItem("DevName").InnerText
|
||
rowTag.G_DevNodeName = axe.Attributes.GetNamedItem("DataType").InnerText
|
||
rowTag.G_DevNodeIndex = axe.Attributes.GetNamedItem("Name").InnerText
|
||
rowTag.G_KeyType = JsonConvert.DeserializeObject(Of List(Of String))(axe.Attributes.GetNamedItem("KeyType").InnerText)
|
||
rowTag.G_DicRow = JsonConvert.DeserializeObject(Of Dictionary(Of Integer, String))(axe.Attributes.GetNamedItem("DicRow").InnerText)
|
||
If axe.Attributes.Count = 7 Then
|
||
DicRowCheckli = JsonConvert.DeserializeObject(Of List(Of Integer))(axe.Attributes.GetNamedItem("DicRowCheck").InnerText)
|
||
End If
|
||
|
||
Dic_ActionConfiguration.Add(rowTag)
|
||
|
||
Dic_Dgrid.AddItem("")
|
||
For Each coltxt In rowTag.G_DicRow
|
||
|
||
If coltxt.Key = 6 Then
|
||
Dic_Dgrid.Cell(Dic_Dgrid.Rows - 1, coltxt.Key).Tag = JsonConvert.DeserializeObject(Of String)(axe.Attributes.GetNamedItem("Tag").InnerText)
|
||
Dim celltag As Dictionary(Of String, String) = JsonConvert.DeserializeObject(Of Dictionary(Of String, String))(Dic_Dgrid.Cell(Dic_Dgrid.Rows - 1, coltxt.Key).Tag)
|
||
If Not IsNothing(celltag) AndAlso celltag.ContainsKey("CallRow") AndAlso Not String.IsNullOrEmpty(celltag.Item("CallRow")) Then
|
||
' Dic_Dgrid.Row(Dic_Dgrid.Rows - 1)
|
||
rowlockli.Add(Dic_Dgrid.Rows - 1)
|
||
End If
|
||
|
||
End If
|
||
|
||
If coltxt.Key = 3 Then
|
||
Dim maxSceneID = CInt(coltxt.Value)
|
||
If G_SceneID < maxSceneID Then
|
||
G_SceneID = maxSceneID
|
||
End If
|
||
End If
|
||
If coltxt.Value.Contains("*") Then
|
||
Dim g_devname As New CtabRange(Dic_Dgrid, 2, coltxt.Key)
|
||
|
||
Dic_Dgrid.Cell(Dic_Dgrid.Rows - 1, coltxt.Key).Text = EstimateFilag(coltxt.Value, g_devname.devname)
|
||
Else
|
||
Dic_Dgrid.Cell(Dic_Dgrid.Rows - 1, coltxt.Key).Text = coltxt.Value
|
||
End If
|
||
Dic_Dgrid.Cell(Dic_Dgrid.Rows - 1, coltxt.Key).ForeColor = Color.Black
|
||
Next
|
||
|
||
Dim rname As String = GetgrdRange(Dic_Dgrid, Dic_Dgrid.Rows - 2, 1, 1)
|
||
|
||
If rowTag.G_DevNodeName.Equals("HOSTSERVICE") Then
|
||
If rname.Equals(rowTag.G_DevNodeName) Then
|
||
With Dic_Dgrid.Range(Dic_Dgrid.Rows - 2, 1, Dic_Dgrid.Rows - 1, 1)
|
||
.WrapText = True
|
||
.Locked = False
|
||
.Merge()
|
||
.Locked = True
|
||
End With
|
||
Else
|
||
Dic_Dgrid.Cell(Dic_Dgrid.Rows - 1, 1).Text = "HOSTSERVICE"
|
||
End If
|
||
|
||
Else
|
||
|
||
If rname.Equals(rowTag.G_DevModeName) Then
|
||
With Dic_Dgrid.Range(Dic_Dgrid.Rows - 2, 1, Dic_Dgrid.Rows - 1, 1)
|
||
.WrapText = True
|
||
.Locked = False
|
||
Dic_Dgrid.Cell(Dic_Dgrid.Rows - 1, 1).Text = rowTag.G_DevModeName
|
||
|
||
.Merge()
|
||
Dic_Dgrid.Cell(Dic_Dgrid.Rows - 1, 1).Text = rowTag.G_DevModeName
|
||
|
||
.Locked = True
|
||
End With
|
||
Dic_Dgrid.Cell(Dic_Dgrid.Rows - 1, 1).Text = rowTag.G_DevModeName
|
||
|
||
Else
|
||
Dic_Dgrid.Cell(Dic_Dgrid.Rows - 1, 1).Text = rowTag.G_DevModeName
|
||
|
||
End If
|
||
|
||
End If
|
||
|
||
If rowTag.G_DevNodeName.Equals("语音") Then
|
||
Dic_Dgrid.Row(Dic_Dgrid.Rows - 1).Locked = True
|
||
End If
|
||
|
||
For Each cIndex In DicRowCheckli
|
||
Dic_Dgrid.Cell(Dic_Dgrid.Rows - 1, cIndex).BackColor = Color.OrangeRed
|
||
Dic_Dgrid.Cell(Dic_Dgrid.Rows - 1, cIndex).ForeColor = Color.DarkRed
|
||
Next
|
||
|
||
Next
|
||
|
||
For Each index In rowlockli
|
||
Dic_Dgrid.Row(index).Locked = True
|
||
Next
|
||
|
||
|
||
|
||
|
||
Dic_Dgrid.Range(6, 0， Dic_Dgrid.Rows - 1, Dic_Dgrid.Cols - 1).Alignment = AlignmentEnum.CenterCenter
|
||
Dic_Dgrid.Range(7, 6, Dic_Dgrid.Rows - 1, Dic_Dgrid.Cols - 1).CellType = CellTypeEnum.ComboBox
|
||
Dic_Dgrid.Range(7, 2, Dic_Dgrid.Rows - 1, 2).CellType = CellTypeEnum.CheckBox
|
||
G_SceneID = G_SceneID + 1
|
||
|
||
Case Else
|
||
Throw New Exception($"LoadXml untreated localName:{xe.LocalName}")
|
||
End Select
|
||
Next
|
||
|
||
|
||
|
||
End Function
|
||
|
||
Public Function EstimateFilag(cellstr As String, nodename As String) As String
|
||
|
||
If String.IsNullOrEmpty(cellstr) OrElse String.IsNullOrEmpty(nodename) Then Return String.Empty
|
||
Dim tbuf() As String = cellstr.Split(vbLf)
|
||
Dim cbuf() As String = tbuf(0).Split(",")
|
||
If cbuf.Length < 2 Then Return String.Empty
|
||
Dim buf() As String = cbuf(cbuf.Length - 1).Split("*")
|
||
Dim result As String = String.Empty
|
||
Select Case nodename
|
||
Case "CLED_FRESHAIR"
|
||
'result = "CLED新风"
|
||
Case "CLEDFLOORHEAT"
|
||
'result = $"{buf(3)}"
|
||
Case "485FloorHeat"， "485FreshAir"
|
||
If buf.Length > 3 Then
|
||
cbuf = buf(3).Split(" ")
|
||
result = $"{cbuf(cbuf.Length - 1)}"
|
||
End If
|
||
|
||
'Case
|
||
'result = $"{buf(3)}"
|
||
Case "485MUSIC"
|
||
result = cellstr
|
||
'Case
|
||
|
||
' result = $"{buf(3)}"
|
||
Case "INFRARED_FORWARD"
|
||
If buf.Length = 3 Then
|
||
|
||
cbuf = buf(2).Split(" ")
|
||
result = $"{cbuf(cbuf.Length - 1)}"
|
||
ElseIf buf.Length > 3 Then
|
||
cbuf = buf(2).Split(" ")
|
||
result = $"{cbuf(cbuf.Length - 1)}"
|
||
cbuf = buf(3).Split(" ")
|
||
'result = $"{cbuf(cbuf.Length - 1)}"
|
||
result = $"{result}:{cbuf(cbuf.Length - 1)}"
|
||
End If
|
||
|
||
'Case
|
||
Case "RELAY"
|
||
|
||
If buf.Length > 2 Then
|
||
cbuf = buf(2).Split(" ")
|
||
result = $"{cbuf(cbuf.Length - 1)}"
|
||
If result.Equals("开") Then
|
||
result = Chr(TableColSwitchKeyDate.TurnOn).ToString()
|
||
ElseIf result.Equals("关") Then
|
||
result = Chr(TableColSwitchKeyDate.TurnDrown).ToString()
|
||
End If
|
||
End If
|
||
Case "Dimming"
|
||
|
||
If buf.Length > 2 Then
|
||
cbuf = buf(2).Split(" ")
|
||
result = $"{cbuf(cbuf.Length - 1)}"
|
||
If result.Equals("80") Then
|
||
result = Chr(TableColSwitchKeyDate.TurnOn).ToString()
|
||
ElseIf result.Equals("0") Then
|
||
result = Chr(TableColSwitchKeyDate.TurnDrown).ToString()
|
||
End If
|
||
End If
|
||
Case "PB_LINE_CONTROL", "PB_STRIP_DEVICE", "PB_LED_DEVICE"
|
||
result = cellstr
|
||
If buf.Length > 3 AndAlso tbuf(0).Contains("PB灯带亮度控制") Then
|
||
cbuf = buf(3).Split(" ")
|
||
result = $"{cbuf(cbuf.Length - 1)}"
|
||
If result.Equals("80") Then
|
||
result = Chr(TableColSwitchKeyDate.TurnOn).ToString()
|
||
ElseIf result.Equals("0") Then
|
||
result = Chr(TableColSwitchKeyDate.TurnDrown).ToString()
|
||
End If
|
||
End If
|
||
|
||
Case "DO", "LIGHT"， "DRY_CURTAIN", "RS485_Curtain", "CURTAIN"
|
||
If buf.Length > 2 Then
|
||
cbuf = buf(2).Split(" ")
|
||
result = $"{cbuf(cbuf.Length - 1)}"
|
||
End If
|
||
|
||
Case "MUSIC"
|
||
result = cellstr
|
||
'Case
|
||
' result = $"{buf(2)}"
|
||
'Case
|
||
' result = $"{buf(2)}"
|
||
Case "Temp"
|
||
If buf.Length > 5 Then
|
||
'cbuf = buf(3).Split(" ")
|
||
'result = $"{cbuf(cbuf.Length - 1)}"
|
||
cbuf = buf(4).Split(" ")
|
||
result = $"{cbuf(cbuf.Length - 1)}"
|
||
cbuf = buf(5).Split(" ")
|
||
result = $"{result}{cbuf(cbuf.Length - 1)}"
|
||
End If
|
||
|
||
Case Else
|
||
|
||
End Select
|
||
Return result
|
||
End Function
|
||
|
||
Public Function GetgrdRange(grd As Grid, r As Integer, c As Integer， selectstr As Integer) As String
|
||
Dim result As String = String.Empty
|
||
With grd.Range(r, c, r, c)
|
||
Select Case selectstr
|
||
Case 1
|
||
result = grd.Cell(.FirstRow, .FirstCol).Text
|
||
Case 2
|
||
result = .FirstCol
|
||
Case 3
|
||
result = .LastCol
|
||
Case 4
|
||
result = .FirstRow
|
||
Case 5
|
||
result = .LastRow
|
||
End Select
|
||
Return result
|
||
|
||
End With
|
||
End Function
|
||
#End Region
|
||
|
||
|
||
End Class
|