page 113

we are going to make form  Name, Hours worked, Hourly rate, and Gross pay. page 387 for search part. page 159 up to line 14. For display  compute only Gross pay 28 to line 31.  we are going put id into array.

 

Dim empid(100), fname(100), lname(100) As String

Dim hw(100) As Integer

Dim hr(100), gp(100) As Double

 

Dim counter As Integer = 0

 

 

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

empid(counter) = TextBox1.Text

fname(counter) = TextBox2.Text

lname(counter) = TextBox3.Text

hw(counter) = TextBox4.Text

hr(counter) = TextBox5.Text

counter = counter + 1

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim i As Integer = 0

While (i < counter)

gp(i) = hw(i) * hr(i)

i = i + 1

End While

 

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim i As Integer = 0

While (i < counter)

Label6.Text = Label6.Text & empid(i) & vbNewLine

Label7.Text = Label7.Text & fname(i) & vbNewLine

Label8.Text = Label8.Text & lname(i) & vbNewLine

Label9.Text = Label9.Text & hw(i) & vbNewLine

Label10.Text = Label10.Text & hr(i) & vbNewLine

Label11.Text = Label11.Text & gp(i) & vbNewLine

i = i + 1

End While

 

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim i As Integer = 0

While (i < counter)

If TextBox1.Text = empid(i) Then

 

Label6.Text = Label6.Text & empid(i) & vbNewLine

Label7.Text = Label7.Text & fname(i) & vbNewLine

Label8.Text = Label8.Text & lname(i) & vbNewLine

Label9.Text = Label9.Text & hw(i) & vbNewLine

Label10.Text = Label10.Text & hr(i) & vbNewLine

Label11.Text = Label11.Text & gp(i) & vbNewLine

End If

i = i + 1

End While

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

End Class