feat(valleywide): recover VWP Orders VB6 source from D: backup drive
Recovered Darv's VB6 source for the Valley Wide Plastering Orders application from the D: backup drive (label "Backup", 8 TB, 5.3 TB used). This is the first time we've had the actual source — prior session only had a single frmPayroll.frm from the AD server. Three project variants identified across two snapshots: - Full-Project/ (2,129 files, 124 MB) — D:\Office-Estimates\Darv\Full\Project\ - Kingston-Project/ (2,189 files, 130 MB) — D:\Office-Estimates\Darv\Kingston\Project\ - Source/ (170 files, 559 MB) — D:\Office-Estimates\Darv\Source\ wholesale - SOURCE-HOLD/ (3 files, 1 MB) — D:\Office-Estimates\Darv\SOURCE HOLD\ Latest ORDERS_C.vbp date is 2020-06-09 (Kingston snapshot). Production Orders_10A.exe was live as of April 2024 — open question whether newer source exists on other backup drives Mike will scan next. Also includes per-category and per-keyword analysis CSVs from a WizTree file-list export, plus the analyzer script that produced them (re-runnable for the next drive's CSV). VMs (VWIN7-DW.vdi 8.3 GB + XP-for-ORDERS_copy.vdi 2.8 GB), the live VWP.mdb, and the 393 MB raw WizTree CSV stay on disk only — gitignored. Co-Authored-By: Claude Opus 4.7 (1M context) <noreply@anthropic.com>
This commit is contained in:
@@ -0,0 +1,446 @@
|
||||
VERSION 5.00
|
||||
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
|
||||
Begin VB.Form frmTLABOR
|
||||
Caption = "Texture Labor Information"
|
||||
ClientHeight = 4245
|
||||
ClientLeft = 1110
|
||||
ClientTop = 345
|
||||
ClientWidth = 11880
|
||||
KeyPreview = -1 'True
|
||||
LinkTopic = "Form1"
|
||||
ScaleHeight = 4245
|
||||
ScaleWidth = 11880
|
||||
Begin VB.PictureBox picButtons
|
||||
Align = 2 'Align Bottom
|
||||
Appearance = 0 'Flat
|
||||
BorderStyle = 0 'None
|
||||
ForeColor = &H80000008&
|
||||
Height = 300
|
||||
Left = 0
|
||||
ScaleHeight = 300
|
||||
ScaleWidth = 11880
|
||||
TabIndex = 7
|
||||
Top = 3645
|
||||
Width = 11880
|
||||
Begin VB.CommandButton cmdCancel
|
||||
Caption = "&Cancel"
|
||||
Height = 300
|
||||
Left = 1675
|
||||
TabIndex = 13
|
||||
Top = 0
|
||||
Visible = 0 'False
|
||||
Width = 1095
|
||||
End
|
||||
Begin VB.CommandButton cmdUpdate
|
||||
Caption = "&Update"
|
||||
Height = 300
|
||||
Left = 290
|
||||
TabIndex = 12
|
||||
Top = 0
|
||||
Visible = 0 'False
|
||||
Width = 1095
|
||||
End
|
||||
Begin VB.CommandButton cmdClose
|
||||
Caption = "&Close"
|
||||
Height = 300
|
||||
Left = 4445
|
||||
TabIndex = 11
|
||||
Top = 0
|
||||
Width = 1095
|
||||
End
|
||||
Begin VB.CommandButton cmdDelete
|
||||
Caption = "&Delete"
|
||||
Height = 300
|
||||
Left = 3060
|
||||
TabIndex = 10
|
||||
Top = 0
|
||||
Width = 1095
|
||||
End
|
||||
Begin VB.CommandButton cmdEdit
|
||||
Caption = "&Edit"
|
||||
Height = 300
|
||||
Left = 1675
|
||||
TabIndex = 9
|
||||
Top = 0
|
||||
Width = 1095
|
||||
End
|
||||
Begin VB.CommandButton cmdAdd
|
||||
Caption = "&Add"
|
||||
Height = 300
|
||||
Left = 290
|
||||
TabIndex = 8
|
||||
Top = 0
|
||||
Width = 1095
|
||||
End
|
||||
End
|
||||
Begin VB.PictureBox picStatBox
|
||||
Align = 2 'Align Bottom
|
||||
Appearance = 0 'Flat
|
||||
BorderStyle = 0 'None
|
||||
ForeColor = &H80000008&
|
||||
Height = 300
|
||||
Left = 0
|
||||
ScaleHeight = 300
|
||||
ScaleWidth = 11880
|
||||
TabIndex = 1
|
||||
Top = 3945
|
||||
Width = 11880
|
||||
Begin VB.CommandButton cmdLast
|
||||
Height = 300
|
||||
Left = 4545
|
||||
Picture = "frmTLABOR.frx":0000
|
||||
Style = 1 'Graphical
|
||||
TabIndex = 5
|
||||
Top = 0
|
||||
UseMaskColor = -1 'True
|
||||
Width = 345
|
||||
End
|
||||
Begin VB.CommandButton cmdNext
|
||||
Height = 300
|
||||
Left = 4200
|
||||
Picture = "frmTLABOR.frx":0342
|
||||
Style = 1 'Graphical
|
||||
TabIndex = 4
|
||||
Top = 0
|
||||
UseMaskColor = -1 'True
|
||||
Width = 345
|
||||
End
|
||||
Begin VB.CommandButton cmdPrevious
|
||||
Height = 300
|
||||
Left = 345
|
||||
Picture = "frmTLABOR.frx":0684
|
||||
Style = 1 'Graphical
|
||||
TabIndex = 3
|
||||
Top = 0
|
||||
UseMaskColor = -1 'True
|
||||
Width = 345
|
||||
End
|
||||
Begin VB.CommandButton cmdFirst
|
||||
Height = 300
|
||||
Left = 0
|
||||
Picture = "frmTLABOR.frx":09C6
|
||||
Style = 1 'Graphical
|
||||
TabIndex = 2
|
||||
Top = 0
|
||||
UseMaskColor = -1 'True
|
||||
Width = 345
|
||||
End
|
||||
Begin VB.Label lblStatus
|
||||
BackColor = &H00FFFFFF&
|
||||
BorderStyle = 1 'Fixed Single
|
||||
Height = 285
|
||||
Left = 690
|
||||
TabIndex = 6
|
||||
Top = 0
|
||||
Width = 3360
|
||||
End
|
||||
End
|
||||
Begin MSDataGridLib.DataGrid grdDataGrid
|
||||
Align = 1 'Align Top
|
||||
Height = 3495
|
||||
Left = 0
|
||||
TabIndex = 0
|
||||
Top = 0
|
||||
Width = 11880
|
||||
_ExtentX = 20955
|
||||
_ExtentY = 6165
|
||||
_Version = 393216
|
||||
AllowUpdate = -1 'True
|
||||
HeadLines = 1
|
||||
RowHeight = 15
|
||||
AllowAddNew = -1 'True
|
||||
AllowDelete = -1 'True
|
||||
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
||||
Name = "MS Sans Serif"
|
||||
Size = 8.25
|
||||
Charset = 0
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
||||
Name = "MS Sans Serif"
|
||||
Size = 8.25
|
||||
Charset = 0
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
ColumnCount = 2
|
||||
BeginProperty Column00
|
||||
DataField = ""
|
||||
Caption = ""
|
||||
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
|
||||
Type = 0
|
||||
Format = ""
|
||||
HaveTrueFalseNull= 0
|
||||
FirstDayOfWeek = 0
|
||||
FirstWeekOfYear = 0
|
||||
LCID = 1033
|
||||
SubFormatType = 0
|
||||
EndProperty
|
||||
EndProperty
|
||||
BeginProperty Column01
|
||||
DataField = ""
|
||||
Caption = ""
|
||||
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
|
||||
Type = 0
|
||||
Format = ""
|
||||
HaveTrueFalseNull= 0
|
||||
FirstDayOfWeek = 0
|
||||
FirstWeekOfYear = 0
|
||||
LCID = 1033
|
||||
SubFormatType = 0
|
||||
EndProperty
|
||||
EndProperty
|
||||
SplitCount = 1
|
||||
BeginProperty Split0
|
||||
BeginProperty Column00
|
||||
EndProperty
|
||||
BeginProperty Column01
|
||||
EndProperty
|
||||
EndProperty
|
||||
End
|
||||
End
|
||||
Attribute VB_Name = "frmTLABOR"
|
||||
Attribute VB_GlobalNameSpace = False
|
||||
Attribute VB_Creatable = False
|
||||
Attribute VB_PredeclaredId = True
|
||||
Attribute VB_Exposed = False
|
||||
Option Explicit
|
||||
|
||||
Dim WithEvents adoPrimaryRS As Recordset
|
||||
Attribute adoPrimaryRS.VB_VarHelpID = -1
|
||||
Dim mbChangedByCode As Boolean
|
||||
Dim mvBookMark As Variant
|
||||
Dim mbEditFlag As Boolean
|
||||
Dim mbAddNewFlag As Boolean
|
||||
Dim mbDataChanged As Boolean
|
||||
|
||||
Private Sub Form_Load()
|
||||
Dim db As Connection
|
||||
Set db = New Connection
|
||||
db.CursorLocation = adUseClient
|
||||
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\VWP\VWP.mdb;"
|
||||
|
||||
Set adoPrimaryRS = New Recordset
|
||||
adoPrimaryRS.Open "select TEXTURE,L_RATE,S_RATE,M_RATE,CMU,CLADJ,MATMU,MU,OHP,SCR,TP from T_LABOR Order by TEXTURE", db, adOpenStatic, adLockOptimistic
|
||||
|
||||
Set grdDataGrid.DataSource = adoPrimaryRS
|
||||
|
||||
|
||||
mbDataChanged = False
|
||||
End Sub
|
||||
|
||||
Private Sub Form_Resize()
|
||||
On Error Resume Next
|
||||
'This will resize the grid when the form is resized
|
||||
grdDataGrid.Height = Me.ScaleHeight - 30 - picButtons.Height - picStatBox.Height
|
||||
lblStatus.Width = Me.Width - 1500
|
||||
cmdNext.Left = lblStatus.Width + 700
|
||||
cmdLast.Left = cmdNext.Left + 340
|
||||
End Sub
|
||||
|
||||
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
|
||||
If mbEditFlag Or mbAddNewFlag Then Exit Sub
|
||||
|
||||
Select Case KeyCode
|
||||
Case vbKeyEscape
|
||||
cmdClose_Click
|
||||
Case vbKeyEnd
|
||||
cmdLast_Click
|
||||
Case vbKeyHome
|
||||
cmdFirst_Click
|
||||
Case vbKeyUp, vbKeyPageUp
|
||||
If Shift = vbCtrlMask Then
|
||||
cmdFirst_Click
|
||||
Else
|
||||
cmdPrevious_Click
|
||||
End If
|
||||
Case vbKeyDown, vbKeyPageDown
|
||||
If Shift = vbCtrlMask Then
|
||||
cmdLast_Click
|
||||
Else
|
||||
cmdNext_Click
|
||||
End If
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub Form_Unload(Cancel As Integer)
|
||||
Screen.MousePointer = vbDefault
|
||||
End Sub
|
||||
|
||||
Private Sub adoPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
|
||||
'This will display the current record position for this recordset
|
||||
lblStatus.Caption = "Record: " & CStr(adoPrimaryRS.AbsolutePosition)
|
||||
End Sub
|
||||
|
||||
Private Sub adoPrimaryRS_WillChangeRecord(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
|
||||
'This is where you put validation code
|
||||
'This event gets called when the following actions occur
|
||||
Dim bCancel As Boolean
|
||||
|
||||
Select Case adReason
|
||||
Case adRsnAddNew
|
||||
Case adRsnClose
|
||||
Case adRsnDelete
|
||||
Case adRsnFirstChange
|
||||
Case adRsnMove
|
||||
Case adRsnRequery
|
||||
Case adRsnResynch
|
||||
Case adRsnUndoAddNew
|
||||
Case adRsnUndoDelete
|
||||
Case adRsnUndoUpdate
|
||||
Case adRsnUpdate
|
||||
End Select
|
||||
|
||||
If bCancel Then adStatus = adStatusCancel
|
||||
End Sub
|
||||
|
||||
Private Sub cmdAdd_Click()
|
||||
On Error GoTo AddErr
|
||||
adoPrimaryRS.MoveLast
|
||||
adoPrimaryRS.AddNew
|
||||
grdDataGrid.SetFocus
|
||||
|
||||
Exit Sub
|
||||
AddErr:
|
||||
MsgBox Err.Description
|
||||
End Sub
|
||||
|
||||
Private Sub cmdDelete_Click()
|
||||
On Error GoTo DeleteErr
|
||||
With adoPrimaryRS
|
||||
.Delete
|
||||
.MoveNext
|
||||
If .EOF Then .MoveLast
|
||||
End With
|
||||
Exit Sub
|
||||
DeleteErr:
|
||||
MsgBox Err.Description
|
||||
End Sub
|
||||
|
||||
Private Sub cmdEdit_Click()
|
||||
On Error GoTo EditErr
|
||||
|
||||
lblStatus.Caption = "Edit record"
|
||||
mbEditFlag = True
|
||||
SetButtons False
|
||||
Exit Sub
|
||||
|
||||
EditErr:
|
||||
MsgBox Err.Description
|
||||
End Sub
|
||||
Private Sub cmdCancel_Click()
|
||||
On Error Resume Next
|
||||
|
||||
SetButtons True
|
||||
mbEditFlag = False
|
||||
mbAddNewFlag = False
|
||||
adoPrimaryRS.CancelUpdate
|
||||
If mvBookMark > 0 Then
|
||||
adoPrimaryRS.Bookmark = mvBookMark
|
||||
Else
|
||||
adoPrimaryRS.MoveFirst
|
||||
End If
|
||||
mbDataChanged = False
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub cmdUpdate_Click()
|
||||
On Error GoTo UpdateErr
|
||||
|
||||
adoPrimaryRS.UpdateBatch adAffectAll
|
||||
|
||||
If mbAddNewFlag Then
|
||||
adoPrimaryRS.MoveLast 'move to the new record
|
||||
End If
|
||||
|
||||
mbEditFlag = False
|
||||
mbAddNewFlag = False
|
||||
SetButtons True
|
||||
mbDataChanged = False
|
||||
|
||||
Exit Sub
|
||||
UpdateErr:
|
||||
MsgBox Err.Description
|
||||
End Sub
|
||||
|
||||
Private Sub cmdClose_Click()
|
||||
Unload Me
|
||||
End Sub
|
||||
|
||||
Private Sub cmdFirst_Click()
|
||||
On Error GoTo GoFirstError
|
||||
|
||||
adoPrimaryRS.MoveFirst
|
||||
mbDataChanged = False
|
||||
|
||||
Exit Sub
|
||||
|
||||
GoFirstError:
|
||||
MsgBox Err.Description
|
||||
End Sub
|
||||
|
||||
Private Sub cmdLast_Click()
|
||||
On Error GoTo GoLastError
|
||||
|
||||
adoPrimaryRS.MoveLast
|
||||
mbDataChanged = False
|
||||
|
||||
Exit Sub
|
||||
|
||||
GoLastError:
|
||||
MsgBox Err.Description
|
||||
End Sub
|
||||
|
||||
Private Sub cmdNext_Click()
|
||||
On Error GoTo GoNextError
|
||||
|
||||
If Not adoPrimaryRS.EOF Then adoPrimaryRS.MoveNext
|
||||
If adoPrimaryRS.EOF And adoPrimaryRS.RecordCount > 0 Then
|
||||
Beep
|
||||
'moved off the end so go back
|
||||
adoPrimaryRS.MoveLast
|
||||
End If
|
||||
'show the current record
|
||||
mbDataChanged = False
|
||||
|
||||
Exit Sub
|
||||
GoNextError:
|
||||
MsgBox Err.Description
|
||||
End Sub
|
||||
|
||||
Private Sub cmdPrevious_Click()
|
||||
On Error GoTo GoPrevError
|
||||
|
||||
If Not adoPrimaryRS.BOF Then adoPrimaryRS.MovePrevious
|
||||
If adoPrimaryRS.BOF And adoPrimaryRS.RecordCount > 0 Then
|
||||
Beep
|
||||
'moved off the end so go back
|
||||
adoPrimaryRS.MoveFirst
|
||||
End If
|
||||
'show the current record
|
||||
mbDataChanged = False
|
||||
|
||||
Exit Sub
|
||||
|
||||
GoPrevError:
|
||||
MsgBox Err.Description
|
||||
End Sub
|
||||
|
||||
Private Sub SetButtons(bVal As Boolean)
|
||||
cmdAdd.Visible = bVal
|
||||
cmdEdit.Visible = bVal
|
||||
cmdUpdate.Visible = Not bVal
|
||||
cmdCancel.Visible = Not bVal
|
||||
cmdDelete.Visible = bVal
|
||||
cmdClose.Visible = bVal
|
||||
cmdNext.Enabled = bVal
|
||||
cmdFirst.Enabled = bVal
|
||||
cmdLast.Enabled = bVal
|
||||
cmdPrevious.Enabled = bVal
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user