📄 datareport6.dsr
字号:
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
EndProperty
ItemType49 = 3
BeginProperty Item49 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label51"
Object.Left = 7890
Object.Top = 4635
Object.Width = 2655
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
ItemType50 = 3
BeginProperty Item50 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label52"
Object.Left = 7905
Object.Top = 5100
Object.Width = 2640
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
ItemType51 = 3
BeginProperty Item51 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label53"
Object.Left = 3105
Object.Top = 5520
Object.Width = 7440
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
ItemType52 = 3
BeginProperty Item52 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label54"
Object.Left = 1275
Object.Top = 6030
Object.Width = 9285
Object.Height = 2295
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
ItemType53 = 3
BeginProperty Item53 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label55"
Object.Left = 1320
Object.Top = 8685
Object.Width = 9255
Object.Height = 2490
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
ItemType54 = 3
BeginProperty Item54 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label56"
Object.Left = 1230
Object.Top = 11505
Object.Width = 9375
Object.Height = 1050
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
ItemType55 = 3
BeginProperty Item55 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label57"
Object.Left = 4230
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
ItemType56 = 3
BeginProperty Item56 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label58"
Object.Left = 6465
Object.Top = 600
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
ItemType57 = 3
BeginProperty Item57 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label59"
Object.Left = 5085
Object.Top = 615
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
ItemType58 = 3
BeginProperty Item58 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label60"
Object.Left = 7365
Object.Top = 600
Object.Width = 3045
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
ItemType59 = 3
BeginProperty Item59 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label61"
Object.Left = 6630
Object.Top = 1650
Object.Width = 975
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
Object.Caption = "使用权类型"
EndProperty
ItemType60 = 3
BeginProperty Item60 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label62"
Object.Left = 7695
Object.Top = 1590
Object.Width = 2745
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
ItemType61 = 3
BeginProperty Item61 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label63"
Object.Left = 6675
Object.Top = 2130
Object.Width = 825
Object.Height = 240
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
ItemType62 = 3
BeginProperty Item62 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
_Version = 393216
Name = "Label64"
Object.Left = 7560
Object.Top = 2115
Object.Width = 2910
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 = "DataReport6"
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 DataReport6.DataSource = rstemp
With DataReport6.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("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
.Controls("Label62").Caption = Form5.Text8
.Controls("Label64").Caption = Form5.Text10
End With
End Sub
Private Sub DataReport_Terminate()
rstemp.Close
cnntemp.Close
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -