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:
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
File diff suppressed because it is too large
Load Diff
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,126 @@
|
||||
Private Sub LoadInventory()
|
||||
Dim oSTATUS As Long
|
||||
Dim strSQL As String, strSQLL As String, dblONHAND As Double
|
||||
Dim strLine As String, strCode As String, strCompany As String
|
||||
Dim strNAME As String, strCUST As String, strVEND As String, strTYPE As String
|
||||
Dim lngRET As Long, aTabs(2) As Long, lngRECORD As Long, lngONHAND As Long
|
||||
Dim lngNAME As Long, lngCUST As Long, lngVEND As Long, lngType As Long
|
||||
Dim lngMIN As Long, lngMAX As Long, lngCOMMIT As Long
|
||||
Dim dblMIN As Double, dblMAX As Double, dblCOMMIT As Double, dblAVAIL As Double
|
||||
Dim lngLSTCOST As Long, lngRETAIL1 As Long, dblLSTCOST As Double, dblRETAIL1 As Double
|
||||
Dim lngBUYCON As Long, dblBUYCON As Double
|
||||
Dim lngWEIGHT As Long, dblWEIGHT As Double
|
||||
Dim lngONORDER As Long, dblONORDER As Double
|
||||
Dim lngCSQty As Long, strCSQty As String
|
||||
Dim intYN As Integer, strMSG As String
|
||||
Dim lngLOrder As Long, lngLPur As Long, lngLSALE As Long
|
||||
Dim strLOrder As String, strLPur As String, strLSALE As String, strTStock As String
|
||||
Dim strWeight As String, intMIN As Integer, strFIND As String, strTVend As String
|
||||
Dim strVSTOCK As String, lngVSTOCK As Long, lngIMAGE As Long, strIMAGE As String
|
||||
|
||||
'TAG4 pointers
|
||||
Dim lngCustTag As Long
|
||||
|
||||
On Error GoTo Error_EH
|
||||
|
||||
strSQL = gstrCOMPANY & "INMAS"
|
||||
db = d4open(cb, fPath + strSQL)
|
||||
|
||||
rc = d4top(db)
|
||||
|
||||
lstInventory.Clear
|
||||
lstInventory.SortState = SortStateSuspend
|
||||
If d4top(db) = r4success Then
|
||||
|
||||
Do
|
||||
oSTATUS = d4deleted(db)
|
||||
If oSTATUS = 0 Then
|
||||
lngCUST = d4field(db, "IN_DES")
|
||||
strCUST = f4str(lngCUST)
|
||||
If IsNull(strCUST) Or IsNull(txtSearch) Or txtSearch = "" Then
|
||||
intYN = 0
|
||||
Else
|
||||
intYN = InStr(1, UCase(Trim(strCUST)), UCase(Trim(txtSearch))) ', vbTextCompare)
|
||||
End If
|
||||
If intYN > 0 Then
|
||||
With lstInventory
|
||||
lngNAME = d4field(db, "IN_STOCK")
|
||||
' lngCUST = d4field(db, "IN_DES")
|
||||
lngVEND = d4field(db, "IN_VENDOR")
|
||||
lngType = d4field(db, "IN_TYPE")
|
||||
lngONHAND = d4field(db, "IN_ONHAND")
|
||||
lngMIN = d4field(db, "IN_MINQTY")
|
||||
lngMAX = d4field(db, "IN_MAXQTY")
|
||||
lngCOMMIT = d4field(db, "IN_COMMIT")
|
||||
lngLSTCOST = d4field(db, "IN_LSCOST")
|
||||
lngRETAIL1 = d4field(db, "IN_PRICE1")
|
||||
lngBUYCON = d4field(db, "IN_ALTRN1")
|
||||
lngONORDER = d4field(db, "IN_ORDERTE")
|
||||
lngWEIGHT = d4field(db, "IN_FIELD07")
|
||||
lngCSQty = d4field(db, "IN_FIELD08")
|
||||
lngLOrder = d4field(db, "IN_LSORDR")
|
||||
lngLPur = d4field(db, "IN_LSPRCH")
|
||||
lngLSALE = d4field(db, "IN_LSSALE")
|
||||
lngVSTOCK = d4field(db, "IN_FIELD10")
|
||||
lngIMAGE = d4field(db, "IN_GRAPHIC")
|
||||
strTYPE = f4str(lngType)
|
||||
strNAME = f4str(lngNAME)
|
||||
' strCUST = f4str(lngCUST)
|
||||
strVEND = f4str(lngVEND)
|
||||
strVSTOCK = Trim(f4str(lngVSTOCK))
|
||||
dblONHAND = f4double(lngONHAND)
|
||||
dblMIN = f4double(lngMIN)
|
||||
dblMAX = f4double(lngMAX)
|
||||
dblCOMMIT = f4double(lngCOMMIT)
|
||||
dblAVAIL = dblONHAND - dblCOMMIT
|
||||
dblLSTCOST = f4double(lngLSTCOST)
|
||||
dblRETAIL1 = f4double(lngRETAIL1)
|
||||
dblBUYCON = f4double(lngBUYCON)
|
||||
dblONORDER = f4double(lngONORDER)
|
||||
dblWEIGHT = f4double(lngWEIGHT)
|
||||
strWeight = dblWEIGHT
|
||||
strCSQty = f4str(lngCSQty)
|
||||
If Trim(strCSQty) = "0.00" Then
|
||||
strCSQty = ""
|
||||
End If
|
||||
strLOrder = f4str(lngLOrder)
|
||||
strLPur = f4str(lngLPur)
|
||||
strLSALE = f4str(lngLSALE)
|
||||
strIMAGE = f4str(lngIMAGE)
|
||||
' If Trim(strCSQty) = "0.00" Then
|
||||
' strCSQty = ""
|
||||
' End If
|
||||
If Trim(strWeight) = "0.00" Or Trim(strWeight) = "0" Then
|
||||
strWeight = ""
|
||||
End If
|
||||
' .AddItem RTrim$(strNAME) & vbTab & Trim$(strCUST) & vbTab & Trim$(strVEND) & vbTab & Trim$(strTYPE) & vbTab & (dblMIN) & vbTab & (dblMAX) & vbTab & (dblAVAIL) & vbTab & (dblLSTCOST) & vbTab & (dblRETAIL1) & vbTab & dblBUYCON & vbTab & dblONORDER & vbTab & dblWEIGHT & vbTab & strCSQty
|
||||
' .AddItem RTrim$(strNAME) & vbTab & Trim$(strCUST) & vbTab & Trim$(strVEND) & vbTab & Trim$(strTYPE) & vbTab & (dblMIN) & vbTab & (dblMAX) & vbTab & (dblAVAIL) & vbTab & (dblLSTCOST) & vbTab & (dblRETAIL1) & vbTab & dblBUYCON & vbTab & dblONORDER & vbTab & dblWEIGHT & vbTab & strCSQty & vbTab & strLOrder & vbTab & strLPur & vbTab & strLSALE & vbTab & (strVSTOCK) & vbTab & (strIMAGE)
|
||||
.AddItem RTrim$(strNAME) & vbTab & Trim$(strCUST) & vbTab & Trim$(strVEND) & vbTab & Trim$(strTYPE) & vbTab & (dblMIN) & vbTab & (dblMAX) & vbTab & (dblAVAIL) & vbTab & (dblLSTCOST) & vbTab & (dblRETAIL1) & vbTab & dblBUYCON & vbTab & dblONORDER & vbTab & strWeight & vbTab & strCSQty & vbTab & strLOrder & vbTab & strLPur & vbTab & strLSALE & vbTab & (strVSTOCK) & vbTab & (strIMAGE) & vbTab & (strONHAND)
|
||||
End With
|
||||
End If
|
||||
End If
|
||||
rc = d4skip(db, 1)
|
||||
Loop While rc = r4success
|
||||
End If
|
||||
|
||||
|
||||
rc = d4close(db)
|
||||
|
||||
If lstInventory.ListCount Then
|
||||
lstInventory.ListIndex = 0
|
||||
Else
|
||||
' MsgBox "No Inventory Items Were Found Matching The", vbInformation + vbOKOnly, "No Customers"
|
||||
strMSG = "No Inventory Items Were Found Matching The"
|
||||
strMSG = strMSG & vbCrLf & " Information You Entered"
|
||||
MsgBox strMSG, vbInformation + vbOKOnly, "Nothing Matches"
|
||||
End If
|
||||
lstInventory.SortState = SortStateActiveReSort
|
||||
Exit Sub
|
||||
|
||||
Error_EH:
|
||||
gstrMODULE = "Form PO - Module LoadInventory"
|
||||
Call ErrorHandler2
|
||||
gstrMODULE = ""
|
||||
Exit Sub
|
||||
End Sub
|
||||
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,2 @@
|
||||
this is the old current project
|
||||
xxxx
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,434 @@
|
||||
VERSION 5.00
|
||||
Object = "{DEF7CADD-83C0-11D0-A0F1-00A024703500}#7.0#0"; "TODG7.OCX"
|
||||
Begin VB.Form frmLabor
|
||||
Caption = "Labor Rates"
|
||||
ClientHeight = 3660
|
||||
ClientLeft = 60
|
||||
ClientTop = 345
|
||||
ClientWidth = 11880
|
||||
LinkTopic = "Form1"
|
||||
ScaleHeight = 3660
|
||||
ScaleWidth = 11880
|
||||
StartUpPosition = 3 'Windows Default
|
||||
Begin VB.CommandButton cmdCancel
|
||||
Caption = "&Cancel"
|
||||
Height = 555
|
||||
Left = 5250
|
||||
TabIndex = 9
|
||||
Top = 2640
|
||||
Width = 1395
|
||||
End
|
||||
Begin VB.CommandButton cmdExit
|
||||
Caption = "&Exit"
|
||||
Height = 555
|
||||
Left = 10320
|
||||
TabIndex = 8
|
||||
Top = 2640
|
||||
Width = 1395
|
||||
End
|
||||
Begin VB.CommandButton cmdAdd
|
||||
Caption = "&Add"
|
||||
Height = 555
|
||||
Left = 7785
|
||||
TabIndex = 7
|
||||
Top = 2640
|
||||
Width = 1395
|
||||
End
|
||||
Begin VB.CommandButton cmdDelete
|
||||
Caption = "&Delete"
|
||||
Height = 555
|
||||
Left = 2715
|
||||
TabIndex = 6
|
||||
Top = 2640
|
||||
Width = 1395
|
||||
End
|
||||
Begin VB.CommandButton cmdSave
|
||||
Caption = "&Save"
|
||||
Height = 555
|
||||
Left = 180
|
||||
TabIndex = 5
|
||||
Top = 2640
|
||||
Width = 1395
|
||||
End
|
||||
Begin VB.CommandButton cmdFirst
|
||||
Height = 300
|
||||
Left = 5280
|
||||
Picture = "FRMLABOR.frx":0000
|
||||
Style = 1 'Graphical
|
||||
TabIndex = 4
|
||||
Top = 3300
|
||||
UseMaskColor = -1 'True
|
||||
Width = 345
|
||||
End
|
||||
Begin VB.CommandButton cmdPrevious
|
||||
Height = 300
|
||||
Left = 5640
|
||||
Picture = "FRMLABOR.frx":0342
|
||||
Style = 1 'Graphical
|
||||
TabIndex = 3
|
||||
Top = 3300
|
||||
UseMaskColor = -1 'True
|
||||
Width = 345
|
||||
End
|
||||
Begin VB.CommandButton cmdNext
|
||||
Height = 300
|
||||
Left = 5985
|
||||
Picture = "FRMLABOR.frx":0684
|
||||
Style = 1 'Graphical
|
||||
TabIndex = 2
|
||||
Top = 3300
|
||||
UseMaskColor = -1 'True
|
||||
Width = 345
|
||||
End
|
||||
Begin VB.CommandButton cmdLast
|
||||
Height = 300
|
||||
Left = 6345
|
||||
Picture = "FRMLABOR.frx":09C6
|
||||
Style = 1 'Graphical
|
||||
TabIndex = 1
|
||||
Top = 3300
|
||||
UseMaskColor = -1 'True
|
||||
Width = 345
|
||||
End
|
||||
Begin TrueOleDBGrid70.TDBGrid TDBGLabor
|
||||
Height = 2535
|
||||
Left = 180
|
||||
TabIndex = 0
|
||||
Top = 60
|
||||
Width = 11580
|
||||
_ExtentX = 20426
|
||||
_ExtentY = 4471
|
||||
_LayoutType = 4
|
||||
_RowHeight = -2147483647
|
||||
_WasPersistedAsPixels= 0
|
||||
Columns(0)._VlistStyle= 0
|
||||
Columns(0)._MaxComboItems= 5
|
||||
Columns(0).Caption= "Texture"
|
||||
Columns(0).DataField= "texture"
|
||||
Columns(0).DataWidth= 2
|
||||
Columns(0)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
|
||||
Columns(1)._VlistStyle= 0
|
||||
Columns(1)._MaxComboItems= 5
|
||||
Columns(1).Caption= "Stucco Labor"
|
||||
Columns(1).DataField= "S_Rate"
|
||||
Columns(1).DataWidth= 5
|
||||
Columns(1).DefaultValue= "0"
|
||||
Columns(1).DefaultValue.vt= 8
|
||||
Columns(1).NumberFormat= "Fixed"
|
||||
Columns(1)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
|
||||
Columns(2)._VlistStyle= 0
|
||||
Columns(2)._MaxComboItems= 5
|
||||
Columns(2).Caption= "Lath Labor"
|
||||
Columns(2).DataField= "L_Rate"
|
||||
Columns(2).DataWidth= 5
|
||||
Columns(2).DefaultValue= "0"
|
||||
Columns(2).DefaultValue.vt= 8
|
||||
Columns(2).NumberFormat= "Fixed"
|
||||
Columns(2)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
|
||||
Columns(3)._VlistStyle= 0
|
||||
Columns(3)._MaxComboItems= 5
|
||||
Columns(3).Caption= "Metal Labor"
|
||||
Columns(3).DataField= "M_Rate"
|
||||
Columns(3).DataWidth= 5
|
||||
Columns(3).DefaultValue= "0"
|
||||
Columns(3).DefaultValue.vt= 8
|
||||
Columns(3).NumberFormat= "Fixed"
|
||||
Columns(3)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
|
||||
Columns(4)._VlistStyle= 0
|
||||
Columns(4)._MaxComboItems= 5
|
||||
Columns(4).Caption= "CMU Rate"
|
||||
Columns(4).DataField= "CMU"
|
||||
Columns(4).DataWidth= 5
|
||||
Columns(4).DefaultValue= "0"
|
||||
Columns(4).DefaultValue.vt= 8
|
||||
Columns(4).NumberFormat= "Fixed"
|
||||
Columns(4)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
|
||||
Columns(5)._VlistStyle= 0
|
||||
Columns(5)._MaxComboItems= 5
|
||||
Columns(5).Caption= "Mat. MarkUp"
|
||||
Columns(5).DataField= "matmu"
|
||||
Columns(5).DataWidth= 5
|
||||
Columns(5).DefaultValue= "0"
|
||||
Columns(5).DefaultValue.vt= 8
|
||||
Columns(5).NumberFormat= "Percent"
|
||||
Columns(5)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
|
||||
Columns(6)._VlistStyle= 0
|
||||
Columns(6)._MaxComboItems= 5
|
||||
Columns(6).Caption= "Scaffold"
|
||||
Columns(6).DataField= "scr"
|
||||
Columns(6).DataWidth= 5
|
||||
Columns(6).DefaultValue= "0"
|
||||
Columns(6).DefaultValue.vt= 8
|
||||
Columns(6).NumberFormat= "Fixed"
|
||||
Columns(6)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
|
||||
Columns(7)._VlistStyle= 0
|
||||
Columns(7)._MaxComboItems= 5
|
||||
Columns(7).Caption= "OH Percent"
|
||||
Columns(7).DataField= "ohp"
|
||||
Columns(7).DataWidth= 5
|
||||
Columns(7).DefaultValue= "0"
|
||||
Columns(7).DefaultValue.vt= 8
|
||||
Columns(7).NumberFormat= "Fixed"
|
||||
Columns(7)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
|
||||
Columns(8)._VlistStyle= 0
|
||||
Columns(8)._MaxComboItems= 5
|
||||
Columns(8).Caption= "Tape/Plastic"
|
||||
Columns(8).DataField= "tp"
|
||||
Columns(8).DataWidth= 5
|
||||
Columns(8).DefaultValue= "0"
|
||||
Columns(8).DefaultValue.vt= 8
|
||||
Columns(8).NumberFormat= "Fixed"
|
||||
Columns(8)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
|
||||
Columns(9)._VlistStyle= 0
|
||||
Columns(9)._MaxComboItems= 5
|
||||
Columns(9).Caption= "MarkUp"
|
||||
Columns(9).DataField= "mu"
|
||||
Columns(9).DataWidth= 5
|
||||
Columns(9).DefaultValue= "0"
|
||||
Columns(9).DefaultValue.vt= 8
|
||||
Columns(9).NumberFormat= "Percent"
|
||||
Columns(9)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
|
||||
Columns(10)._VlistStyle= 0
|
||||
Columns(10)._MaxComboItems= 5
|
||||
Columns(10).Caption= "Cmnt/Lime Adj."
|
||||
Columns(10).DataField= "cladj"
|
||||
Columns(10).DataWidth= 2
|
||||
Columns(10).DefaultValue= "0"
|
||||
Columns(10).DefaultValue.vt= 8
|
||||
Columns(10).NumberFormat= "Fixed"
|
||||
Columns(10)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
|
||||
Columns.Count = 11
|
||||
Splits(0)._UserFlags= 0
|
||||
Splits(0).RecordSelectorWidth= 503
|
||||
Splits(0)._SavedRecordSelectors= 0 'False
|
||||
Splits(0).DividerColor= 12632256
|
||||
Splits(0).SpringMode= 0 'False
|
||||
Splits(0)._PropDict= "_ColumnProps,515,0;_UserFlags,518,3"
|
||||
Splits(0)._ColumnProps(0)= "Columns.Count=11"
|
||||
Splits(0)._ColumnProps(1)= "Column(0).Width=1958"
|
||||
Splits(0)._ColumnProps(2)= "Column(0).DividerColor=0"
|
||||
Splits(0)._ColumnProps(3)= "Column(0)._WidthInPix=1879"
|
||||
Splits(0)._ColumnProps(4)= "Column(0).Order=1"
|
||||
Splits(0)._ColumnProps(5)= "Column(1).Width=1958"
|
||||
Splits(0)._ColumnProps(6)= "Column(1).DividerColor=0"
|
||||
Splits(0)._ColumnProps(7)= "Column(1)._WidthInPix=1879"
|
||||
Splits(0)._ColumnProps(8)= "Column(1).Order=2"
|
||||
Splits(0)._ColumnProps(9)= "Column(2).Width=1667"
|
||||
Splits(0)._ColumnProps(10)= "Column(2).DividerColor=0"
|
||||
Splits(0)._ColumnProps(11)= "Column(2)._WidthInPix=1588"
|
||||
Splits(0)._ColumnProps(12)= "Column(2).Order=3"
|
||||
Splits(0)._ColumnProps(13)= "Column(3).Width=1799"
|
||||
Splits(0)._ColumnProps(14)= "Column(3).DividerColor=0"
|
||||
Splits(0)._ColumnProps(15)= "Column(3)._WidthInPix=1720"
|
||||
Splits(0)._ColumnProps(16)= "Column(3).Order=4"
|
||||
Splits(0)._ColumnProps(17)= "Column(4).Width=1799"
|
||||
Splits(0)._ColumnProps(18)= "Column(4).DividerColor=0"
|
||||
Splits(0)._ColumnProps(19)= "Column(4)._WidthInPix=1720"
|
||||
Splits(0)._ColumnProps(20)= "Column(4).Order=5"
|
||||
Splits(0)._ColumnProps(21)= "Column(5).Width=1931"
|
||||
Splits(0)._ColumnProps(22)= "Column(5).DividerColor=0"
|
||||
Splits(0)._ColumnProps(23)= "Column(5)._WidthInPix=1852"
|
||||
Splits(0)._ColumnProps(24)= "Column(5).Order=6"
|
||||
Splits(0)._ColumnProps(25)= "Column(6).Width=1402"
|
||||
Splits(0)._ColumnProps(26)= "Column(6).DividerColor=0"
|
||||
Splits(0)._ColumnProps(27)= "Column(6)._WidthInPix=1323"
|
||||
Splits(0)._ColumnProps(28)= "Column(6).Order=7"
|
||||
Splits(0)._ColumnProps(29)= "Column(7).Width=1931"
|
||||
Splits(0)._ColumnProps(30)= "Column(7).DividerColor=0"
|
||||
Splits(0)._ColumnProps(31)= "Column(7)._WidthInPix=1852"
|
||||
Splits(0)._ColumnProps(32)= "Column(7).Order=8"
|
||||
Splits(0)._ColumnProps(33)= "Column(8).Width=1931"
|
||||
Splits(0)._ColumnProps(34)= "Column(8).DividerColor=0"
|
||||
Splits(0)._ColumnProps(35)= "Column(8)._WidthInPix=1852"
|
||||
Splits(0)._ColumnProps(36)= "Column(8).Order=9"
|
||||
Splits(0)._ColumnProps(37)= "Column(9).Width=1402"
|
||||
Splits(0)._ColumnProps(38)= "Column(9).DividerColor=0"
|
||||
Splits(0)._ColumnProps(39)= "Column(9)._WidthInPix=1323"
|
||||
Splits(0)._ColumnProps(40)= "Column(9).Order=10"
|
||||
Splits(0)._ColumnProps(41)= "Column(10).Width=2064"
|
||||
Splits(0)._ColumnProps(42)= "Column(10).DividerColor=0"
|
||||
Splits(0)._ColumnProps(43)= "Column(10)._WidthInPix=1984"
|
||||
Splits(0)._ColumnProps(44)= "Column(10).Order=11"
|
||||
Splits.Count = 1
|
||||
PrintInfos(0)._StateFlags= 0
|
||||
PrintInfos(0).Name= "piInternal 0"
|
||||
PrintInfos(0).PageHeaderFont= "Size=8.25,Charset=0,Weight=400,Underline=0,Italic=0,Strikethrough=0,Name=MS Sans Serif"
|
||||
PrintInfos(0).PageFooterFont= "Size=8.25,Charset=0,Weight=400,Underline=0,Italic=0,Strikethrough=0,Name=MS Sans Serif"
|
||||
PrintInfos(0).PageHeaderHeight= 0
|
||||
PrintInfos(0).PageFooterHeight= 0
|
||||
PrintInfos.Count= 1
|
||||
AllowDelete = -1 'True
|
||||
AllowAddNew = -1 'True
|
||||
DefColWidth = 0
|
||||
HeadLines = 1
|
||||
FootLines = 1
|
||||
MultipleLines = 0
|
||||
CellTipsWidth = 0
|
||||
DeadAreaBackColor= 12632256
|
||||
RowDividerColor = 12632256
|
||||
RowSubDividerColor= 12632256
|
||||
DirectionAfterEnter= 1
|
||||
MaxRows = 250000
|
||||
ViewColumnCaptionWidth= 0
|
||||
ViewColumnWidth = 0
|
||||
_PropDict = "_ExtentX,2003,3;_ExtentY,2004,3;_LayoutType,512,2;_RowHeight,16,3;_StyleDefs,513,0;_WasPersistedAsPixels,516,2"
|
||||
_StyleDefs(0) = "_StyleRoot:id=0,.parent=-1,.alignment=3,.valignment=0,.bgcolor=&H80000005&"
|
||||
_StyleDefs(1) = ":id=0,.fgcolor=&H80000008&,.wraptext=0,.locked=0,.transparentBmp=0"
|
||||
_StyleDefs(2) = ":id=0,.fgpicPosition=0,.bgpicMode=0,.appearance=0,.borderSize=0,.ellipsis=0"
|
||||
_StyleDefs(3) = ":id=0,.borderColor=&H80000005&,.borderType=0,.bold=0,.fontsize=825,.italic=0"
|
||||
_StyleDefs(4) = ":id=0,.underline=0,.strikethrough=0,.charset=0"
|
||||
_StyleDefs(5) = ":id=0,.fontname=MS Sans Serif"
|
||||
_StyleDefs(6) = "Style:id=1,.parent=0,.namedParent=33"
|
||||
_StyleDefs(7) = "CaptionStyle:id=4,.parent=2,.namedParent=37"
|
||||
_StyleDefs(8) = "HeadingStyle:id=2,.parent=1,.namedParent=34"
|
||||
_StyleDefs(9) = "FooterStyle:id=3,.parent=1,.namedParent=35"
|
||||
_StyleDefs(10) = "InactiveStyle:id=5,.parent=2,.bgcolor=&H8000000F&,.fgcolor=&H80000012&"
|
||||
_StyleDefs(11) = "SelectedStyle:id=6,.parent=1,.namedParent=36"
|
||||
_StyleDefs(12) = "EditorStyle:id=7,.parent=1"
|
||||
_StyleDefs(13) = "HighlightRowStyle:id=8,.parent=1,.namedParent=38"
|
||||
_StyleDefs(14) = "EvenRowStyle:id=9,.parent=1,.namedParent=39"
|
||||
_StyleDefs(15) = "OddRowStyle:id=10,.parent=1,.namedParent=40"
|
||||
_StyleDefs(16) = "RecordSelectorStyle:id=11,.parent=2,.namedParent=41"
|
||||
_StyleDefs(17) = "FilterBarStyle:id=12,.parent=1,.namedParent=42"
|
||||
_StyleDefs(18) = "Splits(0).Style:id=13,.parent=1"
|
||||
_StyleDefs(19) = "Splits(0).CaptionStyle:id=22,.parent=4"
|
||||
_StyleDefs(20) = "Splits(0).HeadingStyle:id=14,.parent=2"
|
||||
_StyleDefs(21) = "Splits(0).FooterStyle:id=15,.parent=3"
|
||||
_StyleDefs(22) = "Splits(0).InactiveStyle:id=16,.parent=5"
|
||||
_StyleDefs(23) = "Splits(0).SelectedStyle:id=18,.parent=6"
|
||||
_StyleDefs(24) = "Splits(0).EditorStyle:id=17,.parent=7"
|
||||
_StyleDefs(25) = "Splits(0).HighlightRowStyle:id=19,.parent=8"
|
||||
_StyleDefs(26) = "Splits(0).EvenRowStyle:id=20,.parent=9"
|
||||
_StyleDefs(27) = "Splits(0).OddRowStyle:id=21,.parent=10"
|
||||
_StyleDefs(28) = "Splits(0).RecordSelectorStyle:id=23,.parent=11"
|
||||
_StyleDefs(29) = "Splits(0).FilterBarStyle:id=24,.parent=12"
|
||||
_StyleDefs(30) = "Splits(0).Columns(0).Style:id=28,.parent=13"
|
||||
_StyleDefs(31) = "Splits(0).Columns(0).HeadingStyle:id=25,.parent=14"
|
||||
_StyleDefs(32) = "Splits(0).Columns(0).FooterStyle:id=26,.parent=15"
|
||||
_StyleDefs(33) = "Splits(0).Columns(0).EditorStyle:id=27,.parent=17"
|
||||
_StyleDefs(34) = "Splits(0).Columns(1).Style:id=32,.parent=13"
|
||||
_StyleDefs(35) = "Splits(0).Columns(1).HeadingStyle:id=29,.parent=14"
|
||||
_StyleDefs(36) = "Splits(0).Columns(1).FooterStyle:id=30,.parent=15"
|
||||
_StyleDefs(37) = "Splits(0).Columns(1).EditorStyle:id=31,.parent=17"
|
||||
_StyleDefs(38) = "Splits(0).Columns(2).Style:id=46,.parent=13"
|
||||
_StyleDefs(39) = "Splits(0).Columns(2).HeadingStyle:id=43,.parent=14"
|
||||
_StyleDefs(40) = "Splits(0).Columns(2).FooterStyle:id=44,.parent=15"
|
||||
_StyleDefs(41) = "Splits(0).Columns(2).EditorStyle:id=45,.parent=17"
|
||||
_StyleDefs(42) = "Splits(0).Columns(3).Style:id=50,.parent=13"
|
||||
_StyleDefs(43) = "Splits(0).Columns(3).HeadingStyle:id=47,.parent=14"
|
||||
_StyleDefs(44) = "Splits(0).Columns(3).FooterStyle:id=48,.parent=15"
|
||||
_StyleDefs(45) = "Splits(0).Columns(3).EditorStyle:id=49,.parent=17"
|
||||
_StyleDefs(46) = "Splits(0).Columns(4).Style:id=54,.parent=13"
|
||||
_StyleDefs(47) = "Splits(0).Columns(4).HeadingStyle:id=51,.parent=14"
|
||||
_StyleDefs(48) = "Splits(0).Columns(4).FooterStyle:id=52,.parent=15"
|
||||
_StyleDefs(49) = "Splits(0).Columns(4).EditorStyle:id=53,.parent=17"
|
||||
_StyleDefs(50) = "Splits(0).Columns(5).Style:id=58,.parent=13"
|
||||
_StyleDefs(51) = "Splits(0).Columns(5).HeadingStyle:id=55,.parent=14"
|
||||
_StyleDefs(52) = "Splits(0).Columns(5).FooterStyle:id=56,.parent=15"
|
||||
_StyleDefs(53) = "Splits(0).Columns(5).EditorStyle:id=57,.parent=17"
|
||||
_StyleDefs(54) = "Splits(0).Columns(6).Style:id=62,.parent=13"
|
||||
_StyleDefs(55) = "Splits(0).Columns(6).HeadingStyle:id=59,.parent=14"
|
||||
_StyleDefs(56) = "Splits(0).Columns(6).FooterStyle:id=60,.parent=15"
|
||||
_StyleDefs(57) = "Splits(0).Columns(6).EditorStyle:id=61,.parent=17"
|
||||
_StyleDefs(58) = "Splits(0).Columns(7).Style:id=66,.parent=13"
|
||||
_StyleDefs(59) = "Splits(0).Columns(7).HeadingStyle:id=63,.parent=14"
|
||||
_StyleDefs(60) = "Splits(0).Columns(7).FooterStyle:id=64,.parent=15"
|
||||
_StyleDefs(61) = "Splits(0).Columns(7).EditorStyle:id=65,.parent=17"
|
||||
_StyleDefs(62) = "Splits(0).Columns(8).Style:id=70,.parent=13"
|
||||
_StyleDefs(63) = "Splits(0).Columns(8).HeadingStyle:id=67,.parent=14"
|
||||
_StyleDefs(64) = "Splits(0).Columns(8).FooterStyle:id=68,.parent=15"
|
||||
_StyleDefs(65) = "Splits(0).Columns(8).EditorStyle:id=69,.parent=17"
|
||||
_StyleDefs(66) = "Splits(0).Columns(9).Style:id=74,.parent=13"
|
||||
_StyleDefs(67) = "Splits(0).Columns(9).HeadingStyle:id=71,.parent=14"
|
||||
_StyleDefs(68) = "Splits(0).Columns(9).FooterStyle:id=72,.parent=15"
|
||||
_StyleDefs(69) = "Splits(0).Columns(9).EditorStyle:id=73,.parent=17"
|
||||
_StyleDefs(70) = "Splits(0).Columns(10).Style:id=78,.parent=13"
|
||||
_StyleDefs(71) = "Splits(0).Columns(10).HeadingStyle:id=75,.parent=14"
|
||||
_StyleDefs(72) = "Splits(0).Columns(10).FooterStyle:id=76,.parent=15"
|
||||
_StyleDefs(73) = "Splits(0).Columns(10).EditorStyle:id=77,.parent=17"
|
||||
_StyleDefs(74) = "Named:id=33:Normal"
|
||||
_StyleDefs(75) = ":id=33,.parent=0"
|
||||
_StyleDefs(76) = "Named:id=34:Heading"
|
||||
_StyleDefs(77) = ":id=34,.parent=33,.valignment=2,.bgcolor=&H8000000F&,.fgcolor=&H80000012&"
|
||||
_StyleDefs(78) = ":id=34,.wraptext=-1"
|
||||
_StyleDefs(79) = "Named:id=35:Footing"
|
||||
_StyleDefs(80) = ":id=35,.parent=33,.valignment=2,.bgcolor=&H8000000F&,.fgcolor=&H80000012&"
|
||||
_StyleDefs(81) = "Named:id=36:Selected"
|
||||
_StyleDefs(82) = ":id=36,.parent=33,.bgcolor=&H8000000D&,.fgcolor=&H8000000E&"
|
||||
_StyleDefs(83) = "Named:id=37:Caption"
|
||||
_StyleDefs(84) = ":id=37,.parent=34,.alignment=2"
|
||||
_StyleDefs(85) = "Named:id=38:HighlightRow"
|
||||
_StyleDefs(86) = ":id=38,.parent=33,.bgcolor=&H8000000D&,.fgcolor=&H8000000E&"
|
||||
_StyleDefs(87) = "Named:id=39:EvenRow"
|
||||
_StyleDefs(88) = ":id=39,.parent=33,.bgcolor=&HFFFF00&"
|
||||
_StyleDefs(89) = "Named:id=40:OddRow"
|
||||
_StyleDefs(90) = ":id=40,.parent=33"
|
||||
_StyleDefs(91) = "Named:id=41:RecordSelector"
|
||||
_StyleDefs(92) = ":id=41,.parent=34"
|
||||
_StyleDefs(93) = "Named:id=42:FilterBar"
|
||||
_StyleDefs(94) = ":id=42,.parent=33"
|
||||
End
|
||||
End
|
||||
Attribute VB_Name = "frmLabor"
|
||||
Attribute VB_GlobalNameSpace = False
|
||||
Attribute VB_Creatable = False
|
||||
Attribute VB_PredeclaredId = True
|
||||
Attribute VB_Exposed = False
|
||||
Option Explicit
|
||||
Dim moRS As Recordset
|
||||
|
||||
Private Sub cmdAdd_Click()
|
||||
moRS.AddNew
|
||||
TDBGLabor.SetFocus
|
||||
End Sub
|
||||
|
||||
Private Sub cmdCancel_Click()
|
||||
moRS.CancelUpdate
|
||||
End Sub
|
||||
|
||||
Private Sub cmdDelete_Click()
|
||||
moRS.Delete
|
||||
End Sub
|
||||
|
||||
Private Sub cmdExit_Click()
|
||||
Unload Me
|
||||
End Sub
|
||||
|
||||
Private Sub cmdFirst_Click()
|
||||
moRS.MoveFirst
|
||||
End Sub
|
||||
|
||||
Private Sub cmdLast_Click()
|
||||
moRS.MoveLast
|
||||
End Sub
|
||||
|
||||
Private Sub cmdNext_Click()
|
||||
moRS.MoveNext
|
||||
End Sub
|
||||
|
||||
Private Sub cmdPrevious_Click()
|
||||
moRS.MovePrevious
|
||||
End Sub
|
||||
|
||||
Private Sub cmdSave_Click()
|
||||
moRS.Update
|
||||
TDBGLabor.ReBind
|
||||
End Sub
|
||||
|
||||
Private Sub Form_Load()
|
||||
Call LoadLabor
|
||||
TDBGLabor.DataSource = moRS
|
||||
TDBGLabor.ReBind
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub LoadLabor()
|
||||
Dim strSQL As String
|
||||
|
||||
strSQL = "SELECT * FROM tblPrgInfo"
|
||||
|
||||
Set moRS = New Recordset
|
||||
|
||||
moRS.Open strSQL, goConn, adOpenKeyset, adLockOptimistic
|
||||
|
||||
End Sub
|
||||
Binary file not shown.
@@ -0,0 +1,284 @@
|
||||
VERSION 5.00
|
||||
Object = "{DEF7CADD-83C0-11D0-A0F1-00A024703500}#7.0#0"; "TODG7.OCX"
|
||||
Begin VB.Form frmRCrew
|
||||
Caption = "Repair Crew"
|
||||
ClientHeight = 6420
|
||||
ClientLeft = 60
|
||||
ClientTop = 345
|
||||
ClientWidth = 9060
|
||||
LinkTopic = "Form1"
|
||||
ScaleHeight = 6420
|
||||
ScaleWidth = 9060
|
||||
StartUpPosition = 3 'Windows Default
|
||||
Begin VB.CommandButton cmdExit
|
||||
Caption = "Exit"
|
||||
Height = 555
|
||||
Left = 7560
|
||||
TabIndex = 8
|
||||
Top = 5760
|
||||
Width = 1395
|
||||
End
|
||||
Begin VB.CommandButton cmdAdd
|
||||
Caption = "Add"
|
||||
Height = 555
|
||||
Left = 5400
|
||||
TabIndex = 7
|
||||
Top = 5760
|
||||
Width = 1395
|
||||
End
|
||||
Begin VB.CommandButton cmdDelete
|
||||
Caption = "Delete"
|
||||
Height = 555
|
||||
Left = 2280
|
||||
TabIndex = 6
|
||||
Top = 5760
|
||||
Width = 1395
|
||||
End
|
||||
Begin VB.CommandButton cmdSave
|
||||
Caption = "Save"
|
||||
Height = 555
|
||||
Left = 120
|
||||
TabIndex = 5
|
||||
Top = 5760
|
||||
Width = 1395
|
||||
End
|
||||
Begin VB.CommandButton cmdFirst
|
||||
Height = 300
|
||||
Left = 3840
|
||||
Picture = "FRMLABOR1.frx":0000
|
||||
Style = 1 'Graphical
|
||||
TabIndex = 4
|
||||
Top = 5880
|
||||
UseMaskColor = -1 'True
|
||||
Width = 345
|
||||
End
|
||||
Begin VB.CommandButton cmdPrevious
|
||||
Height = 300
|
||||
Left = 4200
|
||||
Picture = "FRMLABOR1.frx":0342
|
||||
Style = 1 'Graphical
|
||||
TabIndex = 3
|
||||
Top = 5880
|
||||
UseMaskColor = -1 'True
|
||||
Width = 345
|
||||
End
|
||||
Begin VB.CommandButton cmdNext
|
||||
Height = 300
|
||||
Left = 4545
|
||||
Picture = "FRMLABOR1.frx":0684
|
||||
Style = 1 'Graphical
|
||||
TabIndex = 2
|
||||
Top = 5880
|
||||
UseMaskColor = -1 'True
|
||||
Width = 345
|
||||
End
|
||||
Begin VB.CommandButton cmdLast
|
||||
Height = 300
|
||||
Left = 4905
|
||||
Picture = "FRMLABOR1.frx":09C6
|
||||
Style = 1 'Graphical
|
||||
TabIndex = 1
|
||||
Top = 5880
|
||||
UseMaskColor = -1 'True
|
||||
Width = 345
|
||||
End
|
||||
Begin TrueOleDBGrid70.TDBGrid TDBGLabor
|
||||
Height = 5535
|
||||
Left = -60
|
||||
TabIndex = 0
|
||||
Top = 240
|
||||
Width = 8940
|
||||
_ExtentX = 15769
|
||||
_ExtentY = 9763
|
||||
_LayoutType = 4
|
||||
_RowHeight = -2147483647
|
||||
_WasPersistedAsPixels= 0
|
||||
Columns(0)._VlistStyle= 0
|
||||
Columns(0)._MaxComboItems= 5
|
||||
Columns(0).Caption= "Repair Person"
|
||||
Columns(0).DataField= "Name"
|
||||
Columns(0).DataWidth= 25
|
||||
Columns(0)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
|
||||
Columns(1)._VlistStyle= 0
|
||||
Columns(1)._MaxComboItems= 5
|
||||
Columns(1).Caption= "Phone Number"
|
||||
Columns(1).DataField= "Phone"
|
||||
Columns(1).DataWidth= 12
|
||||
Columns(1).EditMask= "(###) ###-####"
|
||||
Columns(1).EditMaskUpdate= -1 'True
|
||||
Columns(1).EditMaskRight= -1 'True
|
||||
Columns(1)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
|
||||
Columns(2)._VlistStyle= 0
|
||||
Columns(2)._MaxComboItems= 5
|
||||
Columns(2).Caption= "Radio ID"
|
||||
Columns(2).DataField= "Radio"
|
||||
Columns(2).DataWidth= 10
|
||||
Columns(2)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
|
||||
Columns.Count = 3
|
||||
Splits(0)._UserFlags= 0
|
||||
Splits(0).RecordSelectorWidth= 503
|
||||
Splits(0)._SavedRecordSelectors= 0 'False
|
||||
Splits(0).DividerColor= 12632256
|
||||
Splits(0).SpringMode= 0 'False
|
||||
Splits(0)._PropDict= "_ColumnProps,515,0;_UserFlags,518,3"
|
||||
Splits(0)._ColumnProps(0)= "Columns.Count=3"
|
||||
Splits(0)._ColumnProps(1)= "Column(0).Width=7646"
|
||||
Splits(0)._ColumnProps(2)= "Column(0).DividerColor=0"
|
||||
Splits(0)._ColumnProps(3)= "Column(0)._WidthInPix=7567"
|
||||
Splits(0)._ColumnProps(4)= "Column(0).Order=1"
|
||||
Splits(0)._ColumnProps(5)= "Column(1).Width=3731"
|
||||
Splits(0)._ColumnProps(6)= "Column(1).DividerColor=0"
|
||||
Splits(0)._ColumnProps(7)= "Column(1)._WidthInPix=3651"
|
||||
Splits(0)._ColumnProps(8)= "Column(1).Order=2"
|
||||
Splits(0)._ColumnProps(9)= "Column(2).Width=3387"
|
||||
Splits(0)._ColumnProps(10)= "Column(2).DividerColor=0"
|
||||
Splits(0)._ColumnProps(11)= "Column(2)._WidthInPix=3307"
|
||||
Splits(0)._ColumnProps(12)= "Column(2).Order=3"
|
||||
Splits.Count = 1
|
||||
PrintInfos(0)._StateFlags= 0
|
||||
PrintInfos(0).Name= "piInternal 0"
|
||||
PrintInfos(0).PageHeaderFont= "Size=8.25,Charset=0,Weight=400,Underline=0,Italic=0,Strikethrough=0,Name=MS Sans Serif"
|
||||
PrintInfos(0).PageFooterFont= "Size=8.25,Charset=0,Weight=400,Underline=0,Italic=0,Strikethrough=0,Name=MS Sans Serif"
|
||||
PrintInfos(0).PageHeaderHeight= 0
|
||||
PrintInfos(0).PageFooterHeight= 0
|
||||
PrintInfos.Count= 1
|
||||
AllowDelete = -1 'True
|
||||
AllowAddNew = -1 'True
|
||||
DefColWidth = 0
|
||||
HeadLines = 1
|
||||
FootLines = 1
|
||||
MultipleLines = 0
|
||||
CellTipsWidth = 0
|
||||
DeadAreaBackColor= 12632256
|
||||
RowDividerColor = 12632256
|
||||
RowSubDividerColor= 12632256
|
||||
DirectionAfterEnter= 1
|
||||
MaxRows = 250000
|
||||
ViewColumnCaptionWidth= 0
|
||||
ViewColumnWidth = 0
|
||||
_PropDict = "_ExtentX,2003,3;_ExtentY,2004,3;_LayoutType,512,2;_RowHeight,16,3;_StyleDefs,513,0;_WasPersistedAsPixels,516,2"
|
||||
_StyleDefs(0) = "_StyleRoot:id=0,.parent=-1,.alignment=3,.valignment=0,.bgcolor=&H80000005&"
|
||||
_StyleDefs(1) = ":id=0,.fgcolor=&H80000008&,.wraptext=0,.locked=0,.transparentBmp=0"
|
||||
_StyleDefs(2) = ":id=0,.fgpicPosition=0,.bgpicMode=0,.appearance=0,.borderSize=0,.ellipsis=0"
|
||||
_StyleDefs(3) = ":id=0,.borderColor=&H80000005&,.borderType=0,.bold=0,.fontsize=825,.italic=0"
|
||||
_StyleDefs(4) = ":id=0,.underline=0,.strikethrough=0,.charset=0"
|
||||
_StyleDefs(5) = ":id=0,.fontname=MS Sans Serif"
|
||||
_StyleDefs(6) = "Style:id=1,.parent=0,.namedParent=33"
|
||||
_StyleDefs(7) = "CaptionStyle:id=4,.parent=2,.namedParent=37"
|
||||
_StyleDefs(8) = "HeadingStyle:id=2,.parent=1,.namedParent=34"
|
||||
_StyleDefs(9) = "FooterStyle:id=3,.parent=1,.namedParent=35"
|
||||
_StyleDefs(10) = "InactiveStyle:id=5,.parent=2,.bgcolor=&H8000000F&,.fgcolor=&H80000012&"
|
||||
_StyleDefs(11) = "SelectedStyle:id=6,.parent=1,.namedParent=36"
|
||||
_StyleDefs(12) = "EditorStyle:id=7,.parent=1"
|
||||
_StyleDefs(13) = "HighlightRowStyle:id=8,.parent=1,.namedParent=38"
|
||||
_StyleDefs(14) = "EvenRowStyle:id=9,.parent=1,.namedParent=39"
|
||||
_StyleDefs(15) = "OddRowStyle:id=10,.parent=1,.namedParent=40"
|
||||
_StyleDefs(16) = "RecordSelectorStyle:id=11,.parent=2,.namedParent=41"
|
||||
_StyleDefs(17) = "FilterBarStyle:id=12,.parent=1,.namedParent=42"
|
||||
_StyleDefs(18) = "Splits(0).Style:id=13,.parent=1"
|
||||
_StyleDefs(19) = "Splits(0).CaptionStyle:id=22,.parent=4"
|
||||
_StyleDefs(20) = "Splits(0).HeadingStyle:id=14,.parent=2"
|
||||
_StyleDefs(21) = "Splits(0).FooterStyle:id=15,.parent=3"
|
||||
_StyleDefs(22) = "Splits(0).InactiveStyle:id=16,.parent=5"
|
||||
_StyleDefs(23) = "Splits(0).SelectedStyle:id=18,.parent=6"
|
||||
_StyleDefs(24) = "Splits(0).EditorStyle:id=17,.parent=7"
|
||||
_StyleDefs(25) = "Splits(0).HighlightRowStyle:id=19,.parent=8"
|
||||
_StyleDefs(26) = "Splits(0).EvenRowStyle:id=20,.parent=9"
|
||||
_StyleDefs(27) = "Splits(0).OddRowStyle:id=21,.parent=10"
|
||||
_StyleDefs(28) = "Splits(0).RecordSelectorStyle:id=23,.parent=11"
|
||||
_StyleDefs(29) = "Splits(0).FilterBarStyle:id=24,.parent=12"
|
||||
_StyleDefs(30) = "Splits(0).Columns(0).Style:id=28,.parent=13"
|
||||
_StyleDefs(31) = "Splits(0).Columns(0).HeadingStyle:id=25,.parent=14"
|
||||
_StyleDefs(32) = "Splits(0).Columns(0).FooterStyle:id=26,.parent=15"
|
||||
_StyleDefs(33) = "Splits(0).Columns(0).EditorStyle:id=27,.parent=17"
|
||||
_StyleDefs(34) = "Splits(0).Columns(1).Style:id=32,.parent=13"
|
||||
_StyleDefs(35) = "Splits(0).Columns(1).HeadingStyle:id=29,.parent=14"
|
||||
_StyleDefs(36) = "Splits(0).Columns(1).FooterStyle:id=30,.parent=15"
|
||||
_StyleDefs(37) = "Splits(0).Columns(1).EditorStyle:id=31,.parent=17"
|
||||
_StyleDefs(38) = "Splits(0).Columns(2).Style:id=46,.parent=13"
|
||||
_StyleDefs(39) = "Splits(0).Columns(2).HeadingStyle:id=43,.parent=14"
|
||||
_StyleDefs(40) = "Splits(0).Columns(2).FooterStyle:id=44,.parent=15"
|
||||
_StyleDefs(41) = "Splits(0).Columns(2).EditorStyle:id=45,.parent=17"
|
||||
_StyleDefs(42) = "Named:id=33:Normal"
|
||||
_StyleDefs(43) = ":id=33,.parent=0"
|
||||
_StyleDefs(44) = "Named:id=34:Heading"
|
||||
_StyleDefs(45) = ":id=34,.parent=33,.valignment=2,.bgcolor=&H8000000F&,.fgcolor=&H80000012&"
|
||||
_StyleDefs(46) = ":id=34,.wraptext=-1,.bold=-1,.fontsize=975,.italic=0,.underline=0"
|
||||
_StyleDefs(47) = ":id=34,.strikethrough=0,.charset=0"
|
||||
_StyleDefs(48) = ":id=34,.fontname=MS Sans Serif"
|
||||
_StyleDefs(49) = "Named:id=35:Footing"
|
||||
_StyleDefs(50) = ":id=35,.parent=33,.valignment=2,.bgcolor=&H8000000F&,.fgcolor=&H80000012&"
|
||||
_StyleDefs(51) = "Named:id=36:Selected"
|
||||
_StyleDefs(52) = ":id=36,.parent=33,.bgcolor=&H8000000D&,.fgcolor=&H8000000E&"
|
||||
_StyleDefs(53) = "Named:id=37:Caption"
|
||||
_StyleDefs(54) = ":id=37,.parent=34,.alignment=2"
|
||||
_StyleDefs(55) = "Named:id=38:HighlightRow"
|
||||
_StyleDefs(56) = ":id=38,.parent=33,.bgcolor=&H8000000D&,.fgcolor=&H8000000E&"
|
||||
_StyleDefs(57) = "Named:id=39:EvenRow"
|
||||
_StyleDefs(58) = ":id=39,.parent=33,.bgcolor=&HFFFF00&"
|
||||
_StyleDefs(59) = "Named:id=40:OddRow"
|
||||
_StyleDefs(60) = ":id=40,.parent=33"
|
||||
_StyleDefs(61) = "Named:id=41:RecordSelector"
|
||||
_StyleDefs(62) = ":id=41,.parent=34"
|
||||
_StyleDefs(63) = "Named:id=42:FilterBar"
|
||||
_StyleDefs(64) = ":id=42,.parent=33"
|
||||
End
|
||||
End
|
||||
Attribute VB_Name = "frmRCrew"
|
||||
Attribute VB_GlobalNameSpace = False
|
||||
Attribute VB_Creatable = False
|
||||
Attribute VB_PredeclaredId = True
|
||||
Attribute VB_Exposed = False
|
||||
Option Explicit
|
||||
Dim moRS As Recordset
|
||||
|
||||
Private Sub cmdAdd_Click()
|
||||
moRS.AddNew
|
||||
TDBGLabor.SetFocus
|
||||
End Sub
|
||||
|
||||
Private Sub cmdDelete_Click()
|
||||
moRS.Delete
|
||||
End Sub
|
||||
|
||||
Private Sub cmdExit_Click()
|
||||
Unload Me
|
||||
End Sub
|
||||
|
||||
Private Sub cmdFirst_Click()
|
||||
moRS.MoveFirst
|
||||
End Sub
|
||||
|
||||
Private Sub cmdLast_Click()
|
||||
moRS.MoveLast
|
||||
End Sub
|
||||
|
||||
Private Sub cmdNext_Click()
|
||||
moRS.MoveNext
|
||||
End Sub
|
||||
|
||||
Private Sub cmdPrevious_Click()
|
||||
moRS.MovePrevious
|
||||
End Sub
|
||||
|
||||
Private Sub cmdSave_Click()
|
||||
moRS.Update
|
||||
End Sub
|
||||
|
||||
Private Sub Form_Load()
|
||||
Call LoadLabor
|
||||
TDBGLabor.DataSource = moRS
|
||||
TDBGLabor.ReBind
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub LoadLabor()
|
||||
Dim strSQL As String
|
||||
|
||||
strSQL = "SELECT * FROM tblRCrew ORDER by RC_ID"
|
||||
|
||||
Set moRS = New Recordset
|
||||
|
||||
moRS.Open strSQL, goConn, adOpenKeyset, adLockOptimistic
|
||||
|
||||
End Sub
|
||||
Binary file not shown.
@@ -0,0 +1,99 @@
|
||||
VERSION 5.00
|
||||
Begin VB.Form frmLogin1
|
||||
BorderStyle = 3 'Fixed Dialog
|
||||
Caption = "Login"
|
||||
ClientHeight = 1545
|
||||
ClientLeft = 2835
|
||||
ClientTop = 3480
|
||||
ClientWidth = 3750
|
||||
LinkTopic = "Form1"
|
||||
MaxButton = 0 'False
|
||||
MinButton = 0 'False
|
||||
ScaleHeight = 912.837
|
||||
ScaleMode = 0 'User
|
||||
ScaleWidth = 3521.047
|
||||
ShowInTaskbar = 0 'False
|
||||
StartUpPosition = 2 'CenterScreen
|
||||
Begin VB.TextBox txtUserName
|
||||
Height = 345
|
||||
Left = 1290
|
||||
TabIndex = 1
|
||||
Top = 135
|
||||
Width = 2325
|
||||
End
|
||||
Begin VB.CommandButton cmdOK
|
||||
Caption = "OK"
|
||||
Default = -1 'True
|
||||
Height = 390
|
||||
Left = 495
|
||||
TabIndex = 4
|
||||
Top = 1020
|
||||
Width = 1140
|
||||
End
|
||||
Begin VB.CommandButton cmdCancel
|
||||
Cancel = -1 'True
|
||||
Caption = "Cancel"
|
||||
Height = 390
|
||||
Left = 2100
|
||||
TabIndex = 5
|
||||
Top = 1020
|
||||
Width = 1140
|
||||
End
|
||||
Begin VB.TextBox txtPassword
|
||||
Height = 345
|
||||
IMEMode = 3 'DISABLE
|
||||
Left = 1290
|
||||
PasswordChar = "*"
|
||||
TabIndex = 3
|
||||
Top = 525
|
||||
Width = 2325
|
||||
End
|
||||
Begin VB.Label lblLabels
|
||||
Caption = "&User Name:"
|
||||
Height = 270
|
||||
Index = 0
|
||||
Left = 105
|
||||
TabIndex = 0
|
||||
Top = 150
|
||||
Width = 1080
|
||||
End
|
||||
Begin VB.Label lblLabels
|
||||
Caption = "&Password:"
|
||||
Height = 270
|
||||
Index = 1
|
||||
Left = 105
|
||||
TabIndex = 2
|
||||
Top = 540
|
||||
Width = 1080
|
||||
End
|
||||
End
|
||||
Attribute VB_Name = "frmLogin1"
|
||||
Attribute VB_GlobalNameSpace = False
|
||||
Attribute VB_Creatable = False
|
||||
Attribute VB_PredeclaredId = True
|
||||
Attribute VB_Exposed = False
|
||||
Option Explicit
|
||||
|
||||
Public gboolLoginSucceeded As Boolean
|
||||
|
||||
Private Sub cmdCancel_Click()
|
||||
'set the global var to false
|
||||
'to denote a failed login
|
||||
gboolLoginSucceeded = False
|
||||
Me.Hide
|
||||
End Sub
|
||||
|
||||
Private Sub cmdOK_Click()
|
||||
'check for correct password
|
||||
If txtPassword = "password" Then
|
||||
'place code to here to pass the
|
||||
'success to the calling sub
|
||||
'setting a global var is the easiest
|
||||
gboolLoginSucceeded = True
|
||||
Me.Hide
|
||||
Else
|
||||
MsgBox "Invalid Password, try again!", , "Login"
|
||||
txtPassword.SetFocus
|
||||
SendKeys "{Home}+{End}"
|
||||
End If
|
||||
End Sub
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,19 @@
|
||||
VERSION 5.00
|
||||
Begin VB.Form frmUser1
|
||||
Caption = "User Information"
|
||||
ClientHeight = 5655
|
||||
ClientLeft = 60
|
||||
ClientTop = 405
|
||||
ClientWidth = 7230
|
||||
LinkTopic = "Form1"
|
||||
ScaleHeight = 5655
|
||||
ScaleWidth = 7230
|
||||
StartUpPosition = 3 'Windows Default
|
||||
End
|
||||
Attribute VB_Name = "frmUser1"
|
||||
Attribute VB_GlobalNameSpace = False
|
||||
Attribute VB_Creatable = False
|
||||
Attribute VB_PredeclaredId = True
|
||||
Attribute VB_Exposed = False
|
||||
Option Explicit
|
||||
|
||||
@@ -0,0 +1,371 @@
|
||||
VERSION 5.00
|
||||
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
|
||||
Begin VB.Form frmFlexGrid
|
||||
Caption = "The Flex Grid Control"
|
||||
ClientHeight = 4215
|
||||
ClientLeft = 45
|
||||
ClientTop = 510
|
||||
ClientWidth = 8010
|
||||
BeginProperty Font
|
||||
Name = "MS Sans Serif"
|
||||
Size = 9.75
|
||||
Charset = 0
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
LinkTopic = "Form1"
|
||||
ScaleHeight = 4215
|
||||
ScaleWidth = 8010
|
||||
Begin VB.CommandButton cmdDown
|
||||
Height = 495
|
||||
Left = 7500
|
||||
Picture = "FlexGrid.frx":0000
|
||||
Style = 1 'Graphical
|
||||
TabIndex = 8
|
||||
Top = 1500
|
||||
Width = 435
|
||||
End
|
||||
Begin VB.CommandButton cmdUp
|
||||
Height = 495
|
||||
Left = 7500
|
||||
Picture = "FlexGrid.frx":0442
|
||||
Style = 1 'Graphical
|
||||
TabIndex = 7
|
||||
Top = 960
|
||||
Width = 435
|
||||
End
|
||||
Begin VB.CommandButton cmdClip
|
||||
Caption = "Clip Example"
|
||||
Height = 912
|
||||
Left = 6660
|
||||
TabIndex = 6
|
||||
Top = 3240
|
||||
Width = 1272
|
||||
End
|
||||
Begin MSFlexGridLib.MSFlexGrid grdEmps
|
||||
Height = 3072
|
||||
Left = 60
|
||||
TabIndex = 5
|
||||
Top = 60
|
||||
Width = 7332
|
||||
_ExtentX = 12938
|
||||
_ExtentY = 5424
|
||||
_Version = 393216
|
||||
SelectionMode = 1
|
||||
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
|
||||
End
|
||||
Begin VB.CommandButton cmdColumn2
|
||||
Caption = "Retrieve Column 2"
|
||||
Height = 912
|
||||
Left = 5340
|
||||
TabIndex = 4
|
||||
Top = 3240
|
||||
Width = 1272
|
||||
End
|
||||
Begin VB.CommandButton cmdColumn1
|
||||
Caption = "Retrieve Column 1"
|
||||
Height = 912
|
||||
Left = 4020
|
||||
TabIndex = 3
|
||||
Top = 3240
|
||||
Width = 1272
|
||||
End
|
||||
Begin VB.CommandButton cmdDataLoad
|
||||
Caption = "Load Data From Table"
|
||||
Height = 912
|
||||
Left = 2700
|
||||
TabIndex = 2
|
||||
Top = 3240
|
||||
Width = 1272
|
||||
End
|
||||
Begin VB.CommandButton cmdLoad
|
||||
Caption = "Load Data"
|
||||
Height = 912
|
||||
Left = 1380
|
||||
TabIndex = 1
|
||||
Top = 3240
|
||||
Width = 1272
|
||||
End
|
||||
Begin VB.CommandButton cmdInit
|
||||
Caption = "Initialize Grid"
|
||||
Height = 912
|
||||
Left = 60
|
||||
TabIndex = 0
|
||||
Top = 3240
|
||||
Width = 1272
|
||||
End
|
||||
Begin VB.Image imgCheck
|
||||
Height = 144
|
||||
Left = 7500
|
||||
Picture = "FlexGrid.frx":0884
|
||||
Stretch = -1 'True
|
||||
Top = 180
|
||||
Visible = 0 'False
|
||||
Width = 144
|
||||
End
|
||||
End
|
||||
Attribute VB_Name = "frmFlexGrid"
|
||||
Attribute VB_GlobalNameSpace = False
|
||||
Attribute VB_Creatable = False
|
||||
Attribute VB_PredeclaredId = True
|
||||
Attribute VB_Exposed = False
|
||||
Option Explicit
|
||||
|
||||
Dim mlngColPos As Long
|
||||
|
||||
Const COL_ID As Integer = 0
|
||||
Const COL_TYPE As Integer = 1
|
||||
Const COL_NAME As Integer = 2
|
||||
Const COL_START As Integer = 3
|
||||
Const COL_SALARY As Integer = 4
|
||||
Const COL_ACTIVE As Integer = 5
|
||||
|
||||
Private Sub cmdClip_Click()
|
||||
MsgBox grdEmps.Clip
|
||||
End Sub
|
||||
|
||||
Private Sub cmdColumn1_Click()
|
||||
grdEmps.Col = COL_NAME
|
||||
MsgBox "The Employee's Name is " & grdEmps.Text
|
||||
End Sub
|
||||
|
||||
Private Sub cmdColumn2_Click()
|
||||
MsgBox "The Employee's Name is " & grdEmps.TextMatrix(grdEmps.Row, COL_NAME)
|
||||
End Sub
|
||||
|
||||
Private Sub cmdDataLoad_Click()
|
||||
Call GridInit
|
||||
|
||||
Call GridDataLoad
|
||||
End Sub
|
||||
|
||||
Private Sub cmdDown_Click()
|
||||
Dim intRow As Integer
|
||||
|
||||
intRow = grdEmps.Row
|
||||
|
||||
If intRow < grdEmps.Rows - 1 Then
|
||||
grdEmps.RowPosition(intRow) = intRow + 1
|
||||
grdEmps.Row = intRow + 1
|
||||
If Not grdEmps.RowIsVisible(grdEmps.Row) Then
|
||||
grdEmps.TopRow = grdEmps.Row
|
||||
End If
|
||||
grdEmps.Col = COL_ID
|
||||
grdEmps.ColSel = COL_ACTIVE
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub cmdInit_Click()
|
||||
Call GridInit
|
||||
End Sub
|
||||
|
||||
Private Sub cmdLoad_Click()
|
||||
Call GridInit
|
||||
|
||||
Call GridLoad
|
||||
End Sub
|
||||
|
||||
Private Sub GridInit()
|
||||
With grdEmps
|
||||
' Get rid of any fixed rows and columns
|
||||
.FixedRows = 0
|
||||
.FixedCols = 0
|
||||
|
||||
' Clear the Grid
|
||||
.Clear
|
||||
|
||||
' Set the initial number of rows and columns
|
||||
.Rows = 1
|
||||
.Cols = 6
|
||||
|
||||
' Setup Headers
|
||||
Call GridHeader
|
||||
|
||||
' Set Column Widths
|
||||
.ColWidth(COL_ID) = 0
|
||||
.ColWidth(COL_TYPE) = 2000
|
||||
.ColWidth(COL_NAME) = 2000
|
||||
.ColWidth(COL_START) = 1000
|
||||
.ColWidth(COL_SALARY) = 1000
|
||||
.ColWidth(COL_ACTIVE) = 800
|
||||
|
||||
' Set Column Alignments
|
||||
.ColAlignment(COL_START) = flexAlignCenterCenter
|
||||
.ColAlignment(COL_SALARY) = flexAlignRightCenter
|
||||
End With
|
||||
End Sub
|
||||
|
||||
Private Sub GridHeader()
|
||||
With grdEmps
|
||||
.Row = 0
|
||||
.Col = COL_ID
|
||||
.Text = "Emp ID"
|
||||
|
||||
.Col = COL_TYPE
|
||||
.Text = "Type"
|
||||
|
||||
.Col = COL_NAME
|
||||
.Text = "Name"
|
||||
|
||||
.Col = COL_START
|
||||
.Text = "Start Date"
|
||||
|
||||
.Col = COL_SALARY
|
||||
.Text = "Salary"
|
||||
|
||||
.Col = COL_ACTIVE
|
||||
.Text = "Active"
|
||||
End With
|
||||
End Sub
|
||||
|
||||
Private Sub GridLoad()
|
||||
With grdEmps
|
||||
' Add a row
|
||||
.AddItem "1" & vbTab & _
|
||||
"Manager" & vbTab & _
|
||||
"Sheriff, Paul" & vbTab & _
|
||||
"3/1/91" & vbTab & _
|
||||
Format$("70000", "Currency")
|
||||
.Row = 1
|
||||
.Col = COL_ACTIVE
|
||||
Set .CellPicture = imgCheck.Picture
|
||||
.CellFontBold = False
|
||||
.CellPictureAlignment = flexAlignCenterCenter
|
||||
|
||||
' Set the fixed rows
|
||||
.FixedRows = 1
|
||||
End With
|
||||
End Sub
|
||||
|
||||
Private Sub GridDataLoad()
|
||||
Dim oRS As Recordset
|
||||
Dim strSQL As String
|
||||
Dim strLine As String
|
||||
|
||||
' Build the SQL String
|
||||
strSQL = "SELECT lEmp_id, "
|
||||
strSQL = strSQL & "szLast_nm, "
|
||||
strSQL = strSQL & "sFirst_nm, "
|
||||
strSQL = strSQL & "szEmployee_type, "
|
||||
strSQL = strSQL & "dtStart_dt, "
|
||||
strSQL = strSQL & "cSalary_amt, "
|
||||
strSQL = strSQL & "boolActive_fl "
|
||||
strSQL = strSQL & "FROM tblEmployees, tblEmpTypes "
|
||||
strSQL = strSQL & "WHERE tblEmployees.lEmpType_id = tblEmpTypes.lEmpType_id "
|
||||
strSQL = strSQL & "ORDER BY szEmployee_type "
|
||||
|
||||
' Open the Database
|
||||
Call DataOpen
|
||||
' Open the Recordset
|
||||
Set oRS = gdb.OpenRecordset(strSQL)
|
||||
|
||||
' Set this to speed up loading
|
||||
grdEmps.Redraw = False
|
||||
|
||||
' Set these for Merging of Cells
|
||||
'grdEmps.MergeCells = flexMergeRestrictColumns
|
||||
'grdEmps.MergeCol(COL_TYPE) = True
|
||||
|
||||
|
||||
' Loop through each record
|
||||
Do Until oRS.EOF
|
||||
' Build string to put into grid
|
||||
' Separate each column with tabs
|
||||
strLine = oRS!lEmp_id & vbTab & _
|
||||
oRS!szEmployee_type & "" & vbTab & _
|
||||
oRS!szLast_nm & ", " & oRS!sFirst_nm & vbTab & _
|
||||
oRS!dtStart_dt & vbTab & _
|
||||
Format$(oRS!cSalary_amt, "Currency")
|
||||
|
||||
' Add the row to the grid
|
||||
grdEmps.AddItem strLine
|
||||
If Field2Bool(oRS!boolActive_fl) Then
|
||||
grdEmps.Row = grdEmps.Rows - 1
|
||||
grdEmps.Col = COL_ACTIVE
|
||||
Call PictureSet
|
||||
End If
|
||||
|
||||
' Move to the next record
|
||||
oRS.MoveNext
|
||||
Loop
|
||||
' Set the Fixed Rows if Grid has data
|
||||
If grdEmps.Rows > 1 Then
|
||||
grdEmps.FixedRows = 1
|
||||
End If
|
||||
|
||||
' Now redraw the grid
|
||||
grdEmps.Redraw = True
|
||||
|
||||
' Close the Recordset and Database
|
||||
oRS.Close
|
||||
gdb.Close
|
||||
End Sub
|
||||
|
||||
Private Sub cmdUp_Click()
|
||||
Dim intRow As Integer
|
||||
|
||||
intRow = grdEmps.Row
|
||||
|
||||
If intRow > 1 Then
|
||||
grdEmps.RowPosition(intRow) = intRow - 1
|
||||
grdEmps.Row = intRow - 1
|
||||
If Not grdEmps.RowIsVisible(grdEmps.Row) Then
|
||||
grdEmps.TopRow = grdEmps.Row
|
||||
End If
|
||||
grdEmps.Col = COL_ID
|
||||
grdEmps.ColSel = COL_ACTIVE
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub grdEmps_DblClick()
|
||||
If mlngColPos >= grdEmps.ColPos(COL_ACTIVE) And mlngColPos < grdEmps.Width Then
|
||||
grdEmps.Col = COL_ACTIVE
|
||||
If grdEmps.CellPicture = 0 Then
|
||||
Call PictureSet
|
||||
Else
|
||||
Set grdEmps.CellPicture = Nothing
|
||||
End If
|
||||
grdEmps.Col = COL_ID
|
||||
grdEmps.ColSel = COL_ACTIVE
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub grdEmps_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
|
||||
If Button = vbLeftButton Then
|
||||
mlngColPos = x
|
||||
If y >= grdEmps.RowPos(0) And y < grdEmps.RowPos(1) Then
|
||||
If x >= grdEmps.ColPos(COL_TYPE) And x < grdEmps.ColPos(COL_NAME) Then
|
||||
grdEmps.Col = COL_TYPE
|
||||
grdEmps.Sort = flexSortStringNoCaseAscending
|
||||
ElseIf x >= grdEmps.ColPos(COL_NAME) And x < grdEmps.ColPos(COL_START) Then
|
||||
grdEmps.Col = COL_NAME
|
||||
grdEmps.Sort = flexSortStringNoCaseAscending
|
||||
grdEmps.Col = COL_ID
|
||||
grdEmps.ColSel = COL_ACTIVE
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Function Field2Bool(vntValue As Variant) As Boolean
|
||||
If IsNull(vntValue) Then
|
||||
Field2Bool = False
|
||||
Else
|
||||
Field2Bool = CBool(vntValue)
|
||||
End If
|
||||
End Function
|
||||
|
||||
Private Sub PictureSet()
|
||||
grdEmps.CellPictureAlignment = flexAlignCenterCenter
|
||||
Set grdEmps.CellPicture = imgCheck.Picture
|
||||
End Sub
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,232 @@
|
||||
VERSION 5.00
|
||||
Object = "{DEF7CADD-83C0-11D0-A0F1-00A024703500}#7.0#0"; "TODG7.OCX"
|
||||
Begin VB.Form Form1
|
||||
Caption = "Form1"
|
||||
ClientHeight = 6120
|
||||
ClientLeft = 60
|
||||
ClientTop = 345
|
||||
ClientWidth = 7605
|
||||
LinkTopic = "Form1"
|
||||
ScaleHeight = 6120
|
||||
ScaleWidth = 7605
|
||||
StartUpPosition = 3 'Windows Default
|
||||
Begin VB.CommandButton cmdLast
|
||||
Caption = "Last Record"
|
||||
Height = 615
|
||||
Left = 5820
|
||||
TabIndex = 5
|
||||
Top = 5400
|
||||
Width = 1275
|
||||
End
|
||||
Begin VB.CommandButton cmdFirst
|
||||
Caption = "First Record"
|
||||
Height = 495
|
||||
Left = 4620
|
||||
TabIndex = 4
|
||||
Top = 5400
|
||||
Width = 1035
|
||||
End
|
||||
Begin VB.CommandButton cmdNext
|
||||
Caption = "Next Record"
|
||||
Height = 675
|
||||
Left = 3120
|
||||
TabIndex = 3
|
||||
Top = 5340
|
||||
Width = 1155
|
||||
End
|
||||
Begin VB.CommandButton cmdPrevious
|
||||
Caption = "Previous Record"
|
||||
Height = 615
|
||||
Left = 1500
|
||||
TabIndex = 2
|
||||
Top = 5340
|
||||
Width = 1335
|
||||
End
|
||||
Begin VB.CommandButton cmdRebind
|
||||
Caption = "Rebind"
|
||||
Height = 615
|
||||
Left = 300
|
||||
TabIndex = 1
|
||||
Top = 5340
|
||||
Width = 1095
|
||||
End
|
||||
Begin TrueOleDBGrid70.TDBGrid TDBGrid1
|
||||
Bindings = "Form1.frx":0000
|
||||
Height = 4995
|
||||
Left = 60
|
||||
TabIndex = 0
|
||||
Top = 60
|
||||
Width = 7515
|
||||
_ExtentX = 13256
|
||||
_ExtentY = 8811
|
||||
_LayoutType = 0
|
||||
_RowHeight = -2147483647
|
||||
_WasPersistedAsPixels= 0
|
||||
Columns(0)._VlistStyle= 0
|
||||
Columns(0)._MaxComboItems= 5
|
||||
Columns(0).DataField= ""
|
||||
Columns(0)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
|
||||
Columns(1)._VlistStyle= 0
|
||||
Columns(1)._MaxComboItems= 5
|
||||
Columns(1).DataField= ""
|
||||
Columns(1)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
|
||||
Columns.Count = 2
|
||||
Splits(0)._UserFlags= 0
|
||||
Splits(0).RecordSelectorWidth= 503
|
||||
Splits(0)._SavedRecordSelectors= 0 'False
|
||||
Splits(0).DividerColor= 12632256
|
||||
Splits(0).SpringMode= 0 'False
|
||||
Splits(0)._PropDict= "_ColumnProps,515,0;_UserFlags,518,3"
|
||||
Splits(0)._ColumnProps(0)= "Columns.Count=2"
|
||||
Splits(0)._ColumnProps(1)= "Column(0).Width=2725"
|
||||
Splits(0)._ColumnProps(2)= "Column(0).DividerColor=0"
|
||||
Splits(0)._ColumnProps(3)= "Column(0)._WidthInPix=2646"
|
||||
Splits(0)._ColumnProps(4)= "Column(0).Order=1"
|
||||
Splits(0)._ColumnProps(5)= "Column(1).Width=2725"
|
||||
Splits(0)._ColumnProps(6)= "Column(1).DividerColor=0"
|
||||
Splits(0)._ColumnProps(7)= "Column(1)._WidthInPix=2646"
|
||||
Splits(0)._ColumnProps(8)= "Column(1).Order=2"
|
||||
Splits.Count = 1
|
||||
PrintInfos(0)._StateFlags= 0
|
||||
PrintInfos(0).Name= "piInternal 0"
|
||||
PrintInfos(0).PageHeaderFont= "Size=8.25,Charset=0,Weight=400,Underline=0,Italic=0,Strikethrough=0,Name=MS Sans Serif"
|
||||
PrintInfos(0).PageFooterFont= "Size=8.25,Charset=0,Weight=400,Underline=0,Italic=0,Strikethrough=0,Name=MS Sans Serif"
|
||||
PrintInfos(0).PageHeaderHeight= 0
|
||||
PrintInfos(0).PageFooterHeight= 0
|
||||
PrintInfos.Count= 1
|
||||
DefColWidth = 0
|
||||
HeadLines = 1
|
||||
FootLines = 1
|
||||
MultipleLines = 0
|
||||
CellTipsWidth = 0
|
||||
DeadAreaBackColor= 12632256
|
||||
RowDividerColor = 12632256
|
||||
RowSubDividerColor= 12632256
|
||||
DirectionAfterEnter= 1
|
||||
MaxRows = 250000
|
||||
ViewColumnCaptionWidth= 0
|
||||
ViewColumnWidth = 0
|
||||
_PropDict = "_ExtentX,2003,3;_ExtentY,2004,3;_LayoutType,512,2;_RowHeight,16,3;_StyleDefs,513,0;_WasPersistedAsPixels,516,2"
|
||||
_StyleDefs(0) = "_StyleRoot:id=0,.parent=-1,.alignment=3,.valignment=0,.bgcolor=&H80000005&"
|
||||
_StyleDefs(1) = ":id=0,.fgcolor=&H80000008&,.wraptext=0,.locked=0,.transparentBmp=0"
|
||||
_StyleDefs(2) = ":id=0,.fgpicPosition=0,.bgpicMode=0,.appearance=0,.borderSize=0,.ellipsis=0"
|
||||
_StyleDefs(3) = ":id=0,.borderColor=&H80000005&,.borderType=0,.bold=0,.fontsize=825,.italic=0"
|
||||
_StyleDefs(4) = ":id=0,.underline=0,.strikethrough=0,.charset=0"
|
||||
_StyleDefs(5) = ":id=0,.fontname=MS Sans Serif"
|
||||
_StyleDefs(6) = "Style:id=1,.parent=0,.namedParent=33"
|
||||
_StyleDefs(7) = "CaptionStyle:id=4,.parent=2,.namedParent=37"
|
||||
_StyleDefs(8) = "HeadingStyle:id=2,.parent=1,.namedParent=34"
|
||||
_StyleDefs(9) = "FooterStyle:id=3,.parent=1,.namedParent=35"
|
||||
_StyleDefs(10) = "InactiveStyle:id=5,.parent=2,.bgcolor=&H8000000F&,.fgcolor=&H80000012&"
|
||||
_StyleDefs(11) = "SelectedStyle:id=6,.parent=1,.namedParent=36"
|
||||
_StyleDefs(12) = "EditorStyle:id=7,.parent=1"
|
||||
_StyleDefs(13) = "HighlightRowStyle:id=8,.parent=1,.namedParent=38"
|
||||
_StyleDefs(14) = "EvenRowStyle:id=9,.parent=1,.namedParent=39"
|
||||
_StyleDefs(15) = "OddRowStyle:id=10,.parent=1,.namedParent=40"
|
||||
_StyleDefs(16) = "RecordSelectorStyle:id=11,.parent=2,.namedParent=41"
|
||||
_StyleDefs(17) = "FilterBarStyle:id=12,.parent=1,.namedParent=42"
|
||||
_StyleDefs(18) = "Splits(0).Style:id=13,.parent=1"
|
||||
_StyleDefs(19) = "Splits(0).CaptionStyle:id=22,.parent=4"
|
||||
_StyleDefs(20) = "Splits(0).HeadingStyle:id=14,.parent=2"
|
||||
_StyleDefs(21) = "Splits(0).FooterStyle:id=15,.parent=3"
|
||||
_StyleDefs(22) = "Splits(0).InactiveStyle:id=16,.parent=5"
|
||||
_StyleDefs(23) = "Splits(0).SelectedStyle:id=18,.parent=6"
|
||||
_StyleDefs(24) = "Splits(0).EditorStyle:id=17,.parent=7"
|
||||
_StyleDefs(25) = "Splits(0).HighlightRowStyle:id=19,.parent=8"
|
||||
_StyleDefs(26) = "Splits(0).EvenRowStyle:id=20,.parent=9"
|
||||
_StyleDefs(27) = "Splits(0).OddRowStyle:id=21,.parent=10"
|
||||
_StyleDefs(28) = "Splits(0).RecordSelectorStyle:id=23,.parent=11"
|
||||
_StyleDefs(29) = "Splits(0).FilterBarStyle:id=24,.parent=12"
|
||||
_StyleDefs(30) = "Splits(0).Columns(0).Style:id=28,.parent=13"
|
||||
_StyleDefs(31) = "Splits(0).Columns(0).HeadingStyle:id=25,.parent=14"
|
||||
_StyleDefs(32) = "Splits(0).Columns(0).FooterStyle:id=26,.parent=15"
|
||||
_StyleDefs(33) = "Splits(0).Columns(0).EditorStyle:id=27,.parent=17"
|
||||
_StyleDefs(34) = "Splits(0).Columns(1).Style:id=32,.parent=13"
|
||||
_StyleDefs(35) = "Splits(0).Columns(1).HeadingStyle:id=29,.parent=14"
|
||||
_StyleDefs(36) = "Splits(0).Columns(1).FooterStyle:id=30,.parent=15"
|
||||
_StyleDefs(37) = "Splits(0).Columns(1).EditorStyle:id=31,.parent=17"
|
||||
_StyleDefs(38) = "Named:id=33:Normal"
|
||||
_StyleDefs(39) = ":id=33,.parent=0"
|
||||
_StyleDefs(40) = "Named:id=34:Heading"
|
||||
_StyleDefs(41) = ":id=34,.parent=33,.valignment=2,.bgcolor=&H8000000F&,.fgcolor=&H80000012&"
|
||||
_StyleDefs(42) = ":id=34,.wraptext=-1"
|
||||
_StyleDefs(43) = "Named:id=35:Footing"
|
||||
_StyleDefs(44) = ":id=35,.parent=33,.valignment=2,.bgcolor=&H8000000F&,.fgcolor=&H80000012&"
|
||||
_StyleDefs(45) = "Named:id=36:Selected"
|
||||
_StyleDefs(46) = ":id=36,.parent=33,.bgcolor=&H8000000D&,.fgcolor=&H8000000E&"
|
||||
_StyleDefs(47) = "Named:id=37:Caption"
|
||||
_StyleDefs(48) = ":id=37,.parent=34,.alignment=2"
|
||||
_StyleDefs(49) = "Named:id=38:HighlightRow"
|
||||
_StyleDefs(50) = ":id=38,.parent=33,.bgcolor=&H8000000D&,.fgcolor=&H8000000E&"
|
||||
_StyleDefs(51) = "Named:id=39:EvenRow"
|
||||
_StyleDefs(52) = ":id=39,.parent=33,.bgcolor=&HFFFF00&"
|
||||
_StyleDefs(53) = "Named:id=40:OddRow"
|
||||
_StyleDefs(54) = ":id=40,.parent=33"
|
||||
_StyleDefs(55) = "Named:id=41:RecordSelector"
|
||||
_StyleDefs(56) = ":id=41,.parent=34"
|
||||
_StyleDefs(57) = "Named:id=42:FilterBar"
|
||||
_StyleDefs(58) = ":id=42,.parent=33"
|
||||
End
|
||||
End
|
||||
Attribute VB_Name = "Form1"
|
||||
Attribute VB_GlobalNameSpace = False
|
||||
Attribute VB_Creatable = False
|
||||
Attribute VB_PredeclaredId = True
|
||||
Attribute VB_Exposed = False
|
||||
Option Explicit
|
||||
|
||||
Dim moRS As Recordset
|
||||
|
||||
|
||||
Private Sub cmdFindInv_Click()
|
||||
Dim oRS As Recordset
|
||||
Dim strSQL As String, lngFind As Long
|
||||
|
||||
strSQL = "SELECT * from tblInvtry" ' WHERE Inv_no = " & txtLMInvNo.Text
|
||||
|
||||
Set oRS = New Recordset
|
||||
|
||||
oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
|
||||
' TDBGrid1.DataSource = oRS
|
||||
Set TDBGrid1.DataSource = oRS
|
||||
TDBGrid1.ReBind
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub cmdFirst_Click()
|
||||
moRS.MoveFirst
|
||||
End Sub
|
||||
|
||||
Private Sub cmdLast_Click()
|
||||
moRS.MoveLast
|
||||
End Sub
|
||||
|
||||
Private Sub cmdNext_Click()
|
||||
moRS.MoveNext
|
||||
End Sub
|
||||
|
||||
Private Sub cmdPrevious_Click()
|
||||
moRS.MovePrevious
|
||||
End Sub
|
||||
|
||||
Private Sub cmdRebind_Click()
|
||||
' Set TDBGrid1.DataSource = rs
|
||||
TDBGrid1.ReBind
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Form_Load()
|
||||
' Dim oRS As Recordset
|
||||
Dim strSQL As String, lngFind As Long
|
||||
|
||||
strSQL = "SELECT * from tblInvtry" ' WHERE Inv_no = " & txtLMInvNo.Text
|
||||
|
||||
Set moRS = New Recordset
|
||||
|
||||
' moRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
|
||||
moRS.Open strSQL, goConn, adOpenKeyset, adLockOptimistic
|
||||
' TDBGrid1.DataSource = oRS
|
||||
Set TDBGrid1.DataSource = moRS
|
||||
' TDBGrid1.ReBind
|
||||
|
||||
End Sub
|
||||
Binary file not shown.
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user