0% found this document useful (0 votes)
11 views99 pages

1.2scope: College Management System

The system is named as "Job Seeker and Provider", which implements the latest technology and works in the Internet System. Scope In the computerized system all the main process is done by the system itself such getting input, storing, displaying, processing, and printing. The proposed new system cannot only replace all the current problems in existing system it gave some flexible than the existing one.

Uploaded by

selvaa
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC or read online on Scribd
0% found this document useful (0 votes)
11 views99 pages

1.2scope: College Management System

The system is named as "Job Seeker and Provider", which implements the latest technology and works in the Internet System. Scope In the computerized system all the main process is done by the system itself such getting input, storing, displaying, processing, and printing. The proposed new system cannot only replace all the current problems in existing system it gave some flexible than the existing one.

Uploaded by

selvaa
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC or read online on Scribd

College Management System

________________________________________________________________________

1.1Introduction
1.2Scope

________________________________________________________________________
M S University 1
College Management System
________________________________________________________________________

INTRODUCTION

Introduction

The project “Job Seeker and Provider”, as its name is a way.

This project deals with employer and candidate problem.

Now a day’s computerized system is the most popular and

latest trend of all system. We need to change the normal system to

Internet based system, Actually there are several job sites in the world

but the specialty of Job Seeker And Provider is, the candidates can

apply their Resume to the desired employer vice versa the employer

can call any Desired candidate via mail sending option. The proposed

new system cannot only replace all the current problems in existing

system it gave some flexible than the existing one.

Scope

In the computerized system all the main process is done

by the system itself such getting input, storing, displaying, processing,

and printing. Even processes such input checking, formatted output

or displaying, multiple storage facility can be done more efficiently

when compared to manual system.

________________________________________________________________________
M S University 2
College Management System
________________________________________________________________________

2.1 Entry Section


2.2 Edit Section
2.3 Report Section

________________________________________________________________________
M S University 3
College Management System
________________________________________________________________________

PROJECT DESCRIPTION

The system is named as “Job Seeker and Provider”, which

implements the latest technology and works in the Internet System.

The system is developed using Active Server Page .NET as front end

and SQL Server 2000. Macromedia ,PhotoShop and Flash software are

used to make the web pages to look good and attractive. It obtains all

the benefits from it such as easy navigation of forms using hyperlinks,

option based inputs, fast search and view by specifying limited data

and easy selection of options, access and manipulate from the database

in a secure fashion.

The following modules are included in the Online Application.

ENTRY SECTION

The candidate can enter their details through the following pages

 Resume entry

 Employer Entry

 Jobs Opening

REPORTS SECTION

________________________________________________________________________
M S University 4
College Management System
________________________________________________________________________

It also includes several search criteriaThe search

results may obtain by [Link] Reports modules have all the

possible reports and makes the hard copy of it.

 Candidate Reports

 Employer Reports

 List Of Jobs in the Particular Company in Particular

location

Given detailed description about the various inputs and

their format. The user of the application can be educated in various

ways – by conducting explicit work shops as and when the project was

developed, or at the time of it’s implementation etc.,

________________________________________________________________________
M S University 5
College Management System
________________________________________________________________________

3.1 Hardware Specification


3.2 Software Specification
3.3 Software Description

________________________________________________________________________
M S University 6
College Management System
________________________________________________________________________

SYSTEM SPECIFICATION

HARDWARE SPECIFICATIONS

Processor : Intel® Pentium® III

Speed : 850 MHz

RAM : 192 MB SD RAM

Monitor : 15” Color

Display Resolution : 800 x 600 x 24 Bit Color

Hard Disk : >32 MB for data storage

Key Board : 104 key standard keyboard

Mouse : 2 Button standard Mouse

________________________________________________________________________
M S University 7
College Management System
________________________________________________________________________

SOFTWARE SPECIFICATION

Operating System : Windows 2000 Professional

Front End : Active Server pages .NET

Back End : SQL Server 2000

________________________________________________________________________
M S University 8
College Management System
________________________________________________________________________

SOFTWARE DESCRIPTION

Why [Link]?

[Link] offers a novel programming model and infrastructure that


facilitates a powerful new class of applications. [Link] is a compiled.
NET-based environment, so one can author applications in any .NET
compatible language, including Visual Basic, C# and [Link].
Developers can effortlessly access the advantage of these technologies,
which consist of a managed Common Language Runtime environment,
type safety, inheritance, and so on. With the aid of Microsoft Visual
[Link] Web development becomes easier.
Web Forms permits us to build powerful forms-based Web pages. When
building these pages, we can use Web Forms controls to create common UI
elements and program them for common tasks. These controls permit us to
rapidly build up a Web Form.
Web services enable the exchange of data in client-server or server-server
scenarios, using standards like HTTP, SOAP (Simple Object Access
Protocol) and XML messaging to move data across firewalls. XML
provides meaning to data, and SOAP is the protocol that allows web
services to communicate easily with one another. Web services are not tied
to a particular component technology or object-calling convention. As a
result, programs written in any language, using any component model,
and running on any operating system can access Web services.
Advantages of [Link]
[Link] is Part of the .NET Framework

________________________________________________________________________
M S University 9
College Management System
________________________________________________________________________

The .NET Framework comprises over 3,400 classes that we can employ in
our [Link] applications. We can use the classes in the .NET Framework
to develop any type of applications. Since [Link] is part of the .NET
Framework, we can do all these things from within an [Link] page.
While ASP Classic pages are formed with scripting languages such as
VBScript and JavaScript. [Link] pages are formed with full-blown
programming languages such as Visual Basic and C#. And whereas there
are five standard objects accessible in the ASP Classic Framework (the
Request, Response, Application, Session, and Server objects), there are
over 3,400 standard objects in the .NET Framework that we can use in an
[Link] page.

[Link] Pages are compiled

When an [Link] page is first requested, it is compiled and cached on the


server. This means that an [Link] page performs very rapidly. All
[Link] code is compiled rather than interpreted, which permits early
binding, strong typing, and just-in-time (JIT) compiling to native code.
XML-Based
[Link] configuration settings are stored in XML-based files, which are
human readable and writable. Each one of our applications can have a
different configuration file and we can extend the configuration scheme
according to our necessities.
Code-Behind logic
The main problem with ASP Classic pages is that an *.asp page does not
yield modularized code. Both HTML and Script are present in a single

________________________________________________________________________
M S University 10
College Management System
________________________________________________________________________

page. But Microsoft's [Link] implementation contains a new-fangled


method to break up business logic code from presentation code. Each
ASPX created in Visual Studio has an equivalent class written in a .NET
compliant language such as C#. This class consists of event handlers,
initialization code and other supporting code for the user interface in the
ASPX file. The C# file that hold this class is called the code-behind file and
affords the ASPX file's programmatic implementation.
[Link] Pages are built with Server Controls
We can easily build complex Web pages by bring together the pages out of
[Link] server controls. For example, by adding validation controls to a
page, we can easily validate form data.

Concept of .NET framework


 The common language runtime (CLR)
 The common type system (CTS)
 cross-language interoperability
 managed execution
 assemblies
 security

The .NET Framework has two main components:


 Common language runtime
 NET Framework class library
[Link] Web Forms
Web Form controls are created and run on the Server just like the
HTML controls. After performing whatever operation they are designed to
________________________________________________________________________
M S University 11
College Management System
________________________________________________________________________

do, they render the appropriate HTML and send that HTML into the
output stream. For example, a DropDownList control will allow you to
bind to a data source, yet the output that is rendered is standard
<SELECT> and <OPTION> tags when sent to a browser. However, the
same DropDownList control might render WML if the target is a portable
phone. That is why these controls do not necessarily map to any one
markup language, but have the flexibility to target the appropriate markup
language.
Microsoft .NET marketing has created a huge hype about its Web
Services. This is the first of two articles on Web Services. Here we will
create a .NET Web Service using C#. We will look closely at the Discovery
protocol, UDDI, and the future of the Web Services. In the next article, we
will concentrate on consuming existing Web Services on multiple
platforms (i.e., Web, WAP-enabled mobile phones, and windows
applications).
What is a Web Service?
Web Services are a very general model for building applications and can
be implemented for any operation system that supports communication
over the Internet. Web Services use the best of component-based
development and the Web. Component-base object models like
Distributed Component Object Model (DCOM), Remote Method
Invocation (RMI), and Internet Inter-Orb Protocol (IIOP) have been around
for some time. Unfortunately all these models depend on an object-model-
specific protocol. Web Services basically uses Hypertext Transfer Protocol
(HTTP) and SOAP to make business data available on the Web. It exposes
the business objects (COM objects, Java Beans, etc.) to SOAP calls over

________________________________________________________________________
M S University 12
College Management System
________________________________________________________________________

HTTP and executes remote function calls. The Web Service consumers are
able to invoke method calls on remote objects by using SOAP and HTTP
over the Web.

SQL SERVER 2000

Microsoft® SQL Server™ 2000 extends the performance, reliability,


quality, and ease-of-use of Microsoft SQL Server version 7.0. Microsoft
SQL Server 2000 includes several new features that make it an excellent
database platform for large-scale online transactional processing (OLTP),
data warehousing, and e-commerce applications.

Features of SQL Server 2000


 Internet Integration.
 Scalability and Availability.
 Enterprise-Level Database Features.
 Ease of installation, deployment, and use.
 Data warehousing.
 English Query Enhancements
 English Query introduces new features such as:
 Greater integration with Microsoft® Visual Studio®, Analysis
Services, and Full-Text Search.
 A graphical user interface for English Query authoring.
 The SQL Project Wizard.

________________________________________________________________________
M S University 13
College Management System
________________________________________________________________________

 An XML-based language for persisting English Query model


information.

OLE DB
Using Microsoft OLE DB Provider for making a connection to the
server, execute the command, and process the results.

4.1 COM Design


4.2 Data Flow Diagram
M S University
4.3 Data Base Design
________________________________________________________________________
14
College Management System
________________________________________________________________________

COM DESIGN

Object enabling technology consisting of a simple yet elegant object


