Mike Swanson
5359e7c49e
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>
447 lines
12 KiB
Plaintext
447 lines
12 KiB
Plaintext
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
|
|
|