FRMEXISTINGORDERS
---------------------------------

Dim critical2 As Integer
Dim moving As Integer
Dim sliderCS As Integer

Public Function countOrders() As Integer
countOrders = 0
For n = 0 To sizeMyOrders - 1
  If myOrders(n).phoneNumber = PhoneHoldText.Text Then
    countOrders = countOrders + 1
  End If
Next
End Function
Public Function orderDisabled()

Command1.Enabled = False
Command6.Enabled = False
cmdOrderForward.Enabled = False
cmdOrderBack.Enabled = False
cmdOrderFinished.Enabled = False
Command9.Enabled = False

End Function

Public Function orderEnabled()

Command1.Enabled = True
Command6.Enabled = True
cmdOrderForward.Enabled = True
cmdOrderBack.Enabled = True
cmdOrderFinished.Enabled = True
Command9.Enabled = True
End Function
Public Function findOrder(start As Integer, finish As Integer)

cmdRemove.Enabled = True

If countOrders = 0 Then
  orderDisabled
Else
  orderEnabled
End If

If countOrders > 1 Then
  cmdOrderForward.Enabled = True
  cmdOrderBack.Enabled = True
Else
  cmdOrderForward.Enabled = False
  cmdOrderBack.Enabled = False
End If

    
For n = start To finish

  If myOrders(n).phoneNumber = PhoneHoldText.Text Then
    currentOrderNumber = n
    If (listOrder.ListCount > 0) Then      ' clear order first before we add things to it, or it will get REALLY big
      For m = 0 To listOrder.ListCount - 1
        listOrder.RemoveItem 0
      Next
    End If
    fillOrder
    
    GoTo done
  End If
Next


If moving = 0 Then
  ' empty order list if no orders for customer
  If (listOrder.ListCount > 0) Then
    For n = 0 To listOrder.ListCount - 1
      listOrder.RemoveItem 0
    Next
  End If
  lblTimePlaced = ""
  lblPromisedTime = ""
  lblCoupon = 0
  lblDiscount = 0
  lblSubTotal = 0
  lblGST = 0
  lblFinalPrice = 0
  lblPaid = 0
  lblOwing = 0
End If

moving = 0
done:
End Function
Public Function fillOrder()

    lblCoupon.Caption = myOrders(currentOrderNumber).coupons
    lblTimePlaced.Caption = myOrders(currentOrderNumber).Time
    lblPromisedTime.Caption = myOrders(currentOrderNumber).timePromised
    lblSubTotal.Caption = myOrders(currentOrderNumber).subtotal
    lblDiscount.Caption = myOrders(currentOrderNumber).discount
    lblGST.Caption = myOrders(currentOrderNumber).tax
    lblFinalPrice.Caption = myOrders(currentOrderNumber).total
    lblPaid.Caption = myOrders(currentOrderNumber).paid
    lblOwing.Caption = myOrders(currentOrderNumber).stillowing
    If myOrders(currentOrderNumber).p_or_d = "Delivery" Then
      shpDelivery.Visible = True
      shpPickup.Visible = False
    Else
      shpPickup.Visible = True
      shpDelivery.Visible = False
    End If
    txtNotes.Text = myOrders(currentOrderNumber).instructions
    For n = 0 To myOrders(currentOrderNumber).sizeOrder - 1
      listOrder.AddItem myOrders(currentOrderNumber).order(n)
    Next
    
End Function

Private Sub Image1_Click()
frmExistingOrders.Hide
End Sub

Private Sub AddressHoldText_Click()
AddressHoldText.SetFocus
AddressHoldText.SelStart = 0
AddressHoldText.SelLength = Len(AddressHoldText.Text)
End Sub

Private Sub AddressText_Change()
AddressHoldText.Text = AddressText.Text
frmOrder.AddressHoldText.Text = AddressText.Text
End Sub

Private Sub cmdAddCustomer_Click()

cmdAddCustomer.Visible = False
newCustomer = 0
End Sub

Private Sub cmdBack_Click()
   Data1.Recordset.MovePrevious
   If Data1.Recordset.BOF = True Then
        Data1.Recordset.MoveNext
   End If
       Call findOrder(0, sizeMyOrders - 1)
End Sub

Private Sub cmdCancel_Click()
    cmdNewCust.Enabled = True
    cmdUpdate.Enabled = True
    cmdRemove.Enabled = True
    cmdNew.Enabled = True
    cmdDone.Enabled = False
    cmdCancel.Enabled = False
    customerFrame.Caption = "Customer Information"
    newCustomer = 0
End Sub

Private Sub cmdDone_Click()
newCustomer = 1
If customerFrame.Caption = "Add New Customer" Then
  If LNHoldText.Text <> "" And PhoneHoldText.Text <> "" And AddressHoldText.Text <> "" Then
    ' code to add new record to database

    
    Data1.Recordset.AddNew
    'Data1.Recordset.Fields("FirstName") = FNtext.Text
    'Data1.Recordset.Fields("LastName") = LNText.Text
    'Data1.Recordset.Fields("Address") = AddressText.Text
    'Data1.Recordset.Fields("PhoneNumber") = PhoneText.Text
    
    'FNtext.Text = holdtext.Text
    'LNText.Text = LNHoldText.Text
    'AddressText.Text = AddressHoldText.Text
    'PhoneText.Text = PhoneHoldText.Text
    Data1.Recordset!firstName = holdtext.Text
    Data1.Recordset!LastName = LNHoldText.Text
    Data1.Recordset!address = AddressHoldText.Text
    Data1.Recordset!phoneNumber = PhoneHoldText.Text
    'Data1.Recordset.Fields("FirstName") = holdtext.Text
    'Data1.Recordset.Fields("LastName") = LNHoldText.Text
    'Data1.Recordset.Fields("Address") = AddressHoldText.Text
    'Data1.Recordset.Fields("PhoneNumber") = PhoneHoldText.Text
    
    Data1.Recordset.Update
    
    'Data1.RecordSource = "Select * from Customer where LastName = " & LNHoldText.Text & " and PhoneNumber = " & PhoneHoldText.Text
    'MsgBox Data1.RecordSource
    'Data1.Refresh
    
    'FNtext.Text = holdtext.Text
    'LNText.Text = LNHoldText.Text
    'AddressText.Text = AddressHoldText.Text
    'PhoneText.Text = PhoneHoldText.Text
    
    'Data1.Recordset.Edit
    'Data1.Recordset.Update
    

  

    MsgBox holdtext.Text & " " & LNHoldText.Text & " added successfully.", , "New Customer Added"
    newCustomer = 0
    cmdNewCust.Enabled = True
    cmdUpdate.Enabled = True
    cmdRemove.Enabled = True
    cmdDone.Enabled = False
    cmdNew.Enabled = True
    cmdCancel.Enabled = False
    customerFrame.Caption = "Customer Information"
  Else
    MsgBox "Please enter in all a customer's information", , "You Forgot Something"
  End If
ElseIf customerFrame.Caption = "Update Current Customer" Then
  FNtext.Text = holdtext.Text
  LNText.Text = LNHoldText.Text
  AddressText.Text = AddressHoldText.Text
  PhoneText.Text = PhoneHoldText.Text
  
  If (sizeMyOrders <> 0) Then
    For n = currentOrderNumber To sizeMyOrders
      'update orders for that person
      If myOrders(n).phoneNumber = PhoneHoldText.Text Then
        myOrders(n).LastName = LNHoldText.Text
        myOrders(n).address = AddressHoldText.Text
        myOrders(n).firstName = holdtext.Text
        myOrders(n).phoneNumber = PhoneHoldText.Text
      End If
    Next
  End If
  Data1.Recordset.Edit
  'Data1.Recordset.Fields("FirstName") = holdtext.Text
  'Data1.Recordset.Fields("LastName") = LNHoldText.Text
  'Data1.Recordset.Fields("Address") = AddressHoldText.Text
  'Data1.Recordset.Fields("PhoneNumber") = PhoneHoldText.Text
  Data1.Recordset.Update
  'MsgBox myOrders(currentOrderNumber).phoneNumber
  
  
  'MsgBox myOrders(currentOrderNumber).phoneNumber
  
  MsgBox holdtext.Text & " " & LNHoldText.Text & " updated successfully.", , "New Customer Added"
  newCustomer = 0
  cmdNewCust.Enabled = True
  cmdUpdate.Enabled = True
  cmdRemove.Enabled = True
  cmdDone.Enabled = False
  cmdNew.Enabled = True
  cmdCancel.Enabled = False
  customerFrame.Caption = "Customer Information"
  newCustomer = 0
End If
cmdBack.Enabled = False
cmdForward.Enabled = False
End Sub

Private Sub cmdForward_Click()

   Data1.Recordset.MoveNext
   If Data1.Recordset.EOF = True Then
        Data1.Recordset.MovePrevious
   End If
   Call findOrder(0, sizeMyOrders - 1)
