Create an application that allows the user to enter the following employee data: First Name, Middle Name, Last Name, Employee Number, Department, Telephone Number, Telephone Extension, and E-mail Address. The valid values for department are Accounting, Administration, Marketing, MIS, and Sales. Once the data is entered, the user should be able to save it to a file. Figure 9-30 shows an example of the application's form. The form shown in Figure 9-30 has a combo box for selecting the department; a Save Record button, which writes the record to a file; a Clear button, which clears the text boxes; and an Exit button. Write code in the Form_Load event handler that allows the user to enter the name of the file. If the file does not exist, a new one will be created. If the file already exists, the input data will be appended to the file. Figure 9-30 Employee Data form for saving employee records Form1.vb [Design] X Employee Data Enter Employee Data First Name: Middle Name: Last Name: Employee Number: Department: Telephone: X
![Create an application that allows the user to enter the
following employee data: First Name, Middle Name,
Last Name, Employee Number, Department, Telephone
Number, Telephone Extension, and E-mail Address. The
valid values for department are Accounting,
Administration, Marketing, MIS, and Sales. Once the
data is entered, the user should be able to save it to a
file. Figure 9-30 shows an example of the application's
form. The form shown in Figure 9-30 has a combo box
for selecting the department; a Save Record button,
which writes the record to a file; a Clear button, which
clears the text boxes; and an Exit button. Write code in
the Form_Load event handler that allows the user to
enter the name of the file. If the file does not exist, a
new one will be created. If the file already exists, the
input data will be appended to the file.
Figure 9-30 Employee Data form for saving employee records
Form1.vb [Design] X
Employee Data
Enter Employee Data
First Name:
Middle Name:
Last Name:
Employee Number:
Department:
Telephone:](/v2/_next/image?url=https%3A%2F%2Fcontent.bartleby.com%2Fqna-images%2Fquestion%2F75d5ad37-3535-4470-a0e9-412efe6a121b%2F256e2b48-a81f-4fe4-9b69-c593af3264f1%2Fjn697xa_processed.jpeg&w=3840&q=75)
![empdata.txt x
1 Ada
2 A
Make sure to test your project by entering a new text
file name, and then to confirm you are appending data
to the file, run the program again and enter the same
text file name.
3 Adams
4 A1111
5
6
Save Record
You can confirm that the records you entered are in the
file. See attached graphic. Assume that the text file
name the user created was empdata.txt
Creating Employee Data - Microsoft Visual Studio
Eile Edit View Project Build Debug Team Tools Test Analyze Window Help
- O
22
Debug
▾ x86
▶ Start II
7
8
Employee Number:
Department:
Telephone:
Extension:
E-mail Address:
9
Accounting
9417775555
555
Clear
AAdams@abc.net
+
Exit
Solution Explorer
on os CE
Search Solution Explorer (Ctrl+
▷ References
A
D
4
bin
Debua
empdata.txt
Employee Data Part 1.exe
Employee Data Part 1.pdb
Employee Data Part 1.vshost.exe
Employee Data Part 1.vshost.exe.manifest
Employee Data Part 1.xml
Release
O Show all files
obj
Form1.vb](/v2/_next/image?url=https%3A%2F%2Fcontent.bartleby.com%2Fqna-images%2Fquestion%2F75d5ad37-3535-4470-a0e9-412efe6a121b%2F256e2b48-a81f-4fe4-9b69-c593af3264f1%2Faljti_processed.jpeg&w=3840&q=75)
![](/static/compass_v2/shared-icons/check-mark.png)
Trending now
This is a popular solution!
Step by step
Solved in 5 steps with 4 images
![Blurred answer](/static/compass_v2/solution-images/blurred-answer.jpg)
For the department combox, there needs to be a drop list for Accounting, Administration, Marketing, MIS, and Sales to choose from. How do I insert this into the
For the department combox, there needs to be a drop list for Accounting, Administration, Marketing, MIS, and Sales to choose from. How do I insert this into the
For the part, Dim sw As StreamWriter = File.AppendText(fileName). It says the file isnt declared. Why? and how do I fix this?
For the code for the txt file.
Dim sw As Streamwriter = File.AppendText(fileName)
I get an error for the file.AppendText(fileName). How do i fix this.
What about the txt file that saves and records the data that is imputted?
![Database System Concepts](https://www.bartleby.com/isbn_cover_images/9780078022159/9780078022159_smallCoverImage.jpg)
![Starting Out with Python (4th Edition)](https://www.bartleby.com/isbn_cover_images/9780134444321/9780134444321_smallCoverImage.gif)
![Digital Fundamentals (11th Edition)](https://www.bartleby.com/isbn_cover_images/9780132737968/9780132737968_smallCoverImage.gif)
![Database System Concepts](https://www.bartleby.com/isbn_cover_images/9780078022159/9780078022159_smallCoverImage.jpg)
![Starting Out with Python (4th Edition)](https://www.bartleby.com/isbn_cover_images/9780134444321/9780134444321_smallCoverImage.gif)
![Digital Fundamentals (11th Edition)](https://www.bartleby.com/isbn_cover_images/9780132737968/9780132737968_smallCoverImage.gif)
![C How to Program (8th Edition)](https://www.bartleby.com/isbn_cover_images/9780133976892/9780133976892_smallCoverImage.gif)
![Database Systems: Design, Implementation, & Manag…](https://www.bartleby.com/isbn_cover_images/9781337627900/9781337627900_smallCoverImage.gif)
![Programmable Logic Controllers](https://www.bartleby.com/isbn_cover_images/9780073373843/9780073373843_smallCoverImage.gif)