A SOFTWARE FOR THE AUTOMATION OF EMPLOYEMENT EXCHANGE

A Project Report
BACHELOR OF COMPUTER APPLICATION
INDIRA GANDHI NATIONAL OPEN UNIVERSITY

CS-76 BY NAMAN (Enrolment No:052606001)

SCHOOL OF COMPUTER AND INFORMATION SCIENCES INDIRA GANDHI NATIONAL OPEN UNIVERSITY MAIDAN GARHI NEW DELHI 110068

I feel pleasure in expressing my deep, hearty & profound sense of gratitude to honorable Mr. Sudhanshu Gupta under whose proper benevolence guidance the practical aspects of study progressed. The goal of new ideas and development can only be obtained by hard working. It is the only key to success. Work without faith & prayer is like as artificial flower that has no fragrance. For, one to achieve success, the best way is suggestion and guidance provided by ones mention. I would like to thanks to Mr. Sudhanshu Gupta who has guided me in this project. He is an avid enthusiast of new technology and supported my decision to take up the project I offer a very special thanks to Mr. Sudhanshu Gupta for his help, co-operation and being remained interactive with me during the development of this project. Finally I would like to thank all those who directly or indirectly helped me in completing this project. Finally I would like to convey my heartiest thanks to my parents for their blessings cooperation throughout my study. They boost me up every to work with a new and high spirit. I sincerely hope that I have not let them down. THANKING YOU NAME: NAMAN ENROLLMENT NO:044181058

TABLE OF CONTENTS

1. INTORDUCTION / OBJECTIVES 2. SYSTEM ANALYSIS a. IDENTIFICATION OF NEED b. PRELIMINARY INVESTIGATION c. REQUIREMENT ANALYSIS 3. FEASIBILITY STUDY a. OPERATIONAL FEASIBILITY b. TIME FEASIBILITY c. LEGAL FEASIBILITY d. ECONOMICAL FEASIBILITY e. TECHNICAL FEASIBILITY 4. SOFTWARE ENGINEERING PARADIGM APPLIED a. MODULAR DESIGN 5. SOFTWARE AND HARDWARE REQUIREMENT SPECIFICATION

6. SYSTEM DESIGN a. E-R Diagram b. CFD AND DFDs c. STRUCTURES OF TABLES d. SAMPLE INPUT SCREENS e. SAMPLE OUTPUT SCREENS 7. CODING 8. CODE EFFICIENCY 9. OPTIMIZATION OF CODE 10. VALIDATION CHECKS 11. IMPLEMENTATION AND MAINTENANCE a. TESTING 12. SYSTEM SECURITY MEASURES 13. COST ESTIMATION OF THE PROJECT 14. REPORTS 15. PERT CHART 16. LIMITAITON OF THE PROJECT 17. FUTURE SCOPE OF THE PROJECT 18. BIBLIOGRAPHY

A SOFTWARE FOR THE AUTOMATION OF EMPLOYEMENT EXCHANGE

A Project Synopsis
BACHELOR OF COMPUTER APPLICATION
INDIRA GANDHI NATIONAL OPEN UNIVERSITY

CS-76 BY NAMAN (Enrolment No:044181058 )

SCHOOL OF COMPUTER AND INFORMATION SCIENCES INDIRA GANDHI NATIONAL OPEN UNIVERSITY MAIDAN GARHI NEW DELHI 110068

INDEX
01. 02. 03. Title of The Project Objective of the Project Project Category (RDBMS/OOPS/NETWORKING/MULTIMEDIA/ ARTIFICIAL INTELLIGENCE/EXPERT SYSTEM etc.) 04. Tools/Platform, Hardware and Software requirement Specifications. 05. ANALYSIS :- DFD s - ER DIAGRAMS 06. A Complete Structure of the Program :Number of Modules Details of Modules Data Structure Process Logic Type of Output/Report Generation, Validation Checks. 07. Future Scope of the Project

TITLE OF THE PROJECT :

A SOFTWARE FOR THE AUTOMIZATION OF AN EMPLOYEMENT EXCHANGE

OBJECTIVE OF THE PROJECT :

This project is designed for an organization which provides employment to the unemployed person according to their qualification. This project saves the needed description about the candidate and the company. It will provide the needed information about the both at the requirement. It helps in maintaining the whole database of company. To utilize the project organization, have to register both the candidate and the company (which have vacancy). For registration candidate has to provide some information such as his/her name, address, qualification, contact no. etc. and company also provide some information such as name, manager name, needed qualification and in which field they are providing job etc. Except this information the project also maintain some tables of database by which many jobs of project would be performed perfectly. These tables are used to solve queries related to the user problem etc. Another achievement of this project is that it tells the company to candidate according to his qualification. It reduces the overhead of management because it does the work of matching the right job to the people, otherwise manually it will take a lot of time to match that who is suitable to which job.

PROJECT CATEGORY :
RDBMS (Relational Database Management System). Tools/Platform, H/w and S/w Requirement Specification : Language : Microsoft Visual Basic 6.0 as Front end Oracle 8i as Back end. Platform : Windows NT/XP/2000 Hardware Requirements : The hardware used to develop our project includes : A Keyboard, Mouse to enter the data. A Monitor to display the data. A P-I processor, 128 MB RAM, 20GB HDD configured C.P.U A Printer to take hard copies of required data.

Microsoft Visual Basic

Microsoft Visual Basic is the fastest and easiest way to create applications for Microsoft windows.

What is Visual Basic? The Visual part refers to the method used to create the graphical user interface (GUI), rather than writing numerous lines of code to describe the appearance and location of interface elements, we can simply add rebuilt objects into place on screen. If weve ever used a drawing program such as Paint, we already have most of the skills

necessary to create an effective user interface.

The Basic part refers to the BASIC (Beginners All-Purpose Symbolic Instruction Code) language, a language used by more programmers than any other language in the history of computing. Visual Basic has evolved from the original BASIC language and now contains several hundred statements, functions and keywords, many of which relate directly to the Windows GUI. Beginners can create useful applications by learning just a few of the keywords, yet the power of the language allows professionals to accomplish anything that can be accomplished using any other windows programming language. The Visual Basic programming language is not unique to Visual Basic. The Visual Basic programming system, Application Edition included in Microsoft Excel, Microsoft Access, and many other windows applications uses the same language. The Visual Basic Scripting Edition (VBScript) is a widely used scripting language and a subset of the Visual Basic language. The investment we make in learning Visual Basic will carry over to those other areas. Whether it is needed to create a small utility for us or a work group, a large enterprise-wide system, or even distributed application spanning the globe via the Internet, Visual Basic has the tools needed. Data access features allows to create database, front-end

applications and scalable server-side components for most popular

database Formats, including Microsoft SQL Server, Oracle and other enterprise- level database. Active-X techno users allows using the functionality provided by other application, such as Microsoft Word Processor, Microsoft Excel spreadsheet and other windows applications. Applications can even be automated and objects created using the professional or Enterprise editions of Visual Basic. Internet capabilities make it easy to provide access to documents and applications across the Internet or Intranet from within our application, or to create Internet server applications. Finished application is a true .exe file that uses a Visual Basic Virtual Machine that can be freely distribute.

Oracle is used as main Database : Oracle is a popular RDBMS feature today. Many organization use Oracle for its Database management. Oracle converts the standard SQL queries passed to it into its own query Language style. We dont have to worry about how this is going to work. We can pass our queries as we pass them other Database. We will access an Oracle Database through ODBC (Open Database Connectivity), which is an interface between our application and database and allow us to access the Database just like others.

ANALYSIS
Context Free Diagram (CFD)
The CFD is Context Free Diagram of whole system. It shows the rough summary of the system. There may be a number of squares to show the entities. There may be only one circle to show the entities. The other open-ended rectangle boxes shows the data storing files. The whole diagram gives the rough idea about the job performed in the organization. It clearly specifies the input, process and output

Data Flow Diagram(DFD)

The data flow diagram shows the flow of data. It is generally made of symbols given belowA Square shows the entity. A Circle shows the process. An Open Ended rectangle shows the data store. An arrow shows the data flow. The DFD can be up to several levels. The 0 level DFD states the flow of data in the system as seen from the outward in each module. The first level DFD can show more detail about the single process of the 0 level DFD. The second level DFD can show even more details and so on.

CONTEXT FREE DIAGRAM(CFD)

Candidate Employee Vacancy

CAN__DETAIL

EMP_DETAIL

VAC_INFO

Candidate Resume

Processing

Requirement

Company

Of Requirement
DATA

COMP_DETAIL ACC_INFO PLACE_INFO

Report Generation

Revenue

Placement

Company

DATA FLOW DIAGRAM(DFD)

First level DFDs Candidate Registration

Candidate

Details Add

Data

Report Generation

Registration

REG_CODE

Candidate Table Company Registration

Details
ADD

Company

Data

Registration

Report Generation

REG_CODE

Company Table

Addition of a candidate & company

Joining of the employee

Add Details

Employee

Joining the Exchange

Data

Report Generation

EMP_CODE

Employee Table

Second level DFD

Candidate Table Experience Table
UPDATE VERIFY UPDATE VERIFY

Candidate

Modify Delete

Report Generation

VERIFY UPDATE

VERIFY

UPDATE

Professional Qualification

Academic Qualification

Modify/Deleting of a Candidate

Second level DFD

Company

Code

Modify Delete

Data

Report Generation

VERIFY

UPDATE

Company Table

Modify/Deleting a Company Salary Table

VERIFY

UPDATE

Employee

Code

Modify Delete

Data

Report Generation

VERIFY

UPDATE

Employee Table Modify/Deleting of Employee record

Showing the placement of a Candidate

Vacancy Table Academic Qualification

Update

Company

Vacancy Details

Checks

Placement

Update

Matching The Requiremen t

P_DETAIL

Expend

Professional Qualification

EXP_DETAIL

Expenditure
Matched

Experience Table

Calling Candidate

ENTITY RELATIONSHIP DIAGRAM

Fulfi ll

Candidate

CAN_NO QUALIFICATION DOR CATEGORY Y

CAN_NAM E DOB D_REN PH_NO.

A_QUALI EXPERIENCE CE

P_QUALI

Requirement

Registere d

ADDRESS

Chec ks S
EMP_NO OOOOO B_SAL __ ___ T_SAL

Exchange

Infor ms

Vacancy

EMP_NO

Pa yy

Ha s

DEPT _NO T_SAL. CATEJORY

EMP_N AME DOJ

HRA/DA

Salary

Employee
Creat es

COMP_NO SALARY DEPARTMENT JOB CAN_NAM E DOJ PH_NO.

COMP_NAME LOCATION

COMP_NO O ADDRES S PH_NO.

Placement

Giv e

Company

MODULAR DESCRIPTION

The actual power of software development lies in modular design of software. The logical separable parts of the project are called modules. Modular design not only supports easy development but also brings the clarity in the software. It is a good programming approach.

1. Candidates Information
Insertion of a New candidate Renewal of an candidate Deletion of an candidate Updating the candidate registration record

2. Companys Information Addition of a New company Deletion of the company Updating of the company record Collect the revenue from the company

3. Placement Information
Placement of the candidate Deletion the candidate name in the registration file Updating the company requirement file

4. Payroll Information

Insertion of a New Employee

Deletion of Employee

 Modification of Employee Calculating Basic salary Calculating PF Calculating HRA\DA Calculating the Net salary

5. Report Generation
Details of a particular candidate Details of a company Details of the selected candidates Details of all the employee Details of all the revenues Details of all the expenditure Details of all the profit

STRUCTURE OF TABLES USED

Data structure:
The data structures of the program hold the data tables, which come the Back End description. In my program there are following tables which shows the content of the individual item belong to a particular table .

Data base tables: CANDIDATE

S.NO 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. DETAIL NAME Candidate code Candidate name Academic Qualification Professional qualification Date of birth Date of registration Category Address Phone number Email ID Date of renewal Date of expiry FIELD CAN_CODE CAN_NAME A_QUALI P_QUALI DOB DOR CATEGORY ADDRESS PH_NO. EMAIL_ID D_REN DOE DATA TYPE Number Varchar2 Varchar2 Varchar2 Date Date Varchar2 Varchar2 Number Varchar2 Date Date 4 40 10 20 SIZE 10 20 20 20 REMARK Primary Key Not Null Foreign Key Foreign Key Not Null Not Null Not Null Not Null Not Null

ACADEMIC QUALIFICATION
S.NO 1. 2. 3. 4. 5. 6. DETAIL NAME Candidate code Subjects Year of passing Percentage Board name University name FIELD CAN_CODE SUBJECTS Y_PASSING PERCENTAGE B_NAME UNI_NAME DATA TYPE Varchar2 Varchar2 Number Number Varchar2 Varchar2 SIZE 20 40 5 4 20 20 REMARK Foreign key Not Null

PROFESSIONAL QUALIFICATION
S.NO 1. 2. 3. 4. 5. DETAIL NAME Candidate code Year of passing Percentage Institute name University name FIELD CAN_CODE Y_PASSING PERCENTAGE INS_NAME U_NAME DATA TYPE Varchar2 Number Number Varchar2 Varchar2 SIZE 10 5 4 20 20 REMARK Foreign key Not Null Not Null

EXPERIENCE
S.NO 1. 2 3. . .4. DETAIL NAME Comp name Candidate code Working period Designation FIELD COMP_NAME CAN_CODE W_PERIOD D_NATION DATA TYPE Varchar2 Varchar2 Number Varchar2 SIZE 25 10 2 15 REMARK Not Null Foreign key Not Null

COMPANY
S.NO 1. 2. 3. 4. 5. 6. DETAIL NAME Company code Company name Location Company address Phone number Email ID FIELD COM_CODE COM_NAME LOCATION COM_ ADDRESS PH_NO. EMAIL_ID DATA TYPE Number Varchar2 Varchar2 Varchar2 Number2 Varchar2 SIZE 10 20 15 40 10 20 REMARK Primary Key Not Null

VACCANCY
S.NO 1. 2. 3. 4. 5. 6. 7. 8. DETAIL NAME Company code Company name Number of Vacancy Essentional qualification Desirable qualification Dept name Designation Salary FIELD COM_CODE COM_NAME NO_VACANCY ESS_QUALI DES_QUALI DEPT_NAME DESIGNATION SAL DATA TYPE Number Varchar2 Number Varchar2 Varchar2 Varchar2 Varchar2 Number SIZE 10 20 4 20 20 15 12 6 REMARK Foreign Key

CALLING CANDIDATES
S.NO 1. 2. 3. 4. DETAIL NAME Candidate code Company code Date of reporting Date of interview FIELD CAN_CODE COM_CODE D_REPORT D_INTERVIEW DATA TYPE Number Number Date Date SIZE 10 10 REMARK Foreign Key Foreign Key Not Null Not Null

PLACEMENT
S.NO 1. 2. 3. 4. 5. 6. DETAIL NAME Company code Candidate code Date of joining Dept name Designation Salary FIELD COM_CODE CAN_CODE DOJ DEPT_NAME DESIGNATION SAL DATA TYPE Number Number Number Varchar2 Varchar2 Number SIZE 10 10 REMARK Foreign Key Foreign Key Not Null 15 12 6

EXCHANGE DEPT.
S.NO DETAIL NAME FIELD DATA TYPE SIZE REMARK

1. 2.

Dept code Dept name

DEPT _CODE DEPT_NAME

Number Varchar2

10 10

Primary Key Not Null

EXCHANGE EMPLOYEES
S.NO 1. 2. 3. 4. 5. 6. DETAIL NAME Employee code Employee name Dept code Date of joining Emp Category Total salary FIELD EMP_CODE EMP_NAME DEPT _CODE D_JOIN E_CATE T_SAL DATA TYPE Number Varchar2 Number Date Varchar2 Number SIZE 10 20 10 REMARK Primary Key Not Null Foreign Key Not Null 4 6

EXPENDITURE
S.NO 1. 2. 3. DETAIL NAME Total Expended amount Date of expenditure Description FIELD T_AMOUNT D_EXPEND DESCRIPTION DATA TYPE Number Date Varchar2 30 SIZE 9 REMARK Not Null Not Null Not Null

USER
S.NO 1. 2. DETAIL NAME User _Id User Password FIELD USER_ID USER_PASS DATA TYPE Varchar2 Varchar2 SIZE 20 20 REMARK Primary Key Not Null

PROCESS LOGIC
The process and logic of my system is as follows In my system, I take different tables for storing the various information .In these tables I have taken may fields which are related to candidate details, like candidate code, company code, name, employee code, department code, candidate qualification, date of birth, category, phone, revenue, expenditure etc. List and store the essential information. About these fields, but all can be duplicate so far uniquely identification of a particular record we take another field which stores unique value it means it will not be able to store the duplicate value. So we define these fields as a Primary Key. The Purpose of Primary Kay is uniquely identification of a record and searching is also becomes fast with the help of this key. In the tables we used foreign keys, the purpose of making foreign key is to reduce the Redundancy, space and time also. In my system there are 14-15 tables and mostly have primary key and foreign key. So with the help of foreign key established the relationship between two tables and one table accessing the other table with the help of foreign key because these are related to each other.

Profit Generation Logic

The user input the requirement of the company and the candidate are selected on the basis of the matching the requirement with the candidate. After selection the company pays the Exchange to the service provider. This is the real revenue, which is incurred in the company and generated. On the other hand Exchange some money on the staff and other expenditure like calling the candidate when the requirement arise and posting letters here and there. The exchange does this all on its behalf and the profit generated by this transaction is Profit =Revenue- Expenditure

PROCESS LOGIC OF EACH MODULE

Employment exchange is an integration of various activities that are carried by the Departments. These department stores the information of candidates, company etc.

In Module 1 : candidates Information The administrator is given different options to obtain details about an candidate such as : Every candidate has a Unique code which when entered will provide the administrator all the information of the candidate such as candidate name, qualification, category, date of registration, address, date of birth etc. obtained from the candidate table/data source. The facility of addition, modification in the name of candidate or deletion of candidate are make to easier for further use. In Module 2 Company Information The administrator is given different options to obtain details about a company such as : Every company has a Unique code which when entered will provide the administrator all the information of the company such as candidate name, location, address, phone number etc. obtained from the company table/data source. The facility of addition, modification in the name of company or deletion of company are make to easier for further use. In Module 3 placement Information The administrator is given different options to obtain details about the selected candidate such as : If the user input the requirement of the company and the candidates are selected on the basis of the matching the requirement with the

candidate. After selecting a candidate updated the candidate and company tables. In Module 4 payroll information The administrator is given different options to obtain details about the an employee & his salary such as : Every employee has a Unique Number which when entered will provide the administrator all the information of the employee such as employee name, employee department name, date of join, basic salary, Net salary and many more info obtained from the employee, & salary table/data source. The facility of addition, modification in the name of Employee or deletion of employee are make to easier for further use. In Module 5 : Report Generation In this module the following report will be generated such as : The user can get the report on candidate detail. The user can get the report on company detail. The user can get the report on placement detail. The user can get the report on employee detail. The user can get the report on revenue detail. The user can get the report on expenditure detail. The user can get the report on profit detail.

SCOPE OF FUTURE APPLICATION

In the fast running life each person need job and they also have some capability, education but the only thing the do not have is the proper guidance, they do not which company need them and this problem would

be major in future than present. As this project deals with such condition so scope for project in future is very bright. In future it can be used on Internet for the company enhancement. It would be able to deal with national and international companies. Through some modification it can be used in a big organization, which deal in this field. It also can be integrated with another with another project to achieve some another achievement.

INTRODUCTION / OBJECTIVES

Project Development is compulsory for the fulfillment of BCA Course running by IGNOU ( Indira Gandhi National Open University). This type of activity not only shows the skills of the student but also helps him to be a professional in future. The students get the real experience while developing such projects and such type of experience gives them confidence to do better in future too. The proposed project was started under the guidance of Mr. Sudhanshu Gupta who has been working as a senior software faculty in a reputed Institute of Meerut Institute Of Engineering and Technology. Sudhanshu Sir is in fact a good person. He guided me so well that I could able to develop the project. Without the guidance of such an experienced person it was impossible for me to complete the project so well. He guided me for the right person to contact to know about the details of the project and he also encouraged me to work hard for the project. The proposed project has been developed to be submitted at IGNOU as the University demands so from BCA Final semesters students. So being a student of IGNOU ( Enrollment Number :044181058 ) have worked on this project. I chose the name of the project as A Software For The Automization of Employment Exchange Services Software. The main purpose of this project is to match the requirement from the companies to the candidates who are seeking the jobs. It is a software for the mediator who takes the job requirements from the

company and on the other hand takes the resume of the candidates who come to seek the jobs for them to him afterwards he matches the requirement to the available candidates and provide them with the suitable jobs. In the whole process of supplying the required job to the candidates the mediator takes some amount from the candidate also and generally takes the half or one forth of the first salary of the candidate from the organization. Sometimes organization also pay to the mediator for doing the job of HRM (Human Resource Management) and the mediator gets the real benefits.

SYSTEM ANALYSIS

IDENTIFICATION OF NEED

The identification of needs of the project is really a typical job. It is very necessary to identify all the needs of the system at beginning otherwise the whole purpose of developing the project becomes useless. To identify the needs I went through a long process of interviewing the personnel of the companies or the candidates who seek the jobs and I asked a lot many questions to understand the requirements. I put up anti questions so that personnel or candidates could tell me what they know by their own. I then thought that in reference of the computers working and managed the needs so that they can be fulfilled in a easy and comfortable manner. It is very important to think the needs keeping in mind the efficiency and easy implementation. I tried my best to convert the requirements in form of the software so that user of the software can get the complete benefits. The need of the software is created because the everything is going very fast. One can not think to do all the jobs manually in a dynamic environment so the software is required to do the job at reasonable cost and within time.

PRELIMINARY INVESTIGATION

The objective of this project is to help a company which works as a mediator between the unemployed persons and companies who demands for them. In such a way the company on hand gets the employee and on the other hand employee get s the correct job. These companies thus help in removing the unemployment. The main objective of the project is to provide help the company to select the desired candidate quickly as the jobs are dynamic. If the quick click on of the right candidate is missed the whole process of the company will be lost so it is kept in mind that as the client company desires some job, the candidate must be available for quick response. If the mediator company provides good service in helping to searching for the right candidate then this will be the real gain for the software. With the software the user gets the real help in selecting the right

candidate and provide the service quickly. Software on one hand demands to store the complete information about the candidate so that he/she may get job on the basis of every thing he has done and derves that. This project is designed for an organization which provides employment to the unemployed person according to their qualification.

This project saves the needed description about the candidate and the company. It will provide the needed information about the both at the requirement. It helps in maintaining the whole database of company. To utilize the project organization, have to register both the candidate and the company (which have vacancy). For registration candidate has to provide some information such as his/her name, address, contact no., qualification etc. and company also has to provide some information such as name, manager name, needed qualification and in which field they are providing job etc. Except this information the project also maintains some tables of database by which many jobs of project would be performed perfectly. These tables are used to solve queries related to the user problems etc. Another achievement of this project is that it tells the company to candidate according to his qualification. It reduces the overhead of management because it does the work of matching the right job to the people, otherwise manually it will take a lot of time to match that who is suitable to which job. The candidates can be added through the software by entering the name, address, age, sex, qualification, education, experience etc. about the candidate. Only when the candidates are added the further working can be performed. When candidates and items are added in the list then the job making the matching can be started. The match is created by selecting the requirement first and afterwards the candidates who are fit for the job. The candidate numbers are also generated automatically so that there may be no wrong operation by the user or operator of the system.

The software also generates a number of the screen displays which help the user to find out the information about anything he demands from the software the various information include the details of the candidates, details of the requirements, details of the companies, details of the revenue, details of the expenditure and different types of the inquiries about the all mentioned above. The user has the facility of adding new data, modifying the previous data and deleting the previous data as and when required by opening the corresponding windows. The user can also move through the records. The user of the software can get a number of hard copies of the various reports generated through the software. The user can get the reports daily, monthly and annually and any time or day of the week. The software is perfect to handle the data related to candidates and companies requirements.. After a little modification the software can be made generalized.

REQUIREMENT ANALYSIS FOR THE PROJECT

Requirement Analysis is a very important phase of the project development. The whole future of the project depends on the complete and correct analysis of the project. The requirements are gathered from the client who wants the software and are stored in a document known as (SRS Document) software requirement specification document. This document must be in detail and every piece of information about the organization should be clearly mentioned in the document. As the clients are not aware of the computers working so they can not specify the requirements in that terms it is the responsibility of the Analyst ( a person who finds out the details about the project) to get the complete information for the project by using a number of ways. The requirements can be gathered from the client by asking him Questions, Taking Interviews, By Preparing Questionnaire and by Reviewing the previous documents about the organization. If the requirements of the client are misunderstood by any way then the whole software developing team or company suffers for the reason. The whole software developing job is divided into some phases as Primary Investigation Phase, Complete Requirement Analysis Phase, Design Phase, Development Phase, Debugging Phase and Implementation Phase. For a complete and systematic development of the project it is necessary to follow the order of the phases.

The proposed project is not a live project but it is a very interesting project to work with. I really enjoyed the project while taking the information about the project. Afterwards I tried to find out what type of jobs are required by the companies so that right candidates can be generated for the jobs in the reputed companies After having the sufficient detail. I made rough estimate about the time duration and fields for the table. So that the data gathered can be put in the form of tables. and thus can be used for the right purposes. The proposed project is somewhat a live project but not the whole one. Actually it is tried to make the project more generalized. I tried my best to make the project so common that it could fulfill the requirements of all employment exchange offices. For the complete requirements of the project Sudhanshu Gupta Sir suggested me to contact some companies which manages their HR ( Human Resource Management System) through outsiders. I visited many such companies and try to know the requirements needed for the recruitment and the data used to operate the management. I was surprised to get the overwhelming response of the personnel of companies. They allowed me to ask everything in detail and I noted them on paper company wise. I also thought of my relatives and I got to know that one of my relative has the experience of human resource management in a company. I went to him and talked to get some requirements from there. After getting the sufficient information I studied the matter carefully and make a common document which is required and used by all the companies

I visited. I also showed it to my guide who appreciated my job. After prepared the summary report of the requirements from the companies I thought to manage them in form of table. After getting the information about recruitment requirements from the companies I moved to get the requirements needed by the candidates. For this I met some of my relatives who are going to join the companies or already working in MNCs (Multi National Companies) recently. I also made a summary report of the information collected from them also. Then I thought of a company who manages the jobs of human resource management. Keeping the information about Recruitment Management I thought to make it possible through a software, I thought a name of such software also which is A Software For The Automization of Employment Exchange Services Software. First I managed the requirements of my relative and candidates and the companies systematically and then make out the rough estimate of time to complete the different phases of the project systematically and at time. I took a total time period of three months (full day) to complete the project. After completing the requirement phase and estimating the time for each phase I moved to the second phase which is Design of the system.

FEASIBILITY STUDY

1.

Operational Feasibility :- The project is nearly 95 percent feasible as the look and working of the project is very simple. A common user can handle the operation without the help of anything or anyone as the project has common look like other standard software like MS WORD. The user can handle the maximum operations just by clicking the option or he/she can use the keyboard to select the options. There are also the short cut operations through which one open the option directly by pressing the combinations of the short cuts. All the keys and shortcuts are given with the options which the user can easily remember after one or two times use of the software.

2.

Time Feasibility :- The system has maximum percent of time feasibility as it has been completed in the estimated time i.e. it was estimated to complete in three months working as full time and the work was completed in time.

3.

Legal Feasibility :-The system performs nothing illegal. The reports specially the format of the reports are according to the requirements only not thought.

4.

Economical Feasibility :- The economical feasibility in this system is very low as one has to purchase a computer and this

software to automize the system and work will be easy for him/her beyond imagination. 5. Technical Feasibility :- Technically the system is may or may not feasible according to the client. If the client has computers already then he/she doesnt need to purchase the system. If he has the knowledge of computer then perhaps he/she will not have to appoint an employee to work. If the client has an old system then also he/she has to replace the computer to work as the software can work with only advanced hardware. If the client has an old fashioned OS then also he has to upgrade his/her system. The client may or may not need to upgrade his/her system.

SOFTWARE ENGINEERING PARADIGM

MODULAR DESIGN The actual power of software development lies in modular design of the software. The logical separable parts of the project are called modules. Modular design not only supports easy development but also brings the clarity in the software. It is a good programming approach. While modular design of the software the user should remember the that it should have high cohesion and low coupling. Coupling is defined by the interconnections between the modules of the project. Cohesion is defined by the internal strength of a single module. The Software is divided in following sections :Create Section In this section user can create the Candidate, the Company Manage Section In this section user can create the education, qualification and experience information for a candidate and requirement form from the company side. In this section user can also manage the job of matching the requirement ofhte company with the available number of candidates. Expenses and the Revenue for the company can also be managed through this section. In revenue one has to mention that to which company what amount is received. Information Section In this section user can view a number of inquiries related to candidates, companies, their matched inquiries , the business from

companies and business form the candidates and total profit earned from the above operations. Printing Section By using this section user can take out the print reports as hard copy on candidates, companies, expenditure occurred during the processing of selecting the candidate, revenue collected from the companies. Selected candidates. Exit Section User can come out of the software by pressing this option.

SOFTWARE AND HARDWARE REQUIREMENT SPECIFICATION

Software
The tools and environment used for this project are mentioned below TOOLS Front End -- VB 6.0 and Back End -- ORACLE 8.0 Environment Windows XP Front End tools are those which are used for the client application development. Back End tools are those which are used to create the database and work in background. Both Visual Basic and SQL server have gone through a number of versions to evolve into the stable products they are today. Of course no development software is perfect and they each have their quirks. In spite of this, Visual Basic has continued to be Microsofts premier RAD (Rapid Application Development ) Tool for developing client application. By the same time, SQL server is their primary back- end database product. Visual Basic 6.0 was released in 1998. Because of developer demand, this version of Visual Basic had a host of new & enhanced methods for interacting with SQL server. This included improved data access, new tools and

controls for working with database, improved Internet features, and a number of new wizards. SQL server has also been around for a while and new features have continually been added and others enhanced. SQL server is part of Microsofts Back Office suite of products. With each new version, VB has provided developers with new and better ways to work with SQL server. This has produced a number of APIs, tools and component. There are a number of tools & object models available that access SQL server from within the VB. Although each of these tools has a different purpose and implementation, the common thread they share is that they are used to access and interact with SQL server database.

Hardware
As hardware a P4 system with minimum of 128 RAM is sufficient. The system must have a 3.5 floppy drive and a CD drive attached with it. The monitor may be 15 to 17 color monitor. The mouse and keyboard may be of any reputed company so that they may not create any problem in between. A UPS is required so that the working is not stopped in the middle and proper save operation can be performed.

SYSTEM DESIGN

ENTITY RELATIONSHIP DIAGRAM

Fulfi ll

Candidate

CAN_NO QUALIFICATION DOR CATEGORY Y

CAN_NAM E DOB D_REN PH_NO.

A_QUALI EXPERIENCE CE

P_QUALI

Requirement

Registere d

ADDRESS

Chec ks S
EMP_NO OOOOO B_SAL __ ___ T_SAL

Exchange

Infor ms

Vacancy

EMP_NO

Pa yy

Ha s

DEPT _NO T_SAL. CATEJORY

EMP_N AME DOJ

HRA/DA

Salary

Employee
Creat es

COMP_NO SALARY DEPARTMENT JOB CAN_NAM E DOJ PH_NO.

COMP_NAME LOCATION

COMP_NO O ADDRES S PH_NO.

Placement Context Free Diagram (CFD)

Giv e

Company

The CFD is Context Free Diagram of whole system. It shows the rough summary of the system. There may be a number of squares to show the entities. There may be only one circle to show the entities. The other open-ended rectangle boxes shows the data storing files. The whole diagram gives the rough idea about the job performed in the organization. It clearly specifies the input, process and output

Data Flow Diagram(DFD)

The data flow diagram shows the flow of data. It is generally made of symbols given belowA Square shows the entity. A Circle shows the process. An Open Ended rectangle shows the data store. An arrow shows the data flow. The DFD can be up to several levels. The 0 level DFD states the flow of data in the system as seen from the outward in each module. The first level DFD can show more detail about the single process of the 0 level DFD. The second level DFD can show even more details and so on.

CONTEXT FREE DIAGRAM(CFD)

Candidate Employee Vacancy

CAN__DETAIL

EMP_DETAIL

VAC_INFO

Candidate Resume

Processing

Requirement

Company

Of Requirement
DATA

COMP_DETAIL ACC_INFO PLACE_INFO

Report Generation

Revenue

Placement

Company

DATA FLOW DIAGRAM(DFD)

First level DFDs Candidate Registration

Candidate

Details Add

Data

Report Generation

Registration

REG_CODE

Candidate Table Company Registration

Details
ADD

Company

Data

Registration

Report Generation

REG_CODE

Company Table

Addition of a candidate & company

Joining of the employee

Add Details

Employee

Joining the Exchange

Data

Report Generation

EMP_CODE

Employee Table

Second level DFD

Candidate Table Experience Table
UPDATE VERIFY UPDATE VERIFY

Candidate

Modify Delete

Report Generation

VERIFY UPDATE

VERIFY

UPDATE

Professional Qualification

Academic Qualification

Modify/Deleting of a Candidate

Second level DFD

Company

Code

Modify Delete

Data

Report Generation

VERIFY

UPDATE

Company Table

Modify/Deleting a Company Salary Table

VERIFY

UPDATE

Employee

Code

Modify Delete

Data

Report Generation

VERIFY

UPDATE

Employee Table Modify/Deleting of Employee record

Showing the placement of a Candidate

Vacancy Table Academic Qualification

Update

Company

Vacancy Details

Checks

Placement

Update

Matching The Requiremen t

P_DETAIL

Expend

Professional Qualification

EXP_DETAIL

Expenditure
Matched

Experience Table

Calling Candidate

STRUCTURE OF TABLES USED

Data structure:
The data structures of the program hold the data tables, which come the Back End description. In my program there are following tables which shows the content of the individual item belong to a particular table .

Data base tables: CANDIDATE

S.NO 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. DETAIL NAME Candidate code Candidate name Academic Qualification Professional qualification Date of birth Date of registration Category Address Phone number Email ID Date of renewal Date of expiry FIELD CAN_CODE CAN_NAME A_QUALI P_QUALI DOB DOR CATEGORY ADDRESS PH_NO. EMAIL_ID D_REN DOE DATA TYPE Number Varchar2 Varchar2 Varchar2 Date Date Varchar2 Varchar2 Number Varchar2 Date Date 4 40 10 20 SIZE 10 20 20 20 REMARK Primary Key Not Null Foreign Key Foreign Key Not Null Not Null Not Null Not Null Not Null

ACADEMIC QUALIFICATION
S.NO 1. 2. 3. 4. 5. 6. DETAIL NAME Candidate code Subjects Year of passing Percentage Board name University name FIELD CAN_CODE SUBJECTS Y_PASSING PERCENTAGE B_NAME UNI_NAME DATA TYPE Varchar2 Varchar2 Number Number Varchar2 Varchar2 SIZE 20 40 5 4 20 20 REMARK Foreign key Not Null

PROFESSIONAL QUALIFICATION
S.NO 1. 2. 3. 4. 5. DETAIL NAME Candidate code Year of passing Percentage Institute name University name FIELD CAN_CODE Y_PASSING PERCENTAGE INS_NAME U_NAME DATA TYPE Varchar2 Number Number Varchar2 Varchar2 SIZE 10 5 4 20 20 REMARK Foreign key Not Null Not Null

EXPERIENCE
S.NO 1. 2 3. . .4. DETAIL NAME Comp name Candidate code Working period Designation FIELD COMP_NAME CAN_CODE W_PERIOD D_NATION DATA TYPE Varchar2 Varchar2 Number Varchar2 SIZE 25 10 2 15 REMARK Not Null Foreign key Not Null

COMPANY
S.NO 1. 2. 3. 4. 5. 6. DETAIL NAME Company code Company name Location Company address Phone number Email ID FIELD COM_CODE COM_NAME LOCATION COM_ ADDRESS PH_NO. EMAIL_ID DATA TYPE Number Varchar2 Varchar2 Varchar2 Number2 Varchar2 SIZE 10 20 15 40 10 20 REMARK Primary Key Not Null

VACCANCY
S.NO 1. 2. 3. 4. 5. 6. 7. 8. DETAIL NAME Company code Company name Number of Vacancy Essentional qualification Desirable qualification Dept name Designation Salary FIELD COM_CODE COM_NAME NO_VACANCY ESS_QUALI DES_QUALI DEPT_NAME DESIGNATION SAL DATA TYPE Number Varchar2 Number Varchar2 Varchar2 Varchar2 Varchar2 Number SIZE 10 20 4 20 20 15 12 6 REMARK Foreign Key

CALLING CANDIDATES
S.NO 1. 2. 3. 4. DETAIL NAME Candidate code Company code Date of reporting Date of interview FIELD CAN_CODE COM_CODE D_REPORT D_INTERVIEW DATA TYPE Number Number Date Date SIZE 10 10 REMARK Foreign Key Foreign Key Not Null Not Null

PLACEMENT
S.NO 1. 2. 3. 4. 5. 6. DETAIL NAME Company code Candidate code Date of joining Dept name Designation Salary FIELD COM_CODE CAN_CODE DOJ DEPT_NAME DESIGNATION SAL DATA TYPE Number Number Number Varchar2 Varchar2 Number SIZE 10 10 REMARK Foreign Key Foreign Key Not Null 15 12 6

EXCHANGE DEPT.
S.NO DETAIL NAME FIELD DATA TYPE SIZE REMARK

1. 2.

Dept code Dept name

DEPT _CODE DEPT_NAME

Number Varchar2

10 10

Primary Key Not Null

EXCHANGE EMPLOYEES
S.NO 1. 2. 3. 4. 5. 6. DETAIL NAME Employee code Employee name Dept code Date of joining Emp Category Total salary FIELD EMP_CODE EMP_NAME DEPT _CODE D_JOIN E_CATE T_SAL DATA TYPE Number Varchar2 Number Date Varchar2 Number SIZE 10 20 10 REMARK Primary Key Not Null Foreign Key Not Null 4 6

EXPENDITURE
S.NO 1. 2. 3. DETAIL NAME Total Expended amount Date of expenditure Description FIELD T_AMOUNT D_EXPEND DESCRIPTION DATA TYPE Number Date Varchar2 30 SIZE 9 REMARK Not Null Not Null Not Null

USER
S.NO 1. 2. DETAIL NAME User _Id User Password FIELD USER_ID USER_PASS DATA TYPE Varchar2 Varchar2 SIZE 20 20 REMARK Primary Key Not Null

MASTER SCREEN

This is the master screen which appears when we open the project after giving the right password in the password entry form. By using Create Option we can create Candidates and the Company By using the Manage Option we can manage the Education, Qualification and experience and requirement matching. We can also manage the expenditure and revenue from this option. By using Information Option we can see the different information about the candidates and the companies and the revenue and spenditure. We can also see the revenue and expenditure details and profit details also.

By using printing we can generate the various hard copies of the information like Detail of the Candidate, Details of the Company, Details of the matching the requirements of the candidates and the expenditure, revenue and selected candidate report. Exit is to come out of the project.

CREATE SECTION SCREEN

We can see that create menu has the options to create Candidates and the Company We can also see the shortcuts and hot keys assigned to different options The shortcuts can be used by pressing control key and the mentioned key simultaneously.

MANAGE SECTION SCREEN

The manage section manages the Education, Qualification and the Experience of the candidate. One can also manage the Expenditure and Revenue. The most important option provided by this section is search of the deserving candidates through requirement matching option.

INFORMATION SECTION SCREEN

This section allows to see the output screens on the monitor and displays the detail of the candidate, company, education, qualification, experience, expenditure, revenue, search results and selected candidates information

PRINTING SECTION SCREEN

THROUGH THIS SECTION USER CAN GET FIVE REPORTS ON PRINTER CANDIDATES DETAIL REPORT COMPANIES REPORT EXPENDITURE REPORT REVENUE REPORT EXPERIENCE REPORT SELECTED CANDIDATE REPORT

CANDIDATE CREATION FORM

In this form code is generated automatically. The name and address and phone and mobile number of the candidate is stored in the relevant boxes. User can not enter in the code box. User can move on previous record, last record , first record, next record by using the option at the bottom. User can add, modify and delete the records. To actually add the record user has to press the save button.

COMPANY CREATION FORM

In this form code is generated automatically. The name and location and company is stored in the relevant boxes. User can not enter in the code box. User can move on previous record, last record , first record, next record by using the option at the bottom. User can add, modify and delete the records. To actually add the record user has to press the save button.

EDUCATION ENTRY FORM

This form takes the education of the candidate who is entered before User can not enter the education of a candidate who is not entered before User can delete the education of a candidate and can modify the contents of education also.

QUALIFICATION ENTRY FORM

This form takes the Qualification of the candidate who is entered before User can not enter the qualification of a candidate who is not entered before User can delete the qualification of a candidate and can modify the contents of qualification also.

EXPERIENCE ENTRY FORM

This form takes the experience of the candidate who is entered before User can not enter the experience of a candidate who is not entered before User can delete the experience of a candidate and can modify the contents of experience also.

EXPENDITURE ENTRY FORM

Expenditure can only be entered when company details are filled. The company does some expenses which are entered in this form. To actually add the record user has to press the add button.

PROCESSING SCREEN

Through this screen user can process the candidates for the selection. One can search the candidates on the basis of education,

qualification,experience and personal information. One can add of delete the candidates to and from the selection.

SAMPLE OUTPUT SCREENS INFORMATION SCREEN CANDIDATE

In the above form we can display the list of all candidates by just clicking the option button of candidates. The other options can also be selected by just clicking the particular option buttons.

INFORMATION SCREEN COMPANY

The company detail can also be seen by just clicking the option button named company. The other options can also be selected by clicking on the particular option buttons.

PASSWORD FORM

Dim firmname As String Private Sub Command1_Click() If Trim(Text1.Text) = "gold" Then a = MsgBox("WELCOME Sir/Madam", vbInformation, firmname) Unload Me Splash.Show Else a = MsgBox("SORRY Sir/Madam ---- PASSWORD IS WRONG", vbInformation, firmname) Text1.Text = "" Text1.SetFocus End If End Sub Private Sub Form_Activate() Text1.SetFocus End Sub Private Sub Form_Initialize()

firmname = "AEES SOFTWARE MANAGER" End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command1.SetFocus End If End Sub

MASTER FORM
Dim firmname As String

Private Sub abt_Click() Splash.Show End Sub

Private Sub al_Click() Information.Show End Sub

Private Sub ar_Click() Architect.Show End Sub

Private Sub archrpt_Click() DataReport2.Show End Sub

Private Sub cd_Click()

Candidate.Show

End Sub

Private Sub com_Click() Company.Show

End Sub

Private Sub comrep_Click() Companies.Show

End Sub

Private Sub cucrpt_Click() Candidates.Show

End Sub

Private Sub cus_Click()

Customer.Show

End Sub

Private Sub erpt_Click() DataReport4.Show End Sub

Private Sub edu_Click() Education.Show

End Sub

Private Sub exp_Click() Expenses.Show End Sub

Private Sub expen_Click() Experience.Show End Sub

Private Sub expens_Click() Expenditure.Show End Sub

Private Sub exprpt_Click() Experiences.Show End Sub

Private Sub ext_Click() End

End Sub Private Sub MDIForm_Activate() Master.Caption = firmname End Sub Private Sub MDIForm_Initialize() firmname = "AEES SOFTWARE MANAGER" End Sub Private Sub procal_Click()

Profit.Show End Sub Private Sub rec_Click() Exp_Rec.Show End Sub Private Sub rrpt_Click() DataReport5.Show End Sub Private Sub sit_Click() Site.Show End Sub Private Sub sitrpt_Click() DataReport3.Show End Sub Private Sub qua_Click() Qualification.Show End Sub Private Sub reve_Click() Revenue.Show End Sub Private Sub revenu_Click()

Collection.Show End Sub

Private Sub rqmat_Click() Search.Show End Sub Private Sub selrpt_Click() Selected.Show End Sub

CANDIDATE FORM
Dim cod As String Dim firmname As String Dim mdfy As Boolean

Private Sub Command1_Click() If Adodc1.Recordset.RecordCount = 0 Then cod = "C1" Else Adodc1.Recordset.MoveLast cod = Adodc1.Recordset("Code") cod = Val(Mid(cod, 2, (Len(cod) - 1))) + 1 cod = "C" + Trim(Str(cod)) End If Text1.Text = cod Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = ""

Text7.Text = "" Text8.Text = "" Text9.Text = "" Text10.Text = "" Text11.Text = "" Text12.Text = "" Text13.Text = "" Text14.Text = "NO" Command1.Enabled = False Command4.Enabled = True Command2.Enabled = False Command3.Enabled = False Command5.Enabled = False Command6.Enabled = False Command7.Enabled = False Command8.Enabled = False Option1.Value = False Option2.Value = False Text2.SetFocus End Sub

Private Sub Command2_Click() Command1.Enabled = False Command4.Enabled = True Command2.Enabled = False Command3.Enabled = False Command5.Enabled = False Command6.Enabled = False Command7.Enabled = False Command8.Enabled = False mdfy = True Text14.Locked = False Text2.SetFocus End Sub

Private Sub Command3_Click() a = MsgBox("Really Want To Delete The Record", vbYesNo + vbQuestion, firmname) If a = 6 Then Adodc1.Recordset.Delete Adodc1.Refresh

Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Candidates order by code" Adodc1.Refresh If Adodc1.Recordset.RecordCount <> 0 Then Adodc1.Recordset.MoveFirst Text1.Text = Adodc1.Recordset("Code") Text2.Text = Adodc1.Recordset("Name") If IsNull(Adodc1.Recordset("Address")) <> True Then Text3.Text = Adodc1.Recordset("Address") End If If IsNull(Adodc1.Recordset("City")) <> True Then Text4.Text = Adodc1.Recordset("City") End If If IsNull(Adodc1.Recordset("Zon")) <> True Then Text5.Text = Adodc1.Recordset("Zon") End If If IsNull(Adodc1.Recordset("State")) <> True Then Text6.Text = Adodc1.Recordset("State") End If If IsNull(Adodc1.Recordset("Age")) <> True Then

Text7.Text = Adodc1.Recordset("Age") End If If IsNull(Adodc1.Recordset("Sex")) <> True Then Text8.Text = Adodc1.Recordset("Sex") End If If IsNull(Adodc1.Recordset("Phone")) <> True Then Text9.Text = Adodc1.Recordset("Phone") End If

If IsNull(Adodc1.Recordset("Mobile")) <> True Then Text10.Text = Adodc1.Recordset("Mobile") End If If Adodc1.Recordset("Married") = "NO" Then Option1.Value = True Else Option2.Value = True End If If IsNull(Adodc1.Recordset("Married")) <> True Then Text11.Text = Adodc1.Recordset("Married") End If

If IsNull(Adodc1.Recordset("Salmin")) <> True Then Text12.Text = Adodc1.Recordset("SalMin") End If If IsNull(Adodc1.Recordset("Salmax")) <> True Then Text13.Text = Adodc1.Recordset("SalMax") End If Else Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Command6.Enabled = False Command7.Enabled = False Command8.Enabled = False Command1.Enabled = True Command1.SetFocus Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = ""

Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text9.Text = "" Text10.Text = "" Text11.Text = "" Text12.Text = "" Text13.Text = "" Text14.Text = "" End If Else a = MsgBox("Delete operation Cancelled", vbInformation, firmname) End If End Sub

Private Sub Command4_Click() If Text2.Text = "" Or Text3.Text = "" Or Text12.Text = "" Then a = MsgBox("Can't Leave Empty", 0, firmname) Text2.SetFocus

If Text14.Text <> "NO" Or Text14.Text <> "YES" Then a = MsgBox("Error in Selected Field", vbCritical, firmname) Text14.SetFocus End If Else If mdfy = True Then Text14.Locked = True Adodc1.RecordSource = "Select * from Candidates where code='" & Trim(Text1.Text) & "'" Adodc1.Refresh Adodc1.Recordset.Delete Adodc1.Refresh End If Adodc1.Recordset.AddNew Adodc1.Recordset("Code") = Text1.Text Adodc1.Recordset("Name") = Text2.Text Adodc1.Recordset("Address") = Text3.Text Adodc1.Recordset("City") = Text4.Text Adodc1.Recordset("Zon") = Text5.Text Adodc1.Recordset("State") = Text6.Text Adodc1.Recordset("Age") = Text7.Text

Adodc1.Recordset("Sex") = Text8.Text Adodc1.Recordset("Phone") = Val(Text9.Text) Adodc1.Recordset("Mobile") = Text10.Text Adodc1.Recordset("Married") = Text11.Text Adodc1.Recordset("SalMin") = Val(Text12.Text) Adodc1.Recordset("SalMax") = Val(Text13.Text) Adodc1.Recordset("Selected") = Trim(Text14.Text) Adodc1.Recordset.Update Adodc1.Refresh If mdfy = True Then a = MsgBox("The Record Modified", vbInformation, firmname) mdfy = False Else a = MsgBox("The Record Added", vbInformation, firmname) End If Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Candidates order by code" Adodc1.Refresh Command2.Enabled = True Command3.Enabled = True

Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Command7.Enabled = True Command8.Enabled = True Command4.Enabled = False Command1.Enabled = True Command1.SetFocus End If End Sub

Private Sub Command5_Click() Adodc1.Recordset.MoveFirst Text1.Text = Adodc1.Recordset("Code") Text2.Text = Adodc1.Recordset("Name") If IsNull(Adodc1.Recordset("Address")) <> True Then Text3.Text = Adodc1.Recordset("Address") End If If IsNull(Adodc1.Recordset("City")) <> True Then Text4.Text = Adodc1.Recordset("City")

End If If IsNull(Adodc1.Recordset("Zon")) <> True Then Text5.Text = Adodc1.Recordset("Zon") End If If IsNull(Adodc1.Recordset("State")) <> True Then Text6.Text = Adodc1.Recordset("State") End If If IsNull(Adodc1.Recordset("Age")) <> True Then Text7.Text = Adodc1.Recordset("Age") End If If IsNull(Adodc1.Recordset("Sex")) <> True Then Text8.Text = Adodc1.Recordset("Sex") End If If IsNull(Adodc1.Recordset("Phone")) <> True Then Text9.Text = Adodc1.Recordset("Phone") End If

If IsNull(Adodc1.Recordset("Mobile")) <> True Then Text10.Text = Adodc1.Recordset("Mobile") End If

If Adodc1.Recordset("Married") = "NO" Then Option1.Value = True Else Option2.Value = True End If If IsNull(Adodc1.Recordset("Married")) <> True Then Text11.Text = Adodc1.Recordset("Married") End If If IsNull(Adodc1.Recordset("Salmin")) <> True Then Text12.Text = Adodc1.Recordset("SalMin") End If If IsNull(Adodc1.Recordset("Salmax")) <> True Then Text13.Text = Adodc1.Recordset("SalMax") End If If IsNull(Adodc1.Recordset("Selected")) <> True Then Text14.Text = Adodc1.Recordset("Selected") End If End Sub

Private Sub Command6_Click()

Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF = True Then a = MsgBox("No Records Back", vbInformation, firmname) Adodc1.Recordset.MoveFirst End If Text1.Text = Adodc1.Recordset("Code") Text2.Text = Adodc1.Recordset("Name") If IsNull(Adodc1.Recordset("Address")) <> True Then Text3.Text = Adodc1.Recordset("Address") End If If IsNull(Adodc1.Recordset("City")) <> True Then Text4.Text = Adodc1.Recordset("City") End If If IsNull(Adodc1.Recordset("Zon")) <> True Then Text5.Text = Adodc1.Recordset("Zon") End If If IsNull(Adodc1.Recordset("State")) <> True Then Text6.Text = Adodc1.Recordset("State") End If If IsNull(Adodc1.Recordset("Age")) <> True Then

Text7.Text = Adodc1.Recordset("Age") End If If IsNull(Adodc1.Recordset("Sex")) <> True Then Text8.Text = Adodc1.Recordset("Sex") End If If IsNull(Adodc1.Recordset("Phone")) <> True Then Text9.Text = Adodc1.Recordset("Phone") End If

If IsNull(Adodc1.Recordset("Mobile")) <> True Then Text10.Text = Adodc1.Recordset("Mobile") End If If Adodc1.Recordset("Married") = "NO" Then Option1.Value = True Else Option2.Value = True End If If IsNull(Adodc1.Recordset("Married")) <> True Then Text11.Text = Adodc1.Recordset("Married") End If

If IsNull(Adodc1.Recordset("Salmin")) <> True Then Text12.Text = Adodc1.Recordset("SalMin") End If If IsNull(Adodc1.Recordset("Salmax")) <> True Then Text13.Text = Adodc1.Recordset("SalMax") End If If IsNull(Adodc1.Recordset("Selected")) <> True Then Text13.Text = Adodc1.Recordset("Selected") End If

End Sub

Private Sub Command7_Click() Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF = True Then a = MsgBox("No Next Record", vbInformation, firmname) Adodc1.Recordset.MoveLast End If Text1.Text = Adodc1.Recordset("Code") Text2.Text = Adodc1.Recordset("Name")

If IsNull(Adodc1.Recordset("Address")) <> True Then Text3.Text = Adodc1.Recordset("Address") End If If IsNull(Adodc1.Recordset("City")) <> True Then Text4.Text = Adodc1.Recordset("City") End If If IsNull(Adodc1.Recordset("Zon")) <> True Then Text5.Text = Adodc1.Recordset("Zon") End If If IsNull(Adodc1.Recordset("State")) <> True Then Text6.Text = Adodc1.Recordset("State") End If If IsNull(Adodc1.Recordset("Age")) <> True Then Text7.Text = Adodc1.Recordset("Age") End If If IsNull(Adodc1.Recordset("Sex")) <> True Then Text8.Text = Adodc1.Recordset("Sex") End If If IsNull(Adodc1.Recordset("Phone")) <> True Then Text9.Text = Adodc1.Recordset("Phone")

End If

If IsNull(Adodc1.Recordset("Mobile")) <> True Then Text10.Text = Adodc1.Recordset("Mobile") End If If Adodc1.Recordset("Married") = "NO" Then Option1.Value = True Else Option2.Value = True End If If IsNull(Adodc1.Recordset("Married")) <> True Then Text11.Text = Adodc1.Recordset("Married") End If If IsNull(Adodc1.Recordset("Salmin")) <> True Then Text12.Text = Adodc1.Recordset("SalMin") End If If IsNull(Adodc1.Recordset("Salmax")) <> True Then Text13.Text = Adodc1.Recordset("SalMax") End If If IsNull(Adodc1.Recordset("Selected")) <> True Then

Text14.Text = Adodc1.Recordset("Selected") End If

End Sub

Private Sub Command8_Click() Adodc1.Recordset.MoveLast Text1.Text = Adodc1.Recordset("Code") Text2.Text = Adodc1.Recordset("Name") If IsNull(Adodc1.Recordset("Address")) <> True Then Text3.Text = Adodc1.Recordset("Address") End If If IsNull(Adodc1.Recordset("City")) <> True Then Text4.Text = Adodc1.Recordset("City") End If If IsNull(Adodc1.Recordset("Zon")) <> True Then Text5.Text = Adodc1.Recordset("Zon") End If If IsNull(Adodc1.Recordset("State")) <> True Then Text6.Text = Adodc1.Recordset("State")

End If If IsNull(Adodc1.Recordset("Age")) <> True Then Text7.Text = Adodc1.Recordset("Age") End If If IsNull(Adodc1.Recordset("Sex")) <> True Then Text8.Text = Adodc1.Recordset("Sex") End If If IsNull(Adodc1.Recordset("Phone")) <> True Then Text9.Text = Adodc1.Recordset("Phone") End If

If IsNull(Adodc1.Recordset("Mobile")) <> True Then Text10.Text = Adodc1.Recordset("Mobile") End If If Adodc1.Recordset("Married") = "NO" Then Option1.Value = True Else Option2.Value = True End If If IsNull(Adodc1.Recordset("Married")) <> True Then

Text11.Text = Adodc1.Recordset("Married") End If If IsNull(Adodc1.Recordset("Salmin")) <> True Then Text12.Text = Adodc1.Recordset("SalMin") End If If IsNull(Adodc1.Recordset("Salmax")) <> True Then Text13.Text = Adodc1.Recordset("SalMax") End If If IsNull(Adodc1.Recordset("Selected")) <> True Then Text14.Text = Adodc1.Recordset("Selected") End If

End Sub

Private Sub Form_Activate()

Adodc1.ConnectionString = "Provider=MSDAORA.1;Password=TIGER;User ID=SCOTT;Persist Security Info=True" Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Candidates order by code"

Adodc1.Refresh Text1.MaxLength = 10 Text2.MaxLength = 20 Text3.MaxLength = 30 Text4.MaxLength = 20 Text5.MaxLength = 10 Text6.MaxLength = 15 Text7.MaxLength = 2 Text8.MaxLength = 1 Text9.MaxLength = 10 Text10.MaxLength = 15 Text11.MaxLength = 3 Text12.MaxLength = 6 Text13.MaxLength = 6

Command4.Enabled = False If Adodc1.Recordset.RecordCount = 0 Then Command2.Enabled = False Command3.Enabled = False Command5.Enabled = False

Command6.Enabled = False Command7.Enabled = False Command8.Enabled = False Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text9.Text = "" Text10.Text = "" Text11.Text = "" Text12.Text = "" Text13.Text = "" Text14.Text = "NO"

Text1.Locked = True Text11.Locked = True

Text14.Locked = True

a = MsgBox("Press Add button to Enter New Record", vbInformation, firmname) Else Adodc1.Recordset.MoveFirst Text1.Text = Adodc1.Recordset("Code") Text2.Text = Adodc1.Recordset("Name") If IsNull(Adodc1.Recordset("Address")) <> True Then Text3.Text = Adodc1.Recordset("Address") End If If IsNull(Adodc1.Recordset("City")) <> True Then Text4.Text = Adodc1.Recordset("City") End If If IsNull(Adodc1.Recordset("Zon")) <> True Then Text5.Text = Adodc1.Recordset("Zon") End If If IsNull(Adodc1.Recordset("State")) <> True Then Text6.Text = Adodc1.Recordset("State") End If If IsNull(Adodc1.Recordset("Age")) <> True Then

Text7.Text = Adodc1.Recordset("Age") End If If IsNull(Adodc1.Recordset("Sex")) <> True Then Text8.Text = Adodc1.Recordset("Sex") End If If IsNull(Adodc1.Recordset("Phone")) <> True Then Text9.Text = Adodc1.Recordset("Phone") End If

If IsNull(Adodc1.Recordset("Mobile")) <> True Then Text10.Text = Adodc1.Recordset("Mobile") End If If Adodc1.Recordset("Married") = "NO" Then Option1.Value = True Else Option2.Value = True End If If IsNull(Adodc1.Recordset("Married")) <> True Then Text11.Text = Adodc1.Recordset("Married") End If

If IsNull(Adodc1.Recordset("Salmin")) <> True Then Text12.Text = Adodc1.Recordset("SalMin") End If If IsNull(Adodc1.Recordset("Salmax")) <> True Then Text13.Text = Adodc1.Recordset("SalMax") End If If IsNull(Adodc1.Recordset("Selected")) <> True Then Text14.Text = Adodc1.Recordset("Selected") End If

End If Command1.SetFocus End Sub

Private Sub Form_Initialize() firmname = "AEES SOFTWARE MANAGER" mdfy = False End Sub

Private Sub Option1_Click()

Text11.Text = "NO" Text12.SetFocus End Sub

Private Sub Option1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text11.Text = "NO" Text12.SetFocus End If End Sub

Private Sub Option2_Click() Text11.Text = "YES" Text12.SetFocus

End Sub

Private Sub Option2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text11.Text = "YES"

Text12.SetFocus End If End Sub

Private Sub Text10_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If If KeyAscii = 13 Then Text11.SetFocus End If End Sub

Private Sub Text11_GotFocus() Option1.SetFocus End Sub

Private Sub Text11_KeyPress(KeyAscii As Integer) If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 13 Then If KeyAscii = 13 Then

Text12.SetFocus End If Else KeyAscii = 0 End If

End Sub

Private Sub Text12_KeyPress(KeyAscii As Integer) If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 13 Or KeyAscii = 8 Then If KeyAscii = 13 Then Text13.SetFocus End If Else KeyAscii = 0 End If End Sub

Private Sub Text13_KeyPress(KeyAscii As Integer)

If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 13 Or KeyAscii = 8 Then If KeyAscii = 13 And Command4.Enabled = True Then Text14.SetFocus End If Else KeyAscii = 0 End If

End Sub

Private Sub Text14_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If

If KeyAscii = 13 Then Command4.SetFocus End If End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If

If KeyAscii = 13 Then Text3.SetFocus End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If

If KeyAscii = 13 Then Text4.SetFocus End If

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If

If KeyAscii = 13 Then Text5.SetFocus End If

End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If

If KeyAscii = 13 Then Text6.SetFocus

End If

End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If

If KeyAscii = 13 Then Text7.SetFocus End If

End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer) If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 13 Then If KeyAscii = 13 Then Text8.SetFocus

End If Else KeyAscii = 0 End If End Sub

Private Sub Text8_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text9.SetFocus End If If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If If KeyAscii = 70 Or KeyAscii = 77 Or KeyAscii = 13 Or KeyAscii = 8 Then Else KeyAscii = 0 End If End Sub Private Sub Text9_KeyPress(KeyAscii As Integer) If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 13 Then

If KeyAscii = 13 Then Text10.SetFocus End If Else KeyAscii = 0 End If End Sub

COMPANY FORM
Dim cod As String Dim firmname As String Dim mdfy As Boolean

Private Sub Command1_Click() If Adodc1.Recordset.RecordCount = 0 Then cod = "COM1" Else Adodc1.Recordset.MoveLast cod = Adodc1.Recordset("Code") cod = Val(Mid(cod, 4, (Len(cod) - 1))) + 1

cod = "COM" + Trim(Str(cod)) End If Text1.Text = cod Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Command1.Enabled = False Command4.Enabled = True Command2.Enabled = False Command3.Enabled = False Command5.Enabled = False Command6.Enabled = False Command7.Enabled = False Command8.Enabled = False Text2.SetFocus End Sub

Private Sub Command2_Click() Command1.Enabled = False Command4.Enabled = True Command2.Enabled = False Command3.Enabled = False Command5.Enabled = False Command6.Enabled = False Command7.Enabled = False Command8.Enabled = False mdfy = True Text8.Locked = False Text2.SetFocus End Sub

Private Sub Command3_Click()

a = MsgBox("Do you really want to delete the record", vbYesNo + vbQuestion, firmname) If a = 6 Then Adodc1.Recordset.Delete

Adodc1.Refresh Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Company order by code" Adodc1.Refresh If Adodc1.Recordset.RecordCount <> 0 Then Adodc1.Recordset.MoveFirst Text1.Text = Adodc1.Recordset("Code") Text2.Text = Adodc1.Recordset("Name") If IsNull(Adodc1.Recordset("Address")) <> True Then Text3.Text = Adodc1.Recordset("Address") End If If IsNull(Adodc1.Recordset("City")) <> True Then Text4.Text = Adodc1.Recordset("City") End If If IsNull(Adodc1.Recordset("Location")) <> True Then Text5.Text = Adodc1.Recordset("Location") End If If IsNull(Adodc1.Recordset("Phone")) <> True Then Text6.Text = Adodc1.Recordset("Phone") End If

If IsNull(Adodc1.Recordset("Manager")) <> True Then Text7.Text = Adodc1.Recordset("Manager") End If If IsNull(Adodc1.Recordset("Business")) <> True Then Text8.Text = Adodc1.Recordset("Business") End If Else Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Command6.Enabled = False Command7.Enabled = False Command8.Enabled = False Command1.Enabled = True Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = ""

Text6.Text = "" Text7.Text = "" Text8.Text = "" Command1.SetFocus End If Else a = MsgBox("Delete operation Cancelled", vbInformation, firmname) End If End Sub

Private Sub Command4_Click()

If Text2.Text = "" Or Text3.Text = "" Then a = MsgBox("Can't Leave Empty", vbCritical, firmname) Text2.SetFocus Else If mdfy = True Then Text8.Locked = True Adodc1.Recordset.Delete Adodc1.Refresh

End If Adodc1.Recordset.AddNew Adodc1.Recordset("Code") = Trim(Text1.Text) Adodc1.Recordset("Name") = Trim(Text2.Text) Adodc1.Recordset("Address") = Trim(Text3.Text) Adodc1.Recordset("City") = Trim(Text4.Text) Adodc1.Recordset("Location") = Trim(Text5.Text) Adodc1.Recordset("Phone") = Trim(Text6.Text) Adodc1.Recordset("Manager") = Trim(Text7.Text) Adodc1.Recordset("Business") = Val(Text8.Text) Adodc1.Recordset.Update Adodc1.Refresh Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Company order by code" Adodc1.Refresh Text1.Text = Adodc1.Recordset("Code") Text2.Text = Adodc1.Recordset("Name") If IsNull(Adodc1.Recordset("Address")) <> True Then Text3.Text = Adodc1.Recordset("Address") End If

If IsNull(Adodc1.Recordset("City")) <> True Then Text4.Text = Adodc1.Recordset("City") End If If IsNull(Adodc1.Recordset("Location")) <> True Then Text5.Text = Adodc1.Recordset("Location") End If If IsNull(Adodc1.Recordset("Phone")) <> True Then Text6.Text = Adodc1.Recordset("Phone") End If If IsNull(Adodc1.Recordset("Manager")) <> True Then Text7.Text = Adodc1.Recordset("Manager") End If If IsNull(Adodc1.Recordset("Business")) <> True Then Text8.Text = Adodc1.Recordset("Business") End If Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True

Command7.Enabled = True Command8.Enabled = True Command4.Enabled = False Command1.Enabled = True Command1.SetFocus End If End Sub

Private Sub Command5_Click() Adodc1.Recordset.MoveFirst Text1.Text = Adodc1.Recordset("Code") Text2.Text = Adodc1.Recordset("Name") If IsNull(Adodc1.Recordset("Address")) <> True Then Text3.Text = Adodc1.Recordset("Address") End If If IsNull(Adodc1.Recordset("City")) <> True Then Text4.Text = Adodc1.Recordset("City") End If If IsNull(Adodc1.Recordset("Location")) <> True Then Text5.Text = Adodc1.Recordset("Location")

End If If IsNull(Adodc1.Recordset("Phone")) <> True Then Text6.Text = Adodc1.Recordset("Phone") End If If IsNull(Adodc1.Recordset("Manager")) <> True Then Text7.Text = Adodc1.Recordset("Manager") End If If IsNull(Adodc1.Recordset("Business")) <> True Then Text8.Text = Adodc1.Recordset("Business") End If End Sub