End Sub

Private Sub cmdNew_Click()
frmExistingOrders.Hide
frmOrder.Show
frmOrder.Timer1.Enabled = True

newCustomer = 1
frmOrder.LNHoldText = LNHoldText.Text
frmOrder.holdtext.Text = holdtext.Text
frmOrder.AddressHoldText.Text = AddressHoldText.Text
frmOrder.PhoneHoldText.Text = PhoneHoldText.Text
newCustomer = 0
End Sub

Private Sub cmdNewCust_Click()

'FNtext.Text = ""
'LNText.Text = ""
'AddressText.Text = ""
'PhoneText.Text = ""

newCustomer = 1

Data1.RecordSource = "Select * from Customer where LastName = 'This class rocks!'"
Data1.Refresh

LNHoldText.Text = ""
PhoneHoldText.Text = ""

cmdNewCust.Enabled = False
cmdUpdate.Enabled = False
cmdRemove.Enabled = False
cmdBack.Enabled = False
cmdForward.Enabled = False
cmdNew.Enabled = False
cmdDone.Enabled = True
cmdCancel.Enabled = True
customerFrame.Caption = "Add New Customer"
End Sub

Private Sub cmdOrderBack_Click()
moving = 1
Call findOrder(0, currentOrderNumber - 1)
End Sub

Private Sub cmdOrderFinished_Click()
If (listOrder.ListCount > 0) Then
  'remove current order

  graphform.Circles(currentOrderNumber).Visible = False

  ' move each order to the left one, starting at one we want to remove
  For n = currentOrderNumber To sizeMyOrders
    If n < sizeMyOrders Then
      myOrders(n) = myOrders(n + 1)
    End If
  Next

  

  ' redefine size of myOrders, deallocate memory
  sizeMyOrders = sizeMyOrders - 1
  ReDim Preserve myOrders(sizeMyOrders) As order
  Call findOrder(0, sizeMyOrders - 1)
  
  
  graphform.Point_update
  graphform.Update_Color
End If


End Sub

Private Sub cmdOrderForward_Click()
moving = 1
Call findOrder(currentOrderNumber + 1, sizeMyOrders - 1)
End Sub

Private Sub cmdRemove_Click()
newCustomer = 1
If LNHoldText.Text = "" Then
  MsgBox "No customer to remove", vbCritical, "You Forgot Something"
  GoTo done
End If
message = "Do you want to permanently remove " & holdtext.Text & " " & LNHoldText.Text & "?"
answer = MsgBox(message, vbYesNo, "Are You Sure?")
If answer = vbYes Then
  FNtext.Text = holdtext.Text
  LNText.Text = LNHoldText.Text
  AddressText.Text = AddressHoldText.Text
  PhoneText.Text = PhoneHoldText.Text
  
  Data1.Recordset.Delete 'deletes current record

  
  holdtext.Text = ""
  LNHoldText.Text = ""
  AddressHoldText.Text = ""
  PhoneHoldText.Text = ""
  
  Call cmdOrderFinished_Click
  
  graphform.Point_update
  graphform.Update_Color
End If

done:
newCustomer = 0
End Sub

Private Sub cmdUpdate_Click()
newCustomer = 1
cmdNewCust.Enabled = False
cmdUpdate.Enabled = False
cmdRemove.Enabled = False

cmdBack.Enabled = False
cmdForward.Enabled = False
cmdNew.Enabled = False
cmdDone.Enabled = True
cmdCancel.Enabled = True
customerFrame.Caption = "Update Current Customer"
End Sub

Private Sub Command1_Click()
frmOrder.Show
For n = 0 To frmOrder.listOrder.ListCount - 1
  frmOrder.listOrder.RemoveItem 0
Next

For n = 0 To myOrders(currentOrderNumber).sizeOrder - 1
  frmOrder.listOrder.AddItem listOrder.List(n)
Next
frmOrder.lblPrice = myOrders(currentOrderNumber).subtotal
frmOrder.txtCoupon = myOrders(currentOrderNumber).coupons
frmOrder.txtDiscount = myOrders(currentOrderNumber).discount
frmOrder.lblPaid = myOrders(currentOrderNumber).paid
frmOrder.cmdPlaceOrder.Caption = "Update Order"
End Sub

Private Sub Command2_Click()
frmExistingOrders.Hide
frmOrder.Show
frmOrder.Timer1.Enabled = True

newCustomer = 1
frmOrder.LNHoldText = LNHoldText.Text
frmOrder.holdtext.Text = holdtext.Text
frmOrder.AddressHoldText.Text = AddressHoldText.Text
frmOrder.PhoneHoldText.Text = PhoneHoldText.Text
newCustomer = 0
End Sub

Private Sub Command3_Click()
MsgBox range1.RangeLeft

End Sub

Private Sub Command4_Click()
frmExistingOrders.Hide
frmOrder.Show
frmOrder.Timer1.Enabled = True

newCustomer = 1
frmOrder.LNHoldText = LNHoldText.Text
frmOrder.holdtext.Text = holdtext.Text
frmOrder.AddressHoldText.Text = AddressHoldText.Text
frmOrder.PhoneHoldText.Text = PhoneHoldText.Text
newCustomer = 0
End Sub

Private Sub Command5_Click()
MsgBox range1.RangeRight
End Sub

Private Sub Command6_Click()
cmdOrderFinished_Click
End Sub

Private Sub Command8_Click()

End Sub

Private Sub Command9_Click()
MsgBox "Your printer could not be detected.", vbCritical, "Please Connect Your Printer"
End Sub

Private Sub FNHoldText_Change()
   Dim number As Integer
   If critical2 = 0 Then
       critical2 = 1
       MsgBox FNHoldText.SelStart
       If Len(FNHoldText.Text) <> 0 And FNHoldText.SelStart <> 0 Then
        Data1.RecordSource = "Select * from Customer where FirstName like '" & FNHoldText.Text & "*'"
        Data1.Refresh
       Else
        Data1.RecordSource = "Select * from Customer where FirstName = 'Saul is the best prof ever'"
        Data1.Refresh
        FNHoldText.Text = ""
       End If
       
       number = Len(FNHoldText.Text)
       If FNHoldText.Text <> "" Then
            FNHoldText.Text = FNtext.Text
            FNHoldText.SetFocus
            FNHoldText.SelStart = number
            FNHoldText.SelLength = Len(FNHoldText.Text)
       End If
       critical2 = 0
    ElseIf critical2 = 0 Then
       If Len(FNHoldText.Text) > 1 Then
          FNHoldText.Text = Mid$(FNHoldText.Text, 1, Len(FNHoldText.Text) - 1)
       End If
    End If
End Sub

Private Sub FNHoldText_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = 8 Then
   
      If FNHoldText.SelStart - 1 > 0 Then
        FNHoldText.SelStart = FNHoldText.SelStart - 1
        FNHoldText.SelLength = Len(FNHoldText.Text)
      Else
        FNHoldText.Text = ""
      End If
   End If
End Sub

Private Sub customerFrame_DragDrop(Source As Control, X As Single, Y As Single)
cmdBack.Enabled = True
cmdForward.Enabled = True
End Sub

Private Sub FNtext_Change()
holdtext.Text = FNtext.Text
frmOrder.holdtext.Text = FNtext.Text

End Sub

Private Sub Form_Load()
Load frmOrder
graphform.Show , frmExistingOrders


range1.range = 36
range1.RangeLeft = 0
range1.RangeRight = 36
critical2 = 0
sliderCS = 0
searching = 0
newCustomer = 0


Data1.DatabaseName = App.Path & "\mydatabase.mdb"
Data1.RecordSource = "Select * from Customer where LastName = 'Nothing'"
Data1.Refresh
orderDisabled
End Sub

Private Sub holdtext_Click()
holdtext.SetFocus
holdtext.SelStart = 0
holdtext.SelLength = Len(holdtext.Text)
End Sub

Private Sub Image4_Click()
frmBrowser.Show
frmBrowser.Caption = "Store Policies"
frmBrowser.lblStartingAddress = App.Path & "\policy.html"

End Sub

Private Sub Image5_Click()
Unload frmExistingOrders
Unload frmOrder

End
End Sub

Private Sub Image6_Click()
frmBrowser.Show
frmBrowser.Caption = "Help"
frmBrowser.lblStartingAddress = App.Path & "\help.html"

End Sub

Private Sub LNHoldText_Change()
   Dim number As Integer

