97 lines
3.4 KiB
VB.net
97 lines
3.4 KiB
VB.net
|
Public Class Form_SysLog
|
|||
|
|
Dim m_LogManage As New CLogManage
|
|||
|
|
Dim m_Table As New System.Data.DataTable
|
|||
|
|
Dim m_InitOver As Boolean = False
|
|||
|
|
|
|||
|
|
Private Sub GetDataSet()
|
|||
|
|
If Not m_Table Is Nothing Then
|
|||
|
|
m_Table.Dispose()
|
|||
|
|
End If
|
|||
|
|
m_Table = New DataTable
|
|||
|
|
|
|||
|
|
SQL_Query(COL_RIGHTS.系统记录, "SELECT * FROM `" & CLogManage.cst_TABLE_NAME & "` GROUP BY `" & CLogManage.m_COLS_NAME(CLogManage.COLS.序号) & "`", m_Table)
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
'Private Sub bt_Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|||
|
|
' If m_LogManage.AddItem("系统记录表", "添加一条", "tony") = ERROR_CODE.SUCCESS Then
|
|||
|
|
' MsgBox("OK")
|
|||
|
|
' Else
|
|||
|
|
' MsgBox("error")
|
|||
|
|
' End If
|
|||
|
|
'End Sub
|
|||
|
|
|
|||
|
|
'Private Sub btDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|||
|
|
' m_LogManage.DeleteItem(1)
|
|||
|
|
'End Sub
|
|||
|
|
|
|||
|
|
'Private Sub btQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|||
|
|
|
|||
|
|
' Dim rDate As Date = Now
|
|||
|
|
' Dim rData(6) As String
|
|||
|
|
|
|||
|
|
' m_LogManage.QueryItem(2, rDate, rData(1), rData(2), rData(3), rData(4), rData(5))
|
|||
|
|
'End Sub
|
|||
|
|
|
|||
|
|
'Private Sub btGetCount_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|||
|
|
' Dim count As Integer
|
|||
|
|
' m_LogManage.GetLogCounts(count)
|
|||
|
|
' MsgBox(count)
|
|||
|
|
'End Sub
|
|||
|
|
|
|||
|
|
Private Sub btRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btRefresh.Click
|
|||
|
|
RefreshList()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Function RefreshList() As Boolean
|
|||
|
|
GetDataSet()
|
|||
|
|
|
|||
|
|
Grid1.AllowUserSort = True
|
|||
|
|
Grid1.DisplayFocusRect = False
|
|||
|
|
Grid1.ExtendLastCol = True
|
|||
|
|
Grid1.DisplayRowArrow = True
|
|||
|
|
Grid1.BoldFixedCell = False
|
|||
|
|
Grid1.SortIndicatorStyle = FlexCell.SortIndicatorStyleEnum.Light3D
|
|||
|
|
|
|||
|
|
'绑定到数据源时可以指定固定行数，但绑定后不能改变Grid.FixedRows属性的值
|
|||
|
|
'Grid1.SetDataBinding(m_Table, "products", True, 2)
|
|||
|
|
Grid1.SetDataBinding(m_Table, "", True, 1)
|
|||
|
|
|
|||
|
|
CGirdInfo.LoadGridInfo("系统记录", Grid1)
|
|||
|
|
|
|||
|
|
Grid1.Locked = True
|
|||
|
|
|
|||
|
|
Return True
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
Private Sub Form_SysLog_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|||
|
|
RefreshList()
|
|||
|
|
CGirdInfo.LoadGridInfo("系统记录", Grid1)
|
|||
|
|
|
|||
|
|
Me.Left = My.Settings.FORM_SYSLOG_X
|
|||
|
|
Me.Top = My.Settings.FORM_SYSLOG_Y
|
|||
|
|
Me.Width = My.Settings.FORM_SYSLOG_WIDTH
|
|||
|
|
Me.Height = My.Settings.FORM_SYSLOG_HEIGHT
|
|||
|
|
|
|||
|
|
m_InitOver = True
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub Form_SysLog_LocationChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LocationChanged
|
|||
|
|
If m_InitOver = True Then
|
|||
|
|
My.Settings.FORM_SYSLOG_X = Me.Left
|
|||
|
|
My.Settings.FORM_SYSLOG_Y = Me.Top
|
|||
|
|
My.Settings.Save()
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub Form_SysLog_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize
|
|||
|
|
If m_InitOver = True Then
|
|||
|
|
My.Settings.FORM_SYSLOG_HEIGHT = Me.Height
|
|||
|
|
My.Settings.FORM_SYSLOG_WIDTH = Me.Width
|
|||
|
|
My.Settings.Save()
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub Grid1_ColWidthChange(ByVal Sender As System.Object, ByVal e As FlexCell.Grid.ColWidthChangeEventArgs) Handles Grid1.ColWidthChange
|
|||
|
|
CGirdInfo.SaveGirdInfo("系统记录", Grid1)
|
|||
|
|
End Sub
|
|||
|
|
End Class
|