274 lines
10 KiB
VB.net
274 lines
10 KiB
VB.net
|
Public Class ReleaseControl_frn
|
|||
|
|
|
|||
|
|
Public tmpMsgBox As String = ""
|
|||
|
|
|
|||
|
|
Public notegBox As String = ""
|
|||
|
|
|
|||
|
|
Public Firmware_txt As String = ""
|
|||
|
|
Public ComboBox1_txt As String = ""
|
|||
|
|
|
|||
|
|
Public FirmwareList As List(Of Dictionary(Of String, String))
|
|||
|
|
Public devmodefirmware As Dictionary(Of String, String)
|
|||
|
|
Private Firmwarefilename As New Dictionary(Of String, String()）
|
|||
|
|
|
|||
|
|
Private Firmwarefilenamev4 As New Dictionary(Of String, String()）
|
|||
|
|
|
|||
|
|
Public FromDic As New Dictionary(Of String, String()）
|
|||
|
|
Public ServiceNumber As Integer
|
|||
|
|
|
|||
|
|
Private Function Ischeckdevmodefirmware(filename As String) As Boolean
|
|||
|
|
If IsNothing(devmodefirmware) OrElse devmodefirmware.Count = 0 Then
|
|||
|
|
Return False
|
|||
|
|
End If
|
|||
|
|
If devmodefirmware.ContainsKey(filename) Then
|
|||
|
|
Return True
|
|||
|
|
Else
|
|||
|
|
Return False
|
|||
|
|
End If
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
Private Sub ReleaseControl_frn_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|||
|
|
Firmware_box.Items.Clear()
|
|||
|
|
ComboBox1.Items.Clear()
|
|||
|
|
Firmwarefilenamev4.Clear()
|
|||
|
|
Firmwarefilename.Clear()
|
|||
|
|
Dim cbo As ComboBox
|
|||
|
|
Dim ndic As Dictionary(Of String, String()）
|
|||
|
|
Dim ver As Integer = 0
|
|||
|
|
If Not IsNothing(FirmwareList) AndAlso FirmwareList.Count > 0 Then
|
|||
|
|
'Firmwarefilename=New Dictionary(Of string,string）
|
|||
|
|
For Each dic In FirmwareList
|
|||
|
|
'Firmwarefilename.Add (dic.Item("FileName"),dic.Item("MD5Val"))
|
|||
|
|
|
|||
|
|
Dim buff(4) As String
|
|||
|
|
buff(0) = dic.Item("AppType")
|
|||
|
|
buff(1) = dic.Item("FileName")
|
|||
|
|
buff(2) = dic.Item("MD5Val")
|
|||
|
|
buff(3) = dic.Item("Remark")
|
|||
|
|
|
|||
|
|
If dic.Item("Luncher_Ver").Equals("C1_L2") Then
|
|||
|
|
If ServiceNumber = 64 Then
|
|||
|
|
Integer.TryParse(dic.Item("Ver"), ver)
|
|||
|
|
If ver > 41 Then
|
|||
|
|
Firmware_box.Items.Add(dic.Item("FileName"))
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Else
|
|||
|
|
Firmware_box.Items.Add(dic.Item("FileName"))
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
If Firmwarefilename.ContainsKey(dic.Item("FileName")) Then
|
|||
|
|
Firmwarefilename.Item(dic.Item("FileName")) = buff
|
|||
|
|
Else
|
|||
|
|
Firmwarefilename.Add(dic.Item("FileName"), buff)
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If Firmware_txt.Equals(dic.Item("FileName")) Then
|
|||
|
|
Firmware_box.Text = dic.Item("FileName")
|
|||
|
|
Firmware_box.SelectedItem = dic.Item("FileName")
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
ElseIf dic.Item("Luncher_Ver").Equals("C1_L4") Then
|
|||
|
|
|
|||
|
|
|
|||
|
|
If ServiceNumber = 64 Then
|
|||
|
|
Integer.TryParse(dic.Item("Ver"), ver)
|
|||
|
|
If ver > 41 Then
|
|||
|
|
ComboBox1.Items.Add(dic.Item("FileName"))
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Else
|
|||
|
|
ComboBox1.Items.Add(dic.Item("FileName"))
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
|
|||
|
|
If Firmwarefilenamev4.ContainsKey(dic.Item("FileName")) Then
|
|||
|
|
Firmwarefilenamev4.Item(dic.Item("FileName")) = buff
|
|||
|
|
Else
|
|||
|
|
Firmwarefilenamev4.Add(dic.Item("FileName"), buff)
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If ComboBox1_txt.Equals(dic.Item("FileName")) Then
|
|||
|
|
ComboBox1.Text = dic.Item("FileName")
|
|||
|
|
ComboBox1.SelectedItem = dic.Item("FileName")
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Next
|
|||
|
|
Else
|
|||
|
|
MsgBox($"无可用固件！请联系工程师")
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
UpdateVersion_lab.Text = tmpMsgBox
|
|||
|
|
ReleaseNotes_txt.Text = notegBox
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
Public Event ReleaseControlData(ReleasePassword As String， ReleaseNote As String, Firmwarefilename As Dictionary(Of String, String）)
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub Confirm_btn_Click(sender As Object, e As EventArgs) Handles Confirm_btn.Click
|
|||
|
|
'ReleasePassword_txt
|
|||
|
|
FromDic.Clear()
|
|||
|
|
If IsNothing(Firmwarefilename) OrElse Firmwarefilename.Count = 0 Then
|
|||
|
|
MsgBox($"未选择固件")
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
|
|||
|
|
If String.IsNullOrEmpty(ReleaseNotes_txt.Text) Then
|
|||
|
|
MsgBox($"未输入发布备注")
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
If String.IsNullOrEmpty(ReleasePassword_txt.Text) Then
|
|||
|
|
MsgBox($"未输入发布密码")
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If CheckBox2.Checked Then
|
|||
|
|
If IsNothing(Firmwarefilename) OrElse Firmwarefilename.Count = 0 Then
|
|||
|
|
MsgBox($"未选择LV2固件")
|
|||
|
|
Return
|
|||
|
|
Else
|
|||
|
|
If Firmwarefilename.ContainsKey(Firmware_box.Text) Then
|
|||
|
|
Dim sbuf As String() = Firmware_box.Text.Trim.Split("_")
|
|||
|
|
Dim bt As Integer = 0
|
|||
|
|
Integer.TryParse(sbuf(1), bt)
|
|||
|
|
|
|||
|
|
If ServiceNumber = 64 AndAlso bt < 42 Then
|
|||
|
|
MsgBox($"本主机配置需要使用的固件版本必须大于41！")
|
|||
|
|
Return
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
FromDic.Add("App_Cfg_For_L2", Firmwarefilename.Item(Firmware_box.Text))
|
|||
|
|
Else
|
|||
|
|
MsgBox($"LV2固件数据丢失")
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
'If Not Ischeckdevmodefirmware(FromDic.Item("App_Cfg_For_L2")(1)) Then
|
|||
|
|
' If MsgBox($"{FromDic.Item("App_Cfg_For_L2")(1)}{vbCrLf}该固件不适配所配置的主机和设备，强行发布将导致部分功能失效。{vbCrLf}是否强行发布? ", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
|
|||
|
|
' Else
|
|||
|
|
' Return
|
|||
|
|
' End If
|
|||
|
|
'End If
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If CheckBox4.Checked Then
|
|||
|
|
If IsNothing(Firmwarefilenamev4) OrElse Firmwarefilenamev4.Count = 0 Then
|
|||
|
|
MsgBox($"未选择LV4固件")
|
|||
|
|
Return
|
|||
|
|
Else
|
|||
|
|
If Firmwarefilenamev4.ContainsKey(ComboBox1.Text) Then
|
|||
|
|
Dim sbuf As String() = ComboBox1.Text.Trim.Split("_")
|
|||
|
|
Dim bt As Integer = 0
|
|||
|
|
Integer.TryParse(sbuf(3), bt)
|
|||
|
|
|
|||
|
|
If ServiceNumber = 64 AndAlso bt < 42 Then
|
|||
|
|
MsgBox($"本主机配置需要使用的固件版本必须大于41！")
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
FromDic.Add("App_Cfg_For_L4", Firmwarefilenamev4.Item(ComboBox1.Text))
|
|||
|
|
Else
|
|||
|
|
MsgBox($"LV4固件数据丢失")
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
'If Not Ischeckdevmodefirmware(FromDic.Item("App_Cfg_For_L4")(1)) Then
|
|||
|
|
' If MsgBox($"{FromDic.Item("App_Cfg_For_L4")(1)}{vbCrLf}该固件不适配所配置的主机和设备，强行发布将导致部分功能失效。{vbCrLf}是否强行发布? ", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
|
|||
|
|
' Else
|
|||
|
|
' Return
|
|||
|
|
' End If
|
|||
|
|
'End If
|
|||
|
|
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
if CheckBox4.Checked OrElse CheckBox2.Checked Then
|
|||
|
|
Else
|
|||
|
|
MsgBox($"未勾选固件文件！")
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
|
|||
|
|
Me.DialogResult = System.Windows.Forms.DialogResult.OK
|
|||
|
|
Me.Close()
|
|||
|
|
Return
|
|||
|
|
'RaiseEvent ReleaseControlData(ReleasePassword_txt.Text, ReleaseNotes_txt.Text, Firmwarefilename)
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub Cancel_btn_Click(sender As Object, e As EventArgs) Handles Cancel_btn.Click
|
|||
|
|
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
|
|||
|
|
Me.Close()
|
|||
|
|
'RaiseEvent ReleaseControlData("", "")
|
|||
|
|
'Me.Hide()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub Firmware_box_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles Firmware_box.SelectionChangeCommitted
|
|||
|
|
If Firmwarefilename.ContainsKey(Firmware_box.SelectedItem.ToString) Then
|
|||
|
|
TextBox1.Text = Firmwarefilename.Item(Firmware_box.SelectedItem.ToString)(3)
|
|||
|
|
End If
|
|||
|
|
'TextBox1.Text = Firmwarefilename.Item(Firmware_box.SelectedItem.ToString)(3)
|
|||
|
|
'If IsNothing(FirmwareList) OrElse FirmwareList.Count = 0 Then Return
|
|||
|
|
'If Firmwarefilename.ContainsKey (Firmware_box.Text) Then
|
|||
|
|
' FromDic .Add ("App_Cfg_For_L2",Firmwarefilename.Item (Firmware_box.Text))
|
|||
|
|
'End If
|
|||
|
|
'For Each fiemware In FirmwareList
|
|||
|
|
' If fiemware.Item("FileName").Equals(Firmware_box.Text) Then
|
|||
|
|
' Firmwarefilename.Clear()
|
|||
|
|
' Firmwarefilename = fiemware
|
|||
|
|
' TextBox1.Text = fiemware.Item("Remark")
|
|||
|
|
' End If
|
|||
|
|
'Next
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub ComboBox1_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles ComboBox1.SelectionChangeCommitted
|
|||
|
|
If Firmwarefilenamev4.ContainsKey(ComboBox1.SelectedItem.ToString) Then
|
|||
|
|
TextBox2.Text = Firmwarefilenamev4.Item(ComboBox1.SelectedItem.ToString)(3)
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
'TextBox2.Text = Firmwarefilenamev4.Item(ComboBox1.SelectedItem.ToString)(3)
|
|||
|
|
'If IsNothing(FirmwareList) OrElse FirmwareList.Count = 0 Then Return
|
|||
|
|
'For Each fiemware In FirmwareList
|
|||
|
|
' If fiemware.Item("FileName").Equals(ComboBox1.Text) Then
|
|||
|
|
' Firmwarefilenamev4.Clear()
|
|||
|
|
' Firmwarefilenamev4 = fiemware
|
|||
|
|
' TextBox2.Text = fiemware.Item("Remark")
|
|||
|
|
' End If
|
|||
|
|
'Next
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
|
|||
|
|
If Firmwarefilenamev4.ContainsKey(ComboBox1.SelectedItem.ToString) Then
|
|||
|
|
TextBox2.Text = Firmwarefilenamev4.Item(ComboBox1.SelectedItem.ToString)(3)
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub Firmware_box_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Firmware_box.SelectedIndexChanged
|
|||
|
|
If Firmwarefilename.ContainsKey(Firmware_box.SelectedItem.ToString) Then
|
|||
|
|
TextBox1.Text = Firmwarefilename.Item(Firmware_box.SelectedItem.ToString)(3)
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public Sub SetHiddenControl()
|
|||
|
|
' ReleaseNotes_txt.Visible = False
|
|||
|
|
UpdateVersion_lab.Visible = False
|
|||
|
|
Label1.Visible = False
|
|||
|
|
notegBox = $"{Now.ToString("yyyy-MM-dd HH:mm:ss")}{vbCrLf }更新配置固件"
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
End Class
|