📄 datareport2.dsr
字号:
ItemType19 = 3
BeginProperty Item19 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label15"
Object.Left = 496
Object.Top = 1346
Object.Width = 919
Object.Height = 240
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711680
Object.Caption = "%P"
Alignment = 2
EndProperty
EndProperty
SectionCode1 = 4
BeginProperty Section1 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Section1"
Object.Height = 496
NumControls = 11
ItemType0 = 4
BeginProperty Item0 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Text1"
Object.Left = 923
Object.Top = 142
Object.Width = 2267
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
ForeColor = 16711680
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 = 3190
Object.Top = 142
Object.Width = 1063
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
ForeColor = 16711680
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 = 4324
Object.Top = 142
Object.Width = 1062
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
ForeColor = 16711680
Alignment = 1
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 = 496
Object.Width = 9885
EndProperty
ItemType4 = 5
BeginProperty Item4 {1C13A8E3-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Line3"
Object.Left = 3190
Object.Height = 496
EndProperty
ItemType5 = 5
BeginProperty Item5 {1C13A8E3-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Line4"
Object.Left = 4326
Object.Height = 496
EndProperty
ItemType6 = 5
BeginProperty Item6 {1C13A8E3-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Line5"
Object.Left = 5548
Object.Height = 496
EndProperty
ItemType7 = 5
BeginProperty Item7 {1C13A8E3-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Line6"
Object.Left = 142
Object.Height = 496
EndProperty
ItemType8 = 5
BeginProperty Item8 {1C13A8E3-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Line7"
Object.Left = 8768
Object.Height = 496
EndProperty
ItemType9 = 5
BeginProperty Item9 {1C13A8E3-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Line16"
Object.Left = 847
Object.Height = 496
EndProperty
ItemType10 = 5
BeginProperty Item10 {1C13A8E3-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Line14"
Object.Left = 10010
Object.Height = 495
EndProperty
EndProperty
SectionCode2 = 7
BeginProperty Section2 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Section3"
Object.Height = 1141
NumControls = 6
ItemType0 = 3
BeginProperty Item0 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label6"
Object.Left = 283
Object.Top = 781
Object.Width = 1275
Object.Height = 360
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 = 16576
Object.Caption = "制表人："
EndProperty
ItemType1 = 3
BeginProperty Item1 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label7"
Object.Left = 3757
Object.Top = 781
Object.Width = 1275
Object.Height = 360
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 = 16576
Object.Caption = "收费人："
EndProperty
ItemType2 = 3
BeginProperty Item2 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label8"
Object.Left = 6945
Object.Top = 850
Object.Width = 2475
Object.Height = 240
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 = 16576
Object.Caption = "%D"
EndProperty
ItemType3 = 5
BeginProperty Item3 {1C13A8E3-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Line18"
Object.Left = 213
Object.Top = 638
Object.Width = 9360
BorderColor = 255
Object.BorderStyle = 2
EndProperty
ItemType4 = 5
BeginProperty Item4 {1C13A8E3-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Line19"
Object.Left = 213
Object.Top = 567
Object.Width = 9360
BorderColor = 255
Object.BorderStyle = 2
EndProperty
ItemType5 = 3
BeginProperty Item5 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label11"
Object.Left = 283
Object.Top = 142
Object.Width = 8363
Object.Height = 360
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 = 16711680
Object.Caption = "合 计："
EndProperty
EndProperty
End
Attribute VB_Name = "DataReport2"
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
linkrs.CursorLocation = adUseClient
linkrs.Open "select A=JDJX,B=cOUNT(xm),C=SUM(CDFY) from XYB " & SFBB & " and cdfy<>'0' group BY JDJX", Cn, 1, 2
Do While Not linkrs.EOF
K = K + Val(linkrs("c"))
linkrs.MoveNext
Loop
Set Me.DataSource = linkrs
Me.Sections("Section1").Controls.Item("Text1").DataField = "A"
Me.Sections("section1").Controls.Item("text2").DataField = "B"
Me.Sections("section1").Controls.Item("text3").DataField = "C"
Me.Sections("section3").Controls.Item("label11").Caption = "合 计： " & K & " 元"
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 + -