VERSION 5.00
Begin VB.Form frmLotSearch 
   Caption         =   "Lot Search Form"
   ClientHeight    =   6315
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9930
   LinkTopic       =   "Form1"
   ScaleHeight     =   6315
   ScaleWidth      =   9930
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdCancel 
      Caption         =   "Cancel"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   3780
      TabIndex        =   10
      Top             =   1140
      Width           =   1515
   End
   Begin VB.CommandButton cmdContinue 
      Caption         =   "Continue"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   3780
      TabIndex        =   4
      Top             =   1920
      Width           =   1515
   End
   Begin VB.ListBox lstLots 
      Height          =   3570
      Left            =   2760
      Sorted          =   -1  'True
      TabIndex        =   9
      TabStop         =   0   'False
      Top             =   2580
      Width           =   7155
   End
   Begin VB.CommandButton cmdFName 
      Height          =   435
      Left            =   120
      Picture         =   "frmLotSearch.frx":0000
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   1980
      Width           =   555
   End
   Begin VB.CommandButton cmdFCode 
      Height          =   435
      Left            =   120
      Picture         =   "frmLotSearch.frx":0442
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   1200
      Width           =   555
   End
   Begin VB.ListBox lstProject 
      Height          =   3570
      Left            =   120
      Sorted          =   -1  'True
      TabIndex        =   8
      TabStop         =   0   'False
      Top             =   2580
      Width           =   2595
   End
   Begin VB.TextBox txtSName 
      Height          =   375
      Left            =   780
      TabIndex        =   2
      Top             =   2040
      Width           =   2595
   End
   Begin VB.TextBox txtSCode 
      Height          =   375
      Left            =   780
      TabIndex        =   0
      Top             =   1260
      Width           =   2595
   End
   Begin VB.Label lblName 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Subdivision Name:"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   240
      Left            =   120
      TabIndex        =   7
      Top             =   1680
      Width           =   1965
   End
   Begin VB.Label lblCode 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Subdivision Code:"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   240
      Left            =   120
      TabIndex        =   6
      Top             =   900
      Width           =   1905
   End
   Begin VB.Label lblInstruct 
      Caption         =   $"frmLotSearch.frx":0884
      Height          =   675
      Left            =   900
      TabIndex        =   5
      Top             =   180
      Width           =   3795
   End
End
Attribute VB_Name = "frmLotSearch"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdContinue_Click()
   gintTOID = lstLots.ItemData(lstLots.ListIndex)
   Unload Me
   frmLotInfo.Show
   
End Sub

Private Sub cmdFCode_Click()
   Call CodeLoad
End Sub

Private Sub cmdFName_Click()
   Call NameLoad
   
End Sub
Private Sub CodeLoad()
   Dim oRS As Recordset
   Dim strSQL As String, strSelect As String, strCode As String
   strCode = Trim$(txtSCode.Text)
   strSelect = "proj_code LIKE '" & strCode & "*'" ' & """"
   
   strSQL = "SELECT Proj_id, Proj_desc, proj_code FROM tblProject "

   Set oRS = New Recordset
   oRS.Open strSQL, goConn, _
            adOpenForwardOnly, adLockReadOnly
   oRS.Filter = strSelect
   lstProject.Clear
   
   Do Until oRS.EOF
      lstProject.AddItem oRS("Proj_desc")
      lstProject.ItemData(lstProject.NewIndex) = oRS("Proj_id")
      
      oRS.MoveNext
   Loop
   oRS.Close
   lstProject.ListIndex = 0
End Sub

Private Sub NameLoad()
   Dim oRS As Recordset
   Dim strSQL As String, strSelect As String, strCode As String
   strCode = Trim$(txtSName.Text)
   strSelect = "proj_desc LIKE '" & strCode & "*'" ' & """"
   
   strSQL = "SELECT Proj_id, Proj_desc FROM tblProject "

   Set oRS = New Recordset
   oRS.Open strSQL, goConn, _
            adOpenForwardOnly, adLockReadOnly
   oRS.Filter = strSelect
   lstProject.Clear
   
   Do Until oRS.EOF
      lstProject.AddItem oRS("Proj_desc")
      lstProject.ItemData(lstProject.NewIndex) = oRS("Proj_id")
      
      oRS.MoveNext
   Loop
   oRS.Close
   lstProject.ListIndex = 0
End Sub


Private Sub txtSCode_LostFocus()
   txtSCode.Text = UCase(txtSCode.Text)
End Sub
Private Sub lstProject_Change()
   Call LotLoad
End Sub

Private Sub lstProject_Click()
   Call LotLoad
End Sub
Private Sub LotLoad()
   Dim oRS As Recordset
   Dim strSQL As String, strLine As String
   
   gintPROJID = lstProject.ItemData(lstProject.ListIndex)

   strSQL = "SELECT lot_id, lot_no, address, model, owner from tbllotinfo WHERE Proj_ID = " & gintPROJID
   
   Set oRS = New Recordset
   
   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
   
   lstLots.Clear
   
   Do Until oRS.EOF
      With lstLots
'         strLine = oRS!lot_no & "    " & Format$(oRS!address, "                         ") & vbTab & oRS!model & vbTab & oRS!owner
         strLine = oRS!lot_no & vbTab & oRS!model & vbTab & oRS!address & "  ---  " & oRS!owner
         .AddItem Field2Str(strLine)
         .ItemData(.NewIndex) = oRS("lot_id")
      End With
      
      oRS.MoveNext
   Loop
   oRS.Close
   
   If lstLots.ListCount Then
      lstLots.ListIndex = 0
   End If
         
   
End Sub