📄 datareport3.dsr
字号:
Object.Top = 6045
Object.Width = 7155
Object.Height = 1815
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
EndProperty
ItemType77 = 3
BeginProperty Item77 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label55"
Object.Left = 795
Object.Top = 8295
Object.Width = 7155
Object.Height = 1710
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
EndProperty
ItemType78 = 3
BeginProperty Item78 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label56"
Object.Left = 765
Object.Top = 10350
Object.Width = 7215
Object.Height = 645
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
EndProperty
ItemType79 = 5
BeginProperty Item79 {1C13A8E3-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Line25"
Object.Left = 3675
Object.Top = 555
Object.Height = 450
EndProperty
ItemType80 = 5
BeginProperty Item80 {1C13A8E3-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Line26"
Object.Left = 4530
Object.Top = 555
Object.Height = 450
EndProperty
ItemType81 = 5
BeginProperty Item81 {1C13A8E3-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Line27"
Object.Left = 5910
Object.Top = 540
Object.Height = 465
EndProperty
ItemType82 = 5
BeginProperty Item82 {1C13A8E3-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Line28"
Object.Left = 6810
Object.Top = 540
Object.Height = 465
EndProperty
ItemType83 = 3
BeginProperty Item83 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label57"
Object.Left = 3735
Object.Top = 630
Object.Width = 765
Object.Height = 315
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Object.Caption = "单位性质"
EndProperty
ItemType84 = 3
BeginProperty Item84 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label58"
Object.Left = 5970
Object.Top = 615
Object.Width = 765
Object.Height = 315
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Object.Caption = "主管部门"
EndProperty
ItemType85 = 3
BeginProperty Item85 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label59"
Object.Left = 4590
Object.Top = 630
Object.Width = 1200
Object.Height = 315
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
EndProperty
ItemType86 = 3
BeginProperty Item86 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label60"
Object.Left = 6870
Object.Top = 615
Object.Width = 1215
Object.Height = 285
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
EndProperty
ItemType87 = 5
BeginProperty Item87 {1C13A8E3-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Line29"
Object.Left = 5955
Object.Top = 1560
Object.Height = 990
EndProperty
ItemType88 = 5
BeginProperty Item88 {1C13A8E3-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Line30"
Object.Left = 6840
Object.Top = 1560
Object.Height = 1035
EndProperty
ItemType89 = 3
BeginProperty Item89 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label61"
Object.Left = 5925
Object.Top = 1665
Object.Width = 1050
Object.Height = 330
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Object.Caption = "使用权类型"
EndProperty
ItemType90 = 3
BeginProperty Item90 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label62"
Object.Left = 7020
Object.Top = 1635
Object.Width = 1155
Object.Height = 330
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
EndProperty
ItemType91 = 3
BeginProperty Item91 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label63"
Object.Left = 6015
Object.Top = 2160
Object.Width = 780
Object.Height = 315
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Object.Caption = "中止日期"
EndProperty
ItemType92 = 3
BeginProperty Item92 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label64"
Object.Left = 6915
Object.Top = 2160
Object.Width = 1260
Object.Height = 300
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
EndProperty
EndProperty
SectionCode2 = 7
BeginProperty Section2 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Section3"
Object.Height = 360
NumControls = 0
EndProperty
End
Attribute VB_Name = "DataReport3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim cnntemp As ADODB.Connection
Dim rstemp As ADODB.Recordset
Private Sub DataReport_Initialize()
Set cnntemp = New ADODB.Connection
Set rstemp = New ADODB.Recordset
rstemp.CursorLocation = adUseClient
rstemp.CursorType = adOpenDynamic
rstemp.LockType = adLockPessimistic
cnntemp.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\tdgl.mdb;Persist Security Info=False"
rstemp.Open Form5.rsstringtemp2, cnntemp
Set DataReport3.DataSource = rstemp
With DataReport3.Sections("Section1")
.Controls("Label1").Caption = Form5.Text15
.Controls("Label38").Caption = Form5.Text2
.Controls("Label38").Caption = Form5.Text6
.Controls("Label39").Caption = Form5.Text7
.Controls("Label40").Caption = Form5.Text3
.Controls("Label62").Caption = Form5.Text8
.Controls("Label64").Caption = Form5.Text10
.Controls("Label41").Caption = Form5.Text9
.Controls("Label42").Caption = Form5.Text12
.Controls("Label43").Caption = Form5.Text13
.Controls("Label44").Caption = Form5.Text14
.Controls("Label45").Caption = Form5.Text16
.Controls("Label46").Caption = Form5.Text17
.Controls("Label47").Caption = Form5.Text18
.Controls("Label48").Caption = Form5.Text20
.Controls("Label49").Caption = Form5.Text22
.Controls("Label50").Caption = Form5.Text19
.Controls("Label51").Caption = Form5.Text21
.Controls("Label52").Caption = Form5.Text23
.Controls("Label53").Caption = Form5.Text24
.Controls("Label54").Caption = Form5.Text25
.Controls("Label55").Caption = Form5.Text26
.Controls("Label56").Caption = Form5.Text27
.Controls("Label59").Caption = Form5.Text4
.Controls("Label60").Caption = Form5.Text5
End With
End Sub
Private Sub DataReport_Terminate()
rstemp.Close
cnntemp.Close
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -