📄 frmsystemlog.frm
字号:
VERSION 5.00
Object = "{3B008041-905A-11D1-B4AE-444553540000}#1.0#0"; "Vsocx6.ocx"
Object = "{D76D7128-4A96-11D3-BD95-D296DC2DD072}#1.0#0"; "Vsflex7.ocx"
Object = "{CFFE0A60-8E3A-11D3-BCC0-00104B9E0792}#1.0#0"; "ssinput1.ocx"
Begin VB.Form frmSystemLog
Caption = "系统日志"
ClientHeight = 5055
ClientLeft = 60
ClientTop = 345
ClientWidth = 8895
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
HelpContextID = 1024
LinkTopic = "Form2"
MDIChild = -1 'True
ScaleHeight = 5055
ScaleWidth = 8895
Begin vsOcx6LibCtl.vsElastic vsElastic2
Height = 4185
Left = 0
TabIndex = 1
TabStop = 0 'False
Top = 870
Width = 8895
_ExtentX = 15690
_ExtentY = 7382
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Enabled = -1 'True
Appearance = 1
MousePointer = 0
_ConvInfo = -1
Version = 600
BackColor = -2147483633
ForeColor = -2147483630
FloodColor = 192
ForeColorDisabled= -2147483631
Caption = "系统日志一览"
Align = 5
Appearance = 1
AutoSizeChildren= 8
BorderWidth = 6
ChildSpacing = 4
Splitter = 0 'False
FloodDirection = 0
FloodPercent = 0
CaptionPos = 1
WordWrap = -1 'True
MaxChildSize = 0
MinChildSize = 0
TagWidth = 0
TagPosition = 0
Style = 1
TagSplit = 0 'False
PicturePos = 4
CaptionStyle = 0
ResizeFonts = 0 'False
GridRows = 3
GridCols = 6
_GridInfo = $"frmSystemLog.frx":0000
Begin VSFlex7Ctl.VSFlexGrid VSFlexGrid4SysLog
Height = 3270
Left = 90
TabIndex = 7
Top = 375
Width = 8715
_cx = 15372
_cy = 5768
_ConvInfo = -1
Appearance = 1
BorderStyle = 1
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MousePointer = 0
BackColor = -2147483643
ForeColor = -2147483640
BackColorFixed = -2147483633
ForeColorFixed = -2147483630
BackColorSel = -2147483635
ForeColorSel = -2147483634
BackColorBkg = -2147483636
BackColorAlternate= -2147483643
GridColor = -2147483633
GridColorFixed = -2147483632
TreeColor = -2147483632
FloodColor = 192
SheetBorder = -2147483642
FocusRect = 1
HighLight = 1
AllowSelection = -1 'True
AllowBigSelection= -1 'True
AllowUserResizing= 0
SelectionMode = 0
GridLines = 1
GridLinesFixed = 2
GridLineWidth = 1
Rows = 50
Cols = 10
FixedRows = 1
FixedCols = 1
RowHeightMin = 0
RowHeightMax = 0
ColWidthMin = 0
ColWidthMax = 0
ExtendLastCol = 0 'False
FormatString = ""
ScrollTrack = 0 'False
ScrollBars = 3
ScrollTips = 0 'False
MergeCells = 0
MergeCompare = 0
AutoResize = -1 'True
AutoSizeMode = 0
AutoSearch = 0
AutoSearchDelay = 2
MultiTotals = -1 'True
SubtotalPosition= 1
OutlineBar = 0
OutlineCol = 0
Ellipsis = 0
ExplorerBar = 0
PicturesOver = 0 'False
FillStyle = 0
RightToLeft = 0 'False
PictureType = 0
TabBehavior = 0
OwnerDraw = 0
Editable = 0
ShowComboButton = -1 'True
WordWrap = 0 'False
TextStyle = 0
TextStyleFixed = 0
OleDragMode = 0
OleDropMode = 0
DataMode = 0
VirtualData = -1 'True
DataMember = ""
ComboSearch = 3
AutoSizeMouse = -1 'True
FrozenRows = 0
FrozenCols = 0
AllowUserFreezing= 0
BackColorFrozen = 0
ForeColorFrozen = 0
WallPaperAlignment= 9
End
Begin VB.CommandButton Command4ClearLog
Caption = "清除日志(&D)"
Height = 390
Left = 5940
TabIndex = 6
Top = 3705
Width = 1395
End
Begin VB.CommandButton Command4Close
Caption = "关闭(&C)"
Height = 390
Left = 7395
TabIndex = 5
Top = 3705
Width = 1410
End
End
Begin vsOcx6LibCtl.vsElastic vsElastic4Searth
Height = 870
Left = 0
TabIndex = 0
TabStop = 0 'False
Top = 0
Width = 8895
_ExtentX = 15690
_ExtentY = 1535
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Enabled = -1 'True
Appearance = 1
MousePointer = 0
_ConvInfo = -1
Version = 600
BackColor = -2147483633
ForeColor = -2147483630
FloodColor = 192
ForeColorDisabled= -2147483631
Caption = "查询条件"
Align = 1
Appearance = 1
AutoSizeChildren= 0
BorderWidth = 6
ChildSpacing = 4
Splitter = 0 'False
FloodDirection = 0
FloodPercent = 0
CaptionPos = 1
WordWrap = -1 'True
MaxChildSize = 0
MinChildSize = 0
TagWidth = 0
TagPosition = 0
Style = 1
TagSplit = 0 'False
PicturePos = 4
CaptionStyle = 0
ResizeFonts = 0 'False
GridRows = 0
GridCols = 0
_GridInfo = ""
Begin VB.CommandButton Command4Search
Caption = "查询(&S)"
Height = 375
Left = 7110
TabIndex = 4
Top = 315
Width = 1590
End
Begin ActiveInput.SSComboBoxEx SSComboBoxEx4Empcode
Height = 315
Left = 1350
TabIndex = 3
Top = 360
Width = 1905
_ExtentX = 3360
_ExtentY = 556
_Version = 65536
End
Begin VB.Label Label4EmpNo
Caption = "人员名称"
Height = 195
Left = 270
TabIndex = 2
Top = 405
Width = 1005
End
End
End
Attribute VB_Name = "frmSystemLog"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim strSQL As String
Dim m_oRs4SysLog As New ADODB.Recordset
Dim m_oRs4EmpNo As New ADODB.Recordset
Private Sub Command4ClearLog_Click()
If Me.VSFlexGrid4SysLog.Rows < 1 Then Exit Sub
If vbOK = MsgBox("该操作无法恢复,确定要清除所有日志吗?", vbOKCancel, "警告") Then
strSQL = "delete from T_SYSTEMLOG"
ExcuteSQL (strSQL)
SSComboBoxEx4Empcode.text = ""
End If
Call Command4Search_Click
End Sub
Private Sub Command4Close_Click()
Unload Me
End Sub
Private Sub Command4Search_Click()
strSQL = "select EMP_NAME,native_place,id_code,SYSTEM_LOG_IN_TIME,SYSTEM_LOG_OUT_TIME from T_EMP_BASIC,T_SYSTEMLOG where T_SYSTEMLOG.EMP_no=T_EMP_BASIC.EMP_no and T_SYSTEMLOG.organ_no like '" & g_str4LoginUnit & "%'"
If SSComboBoxEx4Empcode.text <> "" Then strSQL = strSQL & " and emp_name='" & SSComboBoxEx4Empcode.text & "'"
If m_oRs4SysLog.State = adStateOpen Then m_oRs4SysLog.Close
m_oRs4SysLog.CursorLocation = adUseClient
m_oRs4SysLog.Open strSQL, g_oConnection4This, adOpenKeyset, adLockOptimistic
Set VSFlexGrid4SysLog.DataSource = m_oRs4SysLog
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
SendKeys "{tab}"
End If
End Sub
Private Sub Form_Load()
Me.Height = 5460
Me.Width = 9540
With VSFlexGrid4SysLog
.FixedCols = 1
.FixedRows = 1
.Editable = flexEDNone
.ExplorerBar = flexExSort
.HighLight = flexHighlightNever
.ExtendLastCol = True
End With
Call Command4Search_Click
FillComboBox SSComboBoxEx4Empcode, "T_EMP_BASIC", "EMP_no", "EMP_NAME", , " WHERE T_EMP_BASIC.OPRROLE_no IS NOT NULL "
Unload frmSplash
Call InitForm
End Sub
Private Sub Form_Unload(Cancel As Integer)
MDIfrmMain.SSActiveToolBarsMain.Tools("ID_系统日志信息").Enabled = True
End Sub
Private Sub SSComboBoxEx4Empcode_Change()
DisplayRelateItems SSComboBoxEx4Empcode
End Sub
Private Sub SSComboBoxEx4Empcode_LostFocus()
CheckValidate SSComboBoxEx4Empcode
End Sub
Private Sub VSFlexGrid4SysLog_AfterDataRefresh()
Dim i As Integer
With Me.VSFlexGrid4SysLog
.TextMatrix(0, 1) = "用户名"
.TextMatrix(0, 2) = "籍贯"
.TextMatrix(0, 3) = "身份证号"
.TextMatrix(0, 4) = "进入系统时间"
.TextMatrix(0, 5) = "退出系统时间"
.ColWidth(1) = .ClientWidth * 0.15
.ColWidth(2) = .ClientWidth * 0.15
.ColWidth(3) = .ClientWidth * 0.15
.ColWidth(4) = .ClientWidth * 0.25
.ColWidth(5) = .ClientWidth * 0.25
For i = 0 To .Cols - 1
.ColAlignment(i) = flexAlignCenterCenter
Next
End With
vsElastic2.Caption = "系统日志一览(总计" & VSFlexGrid4SysLog.Rows - 1 & "条记录)"
End Sub
Private Sub InitForm()
Dim str4CheckPermission As String
If g_lOprroleNo = 0 Then Exit Sub
str4CheckPermission = CheckPermission("系统日志信息")
If Mid(str4CheckPermission, 4, 1) = 0 Then Command4ClearLog.Enabled = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -