| The Visual Basic Module required our team of six to develop a professional-quality, distributed application for the fictitious company 'Pathfinders Career Agency'. The program had to track information about Applicants, Skills, Positions, and Companies. Applicants would be able to do job searching on the web so ASPs, Active Server Pages, were created to allow this interface. The GUIDS methodology to an object-oriented solution was documented to assist with the construction and layout of the final application. The 3-tiered application was deployed using the Microsoft Transaction Server (MTS) software on a Windows NT Server. |
|
 |
MS Visual Modeler was used to develop the Object Model for the 3-tier application. The diagram shows the relationships of the various objects in the system: Applicant, Company, Position, Skills and the user�s Application. |
|
 |
The ERD for the application expands on the object model showing the attributes of the objects involved. This ERD is from the Access 97 database which was built to store the data for the application. |
|
 |
The Login Screen for Pathfinders� agents allowed only authorized users access to the program. Both the Username and the Password had to be verified against the database to begin the program. |
|
 |
Companies that have dealt with Pathfinders are viewed on the Company Form. Companies can be added or modified from this screen. Fields such as Name, Phone, and Address must be filled in before the application will add them to the database. |
|
 |
The Position Form maintained information about positions available within the companies. Data integrity was enforced so that a position could not exist without a company. Validation was in place so that a skill
assigned to a position could only be added once. |
|
 |
The Applicant Form kept track of applicants entered into the
WorldWideTech database. Similar validation was in place on this form so skills could not be duplicated. The form had the added feature of being able to query the database to return a list of positions that matched an applicant�s skill set. |
|
 |
The Active Server Page allowed a web based applicant to submit information about themselves and their skills. They could browse through positions and Apply on-line for them. |
|
| Code: Method � Remove a skill from an
applicant
Private Sub lstSkills_dblClick()
�Declare a procedure-level variable to hold an integer
Dim intResponse As Integer
�Prompt the user to confirm the action of the skill removal...
�Set the variable equal to the numeric response of a messagebox button click.
�Have the message display the name of the skill selected for removal
intResponse = MsgBox(�Are you sure you want to remove the � & lstSkills.Text & � skill
from the list?�, vbYesNo)
�If the user clicks the �yes� button to confirm removal of the skill, then remove it from the list
If intResponse = vbYes Then
lstSkills.RemoveItem (lstSkills.ListIndex)
�Otherwise the user clicked �no� and therefore do not remove the skill
Else
End If
End Sub
|