coding and user interface

Question

Part 1: Programming – Income Tax Application 1.1 Problem Statement Due to upcoming end of financial year, you are being called in to write a program which will read in a file and produce reports as outlined. Inputs: The input file called IncomeRecord.txt contains a list of Annual income records of employees in a firm. Each record is on a single line and the fields are separated by spaces. The names of the fields are:

 Employee ID number - Integer

 Employee Last name - String

 Employee First Name - String

 Annual Income - Double

An example record may have the following form:

10001 Smith

Will 30000 10002

Sivo Maika 100000 10003

Deo Amit 25000

Note: This is just sample data, there will be more records for the other employees.

1.2 Program Specifications: Your program should be able to process the following commands. i.e. Program should provide user with the following menu.

I. Read employee data. (from file IncomeRecord.txt)

II. Print all employees’ data. (on a new Window/Form)

III. Calculate the income tax for all and store it in an array.

IV. Display the employee data including the income tax. (on a new Window/Form)

V. Exit program.

Answer 1

As I have explained, you can use the Microsoft Flex Grid control to orgranize the data...

Go online and find msflxgrd.ocx.... download it....

Save it in the folder c:\windows\syswow64

Open MS DOS prompt and go to that folder...

cd C:\windows\syswow64

Register the control:

REGSVR msflxgrd.ocx

IN vb, right click the toolbox, locate the

control, and add the control

to the toolbox

drag and drop the grid onto the form...

change the NAME property to GRID...

Here is some code that show how to populate the grid

with the data

======================================================

Option Explicit On

Public Class FormMain

Sub Data2Grid()

Dim iRow As Integer

myGrid.Row = 0

myGrid.Col = 0 : myGrid.Text = "Employee Id#"

myGrid.Col = 1 : myGrid.Text = "Last Name"

myGrid.Col = 2 : myGrid.Text = "First Name"

myGrid.Col = 3 : myGrid.Text = "Annual Income"

myGrid.Col = 4 : myGrid.Text = "Income Tax"

myGrid.Rows = DataRecCount + 1

For iRow = 0 To DataRecCount - 1

myGrid.Row = iRow + 1

myGrid.Col = 0 : myGrid.Text = A(iRow).EmployeeId

myGrid.Col = 1 : myGrid.Text = A(iRow).LastName

myGrid.Col = 2 : myGrid.Text = A(iRow).FirstName

myGrid.Col = 3 : myGrid.Text = A(iRow).AnnualIncome

myGrid.Col = 4 : myGrid.Text = A(iRow).IncomeTax

Next

End Sub

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

ReadFile()

Data2Grid()

End Sub

End Class