Private Sub Command6_Click() Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF = True Then a = MsgBox("No Records Back", vbInformation, firmname) Adodc1.Recordset.MoveFirst End If Text1.Text = Adodc1.Recordset("Code") Text2.Text = Adodc1.Recordset("Name")

If IsNull(Adodc1.Recordset("Address")) <> True Then Text3.Text = Adodc1.Recordset("Address") End If If IsNull(Adodc1.Recordset("City")) <> True Then Text4.Text = Adodc1.Recordset("City") End If If IsNull(Adodc1.Recordset("Location")) <> True Then Text5.Text = Adodc1.Recordset("Location") End If If IsNull(Adodc1.Recordset("Phone")) <> True Then Text6.Text = Adodc1.Recordset("Phone") End If If IsNull(Adodc1.Recordset("Manager")) <> True Then Text7.Text = Adodc1.Recordset("Manager") End If If IsNull(Adodc1.Recordset("Business")) <> True Then Text8.Text = Adodc1.Recordset("Business") End If End Sub

Private Sub Command7_Click() Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF = True Then a = MsgBox("No Next Record", vbInformation, firmname) Adodc1.Recordset.MoveLast End If Text1.Text = Adodc1.Recordset("Code") Text2.Text = Adodc1.Recordset("Name") If IsNull(Adodc1.Recordset("Address")) <> True Then Text3.Text = Adodc1.Recordset("Address") End If If IsNull(Adodc1.Recordset("City")) <> True Then Text4.Text = Adodc1.Recordset("City") End If If IsNull(Adodc1.Recordset("Location")) <> True Then Text5.Text = Adodc1.Recordset("Location") End If If IsNull(Adodc1.Recordset("Phone")) <> True Then Text6.Text = Adodc1.Recordset("Phone") End If

If IsNull(Adodc1.Recordset("Manager")) <> True Then Text7.Text = Adodc1.Recordset("Manager") End If If IsNull(Adodc1.Recordset("Business")) <> True Then Text8.Text = Adodc1.Recordset("Business") End If End Sub

Private Sub Command8_Click() Adodc1.Recordset.MoveLast Text1.Text = Adodc1.Recordset("Code") Text2.Text = Adodc1.Recordset("Name") If IsNull(Adodc1.Recordset("Address")) <> True Then Text3.Text = Adodc1.Recordset("Address") End If If IsNull(Adodc1.Recordset("City")) <> True Then Text4.Text = Adodc1.Recordset("City") End If If IsNull(Adodc1.Recordset("Location")) <> True Then Text5.Text = Adodc1.Recordset("Location")

End If If IsNull(Adodc1.Recordset("Phone")) <> True Then Text6.Text = Adodc1.Recordset("Phone") End If If IsNull(Adodc1.Recordset("Manager")) <> True Then Text7.Text = Adodc1.Recordset("Manager") End If If IsNull(Adodc1.Recordset("Business")) <> True Then Text8.Text = Adodc1.Recordset("Business") End If End Sub

Private Sub Form_Activate() Adodc1.ConnectionString ="Provider=MSDAORA.1;Password=TIGER;User ID=SCOTT;Persist Security Info=True" Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Company order by code" Adodc1.Refresh Text1.MaxLength = 10 Text2.MaxLength = 20

Text3.MaxLength = 30 Text4.MaxLength = 20 Text5.MaxLength = 10 Text6.MaxLength = 15 Text7.MaxLength = 15 Text8.MaxLength = 15

Text8.Locked = True

Command4.Enabled = False If Adodc1.Recordset.RecordCount = 0 Then Command2.Enabled = False Command3.Enabled = False Command5.Enabled = False Command6.Enabled = False Command7.Enabled = False Command8.Enabled = False Text1.Text = "" Text2.Text = "" Text3.Text = ""

Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = ""

a = MsgBox("Press Add button to Enter New Record", vbInformation, firmname) Else Adodc1.Recordset.MoveFirst Text1.Text = Adodc1.Recordset("Code") Text2.Text = Adodc1.Recordset("Name") If IsNull(Adodc1.Recordset("Address")) <> True Then Text3.Text = Adodc1.Recordset("Address") End If If IsNull(Adodc1.Recordset("City")) <> True Then Text4.Text = Adodc1.Recordset("City") End If If IsNull(Adodc1.Recordset("Location")) <> True Then Text5.Text = Adodc1.Recordset("Location") End If

If IsNull(Adodc1.Recordset("Phone")) <> True Then Text6.Text = Adodc1.Recordset("Phone") End If If IsNull(Adodc1.Recordset("Manager")) <> True Then Text7.Text = Adodc1.Recordset("Manager") End If If IsNull(Adodc1.Recordset("Business")) <> True Then Text8.Text = Adodc1.Recordset("Business") End If End If Command1.SetFocus End Sub

Private Sub Form_Initialize() firmname = "AEES Software Manager" mdfy = False End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then

KeyAscii = KeyAscii - 32 End If If KeyAscii = 13 Then Text2.SetFocus End If End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If

If KeyAscii = 13 Then Text3.SetFocus End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then

KeyAscii = KeyAscii - 32 End If

If KeyAscii = 13 Then Text4.SetFocus End If

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If

If KeyAscii = 13 Then Text5.SetFocus End If

End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If

If KeyAscii = 13 Then Text6.SetFocus End If

End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer) If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 13 Then If KeyAscii = 13 Then Text7.SetFocus End If Else KeyAscii = 0 End If End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If

If KeyAscii = 13 Then Text8.SetFocus End If

End Sub Private Sub Text8_KeyPress(KeyAscii As Integer) If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 13 Or KeyAscii = 46 Or KeyAscii = 8 Then If KeyAscii = 13 Then Command4.SetFocus End If Else KeyAscii = 0 End If End Sub

COLLECTION FORM
Dim firmname As String Dim cod As String Private Sub Command1_Click() If Combo1.Text = "" Or Text1.Text = "" Or Text2.Text = "" Then a = MsgBox("Can't Leave Empty", vbCritical, firmname) Else Adodc1.Recordset.AddNew Adodc1.Recordset("ComCode") = cod Adodc1.Recordset("ComName") = Combo1.Text Adodc1.Recordset("CDate") = Trim(Text1.Text) Adodc1.Recordset("Amount") = Val(Text2.Text) Adodc1.Recordset("Detail") = Trim(Text3.Text) Adodc1.Recordset.Update Adodc1.Refresh Adodc2.Recordset("Business") = Adodc2.Recordset("Business") + Val(Text2.Text) Adodc2.Recordset.Update Adodc2.Refresh Adodc1.CommandType = adCmdText

Adodc1.RecordSource = "Select * from Collection where ComCode='" & cod & "'" Adodc1.Refresh Combo1.Text = "" Text2.Text = "" Text3.Text = "" End If Combo1.SetFocus End Sub

Private Sub Command2_Click() If Combo1.Text <> "" And Adodc1.Recordset.RecordCount <> 0 Then a = MsgBox("The Entry Will Be Deleted Permanently", vbYesNo + vbQuestion, firmname) If a = 6 Then Adodc1.Recordset.Delete Adodc1.Refresh Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Collection where ComCode='" & cod & "'" Adodc1.Refresh

a = MsgBox("Deleted", vbInformation, firmname) If Adodc1.Recordset.RecordCount = 0 Then Combo1.Text = "" End If Else a = MsgBox("Cancelled", vbInformation, firmname) Text1.Text = "" Text2.Text = "" Text3.Text = "" End If End If Combo1.SetFocus End Sub

Private Sub Combo1_Click() Adodc2.RecordSource = "Select * from Company where Name='" & Trim(Combo1.Text) & "'" Adodc2.Refresh cod = Adodc2.Recordset("Code") Adodc1.CommandType = adCmdText

Adodc1.RecordSource = "Select * from Collection where ComCode='" & cod & "'" Adodc1.Refresh Label1(5).Caption = cod End Sub

Private Sub Combo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Adodc2.RecordSource = "Select * from Company where Name='" & Trim(Combo1.Text) & "'" Adodc2.Refresh cod = Adodc2.Recordset("Code") Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Collection where ComCode='" & cod & "'" Adodc1.Refresh Label1(5).Caption = cod Text1.SetFocus End If End Sub

Private Sub Form_Activate() Adodc1.ConnectionString = "Provider=MSDAORA.1;Password=TIGER;User ID=SCOTT;Persist Security Info=True" Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Collection order by ComCode" Adodc1.Refresh Adodc2.ConnectionString = "Provider=MSDAORA.1;Password=TIGER;User ID=SCOTT;Persist Security Info=True" Adodc2.CommandType = adCmdText Adodc2.RecordSource = "Select * from Company" Adodc2.Refresh If Adodc2.Recordset.RecordCount <> 0 Then Adodc2.Recordset.MoveFirst While Adodc2.Recordset.EOF <> True Combo1.AddItem Adodc2.Recordset("Name") Adodc2.Recordset.MoveNext Wend Text1.Text = "" Text2.Text = ""

Text3.Text = "" Text1.MaxLength = 10 Text2.MaxLength = 8 Text3.MaxLength = 30 Text1.Text = Format(Date, "dd-mm-yyyy") Combo1.SetFocus Else a = MsgBox("First Create Company", vbCritical, firmname) Unload Me End If End Sub

Private Sub Form_Initialize() firmname = "AEES Software System" End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text3.SetFocus End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If If KeyAscii = 13 Then Command1.SetFocus End If End Sub

EDUCATION FORM
Dim firmname As String Dim mdfy As Boolean Private Sub Combo1_Click() If Combo1.Text <> "" Then Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from education where code='" & Trim(Combo1.Text) & "' order by Sno" Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then Command2.Enabled = False Command3.Enabled = False Else Command2.Enabled = True Command3.Enabled = True End If End If End Sub

Private Sub Combo1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then Text1.SetFocus End If End Sub Private Sub Command1_Click() Dim ctr As Integer If Combo1.Text = "" Or Text1.Text = "" Or Text5.Text = "" Then a = MsgBox("Can not leave Empty", vbCritical, firmname) Text1.SetFocus Else If mdfy = True Then Adodc1.Recordset.Delete Adodc1.Refresh Command1.Caption = "&Add" Command2.Enabled = True Command3.Enabled = True End If Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from education where code='" & Trim(Combo1.Text) & "' order by Sno" Adodc1.Refresh

If Adodc1.Recordset.RecordCount <> 0 Then Adodc1.Recordset.MoveLast ctr = Adodc1.Recordset("SNo") ctr = ctr + 1 Else ctr = 1 End If Adodc1.Recordset.AddNew Adodc1.Recordset("Code") = Trim(Combo1.Text) Adodc1.Recordset("SNo") = ctr Adodc1.Recordset("Class") = Trim(Text1.Text) Adodc1.Recordset("University") = Trim(Text2.Text) Adodc1.Recordset("Subjects") = Trim(Text3.Text) Adodc1.Recordset("Year") = Trim(Text4.Text) Adodc1.Recordset("Percentage") = Val(Text5.Text) Adodc1.Recordset.Update Adodc1.Refresh 'Adodc1.CommandType = adCmdText 'Adodc1.RecordSource = "Select Code,SNo,University,Sujects,Year,Percentage from Education where code='" & Trim(Combo1.Text) & "'"

Adodc1.Refresh Command2.Enabled = True Command3.Enabled = True Combo1.SetFocus End If

End Sub

Private Sub Command2_Click()

a = MsgBox("Do you really want to delete the record", vbYesNo + vbQuestion, firmname) If a = 6 Then Adodc1.CommandType = adCmdText Adodc1.Recordset.Delete Adodc1.Refresh Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from education where code='" & Trim(Combo1.Text) & "' order by sno" Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then

Command2.Enabled = False Command3.Enabled = False Combo1.SetFocus Else Combo1.SetFocus End If Combo1.Text = "" Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Else a = MsgBox("Delete operation Cancelled", vbInformation, firmname) Command2.SetFocus End If End Sub

Private Sub DataCombo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then

Adodc2.CommandType = adCmdText Adodc2.RecordSource = "Select * from Education where code='" & DataCombo1.Text & "'" Adodc2.Refresh Text1.SetFocus End If End Sub

Private Sub Command3_Click() mdfy = True Combo1.Text = Adodc1.Recordset("Code") If IsNull(Adodc1.Recordset("Class")) <> True Then Text1.Text = Adodc1.Recordset("Class") End If If IsNull(Adodc1.Recordset("University")) <> True Then Text2.Text = Adodc1.Recordset("University") End If If IsNull(Adodc1.Recordset("Subjects")) <> True Then Text3.Text = Adodc1.Recordset("Subjects") End If If IsNull(Adodc1.Recordset("Year")) <> True Then

Text4.Text = Adodc1.Recordset("Year") End If If IsNull(Adodc1.Recordset("Percentage")) <> True Then Text5.Text = Val(Adodc1.Recordset("Percentage")) End If Command1.Caption = "&Edit" Command2.Enabled = False Command3.Enabled = False Text2.SetFocus End Sub

Private Sub Form_Activate() Adodc1.ConnectionString = "Provider=MSDAORA.1;Password=TIGER;User ID=SCOTT;Persist Security Info=True" Adodc2.ConnectionString = "Provider=MSDAORA.1;Password=TIGER;User ID=SCOTT;Persist Security Info=True" Adodc1.CommandType = adCmdText Adodc2.CommandType = adCmdText Adodc2.RecordSource = "Select code from candidates order by code"

Adodc2.Refresh If Adodc2.Recordset.RecordCount = 0 Then a = MsgBox("First Create the candidates", vbCritical, firmname) Unload Me Else Adodc2.Recordset.MoveFirst While Adodc2.Recordset.EOF <> True Combo1.AddItem Adodc2.Recordset("Code") Adodc2.Recordset.MoveNext Wend Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Education" Adodc1.Refresh Combo1.Text = "" Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text1.MaxLength = 40

Text2.MaxLength = 40 Text3.MaxLength = 50 Text4.MaxLength = 4 Text5.MaxLength = 5 If Combo1.Text = "" Then Combo1.SetFocus Else Text1.SetFocus End If End If End Sub

Private Sub Form_Initialize() firmname = "AEES Software Manager" mdfy = False End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32

End If

If KeyAscii = 13 Then Text2.SetFocus End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If

If KeyAscii = 13 Then Text3.SetFocus End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If If KeyAscii = 13 Then Text4.SetFocus End If End Sub Private Sub Text4_KeyPress(KeyAscii As Integer) If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 13 Or KeyAscii = 8 Then If KeyAscii = 13 Then Text5.SetFocus End If Else KeyAscii = 0 End If End Sub Private Sub Text5_KeyPress(KeyAscii As Integer) If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 13 Or KeyAscii = 8 Then If KeyAscii = 13 Then

Command1.SetFocus End If Else KeyAscii = 0 End If End Sub

QUALIFICATION FORM
Dim firmname As String Dim mdfy As Boolean

Private Sub Combo1_Click() If Combo1.Text <> "" Then Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from qualification where code='" & Trim(Combo1.Text) & "' order by Sno" Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then Command2.Enabled = False Command3.Enabled = False Else Command2.Enabled = True Command3.Enabled = True End If End If End Sub

Private Sub Combo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text1.SetFocus End If End Sub

Private Sub Command1_Click() Dim ctr As Integer If Combo1.Text = "" Or Text1.Text = "" Or Text5.Text = "" Or Text6.Text = "" Then a = MsgBox("Can not leave Empty", vbCritical, firmname) Text1.SetFocus Else If mdfy = True Then Adodc1.Recordset.Delete Adodc1.Refresh Command1.Caption = "&Add" Command2.Enabled = True Command3.Enabled = True End If

Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from qualification where code='" & Trim(Combo1.Text) & "' order by Sno" Adodc1.Refresh If Adodc1.Recordset.RecordCount <> 0 Then Adodc1.Recordset.MoveLast ctr = Adodc1.Recordset("SNo") ctr = ctr + 1 Else ctr = 1 End If Adodc1.Recordset.AddNew Adodc1.Recordset("Code") = Trim(Combo1.Text) Adodc1.Recordset("SNo") = ctr Adodc1.Recordset("Course") = Trim(Text1.Text) Adodc1.Recordset("Institution") = Trim(Text2.Text) Adodc1.Recordset("Syllabus") = Trim(Text3.Text) Adodc1.Recordset("QDate") = Trim(Text4.Text) Adodc1.Recordset("Duration") = Val(Text5.Text) Adodc1.Recordset("Grade") = Trim(Text6.Text) Adodc1.Recordset.Update

Adodc1.Refresh 'Adodc1.CommandType = adCmdText 'Adodc1.RecordSource = "Select Code,SNo,University,Sujects,Year,Percentage from qualification where code='" & Trim(Combo1.Text) & "'" Adodc1.Refresh Command2.Enabled = True Command3.Enabled = True Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text4.Text = Format(Date, "dd-mm-yyyy") End If

End Sub

Private Sub Command2_Click()

a = MsgBox("Do you really want to delete the record", vbYesNo + vbQuestion, firmname) If a = 6 Then Adodc1.CommandType = adCmdText Adodc1.Recordset.Delete Adodc1.Refresh Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from qualification where code='" & Trim(Combo1.Text) & "' order by sno" Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then Command2.Enabled = False Command3.Enabled = False Combo1.SetFocus Else Combo1.SetFocus End If Combo1.Text = "" Text1.Text = "" Text2.Text = "" Text3.Text = ""

Text4.Text = "" Text5.Text = "" Text6.Text = "" Else a = MsgBox("Delete operation Cancelled", vbInformation, firmname) Command2.SetFocus End If End Sub

Private Sub DataCombo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Adodc2.CommandType = adCmdText Adodc2.RecordSource = "Select * from qualification where code='" & DataCombo1.Text & "'" Adodc2.Refresh Text1.SetFocus End If End Sub

Private Sub Command3_Click() mdfy = True

Combo1.Text = Adodc1.Recordset("Code") If IsNull(Adodc1.Recordset("Course")) <> True Then Text1.Text = Adodc1.Recordset("Course") End If If IsNull(Adodc1.Recordset("Institution")) <> True Then Text2.Text = Adodc1.Recordset("Institution") End If If IsNull(Adodc1.Recordset("Syllabus")) <> True Then Text3.Text = Adodc1.Recordset("Syllabus") End If If IsNull(Adodc1.Recordset("Date")) <> True Then Text4.Text = Adodc1.Recordset("QDate") End If If IsNull(Adodc1.Recordset("Duration")) <> True Then Text5.Text = Val(Adodc1.Recordset("Duration")) End If If IsNull(Adodc1.Recordset("Grade")) <> True Then Text5.Text = Val(Adodc1.Recordset("Grade")) End If Command1.Caption = "&Edit"

Command2.Enabled = False Command3.Enabled = False Text2.SetFocus End Sub

Private Sub Form_Activate() Adodc1.ConnectionString = "Provider=MSDAORA.1;Password=TIGER;User ID=SCOTT;Persist Security Info=True" Adodc2.ConnectionString = "Provider=MSDAORA.1;Password=TIGER;User ID=SCOTT;Persist Security Info=True" Adodc1.CommandType = adCmdText Adodc2.CommandType = adCmdText Adodc2.RecordSource = "Select code from candidates order by code" Adodc2.Refresh If Adodc2.Recordset.RecordCount = 0 Then a = MsgBox("First Create the candidates", vbCritical, firmname) Unload Me Else Adodc2.Recordset.MoveFirst

While Adodc2.Recordset.EOF <> True Combo1.AddItem Adodc2.Recordset("Code") Adodc2.Recordset.MoveNext Wend Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from qualification" Adodc1.Refresh Combo1.Text = "" Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text1.MaxLength = 40 Text2.MaxLength = 50 Text3.MaxLength = 50 Text4.MaxLength = 10 Text5.MaxLength = 3 Text6.MaxLength = 1

Text4.Text = Format(Date, "dd-mm-yyyy") If Combo1.Text = "" Then Combo1.SetFocus Else Text1.SetFocus End If End If End Sub

Private Sub Form_Initialize() firmname = "AEES Software Manager" mdfy = False End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If

If KeyAscii = 13 Then

Text2.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If If KeyAscii = 13 Then Text3.SetFocus End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If If KeyAscii = 13 Then Text4.SetFocus End If End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer) If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 13 Or KeyAscii = 8 Then If KeyAscii = 13 Then Text5.SetFocus End If Else KeyAscii = 0 End If

End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer) If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 13 Or KeyAscii = 8 Then If KeyAscii = 13 Then Text6.SetFocus End If Else KeyAscii = 0 End If

End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If

If KeyAscii = 13 Then Command1.SetFocus End If End Sub

EXPERIENCE FORM

Dim firmname As String Dim mdfy As Boolean

Private Sub Combo1_Click() If Combo1.Text <> "" Then Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from experience where code='" & Trim(Combo1.Text) & "' order by Sno" Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then Command2.Enabled = False Command3.Enabled = False Else Command2.Enabled = True Command3.Enabled = True End If End If

End Sub

Private Sub Combo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text1.SetFocus End If End Sub

Private Sub Command1_Click() Dim ctr As Integer If Combo1.Text = "" Or Text1.Text = "" Or Text5.Text = "" Or Text6.Text = "" Then a = MsgBox("Can not leave Empty", vbCritical, firmname) Text1.SetFocus Else If mdfy = True Then Adodc1.Recordset.Delete Adodc1.Refresh Command1.Caption = "&Add" Command2.Enabled = True Command3.Enabled = True

End If Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from experience where code='" & Trim(Combo1.Text) & "' order by Sno" Adodc1.Refresh If Adodc1.Recordset.RecordCount <> 0 Then Adodc1.Recordset.MoveLast ctr = Adodc1.Recordset("SNo") ctr = ctr + 1 Else ctr = 1 End If Adodc1.Recordset.AddNew Adodc1.Recordset("Code") = Trim(Combo1.Text) Adodc1.Recordset("SNo") = ctr Adodc1.Recordset("Organization") = Trim(Text1.Text) Adodc1.Recordset("Post") = Trim(Text2.Text) Adodc1.Recordset("Year") = Trim(Text3.Text) Adodc1.Recordset("EDate") = Trim(Text4.Text) Adodc1.Recordset("Duration") = Val(Text5.Text) Adodc1.Recordset("Salary") = Val(Text6.Text)

Adodc1.Recordset.Update Adodc1.Refresh 'Adodc1.CommandType = adCmdText 'Adodc1.RecordSource = "Select Code,SNo,University,Sujects,Year,Percentage from experience where code='" & Trim(Combo1.Text) & "'" Adodc1.Refresh Command2.Enabled = True Command3.Enabled = True Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text4.Text = Format(Date, "dd-mm-yyyy") Combo1.SetFocus End If

End Sub

Private Sub Command2_Click() a = MsgBox("Do you really want to delete the record", vbYesNo + vbQuestion, firmname) If a = 6 Then Adodc1.CommandType = adCmdText Adodc1.Recordset.Delete Adodc1.Refresh Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from experience where code='" & Trim(Combo1.Text) & "' order by sno" Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then Command2.Enabled = False Command3.Enabled = False Combo1.SetFocus Else Combo1.SetFocus End If Combo1.Text = "" Text1.Text = "" Text2.Text = ""

Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Else a = MsgBox("Delete operation Cancelled", vbInformation, firmname) Command2.SetFocus End If End Sub

Private Sub DataCombo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Adodc2.CommandType = adCmdText Adodc2.RecordSource = "Select * from experience where code='" & DataCombo1.Text & "'" Adodc2.Refresh Text1.SetFocus End If End Sub

Private Sub Command3_Click()

mdfy = True Combo1.Text = Adodc1.Recordset("Code") If IsNull(Adodc1.Recordset("Organization")) <> True Then Text1.Text = Adodc1.Recordset("Organization") End If If IsNull(Adodc1.Recordset("Post")) <> True Then Text2.Text = Adodc1.Recordset("Post") End If If IsNull(Adodc1.Recordset("Year")) <> True Then Text3.Text = Adodc1.Recordset("Year") End If If IsNull(Adodc1.Recordset("EDate")) <> True Then Text4.Text = Adodc1.Recordset("EDate") End If If IsNull(Adodc1.Recordset("Duration")) <> True Then Text5.Text = Val(Adodc1.Recordset("Duration")) End If If IsNull(Adodc1.Recordset("Salary")) <> True Then Text5.Text = Val(Adodc1.Recordset("Salary")) End If

Command1.Caption = "&Edit" Command2.Enabled = False Command3.Enabled = False Text2.SetFocus End Sub

Private Sub Form_Activate() Adodc1.ConnectionString = "Provider=MSDAORA.1;Password=TIGER;User ID=SCOTT;Persist Security Info=True" Adodc2.ConnectionString = "Provider=MSDAORA.1;Password=TIGER;User ID=SCOTT;Persist Security Info=True" Adodc1.CommandType = adCmdText Adodc2.CommandType = adCmdText Adodc2.RecordSource = "Select code from candidates order by code" Adodc2.Refresh If Adodc2.Recordset.RecordCount = 0 Then a = MsgBox("First Create the candidates", vbCritical, firmname) Unload Me Else

Adodc2.Recordset.MoveFirst While Adodc2.Recordset.EOF <> True Combo1.AddItem Adodc2.Recordset("Code") Adodc2.Recordset.MoveNext Wend Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from experience" Adodc1.Refresh Combo1.Text = "" Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text1.MaxLength = 40 Text2.MaxLength = 40 Text3.MaxLength = 4 Text4.MaxLength = 10 Text5.MaxLength = 3

Text6.MaxLength = 6 Text4.Text = Format(Date, "dd-mm-yyyy") If Combo1.Text = "" Then Combo1.SetFocus Else Text1.SetFocus End If End If End Sub

Private Sub Form_Initialize() firmname = "AEES Software Manager" mdfy = False End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If

If KeyAscii = 13 Then Text2.SetFocus End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If

If KeyAscii = 13 Then Text3.SetFocus End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 13 Or KeyAscii = 8 Then If KeyAscii = 13 Then

Text4.SetFocus End If Else KeyAscii = 0 End If

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer) If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 13 Or KeyAscii = 8 Then If KeyAscii = 13 Then Text5.SetFocus End If Else KeyAscii = 0 End If

End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 13 Or KeyAscii = 8 Then If KeyAscii = 13 Then Text6.SetFocus End If Else KeyAscii = 0 End If

End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer) If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 13 Or KeyAscii = 8 Then If KeyAscii = 13 Then Command1.SetFocus End If Else KeyAscii = 0 End If End Sub

EXPENDITURE FORM

Dim firmname As String

Private Sub Command1_Click() If Text1.Text = "" Or Text2.Text = "" Then a = MsgBox("Can't Leave Empty", vbCritical, firmname) Else Adodc1.Recordset.AddNew Adodc1.Recordset("EDate") = Trim(Text1.Text) Adodc1.Recordset("Amount") = Val(Text2.Text) Adodc1.Recordset("Detail") = Text3.Text Adodc1.Recordset.Update Adodc1.Refresh Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from expenditure" Adodc1.Refresh Text2.Text = "" Text3.Text = "" End If

Text1.SetFocus End Sub

Private Sub Command2_Click() If Adodc1.Recordset.RecordCount <> 0 Then a = MsgBox("The Entry Will be deleted permanently", vbYesNo + vbQuestion, firmname) If a = 6 Then Adodc1.Recor dset.Delete Adodc1.Refresh Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from expenditure" Adodc1.Refresh a = MsgBox("Deleted", vbInformation, firmname) Text2.Text = "" Text3.Text = "" Else a = MsgBox("Cancelled", vbInformation, firmname) End If

Else

a = MsgBox("No Record Available", vbCritical, firmname) End If Text1.SetFocus End Sub

Private Sub DataCombo1_Click(Area As Integer) Adodc2.CommandType = adCmdText Adodc2.RecordSource = "Select * from spenditure where Code='" & DataCombo1.Text & "'" Adodc2.Refresh

End Sub

Private Sub DataCombo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text1.SetFocus End If

End Sub

Private Sub Form_Activate() Adodc1.ConnectionString = "Provider=MSDAORA.1;Password=TIGER;User ID=SCOTT;Persist Security Info=True" Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Expenditure" Adodc1.Refresh Text1.MaxLength = 10 Text2.MaxLength = 8 Text3.MaxLength = 30 Text1.Text = "" Text2.Text = "" Text3.Text = "" Text1.Text = Format(Date, "DD-MM-YYYY") Text1.SetFocus End Sub

Private Sub Form_Initialize() firmname = "AEES Software Manager" End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text3.SetFocus End If End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If If KeyAscii = 13 Then Command1.SetFocus End If End Sub

FINDCAN FORM
Dim firmname As String

Private Sub Command1_Click() If Text4.Text = "" And Text5.Text = "" And Text6.Text = "" And Text7.Text = "" And Text8.Text = "" And Text11.Text = "" And Text12.Text = "" And Text13.Text = "" And Adodc1.Recordset.RecordCount <> 0 Then a = MsgBox("Can not leave Empty", vbCritical, firmname) Text4.SetFocus Else a = MsgBox("ADD Records To The SELECTION", vbQuestion + vbYesNo, firmname) If a = 6 Then Adodc2.CommandType = adCmdText Adodc2.RecordSource = "Select * from findcan" Adodc2.Refresh If Adodc2.Recordset.RecordCount <> 0 Then Adodc2.Recordset.MoveFirst While Adodc2.Recordset.EOF <> True Adodc2.Recordset.Delete Adodc2.Recordset.MoveNext

Wend Adodc2.Refresh End If Adodc1.Recordset.MoveFirst While Adodc1.Recordset.EOF <> True Adodc2.Recordset.AddNew cod = Adodc1.Recordset("Code") Adodc2.Recordset("Code") = cod cit = Adodc1.Recordset("City") Adodc2.Recordset("City") = cit zon = Adodc1.Recordset("Zon") Adodc2.Recordset("Zon") = zon sta = Adodc1.Recordset("State") Adodc2.Recordset("State") = sta sex = Adodc1.Recordset("Sex") Adodc2.Recordset("Sex") = sex mar = Adodc1.Recordset("Married") Adodc2.Recordset("Married") = mar age = Adodc1.Recordset("Age") Adodc2.Recordset("Age") = age

salmin = Adodc1.Recordset("Salmin") Adodc2.Recordset("Salmin") = salmin salmax = Adodc1.Recordset("Salmax") Adodc2.Recordset("Salmax") = salmax Adodc2.Recordset.Update Adodc2.Refresh Adodc1.Recordset.MoveNext Wend p = MsgBox("Records Added To The Selection", vbInformation, firmname) Unload Me Else p = MsgBox("Selection Cancelled", vbInformation, firmname)

End If End If End Sub

Private Sub Command2_Click() Text4.Text = "" Text5.Text = ""

Text6.Text = "" Text7.Text = "" Text8.Text = "" Text11.Text = "" Text12.Text = "" Text13.Text = "" Text4.SetFocus End Sub

Private Sub Form_Activate() Adodc1.ConnectionString = "Provider=MSDAORA.1;Password=TIGER;User ID=SCOTT;Persist Security Info=True" Adodc2.ConnectionString ="Provider=MSDAORA.1;Password=TIGER;User ID=SCOTT;Persist Security Info=True" Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Candidates" Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then

a = MsgBox("No Record Available", vbCritical, firmname) Unload Me Else Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text11.Text = "" Text12.Text = "" Text13.Text = "" Text4.MaxLength = 20 Text5.MaxLength = 10 Text6.MaxLength = 15 Text7.MaxLength = 2 Text8.MaxLength = 1 Text11.MaxLength = 3 Text12.MaxLength = 6 Text13.MaxLength = 6 Text4.SetFocus

End If End Sub

Private Sub Form_Initialize() firmname = "AEES SOFTWARE MANAGER" mdfy = False End Sub

Private Sub Text11_Change() If Trim(Text7.Text) = "" Then Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Candidates where city like '" & Trim(Text4.Text) & "*'" & " and Zon like '" & Trim(Text5.Text) & "*' and State like '" & Trim(Text6.Text) & "*' and sex like '" & Trim(Text8.Text) & "*' and married like '" & Trim(Text11.Text) & "*'" Adodc1.Refresh Else Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Candidates where city like '" & Trim(Text4.Text) & "*'" & " and Zon like '" & Trim(Text5.Text) & "*' and State like '" & Trim(Text6.Text) & "*' and age<=" & Val(Text7.Text) & " and sex like '" & Trim(Text8.Text) & "*' and married like '" & Trim(Text11.Text) & "*'"

Adodc1.Refresh End If End Sub

Private Sub Text11_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If

If KeyAscii = 13 Then Text12.SetFocus End If

End Sub

Private Sub Text12_Change() If Text12.Text <> "" And Text13.Text <> "" Then If Trim(Text7.Text) = "" Then Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Candidates where city like '" & Trim(Text4.Text) & "*'" & " and Zon like '" & Trim(Text5.Text) & "*' and State like '"

& Trim(Text6.Text) & "*' and sex like '" & Trim(Text8.Text) & "*' and married like '" & Trim(Text11.Text) & "*' and salmin>=" & Val(Text12.Text) & " and salmax<=" & Val(Text13.Text) Adodc1.Refresh Else Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Candidates where city like '" & Trim(Text4.Text) & "*'" & " and Zon like '" & Trim(Text5.Text) & "*' and State like '" & Trim(Text6.Text) & "*' and age<=" & Val(Text7.Text) & " and sex like '" & Trim(Text8.Text) & "*' and married like '" & Trim(Text11.Text) & "*' and salmin>=" & Val(Text12.Text) & " and salmax<=" & Val(Text13.Text) Adodc1.Refresh End If End If End Sub

Private Sub Text12_KeyPress(KeyAscii As Integer) If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 13 Then If KeyAscii = 13 Then Text13.SetFocus End If Else

KeyAscii = 0 End If End Sub

Private Sub Text13_Change() If Text12.Text <> "" And Text13.Text <> "" Then If Trim(Text7.Text) = "" Then Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Candidates where city like '" & Trim(Text4.Text) & "*'" & " and Zon like '" & Trim(Text5.Text) & "*' and State like '" & Trim(Text6.Text) & "*' and sex like '" & Trim(Text8.Text) & "*' and married like '" & Trim(Text11.Text) & "*' and salmin>=" & Val(Text12.Text) & " and salmax<=" & Val(Text13.Text) Adodc1.Refresh Else Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Candidates where city like '" & Trim(Text4.Text) & "*'" & " and Zon like '" & Trim(Text5.Text) & "*' and State like '" & Trim(Text6.Text) & "*' and age<=" & Val(Text7.Text) & " and sex like '" & Trim(Text8.Text) & "*' and married like '" & Trim(Text11.Text) & "*' and salmin>=" & Val(Text12.Text) & " and salmax<=" & Val(Text13.Text) Adodc1.Refresh

End If End If End Sub

Private Sub Text13_KeyPress(KeyAscii As Integer) If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 13 Then If KeyAscii = 13 Then Command1.SetFocus End If Else KeyAscii = 0 End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If

If KeyAscii = 13 Then Text3.SetFocus End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If

If KeyAscii = 13 Then Text4.SetFocus End If

End Sub

Private Sub Text4_Change() Adodc1.CommandType = adCmdText 'Adodc1.RecordSource = "Select * from Candidates where city like '" & Trim(Text4.Text) & "*' and zone like '" & Trim(Text5.Text) & "*' and state like '" &

Trim(Text6.Text) & "*' and sex like '" & Trim(Text8.Text) & "*' and married like '" & Trim(Text11.Text) & "*' and age<=" & Val(Text7.Text) & " and salmin>=" & Val(Text12.Text) & " and salmax<=" & Val(Text13.Text) Adodc1.RecordSource = "Select * from Candidates where city like '" & Trim(Text4.Text) & "*'" Adodc1.Refresh End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If

If KeyAscii = 13 Then Text5.SetFocus End If

End Sub

Private Sub Text5_Change() Adodc1.CommandType = adCmdText

Adodc1.RecordSource = "Select * from Candidates where city like '" & Trim(Text4.Text) & "*'" & " and Zon like '" & Trim(Text5.Text) & "*'" Adodc1.Refresh End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If

If KeyAscii = 13 Then Text6.SetFocus End If

End Sub

Private Sub Text6_Change() Adodc1.CommandType = adCmdText

Adodc1.RecordSource = "Select * from Candidates where city like '" & Trim(Text4.Text) & "*'" & " and Zon like '" & Trim(Text5.Text) & "*' and State like '" & Trim(Text6.Text) & "*'" Adodc1.Refresh End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If

If KeyAscii = 13 Then Text7.SetFocus End If

End Sub

Private Sub Text7_Change() If Trim(Text7.Text) <> "" Then Adodc1.CommandType = adCmdText

Adodc1.RecordSource = "Select * from Candidates where city like '" & Trim(Text4.Text) & "*'" & " and Zon like '" & Trim(Text5.Text) & "*' and State like '" & Trim(Text6.Text) & "*' and age<=" & Val(Text7.Text) Adodc1.Refresh End If End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer) If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 13 Or KeyAscii = 8 Then If KeyAscii = 13 Then Text8.SetFocus End If Else KeyAscii = 0 End If End Sub

Private Sub Text8_Change() If Trim(Text7.Text) = "" Then Adodc1.CommandType = adCmdText

Adodc1.RecordSource = "Select * from Candidates where city like '" & Trim(Text4.Text) & "*'" & " and Zon like '" & Trim(Text5.Text) & "*' and State like '" & Trim(Text6.Text) & "*' and sex like '" & Trim(Text8.Text) & "*'" Adodc1.Refresh Else Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Candidates where city like '" & Trim(Text4.Text) & "*'" & " and Zon like '" & Trim(Text5.Text) & "*' and State like '" & Trim(Text6.Text) & "*' and age<=" & Val(Text7.Text) & " and sex like '" & Trim(Text8.Text) & "*'"

Adodc1.Refresh End If End Sub

Private Sub Text8_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text11.SetFocus End If If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32

End If If KeyAscii = 70 Or KeyAscii = 77 Or KeyAscii = 13 Or KeyAscii = 8 Then Else KeyAscii = 0 End If End Sub

FINDEDU FORM

Dim firmname As String

Private Sub Command1_Click() If Text1.Text = "" And Text2.Text = "" And Text4.Text = "" And Text5.Text = "" And Adodc1.Recordset.RecordCount <> 0 Then a = MsgBox("Can not leave Empty", vbCritical, firmname) Text1.SetFocus Else a = MsgBox("ADD Records To The SELECTION", vbQuestion + vbYesNo, firmname) If a = 6 Then Adodc2.CommandType = adCmdText Adodc2.RecordSource = "Select * from findedu" Adodc2.Refresh If Adodc2.Recordset.RecordCount <> 0 Then Adodc2.Recordset.MoveFirst While Adodc2.Recordset.EOF <> True Adodc2.Recordset.Delete Adodc2.Recordset.MoveNext

Wend Adodc2.Refresh End If Adodc1.Recordset.MoveFirst While Adodc1.Recordset.EOF <> True Adodc2.Recordset.AddNew cod = Adodc1.Recordset("Code") Adodc2.Recordset("Code") = cod cla = Adodc1.Recordset("Class") Adodc2.Recordset("Class") = cla uni = Adodc1.Recordset("University") Adodc2.Recordset("University") = uni sbj = Adodc1.Recordset("Subjects") Adodc2.Recordset("Subjects") = sbj yr = Adodc1.Recordset("Year") Adodc2.Recordset("Year") = yr per = Adodc1.Recordset("Percentage") Adodc2.Recordset("Percentage") = per Adodc2.Recordset.Update Adodc2.Refresh

Adodc1.Recordset.MoveNext Wend p = MsgBox("Records Added To The Selection", vbInformation, firmname) Unload Me Else p = MsgBox("Selection Cancelled", vbInformation, firmname) Text1.Text = "" Text2.Text = "" Text4.Text = "" Text5.Text = "" End If End If End Sub

Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text4.Text = "" Text5.Text = "" Text1.SetFocus

End Sub

Private Sub Form_Activate() Adodc1.ConnectionString = "Provider=MSDAORA.1;Password=TIGER;User ID=SCOTT;Persist Security Info=True" Adodc2.ConnectionString = "Provider=MSDAORA.1;Password=TIGER;User ID=SCOTT;Persist Security Info=True" Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select Code,Class,University,Year,Percentage,Subjects from Education" Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then a = MsgBox("No Record Available", vbCritical, firmname) Unload Me Else Text1.Text = "" Text2.Text = "" Text4.Text = "" Text5.Text = ""

Text1.MaxLength = 40 Text2.MaxLength = 40 Text4.MaxLength = 4 Text5.MaxLength = 5 Text1.SetFocus End If End Sub

Private Sub Form_Initialize() firmname = "AEES Software Manager" mdfy = False End Sub

Private Sub Text1_Change() Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Education where class like '" & Trim(Text1.Text) & "*'" Adodc1.Refresh End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If

If KeyAscii = 13 Then Text2.SetFocus End If

End Sub

Private Sub Text2_Change() Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Education where class like '" & Trim(Text1.Text) & "*' and university like '" & Trim(Text2.Text) & "*'" Adodc1.Refresh End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If

If KeyAscii = 13 Then Text4.SetFocus End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If

If KeyAscii = 13 Then Text4.SetFocus End If

End Sub

Private Sub Text4_Change() Adodc1.CommandType = adCmdText

Adodc1.RecordSource = "Select * from Education where class like '" & Trim(Text1.Text) & "*' and university like '" & Trim(Text2.Text) & "*' and year like '" & Trim(Text4.Text) & "*'" Adodc1.Refresh End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer) If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 13 Or KeyAscii = 8 Then If KeyAscii = 13 Then Text5.SetFocus End If Else KeyAscii = 0 End If

End Sub

Private Sub Text5_Change() Adodc1.CommandType = adCmdText

Adodc1.RecordSource = "Select * from Education where class like '" & Trim(Text1.Text) & "*' and university like '" & Trim(Text2.Text) & "*' and year like '" & Trim(Text4.Text) & "*' and percentage>=" & Val(Text5.Text) Adodc1.Refresh

End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer) If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 13 Or KeyAscii = 8 Then If KeyAscii = 13 Then Command1.SetFocus End If Else KeyAscii = 0 End If End Sub

FINDEXP FORM
Dim firmname As String Dim mdfy As Boolean

Private Sub Command1_Click() If Text1.Text = "" And Text2.Text = "" And Text3.Text = "" And Text5.Text = "" And Text6.Text = "" And Adodc1.Recordset.RecordCount <> 0 Then a = MsgBox("Can not leave Empty", vbCritical, firmname) Text1.SetFocus Else a = MsgBox("ADD Records To The SELECTION", vbQuestion + vbYesNo, firmname) If a = 6 Then Adodc2.CommandType = adCmdText Adodc2.RecordSource = "Select * from findExp" Adodc2.Refresh If Adodc2.Recordset.RecordCount <> 0 Then Adodc2.Recordset.MoveFirst While Adodc2.Recordset.EOF <> True Adodc2.Recordset.Delete

Adodc2.Recordset.MoveNext Wend Adodc2.Refresh End If Adodc1.Recordset.MoveFirst While Adodc1.Recordset.EOF <> True Adodc2.Recordset.AddNew cod = Adodc1.Recordset("Code") Adodc2.Recordset("Code") = cod org = Adodc1.Recordset("Organization") Adodc2.Recordset("Organization") = org pst = Adodc1.Recordset("Post") Adodc2.Recordset("Post") = pst dur = Adodc1.Recordset("Duration") Adodc2.Recordset("Duration") = dur yr = Adodc1.Recordset("Year") Adodc2.Recordset("Year") = yr sal = Adodc1.Recordset("Salary") Adodc2.Recordset("Salary") = sal Adodc2.Recordset.Update

Adodc2.Refresh Adodc1.Recordset.MoveNext Wend p = MsgBox("Records Added To The Selection", vbInformation, firmname) Unload Me Else p = MsgBox("Selection Cancelled", vbInformation, firmname) Text1.Text = "" Text2.Text = "" Text3.Text = "" Text5.Text = "" Text6.Text = "" End If End If End Sub

Private Sub Command3_Click() Text1.Text = "" Text2.Text = ""

Text3.Text = "" Text5.Text = "" Text6.Text = "" Text1.SetFocus End Sub

Private Sub Form_Activate() Adodc1.ConnectionString = "Provider=MSDAORA.1;Password=TIGER;User ID=SCOTT;Persist Security Info=True" Adodc2.ConnectionString = "Provider=MSDAORA.1;Password=TIGER;User ID=SCOTT;Persist Security Info=True" Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Experience" Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then a = MsgBox("No Record Available", vbCritical, firmname) Unload Me Else Text1.Text = ""

Text2.Text = "" Text3.Text = "" Text5.Text = "" Text6.Text = "" Text1.MaxLength = 40 Text2.MaxLength = 40 Text3.MaxLength = 4 Text5.MaxLength = 3 Text6.MaxLength = 6 Text1.SetFocus End If End Sub

Private Sub Form_Initialize() firmname = "AEES Software Manager" mdfy = False End Sub

Private Sub Text1_Change() Adodc1.CommandType = adCmdText

Adodc1.RecordSource = "Select * from Experience where organization like '" & Trim(Text1.Text) & "*'" Adodc1.Refresh End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If

If KeyAscii = 13 Then Text2.SetFocus End If

End Sub

Private Sub Text2_Change() Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Experience where organization like '" & Trim(Text1.Text) & "*' and post like '" & Trim(Text2.Text) & "*'" Adodc1.Refresh

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If

If KeyAscii = 13 Then Text3.SetFocus End If

End Sub

Private Sub Text3_Change() Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Experience where organization like '" & Trim(Text1.Text) & "*' and post like '" & Trim(Text2.Text) & "*' and year like '" & Trim(Text3.Text) & "*'" Adodc1.Refresh End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 13 Or KeyAscii = 8 Then If KeyAscii = 13 Then Text5.SetFocus End If Else KeyAscii = 0 End If

End Sub

Private Sub Text5_Change() Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Experience where organization like '" & Trim(Text1.Text) & "*' and post like '" & Trim(Text2.Text) & "*' and year like '" & Trim(Text3.Text) & "*' and duration>=" & Val(Text5.Text) Adodc1.Refresh End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 13 Or KeyAscii = 8 Then If KeyAscii = 13 Then Text6.SetFocus End If Else KeyAscii = 0 End If

End Sub

Private Sub Text6_Change() Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Experience where organization like '" & Trim(Text1.Text) & "*' and post like '" & Trim(Text2.Text) & "*' and year like '" & Trim(Text3.Text) & "*' and duration>=" & Val(Text5.Text) & " and salary>=" & Val(Text6.Text) Adodc1.Refresh End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer)

If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 13 Or KeyAscii = 8 Then If KeyAscii = 13 Then Text5.SetFocus End If Else KeyAscii = 0 End If End Sub

FINDQUA FROM

Dim firmname As String

Private Sub Command1_Click() If Text1.Text = "" And Text2.Text = "" And Text5.Text = "" And Text6.Text = "" And Adodc1.Recordset.RecordCount <> 0 Then a = MsgBox("Can not leave Empty", vbCritical, firmname) Text1.SetFocus Else a = MsgBox("ADD Records To The SELECTION", vbQuestion + vbYesNo, firmname) If a = 6 Then Adodc2.CommandType = adCmdText Adodc2.RecordSource = "Select * from findQua" Adodc2.Refresh If Adodc2.Recordset.RecordCount <> 0 Then Adodc2.Recordset.MoveFirst While Adodc2.Recordset.EOF <> True Adodc2.Recordset.Delete Adodc2.Recordset.MoveNext

Wend Adodc2.Refresh End If Adodc1.Recordset.MoveFirst While Adodc1.Recordset.EOF <> True Adodc2.Recordset.AddNew cod = Adodc1.Recordset("Code") Adodc2.Recordset("Code") = cod cou = Adodc1.Recordset("Course") Adodc2.Recordset("Course") = cou ins = Adodc1.Recordset("Institution") Adodc2.Recordset("Institution") = ins dur = Adodc1.Recordset("Duration") Adodc2.Recordset("Duration") = dur grd = Adodc1.Recordset("Grade") Adodc2.Recordset("Grade") = grd Adodc2.Recordset.Update Adodc2.Refresh Adodc1.Recordset.MoveNext Wend

p = MsgBox("Records Added To The Selection", vbInformation, firmname) Unload Me Else p = MsgBox("Selection Cancelled", vbInformation, firmname) Text1.Text = "" Text2.Text = "" Text4.Text = "" Text5.Text = "" End If End If End Sub

Private Sub Command3_Click() Text1.Text = "" Text2.Text = "" Text5.Text = "" Text6.Text = "" Text1.SetFocus

End Sub

Private Sub Form_Activate() Adodc1.ConnectionString = "Provider=MSDAORA.1;Password=TIGER;User ID=SCOTT;Persist Security Info=True" Adodc2.ConnectionString = "Provider=MSDAORA.1;Password=TIGER;User ID=SCOTT;Persist Security Info=True" Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select Code,Course,Institution,Duration,Grade from Qualification" Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then a = MsgBox("No Record Available", vbCritical, firmname) Unload Me Else Text1.Text = "" Text2.Text = "" Text5.Text = "" Text6.Text = ""

Text1.MaxLength = 40 Text2.MaxLength = 40 Text5.MaxLength = 4 Text6.MaxLength = 1 Text1.SetFocus End If End Sub

Private Sub Form_Initialize() firmname = "AEES Software Manager" mdfy = False End Sub

Private Sub Text1_Change() Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Qualification where course like'" & Trim(Text1.Text) & "*'" Adodc1.Refresh End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If

If KeyAscii = 13 Then Text2.SetFocus End If

End Sub

Private Sub Text2_Change() Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Qualification where course like '" & Trim(Text1.Text) & "*' and Institution like '" & Trim(Text2.Text) & "*'" Adodc1.Refresh End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If

If KeyAscii = 13 Then Text5.SetFocus End If

End Sub

Private Sub Text5_Change() Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Qualification where course like '" & Trim(Text1.Text) & "*' and Institution like '" & Trim(Text2.Text) & "*' and duration>=" & Val(Text5.Text) Adodc1.Refresh End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer) If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 13 Or KeyAscii = 8 Then If KeyAscii = 13 Then Text6.SetFocus

End If Else KeyAscii = 0 End If

End Sub

Private Sub Text6_Change() Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Qualification where course like '" & Trim(Text1.Text) & "*' and Institution like '" & Trim(Text2.Text) & "*' and duration>=" & Val(Text5.Text) & " and grade like '" & Trim(Text6.Text) & "*'" Adodc1.Refresh End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End If

If KeyAscii = 13 Then

Command1.SetFocus End If End Sub

INFORMATION FORM

Private Sub Form_Activate() Adodc1.ConnectionString = "Provider=MSDAORA.1;Password=TIGER;User ID=SCOTT;Persist Security Info=True" Option1.Value = True End Sub

Private Sub Option1_Click() Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Candidates order by code" Adodc1.Refresh End Sub

Private Sub Option10_Click() Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from FindEdu order by code" Adodc1.Refresh End Sub

Private Sub Option11_Click() Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from FindQua order by code" Adodc1.Refresh End Sub

Private Sub Option12_Click() Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from FindExp order by code" Adodc1.Refresh End Sub

Private Sub Option2_Click() Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Education order by code" Adodc1.Refresh End Sub

Private Sub Option3_Click() Adodc1.CommandType = adCmdText

Adodc1.RecordSource = "Select * from Qualification order by code" Adodc1.Refresh End Sub

Private Sub Option4_Click() Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Experience order by code" Adodc1.Refresh End Sub

Private Sub Option5_Click() Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Company order by code" Adodc1.Refresh End Sub

Private Sub Option6_Click() Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Collection order by Comcode" Adodc1.Refresh

End Sub Private Sub Option7_Click() Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Expenditure order by Date" Adodc1.Refresh End Sub Private Sub Option8_Click() Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Selected order by Cancode" Adodc1.Refresh End Sub Private Sub Option9_Click() Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from FindCan order by code" Adodc1.Refresh End Sub

SEARCH FORM
Dim comcod As String Dim comname As String Dim firmname As String

Private Sub Combo1_Click() If Combo1.Text <> "" Then Adodc6.CommandType = adCmdText Adodc6.RecordSource = "Select * from Company where Name='" & Trim(Combo1.Text) & "'" Adodc6.Refresh Label1(2).Caption = Adodc6.Recordset("Code") Label1(4).Caption = Adodc6.Recordset("Address") Label1(6).Caption = Adodc6.Recordset("Business") comcod = Adodc6.Recordset("Code") comname = Adodc6.Recordset("Name") End If End Sub

Private Sub Command1_Click() Dim cod As String Dim nm As String Dim ok As Integer

If Option1.Value = True And Combo1.Text <> "" Then ok = 1 cod = Adodc1.Recordset("Code") If Adodc5.Recordset.RecordCount <> 0 Then Adodc5.Recordset.MoveFirst While Adodc5.Recordset.EOF <> True If Adodc5.Recordset("CanCode") = cod Then ok = 0 a = MsgBox("Already Selected", vbExclamation, firmname) Adodc5.Recordset.MoveLast End If Adodc5.Recordset.MoveNext Wend End If If ok = 1 Then

Adodc5.Recordset.AddNew Adodc5.Recordset("Date") = Format(Date, "DD-MM-YYYY") Adodc5.Recordset("ComCode") = comcod Adodc5.Recordset("ComName") = comname Adodc5.Recordset("CanCode") = cod Adodc6.CommandType = adCmdText Adodc6.Recordset.MoveFirst Adodc6.RecordSource = "Select * from Candidates where Code='" & cod & "'" Adodc6.Refresh Adodc6.Recordset("Selected") = "YES" Adodc6.Recordset.Update Adodc6.Refresh nm = Adodc6.Recordset("Name") Adodc5.Recordset("CanName") = nm Adodc5.Recordset.Update Adodc5.Refresh Adodc5.CommandType = adCmdText Adodc5.RecordSource = "Select * from Selected" Adodc5.Refresh a = MsgBox("Candidate Selected", vbInformation, firmname)

Else ok = 1 End If ElseIf Option2.Value = True And Combo1.Text <> "" Then ok = 1 cod = Adodc2.Recordset("Code") If Adodc5.Recordset.RecordCount <> 0 Then Adodc5.Recordset.MoveFirst While Adodc5.Recordset.EOF <> True If Adodc5.Recordset("CanCode") = cod Then ok = 0 a = MsgBox("Already Selected", vbExclamation, firmname) Adodc5.Recordset.MoveLast End If Adodc5.Recordset.MoveNext Wend End If If ok = 1 Then Adodc5.Recordset.AddNew Adodc5.Recordset("Date") = Format(Date, "DD-MM-YYYY")

Adodc5.Recordset("ComCode") = comcod Adodc5.Recordset("ComName") = comname Adodc5.Recordset("CanCode") = cod Adodc6.CommandType = adCmdText Adodc6.Recordset.MoveFirst Adodc6.RecordSource = "Select * from Candidates where Code='" & cod & "'" Adodc6.Refresh Adodc6.Recordset("Selected") = "YES" Adodc6.Recordset.Update Adodc6.Refresh nm = Adodc6.Recordset("Name") Adodc5.Recordset("CanName") = nm Adodc5.Recordset.Update Adodc5.Refresh Adodc5.CommandType = adCmdText Adodc5.RecordSource = "Select * from Selected" Adodc5.Refresh a = MsgBox("Candidate Selected", vbInformation, firmname) Else ok = 1

End If ElseIf Option3.Value = True And Combo1.Text <> "" Then ok = 1 cod = Adodc3.Recordset("Code") If Adodc5.Recordset.RecordCount <> 0 Then Adodc5.Recordset.MoveFirst While Adodc5.Recordset.EOF <> True If Adodc5.Recordset("CanCode") = cod Then ok = 0 a = MsgBox("Already Selected", vbExclamation, firmname) Adodc5.Recordset.MoveLast End If Adodc5.Recordset.MoveNext Wend End If If ok = 1 Then Adodc5.Recordset.AddNew Adodc5.Recordset("Date") = Format(Date, "DD-MM-YYYY") Adodc5.Recordset("ComCode") = comcod Adodc5.Recordset("ComName") = comname

Adodc5.Recordset("CanCode") = cod Adodc6.CommandType = adCmdText Adodc6.Recordset.MoveFirst Adodc6.RecordSource = "Select * from Candidates where Code='" & cod & "'" Adodc6.Refresh Adodc6.Recordset("Selected") = "YES" Adodc6.Recordset.Update Adodc6.Refresh nm = Adodc6.Recordset("Name") Adodc5.Recordset("CanName") = nm Adodc5.Recordset.Update Adodc5.Refresh Adodc5.CommandType = adCmdText Adodc5.RecordSource = "Select * from Selected" Adodc5.Refresh a = MsgBox("Candidate Selected", vbInformation, firmname) Else ok = 1 End If ElseIf Option4.Value = True And Combo1.Text <> "" Then

ok = 1 cod = Adodc4.Recordset("Code") If Adodc5.Recordset.RecordCount <> 0 Then Adodc5.Recordset.MoveFirst While Adodc5.Recordset.EOF <> True If Adodc5.Recordset("CanCode") = cod Then ok = 0 a = MsgBox("Already Selected", vbExclamation, firmname) Adodc5.Recordset.MoveLast End If Adodc5.Recordset.MoveNext Wend End If If ok = 1 Then Adodc5.Recordset.AddNew Adodc5.Recordset("Date") = Format(Date, "DD-MM-YYYY") Adodc5.Recordset("ComCode") = comcod Adodc5.Recordset("ComName") = comname Adodc5.Recordset("CanCode") = cod Adodc6.CommandType = adCmdText

Adodc6.Recordset.MoveFirst Adodc6.RecordSource = "Select * from Candidates where Code='" & cod & "'" Adodc6.Refresh Adodc6.Recordset("Selected") = "YES" Adodc6.Recordset.Update Adodc6.Refresh nm = Adodc6.Recordset("Name") Adodc5.Recordset("CanName") = nm Adodc5.Recordset.Update Adodc5.Refresh Adodc5.CommandType = adCmdText Adodc5.RecordSource = "Select * from Selected" Adodc5.Refresh a = MsgBox("Candidate Selected", vbInformation, firmname) Else ok = 1 End If Else b = MsgBox("Select First Company or Candidate", vbInformation, firmname)

End If End Sub

Private Sub Command2_Click() a = MsgBox("The Candiate Will Be Removed From The Selection", vbYesNo + vbQuestion, firmname) If a = 6 Then cod = Adodc5.Recordset("CanCode") Adodc6.CommandType = adCmdText Adodc6.Recordset.MoveFirst Adodc6.RecordSource = "Select * from Candidates where Code='" & cod & "'" Adodc6.Refresh Adodc6.Recordset("Selected") = "NO" Adodc6.Recordset.Update Adodc6.Refresh Adodc5.Recordset.Delete Adodc5.Refresh Adodc5.RecordSource = "Select * from Selected" Adodc5.Refresh b = MsgBox("Removed", vbInformation, firmname)

Else b = MsgBox("Deletion Cancelled", vbInformation, firmname) Command1.SetFocus End If End Sub

Private Sub Form_Activate() Adodc1.ConnectionString = "Provider=MSDAORA.1;Password=TIGER;User ID=SCOTT;Persist Security Info=True" Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from FindCan" Adodc1.Refresh Adodc2.ConnectionString = "Provider=MSDAORA.1;Password=TIGER;User ID=SCOTT;Persist Security Info=True" Adodc2.CommandType = adCmdText Adodc2.RecordSource = "Select * from FindEdu" Adodc2.Refresh

Adodc3.ConnectionString = "Provider=MSDAORA.1;Password=TIGER;User ID=SCOTT;Persist Security Info=True" Adodc3.CommandType = adCmdText Adodc3.RecordSource = "Select * from FindQua" Adodc3.Refresh Adodc4.ConnectionString = "Provider=MSDAORA.1;Password=TIGER;User ID=SCOTT;Persist Security Info=True" Adodc4.CommandType = adCmdText Adodc4.RecordSource = "Select * from FindExp" Adodc4.Refresh Adodc5.ConnectionString = "Provider=MSDAORA.1;Password=TIGER;User ID=SCOTT;Persist Security Info=True" Adodc5.CommandType = adCmdText Adodc5.RecordSource = "Select * from Selected" Adodc5.Refresh Adodc6.ConnectionString ="Provider=MSDAORA.1;Password=TIGER;User ID=SCOTT;Persist Security Info=True" Adodc6.CommandType = adCmdText

Adodc6.RecordSource = "Select * from Company" Adodc6.Refresh If Adodc6.Recordset.RecordCount <> 0 Then Adodc6.Recordset.MoveFirst While Adodc6.Recordset.EOF <> True Combo1.AddItem Adodc6.Recordset("Name") Adodc6.Recordset.MoveNext Wend Else b = MsgBox("First Create Company", vbCritical, firmname) Unload Me End If End Sub

Private Sub Form_Initialize() firmname = "AEES Software System" End Sub

Private Sub Option1_Click() If Option1.Value = True Then

FindCan.Show End If End Sub

Private Sub Option2_Click() If Option2.Value = True Then FindEdu.Show End If End Sub Private Sub Option3_Click() If Option3.Value = True Then FindQua.Show End If End Sub Private Sub Option4_Click() If Option4.Value = True Then FindExp.Show End If End Sub

CODE EFFICIENCY

The code efficiency can be obtained by keeping the code short as much as possible. The code should be like that it can make an output of a number of lines with a very small lines of code. While designing the application it should be kept in mind that the memory requirement of each tool must remain minimum. Very heavy memory required tools must be avoided to use as they make the efficiency of the program less. A number of variables usage also decreases the code efficiency so I tried my best in writing code to take as minimum as variables and if the integer variable is sufficient at one place then I have not tried to take the single or double variable. I kept in mind all the above things while developing the project and especially while writing the code. For example I have used image box in the about form instead of using the picture box which has a very heavy memory requirement.

OPTIMIZATION OF CODE

The optimization of code is achieved by keeping the shared variables and data within the code. If one opens a large number of files at one time then it will be impossible for him to keep the code optimized. Optimization is a term related to compression of the executing file or compiled file so that it can be placed in less memory and can be executed quickly and correctly. To optimize our code we cannot do much more as the visual basic language provides us a number of tools which has internal coding which is not accessible to us. We can make our code optimized but we cannot interfere the coding already provided or added with the code at the time of compilation by the visual basic. I tried my level best to keep the code optimized but I am not sure how much I succeeded in my efforts.

VALIDATION CHECKS

Validation checks are very important to make a software error free. These are those restrictions which are put by the programmer so that user can not enter the wrong data into the computer. Validation checks corrects the errors at first hand. They are used to avoid errors at entry time. The software has a number of validation checks at every point of entry where user can enter wrong data intentionally or by mistake. Throughout the software user can not enter the alphabetic characters in the place where he should enter the numeric data. User cannot enter the data in small letters. All the data user enters is accepted in capital letters automatically. The date entered should be correct. User cannot enter the date like 30-0204 as there are never 30 days in the month of February. In addition forms user cannot use other options if user is doing addition. While creation bills and invoices user can only select the previous stored customers and suppliers.

TEST CASES

Testing the software is very important phase. Through testing the software becomes error free and efficient. We should not allow user to enter anything which makes the data corrupted. This is only possible when we check the user from entering the wrong data. The software can be tested by two ways :Through White Box Testing :- This testing is internal. It is done through the programmer by reviewing the code systematically. The code can be scanned line by line to check logical errors and nested loops. Through Black Box Testing :- This type of testing is done by the user or the programmer can test the software being a user. In this testing programmer checks every option by running and entering the data as it can be entered by a computer illiterate user. When the data is entered in such a way the chances of errors left are less. Through out the software user can get the error messages if he tries to do any wrong operation but he may correct his mistake and close the error message box by simply pressing OK button. The messages are so specific that is clear from the messages language that what mistake he/she has done in the entry. However the errors ar minimized through input validation checks i.e. user can not do mistakes at the time of entering the data due to the checks put at the places in the software yet at some places checks creates problems so they are avoided by

giving error messages. There are some situations where it becomes necessary to know the users actual intention to do the job, at such places the message boxes are displayed to know the users desire. Some examples of such error messages and message boxes are given here so that user can identify them while actually using the software and can know to handle them.

Error Messages :-

As mentioned above the error messages are

appeared to prompt the user for his/her mistake done to enter the data. Many times the original data does not have any type of error but the user intentionally input wrong data to check the program. In such situations it becomes necessary to check the user to corrupt the other information stored in the database and this can be done by displaying the error messages for him/her.

PERT CHART

The Program Evaluation Review Technique is a method to check out the different phases of the project development. It is a diagrammatic representation which help to guide in developing the project. The different phases are mapped on the basis of the time duration and the parallel phases are noticed. The PERT chart helps us to decide the man power appointment at the time of needs. The PERT chart for the following project is given below -

The above PERT chart shows the phases of the project as follows 1-2 section shows the Analysis Phase completing in 28 days 2-3 section shows the Design Phase completing in 20 days 3-4 section shows the Development Phase completing in 18 days 4-5 section shows the Testing Phase completing in 20 days 4-6 section shows the Debugging Phase completing in 20 days 6-7 section shows the Implementation Phase completing in 14 days The total time taken is 90 days to complete the project. These days can be taken as full time or partial. The project can be completed in 3 months full time work and six months partial working. We can see that maximum working is consumed in analysis phase. The testing and debugging phases are parallel so they are counted once only. The PERT chart representation is a good technique to show the time taken by the different phases of the project.

LIMITATION OF THE PROJECT On one hand this project makes the work easy and is very useful in maintaining the database, creating reports, showing the inquiries but on other hand hand it has some limitations or boundaries also. Some of the limitations are as follows As each and every thing in this world have its limitations as this project also have some limitations. These limitations bound this project for some criteria. The main and major limitation of this project is that it is bounded to the area. It only provides job to the person near the company. It does not cover a wide area of companies. A problem arise when a particular person is selected in more than one companies and it is natural he has to chose only one job. Now it becomes so hard to choose which job will be best by future point of view. This project is limited in this situation it can not help the person to choose the best job for him. It is up to candidate that what he chooses for himself. Before matching the requirements of the companies the user of the software has to add the candidates. It is not possible to match the requirements without entering the details of the candidates. The code for candidates and the companies are generated automatically. User can not enter them on his/her own. The manipulation of matching is automatic It is considered that he will check everything before saving or further processing.

The information given is limited. User can see only those information which is given to him by me only. If he desires some special information about anything related to the data he has to told me to add that through programming only. The print outs in the form of reports are also fixed. User can get only those reports which are given to him by the programmer.

SCOPE OF FUTURE APPLICATION

In the fast running life each person need job and they also have some capability, education but the only thing the do not have is the proper guidance, they do not which company need them and this problem would

be major in future than present. As this project deals with such condition so scope for project in future is very bright. In future it can be used on Internet for the company enhancement. It would be able to deal with national and international companies. Through some modification it can be used in a big organization, which deal in this field. It also can be integrated with another with another project to achieve some another achievement.