model and a lightweight runtime support system sufficient for
implementing language-independent objects on virtually any platform
that supports dynamic linking. COM is a binary standard that imposes
no additional runtime cost to objects created using traditional C++
compilers and can be hosted in any language that supports
implementing and calling functions with C linkage though a pointer.
COM solves the problems of multi-language access and fragile base
classes allowing class libraries to be distributed and reused in binary
form with release-to-release compatibility. One key benefit of COM's
binary object model is its capability to transparently access in-process
and out-of-process objects without express support from the object or
client.

________________________________________________________________________
M S University 15
College Management System
________________________________________________________________________

DATAFLOW DIAGRAM

Candidates Proces Candidates


s

Employers Employers
Proces
s
Jobs Opening Jobs Opening

Employers

Candidates Searc Jobs Opening


h
Locations

Candidate

Employers Searc Job Applications


h
Locations

________________________________________________________________________
M S University 16

Locations
College Management System
________________________________________________________________________

Apply Mail Employers EmailId


Candidates
Resum Server
e

Call Mail Candidates EmailId


Employers
Person Server

________________________________________________________________________
M S University 17
College Management System
________________________________________________________________________

DATABASE DESIGN

CandidateDomainKnowledge
Column DataType Length AllowNulls
CIndustryId int 4 No
IndustryId int 4 No
PositionId int 4 No
CandidateId int 4 No
StartActiveDate datetime 8 Yes
EndActiveDate datetime 8 Yes
CreatedBy varchar 8000 Yes
CreatedDate datetime 8 Yes
LastmodifiedBy varchar 8000 Yes
LastModifiedDate datetime 8 Yes

CandidatePreferedJob

Column DataType Length AllowNulls


PreferedJobId int 4 No
CandidateId int 4 No
PreferedJob varchar 8000 No
Salary varchar 8000 Yes
Travel varchar 8000 Yes
LocationId int 4 No
CreatedBy varchar 8000 Yes
CreatedDate datetime 8 Yes
LastModifiedBy varchar 8000 Yes
LastModifiedDate datetime 8 Yes

________________________________________________________________________
M S University 18
College Management System
________________________________________________________________________

Candidates

Column DataType Length AllowNulls


CandidateId int 4 No
HowFound varchar 8000 Yes
LogInUser varchar 8000 No
LogInPassword varchar 8000 No
EmailId varchar 8000 No
FirstName varchar 8000 No
LastName varchar 8000 No
Phone varchar 8000 Yes
Address1 varchar 8000 Yes
Address2 varchar 8000 Yes
LocationId int 4 No
PostalCode varchar 8000 No
DOB datetime 8 No
Gender varchar 8000 No
SchoolName varchar 8000 Yes
Education varchar 8000 No
CompanyName varchar 8000 No
YearOfExperience varchar 8000 Yes
ResumePath varchar 8000 No
StartActiveDate datetime 8 No
EndActiveDate datetime 8 Yes
CreatedBy varchar 8000 Yes
CreatedDate datetime 8 Yes
LastModifiedBy varchar 8000 Yes
LastModifiedDate datetime 8 Yes

________________________________________________________________________
M S University 19
College Management System
________________________________________________________________________

CandidateSkill

Column DataType Length AllowNulls


CSkillId int 4 No
CandidateId int 4 No
SkillId int 4 No
CreatedBy varchar 8000 Yes
CreatedDate datetime 8 Yes
LastModifiedBy varchar 8000 Yes
LastModifiedDate datetime 8 Yes

City

Column DataType Length AllowNulls


CityId int 4 No
City varchar 8000 Yes
StartActiveDate datetime 8 Yes
EndActiveDate datetime 8 Yes
CreatedBy varchar 8000 Yes
CreatedDate datetime 8 Yes
LastModifiedBy varchar 8000 Yes
LastModifiedDate datetime 8 Yes

DomainKnowledge

________________________________________________________________________
M S University 20
College Management System
________________________________________________________________________

Column DataType Length AllowNulls


IndustryId int 4 No
Industry varchar 8000 No
StartActiveDate datetime 8 Yes
EndActiveDate datetime 8 Yes
CreatedBy varchar 8000 Yes
CreatedDate datetime 8 Yes
LastModifiedBy varchar 8000 Yes
LastModifiedDate datetime 8 Yes

JobApplications

Column DataType Length AllowNulls


JobApplicationId int 4 No
CandidateId int 4 No
JobId int 4 No
CreatedBy varchar 8000 Yes
CreatedDate datetime 8 Yes
LastModifiedBy varchar 8000 Yes
LastModifiedDate datetime 8 Yes

________________________________________________________________________
M S University 21
College Management System
________________________________________________________________________

Employers

Column DataType Length AllowNulls


EmployerId int 4 No
HowFound varchar 8000 Yes
UserName varchar 8000 No
Password varchar 8000 No
FirstName varchar 8000 No
LastName varchar 8000 No
ScreenName varchar 8000 No
Phone varchar 8000 No
Fax varchar 8000 No
CompanyName varchar 8000 No
Address1 varchar 8000 Yes
Address2 varchar 8000 Yes
CityId int 4 No
StateId int 4 No
PostalCode varchar 8000 Yes
YearEstablished datetime 8 Yes
NoOfEmployees numeric 17 Yes
ResumeEmail varchar 8000 No
DetailedDescription varchar 8000 Yes
StartActiveDate datetime 8 Yes
EndActiveDate datetime 8 Yes
CreatedBy varchar 8000 Yes
CreatedDate datetime 8 Yes
LastModifiedBy varchar 8000 Yes
LastModifiedDate datetime 8 Yes

Jobs

Column DataType Length AllowNulls


EmpJobId int 4 No
EmployerId int 4 No
JobId int 4 No
________________________________________________________________________
M S University 22
College Management System
________________________________________________________________________

PostedDate datetime 8 Yes


CreatedBy varchar 8000 Yes
CreatedDate datetime 8 Yes
LastModifiedBy varchar 8000 Yes
LastModifiedDate datetime 8 Yes

JobSkill

Column DataType Length AllowNulls


JobSkillId int 4 No
JobId int 4 No
SkillId int 4 No
Knowledge varchar 8000 Yes
Experience varchar 8000 Yes
Need varchar 8000 Yes
Salary varchar 8000 Yes
CreatedBy varchar 8000 Yes
CreatedDate datetime 8 Yes
LastModifiedBy varchar 8000 Yes
LastModifiedDate datetime 8 Yes

Jobsopening

Column DataType Length AllowNulls


JobId int 4 No
EmployerId int 4 No
PositionId int 4 No
IndustryId int 4 No
JobType varchar 8000 No
CompanyType varchar 8000 No
CompanySize varchar 8000 Yes
________________________________________________________________________
M S University 23
College Management System
________________________________________________________________________

ScheduleShift varchar 8000 Yes


StartDate datetime 8 Yes
VisaSponsor varchar 8000 Yes
MinExperience varchar 8000 Yes
MinEducation varchar 8000 Yes
BusinessTravel varchar 8000 Yes
Salary money 8 Yes
BriefDescription varchar 8000 Yes
DetailedDescription varchar 8000 Yes
Address1 varchar 8000 Yes
Address2 varchar 8000 Yes
LocationId int 4 Yes
ContactPerson varchar 8000 Yes
ContactEmail varchar 8000 Yes
Phone varchar 8000 Yes
Fax varchar 8000 Yes
StartActiveDate datetime 8 Yes
EndActiveDate datetime 8 Yes
CreatedBy varchar 8000 Yes
CreatedDate datetime 8 Yes
LastmodifiedBy varchar 8000 Yes
LastModifiedDate datetime 8 Yes

Locations

Column DataType Length AllowNulls


LocationId int 4 No
CityId int 4 Yes
StateId int 4 Yes
BranchEmployer varchar 8000 Yes
StartActiveDate datetime 8 Yes
EndActiveDate datetime 8 Yes
CreatedBy varchar 8000 Yes
CreatedDate datetime 8 Yes
LastModifiedBy varchar 8000 Yes
LastModifiedDate datetime 8 Yes

PositionHeld
Column DataType Length AllowNulls
________________________________________________________________________
M S University 24
College Management System
________________________________________________________________________

PositionId int 4 No
Category varchar 8000 Yes
StartActiveDate datetime 8 Yes
EndActiveDate datetime 8 Yes
CreatedBy varchar 8000 Yes
CreatedDate datetime 8 Yes
LastModifiedBy varchar 8000 Yes
LastModifiedDate datetime 8 Yes

Skills

Column DataType Length AllowNulls


SkillId int 4 No
Skills varchar 8000 Yes
Knowledge varchar 8000 Yes
Experience varchar 8000 Yes
UsedLast int 4 Yes
UsedFor varchar 8000 Yes
StartActiveDate datetime 8 Yes
EndActiveDate datetime 8 Yes
CreatedBy varchar 8000 Yes
CreatedDate datetime 8 Yes
LastModifiedBy varchar 8000 Yes
LastModifiedDate datetime 8 Yes

State

Column DataType Length AllowNulls


StateId int 4 No
State varchar 8000 Yes
StartActiveDate datetime 8 Yes
EndActivedate datetime 8 Yes
CreatedBy varchar 8000 Yes
CretaedDate datetime 8 Yes
________________________________________________________________________
M S University 25
College Management System
________________________________________________________________________

LastModifiedBy varchar 8000 Yes


LastModifiedDate datetime 8 Yes

SOURCECODE

Connection Coding
Imports [Link]
Imports [Link]
Imports [Link]

Public Class clsResume


Private parsechar As String = "|"
Public Function Connect(ByVal ConnectionString As String) As Object
Dim objConn As SqlConnection
Try
objConn = New SqlConnection(ConnectionString)
[Link]()
Connect = objConn
Catch ExcConnect As Exception
Dim ExcThrowable As New Exception([Link])
Throw ExcThrowable
End Try
End Function

Disconnect Coding

Public Sub Disconnect(ByVal ConnObj As Object)


If Not IsNothing(ConnObj) Then
ConnObj = Nothing

________________________________________________________________________
M S University 26
College Management System
________________________________________________________________________

End If
End Sub

ResumeEntry

Public Function ResumentEntry(ByVal ConnectionString As String, ByVal


UserName As String, _
ByVal Password As String, ByVal confirmpass As String, _
ByVal firstname As String, ByVal lastname As String, _
ByVal ScreenName As String, _
ByVal address1 As String, ByVal address2 As String, _
ByVal Location As String, ByVal Postalcode As String, _
ByVal dob As String, ByVal Gender As String, _
ByVal Schoolname As String, ByVal Education As String, _
ByVal Found As String, ByVal Company As String, _
ByVal YearExperience As String, ByVal General As String,
_
ByVal Industry As String, ByVal Skill As String, _
ByVal Knowledge As String, ByVal Experience As String, _
ByVal UsedLast As String, ByVal Usedfor As String, _
ByVal Skill1 As String, ByVal Knowledge1 As String, _
ByVal Experience1 As String, ByVal UsedLast1 As String, _
ByVal Usedfor1 As String, ByVal Preferedjob As String, _
ByVal Salary As String, ByVal Travel As String, _

________________________________________________________________________
M S University 27
College Management System
________________________________________________________________________

ByVal PreferedLocation As String, ByVal ResumeDesc As


String)

Dim ColsData, ColsList As String

ColsData = "'" & UserName & "'|'" & Password & "'|'" & firstname &
"'|'" _
& lastname & "'|'" & ScreenName & "'|'" & address1 & "'|'" _
& address2 & "'|'" & Location & "'|'" _
& Postalcode & "'|'" & dob & "'|'" & Gender & "'|'" _
& Schoolname & "'|'" & Education & "'|'" & Found & "'|'" _
& Company & "'|'" & YearExperience & "'|'" & ResumeDesc
& "'"

ColsList = "LogInUser," _
& "LogInPassword,FirstName,LastName,EmailId," _
& "Address1,Address2,LocationId,PostalCode,DOB," _
&
"Gender,SchoolName,Education,HowFound,CompanyName," _
& "YearOfExperience,ResumePath"

Dim objcon As SqlConnection


Dim CandidateId As Integer
Dim cmdtext As String
Dim objcmd As SqlCommand

objcon = Connect(ConnectionString)
Dim objTrans As SqlTransaction = [Link]()
objcmd = New SqlCommand()
[Link] = objcon
[Link] = objTrans

Try

Dim ObjectName As String


ObjectName = "Candidates"

Dim i, count As Integer


Dim coldata() As String
________________________________________________________________________
M S University 28
College Management System
________________________________________________________________________

Dim ColumnsData As String

coldata = [Link](parsechar)
count = [Link](0)
ColumnsData = ""
For i = 0 To count
If coldata(i) = "''" Or coldata(i) = "' '" Then
If i <> count Then
ColumnsData = ColumnsData + "null,"
Else
ColumnsData = ColumnsData + "null"
End If
Else
If i <> count Then
ColumnsData = ColumnsData + coldata(i) + ","
Else
ColumnsData = ColumnsData + coldata(i)
End If
End If
Next

cmdtext = "SET QUOTED_IDENTIFIER OFF"


[Link] = [Link]
[Link] = cmdtext
[Link]()

cmdtext = "Insert into " + ObjectName + "(" + ColsList + ") Values("


+ ColumnsData + ")"
[Link] = [Link]
[Link] = cmdtext
[Link]()

cmdtext = "SELECT @@IDENTITY"


[Link] = cmdtext
CandidateId = [Link]()

cmdtext = "Insert into CandidateDomainKnowledge


(IndustryId,positionId,CandidateId) Values(" & Industry & "," & General &
"," & CandidateId & ")"
________________________________________________________________________
M S University 29
College Management System
________________________________________________________________________

[Link] = [Link]
[Link] = cmdtext
[Link]()

Dim SkillId As Integer

If Trim(Skill) <> "" Then


cmdtext = "Insert into Skills
(Skills,Knowledge,Experience,UsedLast,UsedFor) Values('" & Skill & "','" &
Knowledge & "','" & Experience & "','" & UsedLast & "','" & Usedfor & "')"
[Link] = cmdtext
[Link]()

cmdtext = " SELECT @@Identity "


[Link] = [Link]
[Link] = cmdtext
SkillId = [Link]()

cmdtext = "Insert into CandidateSkill (CandidateId, SkillId)


Values(" & CandidateId & "," & SkillId & ")"
[Link] = cmdtext
[Link]()
End If

If Trim(Skill1) <> "" Then


cmdtext = "Insert into Skills
(Skills,Knowledge,Experience,UsedLast,UsedFor) Values('" & Skill1 & "','"
& Knowledge1 & "','" & Experience1 & "','" & UsedLast1 & "','" & Usedfor1
& "')"
[Link] = cmdtext
[Link]()

cmdtext = " SELECT @@Identity "


[Link] = cmdtext
SkillId = [Link]()

cmdtext = "Insert into CandidateSkill (CandidateId, SkillId)


Values(" & CandidateId & "," & SkillId & ")"
[Link] = cmdtext
________________________________________________________________________
M S University 30
College Management System
________________________________________________________________________

[Link]()
End If

cmdtext = "Insert into CandidatePreferedJob (CandidateId,


PreferedJob,Salary,Travel,LocationId) Values(" & CandidateId & ",'" &
Preferedjob & "'," & Salary & ", '" & Travel & "','" & PreferedLocation & "')"
[Link] = [Link]
[Link] = cmdtext
[Link]()

[Link]()

Catch ExcResumentEntry As Exception


Dim ExcThrowable As New
Exception([Link])
Throw ExcThrowable
[Link]()
ResumentEntry = 1
Finally
objcmd = Nothing
ResumentEntry = 0
End Try
ResumentEntry = 0
End Function

Public Function ListRow(ByVal ConnectionString As String, ByVal


objFlag As String, Optional ByVal QueryCondition As String = "") As
DataSet

Dim ObjectName As String


If objFlag = "ER" Then
ObjectName = "Employers"
End If
Dim ObjList As New clsList()
ListRow = [Link](ConnectionString, ObjectName,
"EmployerId, Rtrim(LastName) + ' ' + Rtrim(FirstName) Employername",
QueryCondition)
End Function

________________________________________________________________________
M S University 31
College Management System
________________________________________________________________________

Public Function ListJobs(ByVal ConnectionString As String, Optional


ByVal QueryCondition As String = "") As DataSet

Dim objcon As SqlConnection


Dim cmdtext As String
Dim objcmd As SqlCommand
objcmd = New SqlCommand()
Dim objDataset As New DataSet()
Dim objada As SqlDataAdapter

Try
objcon = Connect(ConnectionString)
[Link] = objcon
cmdtext = "SET QUOTED_IDENTIFIER OFF"
[Link] = [Link]
[Link] = cmdtext
[Link]()

cmdtext = " SELECT " _


& " [Link], [Link],
CONVERT(CHAR(10),[Link],101) YearEstablished, " _
& " isnull(CONVERT(CHAR(10),[Link],101),'') Date, " _
& " [Link], Isnull([Link],'') Industry,
Isnull([Link],'') Position, " _
& " Isnull([Link],'') Education, Isnull([Link],'')
JobType, " _
& " Isnull([Link],'') Experience, [Link], " _
& " Isnull([Link],0) Salary, Isnull([Link],'') JobType,
Isnull([Link],'') CompanySize, Isnull([Link],'')
CompanyType, " _
& " Isnull([Link],'') ScheduleShift,
Isnull([Link],'') VisaSponsor, " _
& " Isnull([Link],'') Skills, ISNULL([Link],'') Knowledge,
"_
& " ISNULL([Link],'') SkillExperience, " _
& " ISNULL([Link],'') Need, " _
& " Isnull([Link],'') BusinessTravel,
Isnull([Link],'') DetailedDescription, " _
________________________________________________________________________
M S University 32
College Management System
________________________________________________________________________

& " [Link] + ' - ' + [Link] Location " _


& " FROM " _
& " Employers E LEFT OUTER JOIN JobsOpening JO ON " _
& " [Link]=[Link] LEFT OUTER JOIN Locations
L ON " _
& " [Link]=[Link] LEFT OUTER JOIN City C ON "
_
& " [Link] = [Link] LEFT OUTER JOIN State S ON " _
& " [Link] = [Link] LEFT OUTER JOIN Jobs J ON " _
& " [Link]=[Link] AND [Link]=[Link] LEFT
OUTER JOIN " _
& " JobSkill JS ON [Link] = [Link] LEFT OUTER JOIN Skills
SK " _
& " ON [Link]=[Link] LEFT OUTER JOIN PositionHeld PH
ON " _
& " [Link]=[Link] LEFT OUTER JOIN
DomainKnowledge DK ON " _
& " [Link]=[Link] "

If Trim(QueryCondition) <> "" Then


cmdtext = cmdtext & QueryCondition
End If

objada = New SqlDataAdapter(cmdtext, ConnectionString)


[Link](objDataset)
ListJobs = objDataset

Catch ExcListJobs As Exception


Dim ExcThrowable As New Exception([Link])
Throw ExcThrowable
Finally
objcmd = Nothing
objada = Nothing
objcon = Nothing
End Try

End Function

________________________________________________________________________
M S University 33
College Management System
________________________________________________________________________
JobEntry

Public Function JobEntry(ByVal ConnectionString As String, ByVal


CompanyName As String, _
ByVal StartDate As String, ByVal Industry As String, _
ByVal GenericTitle As String, ByVal jobtype As String, _
ByVal CompanyType As String, ByVal ScheduleShift As
String, _
ByVal CompanySize As String, ByVal WorkVisaSponsor
As String, _
ByVal MinEducation As String, ByVal MinExperience As
String, _
ByVal BusinessTravel As String, ByVal Salary As String, _
ByVal BriefDesc As String, ByVal DetailedDesc As String, _
ByVal Address1 As String, ByVal Address2 As String, _
ByVal Location As String, ByVal ContactName As String, _
ByVal ContactEmail As String, ByVal Phone As String, _
ByVal Fax As String, ByVal Skill As String, _
ByVal Knowledge As String, ByVal Experience As String, _
ByVal UsedLast As String, ByVal Usedfor As String, _
ByVal Skill1 As String, ByVal Knowledge1 As String, _
ByVal Experience1 As String, ByVal UsedLast1 As String, _
ByVal Usedfor1 As String)

Dim ColsData, ColsList As String

ColsData = "'" & CompanyName & "'|'" & StartDate & "'|'" & Industry
& "'|'" _
& GenericTitle & "'|'" & jobtype & "'|'" & CompanyType &
"'|'" _
& ScheduleShift & "'|'" & CompanySize & "'|'" &
WorkVisaSponsor & "'|'" _
& MinEducation & "'|'" & MinExperience & "'|'" &
BusinessTravel & "'|" _
& Salary & "|'" & BriefDesc & "'|'" & DetailedDesc & "'|'" _
& Address1 & "'|'" & Address2 & "'|'" & Location & "'|'" _
& ContactName & "'|'" & ContactEmail & "'|'" & Phone &
"'|'" _

________________________________________________________________________
M S University 34
College Management System
________________________________________________________________________

& Fax & "'"

ColsList = "EmployerId," _
& "StartDate,IndustryId,PositionId,jobtype," _
& "CompanyType, ScheduleShift, CompanySize, VisaSponsor,"
_
& "MinEducation,MinExperience,BusinessTravel,Salary,
BriefDescription, " _
& "DetailedDescription,Address1,Address2,LocationId," _
& "ContactPerson,ContactEmail,Phone,Fax"

Dim objcon As SqlConnection


Dim JobId As Integer
Dim cmdtext As String
Dim objcmd As SqlCommand

objcon = Connect(ConnectionString)
Dim objTrans As SqlTransaction = [Link]()
objcmd = New SqlCommand()
[Link] = objcon
[Link] = objTrans

Try

Dim ObjectName As String


ObjectName = "jobsOpening"

Dim i, count As Integer


Dim coldata() As String
Dim ColumnsData As String

coldata = [Link](parsechar)
count = [Link](0)
ColumnsData = ""
For i = 0 To count
If coldata(i) = "''" Or coldata(i) = "' '" Then
If i <> count Then
ColumnsData = ColumnsData + "null,"
Else
________________________________________________________________________
M S University 35
College Management System
________________________________________________________________________

ColumnsData = ColumnsData + "null"


End If
Else
If i <> count Then
ColumnsData = ColumnsData + coldata(i) + ","
Else
ColumnsData = ColumnsData + coldata(i)
End If
End If
Next

cmdtext = "SET QUOTED_IDENTIFIER OFF"


[Link] = [Link]
[Link] = cmdtext
[Link]()

cmdtext = "Insert into " + ObjectName + "(" + ColsList + ") Values("


+ ColumnsData + ")"
[Link] = [Link]
[Link] = cmdtext
[Link]()

cmdtext = "SELECT @@IDENTITY"


[Link] = cmdtext
JobId = [Link]()

cmdtext = "Insert into Jobs ( EmployerId,JobId,PostedDate )


Values(" & CompanyName & "," & JobId & ",Getdate())"
[Link] = cmdtext
[Link]()
Dim SkillId As Integer

If Trim(Skill) <> "" Then


cmdtext = "Insert into Skills
(Skills,Knowledge,Experience,UsedLast,UsedFor) Values('" & Skill & "','" &
Knowledge & "','" & Experience & "','" & UsedLast & "','" & Usedfor & "')"
[Link] = cmdtext
[Link]()

________________________________________________________________________
M S University 36
College Management System
________________________________________________________________________

cmdtext = " SELECT @@Identity "


[Link] = [Link]
[Link] = cmdtext
SkillId = [Link]()

cmdtext = "Insert into JobSkill (JobId, SkillId) Values(" & JobId &
"," & SkillId & ")"
[Link] = cmdtext
[Link]()

End If

If Trim(Skill1) <> "" Then


cmdtext = "Insert into Skills
(Skills,Knowledge,Experience,UsedLast,UsedFor) Values('" & Skill1 & "','"
& Knowledge1 & "','" & Experience1 & "','" & UsedLast1 & "','" & Usedfor1
& "')"
[Link] = cmdtext
[Link]()

cmdtext = " SELECT @@Identity "


[Link] = cmdtext
SkillId = [Link]()

cmdtext = "Insert into JobSkill (JobId, SkillId) Values(" & JobId &
"," & SkillId & ")"
[Link] = cmdtext
[Link]()
End If

[Link]()

Catch ExcJobEntry As Exception


Dim ExcThrowable As New Exception([Link])
Throw ExcThrowable
[Link]()
JobEntry = 1
________________________________________________________________________
M S University 37
College Management System
________________________________________________________________________

Finally
objcmd = Nothing
JobEntry = 0
End Try
JobEntry = 0
End Function

EmployerEntry

Public Function EmployerEntry(ByVal ConnectionString As


String, ByVal UserName As String, _
ByVal Password As String, _
ByVal confirmpass As String, _
ByVal firstname As String,
ByVal lastname As String, _
ByVal ScreenName As String, _
ByVal phone As String, _
ByVal Fax As String, _
ByVal HowFound As String, _
ByVal CompanyName As String,_
ByVal address1 As String, _
ByVal address2 As String, ByVal City As String, _
ByVal State As String, ByVal PostalCode As String, _
ByVal YearEstablished As String, _
ByVal NoOfEmployees As String, _
ByVal ResumeEmail As String, _
ByVal DetailedDesc As String)

Dim ColsData, ColsList As String

ColsData = "'" & UserName & "'|'" & Password & "'|'" & firstname &
"'|'" _
& lastname & "'|'" & ScreenName & "'|'" _
& phone & "'|'" & Fax & "'|'" & HowFound & "'|'" _

________________________________________________________________________
M S University 38
College Management System
________________________________________________________________________

& CompanyName & "'|'" & address1 & "'|'" & address2 &
"'|'" _
& City & "'|'" & State & "'|'" & PostalCode & "'|'" _
& YearEstablished & "'|'" & NoOfEmployees & "'|'" _
& ResumeEmail & "'|'" & DetailedDesc & "'"

ColsList = "UserName," _
& "Password,FirstName,LastName,ScreenName," _
& "Phone,Fax,HowFound,CompanyName," _
& "Address1,Address2,CityId,StateId,PostalCode," _
&
"YearEstablished,NoOfEmployees,ResumeEmail,DetailedDescription"

Dim objcon As SqlConnection


Dim CandidateId As Integer
Dim cmdtext As String
Dim objcmd As SqlCommand

objcon = Connect(ConnectionString)
objcmd = New SqlCommand()
[Link] = objcon

Try

Dim ObjectName As String


ObjectName = "Employers"

Dim i, count As Integer


Dim coldata() As String
Dim ColumnsData As String

coldata = [Link](parsechar)
count = [Link](0)
ColumnsData = ""
For i = 0 To count
If coldata(i) = "''" Or coldata(i) = "' '" Then
If i <> count Then
ColumnsData = ColumnsData + "null,"
Else
________________________________________________________________________
M S University 39
College Management System
________________________________________________________________________

ColumnsData = ColumnsData + "null"


End If
Else
If i <> count Then
ColumnsData = ColumnsData + coldata(i) + ","
Else
ColumnsData = ColumnsData + coldata(i)
End If
End If
Next

cmdtext = "SET QUOTED_IDENTIFIER OFF"


[Link] = [Link]
[Link] = cmdtext
[Link]()

cmdtext = "Insert into " + ObjectName + "(" + ColsList + ") Values("


+ ColumnsData + ")"
[Link] = [Link]
[Link] = cmdtext
[Link]()

Catch ExcEmployerEntry As Exception


Dim ExcThrowable As New Exception([Link])
Throw ExcThrowable
EmployerEntry = 1
Finally
objcmd = Nothing
EmployerEntry = 0
End Try
EmployerEntry = 0
End Function

ApplyJob

Public Function AddApplyJob(ByRef ConnectionString As String, ByVal


CandidateId As Integer, ByVal JobId As Integer) As Integer

Dim ObjectName As String

________________________________________________________________________
M S University 40
College Management System
________________________________________________________________________

ObjectName = "JobApplications"
Dim objcmd As SqlCommand
Dim Cnn As SqlConnection
Dim cmdtext As String

Try
Cnn = Connect(ConnectionString)
objcmd = New SqlCommand()
[Link] = Cnn

Dim ColumnsList, ColumnsData As String


ColumnsList = "CandidateId,JobId,CreatedBy,CreatedDate"
ColumnsData = CandidateId & "," & JobId &
",SUser_SName(),GetDate()"

cmdtext = "Insert into " + ObjectName + "(" + ColumnsList + ")


Values(" + ColumnsData + ")"
[Link] = [Link]
[Link] = cmdtext
[Link]()

Catch ExcAddApplyJob As Exception


Dim ExcThrowable As New Exception([Link])
Throw ExcThrowable
AddApplyJob = 1
Exit Function
Finally
objcmd = Nothing
AddApplyJob = 0
End Try
AddApplyJob = 0
End Function

Select Skill
Public Function SelectSKill(ByVal ConnectionString As String, Optional
ByVal QueryCondition As String = "") As DataSet
Dim objcon As SqlConnection
Dim cmdtext As String
Dim objcmd As SqlCommand

________________________________________________________________________
M S University 41
College Management System
________________________________________________________________________

Dim candidateid As Integer


objcmd = New SqlCommand()
Dim objDataset As New DataSet()
Dim objada As SqlDataAdapter

Try
objcon = Connect(ConnectionString)
[Link] = objcon

cmdtext = "SET QUOTED_IDENTIFIER OFF"


[Link] = [Link]
[Link] = cmdtext
[Link]()

cmdtext = " SELECT " _


& "[Link], " _
& "[Link],[Link]," _
& "[Link],[Link]," _
& "[Link]" _
& " FROM " _
& "Candidates CA ," _
& "CandidateSkill CS," _
& "Skills SK" _
& " WHERE " _
& "[Link] = [Link] AND " _
& "[Link] = [Link] "

If Trim(QueryCondition) <> "" Then


cmdtext = cmdtext & QueryCondition
End If

objada = New SqlDataAdapter(cmdtext, ConnectionString)


[Link](objDataset)
SelectSKill = objDataset

Catch ExcSelectSKill As Exception


Dim ExcThrowable As New Exception([Link])
Throw ExcThrowable
Finally
________________________________________________________________________
M S University 42
College Management System
________________________________________________________________________

objcmd = Nothing
objada = Nothing
objcon = Nothing
End Try
End Function

Delete Applicant
Public Sub DeleteApplicant(ByRef ConnectionString As String, ByVal
CandidateIds As String, ByVal JobId As String)
Dim ObjectName As String
ObjectName = "JobApplications"
Dim objcmd As SqlCommand
Dim Cnn As New SqlConnection()
Dim cmdtext As String
Try
Cnn = Connect(ConnectionString)
objcmd = New SqlCommand()
[Link] = Cnn

cmdtext = "Delete " + ObjectName + " where JobId =" &


JobId & " AND CandidateId in (" & CandidateIds & ")"
[Link] = [Link]
[Link] = cmdtext
[Link]()

Catch ExcDeleteApplicant As Exception


Dim ExcThrowable As New
Exception([Link])
Throw ExcThrowable
Finally
objcmd = Nothing
Cnn = Nothing
End Try
End Sub
End Class

________________________________________________________________________
M S University 43
College Management System
________________________________________________________________________

Select Applicant

Public Function SelectApplicant(ByVal ConnectionString As String,


Optional ByVal QueryCondition As String = "") As DataSet
Dim objcon As SqlConnection
Dim cmdtext As String
Dim objcmd As SqlCommand
objcmd = New SqlCommand()
Dim objDataset As New DataSet()
Dim objada As SqlDataAdapter

Try
objcon = Connect(ConnectionString)
[Link] = objcon

cmdtext = "SET QUOTED_IDENTIFIER OFF"


[Link] = [Link]
[Link] = cmdtext
[Link]()

cmdtext = " SELECT " _


& " [Link], " _
& " [Link], " _
& " [Link] Title, " _
& " [Link] + '-' + [Link] Location, " _
& " ISNULL([Link],'') YearOfExperience, " _
& " ISNULL([Link],0) Salary " _
& " FROM " _
& " JobApplications JA, " _
& " JobsOpening JO, " _
& " Candidates CA, " _
& " CandidateDomainKnowledge CDK, " _
& " PositionHeld PH, " _
& " CandidatePreferedJob CPJ, " _
& " Locations L, City C, State S " _
& " WHERE " _
& " [Link] = [Link] AND " _
& " [Link] = [Link] AND " _

________________________________________________________________________
M S University 44
College Management System
________________________________________________________________________

& " [Link] = [Link] AND " _


& " [Link] = [Link] AND " _
& " [Link] = [Link] AND " _
& " [Link] = [Link] AND " _
& " [Link] = [Link] AND " _
& " [Link] = [Link] "

If Trim(QueryCondition) <> "" Then


cmdtext = cmdtext & QueryCondition
End If

objada = New SqlDataAdapter(cmdtext, ConnectionString)


[Link](objDataset)
SelectApplicant = objDataset

Catch ExcSelectApplicant As Exception


Dim ExcThrowable As New
Exception([Link])
Throw ExcThrowable
Finally
objcmd = Nothing
objada = Nothing
objcon = Nothing
End Try

End Function

SCREENCODING

Candidatelogin

Imports [Link]
Imports [Link]

Public Class CandidateLogin


Inherits [Link]
Protected WithEvents txtloginname As
[Link]

________________________________________________________________________
M S University 45
College Management System
________________________________________________________________________

Protected WithEvents btnsubmit As


[Link]
Protected WithEvents lblLogout As [Link]
Protected WithEvents ReqLogin As
[Link]
Protected WithEvents ValidationSummary1 As
[Link]
Protected WithEvents Lblmessage As
[Link]
Protected WithEvents txtpassword As
[Link]

#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.


<[Link]()> Private Sub
InitializeComponent()

End Sub

Private Sub Page_Init(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region

Dim objcls As New [Link]()

Private Sub Page_Load(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
'Put user code to initialize the page here

________________________________________________________________________
M S University 46
College Management System
________________________________________________________________________

If [Link]("Logout") = "Y" Or
[Link]("Session") = "N" Then
[Link]()
[Link] = True
If [Link]("Logout") = "Y" Then
[Link] = "You are successfully logout"
Else
[Link] = "Session expires"
End If

End If

If Not IsPostBack Then


If [Link]("CandidateId") <> "" Then
databind1()
End If
End If
End Sub

Private Sub databind1()


Dim dataset As New DataSet()
dataset =
[Link]([Link]("COnnection
String"), [Link]("CandidateId"))
[Link] = [Link](0).Rows(0).Item("LogInUser")
End Sub

Private Sub btnsubmit_ServerClick(ByVal sender As [Link],


ByVal e As [Link]) Handles [Link]

If [Link]("CandidateId") <> "" Then

If Trim([Link]) <> "" Then


[Link]([Link](
"ConnectionString"), [Link]("CandidateId"),
[Link], [Link])
[Link]("[Link]?CandidateId=" &
[Link]("CandidateId"))

________________________________________________________________________
M S University 47
College Management System
________________________________________________________________________

End If
Else

If Trim([Link]) <> "" And Trim([Link]) <>


"" Then
Dim Loginuser As String
Dim LoginPassword As String

Loginuser = Trim([Link])
LoginPassword = Trim([Link])
Dim count As Integer

Dim con As SqlConnection


Dim cmd As SqlCommand
Dim sqlstr As String
sqlstr = "Select CandidateId from candidates where loginuser='"
& Loginuser & "' and loginpassword = '" & LoginPassword & "'"

con = New SqlConnection("User ID=sa;Initial


Catalog=JobSearch;Data Source=Winserver2;Password=gsstvl;")
cmd = New SqlCommand(sqlstr, con)

[Link]()
count = [Link]
[Link]()

If count = 0 Then
[Link] = "Invalid LogIn"
Else
Session("CandidateId") = count
[Link]("[Link]?CandidateId=" &
count)
End If
Else
[Link] = "Please enter LoginName and Password"
End If
End If
End Sub
End Class
________________________________________________________________________
M S University 48
College Management System
________________________________________________________________________

Resume entry
Imports JobSearchClass

Public Class ResumeEntry


Inherits [Link]

#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.


<[Link]()> Private Sub
InitializeComponent()

End Sub

Private Sub Page_Init(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub

#End Region

Dim objList As New [Link]()


Dim ObjResume As New [Link]()
Dim CandidateId As Integer = 0

Private Sub Page_Load(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
'Put user code to initialize the page here
If Not IsPostBack Then
DataPopulate()
If [Link]("CandidateId") <> "" Then
ModifyDataList()
End If
End If
End Sub

________________________________________________________________________
M S University 49
College Management System
________________________________________________________________________

Private Sub clear()


[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = 0
[Link] = ""
[Link] = ""
[Link] = 0
[Link] = ""
[Link] = 0
[Link] = 0
[Link] = ""
[Link] = 0
[Link] = 0
[Link] = 0
[Link] = ""
[Link] = ""
[Link] = 0
[Link] = 0
[Link] = 0
[Link] = 0
[Link] = ""
[Link] = 0
[Link] = 0
[Link] = 0
[Link] = 0
[Link] = ""
[Link] = 0
[Link] = 0
[Link] = ""
End Sub
Private Sub ModifyDataList()
CandidateId = [Link]("CandidateId")
________________________________________________________________________
M S University 50
College Management System
________________________________________________________________________

Dim objData As New DataSet()


objData =
[Link]([Link]("Connection
String"), " AND [Link]=" & CandidateId)
[Link] = [Link](0).Rows(0).Item("LogInUser")
[Link] =
[Link](0).Rows(0).Item("LogInPassword")
'[Link] =
[Link](0).Rows(0).Item("LogInPassword")
[Link] = [Link](0).Rows(0).Item("firstname")
[Link] = [Link](0).Rows(0).Item("lastname")
[Link] = [Link](0).Rows(0).Item("EmailId")
[Link] = [Link](0).Rows(0).Item("Address1")
[Link] = [Link](0).Rows(0).Item("Address2")
[Link] =
[Link](0).Rows(0).Item("CandidateLocation")
[Link] = [Link](0).Rows(0).Item("postalcode")
[Link] = [Link](0).Rows(0).Item("DOB")
[Link] =
Trim([Link](0).Rows(0).Item("Gender"))
[Link] = [Link](0).Rows(0).Item("schoolname")
[Link] =
[Link](0).Rows(0).Item("Education")
[Link] =
[Link](0).Rows(0).Item("HowFound")
[Link] =
[Link](0).Rows(0).Item("CompanyName")
[Link] =
[Link](0).Rows(0).Item("YearOfExperience")
[Link] =
[Link](0).Rows(0).Item("General")
[Link] =
[Link](0).Rows(0).Item("Industry")
[Link] = [Link](0).Rows(0).Item("Preferedjob")
[Link] = [Link](0).Rows(0).Item("Salary")
[Link] =
[Link](0).Rows(0).Item("Travel")
[Link] =
[Link](0).Rows(0).Item("PreferedLocation")
________________________________________________________________________
M S University 51
College Management System
________________________________________________________________________

[Link] = [Link](0).Rows(0).Item("ResumePath")
objData =
[Link]([Link]("ConnectionStri
ng"), " AND [Link]=" & CandidateId)

Dim i As Integer
For i = 0 To [Link](0).[Link] - 1
If i = 0 Then
[Link] = [Link](0).Rows(i).Item("Skills")
[Link] =
[Link](0).Rows(i).Item("Knowledge")
[Link] =
[Link](0).Rows(i).Item("Experience")
[Link] =
[Link](0).Rows(i).Item("UsedLast")
[Link] =
[Link](0).Rows(i).Item("usedfor")
Else
[Link] = [Link](0).Rows(i).Item("Skills")
[Link] =
[Link](0).Rows(i).Item("Knowledge")
[Link] =
[Link](0).Rows(i).Item("Experience")
[Link] =
[Link](0).Rows(i).Item("UsedLast")
[Link] =
[Link](0).Rows(i).Item("usedfor")
End If
Next

End Sub

Private Sub DataPopulate()


Dim objData As New DataSet()
objData =
[Link]([Link]("ConnectionString"),
"DomainKnowledge", "IndustryId,Industry")

[Link] = objData
________________________________________________________________________
M S University 52
College Management System
________________________________________________________________________

[Link] = "IndustryId"
[Link] = "Industry"
[Link]()
[Link](0, "Select..")
[Link](0).Value = ""

objData =
[Link]([Link]("ConnectionString"),
"PositionHeld", "PositionId, Category")

[Link] = objData
[Link] = "PositionId"
[Link] = "Category"
[Link]()
[Link](0, "select..")
[Link](0).Value = ""

objData =
[Link]([Link]("ConnectionString"),
"Locations L, State S, City C", "LocationId, [Link] + ' - ' + [Link] Location",
"[Link]=[Link] AND [Link] = [Link]")

[Link] = objData
[Link] = "LocationId"
[Link] = "Location"
[Link]()
[Link](0, "select..")
[Link](0).Value = ""

[Link] = objData
[Link] = "LocationId"
[Link] = "Location"
[Link]()
[Link](0, "select..")
[Link](0).Value = ""
End Sub

Private Sub btnSubmit_Click(ByVal sender As Object, ByVal e As


[Link]) Handles [Link]
________________________________________________________________________
M S University 53
College Management System
________________________________________________________________________

Dim objAdd As New [Link]()


Dim ColsData As String
Dim objResume As New [Link]()
CandidateId = [Link]("CandidateId")
Dim a As Integer
If CandidateId <> 0 Then
a=
[Link]([Link]("Connectio
nString"), _
CandidateId, [Link], [Link], _
[Link], [Link], _
[Link], [Link], [Link], _
[Link], [Link], _
[Link], [Link], _
[Link], _
[Link], [Link], _
[Link], _
[Link], [Link], _
[Link], _
[Link], [Link], _
[Link], _
[Link], _
[Link],
[Link], _
[Link], [Link], _
[Link], _
[Link], _
[Link], [Link], _
[Link], [Link], _
[Link],
[Link])

'[Link]("Modified successfully")
ModifyDataList()
If a = 0 Then
[Link]("[Link]?Mode=M&Posted=Y")
Else
[Link]("[Link]?Mode=M&Posted=N")
End If
________________________________________________________________________
M S University 54
College Management System
________________________________________________________________________

clear()
Else
a=
[Link]([Link]("Connectio
nString"), _
[Link], [Link], _
[Link], [Link], _
[Link], [Link], [Link], _
[Link], [Link], _
[Link], [Link], _
[Link], _
[Link], [Link], _
[Link], _
[Link], [Link], _
[Link], _
[Link], [Link], _
[Link], _
[Link], _
[Link],
[Link], _
[Link], [Link], _
[Link], _
[Link], _
[Link], [Link], _
[Link], [Link], _
[Link],
[Link])

If a = 0 Then
[Link]("[Link]?Mode=A&Posted=Y")
Else
[Link]("[Link]?Mode=A&Posted=N")
End If

End If

________________________________________________________________________
M S University 55
College Management System
________________________________________________________________________

End Sub

Private Sub BtnClear_Click(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
clear()

End Sub

Private Sub btnCancel_Click(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
[Link]("[Link]?candidateid=" &
[Link]("candidateid"))

End Sub
End Class

EmployerEntry

Dim objList As New [Link]()


Dim ObjEmployer As New [Link]()
Dim EmployerId As Integer = 0

Private Sub Page_Load(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
'Put user code toinitialize the page here
If Not IsPostBack Then
DataPopulate()
ModifyDataList()
End If

End Sub

Private Sub clear()

[Link] = ""
[Link] = ""
[Link] = ""

________________________________________________________________________
M S University 56
College Management System
________________________________________________________________________

[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = 0
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = 0
[Link] = 0
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""

End Sub

Private Sub DataPopulate()

Dim objData As New DataSet()


Dim objList As New [Link]()
objData =
[Link]([Link]("ConnectionString"),
"City", "CityId,City")

[Link] = objData
[Link] = "CityId"
[Link] = "City"
[Link]()

objData =
[Link]([Link]("ConnectionString"),
"State", "StateId, State")

[Link] = objData
[Link] = "StateId"
[Link] = "State"
[Link]()
________________________________________________________________________
M S University 57
College Management System
________________________________________________________________________

End Sub

Private Sub ModifyDataList()


EmployerId = [Link]("EmployerId")
'[Link](EmployerId)
' [Link]()

Dim objData As New DataSet()


objData =
[Link]([Link]("Connec
tionString"), " AND [Link] =" & EmployerId)
[Link] = [Link](0).Rows(0).Item("username")
[Link] = [Link](0).Rows(0).Item("password")
'[Link] = [Link](0).Rows(0).Item("confirmpass")
[Link] = [Link](0).Rows(0).Item("firstname")
[Link] = [Link](0).Rows(0).Item("lastname")
[Link] = [Link](0).Rows(0).Item("screenname")
[Link] = [Link](0).Rows(0).Item("phone")
[Link] = [Link](0).Rows(0).Item("Fax")
[Link] =
[Link](0).Rows(0).Item("HowFound")
[Link] =
[Link](0).Rows(0).Item("CompanyName")
[Link] = [Link](0).Rows(0).Item("Address1")
[Link] = [Link](0).Rows(0).Item("Address2")
[Link] = [Link](0).Rows(0).Item("City")
[Link] = [Link](0).Rows(0).Item("State")
[Link] = [Link](0).Rows(0).Item("PostalCode")
[Link] = [Link](0).Rows(0).Item("YearEstablished")
[Link] =
[Link](0).Rows(0).Item("NoOfEmployees")
[Link] = [Link](0).Rows(0).Item("ResumeEmail")
[Link] =
[Link](0).Rows(0).Item("DetailedDescription")

End Sub

________________________________________________________________________
M S University 58
College Management System
________________________________________________________________________

Private Sub btnSubmit_Click(ByVal sender As [Link], ByVal e


As [Link]) Handles [Link]
'[Link]("[Link]")
Dim objAdd As New [Link]()
Dim ColsData As String
Dim objEmployer As New [Link]()
Dim a As Integer
EmployerId = [Link]("EmployerId")

If EmployerId <> 0 Then

a=
[Link]([Link]("Conne
ctionString"), _
EmployerId, [Link], [Link], _
[Link], [Link], _
[Link], [Link], _
[Link], [Link], _
[Link], _
[Link], _
[Link], [Link], _
[Link], _
[Link], [Link], _
[Link], [Link], _
[Link], [Link])

'[Link]("ModiFiedSuccessfully")

ModifyDataList()

If a = 0 Then
[Link]("[Link]?Mode=M&Posted=Y")
Else
[Link]("[Link]?Mode=M&Posted=N")
End If
clear()
clear()
________________________________________________________________________
M S University 59
College Management System
________________________________________________________________________

Else
a=
[Link]([Link]("Connect
ionString"), _
[Link], [Link], _
[Link], [Link], _
[Link], [Link], _
[Link], [Link], _
[Link], _
[Link], _
[Link], [Link], _
[Link], _
[Link], [Link], _
[Link], [Link], _
[Link], [Link])

If a = 0 Then
[Link]("[Link]?Mode=A&Posted=Y")
Else
[Link]("[Link]?Mode=A&Posted=N")
End If

End If
End Sub
End Class

RESUMEDISPLAY

Public Class ResumeDisplay


Inherits [Link]
Protected WithEvents blUsedFor As [Link]

#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.

________________________________________________________________________
M S University 60
College Management System
________________________________________________________________________

<[Link]()> Private Sub


InitializeComponent()

End Sub

Dim objcon As New [Link]()


Private Sub Page_Load(ByVal sender As [Link],
ByVal e As [Link]) Handles [Link]
'Put user code to initialize the page here
If [Link]("From") = "C" Then
[Link] = False
[Link] = False
End If
If Not IsPostBack Then
BindData()
End If

End Sub

Public Sub BindData()


Dim CandidateId As Integer
CandidateId = [Link]("CandidateId")
Dim objdata As New DataSet()

'[Link](CandidateId)
'[Link]()

objdata =
[Link]([Link]("ConnectionStr
ing"), " and [Link]=" & CandidateId)

[Link] = [Link](0).Rows(0).Item("Name")
[Link] = [Link](0).Rows(0).Item("EmailId")
[Link] = [Link](0).Rows(0).Item("Address")
[Link] = [Link](0).Rows(0).Item("City")
[Link] = [Link](0).Rows(0).Item("State")
[Link] = [Link](0).Rows(0).Item("Gender")
[Link] = [Link](0).Rows(0).Item("DateOfBirth")

________________________________________________________________________
M S University 61
College Management System
________________________________________________________________________

[Link] =
[Link](0).Rows(0).Item("HighestEducation")
[Link] =
[Link](0).Rows(0).Item("CompanyName")
[Link] = [Link](0).Rows(0).Item("Experience")
[Link] = [Link](0).Rows(0).Item("Position")
[Link] = [Link](0).Rows(0).Item("Industry")
[Link] = [Link](0).Rows(0).Item("Skills")

If Trim([Link](0).Rows(0).Item("Knowledge")) <> "" Then


[Link] = [Link](0).Rows(0).Item("Knowledge")
Else
[Link] = "N/A"
End If

If Trim([Link](0).Rows(0).Item("SkillExperience")) <> "" Then


[Link] =
[Link](0).Rows(0).Item("SkillExperience")
Else
[Link] = "N/A"
End If

If Trim([Link](0).Rows(0).Item("USedLast")) <> "" Then


[Link] = [Link](0).Rows(0).Item("USedLast")
Else
[Link] = "N/A"
End If

If Trim([Link](0).Rows(0).Item("USedFor")) <> "" Then


[Link] = [Link](0).Rows(0).Item("USedFor")
Else
[Link] = "N/A"
End If

[Link] = [Link](0).Rows(0).Item("PreferedJob")
[Link] = [Link](0).Rows(0).Item("Salary")

________________________________________________________________________
M S University 62
College Management System
________________________________________________________________________

[Link] =
[Link](0).Rows(0).Item("PreferedLocation")
[Link] =
[Link](0).Rows(0).Item("ResumeDescription")

End Sub

Private Sub lnkViewBrowseJobresult_Click(ByVal sender As


[Link], ByVal e As [Link])
Dim CandidateEmail As String
CandidateEmail = [Link]
[Link]("[Link]?CandidateEmail=""" &
CandidateEmail & """")
End Sub
End Class

Candidate Home

Public Class WebForm3


Inherits [Link]
Protected WithEvents lnkResume As
[Link]
Protected WithEvents lnkEmployer As
[Link]
Protected WithEvents lnkUser As
[Link]
Protected WithEvents Lnksendresume As
[Link]
Protected WithEvents lnkjobsearch As
[Link]
Protected WithEvents LnkBrowsejob As
[Link]
Protected WithEvents LnkEditResume As
[Link]

#Region " Web Form Designer Generated Code "

________________________________________________________________________
M S University 63
College Management System
________________________________________________________________________

'This call is required by the Web Form Designer.


<[Link]()> Private Sub
InitializeComponent()

End Sub

Private Sub Page_Init(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub

#End Region

Private Sub Page_Load(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
'Put user code to initialize the page here
End Sub

Private Sub lnkResume_Click(ByVal sender As [Link], ByVal e


As [Link]) Handles [Link]
[Link]("[Link]?From=C&CandidateId=" &
[Link]("CandidateId"))
End Sub

Private Sub lnkEmployer_Click(ByVal sender As [Link], ByVal e


As [Link]) Handles [Link]
[Link]("[Link]?CandidateId=" &
[Link]("CandidateId"))
End Sub

Private Sub lnkUser_Click(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
[Link]("[Link]?CandidateId=" &
[Link]("CandidateId"))
End Sub

________________________________________________________________________
M S University 64
College Management System
________________________________________________________________________

Private Sub LnkEditResume_Click(ByVal sender As [Link],


ByVal e As [Link]) Handles [Link]
[Link]("[Link]?CandidateId=" &
[Link]("CandidateId"))
End Sub

Private Sub Lnksendresume_Click(ByVal sender As [Link],


ByVal e As [Link]) Handles [Link]
[Link]("[Link]?CandidateId=" &
[Link]("CandidateId"))
End Sub

Private Sub lnkjobsearch_Click(ByVal sender As [Link],


ByVal e As [Link]) Handles [Link]
[Link]("[Link]")
End Sub

Private Sub LnkBrowsejob_Click(ByVal sender As [Link],


ByVal e As [Link]) Handles [Link]
[Link]("[Link]")
End Sub
End Class

BrowseJob

Public Class BrowseJob


Inherits [Link]
Protected WithEvents lstSelectionLocation As
[Link]
Protected WithEvents lstSelectedLocation As
[Link]
Protected WithEvents btnLocationAdd As
[Link]
Protected WithEvents btnLocationRemove As
[Link]

________________________________________________________________________
M S University 65
College Management System
________________________________________________________________________

Protected WithEvents BtnSubmit As


[Link]
Protected WithEvents BtnClear As [Link]

#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.


<[Link]()> Private Sub
InitializeComponent()

End Sub

Private Sub Page_Init(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub

#End Region

Private Sub Page_Load(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
'Put user code to initialize the page here
If Not IsPostBack Then
BindLocation()
End If
End Sub

Sub BindLocation()
Dim objData As New DataSet()
Dim objList As New [Link]()
objData =
[Link]([Link]("ConnectionString"),
"Locations L, State S, City C", "LocationId, [Link] + ' - ' + [Link] Location",
"[Link]=[Link] AND [Link] = [Link]")
________________________________________________________________________
M S University 66
College Management System
________________________________________________________________________

[Link] = objData
[Link] = "LocationId"
[Link] = "Location"
[Link]()
End Sub

Private Sub btnLocationAdd_Click(ByVal sender As [Link],


ByVal e As [Link]) Handles [Link]

If Not ([Link] = -1) Then

[Link](New
ListItem([Link],
[Link]))
[Link]([Link]
m)
[Link](0).Selected = True
End If
End Sub

Private Sub btnLocationRemove_Click(ByVal sender As [Link],


ByVal e As [Link]) Handles [Link]
If Not ([Link] = -1) Then
[Link](New
ListItem([Link],
[Link]))
[Link]([Link])
End If
End Sub

Private Sub BtnSubmit_Click(ByVal sender As [Link], ByVal e


As [Link]) Handles [Link]
Dim SearchString
Dim j
SearchString = ""
If [Link] Then
________________________________________________________________________
M S University 67
College Management System
________________________________________________________________________

Dim joblocation
If [Link] > 0 Then
joblocation = ""
For j = 0 To [Link] - 1
If Trim(joblocation) <> "" Then
joblocation &= ","
End If
joblocation &= [Link](j).Value
Next
SearchString &= " and [Link] in (" & joblocation & ")"
End If
End If
[Link]("[Link]?SearchString=""" &
SearchString & """")
End Sub
End Class
BrowsejobResult

Public Class BrowseSearchResult


Inherits [Link]
Protected WithEvents datgSearchresult As
[Link]
Dim objcon As New [Link]()

#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.


<[Link]()> Private Sub
InitializeComponent()

End Sub

Private Sub Page_Init(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub

________________________________________________________________________
M S University 68
College Management System
________________________________________________________________________

#End Region

Private Sub Page_Load(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
'Put user code to initialize the page here
If Not IsPostBack Then
Binddata()
End If

End Sub

Sub Binddata()

Dim objdata As DataSet


Dim QueryCondition As String
QueryCondition = ""

If [Link]("SearchString") <> "" Then


QueryCondition = [Link]("SearchString")
End If
'[Link](QueryCondition)
'[Link]()
QueryCondition = Right(Left(QueryCondition, Len(QueryCondition)
- 1), Len(QueryCondition) - 2)

objdata =
[Link]([Link]("ConnectionString"),
QueryCondition)
[Link] = objdata
[Link]()
End Sub

Private Sub datgSearchresult_SelectedIndexChanged(ByVal sender As


Object, ByVal e As [Link]) Handles
[Link]
'[Link] =
[Link]([Link]).Cells(1).Text
________________________________________________________________________
M S University 69
College Management System
________________________________________________________________________

End Sub

Private Sub datgSearchresult_PageIndexChanged(ByVal source As


Object, ByVal e As
[Link]) Handles
[Link]
[Link] = [Link]
Binddata()
End Sub
End Class

SendResume

Imports [Link]
Imports System

Public Class SendResume


Inherits [Link]
Protected WithEvents BtnClear As [Link]
Protected WithEvents txtResumepath As
[Link]
Protected WithEvents BtnSend As [Link]
Protected WithEvents RegularExpressionValidator1 As
[Link]
Protected WithEvents lblResumeDescErr As
[Link]
Protected WithEvents lblEmail As [Link]
Protected WithEvents lblmessage As [Link]
Protected WithEvents txtemail As [Link]

#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.


<[Link]()> Private Sub
InitializeComponent()

End Sub

________________________________________________________________________
M S University 70
College Management System
________________________________________________________________________

Private Sub Page_Init(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub

#End Region

Dim objcls As New [Link]()


Dim CandidateId As Integer

Private Sub Page_Load(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
'Put user code to initialize the page here

If Trim(Session("CandidateId")) = "" Then


[Link]("[Link]?Session=N")
End If

If Trim([Link]("CandidateId")) = "" Then


[Link] = False
[Link] = False
End If

If Not IsPostBack Then


BindData()
End If
End Sub

Private Sub BindData()


Dim objData As New DataSet()

If Trim([Link]("CandidateId")) <> "" Then


CandidateId = Trim([Link]("CandidateId"))
Else
CandidateId = Session("CandidateId")
End If

________________________________________________________________________
M S University 71
College Management System
________________________________________________________________________

objData =
[Link]([Link]("ConnectionString
"), " AND [Link]=" & CandidateId)
[Link] = [Link](0).Rows(0).Item("ResumePath")
viewstate("FromEmail") = [Link](0).Rows(0).Item("EmailId")
End Sub

Private Sub BtnSend_Click(ByVal sender As Object, ByVal e As


[Link]) Handles [Link]

If Trim([Link]) <> "" Then


Dim cdoObj As New [Link]()
Try
[Link] = viewstate("FromEmail")

If Trim([Link]("CandidateId")) <> "" Then


[Link] = [Link]
Else
Dim ResumeEmail As String
ResumeEmail = Trim([Link]("ResumeEmail"))
[Link] = Right(Left(ResumeEmail, Len(ResumeEmail) - 1),
Len(ResumeEmail) - 2)
End If

[Link] = "Forward Resume"

[Link] = 0
[Link] = 0

[Link] = Trim([Link])

[Link]()

If Trim([Link]("JobId")) <> "" Then


Dim a As Integer

Dim obj As New [Link]()

________________________________________________________________________
M S University 72
College Management System
________________________________________________________________________

a=
[Link]([Link]("ConnectionString"),
Session("CandidateId"), Trim([Link]("JobId")))
If a = 0 Then
[Link]("[Link]?ResumeSend=Y"
)
Else
[Link]("[Link]?ResumeSend=N"
)
End If
End If

Catch errmail As Exception


[Link]([Link])
End Try
Else
[Link] = "Please Type Your Resume"
End If
End Sub
End Class

Call Candidate

Public Class CallPerson


Inherits [Link]
Protected WithEvents lblmessage As [Link]
Protected WithEvents txtResumepath As
[Link]
Protected WithEvents BtnSend As [Link]
Protected WithEvents BtnClear As [Link]

#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.


<[Link]()> Private Sub
InitializeComponent()

End Sub

________________________________________________________________________
M S University 73
College Management System
________________________________________________________________________

Private Sub Page_Init(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub

#End Region

Private Sub Page_Load(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
'Put user code to initialize the page here
If Trim(Session("EmployerEmail")) = "" Then
[Link]("[Link]?Session=N")
End If
End Sub

Private Sub BtnSend_Click(ByVal sender As Object, ByVal e As


[Link]) Handles [Link]

Dim CandidateEmail, EmployerEmail As String


CandidateEmail = Trim([Link]("CandidateEmail"))
CandidateEmail = Right(Left(CandidateEmail, Len(CandidateEmail) -
1), Len(CandidateEmail) - 2)

EmployerEmail = Session("EmployerEmail")

Dim cdoObj As New [Link]()


Try
[Link] = CandidateEmail
[Link] = EmployerEmail
[Link] = "Calling"

[Link] = 0
[Link] = 0
[Link] = Trim([Link])
[Link]()

________________________________________________________________________
M S University 74
College Management System
________________________________________________________________________

Catch exc As Exception


[Link]([Link])
Exit Sub
Finally
[Link]("<Script>alert('Mail has been sent
Successfully')</Script>")
End Try
End Sub

End Class

Applicants

Public Class Applicants


Inherits [Link]
Protected WithEvents datgSearchresult As
[Link]

#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.


<[Link]()> Private Sub
InitializeComponent()

End Sub

Private Sub Page_Init(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
Protected WithEvents btnDelete As [Link]

#End Region
Dim obj As New [Link]()
Private Sub Page_Load(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]

________________________________________________________________________
M S University 75
College Management System
________________________________________________________________________

'Put user code to initialize the page here


viewstate("Jobid") = [Link]("JobId")

If Not IsPostBack Then


bindata()
End If
End Sub

Private Sub bindata()

Dim objdata As New DataSet()


Dim QueryCondition As String = ""
If Trim([Link]("JobId")) <> "" Then
QueryCondition = " AND [Link] = " &
Trim([Link]("JobId"))
End If
objdata =
[Link]([Link]("ConnectionString"
), QueryCondition)
[Link] = objdata
[Link]()

End Sub

Private Sub btnDelete_Click(ByVal sender As Object, ByVal e As


[Link]) Handles [Link]
Dim i As Integer
Dim CandidateIds As String = ""
For i = 0 To [Link] - 1
If CType([Link](i).FindControl("Chk"),
HtmlInputCheckBox).Checked = True Then
If CandidateIds <> "" Then
CandidateIds += "," & [Link](i)
Else
CandidateIds = [Link](i)
End If
End If
Next

________________________________________________________________________
M S University 76
College Management System
________________________________________________________________________

Dim Jobid As String = viewstate("Jobid")


[Link](Jobid & "**")

[Link](CandidateIds & "**")

' to call the delete method here


'
[Link]([Link]("ConnectionString"))

obj = New [Link]()


[Link]([Link]("ConnectionS
tring"), "17", "11")

'bindata()
End Sub

Private Sub datgSearchresult_PageIndexChanged(ByVal source As


Object, ByVal e As
[Link]) Handles
[Link]
[Link] = [Link]
bindata()
End Sub
End Class

________________________________________________________________________
M S University 77
College Management System
________________________________________________________________________
StyleSheet

.tblstyle
{
font-family :Arial;
font-size:9pt;
color:Navy;
}
.tdstyle
{
border-color:Gray;
border-width:1pt;
border-style:solid
}

.AncStyle
{
text-decoration:none;
color:Navy;
}
.Textin
{
font-family:Arial;
font-size:8pt;
font-weight:lighter;
color:Navy ;

}
.buttonstyle
{
height:25px;
font-family:Arial;
width:75px;
background-color:Gray;
border:1;
border-top:groove,0;
border-top-color:Gray;
border-left-color:Gray;

________________________________________________________________________
M S University 78
College Management System
________________________________________________________________________

border-bottom-color:Black;
border-bottom-style:groove;
border-right-style:groove;
border-right-color:Black;
font-size:9pt;
font-weight:bold;
color:white;
cursor:hand;

}
.DGAlternatstyle
{
background-color:#eaeaea;
color:Navy;
font-family:Arial;
font-size:8pt;
height:18pt;

}
.Dgitemstyle
{
background-color:white;
color:Navy;
font-family:Arial;
font-size:8pt;
height:18pt
}
.Dgheaderstyle
{
background-color:#4682b4;
color:White;
font-family:Arial;
font-size:10pt;
font-weight:bold;
height:10pt

}
.Dgpagerstyle
________________________________________________________________________
M S University 79
College Management System
________________________________________________________________________

{
background-color:white;
color:#4682b4;
font-family:Arial;
font-size:8pt;
font-weight:bold;
height:10pt
}
.DisplayStyle
{
font-family:Arial;
font-size:9pt;
font-weight:bold;
color:navy
}
.LabelStyle
{
font-family:Arial;
font-size:9pt;
color:Navy;

}
.BorderStyleold
{
BORDER-RIGHT: brown 0.05mm solid;
BORDER-TOP: brown 0.05mm solid;
BORDER-LEFT: brown 0.05mm solid ;
BORDER-BOTTOM: brown 0.05mm solid
}
.BorderstyleNew
{
BORDER-RIGHT: black 0.05mm solid;
BORDER-TOP: black 0.05mm solid;
BORDER-LEFT: black 0.05mm solid ;
BORDER-BOTTOM: black 0.05mm solid

}
.Heading
{
________________________________________________________________________
M S University 80
College Management System
________________________________________________________________________

font-family:Arial;
font-weight:bold;
font-size:9pt;
color:Maroon;
text-decoration:underline;

}
.SubHeading
{
font-family:Arial;
font-weight:bold;
font-size:8pt;
color:white;
text-justify:auto
}
.hyperlinktext
{
font-family:Arial;
font-size:9pt;
font-weight:bold;
font-style:normal;
text-decoration:none;
text-transform: capitalize;
color:white

________________________________________________________________________
M S University 81
College Management System
________________________________________________________________________

________________________________________________________________________
M S University 82
College Management System
________________________________________________________________________

SCREEN LAYOUTS

MAIN SCREEN

________________________________________________________________________
M S University 83
College Management System
________________________________________________________________________

CandidateLoginScreen

________________________________________________________________________
M S University 84
College Management System
________________________________________________________________________

CandidateHomePage

________________________________________________________________________
M S University 85
College Management System
________________________________________________________________________
EditCandidate

________________________________________________________________________
M S University 86
College Management System
________________________________________________________________________

JobSearch

________________________________________________________________________
M S University 87
College Management System
________________________________________________________________________

SendResume

________________________________________________________________________
M S University 88
College Management System
________________________________________________________________________

ResumeDisplay

________________________________________________________________________
M S University 89
College Management System
________________________________________________________________________

BrowseJob

________________________________________________________________________
M S University 90
College Management System
________________________________________________________________________

ManageJobsAndApplicants

________________________________________________________________________
M S University 91
College Management System
________________________________________________________________________

Applicants Details

________________________________________________________________________
M S University 92
College Management System
________________________________________________________________________

________________________________________________________________________
M S University 93
College Management System
________________________________________________________________________

________________________________________________________________________
M S University 94
College Management System
________________________________________________________________________

________________________________________________________________________
M S University 95
College Management System
________________________________________________________________________

CONCLUSION

The project entitled “Jobseeker and Provider” can be


implemented in any website. The user interface of this system is
designed in a simple manner so that the user can understand the
interface and work without any [Link] provides the user
interface and the database details are maintained using powerful SQL
Server 2000

This project is developed with Active Server Pages


.NET . It uses several methods of checking the database full security is
provided to avoid unauthorized users. More sophisticated facilities
have been given to the user, which reduces the user work, greatly .The
objectives of the design and development of this software were fully
achieved.

________________________________________________________________________
M S University 96
College Management System
________________________________________________________________________

________________________________________________________________________
M S University 97
College Management System
________________________________________________________________________

BIBLIOGRAPHY

Books

Journals

Inside Microsoft Visual Basic


From Element K Journals.

MSDN Magzine
From Microsoft Corporation

and CMP Media Inc

Visual Basic Developer


From Pinnacle Publishing.

Visual Basic Programmer’s Journal


From Fawcette Technical Publishing

Web sites

[Link]

[Link]

[Link]

[Link]

www.

Software

Microsoft Developers Network October 2001

from Microsoft.

________________________________________________________________________
M S University 98
College Management System
________________________________________________________________________
Tutors

Visual Basic 6.0 – Computer Based Tutor from Penta Four.

________________________________________________________________________
M S University 99

Common questions

Powered by AI

The 'SET QUOTED_IDENTIFIER OFF' statement is used to modify the interpretation of double and single quotation marks in SQL queries. When this option is off, identifiers cannot be enclosed in double quotes, while literals must be enclosed in single quotes. This setting can affect how queries that perform operations with identifiers and literals execute, ensuring compatibility with specific SQL code structures present in the operations described .

Modularization is crucial as it encapsulates specific functionality which simplifies maintenance and improves code organization. The ResumeEntry class in this system compartmentalizes the operations related to handling candidate resume entries, making the codebase more manageable, facilitating reuse, and reducing complexity by separating the user interface logic from the back-end data operations .

Direct SQL command usage allows for precise control over database operations, rapid development, and easy debugging since queries can be manually adjusted for performance. However, it presents challenges including increased risk of SQL injection attacks, lack of abstraction which can complicate maintenance, and potential for errors if SQL syntax changes or if not all database systems are supported. Emphasizing secure coding practices and considering ORM tools could mitigate some of these issues .

Passwords in the system appear to be handled in plain text during operations, a significant security risk as it exposes them to unauthorized access and potential breaches. Mitigation involves implementing hashing algorithms to secure stored passwords, using parameterized queries to prevent SQL injection, and applying HTTPS to secure data transmissions .

The cmdtext variable serves as a command text string that is used to execute SQL commands within the system. It is assigned SQL statements that insert, update, or select data from the database. For example, it is first set to disable the QUOTED_IDENTIFIER option, then used to add entries to tables such as CandidateDomainKnowledge and Skills and to retrieve identifiers using 'SELECT @@IDENTITY' .

The system supports scalability through data binding techniques that dynamically query and display data. Methods like BindData employ DataSet objects that can handle large amounts of data, with filters applied to only retrieve necessary data for current needs. This design minimizes server load and enables responsive updates to job and candidate listings as datasets are reused and filtered, rather than returning entire data collections on every request .

Exception handling in this system is done by wrapping operations in a Try-Catch-Finally block, where exceptions related to resume updates are caught and assigned to a new Exception object that can be thrown further up the call stack. While this method can prevent the application from crashing, its effectiveness can be limited if specific exception details are not logged or if there is no mechanism to alert administrators of frequent errors .

The system handles user input by using Request.QueryString() to retrieve candidate IDs and populate forms with existing candidate data using a dataset. Candidate details are edited based on the identifiers passed in the query string. However, potential security issues may arise if input validation and sanitization are not properly implemented, leaving the system vulnerable to SQL injection attacks if the input is directly used in SQL commands without validation .

The BindData method populates the user interface with data by binding a dataset to a data grid control on the web page, displaying job search results to the user. The method retrieves data using a dataset obtained from the ListJobs function, which executes queries based on specific conditions. This operation is central to dynamically updating the interface in response to user searches, enhancing user interaction by allowing real-time results .

The system ensures transactional integrity through the use of transactions. It wraps the database operations in a Try-Catch block, starting with objTrans.Commit() to commit the transaction if no errors occur, and objTrans.Rollback() to undo changes if an exception is caught. This ensures that if any part of the operation fails, none of the changes are applied, maintaining data integrity .

You might also like