If searching = 0 And newCustomer = 0 Then
   searching = 1
   If critical2 = 0 Then
       critical2 = 1

       If Len(LNHoldText.Text) <> 0 And LNHoldText.SelStart <> 0 Then
        Data1.RecordSource = "Select * from Customer where LastName like '" & LNHoldText.Text & "*'"
        Data1.Refresh
       Else
        Data1.RecordSource = "Select * from Customer where LastName = 'Saul is the best prof ever'"
        Data1.Refresh
        LNHoldText.Text = ""
       End If
       
       number = Len(LNHoldText.Text)
       If LNText.Text <> "" Then
         If LNHoldText.Text <> "" Then
            LNHoldText.Text = LNText.Text
            LNHoldText.SetFocus
            LNHoldText.SelStart = number
            LNHoldText.SelLength = Len(LNHoldText.Text)
         End If
       End If
       critical2 = 0
    ElseIf critical2 = 0 Then   ' NEVER GETS IN HERE??????  why do we have this?
       If Len(LNHoldText.Text) > 1 Then
          LNHoldText.Text = Mid$(LNHoldText.Text, 1, Len(LNHoldText.Text) - 1)
       End If
    End If
    PhoneHoldText.Text = PhoneText.Text
    

   If Data1.Recordset.RecordCount = 0 Then
      cmdBack.Enabled = False
      cmdForward.Enabled = False
    Else
      cmdBack.Enabled = True
      cmdForward.Enabled = True
    End If
    
    Call findOrder(0, sizeMyOrders - 1)
    searching = 0
End If
End Sub

Private Sub LNHoldText_Click()
LNHoldText.SetFocus
LNHoldText.SelStart = 0
LNHoldText.SelLength = Len(LNHoldText.Text)
End Sub

Private Sub LNHoldText_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = 8 Then
      If LNHoldText.SelStart - 1 > 0 Then
        LNHoldText.SelStart = LNHoldText.SelStart - 1
        LNHoldText.SelLength = Len(LNHoldText.Text)
      Else
        LNHoldText.Text = ""
      End If
   End If
cmdBack.Enabled = True
cmdForward.Enabled = True
End Sub

Private Sub PhoneHoldText_Change()
   Dim number As Integer

If searching = 0 And newCustomer = 0 Then
   searching = 1
   If critical2 = 0 Then
       critical2 = 1
    
       If Len(PhoneHoldText.Text) <> 0 And PhoneHoldText.SelStart <> 0 Then

        Data1.RecordSource = "Select * from Customer where PhoneNumber like '" & PhoneHoldText.Text & "*'"
        Data1.Refresh
       Else
        Data1.RecordSource = "Select * from Customer where PhoneNumber = 'Saul is the best prof ever'"
        Data1.Refresh
        PhoneHoldText.Text = ""
       End If
       
       number = Len(PhoneHoldText.Text)
       If PhoneText.Text <> "" Then
         If PhoneHoldText.Text <> "" Then
            PhoneHoldText.Text = PhoneText.Text
            PhoneHoldText.SetFocus
            PhoneHoldText.SelStart = number
            PhoneHoldText.SelLength = Len(PhoneHoldText.Text)
         End If
       End If
       critical2 = 0
    ElseIf critical2 = 0 Then
       If Len(PhoneHoldText.Text) > 1 Then
          PhoneHoldText.Text = Mid$(PhoneHoldText.Text, 1, Len(PhoneHoldText.Text) - 1)
       End If
    End If
    
   If Data1.Recordset.RecordCount = 0 Then
      cmdBack.Enabled = False
      cmdForward.Enabled = False
    Else
      cmdBack.Enabled = True
      cmdForward.Enabled = True
    End If
    LNHoldText.Text = LNText.Text
    Call findOrder(0, sizeMyOrders - 1)
    searching = 0
End If
End Sub

Private Sub PhoneHoldText_Click()
PhoneHoldText.SetFocus
PhoneHoldText.SelStart = 0
PhoneHoldText.SelLength = Len(PhoneHoldText.Text)
End Sub

Private Sub PhoneHoldText_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = 8 Then
   'MsgBox PhoneHoldText.SelStart
      If PhoneHoldText.SelStart - 1 > 0 Then
        PhoneHoldText.SelStart = PhoneHoldText.SelStart - 1
        PhoneHoldText.SelLength = Len(PhoneHoldText.Text)
      Else
        PhoneHoldText.Text = ""
      End If
   End If
'cmdBack.Enabled = True
'cmdForward.Enabled = True
End Sub

Private Sub range1_Changed(Left As Integer, Right As Integer)


If sliderCS = 0 Then
  sliderCS = 1
  If Right - Left <= 0 Then
  
    If prevRight <> Right Then
      Right = prevRight
      range1.RangeRight = prevRight
    End If
    If prevLeft <> Left Then
      Left = prevLeft
      range1.RangeLeft = prevLeft
    End If
    
  End If

  factor = range1.RangeRight - range1.RangeLeft

  graphform.Label_Update
  graphform.Point_update
  graphform.Update_Color

  prevLeft = Left
  prevRight = Right
  
  sliderCS = 0
End If

End Sub

Private Sub txtNotes_Change()
notesText.Text = txtNotes.Text
End Sub

----------------------------
FRMORDER






Dim criticalsection As Integer
Dim linenumber As Integer

Public Function createOrder()

    sizeMyOrders = sizeMyOrders + 1
    ReDim Preserve myOrders(sizeMyOrders) As order
    ReDim myOrders(sizeMyOrders - 1).order(listOrder.ListCount) As String
    myOrders(sizeMyOrders - 1).firstName = holdtext.Text
    myOrders(sizeMyOrders - 1).LastName = LNHoldText.Text
    myOrders(sizeMyOrders - 1).address = AddressHoldText.Text
    myOrders(sizeMyOrders - 1).phoneNumber = PhoneHoldText.Text
    myOrders(sizeMyOrders - 1).Time = txtTime.Text
    myOrders(sizeMyOrders - 1).timePromised = cmbTimeRequired.Text
    For n = 0 To listOrder.ListCount - 1
      myOrders(sizeMyOrders - 1).order(n) = listOrder.List(n)
    Next
    myOrders(sizeMyOrders - 1).subtotal = lblPrice.Caption
    myOrders(sizeMyOrders - 1).coupons = txtCoupon.Text
    myOrders(sizeMyOrders - 1).discount = txtDiscount.Text
    If shpPickup.Visible = True Then
      myOrders(sizeMyOrders - 1).p_or_d = "Pick-Up"
    Else
      myOrders(sizeMyOrders - 1).p_or_d = "Delivery"
    End If
    myOrders(sizeMyOrders - 1).instructions = txtNotes.Text
    myOrders(sizeMyOrders - 1).sizeOrder = listOrder.ListCount
    myOrders(sizeMyOrders - 1).tax = lblGST.Caption
    myOrders(sizeMyOrders - 1).total = lblFinalPrice.Caption
    myOrders(sizeMyOrders - 1).paid = lblPaid.Caption
    myOrders(sizeMyOrders - 1).stillowing = lblOwing.Caption
    
    temp = InStr(1, myOrders(sizeMyOrders - 1).Time, ":")
    hours = Mid(myOrders(sizeMyOrders - 1).Time, 1, temp - 1)

                
    minutes = Mid(myOrders(sizeMyOrders - 1).Time, temp + 1, Len(myOrders(sizeMyOrders - 1).Time))

    minutes = myOrders(sizeMyOrders - 1).timePromised + minutes
    If Round(minutes / 60) > minutes / 60 Then
      hours = hours + Round(minutes / 60) - 1
    Else
      hours = hours + Round(minutes / 60)
    End If
    
    hours = hours Mod 12
    If hours = 0 Then
      hours = 12
    End If
    
    minutes = minutes Mod 60
    
    If minutes < 10 Then
      myOrders(sizeMyOrders - 1).finishTime = hours & ":" & "0" & minutes
    Else
      myOrders(sizeMyOrders - 1).finishTime = hours & ":" & minutes
    End If
    
    cmdNewOrder_Click



End Function
Public Function countOrders() As Integer
countOrders = 0
For n = 0 To sizeMyOrders - 1
  If myOrders(n).phoneNumber = frmExistingOrders.PhoneHoldText.Text Then
    countOrders = countOrders + 1
  End If
Next
End Function
Public Function orderDisabled()

frmExistingOrders.Command1.Enabled = False
frmExistingOrders.Command6.Enabled = False
frmExistingOrders.cmdOrderForward.Enabled = False
frmExistingOrders.cmdOrderBack.Enabled = False
frmExistingOrders.cmdOrderFinished.Enabled = False
frmExistingOrders.Command9.Enabled = False

End Function

Public Function orderEnabled()

frmExistingOrders.Command1.Enabled = True
frmExistingOrders.Command6.Enabled = True
frmExistingOrders.cmdOrderForward.Enabled = True
frmExistingOrders.cmdOrderBack.Enabled = True
frmExistingOrders.cmdOrderFinished.Enabled = True
frmExistingOrders.Command9.Enabled = True
End Function
Public Function findOrder()
If countOrders = 0 Then
  orderDisabled
