azcomputerguru/claudetools
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

sync: auto-sync from GURU-5070 at 2026-06-14 05:33:01

Browse Source 
Author: Mike Swanson
Machine: GURU-5070
Timestamp: 2026-06-14 05:33:01
This commit is contained in:
Mike Swanson
2026-06-14 05:34:46 -07:00
parent 93eb2fb9bb
commit fccf9f9468
278 changed files with 370095 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

173
clients/valleywide/app-modernization/source-code/Orders-VWP_Current-2020/DataReport1.Dsr Normal file
View File

@@ -0,0 +1,173 @@
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