?? 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 + -