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 WhileEnd 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 WhileEnd 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 Ifi = i + 1
End While End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End SubEnd
Class
