312 lines
12 KiB
VB.net
312 lines
12 KiB
VB.net
|
Imports System.IO
|
|||
|
|
Imports System.Security.Cryptography
|
|||
|
|
|
|||
|
|
Public Class HotelConfigurationLogic
|
|||
|
|
Public InsertFirmware As New Dictionary(Of String, String）
|
|||
|
|
Public InsertFirmwareV4 As New Dictionary(Of String, String）
|
|||
|
|
Private _dicPojer As Dictionary(Of String, String)
|
|||
|
|
Private _dicRoonType As Dictionary(Of String, String)
|
|||
|
|
|
|||
|
|
Public FileName As String
|
|||
|
|
Public SafeFileName As String
|
|||
|
|
Public FileNameV4 As String
|
|||
|
|
Public SafeFileNameV4 As String
|
|||
|
|
|
|||
|
|
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|||
|
|
SetAPP_FOR_Codev（False）
|
|||
|
|
'SetLauncher_cbointem(Launcher_cbo, "tbl_luncher_list", "Luncher_Name")
|
|||
|
|
DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
|||
|
|
DataGridView2.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
|||
|
|
End Sub
|
|||
|
|
Public Function SetLauncher_cbointem(cbo As ComboBox, tabname As String, clunm As String, Optional col As String = "", Optional hotel As Integer = 0) As Dictionary(Of String, String)
|
|||
|
|
cbo.Items.Clear()
|
|||
|
|
Dim udt As DataTable
|
|||
|
|
Dim dickey As String = ""
|
|||
|
|
Dim dicval As String = ""
|
|||
|
|
Dim dic As New Dictionary(Of String, String)
|
|||
|
|
Using db As New DbExecutor(DbExecutor.DbTypeEnum.Mysql, FrmMain.DbConnString)
|
|||
|
|
db.Open()
|
|||
|
|
If hotel <> 0 Then
|
|||
|
|
udt = db.ExecuteDataTable(db.CmdHelper.SearchAll(tabname, $"`HOTEL_OLD_ID`='{hotel}'"))
|
|||
|
|
Else
|
|||
|
|
udt = db.ExecuteDataTable(db.CmdHelper.SearchAll(tabname))
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
db.Close()
|
|||
|
|
End Using
|
|||
|
|
|
|||
|
|
If IsNothing(udt) Then
|
|||
|
|
Return Nothing
|
|||
|
|
Else
|
|||
|
|
For Each dtrow As DataRow In udt.Rows
|
|||
|
|
|
|||
|
|
For i As Integer = 0 To udt.Columns.Count - 1
|
|||
|
|
|
|||
|
|
If udt.Columns(i).ColumnName.Equals(clunm) Then
|
|||
|
|
|
|||
|
|
dickey = dtrow.Item(i).ToString
|
|||
|
|
ElseIf udt.Columns(i).ColumnName.Equals(col) Then
|
|||
|
|
dicval = dtrow.Item(i).ToString
|
|||
|
|
Else
|
|||
|
|
Continue For
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Next
|
|||
|
|
If String.IsNullOrWhiteSpace(dicval) Then
|
|||
|
|
dickey = dickey
|
|||
|
|
Else
|
|||
|
|
dickey = dicval & "_" & dickey
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If dic.ContainsKey(dickey) Then
|
|||
|
|
Continue For
|
|||
|
|
End If
|
|||
|
|
dic.Add(dickey, dicval)
|
|||
|
|
|
|||
|
|
Next
|
|||
|
|
cbo.Items.AddRange(dic.Keys.ToArray)
|
|||
|
|
End If
|
|||
|
|
Return dic
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub ComboBox1_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles Firmware_cbo.SelectionChangeCommitted
|
|||
|
|
If Firmware_cbo.SelectedItem.Equals("APP_FOR_Code") Then
|
|||
|
|
SetAPP_FOR_Codev(True)
|
|||
|
|
SetLauncher_cbointem(ApplicableModels_cbo, "tbl_rcu_model_list", "RCU_Model_Name")
|
|||
|
|
_dicPojer = SetLauncher_cbointem(FirmwarePojer_cbo, "tbl_hotel_basic_info", "HOTEL_NAME_CN", "IDOLD")
|
|||
|
|
|
|||
|
|
DataGridView1.Rows.Clear()
|
|||
|
|
For Each hot In _dicPojer
|
|||
|
|
DataGridView1.Rows.Add(hot.Key)
|
|||
|
|
Next
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public Sub SetAPP_FOR_Codev(flag As Boolean)
|
|||
|
|
ApplicableModels_cbo.Enabled = flag
|
|||
|
|
FirmwarePojer_cbo.Enabled = flag
|
|||
|
|
FirmwareHouseType_cbo.Enabled = flag
|
|||
|
|
Search_txt.Enabled = flag
|
|||
|
|
Search_btn.Enabled = flag
|
|||
|
|
DataGridView1.Enabled = flag
|
|||
|
|
DataGridView2.Enabled = flag
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Ok_btn.Click
|
|||
|
|
InsertFirmware.Clear()
|
|||
|
|
InsertFirmwareV4.Clear()
|
|||
|
|
If Not Firmware_cbo.Text.Length > 0 Then
|
|||
|
|
MsgBox("未选择上传固件类型")
|
|||
|
|
InsertFirmware.Clear()
|
|||
|
|
Return
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
If Not FirmwarePath_txt.Text.Length > 0 Then
|
|||
|
|
MsgBox("未选择上传固件")
|
|||
|
|
Return
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
If Not FirmwarePathV4_txt.Text.Length > 0 Then
|
|||
|
|
MsgBox("未选择上传固件")
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
If Not FirmwareVer_txt.Text.Length > 0 Then
|
|||
|
|
MsgBox("未输入上传固件版本")
|
|||
|
|
Return
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
' If Not FirmwareV4_txt.Text.Length > 0 Then
|
|||
|
|
' MsgBox("未输入上传固件版本")
|
|||
|
|
' Return
|
|||
|
|
|
|||
|
|
'End If
|
|||
|
|
'If Not Launcher_cbo.Text.Length > 0 Then
|
|||
|
|
' MsgBox("未选择上传固件Launcher")
|
|||
|
|
' Return
|
|||
|
|
|
|||
|
|
'End If
|
|||
|
|
If Firmware_cbo.SelectedItem.Equals("APP_FOR_Code") Then
|
|||
|
|
If Not ApplicableModels_cbo.Text.Length > 0 Then
|
|||
|
|
MsgBox("未选择固件适用机型")
|
|||
|
|
Return
|
|||
|
|
Else
|
|||
|
|
InsertFirmware.Add("AppForModel", ApplicableModels_cbo.Text)
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If Not DataGridView2.SelectedRows.Item(0).Cells(0).Value.Length > 0 Then
|
|||
|
|
MsgBox("未选择固件适用项目")
|
|||
|
|
Return
|
|||
|
|
Else
|
|||
|
|
'If _dicPojer.ContainsKey(FirmwarePojer_cbo.SelectedItem.ToString) Then
|
|||
|
|
' Dim clunm As String = _dicPojer.Item(FirmwarePojer_cbo.SelectedItem.ToString)
|
|||
|
|
' InsertFirmware.Add("HOTEL_ID", clunm)
|
|||
|
|
'End If
|
|||
|
|
If _dicPojer.ContainsKey(DataGridView1.SelectedRows.Item(0).Cells(0).Value) Then
|
|||
|
|
Dim clunm As String = _dicPojer.Item(DataGridView1.SelectedRows.Item(0).Cells(0).Value)
|
|||
|
|
InsertFirmware.Add("HOTEL_ID", clunm)
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If Not DataGridView2.SelectedRows.Item(0).Cells(0).Value.Length > 0 Then
|
|||
|
|
MsgBox("未选择固件适用户型")
|
|||
|
|
Return
|
|||
|
|
Else
|
|||
|
|
If _dicPojer.ContainsKey(DataGridView2.SelectedRows.Item(0).Cells(0).Value) Then
|
|||
|
|
Dim clunm As String = _dicPojer.Item(DataGridView2.SelectedRows.Item(0).Cells(0).Value)
|
|||
|
|
InsertFirmware.Add("ROOM_TYPE_ID", clunm)
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If Not Remark_txt.Text.Length > 0 Then
|
|||
|
|
MsgBox("未填写上传固件说明：")
|
|||
|
|
Return
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Dim filepath As String = FirmwarePath_txt.Text
|
|||
|
|
Dim filepathV4 As String = FirmwarePathV4_txt.Text
|
|||
|
|
Dim md5 As String = GetStringMd5(filepath)
|
|||
|
|
Dim v4md5 As String = GetStringMd5(filepathV4)
|
|||
|
|
Dim filename As String = filepath.Substring(filepath.LastIndexOf("\") + 1)
|
|||
|
|
Dim filenameV4 As String = filepathV4.Substring(filepathV4.LastIndexOf("\") + 1)
|
|||
|
|
InsertFirmware.Add("AppType", Firmware_cbo.Text)
|
|||
|
|
InsertFirmware.Add("FileName", filename)
|
|||
|
|
InsertFirmware.Add("MD5Val", md5)
|
|||
|
|
InsertFirmware.Add("Ver", FirmwareVer_txt.Text)
|
|||
|
|
'InsertFirmware.Add("Luncher_Ver", Launcher_cbo.Text)
|
|||
|
|
InsertFirmware.Add("Remark", Remark_txt.Text)
|
|||
|
|
InsertFirmware.Add("DateTime", Now.ToString("yyyy-MM-dd HH:mm:ss.fff"))
|
|||
|
|
InsertFirmware.Add("FilePath", "\Data\Firmware\".Replace("\", "\\"))
|
|||
|
|
InsertFirmware.Add("IsValid", "1")
|
|||
|
|
|
|||
|
|
For Each index In InsertFirmware
|
|||
|
|
InsertFirmwareV4.Add (index.Key,index .Value )
|
|||
|
|
Next
|
|||
|
|
|
|||
|
|
InsertFirmwareV4.Item("FileName") = filenameV4
|
|||
|
|
InsertFirmwareV4.Item("MD5Val") = v4md5
|
|||
|
|
'InsertFirmwarev4.Item("Ver")= FirmwareV4_txt.Text
|
|||
|
|
|
|||
|
|
Me.DialogResult = System.Windows.Forms.DialogResult.OK
|
|||
|
|
Me.Close()
|
|||
|
|
Return
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
Public Function GetStringMd5(filePath As String) As String
|
|||
|
|
Dim dataFile() As Byte = File.ReadAllBytes(filePath)
|
|||
|
|
Dim databuff As Byte() = MD5.Create().ComputeHash(dataFile)
|
|||
|
|
Dim MD5str As String = BitConverter.ToString(databuff)
|
|||
|
|
' Console.WriteLine($"md5-1:{MD5str}")
|
|||
|
|
Return MD5str.Replace("-", "")
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
Private Sub No_btn_Click(sender As Object, e As EventArgs) Handles No_btn.Click
|
|||
|
|
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
|
|||
|
|
Return
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub SelectFile_btn_Click(sender As Object, e As EventArgs) Handles SelectFile_btn.Click
|
|||
|
|
Dim openFileDialog As New OpenFileDialog
|
|||
|
|
openFileDialog.InitialDirectory = Application.StartupPath
|
|||
|
|
openFileDialog.RestoreDirectory = True
|
|||
|
|
openFileDialog.Title = "选择上传固件"
|
|||
|
|
openFileDialog.Filter = $"配置文件(*.hex)|*.hex"
|
|||
|
|
If openFileDialog.ShowDialog() = DialogResult.OK Then
|
|||
|
|
FirmwarePath_txt.Text = openFileDialog.FileName
|
|||
|
|
FileName = openFileDialog.FileName
|
|||
|
|
SafeFileName = openFileDialog.SafeFileName
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub FirmwarePojer_cbo_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles FirmwarePojer_cbo.SelectionChangeCommitted
|
|||
|
|
|
|||
|
|
If _dicPojer.ContainsKey(FirmwarePojer_cbo.SelectedItem.ToString) Then
|
|||
|
|
Dim clunm As String = _dicPojer.Item(FirmwarePojer_cbo.SelectedItem.ToString)
|
|||
|
|
_dicRoonType = SetLauncher_cbointem(FirmwareHouseType_cbo, "tbl_room_type_list", "ROOM_TYPE_NAME", "ROOM_TYPE_ID", clunm)
|
|||
|
|
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub Search_btn_Click(sender As Object, e As EventArgs) Handles Search_btn.Click
|
|||
|
|
|
|||
|
|
Dim txt As String = Search_txt.Text
|
|||
|
|
|
|||
|
|
'Dim query = From name As String In FirmwarePojer_cbo.Items
|
|||
|
|
' Order By name.Contains(txt) Descending
|
|||
|
|
' Select name
|
|||
|
|
Dim query = From name As String In FirmwarePojer_cbo.Items
|
|||
|
|
Where name.Contains(txt) = True
|
|||
|
|
Select name
|
|||
|
|
'FirmwarePojer_cbo.Items.Clear
|
|||
|
|
' for Each s In query
|
|||
|
|
' Console.WriteLine($"排序:{s}")
|
|||
|
|
' Next
|
|||
|
|
Dim li As New List(Of String）
|
|||
|
|
li.AddRange(query.ToArray)
|
|||
|
|
DataGridView2.Rows.Clear()
|
|||
|
|
DataGridView1.Rows.Clear()
|
|||
|
|
For Each hot In query
|
|||
|
|
DataGridView1.Rows.Add(hot)
|
|||
|
|
Next
|
|||
|
|
|
|||
|
|
'FirmwarePojer_cbo.Items.Clear()
|
|||
|
|
'FirmwarePojer_cbo.Items.AddRange(li.ToArray)
|
|||
|
|
|
|||
|
|
|
|||
|
|
'dim source As ParallelQuery=query
|
|||
|
|
'FirmwarePojer_cbo.Items . .AsOrdered (source)
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public Shared Sub Demo()
|
|||
|
|
|
|||
|
|
Dim names As New List(Of String) From {"Zhao", "Qian", "Sun", "Li"}
|
|||
|
|
Dim result = From name In names Where name.Contains("a"c) Select name
|
|||
|
|
|
|||
|
|
Console.WriteLine($"result:{String.Join(",", result.ToArray) }")
|
|||
|
|
|
|||
|
|
names.AddRange({"Zhou", "Wu", "Zhen", "Wang"})
|
|||
|
|
Console.WriteLine($"result:{String.Join(",", result.ToArray) }")
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
|
|||
|
|
|
|||
|
|
If _dicPojer.ContainsKey(DataGridView1.SelectedRows.Item(0).Cells(0).Value) Then
|
|||
|
|
Dim clunm As String = _dicPojer.Item(DataGridView1.SelectedRows.Item(0).Cells(0).Value)
|
|||
|
|
_dicRoonType = SetLauncher_cbointem(FirmwareHouseType_cbo, "tbl_room_type_list", "ROOM_TYPE_NAME", "ROOM_TYPE_ID", clunm)
|
|||
|
|
DataGridView2.Rows.Clear()
|
|||
|
|
For Each hot In _dicRoonType
|
|||
|
|
DataGridView2.Rows.Add(hot.Key)
|
|||
|
|
Next
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub DataGridView2_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView2.CellClick
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub SelectFileV4_btn_Click(sender As Object, e As EventArgs) Handles SelectFileV4_btn.Click
|
|||
|
|
Dim openFileDialog As New OpenFileDialog
|
|||
|
|
openFileDialog.InitialDirectory = Application.StartupPath
|
|||
|
|
openFileDialog.RestoreDirectory = True
|
|||
|
|
openFileDialog.Title = "选择上传固件"
|
|||
|
|
openFileDialog.Filter = $"配置文件(*.hex)|*.hex"
|
|||
|
|
If openFileDialog.ShowDialog() = DialogResult.OK Then
|
|||
|
|
FirmwarePathV4_txt.Text = openFileDialog.FileName
|
|||
|
|
FileNameV4 = openFileDialog.FileName
|
|||
|
|
SafeFileNameV4 = openFileDialog.SafeFileName
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
End Class
|