Else
  orderEnabled
End If

If countOrders > 1 Then
  frmExistingOrders.cmdOrderForward.Enabled = True
  frmExistingOrders.cmdOrderBack.Enabled = False
Else
  frmExistingOrders.cmdOrderForward.Enabled = False
  frmExistingOrders.cmdOrderBack.Enabled = False
End If
  

For n = 0 To sizeMyOrders - 1
  If myOrders(n).phoneNumber = PhoneHoldText.Text Then
    currentOrderNumber = n
    
    
    frmExistingOrders.Command1.Enabled = True
    frmExistingOrders.Command6.Enabled = True
    frmExistingOrders.cmdOrderFinished.Enabled = True
    
    If (frmExistingOrders.listOrder.ListCount > 0) Then      ' clear order first before we add things to it, or it will get REALLY big
      For m = 0 To frmExistingOrders.listOrder.ListCount - 1
        frmExistingOrders.listOrder.RemoveItem 0
      Next
    End If
    fillOrder
    GoTo done
  End If
Next


' empty order list if no orders for customer
If (frmExistingOrders.listOrder.ListCount > 0) Then
  For n = 0 To frmExistingOrders.listOrder.ListCount - 1
    frmExistingOrders.listOrder.RemoveItem 0
  Next
End If
frmExistingOrders.lblTimePlaced = ""
frmExistingOrders.lblPromisedTime = ""
frmExistingOrders.lblCoupon = 0
frmExistingOrders.lblDiscount = 0
frmExistingOrders.lblSubTotal = 0
frmExistingOrders.lblGST = 0
frmExistingOrders.lblFinalPrice = 0
frmExistingOrders.lblPaid = 0
frmExistingOrders.lblOwing = 0



done:
End Function
Public Function fillOrder()

    frmExistingOrders.lblCoupon.Caption = myOrders(currentOrderNumber).coupons
    frmExistingOrders.lblTimePlaced.Caption = myOrders(currentOrderNumber).Time
    frmExistingOrders.lblPromisedTime.Caption = myOrders(currentOrderNumber).timePromised
    frmExistingOrders.lblSubTotal.Caption = myOrders(currentOrderNumber).subtotal
    frmExistingOrders.lblDiscount.Caption = myOrders(currentOrderNumber).discount
    frmExistingOrders.lblGST.Caption = myOrders(currentOrderNumber).tax
    frmExistingOrders.lblFinalPrice.Caption = myOrders(currentOrderNumber).total
    frmExistingOrders.lblPaid.Caption = myOrders(currentOrderNumber).paid
    frmExistingOrders.lblOwing.Caption = myOrders(currentOrderNumber).stillowing
    If myOrders(currentOrderNumber).p_or_d = "Delivery" Then
      frmExistingOrders.shpDelivery.Visible = True
      frmExistingOrders.shpPickup.Visible = False
    Else
      frmExistingOrders.shpPickup.Visible = True
      frmExistingOrders.shpDelivery.Visible = False
    End If
    frmExistingOrders.txtNotes.Text = myOrders(currentOrderNumber).instructions
    For n = 0 To myOrders(currentOrderNumber).sizeOrder - 1
      frmExistingOrders.listOrder.AddItem myOrders(currentOrderNumber).order(n)
    Next
    
End Function

Public Function produceItem()
Dim n As Integer

n = listOrder.ListIndex

'go to first line of order
Do While (n > 0 And listOrder.List(n) <> "--------------------------------------------------------------")
  n = n - 1
Loop
If listOrder.List(n) = "--------------------------------------------------------------" Then
  n = n + 1
End If

linenumber = n
' --------------PIZZAS ---------------------------------------------
If Left$(listOrder.List(linenumber), 5) = "Large" Then
  cmdSize_Click (2)
  getTypeofPizza (7)
ElseIf Left$(listOrder.List(linenumber), 6) = "Medium" Then
  cmdSize_Click (1)
  getTypeofPizza (8)
ElseIf Left$(listOrder.List(linenumber), 5) = "Small" Then
  cmdSize_Click (0)
  getTypeofPizza (7)
ElseIf Left$(listOrder.List(linenumber), 7) = "2 Litre" Then
  If Mid$(listOrder.List(linenumber), 9, 5) = "Pepsi" Then
     beveragenum = 0
  ElseIf Mid$(listOrder.List(linenumber), 9, 1) = "7" Then
     beveragenum = 1
  ElseIf Mid$(listOrder.List(linenumber), 9, 1) = "M" Then
     beveragenum = 2
  ElseIf Mid$(listOrder.List(linenumber), 9, 1) = "O" Then
     beveragenum = 3
  End If
  slideBeverage(beveragenum).Value = 1
  slideBeverage_Click (beveragenum)
ElseIf Left$(listOrder.List(linenumber), 3) = "650" Then
  If Mid$(listOrder.List(linenumber), 8, 5) = "Pepsi" Then
     beveragenum = 0
  ElseIf Mid$(listOrder.List(linenumber), 8, 1) = "7" Then
     beveragenum = 1
  ElseIf Mid$(listOrder.List(linenumber), 8, 1) = "M" Then
     beveragenum = 2
  ElseIf Mid$(listOrder.List(linenumber), 8, 1) = "O" Then
     beveragenum = 3
  End If
  slideBeverage(beveragenum).Value = 2
  slideBeverage_Click (beveragenum)
ElseIf Left$(listOrder.List(linenumber), 3) = "Can" Then
'MsgBox Mid$(listOrder.List(linenumber), 4, 1)
  If Mid$(listOrder.List(linenumber), 5, 5) = "Pepsi" Then
     beveragenum = 0
  ElseIf Mid$(listOrder.List(linenumber), 5, 1) = "7" Then
     beveragenum = 1
  ElseIf Mid$(listOrder.List(linenumber), 5, 1) = "M" Then
     beveragenum = 2
  ElseIf Mid$(listOrder.List(linenumber), 5, 1) = "O" Then
     beveragenum = 3
  End If
  slideBeverage(beveragenum).Value = 3
  slideBeverage_Click (beveragenum)
ElseIf Left$(listOrder.List(linenumber), 5) = "Greek" Then
  linenumber = linenumber + 1
  If Mid$(listOrder.List(linenumber), 6, 1) = "N" Then
    slideSalad(2).Value = 1
  ElseIf Mid$(listOrder.List(linenumber), 6, 1) = "I" Then
    slideSalad(2).Value = 2
  ElseIf Mid$(listOrder.List(linenumber), 6, 1) = "C" Then
    slideSalad(2).Value = 3
  ElseIf Mid$(listOrder.List(linenumber), 6, 1) = "R" Then
    slideSalad(2).Value = 4
  End If
      slideSalad_Click (2)
ElseIf Left$(listOrder.List(linenumber), 6) = "Caesar" Then
  linenumber = linenumber + 1
'  MsgBox Mid$(listOrder.List(linenumber), 6, 1)
  If Mid$(listOrder.List(linenumber), 6, 1) = "N" Then
    slideSalad(1).Value = 1
  ElseIf Mid$(listOrder.List(linenumber), 6, 1) = "I" Then
    slideSalad(1).Value = 2
  ElseIf Mid$(listOrder.List(linenumber), 6, 1) = "C" Then
    slideSalad(1).Value = 3
  ElseIf Mid$(listOrder.List(linenumber), 6, 1) = "R" Then
    slideSalad(1).Value = 4
  End If
    slideSalad_Click (1)
ElseIf Left$(listOrder.List(linenumber), 6) = "Garden" Then
  linenumber = linenumber + 1
  If Mid$(listOrder.List(linenumber), 6, 1) = "N" Then
    slideSalad(0).Value = 1
  ElseIf Mid$(listOrder.List(linenumber), 6, 1) = "I" Then
    slideSalad(0).Value = 2
  ElseIf Mid$(listOrder.List(linenumber), 6, 1) = "C" Then
    slideSalad(0).Value = 3
  ElseIf Mid$(listOrder.List(linenumber), 6, 1) = "R" Then
    slideSalad(0).Value = 4
  End If
  slideSalad_Click (0)
End If


' still to be finished for salads and beverages


done:
End Function
Public Function getTypeofPizza(start As Integer)

' select type

If Mid$(listOrder.List(linenumber), start, 8) = "Hawaiian" Then
  cmdType_Click (0)
ElseIf Mid$(listOrder.List(linenumber), start, 6) = "Cheese" Then
  cmdType_Click (2)
ElseIf Mid$(listOrder.List(linenumber), start, 6) = "Deluxe" Then
  cmdType_Click (3)
ElseIf Mid$(listOrder.List(linenumber), start, 4) = "Meat" Then
  cmdType_Click (4)
ElseIf Mid$(listOrder.List(linenumber), start, 5) = "Primo" Then
  cmdType_Click (5)
ElseIf Mid$(listOrder.List(linenumber), start, 9) = "Pepperoni" Then
  cmdType_Click (6)
ElseIf Mid$(listOrder.List(linenumber), start, 10) = "Vegetarian" Then
  cmdType_Click (7)
ElseIf Mid$(listOrder.List(linenumber), start, 8) = "Canadian" Then
  cmdType_Click (8)
ElseIf Mid$(listOrder.List(linenumber), start, 6) = "Custom" Then
  cmdType_Click (1)
Else
  MsgBox "ERROR: Type should have changed", vbApplicationModal
End If

getSelectedToppings

End Function
Public Function getSelectedToppings()
Dim toppingNumber As Integer
Dim full_topping As String

toppingNumber = 0
linenumber = linenumber + 1

Do While listOrder.List(linenumber) <> "--------------------------------------------------------------" And toppingNumber < 17



  full_topping = "Double " & lblToppings(toppingNumber)

  If Mid$(listOrder.List(linenumber), 6, Len(lblToppings(toppingNumber))) = lblToppings(toppingNumber) Then
    slideTopping(toppingNumber).Value = 1
    slideTopping_Click (toppingNumber)
    linenumber = linenumber + 1
  ElseIf Mid$(listOrder.List(linenumber), 6, Len(full_topping)) = "Double " & lblToppings(toppingNumber) Then
    slideTopping(toppingNumber).Value = 2
    slideTopping_Click (toppingNumber)
    linenumber = linenumber + 1
  ElseIf Mid$(listOrder.List(linenumber), 6, Len(full_topping)) = "Triple " & lblToppings(toppingNumber) Then
    slideTopping(toppingNumber).Value = 3
    slideTopping_Click (toppingNumber)
    linenumber = linenumber + 1
  End If
  toppingNumber = toppingNumber + 1
Loop


' ***********  if the person updates the item in the left, MUST update the order list still  ********


End Function
Public Function clearSelected()

For n = 0 To listOrder.ListCount - 1
  listOrder.Selected(n) = False
Next

End Function
Public Function gotoStartofOrder()
criticalsection = 1
n = listOrder.ListIndex
Do While (n >= 0 And listOrder.List(n) <> "--------------------------------------------------------------")
    n = n - 1
Loop
Do While (n + 1 < listOrder.ListCount And listOrder.List(n + 1) <> "--------------------------------------------------------------")
   n = n + 1
   listOrder.Selected(n) = True
Loop

End Function

Public Function clearSizes()

For n = 0 To 2
  shpPizza(n).Visible = False
Next
End Function
Public Function clearTypes()

For n = 0 To 8
  shpType(n).Visible = False
Next
End Function
Public Function clearToppings()

For n = 0 To 15
  slideTopping(n).Value = 0
Next
slideTopping(16).Value = 1  ' make mozza cheese always on
End Function
Public Function clearBeverages()

For n = 0 To 3
  slideBeverage(n).Value = 0
Next
End Function
Public Function clearSalads()

For n = 0 To 2
  slideSalad(n).Value = 0
Next
End Function
Public Function saladSelected() As Integer

saladSelected = -1
For n = 0 To 2
  If slideSalad(n).Value > 0 Then
    saladSelected = n
  End If
Next
End Function

Public Function beverageSelected() As Integer
beverageSelected = -1
For n = 0 To 3
  If slideBeverage(n).Value > 0 Then
    beverageSelected = n
  End If
Next
End Function

Public Function clearOrderList()
If (listOrder.ListCount > 0) Then
    For n = 0 To listOrder.ListCount - 1
        listOrder.RemoveItem 0
    Next
End If




End Function
Public Function typeSelected() As Integer
typeSelected = 0
For n = 0 To 8
  If shpType(n).Visible = True Then
     typeSelected = 1
  End If
Next

End Function
Public Function pizzaSelected() As Integer

pizzaSelected = 0
For n = 0 To 8
  If shpType(n).Visible = True Then
     pizzaSelected = 1
  End If
Next

For n = 0 To 15
  If slideTopping(n).Value > 0 Then
      pizzaSelected = 1
  End If
Next

For n = 0 To 2
  If shpPizza(n).Visible = True Then

     pizzaSelected = 1
  End If
Next


End Function

Public Function addSize() As Double
If shpPizza(0).Visible = True Then
  addSize = 5
ElseIf shpPizza(1).Visible = True Then
  addSize = 10
ElseIf shpPizza(2).Visible = True Then
  addSize = 15
Else
  addSize = 0
End If
End Function

Public Function getPrice(cost As Double) As String
Dim costString As String
costString = cost
If Len(costString) > 1 Then
    If Mid$(costString, Len(costString) - 1, 1) = "." Then
        costString = costString & "0"
    End If
End If
getPrice = costString

End Function

Public Function addToppings() As Double

Dim count As Integer
Dim toppingsAllowed As Integer
count = 0

For n = 0 To 16
    If slideTopping(n).Value = 1 Then
        count = count + 1
    ElseIf slideTopping(n).Value = 2 Then
        count = count + 2
    ElseIf slideTopping(n).Value = 3 Then
        count = count + 3
    End If
Next

For n = 0 To 8
    If shpType(n).Visible = True Then
        Select Case n
            Case 0 ' hawaiian
                toppingsAllowed = 2
            Case 1 ' custom
                toppingsAllowed = 0
            Case 2 ' cheese
                toppingsAllowed = 4
            Case 3 ' deluxe
                toppingsAllowed = 6
            Case 4 ' meat lovers
                toppingsAllowed = 5
            Case 5 ' primo
                toppingsAllowed = 4
            Case 6 ' pepperoni lovers
                toppingsAllowed = 4
            Case 7 ' veggie
                toppingsAllowed = 4
            Case 8 ' Canadian
                toppingsAllowed = 4
        End Select
    End If
Next

If count > toppingsAllowed Then
    addToppings = (count - toppingsAllowed) * 0.5
Else
    addToppings = 0
End If
End Function

Public Function addType() As Double
If shpType(0).Visible = True Then
    addType = 1.99
ElseIf shpType(2).Visible = True Then
    addType = 0.99
ElseIf shpType(3).Visible = True Then
    addType = 2.99
ElseIf shpType(4).Visible = True Then
    addType = 3.29
ElseIf shpType(5).Visible = True Then
    addType = 1.99
ElseIf shpType(6).Visible = True Then
    addType = 1.99
ElseIf shpType(7).Visible = True Then
    addType = 1.99
ElseIf shpType(8).Visible = True Then
    addType = 2.39
Else
    addType = 0
End If
End Function




Private Sub AddressHoldText_Click()
AddressHoldText.SetFocus
AddressHoldText.SelStart = 0
AddressHoldText.SelLength = Len(AddressHoldText.Text)
End Sub

Private Sub cmdAdd_Click(Index As Integer)


Dim Item As String
Dim problem As Integer


problem = 1

If pizzaSelected = 1 Then
  If shpPizza(0).Visible = False And shpPizza(1).Visible = False And shpPizza(2).Visible = False Then
    MsgBox "Please select a size of pizza (S, M, or L)", , "You Forgot Something"
    GoTo done
  End If
  For n = 0 To 8
    If shpType(n).Visible = True Then
        problem = 0
    End If
  Next
  If problem = 1 Then
    MsgBox "Please select a type of pizza", , "You Forgot Something"
    GoTo done
  End If


    lblPrice = getPrice(Val(lblPrice.Caption) + lblPizzaTotal)

    For n = 0 To 2
      If shpPizza(n).Visible = True Then
          Item = cmdSize(n).Caption
      End If
    Next
    For n = 0 To 8
        If shpType(n).Visible = True Then
           Item = Item & " " & cmdType(n).Caption
        End If
    Next

    number_of_spaces = 21 - Len(Item)
    For n = 0 To number_of_spaces
      Item = Item & " "
    Next
    Item = Item & "$" & lblPizzaTotal
    If Item <> "" Then
       listOrder.AddItem Item

    
      For n = 0 To 16
           If slideTopping(n).Value = 1 Then
              listOrder.AddItem "     " & lblToppings(n).Caption

           ElseIf slideTopping(n).Value = 2 Then
              listOrder.AddItem "     Double " & lblToppings(n).Caption

           ElseIf slideTopping(n).Value = 3 Then
              listOrder.AddItem "     Triple " & lblToppings(n).Caption

           End If
      Next


        listOrder.AddItem "--------------------------------------------------------------"

    End If
ElseIf (saladSelected <> -1) Then
    Item = lblSalad(saladSelected).Caption
    number_of_spaces = 22 - Len(Item)
    For n = 0 To number_of_spaces
      Item = Item & " "
    Next
    Item = Item & "$" & lblPizzaTotal
    listOrder.AddItem Item
    
    If slideSalad(saladSelected).Value = 1 Then
        listOrder.AddItem "     No Dressing"
    ElseIf slideSalad(saladSelected).Value = 2 Then
        listOrder.AddItem "     Italian Dressing"
    ElseIf slideSalad(saladSelected).Value = 3 Then
        listOrder.AddItem "     Caesar Dressing"
    Else
        listOrder.AddItem "     Ranch Dressing"
    End If
       

    listOrder.AddItem "--------------------------------------------------------------"
    lblPrice = getPrice(Val(lblPrice.Caption) + lblPizzaTotal)
ElseIf (beverageSelected <> -1) Then

    
    If slideBeverage(beverageSelected).Value = 1 Then
        Item = "2 Litre " & lblBeverage(beverageSelected).Caption
    ElseIf (slideBeverage(beverageSelected).Value) = 2 Then
        Item = "650 mL " & lblBeverage(beverageSelected).Caption
    Else
        Item = "Can " & lblBeverage(beverageSelected).Caption
    End If
    
    number_of_spaces = 22 - Len(Item)
    For n = 0 To number_of_spaces
      Item = Item & " "
    Next
    Item = Item & "$" & lblPizzaTotal
    listOrder.AddItem Item


    listOrder.AddItem "--------------------------------------------------------------"
   ' listPrice.AddItem "--------------------------------------------------------------"
    lblPrice = getPrice(Val(lblPrice.Caption) + lblPizzaTotal)
Else
  MsgBox "Please select an item to add", , "You Forgot Something"
End If


done:
End Sub


Private Sub cmdClearItem_Click()
clearSizes
clearTypes
clearToppings
clearBeverages
clearSalads
txtNotes.Text = ""
lblPizzaTotal = 0
frame(0).BackColor = &H8000000F
frame(1).BackColor = &H8000000F
frame(2).BackColor = &H8000000F
frame(5).BackColor = &H8000000F
frame(4).BackColor = &H8000000F

cmdAdd(0).Caption = "Add"
End Sub


Private Sub cmdDelivery_Click()

  shpDelivery.Visible = True
  shpPickup.Visible = False

End Sub
Private Sub cmdHelp_Click()
frmBrowser.Show
End Sub

Private Sub cmdFunctions_Click(Index As Integer)
If cmdPlaceOrder.Caption = "Place Order" Then
  If listOrder.ListCount > 0 Then
    answer = MsgBox("You didn't place this order.  Do you want to?", vbYesNo, "Place order?")
    If answer = vbYes Then
      cmdPlaceOrder_Click
    End If
  
  End If
Else
  If listOrder.ListCount > 0 Then
    answer = MsgBox("Do you want to update this order?", vbYesNo, "Update order?")
    If answer = vbYes Then
      cmdPlaceOrder_Click
    End If
  
  End If
End If
frmOrder.Hide
frmExistingOrders.Show
newCustomer = 1
frmExistingOrders.holdtext.Text = holdtext.Text
frmExistingOrders.LNHoldText.Text = LNHoldText.Text
frmExistingOrders.AddressHoldText.Text = AddressHoldText.Text
frmExistingOrders.PhoneHoldText.Text = frmExistingOrders.PhoneText.Text
newCustomer = 0

findOrder

graphform.Point_update
graphform.Update_Color

End Sub

Private Sub cmdMakePayment_Click()
lblPaid = lblPaid + Val(txtPayment(0).Text) + Val(txtPayment(1).Text) + Val(txtPayment(2).Text) + Val(txtPayment(3).Text)
cmdPaymentClear_Click
End Sub

Public Sub cmdNewOrder_Click()
cmdPaymentClear_Click
cmdClearItem_Click
lblPrice.Caption = 0
lblFinalPrice.Caption = 0
lblPaid.Caption = 0
lblOwing.Caption = 0
clearOrderList

cmdPlaceOrder.Caption = "Place Order"

Timer1.Enabled = True
End Sub

Private Sub cmdPaymentClear_Click()
For n = 0 To 3
  txtPayment(n).Text = ""
Next
End Sub

Private Sub cmdPayments_Click(Index As Integer)
txtPayment(Index).Text = lblOwing.Caption - Val(txtPayment(0)) - Val(txtPayment(1)) - Val(txtPayment(2)) - Val(txtPayment(3))
End Sub

Private Sub cmdPick_Up_Click()
  shpDelivery.Visible = False
  shpPickup.Visible = True
End Sub

Private Sub cmdPickup_Click()

  shpPickup.Visible = True
  shpDelivery.Visible = False

End Sub



Public Sub cmdPlaceOrder_Click()




  If listOrder.ListCount > 0 Then
    If LNHoldText.Text = "" Or PhoneHoldText.Text = "" Or AddressHoldText.Text = "" Then
      MsgBox "Please enter in all customer information in the top right", , "You Forgot Something"
      GoTo done
    End If
  End If

If cmdPlaceOrder.Caption = "Update Order" Then            ' remove order first
  
  ' move each order to the left one, starting at one we want to remove
  For n = currentOrderNumber To sizeMyOrders
    If n < sizeMyOrders Then
      myOrders(n) = myOrders(n + 1)
    End If
  Next

  ' redefine size of myOrders, deallocate memory
  sizeMyOrders = sizeMyOrders - 1
  ReDim Preserve myOrders(sizeMyOrders) As order

End If




  If listOrder.ListCount > 0 Then
    sizeMyOrders = sizeMyOrders + 1
    ReDim Preserve myOrders(sizeMyOrders) As order
    ReDim myOrders(sizeMyOrders - 1).order(listOrder.ListCount) As String
    myOrders(sizeMyOrders - 1).firstName = holdtext.Text
    myOrders(sizeMyOrders - 1).LastName = LNHoldText.Text
    myOrders(sizeMyOrders - 1).address = AddressHoldText.Text
    myOrders(sizeMyOrders - 1).phoneNumber = PhoneHoldText.Text
    myOrders(sizeMyOrders - 1).Time = txtTime.Text
    myOrders(sizeMyOrders - 1).timePromised = cmbTimeRequired.Text
    For n = 0 To listOrder.ListCount - 1
      myOrders(sizeMyOrders - 1).order(n) = listOrder.List(n)
    Next
    myOrders(sizeMyOrders - 1).subtotal = lblPrice.Caption
    myOrders(sizeMyOrders - 1).coupons = txtCoupon.Text
    myOrders(sizeMyOrders - 1).discount = txtDiscount.Text
    If shpPickup.Visible = True Then
      myOrders(sizeMyOrders - 1).p_or_d = "Pick-Up"
    Else
      myOrders(sizeMyOrders - 1).p_or_d = "Delivery"
    End If
    myOrders(sizeMyOrders - 1).instructions = txtNotes.Text
    myOrders(sizeMyOrders - 1).sizeOrder = listOrder.ListCount
    myOrders(sizeMyOrders - 1).tax = lblGST.Caption
    myOrders(sizeMyOrders - 1).total = lblFinalPrice.Caption
    myOrders(sizeMyOrders - 1).paid = lblPaid.Caption
    myOrders(sizeMyOrders - 1).stillowing = lblOwing.Caption
    
    temp = InStr(1, myOrders(sizeMyOrders - 1).Time, ":")
    hours = Mid(myOrders(sizeMyOrders - 1).Time, 1, temp - 1)

                
    minutes = Mid(myOrders(sizeMyOrders - 1).Time, temp + 1, Len(myOrders(sizeMyOrders - 1).Time))

    minutes = Val(myOrders(sizeMyOrders - 1).timePromised) + minutes
    
    If (minutes / 60) >= 1 Then
        
        If (Round(minutes / 60)) > (minutes / 60) Then
          hours = hours + Round(minutes / 60) - 1
          
        Else
          hours = hours + Round(minutes / 60)
        End If
    End If
    
    hours = hours Mod 12
    If hours = 0 Then
      hours = 12
    End If
    
    minutes = minutes Mod 60
    
    If minutes < 10 Then
      myOrders(sizeMyOrders - 1).finishTime = hours & ":" & "0" & minutes
    Else
      myOrders(sizeMyOrders - 1).finishTime = hours & ":" & minutes
    End If
    cmdNewOrder_Click
  Else
    MsgBox "Please select items for your order first", , "You Forgot Something"
  End If

done:
End Sub

Private Sub cmdRemove_Click()
Dim count As Integer
Dim start As Integer
count = 0
start = 0

' counting lines in item
For n = 0 To listOrder.ListCount - 1
  If listOrder.Selected(n) = True Then
    count = count + 1
  End If
Next


'finding first highlighted line
For n = 0 To listOrder.ListCount - 1
  If listOrder.Selected(n) = True Then
    Exit For
  End If
  start = start + 1
Next

If start >= listOrder.ListCount Then
  MsgBox "Please click on an item in the list", vbCritical, "You Forgot to Select an Item"
  GoTo done
End If


priceline = Mid$(listOrder.List(start), 24, 8)

lblPrice = lblPrice - Val(priceline)

' remove items for selected lines
For n = start To count + start
  listOrder.RemoveItem start
Next

done:
End Sub

Private Sub cmdSize_Click(Index As Integer)
selectPizza
clearSizes
clearBeverages
clearSalads


  shpPizza(Index).Visible = True
  lblPizzaTotal = getPrice(addSize + addType + addToppings)
  
End Sub



Private Sub cmdType_Click(Index As Integer)
selectPizza

clearBeverages
clearSalads
clearToppings
clearTypes


  shpType(Index).Visible = True
  Select Case Index
    Case 0 ' Hawaiian
        slideTopping(3).Value = 1
        slideTopping(12).Value = 1
        slideTopping(16).Value = 1
    Case 2 ' Cheese
        slideTopping(15).Value = 1
        slideTopping(16).Value = 3
    Case 3 'Deluxe
        slideTopping(9).Value = 1
        slideTopping(3).Value = 1
        slideTopping(5).Value = 1
        slideTopping(8).Value = 1
        slideTopping(10).Value = 1
        slideTopping(16).Value = 1
    Case 4 'MeatLovers
        slideTopping(1).Value = 1
        slideTopping(2).Value = 1
        slideTopping(3).Value = 1
        slideTopping(6).Value = 1
        slideTopping(16).Value = 1
    Case 5 'Primo Pollo
        slideTopping(1).Value = 1
        slideTopping(11).Value = 1
        slideTopping(12).Value = 1
        slideTopping(16).Value = 1
    Case 6 'Pepperoni Classic
        slideTopping(5).Value = 1
        slideTopping(10).Value = 1
        slideTopping(9).Value = 1
        slideTopping(16).Value = 1
    Case 7 'Veggie
        slideTopping(8).Value = 1
        slideTopping(9).Value = 1
        slideTopping(10).Value = 1
        slideTopping(14).Value = 1
        slideTopping(16).Value = 1
    Case 8 'Canadian
        slideTopping(3).Value = 1
        slideTopping(6).Value = 1
        slideTopping(10).Value = 1
        slideTopping(16).Value = 1
    End Select

  lblPizzaTotal = getPrice(addSize + addType + addToppings)
End Sub

Private Sub Command3_Click()

End Sub

Private Sub Command1_Click()
cmdPaymentClear_Click
cmdClearItem_Click
lblPrice.Caption = 0
lblFinalPrice.Caption = 0
lblPaid.Caption = 0
lblOwing.Caption = 0
clearOrderList

cmdPlaceOrder.Caption = "Place Order"

Timer1.Enabled = True
End Sub

Private Sub cmdView_Click()
If listOrder.ListIndex < 0 Then
  MsgBox "Please click on an item in the list", vbCritical, "Select an Item"
  GoTo done
End If

done:
End Sub

Private Sub cmdUpdate_Click()
'finding first highlighted line
For n = 0 To listOrder.ListCount - 1
  If listOrder.Selected(n) = True Then
    Exit For
  End If
  start = start + 1
Next

If start >= listOrder.ListCount Then
  MsgBox "Please click on an item in the list", vbCritical, "You Forgot to Select an Item"
  GoTo done
End If

cmdRemove_Click
cmdAdd_Click (0)

done:
End Sub

Private Sub Command2_Click()
frmCust.Show
frmCust.cmdClose.Caption = "Close"
End Sub

Private Sub Command7_Click()
MsgBox "Your printer could not be detected.", vbCritical, "Please Connect Your Printer"
End Sub

Private Sub Image1_Click()
frmOrder.Hide
frmExistingOrders.Show
End Sub

Private Sub Image6_Click()
frmBrowser.Show
frmBrowser.lblStartingAddress = "www.cpsc.ucalgary.ca/~carman/481/as3/help.html"
End Sub

Private Sub Form_Load()
sizeMyOrders = 0
Timer1.Enabled = True

End Sub

Private Sub holdtext_Click()
holdtext.SetFocus
holdtext.SelStart = 0
holdtext.SelLength = Len(holdtext.Text)
End Sub

Private Sub Image3_Click()
frmBrowser.Show
frmBrowser.Caption = "Help"
frmBrowser.lblStartingAddress = App.Path & "\help.html"

End Sub

Private Sub Image4_Click()
frmBrowser.Show
frmBrowser.Caption = "Store Policies"
frmBrowser.lblStartingAddress = App.Path & "\policy.html"

End Sub

Private Sub Image5_Click()
Unload frmExistingOrders
Unload frmOrder
End
End Sub

Private Sub lblFinalPrice_Change()
lblFinalPrice = getPrice(Val(lblFinalPrice.Caption))
lblOwing = getPrice(Val(lblFinalPrice) - Val(lblPaid))
End Sub

Private Sub lblPaid_Change()
lblOwing = getPrice(lblFinalPrice.Caption) - getPrice(lblPaid.Caption)
End Sub

Private Sub lblPrice_Change()

lblSubTotal = getPrice(lblPrice - Val(txtCoupon.Text))
'lblSubTotal = getPrice(lblSubTotal - (Val(lblSubTotal) * Val(txtDiscount) / 100))
lblFinalPrice = getPrice(Val(lblSubTotal.Caption) + Val(lblGST.Caption))
lblOwing = getPrice(Val(lblFinalPrice) - Val(lblPaid))
End Sub


Private Sub lblSubTotal_Change()
Dim subtotal As Double
subtotal = lblSubTotal * 100
subtotal = Round(subtotal)
subtotal = subtotal / 100
lblSubTotal = getPrice(subtotal)

lblFinalPrice = getPrice(Val(lblSubTotal.Caption) + Val(lblGST.Caption))
Dim GST As Double
GST = (Val(lblSubTotal.Caption) * 0.07) * 100
GST = Round(GST)
GST = GST / 100
lblGST = getPrice(GST)
End Sub

Private Sub listOrder_Click()



If criticalsection = 1 Then GoTo done

criticalsection = 1


clearSelected
gotoStartofOrder

criticalsection = 0
produceItem
done:
End Sub



Private Sub listOrder_DblClick()
cmdView_Click
End Sub



Private Sub listPrice_Click()
listOrder.ListIndex = listPrice.ListIndex
End Sub

Private Sub listPrice_DblClick()
cmdView_Click
End Sub


Private Sub LNHoldText_Change()
   Dim number As Integer

If searching = 0 And newCustomer = 0 Then
   searching = 1
   If critical2 = 0 Then
       critical2 = 1
       'MsgBox holdtext.SelStart
       If Len(LNHoldText.Text) <> 0 And LNHoldText.SelStart <> 0 Then
        frmExistingOrders.Data1.RecordSource = "Select * from Customer where LastName like '" & LNHoldText.Text & "*'"
        frmExistingOrders.Data1.Refresh
       Else
        frmExistingOrders.Data1.RecordSource = "Select * from Customer where LastName = 'Saul is the best prof ever'"
        frmExistingOrders.Data1.Refresh
        LNHoldText.Text = ""
       End If
       
       number = Len(LNHoldText.Text)
       If frmExistingOrders.LNText.Text <> "" Then
         If LNHoldText.Text <> "" Then
            LNHoldText.Text = frmExistingOrders.LNText.Text
            LNHoldText.SetFocus
            LNHoldText.SelStart = number
            LNHoldText.SelLength = Len(LNHoldText.Text)
         End If
       End If
       critical2 = 0
    ElseIf critical2 = 0 Then   ' NEVER GETS IN HERE??????  why do we have this?
       If Len(LNHoldText.Text) > 1 Then
          LNHoldText.Text = Mid$(LNHoldText.Text, 1, Len(LNHoldText.Text) - 1)
       End If
    End If
    PhoneHoldText.Text = frmExistingOrders.PhoneText.Text
    searching = 0
End If
End Sub

Private Sub LNHoldText_Click()
LNHoldText.SetFocus
LNHoldText.SelStart = 0
LNHoldText.SelLength = Len(LNHoldText.Text)
End Sub

Private Sub LNHoldText_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = 8 Then
      If LNHoldText.SelStart - 1 > 0 Then
        LNHoldText.SelStart = LNHoldText.SelStart - 1
        LNHoldText.SelLength = Len(LNHoldText.Text)
      Else
        LNHoldText.Text = ""
      End If
   End If
End Sub

Private Sub PhoneHoldText_Change()
   Dim number As Integer
