1269 lines
48 KiB
VB.net
1269 lines
48 KiB
VB.net
Imports System.IO
|
||
Imports System.Threading
|
||
Imports FlexCell
|
||
|
||
Public Class RCU_Logviewer
|
||
|
||
Enum TableColName
|
||
ID = 1
|
||
TimeSpan
|
||
mac
|
||
createdatetime
|
||
logfilename
|
||
logprojectid
|
||
logroomid
|
||
log_valid
|
||
log_sn
|
||
log_len
|
||
log_datetime
|
||
log_timespan
|
||
log_type
|
||
log_content
|
||
type_param_1
|
||
type_param_2
|
||
type_param_3
|
||
type_param_4
|
||
type_param_5
|
||
type_param_6
|
||
type_param_7
|
||
type_param_8
|
||
type_param_9
|
||
type_param_10
|
||
remark
|
||
End Enum
|
||
|
||
Private Sub RCU_Logviewer_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||
pan_sqldata.Parent = Nothing
|
||
Timer1.Start()
|
||
g_fileAnalysisThread = New Thread(AddressOf FileDataToSqlRuning)
|
||
Text = Text & "__" & Application.ProductVersion
|
||
My.Settings.Reload()
|
||
DirPath_txt.Text = My.Settings.FileDir
|
||
LoadingFileTreeInit()
|
||
g_RowFileDic = New Dictionary(Of Integer, String)
|
||
|
||
'初始化字体
|
||
Dim theFont As New System.Drawing.Text.InstalledFontCollection
|
||
theFont = New System.Drawing.Text.InstalledFontCollection()
|
||
For Each family As System.Drawing.FontFamily In theFont.Families
|
||
systemfont.Items.Add(family.Name)
|
||
Next
|
||
systemfont.SelectedIndex = 9
|
||
'Font.Name = DropDownList1.SelectedItem.Text
|
||
'初始化字号
|
||
|
||
Dim sizeArray() As Integer = [Enum].GetValues(GetType(TableColName))
|
||
Dim strbuff() As String
|
||
strbuff = Array.ConvertAll(sizeArray, New Converter(Of Integer, String)(AddressOf inttostring))
|
||
Textsize.Items.AddRange(strbuff)
|
||
Textsize.SelectedIndex = 8
|
||
|
||
|
||
Dim str As String = systemfont.SelectedItem.ToString
|
||
Dim gtheFont As New System.Drawing.Font(str, 9.ToString)
|
||
Grid_tab.Font = gtheFont
|
||
|
||
g_OldRowColor = New Dictionary(Of Integer, Color())
|
||
InitRowConfig()
|
||
|
||
'//获取系统所有颜色(利用枚举获取系统的颜色并且将Dropdownlist的字体颜色改成当前的颜色)
|
||
' String[] colorArray = Enum.GetNames(TypeOf(System.Drawing.KnownColor));
|
||
' foreach(String color In colorArray)
|
||
' {
|
||
' ListItem item = New ListItem(Color);
|
||
' item.Attributes.Add("style", "color:" + Color);
|
||
' DropDownList2.Style.Add("BackColor", Color);
|
||
' DropDownList2.Items.Add(item);
|
||
|
||
' }
|
||
' //系统字体大小
|
||
' String[] sizeArray = Enum.GetNames(TypeOf(System.Web.UI.WebControls.FontSize));
|
||
' RadioButtonList1.DataSource = sizeArray;
|
||
' RadioButtonList1.SelectedIndex = -1;
|
||
' RadioButtonList1.DataBind();
|
||
End Sub
|
||
|
||
|
||
Public Sub InitRowConfig()
|
||
Grid_RowConfig.Cols = 3
|
||
Grid_RowConfig.Cell(0, 1).Text = "列名"
|
||
Grid_RowConfig.Cell(0, 2).Text = "列值"
|
||
Grid_RowConfig.Rows = TableColName.remark + 1
|
||
Grid_RowConfig.Column(0).Visible = False
|
||
Grid_RowConfig.Range(1, 1, Grid_RowConfig.Rows - 1, Grid_RowConfig.Cols - 1).Alignment = AlignmentEnum.CenterCenter
|
||
For i As Integer = 1 To TableColName.remark
|
||
Grid_RowConfig.Cell(i, 1).Text = [Enum].GetName(GetType(TableColName), i)
|
||
Next
|
||
|
||
End Sub
|
||
|
||
Public Function inttostring(val As Integer) As String
|
||
Return val.ToString
|
||
End Function
|
||
Private Sub RCU_Logviewer_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
|
||
m_FolderIcon.Dispose()
|
||
m_FileIcon.Dispose()
|
||
Timer1.Stop()
|
||
My.Settings.Save()
|
||
End Sub
|
||
|
||
#Region "时间显示"
|
||
Private AutoCount As Integer
|
||
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
||
Label3.Text = Now.ToString("yyyy-MM-dd HH:mm:ss")
|
||
If AutoCount > 5 Then
|
||
AotuDirToMySQL()
|
||
AutoCount = 0
|
||
Judgmentpoint()
|
||
Else
|
||
AutoCount = AutoCount + 1
|
||
End If
|
||
|
||
End Sub
|
||
Public DbConnString As String = "Server=blv-cloud-db.mysql.rds.aliyuncs.com;Port=3307;Database=rculog;Uid=blv_rcu;Pwd=fnadiaJDIJ7546;charset=utf8;"
|
||
Public Sub CellMysqlFunction()
|
||
Using db As New DbExecutor(DbExecutor.DbTypeEnum.Mysql, DbConnString)
|
||
Try
|
||
db.Open()
|
||
Dim CreateTableStr As String = "CALL `rculog`.`DeleteOldRecords`()"
|
||
db.ExecuteNonQuery(CreateTableStr)
|
||
db.Close()
|
||
Catch ex As Exception
|
||
AdminLog.ApplicationLog.WriteErrorLog($"CALL `rculog`.`DeleteOldRecords` Error, {ex.Message}")
|
||
db.Close()
|
||
End Try
|
||
End Using
|
||
|
||
End Sub
|
||
Public Sub Judgmentpoint()
|
||
Dim currentTime As DateTime = DateTime.Now
|
||
|
||
' 判断当前时间是否为凌晨3点
|
||
If currentTime.Hour = 3 AndAlso currentTime.Minute = 0 AndAlso currentTime.Second = 0 Then
|
||
Console.WriteLine("现在是凌晨3点。")
|
||
AdminLog.ApplicationLog.WriteErrorLog($"现在是凌晨3点,开始清理过期文件与数据 （10天）")
|
||
Dim directoryPath As String = TextBox1.Text ' 替换为你的目录路径
|
||
Dim cutOffDate As TimeSpan = DateTime.Now - DateTime.Now.AddDays(-15)
|
||
DeleteFilesOlderThan(directoryPath, cutOffDate)
|
||
CellMysqlFunction()
|
||
|
||
End If
|
||
End Sub
|
||
|
||
Sub DeleteFilesOlderThan(path As String, timeSpan As TimeSpan)
|
||
Dim directoryInfo As New DirectoryInfo(path)
|
||
Dim cutOffDate As DateTime = DateTime.Now.Subtract(timeSpan)
|
||
|
||
' 遍历目录中的文件
|
||
For Each file As FileInfo In directoryInfo.GetFiles()
|
||
If file.CreationTime < cutOffDate Then
|
||
file.Delete()
|
||
Console.WriteLine("Deleted file: " & file.FullName)
|
||
End If
|
||
Next
|
||
|
||
' 递归遍历子目录
|
||
For Each subDir As DirectoryInfo In directoryInfo.GetDirectories()
|
||
DeleteFilesOlderThan(subDir.FullName, timeSpan)
|
||
Next
|
||
End Sub
|
||
|
||
|
||
#End Region
|
||
|
||
#Region "文件夹加载"
|
||
#Region "选择文件夹"
|
||
Private Sub Btn_refresh_Click(sender As Object, e As EventArgs) Handles Btn_refresh.Click
|
||
If String.IsNullOrEmpty(DirPath_txt.Text) OrElse Not Directory.Exists(DirPath_txt.Text) Then Return
|
||
|
||
Grid_File.AutoRedraw = False
|
||
m_Tree.Nodes.Clear()
|
||
If Grid_File.Rows >= 2 Then
|
||
Grid_File.Range(1, 1, Grid_File.Rows - 1, 1).DeleteByRow()
|
||
End If
|
||
|
||
Dim tempNode = m_Tree.Nodes.Add()
|
||
tempNode.IsDirectory = True
|
||
Grid_File.AddItem(GetFileConfig(DirPath_txt.Text))
|
||
LoadingFileTree(DirPath_txt.Text, tempNode， 1)
|
||
Grid_File.AutoRedraw = True
|
||
Grid_File.Refresh()
|
||
End Sub
|
||
Private Sub Btn_refresh_Click1()
|
||
If String.IsNullOrEmpty(DirPath_txt.Text) OrElse Not Directory.Exists(DirPath_txt.Text) Then Return
|
||
|
||
Grid_File.AutoRedraw = False
|
||
m_Tree.Nodes.Clear()
|
||
If Grid_File.Rows >= 2 Then
|
||
Grid_File.Range(1, 1, Grid_File.Rows - 1, 1).DeleteByRow()
|
||
End If
|
||
|
||
Dim tempNode = m_Tree.Nodes.Add()
|
||
tempNode.IsDirectory = True
|
||
Grid_File.AddItem(GetFileConfig(DirPath_txt.Text))
|
||
LoadingFileTree(DirPath_txt.Text, tempNode， 1)
|
||
Grid_File.AutoRedraw = True
|
||
Grid_File.Refresh()
|
||
End Sub
|
||
Private Sub SelectFile_btn_Click(sender As Object, e As EventArgs) Handles SelectFile_btn.Click
|
||
Using dlg As New FolderBrowserDialog
|
||
dlg.Description = "请选择入库文件夹！"
|
||
If String.IsNullOrEmpty(DirPath_txt.Text) Or IO.Directory.Exists(DirPath_txt.Text) Then
|
||
dlg.SelectedPath = My.Settings.FileDir
|
||
Else
|
||
dlg.SelectedPath = DirPath_txt.Text
|
||
End If
|
||
|
||
|
||
If dlg.ShowDialog <> DialogResult.OK Then Return
|
||
|
||
DirPath_txt.Text = dlg.SelectedPath
|
||
|
||
End Using
|
||
My.Settings.FileDir = DirPath_txt.Text
|
||
My.Settings.Save()
|
||
'第一个节点
|
||
Btn_refresh.PerformClick()
|
||
'Dim tempNode = m_Tree.Nodes.Add()
|
||
'Grid_File.AddItem(GetFileConfig(DirPath_txt.Text))
|
||
'LoadingFileTree(DirPath_txt.Text, tempNode， 1)
|
||
|
||
End Sub
|
||
|
||
|
||
#End Region
|
||
#Region "树状目录加载"
|
||
Private m_FolderIcon As System.Drawing.Icon
|
||
Private m_FileIcon As System.Drawing.Icon
|
||
|
||
Public Sub LoadingFileTreeInit()
|
||
Dim resourceStream As System.IO.Stream
|
||
|
||
resourceStream = MyBase.GetType().Assembly.GetManifestResourceStream("RCU_LogAgent_sqllite.Folder.ico")
|
||
m_FolderIcon = New Drawing.Icon(resourceStream)
|
||
resourceStream = MyBase.GetType().Assembly.GetManifestResourceStream("RCU_LogAgent_sqllite.File.ico")
|
||
m_FileIcon = New Drawing.Icon(resourceStream)
|
||
|
||
Grid_File.AutoRedraw = False
|
||
Grid_File.ExtendLastCol = True
|
||
Grid_File.DrawMode = FlexCell.DrawModeEnum.OwnerDraw
|
||
Grid_File.AllowUserPaste = FlexCell.ClipboardDataEnum.Text
|
||
Grid_File.Cols = 7
|
||
Grid_File.Rows = 1
|
||
Grid_File.DisplayRowNumber = True
|
||
Grid_File.Cell(0, 0).Text = "ID"
|
||
Grid_File.Cell(0, 1).Text = "A"
|
||
Grid_File.Cell(0, 2).Text = "名称"
|
||
Grid_File.Cell(0, 3).Text = "修改日期"
|
||
Grid_File.Cell(0, 4).Text = "类型"
|
||
Grid_File.Cell(0, 5).Text = "大小"
|
||
Grid_File.Cell(0, 6).Text = "备注"
|
||
Grid_File.Range(0, 1, 0, 6).Alignment = FlexCell.AlignmentEnum.CenterCenter
|
||
Grid_File.Column(0).Width = 20
|
||
Grid_File.Column(1).Width = 20
|
||
Grid_File.Column(2).Width = 350
|
||
Grid_File.Column(3).Width = 120
|
||
Grid_File.Column(4).Width = 50
|
||
Grid_File.Column(5).Width = 50
|
||
|
||
Grid_File.Column(1).Locked = False
|
||
Grid_File.Column(2).Locked = True
|
||
Grid_File.Column(3).Locked = True
|
||
Grid_File.Column(4).Locked = True
|
||
Grid_File.Column(5).Locked = True
|
||
Grid_File.Column(1).CellType = FlexCell.CellTypeEnum.CheckBox
|
||
Grid_File.AutoRedraw = True
|
||
|
||
Grid_File.Refresh()
|
||
End Sub
|
||
Private m_Tree As New Node
|
||
|
||
Public Sub LoadingFileTree(filedirPath As String， tempNode As Node, Level As Integer)
|
||
If Directory.Exists(filedirPath) = False Then Return '指定目录不存在
|
||
Dim datas As IReadOnlyCollection(Of String) = My.Computer.FileSystem.GetFiles(filedirPath) '获取文件夹内的文件路径集合
|
||
|
||
For Each strFileName As String In datas
|
||
tempNode.Nodes.Add()
|
||
Grid_File.AddItem(GetFileConfig(strFileName))
|
||
Next
|
||
|
||
End Sub
|
||
Public Function IsNewAnalyzeFile(filedirPath As String， btime As Date) As Boolean
|
||
If Directory.Exists(filedirPath) = False Then Return False '指定目录不存在
|
||
Dim datas As IReadOnlyCollection(Of String) = My.Computer.FileSystem.GetFiles(filedirPath) '获取文件夹内的文件路径集合
|
||
|
||
For Each strFileName As String In datas
|
||
Dim fa As FileAttributes = File.GetAttributes(strFileName)
|
||
If fa = FileAttributes.Directory Then
|
||
Continue For
|
||
Else
|
||
Dim tmpFileInfo As New FileInfo(strFileName)
|
||
Dim sp = btime - tmpFileInfo.LastWriteTime
|
||
If sp.TotalSeconds > 600 Then
|
||
Return False
|
||
End If
|
||
End If
|
||
Next
|
||
Return True
|
||
End Function
|
||
|
||
Public Function GetFileConfig(path As String) As String
|
||
Dim result As String = "0" & vbTab
|
||
Dim filesize As Double = 0
|
||
Dim fa As FileAttributes = File.GetAttributes(path)
|
||
If fa = FileAttributes.Directory Then
|
||
Dim tmpDirInfo As New DirectoryInfo(path)
|
||
result = result & tmpDirInfo.Name & vbTab & Format(tmpDirInfo.LastWriteTime, "yyyy-MM-dd HH:mm:ss") & vbTab & "Directory"
|
||
|
||
Else
|
||
Dim tmpFileInfo As New FileInfo(path)
|
||
result = result & tmpFileInfo.Name & vbTab & Format(tmpFileInfo.LastWriteTime, "yyyy-MM-dd HH:mm:ss") & vbTab & "File" & vbTab
|
||
result = result & GetfileSize(tmpFileInfo.Length)
|
||
End If
|
||
Return result
|
||
End Function
|
||
Public Function GetfileSize（fileSize As Long） As String
|
||
Dim num As Double = 1024
|
||
If fileSize < num Then
|
||
Return fileSize.ToString & "B"
|
||
ElseIf fileSize < Math.Pow(num, 2) Then
|
||
Return (fileSize / num).ToString("f2") & "K"
|
||
ElseIf fileSize < Math.Pow(num, 3) Then
|
||
Return (fileSize / Math.Pow(num, 2)).ToString("f2") & "M"
|
||
ElseIf fileSize < Math.Pow(num, 4) Then
|
||
Return (fileSize / Math.Pow(num, 3)).ToString("f2") & "G"
|
||
ElseIf fileSize < Math.Pow(num, 5) Then
|
||
Return (fileSize / Math.Pow(num, 4)).ToString("f2") & "T"
|
||
Else
|
||
Return "文件大小获取异常"
|
||
End If
|
||
End Function
|
||
|
||
|
||
Private Declare Function DrawIconEx Lib "user32" (ByVal hDC As IntPtr, ByVal xLeft As Integer, ByVal yTop As Integer, ByVal hIcon As IntPtr, ByVal cxWidth As Integer, ByVal cyWidth As Integer, ByVal istepIfAniCur As Integer, ByVal hbrFlickerFreeDraw As Integer, ByVal diFlags As Integer) As Integer
|
||
Private Const DI_NORMAL = &H3
|
||
|
||
Private Sub Grid_File_OwnerDrawCell(ByVal Sender As Object, ByVal e As FlexCell.Grid.OwnerDrawCellEventArgs) Handles Grid_File.OwnerDrawCell
|
||
If e.Row < 1 OrElse e.Col <> 2 Then
|
||
Return
|
||
End If
|
||
|
||
Dim i, j As Integer
|
||
Dim blnDrawLine As Boolean
|
||
Dim node, tmpNode As Node
|
||
Dim intLevel As Integer
|
||
Dim intWidth As Integer
|
||
Dim intAdd As Integer
|
||
|
||
If True Then
|
||
intWidth = 20
|
||
intAdd = 26
|
||
Else
|
||
intWidth = 10
|
||
intAdd = 6
|
||
End If
|
||
|
||
node = m_Tree.FindNode(e.Row - 1 + 2)
|
||
If node IsNot Nothing Then
|
||
intLevel = node.Level - 1
|
||
|
||
'画树线
|
||
Dim pen As New System.Drawing.Pen(Color.Gray, 1)
|
||
pen.DashStyle = Drawing2D.DashStyle.Solid
|
||
For i = 0 To intLevel
|
||
If i < intLevel - 1 Then
|
||
blnDrawLine = True
|
||
tmpNode = node
|
||
For j = i To intLevel - 2
|
||
tmpNode = tmpNode.Parent
|
||
Next
|
||
If tmpNode.NextNode Is Nothing Then
|
||
blnDrawLine = False
|
||
End If
|
||
If blnDrawLine Then
|
||
'全部
|
||
e.Graphics.DrawLine(pen, CInt(e.Bounds.Left + intWidth * i + intAdd), CInt(e.Bounds.Top - 1), CInt(e.Bounds.Left + intWidth * i + intAdd), CInt(e.Bounds.Bottom + 1))
|
||
End If
|
||
ElseIf i = intLevel - 1 Then
|
||
'上半部分
|
||
e.Graphics.DrawLine(pen, CInt(e.Bounds.Left + intWidth * i + intAdd), CInt(e.Bounds.Top - 1), CInt(e.Bounds.Left + intWidth * i + intAdd), CInt(e.Bounds.Top + e.Bounds.Height / 2))
|
||
If node.NextNode IsNot Nothing Then
|
||
'下半部分
|
||
e.Graphics.DrawLine(pen, CInt(e.Bounds.Left + intWidth * i + intAdd), CInt(e.Bounds.Top + e.Bounds.Height / 2), CInt(e.Bounds.Left + intWidth * i + intAdd), CInt(e.Bounds.Bottom + 1))
|
||
End If
|
||
ElseIf i = intLevel Then
|
||
'下半部分
|
||
If node.VisibleNodesCount > 1 Then
|
||
If True Then
|
||
e.Graphics.DrawLine(pen, CInt(e.Bounds.Left + intWidth * i + intAdd), CInt(e.Bounds.Top + e.Bounds.Height / 2) + 7, CInt(e.Bounds.Left + intWidth * i + intAdd), CInt(e.Bounds.Bottom + 1))
|
||
Else
|
||
e.Graphics.DrawLine(pen, CInt(e.Bounds.Left + intWidth * i + intAdd), CInt(e.Bounds.Top + e.Bounds.Height / 2), CInt(e.Bounds.Left + intWidth * i + intAdd), CInt(e.Bounds.Bottom + 1))
|
||
End If
|
||
End If
|
||
End If
|
||
'水平的
|
||
If intLevel > 0 Then
|
||
e.Graphics.DrawLine(pen, CInt(e.Bounds.Left + intWidth * (intLevel - 1) + intAdd), CInt(e.Bounds.Top + e.Bounds.Height / 2), CInt(e.Bounds.Left + intWidth * (intLevel - 1) + intAdd + 10), CInt(e.Bounds.Top + e.Bounds.Height / 2))
|
||
End If
|
||
Next
|
||
pen.Dispose()
|
||
|
||
'+/-
|
||
If node.ChildrenCount > 0 Then
|
||
Dim rect As New Rectangle(e.Bounds.Left + 2 + intLevel * intWidth, CInt(e.Bounds.Top + (e.Bounds.Height - 9) / 2), 8, 8)
|
||
e.Graphics.FillRectangle(Brushes.White, rect)
|
||
e.Graphics.DrawRectangle(Pens.Black, rect)
|
||
If node.Expanded Then
|
||
e.Graphics.DrawLine(Pens.Black, rect.Left + 2, rect.Top + 4, rect.Right - 2, rect.Top + 4)
|
||
Else
|
||
e.Graphics.DrawLine(Pens.Black, rect.Left + 2, rect.Top + 4, rect.Right - 2, rect.Top + 4)
|
||
e.Graphics.DrawLine(Pens.Black, rect.Left + 4, rect.Top + 2, rect.Left + 4, rect.Bottom - 2)
|
||
End If
|
||
End If
|
||
|
||
'图标
|
||
' If CheckBox1.Checked Then
|
||
If node.IsDirectory Then
|
||
DrawIconEx(e.hDC, e.Bounds.Left + intWidth * intLevel + 18, e.Bounds.Top + (e.Bounds.Height - 16) / 2, m_FolderIcon.Handle, 16, 16, 0, 0, DI_NORMAL)
|
||
Else
|
||
DrawIconEx(e.hDC, e.Bounds.Left + intWidth * intLevel + 18, e.Bounds.Top + (e.Bounds.Height - 16) / 2, m_FileIcon.Handle, 16, 16, 0, 0, DI_NORMAL)
|
||
End If
|
||
' End If
|
||
|
||
'文字
|
||
With Grid_File.Cell(e.Row, e.Col)
|
||
If True Then
|
||
e.Graphics.DrawString(.Text, .Font, Brushes.Black, e.Bounds.Left + intWidth * intLevel + 35, e.Bounds.Top + (e.Bounds.Height - e.Graphics.MeasureString(.Text, .Font).Height) / 2 + 1)
|
||
Else
|
||
e.Graphics.DrawString(.Text, .Font, Brushes.Black, e.Bounds.Left + intWidth * intLevel + 12, e.Bounds.Top + (e.Bounds.Height - e.Graphics.MeasureString(.Text, .Font).Height) / 2 + 1)
|
||
End If
|
||
End With
|
||
|
||
e.Handled = True
|
||
End If
|
||
End Sub
|
||
Private Sub Grid_File_MouseDown(ByVal Sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Grid_File.MouseDown
|
||
If Grid_File.EditorVisible Then '处于编辑状态
|
||
Return
|
||
End If
|
||
|
||
If e.Button <> Windows.Forms.MouseButtons.Right Then
|
||
Return
|
||
End If
|
||
|
||
Dim cell As FlexCell.Cell = Grid_File.HitTest(e.X, e.Y)
|
||
If cell Is Nothing Then
|
||
Return
|
||
End If
|
||
If cell.Row < 1 OrElse cell.Col <> 2 Then
|
||
' If cell.Row < m_Row OrElse cell.Col <> m_Col Then
|
||
Return
|
||
End If
|
||
|
||
Grid_File.Range(cell.Row, cell.Col, cell.Row, cell.Col).SelectCells()
|
||
|
||
Dim node As Node = m_Tree.FindNode(cell.Row - 1 + 2)
|
||
If node Is Nothing Then
|
||
Return
|
||
End If
|
||
|
||
If node.ChildrenCount > 0 Then
|
||
If node.Expanded Then
|
||
mnuExpand.Enabled = False
|
||
mnuCollapse.Enabled = True
|
||
Else
|
||
mnuExpand.Enabled = True
|
||
mnuCollapse.Enabled = False
|
||
End If
|
||
Else
|
||
mnuExpand.Enabled = False
|
||
mnuCollapse.Enabled = False
|
||
End If
|
||
|
||
If node.Level = 1 Then
|
||
mnuRemove.Enabled = False '第一个节点不允许删除
|
||
mnuLevelDown.Enabled = False
|
||
Else
|
||
mnuRemove.Enabled = True
|
||
If node.PrevNode Is Nothing Then
|
||
mnuLevelDown.Enabled = False
|
||
Else
|
||
mnuLevelDown.Enabled = True
|
||
End If
|
||
End If
|
||
|
||
If node.Level <= 2 Then
|
||
mnuLevelUp.Enabled = False
|
||
Else
|
||
mnuLevelUp.Enabled = True
|
||
End If
|
||
|
||
If node.PrevNode Is Nothing Then
|
||
mnuMoveUp.Enabled = False
|
||
Else
|
||
If node.Level > 1 Then
|
||
mnuMoveUp.Enabled = True
|
||
Else
|
||
mnuMoveUp.Enabled = False
|
||
End If
|
||
End If
|
||
|
||
If node.NextNode Is Nothing Then
|
||
mnuMoveDown.Enabled = False
|
||
Else
|
||
If node.Level > 1 Then
|
||
mnuMoveDown.Enabled = True
|
||
Else
|
||
mnuMoveDown.Enabled = False
|
||
End If
|
||
End If
|
||
|
||
ContextMenuStrip1.Show(MousePosition.X, MousePosition.Y)
|
||
End Sub
|
||
Private Sub Grid_File_Click(ByVal Sender As Object, ByVal e As System.EventArgs) Handles Grid_File.Click
|
||
If Grid_File.EditorVisible Then '处于编辑状态
|
||
Return
|
||
End If
|
||
|
||
Dim point As Point = Grid_File.PointToClient(Windows.Forms.Cursor.Position)
|
||
Dim cell As FlexCell.Cell = Grid_File.HitTest(point.X, point.Y)
|
||
Dim intWidth As Integer
|
||
|
||
If True Then
|
||
intWidth = 20
|
||
Else
|
||
intWidth = 10
|
||
End If
|
||
|
||
If cell IsNot Nothing Then
|
||
|
||
If cell.Row >= 1 AndAlso cell.Col = 2 Then
|
||
Dim node As Node
|
||
node = m_Tree.FindNode(cell.Row - 1 + 2)
|
||
If node IsNot Nothing Then
|
||
Dim rect As New Rectangle(cell.Bounds.Left + 2 + (node.Level - 1) * intWidth, cell.Bounds.Top + (cell.Bounds.Height - 9) / 2, 8, 8)
|
||
Dim i As Integer
|
||
If rect.Contains(point) Then
|
||
If node.Expanded Then
|
||
node.Collapse()
|
||
Grid_File.AutoRedraw = False
|
||
For i = 1 To node.ChildrenCount
|
||
Grid_File.Row(cell.Row + i).Visible = False
|
||
Next
|
||
Grid_File.AutoRedraw = True
|
||
Grid_File.Refresh()
|
||
Else
|
||
node.Expand()
|
||
Grid_File.AutoRedraw = False
|
||
For i = 1 To node.ChildrenCount
|
||
If node.FindNode(i + 1).Visible Then
|
||
Grid_File.Row(cell.Row + i).Visible = True
|
||
End If
|
||
Next
|
||
Grid_File.AutoRedraw = True
|
||
Grid_File.Refresh()
|
||
End If
|
||
End If
|
||
End If
|
||
End If
|
||
End If
|
||
End Sub
|
||
Private g_isCheckBox1CheckedChanged As Boolean = False
|
||
'Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs)
|
||
'
|
||
'End Sub
|
||
|
||
|
||
|
||
Public Sub ALLDirectory(IsAll As Boolean)
|
||
|
||
If g_isCheckBox1CheckedChanged Then
|
||
g_isCheckBox1CheckedChanged = False
|
||
Return
|
||
End If
|
||
Grid_File.AutoRedraw = False
|
||
For i As Integer = 1 To Grid_File.Rows - 1
|
||
Grid_File.Cell(i, 1).Text = IIf(IsAll, "1", "0")
|
||
Next
|
||
Grid_File.AutoRedraw = True
|
||
Grid_File.Refresh()
|
||
End Sub
|
||
|
||
|
||
|
||
|
||
#End Region
|
||
#End Region
|
||
|
||
#Region "文件解析"
|
||
|
||
Private g_RowFileDic As Dictionary(Of Integer， String）
|
||
Private Sub Grid_File_CellChange(Sender As Object, e As FlexCell.Grid.CellChangeEventArgs) Handles Grid_File.CellChange
|
||
|
||
If e.Row > 0 AndAlso e.Col = 1 Then
|
||
If Grid_File.Cell(e.Row, 4).Text.Equals("Directory") Then
|
||
If Grid_File.Cell(e.Row, 1).Text.Equals("1") Then
|
||
g_isCheckBox1CheckedChanged = False
|
||
ALLDirectory(True)
|
||
Else
|
||
ALLDirectory(False)
|
||
End If
|
||
Else
|
||
If Grid_File.Cell(e.Row, 1).Text.Equals("1") Then
|
||
If g_RowFileDic.ContainsKey(e.Row) Then
|
||
g_RowFileDic.Item(e.Row) = Grid_File.Cell(e.Row, 2).Text
|
||
Else
|
||
If IsAuto Then
|
||
If TimeDriverJudgement(e.Row) Then
|
||
g_RowFileDic.Add(e.Row, Grid_File.Cell(e.Row, 2).Text)
|
||
Else
|
||
Grid_File.Cell(e.Row, 1).Text = "0"
|
||
End If
|
||
Else
|
||
g_RowFileDic.Add(e.Row, Grid_File.Cell(e.Row, 2).Text)
|
||
End If
|
||
|
||
End If
|
||
Else
|
||
If g_RowFileDic.ContainsKey(e.Row) Then
|
||
g_RowFileDic.Remove(e.Row)
|
||
End If
|
||
g_isCheckBox1CheckedChanged = True
|
||
Grid_File.Cell(1, 1).Text = "0"
|
||
End If
|
||
End If
|
||
End If
|
||
|
||
End Sub
|
||
|
||
Public Function TimeDriverJudgement(Trow As Integer) As Boolean
|
||
Dim filetime As Date = Date.Parse(Grid_File.Cell(Trow, 3).Text)
|
||
Dim sp = AutoTime - filetime
|
||
If sp.TotalSeconds > 600 Then
|
||
Return True
|
||
End If
|
||
Return False
|
||
End Function
|
||
|
||
|
||
Private Sub btn_analysis_Click(sender As Object, e As EventArgs) Handles btn_analysis.Click
|
||
'Dim logpar As New LogParsing
|
||
|
||
If IsNothing(g_fileAnalysisThread) OrElse Not g_fileAnalysisThread.IsAlive Then
|
||
Console.WriteLine(g_RowFileDic.Count)
|
||
If g_RowFileDic.Count > 0 Then
|
||
StartfileAnalysisThread()
|
||
End If
|
||
Else
|
||
Debug.WriteLine("正在同步")
|
||
Trace.WriteLine("正在同步")
|
||
End If
|
||
|
||
|
||
|
||
End Sub
|
||
|
||
Private g_fileAnalysisThread As Thread
|
||
Public Sub StartfileAnalysisThread()
|
||
If IsNothing(g_fileAnalysisThread) Then
|
||
g_fileAnalysisThread = New Thread(AddressOf FileDataToSqlRuning)
|
||
End If
|
||
If g_fileAnalysisThread.IsAlive Then Return
|
||
Try
|
||
g_fileAnalysisThread = New Thread(AddressOf FileDataToSqlRuning)
|
||
g_fileAnalysisThread.Start()
|
||
Catch ex As Exception
|
||
|
||
End Try
|
||
End Sub
|
||
Public Sub FileDataToSqlRuning()
|
||
Dim logpar As New LogParsing
|
||
|
||
AddHandler logpar.Fileschedule, AddressOf SetUIProgressBar2
|
||
SetUIProgressBar1("", 0, g_RowFileDic.Count)
|
||
For Index As Integer = 0 To g_RowFileDic.Count - 1
|
||
SetUIProgressBar1(g_RowFileDic.Values(Index), Index)
|
||
Dim filepath As String = DirPath_txt.Text & "\" & g_RowFileDic.Values(Index)
|
||
Dim starttime As Date = Date.Now
|
||
Dim tsp As TimeSpan
|
||
logpar.Parsefile(TextBox1.Text， filepath)
|
||
tsp = Now - starttime
|
||
Console.WriteLine($"文件{g_RowFileDic.Values(Index)}解析时间：" & tsp.TotalMilliseconds)
|
||
Next
|
||
SetUIProgressBar1("", g_RowFileDic.Count)
|
||
'If IsAuto Then
|
||
' Btn_refresh_Click(Nothing, Nothing)
|
||
'End If
|
||
End Sub
|
||
Delegate Sub delegate_MatchingInfo_Change(filename As String， berval As Integer, bervalmax As Integer)
|
||
|
||
Public Sub SetUIProgressBar1(filename As String， berval As Integer, Optional bervalmax As Integer = Nothing)
|
||
If InvokeRequired = True Then
|
||
Dim dev As New delegate_MatchingInfo_Change(AddressOf SetUIProgressBar1)
|
||
Me.Invoke(dev, New Object() {filename, berval, bervalmax})
|
||
Else
|
||
|
||
If bervalmax > 0 Then
|
||
PBar_1.Maximum = bervalmax
|
||
End If
|
||
PBar_1.Value = berval
|
||
If Not String.IsNullOrEmpty(filename) Then
|
||
Lab_4.Text = filename
|
||
End If
|
||
If PBar_1.Maximum = berval Then
|
||
g_RowFileDic.Clear()
|
||
Btn_refresh_Click(Nothing, Nothing)
|
||
End If
|
||
End If
|
||
End Sub
|
||
Delegate Sub delegate_MatchingInfo(berval As Integer, ismax As Boolean)
|
||
Public Sub SetUIProgressBar2(berval As Integer, ismax As Boolean)
|
||
If InvokeRequired = True Then
|
||
Dim dev As New delegate_MatchingInfo(AddressOf SetUIProgressBar2)
|
||
Me.Invoke(dev, New Object() {berval, ismax})
|
||
Else
|
||
If ismax Then
|
||
PBar_2.Value = berval
|
||
Else
|
||
PBar_2.Maximum = berval
|
||
PBar_2.Value = 0
|
||
End If
|
||
End If
|
||
|
||
End Sub
|
||
|
||
|
||
|
||
|
||
|
||
|
||
#End Region
|
||
#Region "页面切换"
|
||
Private Sub toopBtn_Fileloading_Selected(sender As Object, e As TabControlEventArgs) Handles toopBtn_Fileloading.Selected
|
||
If toopBtn_Fileloading.SelectedIndex = 0 Then
|
||
If g_RowFileDic.Count > 0 Then
|
||
Btn_refresh.PerformClick()
|
||
End If
|
||
ElseIf toopBtn_Fileloading.SelectedIndex = 1 Then
|
||
GetTablename()
|
||
End If
|
||
End Sub
|
||
|
||
|
||
|
||
|
||
#End Region
|
||
|
||
#Region "查询页面"
|
||
Public Sub GetTablename()
|
||
Dim logpar As New LogParsing
|
||
Dim li As List(Of String)
|
||
Dim headnode As New TreeNode("LogService.db")
|
||
li = logpar.Gettablename()
|
||
Tree_View2.Nodes.Clear()
|
||
Tree_View2.Nodes.Add(headnode)
|
||
Tree_View2.Tag = headnode
|
||
headnode.Expand()
|
||
|
||
If IsNothing(li) Or li.Count = 0 Then
|
||
Return
|
||
Else
|
||
For Each index As String In li
|
||
Dim Cnode As New TreeNode(index)
|
||
headnode.Nodes.Add(Cnode)
|
||
|
||
Next
|
||
End If
|
||
If headnode.Nodes.Count > 0 Then
|
||
Tree_View2.SelectedNode = headnode.Nodes(0)
|
||
Tree_View2_NodeMouseClick(Nothing, Nothing)
|
||
End If
|
||
|
||
End Sub
|
||
|
||
Private Sub Tree_View2_NodeMouseClick(sender As Object, e As TreeNodeMouseClickEventArgs) Handles Tree_View2.NodeMouseClick
|
||
|
||
Dim node As TreeNode = Tree_View2.SelectedNode
|
||
Dim logpar As New LogParsing
|
||
If node Is Nothing Then Return
|
||
If node.Level <> 1 Then Return
|
||
Label6.Text = node.Text
|
||
If Not IsNothing（g_TableLookup） AndAlso g_TableLookup.IsAlive Then
|
||
g_TableLookup.Abort()
|
||
txt_find.ReadOnly = False
|
||
Button1.Enabled = True
|
||
g_OldRowColor.Clear()
|
||
End If
|
||
Dim udt As DataTable = logpar.QueryDatabase(node.Text)
|
||
Grid_tab.AutoRedraw = False
|
||
Grid_tab.SetDataBinding(udt)
|
||
SetGridStyle()
|
||
Grid_tab.AutoRedraw = True
|
||
Grid_tab.Refresh()
|
||
End Sub
|
||
Public Sub SetGridStyle()
|
||
'设置隐藏列
|
||
Grid_tab.Column(0).Visible = False
|
||
Grid_tab.Column(TableColName.TimeSpan).Visible = False
|
||
Grid_tab.Column(TableColName.mac).Visible = False
|
||
Grid_tab.Column(TableColName.logprojectid).Visible = False
|
||
Grid_tab.Column(TableColName.logroomid).Visible = False
|
||
Grid_tab.Column(TableColName.log_valid).Visible = False
|
||
'全表 字体居中
|
||
Grid_tab.Range(1, 1, Grid_tab.Rows - 1, Grid_tab.Cols - 1).Alignment = AlignmentEnum.CenterCenter
|
||
'设置排序
|
||
Grid_tab.AllowUserSort = True
|
||
'设置列宽
|
||
|
||
|
||
Grid_tab.Column(TableColName.ID).Width = 20
|
||
Grid_tab.Column(TableColName.createdatetime).Width = 130
|
||
Grid_tab.Column(TableColName.logfilename).Width = 220
|
||
Grid_tab.Column(TableColName.log_sn).Width = 25
|
||
Grid_tab.Column(TableColName.log_len).Width = 20
|
||
Grid_tab.Column(TableColName.log_datetime).Width = 130
|
||
Grid_tab.Column(TableColName.log_timespan).Width = 40
|
||
Grid_tab.Column(TableColName.log_type).Width = 20
|
||
Grid_tab.Column(TableColName.log_content).Width = 200
|
||
Grid_tab.Column(TableColName.type_param_1).Width = 80
|
||
Grid_tab.Column(TableColName.type_param_2).Width = 100
|
||
Grid_tab.Column(TableColName.type_param_3).Width = 80
|
||
Grid_tab.Column(TableColName.type_param_4).Width = 80
|
||
|
||
Grid_tab.Column(TableColName.type_param_5).Width = 80
|
||
Grid_tab.Column(TableColName.type_param_6).Width = 180
|
||
Grid_tab.Column(TableColName.type_param_7).Width = 180
|
||
Grid_tab.Column(TableColName.type_param_8).Width = 180
|
||
Grid_tab.Column(TableColName.type_param_9).Width = 180
|
||
Grid_tab.Column(TableColName.type_param_10).Width = 180
|
||
Grid_tab.Column(TableColName.remark).Width = 180
|
||
End Sub
|
||
|
||
Private Sub btn_delete_Click(sender As Object, e As EventArgs) Handles btn_delete.Click
|
||
Dim strInputMsg As String = InputBox("请输入密码", "密码确认")
|
||
|
||
If strInputMsg <> "Cc2022OK" Then Return
|
||
Dim node As TreeNode = Tree_View2.SelectedNode
|
||
Dim logpar As New LogParsing
|
||
If node Is Nothing Then Return
|
||
If node.Level <> 1 Then Return
|
||
logpar.DeleteTable(node.Text)
|
||
Dim headnode As TreeNode = Tree_View2.Tag
|
||
headnode.Nodes.Remove(node)
|
||
If Label6.Text.Equals(node.Text) Then
|
||
Label6.Text = "----------"
|
||
Grid_tab.AutoRedraw = False
|
||
If Not IsNothing（g_TableLookup） AndAlso g_TableLookup.IsAlive Then
|
||
g_TableLookup.Abort()
|
||
txt_find.ReadOnly = False
|
||
Button1.Enabled = True
|
||
g_OldRowColor.Clear()
|
||
End If
|
||
Dim udt As DataTable = logpar.QueryDatabase("Insqlite_UserTest")
|
||
Grid_tab.AutoRedraw = False
|
||
Grid_tab.SetDataBinding(udt)
|
||
SetGridStyle()
|
||
Grid_tab.AutoRedraw = True
|
||
Grid_tab.Refresh()
|
||
End If
|
||
|
||
End Sub
|
||
|
||
Private Sub delete_all_Click(sender As Object, e As EventArgs) Handles delete_all.Click
|
||
Dim strInputMsg As String = InputBox("请输入密码", "密码确认")
|
||
If strInputMsg <> "Cc2022OK" Then Return
|
||
Dim logpar As New LogParsing
|
||
Dim headnode As TreeNode = Tree_View2.Tag
|
||
For Each index As TreeNode In headnode.Nodes
|
||
logpar.DeleteTable(index.Text)
|
||
If Label6.Text.Equals(index.Text) Then
|
||
Label6.Text = "----------"
|
||
Grid_tab.AutoRedraw = False
|
||
If Not IsNothing（g_TableLookup） AndAlso g_TableLookup.IsAlive Then
|
||
g_TableLookup.Abort()
|
||
txt_find.ReadOnly = False
|
||
Button1.Enabled = True
|
||
g_OldRowColor.Clear()
|
||
End If
|
||
Dim udt As DataTable = logpar.QueryDatabase("Insqlite_UserTest")
|
||
Grid_tab.AutoRedraw = False
|
||
If udt.Rows.Count > 0 Then
|
||
Grid_tab.SetDataBinding(udt)
|
||
|
||
End If
|
||
|
||
SetGridStyle()
|
||
Grid_tab.AutoRedraw = True
|
||
Grid_tab.Refresh()
|
||
End If
|
||
Next
|
||
headnode.Nodes.Clear()
|
||
End Sub
|
||
|
||
Private Sub Table_save_Click(sender As Object, e As EventArgs) Handles Table_save.Click
|
||
Dim savePath As String
|
||
Using dlg As New FolderBrowserDialog
|
||
dlg.Description = "保存到"
|
||
|
||
dlg.SelectedPath = My.Settings.FileDir
|
||
|
||
If dlg.ShowDialog <> DialogResult.OK Then Return
|
||
|
||
savePath = dlg.SelectedPath
|
||
Grid_tab.ExportToExcel(dlg.SelectedPath & $"\{Label6.Text }.xls", "数据表"， True, False)
|
||
|
||
|
||
End Using
|
||
End Sub
|
||
|
||
Private Sub systemfont_TextChanged(sender As Object, e As EventArgs) Handles systemfont.TextChanged
|
||
Dim str As String = systemfont.SelectedItem.ToString
|
||
Dim theFont As New System.Drawing.Font(str, 9.ToString)
|
||
Grid_tab.Selection.Font = theFont
|
||
End Sub
|
||
Private Sub Handles_TextChanged(sender As Object, e As EventArgs) Handles Textsize.TextChanged
|
||
Grid_tab.Selection.FontSize = CType(Textsize.Text, Integer)
|
||
End Sub
|
||
|
||
Private Sub btn_bold_Click(sender As Object, e As EventArgs) Handles btn_bold.Click
|
||
Grid_tab.Selection.FontBold = Not Grid_tab.ActiveCell.FontBold
|
||
End Sub
|
||
|
||
Private Sub btn_lean_Click(sender As Object, e As EventArgs) Handles btn_lean.Click
|
||
Grid_tab.Selection.FontItalic = Not Grid_tab.ActiveCell.FontItalic
|
||
End Sub
|
||
|
||
Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click
|
||
Grid_tab.Selection.FontUnderline = Not Grid_tab.ActiveCell.FontUnderline
|
||
End Sub
|
||
|
||
|
||
|
||
Private Sub btn_txtcolor_ButtonClick(sender As Object, e As EventArgs) Handles btn_txtcolor.ButtonClick
|
||
If Not IsNothing(Grid_tab.Selection) AndAlso Grid_tab.Selection.FirstRow <> 0 Then
|
||
Grid_tab.Selection.ForeColor = btn_txtcolor.ForeColor
|
||
End If
|
||
|
||
End Sub
|
||
|
||
Private Sub btn_txtcolor_DropDownOpening(sender As Object, e As EventArgs) Handles btn_txtcolor.DropDownOpening
|
||
If ColorDialog1.ShowDialog() = DialogResult.OK Then
|
||
btn_txtcolor.ForeColor = ColorDialog1.Color
|
||
If Not IsNothing(Grid_tab.Selection) OrElse Grid_tab.Selection.FirstRow <> 0 Then
|
||
Grid_tab.Selection.ForeColor = btn_txtcolor.ForeColor
|
||
End If
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub btn_bcolor_DropDownOpening(sender As Object, e As EventArgs) Handles btn_bcolor.DropDownOpening
|
||
If ColorDialog1.ShowDialog() = DialogResult.OK Then
|
||
btn_bcolor.ForeColor = ColorDialog1.Color
|
||
If Not IsNothing(Grid_tab.Selection) OrElse Grid_tab.Selection.FirstRow <> 0 Then
|
||
Grid_tab.Selection.BackColor = btn_bcolor.ForeColor
|
||
End If
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub btn_bcolor_ButtonClick(sender As Object, e As EventArgs) Handles btn_bcolor.ButtonClick
|
||
If Not IsNothing(Grid_tab.Selection) AndAlso Grid_tab.Selection.FirstRow <> 0 Then
|
||
Grid_tab.Selection.BackColor = btn_bcolor.ForeColor
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click， ToolStripMenuItem5.Click， ToolStripMenuItem4.Click
|
||
Dim MenuItem As ToolStripMenuItem = sender
|
||
btn_center.Image = MenuItem.Image
|
||
btn_center.Tag = MenuItem.Tag
|
||
If Not IsNothing(Grid_tab.Selection) AndAlso Grid_tab.Selection.FirstRow <> 0 Then
|
||
Grid_tab.Selection.Alignment = btn_center.Tag
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub btn_center_ButtonClick(sender As Object, e As EventArgs) Handles btn_center.ButtonClick
|
||
If Not IsNothing(Grid_tab.Selection) AndAlso Grid_tab.Selection.FirstRow <> 0 Then
|
||
Grid_tab.Selection.Alignment = btn_center.Tag
|
||
End If
|
||
End Sub
|
||
|
||
Private g_OldRowColor As Dictionary(Of Integer, Color())
|
||
'Private Sub Grid_tab_MouseHover(Sender As Object, e As EventArgs) Handles Grid_tab.MouseHover
|
||
' ' Grid_tab.MouseCol
|
||
' Dim mosrow As Integer = Grid_tab.MouseRow
|
||
' If mosrow < 1 Then Return
|
||
' Dim rowcolor As New List(Of Color)
|
||
' Console.WriteLine($"mosrow:{mosrow}")
|
||
' For index As Integer = 0 To Grid_tab.Cols - 1
|
||
' If g_OldRowColor.Count > 0 Then
|
||
' Grid_tab.Cell(g_OldRowColor.Keys(0), index).BackColor = g_OldRowColor.Values(0)(index)
|
||
' End If
|
||
' rowcolor.Add(Grid_tab.Cell(mosrow, index).BackColor)
|
||
' Next
|
||
' g_OldRowColor.Clear()
|
||
' g_OldRowColor.Add(mosrow, rowcolor.ToArray)
|
||
|
||
' Grid_tab.Range(mosrow, 1, mosrow, Grid_tab.Cols - 1).BackColor = Color.LightYellow
|
||
'End Sub
|
||
|
||
Private Sub Grid_tab_MouseLeave(sender As Object, e As EventArgs) Handles Grid_tab.MouseLeave
|
||
If g_OldRowColor.Count > 0 Then
|
||
For index As Integer = 0 To Grid_tab.Cols - 1
|
||
If g_OldRowColor.Count > 0 Then
|
||
Grid_tab.Cell(g_OldRowColor.Keys(0), index).BackColor = g_OldRowColor.Values(0)(index)
|
||
End If
|
||
' rowcolor.Add(Grid_tab.Cell(Grid_tab.MouseRow, index).BackColor)
|
||
Next
|
||
End If
|
||
|
||
End Sub
|
||
|
||
Private Sub Grid_tab_MouseMove(Sender As Object, e As MouseEventArgs) Handles Grid_tab.MouseMove
|
||
Dim mosrow As Integer = Grid_tab.MouseRow
|
||
If mosrow < 1 Then Return
|
||
If g_OldRowColor.Count > 0 Then
|
||
If mosrow = g_OldRowColor.Keys(0) Then Return
|
||
End If
|
||
|
||
Dim rowcolor As New List(Of Color)
|
||
' Console.WriteLine($"mosrow:{mosrow}")
|
||
For index As Integer = 0 To Grid_tab.Cols - 1
|
||
If g_OldRowColor.Count > 0 Then
|
||
Grid_tab.Cell(g_OldRowColor.Keys(0), index).BackColor = g_OldRowColor.Values(0)(index)
|
||
End If
|
||
rowcolor.Add(Grid_tab.Cell(mosrow, index).BackColor)
|
||
If index = 0 Then Continue For
|
||
Grid_RowConfig.Cell(index, 2).Text = Grid_tab.Cell(mosrow, index).Text
|
||
Next
|
||
g_OldRowColor.Clear()
|
||
g_OldRowColor.Add(mosrow, rowcolor.ToArray)
|
||
|
||
Grid_tab.Range(mosrow, 1, mosrow, Grid_tab.Cols - 1).BackColor = Color.Yellow
|
||
End Sub
|
||
|
||
Private Sub Grid_tab_KeyDown(Sender As Object, e As KeyEventArgs) Handles Grid_tab.KeyDown
|
||
If e.KeyData = Keys.Up Then
|
||
|
||
Dim mosrow As Integer = Grid_tab.ActiveCell.Row - 1
|
||
If mosrow < 1 Then Return
|
||
If g_OldRowColor.Count > 0 Then
|
||
If mosrow = g_OldRowColor.Keys(0) Then Return
|
||
End If
|
||
Dim rowcolor As New List(Of Color)
|
||
' Console.WriteLine($"mosrow:{mosrow}")
|
||
For index As Integer = 0 To Grid_tab.Cols - 1
|
||
If g_OldRowColor.Count > 0 Then
|
||
Grid_tab.Cell(g_OldRowColor.Keys(0), index).BackColor = g_OldRowColor.Values(0)(index)
|
||
End If
|
||
rowcolor.Add(Grid_tab.Cell(mosrow, index).BackColor)
|
||
If index = 0 Then Continue For
|
||
Grid_RowConfig.Cell(index, 2).Text = Grid_tab.Cell(mosrow, index).Text
|
||
Next
|
||
g_OldRowColor.Clear()
|
||
g_OldRowColor.Add(mosrow, rowcolor.ToArray)
|
||
|
||
Grid_tab.Range(mosrow, 1, mosrow, Grid_tab.Cols - 1).BackColor = Color.Yellow
|
||
ElseIf e.KeyData = Keys.Down Then
|
||
|
||
Dim mosrow As Integer = Grid_tab.ActiveCell.Row + 1
|
||
If mosrow < 1 Then Return
|
||
If g_OldRowColor.Count > 0 Then
|
||
If mosrow = g_OldRowColor.Keys(0) Then Return
|
||
End If
|
||
Dim rowcolor As New List(Of Color)
|
||
' Console.WriteLine($"mosrow:{mosrow}")
|
||
For index As Integer = 0 To Grid_tab.Cols - 1
|
||
If g_OldRowColor.Count > 0 Then
|
||
Grid_tab.Cell(g_OldRowColor.Keys(0), index).BackColor = g_OldRowColor.Values(0)(index)
|
||
End If
|
||
rowcolor.Add(Grid_tab.Cell(mosrow, index).BackColor)
|
||
If index = 0 Then Continue For
|
||
Grid_RowConfig.Cell(index, 2).Text = Grid_tab.Cell(mosrow, index).Text
|
||
Next
|
||
g_OldRowColor.Clear()
|
||
g_OldRowColor.Add(mosrow, rowcolor.ToArray)
|
||
|
||
Grid_tab.Range(mosrow, 1, mosrow, Grid_tab.Cols - 1).BackColor = Color.Yellow
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub delete_flag_Click(sender As Object, e As EventArgs) Handles delete_flag.Click
|
||
Dim headnode As TreeNode = Tree_View2.Nodes(0)
|
||
If headnode.Nodes.Count > 0 Then
|
||
'Tree_View2.SelectedNode = headnode.Nodes(0)
|
||
'Tree_View2_NodeMouseClick(Nothing, Nothing)
|
||
Dim logpar As New LogParsing
|
||
If Not IsNothing（g_TableLookup） AndAlso g_TableLookup.IsAlive Then
|
||
g_TableLookup.Abort()
|
||
g_OldRowColor.Clear()
|
||
txt_find.ReadOnly = False
|
||
Button1.Enabled = True
|
||
|
||
End If
|
||
Dim udt As DataTable = logpar.QueryDatabase(Label6.Text)
|
||
Grid_tab.AutoRedraw = False
|
||
Grid_tab.SetDataBinding(udt)
|
||
SetGridStyle()
|
||
Grid_tab.AutoRedraw = True
|
||
Grid_tab.Refresh()
|
||
End If
|
||
End Sub
|
||
|
||
|
||
|
||
|
||
|
||
#End Region
|
||
|
||
#Region "全表查找"
|
||
Public g_TableLookup As Thread
|
||
Private IsLookupflag As Boolean = False '默认模糊查找
|
||
Public Sub FuzzyLookup()
|
||
|
||
txt_find.ReadOnly = True
|
||
Button1.Enabled = False
|
||
If IsNothing(g_TableLookup) Then
|
||
g_TableLookup = New Thread(AddressOf StartTableLookup)
|
||
g_TableLookup.Start()
|
||
Return
|
||
End If
|
||
If g_TableLookup.IsAlive Then
|
||
Return
|
||
End If
|
||
g_TableLookup = New Thread(AddressOf StartTableLookup)
|
||
g_TableLookup.Start()
|
||
|
||
End Sub
|
||
|
||
|
||
Public Sub StartTableLookup()
|
||
Dim ti As Date = Now
|
||
Dim sp As TimeSpan
|
||
If String.IsNullOrEmpty(txt_find.Text) Then
|
||
ThreadSetTableCell(Grid_tab, 1, 1, Color.Red)
|
||
Return
|
||
End If
|
||
For i As Integer = 1 To Grid_tab.Rows - 1
|
||
For j As Integer = 1 To Grid_tab.Cols - 1
|
||
If j = TableColName.TimeSpan OrElse j = TableColName.mac AndAlso
|
||
j = TableColName.logprojectid AndAlso j = TableColName.log_valid OrElse
|
||
j = TableColName.logroomid Then Continue For
|
||
If IsLookupflag Then
|
||
If Grid_tab.Cell(i, j).Text.Equals(txt_find.Text) Then
|
||
' Grid_tab.Cell(i, j).BackColor = Color.LightSalmon
|
||
ThreadSetTableCell(Grid_tab, i, j, Color.LightSalmon)
|
||
End If
|
||
Else
|
||
If Grid_tab.Cell(i, j).Text.Contains(txt_find.Text) Then
|
||
' Grid_tab.Cell(i, j).BackColor = Color.LightPink
|
||
ThreadSetTableCell(Grid_tab, i, j, Color.LightPink)
|
||
End If
|
||
End If
|
||
Next
|
||
Next
|
||
ThreadSetTableCell(Grid_tab, 1, 1, Color.Red)
|
||
sp = Now - ti
|
||
Console.WriteLine($"查找耗时：{sp.TotalMilliseconds }")
|
||
|
||
End Sub
|
||
Delegate Sub IsThreadSetTableCell(Gridtab As FlexCell.Grid, Inrow As Integer， Incol As Integer, thecolor As Color)
|
||
Public Sub ThreadSetTableCell(Gridtab As FlexCell.Grid, Inrow As Integer， Incol As Integer, thecolor As Color)
|
||
|
||
If InvokeRequired = True Then
|
||
Dim dev As New IsThreadSetTableCell(AddressOf ThreadSetTableCell)
|
||
Me.Invoke(dev, New Object() {Gridtab, Inrow, Incol， thecolor})
|
||
Else
|
||
If thecolor = Color.Red Then
|
||
txt_find.ReadOnly = False
|
||
Button1.Enabled = True
|
||
Return
|
||
End If
|
||
Gridtab.Cell(Inrow, Incol).BackColor = thecolor
|
||
End If
|
||
End Sub
|
||
|
||
|
||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||
g_OldRowColor.Clear()
|
||
FuzzyLookup()
|
||
End Sub
|
||
|
||
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
|
||
IsLookupflag = CheckBox1.Checked
|
||
End Sub
|
||
Private IsAuto As Boolean
|
||
Private Sub ONOFF_btn_Click(sender As Object, e As EventArgs) Handles ONOFF_btn.Click
|
||
'ONOFF_btn.Enabled = Not ONOFF_btn.Enabled
|
||
|
||
|
||
IsAuto = Not IsAuto
|
||
If IsAuto Then
|
||
ONOFF_btn.Text = "停止循环扫描"
|
||
ONOFF_btn.ForeColor = Color.Red
|
||
|
||
Else
|
||
ONOFF_btn.Text = "开始循环扫描"
|
||
ONOFF_btn.ForeColor = Color.Black
|
||
If Not IsNothing(g_fileAnalysisThread) Then
|
||
g_fileAnalysisThread.Abort()
|
||
End If
|
||
End If
|
||
DirPath_txt.Enabled = Not IsAuto
|
||
SelectFile_btn.Enabled = Not IsAuto
|
||
Btn_refresh.Enabled = Not IsAuto
|
||
Count_txt.Enabled = Not IsAuto
|
||
btn_analysis.Enabled = Not IsAuto
|
||
|
||
End Sub
|
||
Public AutoTime As Date
|
||
Public Sub AotuDirToMySQL()
|
||
|
||
While (IsAuto And Not g_fileAnalysisThread.IsAlive)
|
||
|
||
AutoTime = Now
|
||
If IsNewAnalyzeFile(DirPath_txt.Text, AutoTime) Then
|
||
Return
|
||
End If
|
||
Dim sp = Now - AutoTime
|
||
Console.WriteLine(sp.TotalSeconds)
|
||
Btn_refresh_Click(Nothing, Nothing)
|
||
g_RowFileDic.Clear()
|
||
Grid_File.Cell(1, 1).Text = 1
|
||
btn_analysis_Click(Nothing, Nothing)
|
||
sp = Now - AutoTime
|
||
Console.WriteLine(sp.TotalSeconds)
|
||
|
||
Exit While
|
||
End While
|
||
End Sub
|
||
|
||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
||
Using dlg As New FolderBrowserDialog
|
||
dlg.Description = "请选择文件解析后存放文件夹路径！"
|
||
If String.IsNullOrEmpty(DirPath_txt.Text) Or IO.Directory.Exists(DirPath_txt.Text) Then
|
||
dlg.SelectedPath = My.Settings.FileDir
|
||
Else
|
||
dlg.SelectedPath = DirPath_txt.Text
|
||
End If
|
||
|
||
If dlg.ShowDialog <> DialogResult.OK Then Return
|
||
|
||
TextBox1.Text = dlg.SelectedPath
|
||
|
||
End Using
|
||
End Sub
|
||
|
||
Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click
|
||
If Label3.BackColor = SystemColors.ActiveCaption Then
|
||
Label3.BackColor = SystemColors.GradientActiveCaption
|
||
|
||
Else
|
||
|
||
Label3.BackColor = SystemColors.ActiveCaption
|
||
End If
|
||
End Sub
|
||
|
||
|
||
|
||
|
||
#End Region
|
||
|
||
End Class |