📄 frmqueryrec.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Begin VB.Form frmqueryrec
BorderStyle = 1 'Fixed Single
Caption = "操作记录"
ClientHeight = 6555
ClientLeft = 3360
ClientTop = 3090
ClientWidth = 8580
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6555
ScaleWidth = 8580
Begin MSComctlLib.ListView lvusrrec
Height = 3855
Left = 240
TabIndex = 14
Top = 1680
Width = 8055
_ExtentX = 14208
_ExtentY = 6800
View = 3
Arrange = 2
Sorted = -1 'True
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 4
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "用户ID"
Object.Width = 3704
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "操作时间"
Object.Width = 3528
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "操作类型"
Object.Width = 3000
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "操作员备注"
Object.Width = 4410
EndProperty
End
Begin VB.CommandButton cmdcancel
Caption = "返回"
Height = 495
Left = 6840
TabIndex = 12
ToolTipText = "返回操作主界面"
Top = 5880
Width = 1455
End
Begin VB.CommandButton cmdrecquery
Caption = "查询"
Height = 495
Left = 4800
TabIndex = 11
ToolTipText = "进入查询主界面按照条件查询"
Top = 5880
Width = 1455
End
Begin VB.Frame framerecquery
Height = 3855
Left = 240
TabIndex = 2
Top = 1680
Width = 8055
Begin VB.CommandButton cmdqueryok
Caption = "确定"
Default = -1 'True
Height = 495
Left = 6240
TabIndex = 10
Top = 3120
Width = 1455
End
Begin VB.ComboBox cmdopetype
Height = 300
ItemData = "frmqueryrec.frx":0000
Left = 3120
List = "frmqueryrec.frx":0016
TabIndex = 9
Top = 2520
Width = 4095
End
Begin MSComCtl2.DTPicker dtpickerquery
Height = 495
Left = 3120
TabIndex = 8
Top = 1680
Width = 4095
_ExtentX = 7223
_ExtentY = 873
_Version = 393216
Format = 25493505
CurrentDate = 39555
End
Begin VB.TextBox txtqueryusr
Height = 495
Left = 3120
TabIndex = 7
ToolTipText = "输入用户ID中某几个连续的字符即可找到相关的操作用户"
Top = 960
Width = 4095
End
Begin VB.OptionButton Option3
Caption = "按操作类型查询："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 480
TabIndex = 6
Top = 2400
Width = 2175
End
Begin VB.OptionButton Option2
Caption = "按操作时间查询："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 480
TabIndex = 5
Top = 1680
Width = 2175
End
Begin VB.OptionButton Option1
Caption = "按操作用户查询："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 480
TabIndex = 4
Top = 960
Width = 2175
End
Begin VB.Label Label2
Alignment = 2 'Center
Caption = "用户操作记录查询条件"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1680
TabIndex = 3
Top = 240
Width = 4695
End
End
Begin VB.PictureBox Picture1
BackColor = &H00C00000&
FillStyle = 0 'Solid
ForeColor = &H00FFFFFF&
Height = 1575
Left = 0
ScaleHeight = 1515
ScaleWidth = 8595
TabIndex = 0
Top = 0
Width = 8655
Begin VB.Label lbluser
BackColor = &H00C00000&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 240
TabIndex = 13
Top = 840
Width = 8055
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H00C00000&
Caption = "用户操作查询"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 615
Left = 120
TabIndex = 1
Top = 240
Width = 2295
End
End
End
Attribute VB_Name = "frmqueryrec"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Function getoperate(ByVal opetype As Integer) As String
Select Case opetype
Case 1
getoperate = "登记停车收费资料"
Case 2
getoperate = "查询停车收费资料"
Case 3
getoperate = "更改密码"
Case 4
getoperate = "添加新用户"
Case 5
getoperate = "查看用户资料"
Case 6
getoperate = "查看操作记录"
Case 7
getoperate = "类型错误"
End Select
End Function
Private Sub cmdcancel_Click()
Unload Me
End Sub
Private Sub cmdqueryok_Click()
Dim i As Integer
Dim ltitm As ListItem
Dim opequery As New ADODB.Recordset
Dim querydate1 As Date
Dim querydate2 As Date
Dim dbstr As String
Dim usrid As String
If Option1.Value = False And Option2.Value = False And Option3.Value = False Then
MsgBox "请选择一种查询方式！", , "提示"
Exit Sub
End If
If Option1.Value = True Then
If Me.txtqueryusr.Text = "" Then
MsgBox "请输入要查询的用户ID!", , "提示！"
Exit Sub
ElseIf Len(Trim(Me.txtqueryusr.Text)) > 16 Then
MsgBox "用户ID不得大于16位！", , "提示！"
Exit Sub
End If
usrid = Replace(Trim(Me.txtqueryusr.Text), "'", "'")
dbstr = "select * from userrecord where userid like "
dbstr = dbstr & "'%" & usrid & "%'"
opequery.Open dbstr, dbcnn, adOpenStatic, adLockOptimistic
ElseIf Option2.Value = True Then
querydate1 = Format(dtpickerquery, "yyyy-mm-dd")
querydate2 = DateAdd("d", 1, querydate1)
dbstr = "select * from userrecord where usertime>#"
dbstr = dbstr & querydate1
dbstr = dbstr & "# and usertime <#"
dbstr = dbstr & querydate2 & "#"
opequery.Open dbstr, dbcnn, adOpenStatic, adLockOptimistic
ElseIf Option3.Value = True Then
If Me.cmdopetype.Text = "" Then
MsgBox "请选择要查询的操作类型！", , "提示！"
Exit Sub
End If
dbstr = "select * from userrecord where useroperate="
dbstr = dbstr & Val(Me.cmdopetype.Text)
opequery.Open dbstr, dbcnn, adOpenStatic, adLockOptimistic
End If
If opequery.EOF Then
MsgBox "数据库中没有符合有求的数据！", , "提示！"
Exit Sub
End If
Me.lvusrrec.ListItems.Clear
opequery.MoveFirst
For i = 1 To opequery.RecordCount
Set ltitm = Me.lvusrrec.ListItems.Add
ltitm.Text = opequery.Fields("userid").Value
ltitm.SubItems(1) = opequery.Fields("usertime").Value
ltitm.SubItems(2) = getoperate(opequery.Fields("useroperate").Value)
opequery.MoveNext
Next i
opequery.Close
Me.framerecquery.Visible = False
Me.lvusrrec.Visible = True
addrec (6)
End Sub
Private Sub cmdrecquery_Click()
If lvusrrec.Visible = False Then
MsgBox "已经位于查询界面！", , "提示"
Exit Sub
End If
Me.lvusrrec.Visible = False
Me.framerecquery.Visible = True
Me.dtpickerquery.Value = Format(Now, "yyyy-mm-dd")
Me.txtqueryusr.Text = ""
End Sub
Private Sub Form_Load()
Dim i As Integer
Dim ltitm As ListItem
Dim recquery As New ADODB.Recordset
Me.lbluser.Caption = "当前用户: " & usernow.id & " 用户类型： 系统管理员"
recquery.Open "select * from userrecord ", dbcnn, adOpenStatic, adLockReadOnly
If recquery.EOF Then
MsgBox "目前没有操作记录", , "提示！"
Exit Sub
End If
recquery.MoveFirst
For i = 1 To recquery.RecordCount
Set ltitm = Me.lvusrrec.ListItems.Add
ltitm.Text = recquery.Fields("userid").Value
ltitm.SubItems(1) = recquery.Fields("usertime").Value
ltitm.SubItems(2) = getoperate(recquery.Fields("useroperate").Value)
If recquery.Fields("remark").Value <> "" Then
ltitm.SubItems(3) = recquery.Fields("remark").Value
End If
recquery.MoveNext
Next i
recquery.Close
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -