📄 frmquerylock.frm
字号:
VERSION 5.00
Object = "{A45D986F-3AAF-4A3B-A003-A6C53E8715A2}#1.0#0"; "ARVIEW2.OCX"
Object = "{065E6FD1-1BF9-11D2-BAE8-00104B9E0792}#3.0#0"; "SSA3D30.OCX"
Object = "{FE1D09E3-6FC7-101D-836D-BE0683BCA07A}#1.0#0"; "EDBDATE.OCX"
Begin VB.Form frmQueryLock
BorderStyle = 3 'Fixed Dialog
Caption = "读历史开门记录"
ClientHeight = 7530
ClientLeft = 45
ClientTop = 330
ClientWidth = 9600
Icon = "frmQueryLock.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 7530
ScaleWidth = 9600
ShowInTaskbar = 0 'False
Begin Threed.SSPanel SSPanel1
Height = 7560
Left = 240
TabIndex = 0
Top = -240
Width = 9615
_ExtentX = 16960
_ExtentY = 13335
_Version = 196610
PictureBackgroundStyle= 2
BevelInner = 1
RoundedCorners = 0 'False
FloodShowPct = -1 'True
Begin TDBDateCtrl.TDBDate DBEnd
Height = 285
Left = 3960
TabIndex = 10
Top = 240
Width = 1095
_ExtentX = 1931
_ExtentY = 503
_Version = 65537
HolidayColor = 255
AlignHorizontal = 0
AlignVertical = 0
CursorPosition = 0
MaxDate = 20991231
MinDate = 1000101
Number = 20040317
Value = 38063
ErrorBeep = 0 'False
ReadOnly = 0 'False
ClipMode = 0
HighlightText = 0
DataProperty = 0
FirstMonth = 4
Format = "yy-mm-dd"
DisplayFormat = "yy-m-d"
NationalHolidays= "1/1"
UserHolidays = ""
KeyClear = "{F2}"
KeyNext = ""
KeyNow = "{F3}"
KeyPopup = "{SPACE}"
KeyPrevious = ""
PromptChar = "_"
Text = "04-03-17"
Appearance = 1
BackColor = -2147483643
Enabled = -1 'True
ForeColor = -2147483640
BorderStyle = 1
MarginBottom = 1
MarginLeft = 1
MarginRight = 1
MarginTop = 1
DropdownButton = -1 'True
SpinButton = 0 'False
Caption = "&Caption"
CaptionAlignment= 3
CaptionColor = 0
CaptionWidth = 0
CaptionPosition = 0
CaptionSpacing = 3
BeginProperty CaptionFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
SpinAutowrap = 0 'False
_StockProps = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MouseIcon = "frmQueryLock.frx":000C
MousePointer = 0
End
Begin TDBDateCtrl.TDBDate DBStart
Height = 285
Left = 2760
TabIndex = 9
Top = 240
Width = 855
_ExtentX = 1508
_ExtentY = 503
_Version = 65537
HolidayColor = 255
AlignHorizontal = 0
AlignVertical = 0
CursorPosition = 0
MaxDate = 20991231
MinDate = 1000101
Number = 20040317
Value = 38063
ErrorBeep = 0 'False
ReadOnly = 0 'False
ClipMode = 0
HighlightText = 0
DataProperty = 0
FirstMonth = 4
Format = "yy-mm-dd"
DisplayFormat = "yy-m-d"
NationalHolidays= "1/1"
UserHolidays = ""
KeyClear = "{F2}"
KeyNext = ""
KeyNow = "{F3}"
KeyPopup = "{SPACE}"
KeyPrevious = ""
PromptChar = "_"
Text = "04-03-17"
Appearance = 1
BackColor = -2147483643
Enabled = -1 'True
ForeColor = -2147483640
BorderStyle = 1
MarginBottom = 1
MarginLeft = 1
MarginRight = 1
MarginTop = 1
DropdownButton = -1 'True
SpinButton = 0 'False
Caption = "&Caption"
CaptionAlignment= 3
CaptionColor = 0
CaptionWidth = 0
CaptionPosition = 0
CaptionSpacing = 3
BeginProperty CaptionFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
SpinAutowrap = 0 'False
_StockProps = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MouseIcon = "frmQueryLock.frx":0028
MousePointer = 0
End
Begin VB.PictureBox Picture1
BackColor = &H00FFFFFF&
Height = 375
Left = 6360
ScaleHeight = 315
ScaleWidth = 915
TabIndex = 8
Top = 240
Width = 975
End
Begin Threed.SSCheck chkTime
Height = 255
Left = 5160
TabIndex = 7
Top = 240
Width = 1215
_ExtentX = 2143
_ExtentY = 450
_Version = 196610
BackStyle = 1
Caption = "时间有效"
End
Begin VB.ComboBox cboArea
Height = 300
Left = 600
TabIndex = 4
Top = 240
Width = 1215
End
Begin DDActiveReportsViewer2Ctl.ARViewer2 arv
Height = 6495
Left = 120
TabIndex = 1
Top = 600
Width = 9135
_ExtentX = 16113
_ExtentY = 11456
SectionData = "frmQueryLock.frx":0044
End
Begin Threed.SSCommand cmdHistory
Height = 435
Left = 7680
TabIndex = 2
Top = 240
Width = 1605
_ExtentX = 2831
_ExtentY = 767
_Version = 196610
PictureFrames = 1
BackStyle = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "frmQueryLock.frx":0080
Caption = "历史记录(&L)"
Alignment = 4
ButtonStyle = 3
PictureAlignment= 1
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "到"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 3720
TabIndex = 6
Top = 360
Width = 195
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "时间从"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 1920
TabIndex = 5
Top = 360
Width = 585
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "单位"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 120
TabIndex = 3
Top = 360
Width = 390
End
End
End
Attribute VB_Name = "frmQueryLock"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdHistory_Click()
Dim cLI As New rsclsLockInfo
Dim bndLI As New BindingCollection
Dim bShowread As Boolean
If cboArea.Text = "" Then
StatusShow ("请选择使用单位")
Exit Sub
End If
bShowread = True
cLI.Query_LockArea = cboArea.Text
cLI.Query_BeginDate = DBStart.Value
cLI.Query_EndDate = DBEnd.Value
If chkTime.Value = -1 Then
With bndLI
.DataMember = "bylockarea"
Set .DataSource = cLI
End With
Else
With bndLI
.DataMember = "lock"
Set .DataSource = cLI
End With
End If
If cLI.RecordCount = 0 Then
StatusShow ("没有门锁开门记录")
Exit Sub
End If
If bShowread Then
Unload rptLockRead
bShowread = False
End If
Dim tmpRS As New ADODB.Recordset
Set tmpRS = cLI.returnRecordset
Load rptLockRead
Set rptLockRead.DataControl1.Recordset = tmpRS
Set arv.ReportSource = rptLockRead
' bShowRead = True
Set cLI = Nothing
Set bndLI = Nothing
End Sub
Private Sub Form_Load()
Me.Top = (mainForm.ScaleHeight - Me.Height) / 2
Me.Left = (mainForm.ScaleWidth - Me.Width) / 2
SSPanel1.PictureBackground = mainForm.Pic.Picture
SSPanel1.PictureBackgroundStyle = ssTiled
AddLockArea
End Sub
Private Sub AddLockArea()
Dim cAA As New rsclsAddLockArea
Dim bndAA As New BindingCollection
Dim i As Integer
On Error Resume Next
With bndAA
.DataMember = ""
Set .DataSource = cAA
End With
If cAA.RecordCount = 0 Then
StatusShow ("使用单位没有登记")
Set cAA = Nothing
Set bndAA = Nothing
Exit Sub
End If
Dim rsLockArea As ADODB.Recordset
Set rsLockArea = cAA.getRSLockArea
For i = 1 To rsLockArea.RecordCount
cboArea.AddItem rsLockArea.Fields(0).Value
rsLockArea.MoveNext
Next i
Set cAA = Nothing
Set bndAA = Nothing
Set rsLockArea = Nothing
Exit Sub
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -