📄 datareport1.dsr
字号:
VERSION 5.00
Begin {78E93846-85FD-11D0-8487-00A0C90DC8A9} DataReport1
Caption = "DataReport1"
ClientHeight = 11115
ClientLeft = 60
ClientTop = 345
ClientWidth = 15240
MDIChild = -1 'True
WindowState = 2 'Maximized
_ExtentX = 26882
_ExtentY = 19606
_Version = 393216
_DesignerVersion= 100684101
ReportWidth = 8160
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
GridX = 8
GridY = 8
LeftMargin = 1440
RightMargin = 1440
TopMargin = 1440
BottomMargin = 1440
_Settings = 31
NumSections = 3
SectionCode0 = 2
BeginProperty Section0 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Section2"
Object.Height = 1740
NumControls = 5
ItemType0 = 3
BeginProperty Item0 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label1"
Object.Left = 2905
Object.Top = 496
Object.Width = 2265
Object.Height = 345
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Object.Caption = "ID 卡回收收据"
EndProperty
ItemType1 = 3
BeginProperty Item1 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label2"
Object.Left = 141
Object.Top = 1276
Object.Width = 2268
Object.Height = 283
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Object.Caption = "入场时间"
Alignment = 2
EndProperty
ItemType2 = 3
BeginProperty Item2 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label3"
Object.Left = 2976
Object.Top = 1276
Object.Width = 2265
Object.Height = 283
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Object.Caption = "出场时间"
Alignment = 2
EndProperty
ItemType3 = 3
BeginProperty Item3 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label4"
Object.Left = 5810
Object.Top = 1276
Object.Width = 2265
Object.Height = 285
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Object.Caption = "消费时间"
Alignment = 2
EndProperty
ItemType4 = 5
BeginProperty Item4 {1C13A8E3-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Line1"
Object.Left = 142
Object.Top = 1630
Object.Width = 8013
EndProperty
EndProperty
SectionCode1 = 4
BeginProperty Section1 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Section1"
Object.Height = 240
NumControls = 4
ItemType0 = 4
BeginProperty Item0 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Text1"
Object.Left = 70
Object.Width = 2268
Object.Height = 240
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Alignment = 2
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
ItemType1 = 4
BeginProperty Item1 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Text2"
Object.Left = 2905
Object.Width = 2267
Object.Height = 240
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Alignment = 2
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
ItemType2 = 4
BeginProperty Item2 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Text3"
Object.Left = 5739
Object.Width = 2268
Object.Height = 240
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Alignment = 2
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
ItemType3 = 5
BeginProperty Item3 {1C13A8E3-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Line2"
Object.Left = 142
Object.Top = 210
Object.Width = 8013
EndProperty
EndProperty
SectionCode2 = 7
BeginProperty Section2 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Section3"
Object.Height = 2825
NumControls = 4
ItemType0 = 7
BeginProperty Item0 {1C13A8E5-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Image1"
Object.Left = 6094
Object.Top = 1205
Object.Width = 1710
Object.Height = 1620
Picture = "DataReport1.dsx":0000
SizeMode = 1
EndProperty
ItemType1 = 3
BeginProperty Item1 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label5"
Object.Left = 5527
Object.Top = 1489
Object.Width = 2415
Object.Height = 345
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Object.Caption = "金华市驾服中心"
EndProperty
ItemType2 = 3
BeginProperty Item2 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label6"
Object.Left = 6235
Object.Top = 2126
Object.Width = 1440
Object.Height = 240
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Object.Caption = "%D"
EndProperty
ItemType3 = 3
BeginProperty Item3 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label7"
Object.Left = 4039
Object.Top = 142
Object.Width = 3900
Object.Height = 345
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 255
Object.Caption = "总消费时间：１００ 小时"
EndProperty
EndProperty
End
Attribute VB_Name = "DataReport1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim linkrs As New ADODB.Recordset
Dim Rrs As New ADODB.Recordset
Private Sub DataReport_Initialize()
On Error Resume Next
Dim K As Double
Rrs.CursorLocation = adUseClient
Rrs.Open "select xfsj from ls " & LSSql, Cn, 1, 3
Do While Not Rrs.EOF
K = K + Val(Rrs("xfsj"))
Rrs.MoveNext
Loop
Rrs.Close
linkrs.CursorLocation = adUseClient
linkrs.Open "select rcsj,ccsj,xfsj from ls " & LSSql, Cn, 1, 2
Set Me.DataSource = linkrs
Me.Sections("Section1").Controls.Item("Text1").DataField = "rcsj"
Me.Sections("section1").Controls.Item("text2").DataField = "ccsj"
Me.Sections("section1").Controls.Item("text3").DataField = "xfsj"
Me.Sections("section3").Controls.Item("label7").Caption = "总消费时间：" & K & " 小时"
Set Me.Sections("Section3").Controls.Item("Image1").Picture = LoadPicture(App.Path & "\pic\公章.gif")
End Sub
Private Sub DataReport_QueryClose(Cancel As Integer, CloseMode As Integer)
linkrs.Close
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -