|
but the other person said:
The very first requirement says:
"When the program starts, it must load a series of parallel arrays with the following data in the following order:
1017 CA-North Homer Gomez
1007 AZ Jake Johansen
1005 TX-Dallas Paula Hendricks
1010 AZ-Phoenix Henry Abernathy
"
So, you've failed the first requirement, you are not initializing the arrays in that order.
and i have done:
Public Class StoreInformationForm
Dim numbers() As String = {"1005", "1007", "1010", "1017"}
Dim state() As String = {"TX-Dallas", "AZ", "AZ-Phoenix", "CA-North"}
Dim manager() As String = {"Paula Hendricks", "Jake Johansen", "Henry Abernathy", "Homer Gomez"}
Private Sub StoreInformationForm_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Dim number() As Integer = {1005, 1007, 1010, 1017}
Array.Sort(number)
Dim indexnumber As Integer
Integer.TryParse(numberTextBox.Text, indexnumber)
numberTextBox.Text = numbers(indexnumber)
Integer.TryParse(stateTextBox.Text, indexnumber)
stateTextBox.Text = state(indexnumber)
Integer.TryParse(managerTextBox.Text, indexnumber)
managerTextBox.Text = manager(indexnumber)
numberTextBox.ReadOnly = True
stateTextBox.ReadOnly = True
managerTextBox.ReadOnly = True
updateButton.Enabled = False
cancelProcessButton.Enabled = False
End Sub 'StoreInformationForm_Load
Private Sub addButton_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles addButton.Click
Dim numbers As Integer
Dim state As Char
Dim manager As Char
numberTextBox.ReadOnly = False
stateTextBox.ReadOnly = False
managerTextBox.ReadOnly = False
numberTextBox.Clear()
stateTextBox.Clear()
managerTextBox.Clear()
Integer.TryParse(numberTextBox.Text, numbers)
If numbers < 1000 And numbers > 9999 Then
Call DisplayMessage("Store number must be between 1000 and 9999 inclusive.")
Exit Sub
End If 'number < 1000
Char.TryParse(stateTextBox.Text, state)
If state < "1" Then
Call DisplayMessage("State description must be 1-20 characters in lenght.")
Exit Sub
End If 'state < "1"
Char.TryParse(managerTextBox.Text, manager)
If manager < "1" Then
Call DisplayMessage("Manager's name must be 1-30 characters in lenght.")
Exit Sub
End If ' manager < "1"
previousButton.Enabled = False
nextButton.Enabled = False
addButton.Enabled = False
editButton.Enabled = False
deleteButton.Enabled = False
updateButton.Enabled = True
cancelProcessButton.Enabled = True
stateTextBox.Clear()
managerTextBox.Clear()
numberTextBox.Clear()
numberTextBox.Focus()
End Sub 'addButton_Click
Private Sub cancelProcessButton_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles cancelProcessButton.Click
numberTextBox.ReadOnly = True
stateTextBox.ReadOnly = True
managerTextBox.ReadOnly = True
previousButton.Enabled = True
nextButton.Enabled = True
addButton.Enabled = True
editButton.Enabled = True
deleteButton.Enabled = True
updateButton.Enabled = False
cancelProcessButton.Enabled = False
End Sub 'cancelProcessButton_Click
Private Sub deleteButton_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles deleteButton.Click
If MessageBox.Show("Delete the current record?", "Store Information - Delete a store", _
MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation, _
MessageBoxDefaultButton.Button1) = DialogResult.Yes Then
numberTextBox.Text = String.Empty
stateTextBox.Text = String.Empty
managerTextBox.Text = String.Empty
End If 'MessageBox.Show
End Sub 'deleteButton_Click
Private Sub editButton_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles editButton.Click
numberTextBox.ReadOnly = False
stateTextBox.ReadOnly = False
managerTextBox.ReadOnly = False
previousButton.Enabled = False
nextButton.Enabled = False
addButton.Enabled = False
editButton.Enabled = False
deleteButton.Enabled = False
updateButton.Enabled = True
cancelProcessButton.Enabled = True
cancelProcessButton.Focus()
numberTextBox.Focus()
End Sub 'editButton_Click
Private Sub updateButton_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles updateButton.Click
Dim number As String
Dim state As String
Dim manager As String
number = numberTextBox.Text.Trim
state = stateTextBox.Text.Trim
manager = managerTextBox.Text.Trim
numberTextBox.ReadOnly = True
stateTextBox.ReadOnly = True
managerTextBox.ReadOnly = True
previousButton.Enabled = True
nextButton.Enabled = True
addButton.Enabled = True
editButton.Enabled = True
deleteButton.Enabled = True
updateButton.Enabled = False
cancelProcessButton.Enabled = False
End Sub 'updateButton_Click
Private Sub DisplayMessage(ByVal prompt As String)
'Display message
MessageBox.Show(prompt, "Store Information - Add or Delete a Store", _
MessageBoxButtons.OK, MessageBoxIcon.Exclamation, _
MessageBoxDefaultButton.Button1)
End Sub 'DisplayMessage
Private Sub nextButton_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles nextButton.Click
'If indexNumber is less than number of stores
'Increment the indexNumber
' DisplayStoreInformation() 'Will use the value of indexNumber to fill the textboxes
'End If
End Sub 'nextButton_Click
Private Sub previousButton_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles previousButton.Click
'If indexNumber > firstindex Then
'Decrement the indexNumber
' DisplayStoreInformation()
'End If
End Sub 'previousButton_Click
End Class 'StoreInformationForm
|
Linear Mode