If searching = 0 And newCustomer = 0 Then
   searching = 1
   If critical2 = 0 Then
       critical2 = 1
    
       If Len(PhoneHoldText.Text) <> 0 And PhoneHoldText.SelStart <> 0 Then
        frmExistingOrders.Data1.RecordSource = "Select * from Customer where PhoneNumber like '" & PhoneHoldText.Text & "*'"
        frmExistingOrders.Data1.Refresh
       Else
        frmExistingOrders.Data1.RecordSource = "Select * from Customer where PhoneNumber = 'Saul is the best prof ever'"
        frmExistingOrders.Data1.Refresh
        PhoneHoldText.Text = ""
       End If
       
       number = Len(PhoneHoldText.Text)
       If frmExistingOrders.PhoneText.Text <> "" Then
         If PhoneHoldText.Text <> "" Then
            PhoneHoldText.Text = frmExistingOrders.PhoneText.Text
            PhoneHoldText.SetFocus
            PhoneHoldText.SelStart = number
            PhoneHoldText.SelLength = Len(PhoneHoldText.Text)
         End If
       End If
       critical2 = 0
    ElseIf critical2 = 0 Then
       If Len(PhoneHoldText.Text) > 1 Then
          PhoneHoldText.Text = Mid$(PhoneHoldText.Text, 1, Len(PhoneHoldText.Text) - 1)
       End If
    End If
    LNHoldText.Text = frmExistingOrders.LNText.Text
    searching = 0
End If
End Sub

Private Sub PhoneHoldText_Click()
PhoneHoldText.SetFocus
PhoneHoldText.SelStart = 0
PhoneHoldText.SelLength = Len(PhoneHoldText.Text)
End Sub

Private Sub PhoneHoldText_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = 8 Then
   'MsgBox PhoneHoldText.SelStart
      If PhoneHoldText.SelStart - 1 > 0 Then
        PhoneHoldText.SelStart = PhoneHoldText.SelStart - 1
        PhoneHoldText.SelLength = Len(PhoneHoldText.Text)
      Else
        PhoneHoldText.Text = ""
      End If
   End If
End Sub

Private Sub picPizza_Click(Index As Integer)
cmdSize_Click (Index)

End Sub

Public Function addBeverage() As Double
For n = 0 To 3
  If slideBeverage(n).Value = 1 Then
    addBeverage = 1.79
  ElseIf slideBeverage(n).Value = 2 Then
    addBeverage = 1.39
  ElseIf slideBeverage(n).Value = 3 Then
    addBeverage = 0.95
  End If
Next

End Function
Private Sub slideBeverage_Click(Index As Integer)
selectBeverages

clearSizes
clearToppings
clearTypes
clearSalads
If Index = 0 Then
  slideBeverage(1).Value = 0
  slideBeverage(2).Value = 0
  slideBeverage(3).Value = 0
ElseIf Index = 1 Then
  slideBeverage(0).Value = 0
  slideBeverage(2).Value = 0
  slideBeverage(3).Value = 0
ElseIf Index = 2 Then
  slideBeverage(0).Value = 0
  slideBeverage(1).Value = 0
  slideBeverage(3).Value = 0
ElseIf Index = 3 Then
  slideBeverage(0).Value = 0
  slideBeverage(1).Value = 0
  slideBeverage(2).Value = 0
End If
  

lblPizzaTotal = getPrice(addBeverage)

End Sub
Public Function addSalad() As Double

If slideSalad(0).Value > 0 Then
  addSalad = 4.99
ElseIf slideSalad(1).Value > 0 Then
  addSalad = 6.99
ElseIf slideSalad(2).Value > 0 Then
  addSalad = 5.99
End If


End Function
Private Sub slideSalad_Click(Index As Integer)
selectSalads
clearSizes
clearToppings
clearTypes
clearBeverages
If Index = 0 Then
  slideSalad(1).Value = 0
  slideSalad(2).Value = 0
ElseIf Index = 1 Then
  slideSalad(0).Value = 0
  slideSalad(2).Value = 0
ElseIf Index = 2 Then
  slideSalad(0).Value = 0
  slideSalad(1).Value = 0
End If
lblPizzaTotal = getPrice(addSalad)
End Sub
Public Function selectPizza()

frame(0).BackColor = &HE0E0E0
frame(1).BackColor = &HE0E0E0
frame(2).BackColor = &HE0E0E0
frame(4).BackColor = &H8000000F
frame(5).BackColor = &H8000000F

End Function
Public Function selectSalads()
frame(0).BackColor = &H8000000F
frame(1).BackColor = &H8000000F
frame(2).BackColor = &H8000000F
frame(4).BackColor = &HE0E0E0
frame(5).BackColor = &H8000000F
End Function
Public Function selectBeverages()
frame(0).BackColor = &H8000000F
frame(1).BackColor = &H8000000F
frame(2).BackColor = &H8000000F
frame(5).BackColor = &HE0E0E0
frame(4).BackColor = &H8000000F
End Function
Private Sub slideTopping_Click(Index As Integer)
clearSalads
clearBeverages
selectPizza

If (typeSelected = 0) Then
  shpType(1).Visible = True
End If
  lblPizzaTotal = getPrice(addSize + addType + addToppings)
End Sub

Private Sub UpDown1_Change()

End Sub

Private Sub Timer1_Timer()
'MsgBox "timer"
'listOrder_Click
'Timer1.Enabled = False
txtTime.Text = Time
If Mid$(txtTime.Text, 2, 1) = ":" Then
  txtTime.Text = Left$(txtTime.Text, 4)
Else
  txtTime.Text = Left$(txtTime.Text, 5)
End If
End Sub

Private Sub txtCoupon_Change()
lblSubTotal = getPrice(Val(lblPrice.Caption) - Val(txtCoupon.Text))

End Sub

Private Sub txtCoupon_Click()
txtCoupon.SetFocus
txtCoupon.SelStart = 0
txtCoupon.SelLength = Len(txtCoupon.Text)
End Sub

Private Sub txtDiscount_Change()
lblSubTotal = getPrice(lblPrice.Caption - lblFinalPrice * Val(txtDiscount) / 100)
End Sub

Private Sub txtDiscount_Click()
txtDiscount.SetFocus
txtDiscount.SelStart = 0
txtDiscount.SelLength = Len(txtDiscount.Text)
End Sub

Private Sub txtPayment_Click(Index As Integer)
txtPayment(Index).SetFocus
txtPayment(Index).SelStart = 0
txtPayment(Index).SelLength = Len(txtPayment(Index).Text)
End Sub

Private Sub txtTime_Click()
txtTime.SetFocus
txtTime.SelStart = 0
txtTime.SelLength = Len(txtTime.Text)
End Sub

Private Sub txtTime_KeyDown(KeyCode As Integer, Shift As Integer)
Timer1.Enabled = False
End Sub


GRAPHFORM

Private Sub Form_Load()
    frmExistingOrders.range1.RangeLeft = 0
    frmExistingOrders.range1.RangeRight = 36

    Label_Update
    factor = 36
    numberOfCircles = 0
    
    For n = 1 To 50
      Load Circles(n)
      numberOfCircles = numberOfCircles + 1
      Circles(n).Visible = False
    Next
    
    Point_update
    Update_Color
End Sub





Private Sub Form_Unload(Cancel As Integer)

    Dim i As Integer

    For i = 1 To 50
        Unload Circles(i)
    Next i

End Sub

Private Sub Timer1_Timer()
    currentminutes = currentminutes + 1
    Update_Color
End Sub

Function Update_Color()
    Dim i As Integer
    Dim orderminutes As Integer
    Dim number2 As Integer
    Dim temp As Integer
    Dim currTime As String
    
    currTime = Time
    If Mid$(currTime, 2, 1) = ":" Then
      currTime = Left$(currTime, 4)
    Else
      currTime = Left$(currTime, 5)
    End If
    
    For i = 0 To sizeMyOrders - 1
        temp = InStr(1, currTime, ":")
        currentminutes = Mid(currTime, 1, temp - 1)
        currentminutes = currentminutes * 60
               
        number2 = Mid(currTime, temp + 1, Len(currTime))
        currentminutes = currentminutes + number2
        If currentminutes < 720 Then
          currentminutes = currentminutes + 720
        End If
        

        temp = InStr(1, myOrders(i).finishTime, ":")
        orderminutes = Mid(myOrders(i).finishTime, 1, temp - 1)
        If orderminutes = 12 Then
            orderminutes = orderminutes - 12
        End If
        orderminutes = 720 + (orderminutes * 60)
        
        number2 = Mid(myOrders(i).finishTime, temp + 1, Len(myOrders(i).finishTime))
        orderminutes = orderminutes + number2
        
        temp = orderminutes - currentminutes
    
        If (temp >= 2) Then
            Circles(i).BackColor = &HFF00&
        End If
        If (temp >= 1) And (temp < 2) Then
            Circles(i).BackColor = &HFFFF&
        End If
        If (temp < 1) Then
            Circles(i).BackColor = &HFF&
        End If
    Next i
    
End Function