174 lines
6.1 KiB
Plaintext
174 lines
6.1 KiB
Plaintext
VERSION 5.00
|
|
Begin {78E93846-85FD-11D0-8487-00A0C90DC8A9} DataReport1
|
|
Bindings = "DataReport1.dsx":0000
|
|
Caption = "DataReport1"
|
|
ClientHeight = 8595
|
|
ClientLeft = 60
|
|
ClientTop = 345
|
|
ClientWidth = 11880
|
|
StartUpPosition = 2 'CenterScreen
|
|
WindowState = 2 'Maximized
|
|
_ExtentX = 20955
|
|
_ExtentY = 15161
|
|
_Version = 393216
|
|
_DesignerVersion= 100684101
|
|
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
|
|
GridX = 10
|
|
GridY = 10
|
|
LeftMargin = 1440
|
|
RightMargin = 1440
|
|
TopMargin = 1440
|
|
BottomMargin = 1440
|
|
NumSections = 5
|
|
SectionCode0 = 1
|
|
BeginProperty Section0 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9}
|
|
_Version = 393216
|
|
Name = "Section4"
|
|
Object.Height = 435
|
|
NumControls = 1
|
|
ItemType0 = 3
|
|
BeginProperty Item0 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
|
|
_Version = 393216
|
|
Name = "Label1"
|
|
Object.Top = 144
|
|
Object.Width = 7488
|
|
Object.Height = 285
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
Name = "Arial"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Object.Caption = "this is a test to see if a header prints"
|
|
CanGrow = -1 'True
|
|
Alignment = 2
|
|
EndProperty
|
|
EndProperty
|
|
SectionCode1 = 2
|
|
BeginProperty Section1 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9}
|
|
_Version = 393216
|
|
Name = "Section2"
|
|
Object.Height = 570
|
|
NumControls = 1
|
|
ItemType0 = 3
|
|
BeginProperty Item0 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
|
|
_Version = 393216
|
|
Name = "Label2"
|
|
Object.Top = 144
|
|
Object.Width = 7488
|
|
Object.Height = 420
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
Name = "Arial"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Object.Caption = "This is a page header and this is how it prints"
|
|
Alignment = 2
|
|
EndProperty
|
|
EndProperty
|
|
SectionCode2 = 4
|
|
BeginProperty Section2 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9}
|
|
_Version = 393216
|
|
Name = "Section1"
|
|
Object.Height = 1440
|
|
NumControls = 2
|
|
ItemType0 = 4
|
|
BeginProperty Item0 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9}
|
|
_Version = 393216
|
|
Name = "Text1"
|
|
Object.Left = 144
|
|
Object.Top = 720
|
|
Object.Width = 1725
|
|
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
|
|
DataField = "proj_desc"
|
|
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
|
|
Type = 0
|
|
Format = ""
|
|
HaveTrueFalseNull= 0
|
|
FirstDayOfWeek = 0
|
|
FirstWeekOfYear = 0
|
|
LCID = 1033
|
|
SubFormatType = 0
|
|
EndProperty
|
|
EndProperty
|
|
ItemType1 = 3
|
|
BeginProperty Item1 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9}
|
|
_Version = 393216
|
|
Name = "Label3"
|
|
Object.Left = 720
|
|
Object.Top = 144
|
|
Object.Width = 1728
|
|
Object.Height = 288
|
|
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 = "This is a test"
|
|
EndProperty
|
|
EndProperty
|
|
SectionCode3 = 7
|
|
BeginProperty Section3 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9}
|
|
_Version = 393216
|
|
Name = "Section3"
|
|
Object.Height = 360
|
|
NumControls = 0
|
|
EndProperty
|
|
SectionCode4 = 8
|
|
BeginProperty Section4 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9}
|
|
_Version = 393216
|
|
Name = "Section5"
|
|
Object.Height = 360
|
|
NumControls = 0
|
|
EndProperty
|
|
End
|
|
Attribute VB_Name = "DataReport1"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Option Explicit
|
|
Dim moRS As Recordset
|
|
|
|
|
|
|
|
Private Sub DataReport_Initialize()
|
|
Dim strSQL As String
|
|
|
|
strSQL = "Select proj_desc from tblProject"
|
|
|
|
Set moRS = New Recordset
|
|
|
|
moRS.Open strSQL, goConn, adOpenKeyset, adLockOptimistic
|
|
|
|
' DataReport1.DataSource = oRS
|
|
End Sub
|