ONLINE HR MANAGEMENT SYSTEM

CONTENTS
Sr.
No.

Description

Pg.
No.

Acknowledgeme
nt

Project
Objective

Project Scope

Requirement
Specification

Database
Design

Application
Work Flow

Screenshots

Future Scope of
Improvements

ONLINE HR MANAGEMENT SYSTEM

Code

10

Certificate

PROJECT OBJECTIVE
The main aim of the project was to develop a Human Resource Module for the
Automation of HR Software in which all the information regarding the
employees in the company will be present. This has to be developed with
good Interaction/ communication facilities between the employees and HR
Administrator in such a manner that a level of hierarchy was maintained
between the various employees.

The whole project is web based and designed using Apache server, a window
based platform for PHP web application development.

ONLINE HR MANAGEMENT SYSTEM

PROJECT SCOPE
The project is confined to be run on any web server either on internet or
intranet. The application makes sure that the proper user interface is provided to
the communicating parties to work easily on the application

ONLINE HR MANAGEMENT SYSTEM

REQUIREMENT
SPECIFICATIONS
Domain Description
The success of a company is about managing people not paper. The proposed
HR system is not only easy to manage but also employee friendly.Each
employee had an username and password through which he can log in.
Depending on the type of employee, either as user or admin, the employee is
logged in or accordingly various privileges are granted to him to carry out
various task through the application. The application makes sure of the
security services and other privacy policies.
The web pages about an employee are created dynamically based on the user
id and password and links are provided to web pages containing information
about Employee General Profile, Leave Records, Salary and other static links
to various other pages. An Information Hierarchy is maintained i.e. the
information regarding a particular employee is accessed by the same or any
person above him in the information hierarchy. There was also a provision for
updating the details. User Controls are provided for Navigating through the
web Pages.
HR Admin page is created with HR Admin Tasks. HR Administrator is provided
with facility of Adding Employee in to the company. He adds the new
employees General details and can also enter his Contact details. He also has
the facility of Viewing / Updating details of all Employees and approve/reject
leave requests. Automated emails are sent to the registered email address of
the employee upon approval/rejection.

ONLINE HR MANAGEMENT SYSTEM

Problem Definition
HR professionals make decisions regarding employees. Without the right
information available to decision makers at the right time, their decisions can be
erroneous leading to job dissatisfaction and poor employee performance,
gradually affecting the performance and reputation of the organization.
Currently, most of the companies use desktop application to maintain employee
information for each department and manually enter data into databases which
is both time consuming and error prone. Due to absence of a centralized
information system, separate copies of data are required to be stored for
different departments. In case of manual HR management system, there is
possibility of loss of important data and security of information is also not
guaranteed. Manual leave management also requires a lot of tedious
paperworks.
The project has been developed keeping in the view the current requirement of
Human Resource Management at any organization keeping in view these
objectives:
To develop an application that deals with the day to day requirement of any
organization.
To enable the end-users as well as the organization come out with an easy way
to handle the application of the Human Resource Management

ONLINE HR MANAGEMENT SYSTEM

Functional
Requirements

ONLINE HR MANAGEMENT SYSTEM

Hardware/Software
Requirements
HARDWARE:
Installed Memory(RAM):4 GB
Hard Disk Drive Memory:

500 GB

Processor:Intel(R) Core i5-3210M @2.50GHz

SOFTWARE:
Operating System :Windows 7 Home Basic SP1
System Type:64-bit OS
Tools:
Front End: PHP5 with HTML5 and CSS3
Back End:Apache Server and MySQL Server

ONLINE HR MANAGEMENT SYSTEM

Internet Browser:Google Chrome

DATA FLOW DIAGRAM(DFD)

DFDs only involve four symbols. They are:
Process
Data Object
Data Store
External entity

Process
Transform of incoming data flow(s) to outgoing flow(s).

Data Flow
Movement of data in the system.
Data Store
Data repositories for data that are not moving. It may be as simple as a
buffer or a queue or a s sophisticated as a relational database.
External Entity
Sources of destinations outside the specified system boundary.

ONLINE HR MANAGEMENT SYSTEM

CONTEXT LEVEL DFD

Customer
information
CUSTOMERS

ONLINE
FOOD
DELIVERY
SYSTEM

Order
details
ORDERS

LEVEL 0 DFD
1.0
Place
Order

Customer
informati
on
CUSTOMER

2.0
Pay

Order
details
ORDERS

LEVEL 1 DFDFOR 1.0

1.1 Select
items

ONLINE HR MANAGEMENT SYSTEM

1.3
Checkout

1.2
Compute
Grand
Total

Amount

ONLINE HR MANAGEMENT SYSTEM

LEVEL 1 DFD FOR 2.0

2.1
Register

2.2
Payment
Method

2.3
Transaction

2.4
Order
Complete

ONLINE HR MANAGEMENT SYSTEM

DATABASE DESIGN
Entity Relationship
Diagram(ERD)
Entity Relationship Diagram consists of:

Entity
Attributes
Relationship

ONLINE HR MANAGEMENT SYSTEM

Table description
TABLE 1:
TABLE NAME:emp_info

ONLINE HR MANAGEMENT SYSTEM

Sr.No
.
1

Fields

Size

emp_id

Data
Type
int

11

Constraint
s
Primary Key

fname

varchar

50

Not Null

mname

varchar

50

None

lname

varchar

50

Not Null

dob

date

Not Null

sex

char

Not Null

join

date

Not Null

dept

varchar

20

Not Null

designation

varchar

15

Not Null

10

sal

int

11

Not Null

11

addr

varchar

255

Not Null

12

mobile

int

11

Not Null

13

email

varchar

255

Not Null

Description
Employee
Identification No.
Employees First
Name
Employees
Middle Name
Employees Last
Name
Employees Date
of Birth
Employees
gender
Employees date
of joining
Employees
Department
Employees
Designation
Employees
Monthly Salary
Employees
Residential
Address
Employees Mobile
No.
Employees email
ID

ONLINE HR MANAGEMENT SYSTEM

Sr.No
.
1

Fields

Size

Constraints

Description

11

Primary Key

int

Not null

Employee Identification
No.
Balance of Casual Leaves

CL

PL

int

Not null

Balance of Paid Leaves

SL

int

50

Not null

Balance of Sick Leaves

emp_id

Data
Type
int

TABLE 2:
TABLE NAME:leaves

ONLINE HR MANAGEMENT SYSTEM

SOURCE CODE:
Private Sub Form_KeyPress(KeyAscii As Integer)
Unload Me
End Sub

Private Sub Frame1_Click()

Unload Me
End Sub

ONLINE HR MANAGEMENT SYSTEM

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 10
If ProgressBar1.Value = 80 Then
ProgressBar1.Value = ProgressBar1 + 20

If ProgressBar1.Value >= ProgressBar1.Max Then

Timer1.Enabled = False
End If
'In this are you may call the form to be loaded next!
MsgBox "Loading Complete!", vbInformation, "Info"
Unload Me
frmWelcome.Show
End If
End Sub

ONLINE HR MANAGEMENT SYSTEM

1.

frmWelcome

SOURCE CODE:
Private Sub Cmdorder_Click()
frmWelcome.Visible = False
frmMenu.Visible = True
End Sub
Private Sub Cmdwork_Click()
frmWelcome.Visible = False
frmProcess.Visible = True
End Sub
Private Sub Cmdabt_Click()
frmWelcome.Visible = False
frmAbout.Visible = True

ONLINE HR MANAGEMENT SYSTEM

End Sub

2. frmProcess

SOURCE CODE:
Private Sub PicBack_Click()
frmProcess.Visible = False
frmWelcome.Visible = True
End Sub

ONLINE HR MANAGEMENT SYSTEM

3. frmAbout

SOURCE CODE:
Private Sub PicBack_Click()
frmProcess.Visible = False
frmWelcome.Visible = True
End Sub

ONLINE HR MANAGEMENT SYSTEM

4.

frmMenu

SOURCE CODE:
Private Sub cmdPizza_Click()
frmMenu.Visible = False
frmPizza.Visible = True
End Sub
Private Sub cmdPasta_Click()
frmMenu.Visible = False
frmPasta.Visible = True
End Sub

ONLINE HR MANAGEMENT SYSTEM

Private Sub cmdSoup_Click()
frmMenu.Visible = False
frmSoup.Visible = True
End Sub
Private Sub cmdDessert_Click()
frmMenu.Visible = False
frmDessert.Visible = True
End Sub
Private Sub cmdDrink_Click()
frmMenu.Visible = False
frmDrink.Visible = True
End Sub
Private Sub PicBack_Click()
frmProcess.Visible = False
frmWelcome.Visible = True
End Sub

ONLINE HR MANAGEMENT SYSTEM

5. frmPizza

ONLINE HR MANAGEMENT SYSTEM

SOURCE
CODE:
Option Explicit
Dim PizzaCost(5) As Single
Dim TaxRate As Single
Dim PizzaSize As Integer
Public temptop As Single
Dim TotalCost As Single
Dim SizeCost(2) As Single
Dim total As Single
Private Const NumberPizza = 6
Public temp As Single
Public costSize As Single
Public choice As Single

Public Function meal() As Single

meal = choice
End Function

Public Sub tempShow()

Dim Cost As Single
Dim Rtn As Integer
Dim PizzaString As String

ONLINE HR MANAGEMENT SYSTEM

Dim I As Integer

Cost = costSize
For I = 0 To NumberPizza - 1
If Check1(I).Value = vbChecked Then
PizzaString = PizzaString + "1"
Cost = Cost + PizzaCost(I) * Val(Combo1(I).Text)
Else
PizzaString = PizzaString + "0"
End If
Next I
TotalCost = (((Cost * TaxRate) / 100) + Cost)
total = TotalCost + temptop
Lblpay.Caption = "You have to pay Rs. "
LBLCOST1.Caption = Format(total, "0.00")
lblcurrency.Caption = "INR (including tax)"
optSize(0).Value = 0
optSize(1).Value = 0
optSize(2).Value = 0
temp = total
End Sub
Public Function getval() As Single
getval = temp
End Function

ONLINE HR MANAGEMENT SYSTEM

Private Sub Check1_Click(Index As Integer)
fraSize.Visible = True
cmdTop.Visible = True
If Check1(Index) = vbChecked Then
cmdTop.Visible = True
fraSize.Visible = True
Cmdorder.Visible = True
Cmdorder.SetFocus
Else
cmdTop.Visible = False
fraSize.Visible = False
Cmdorder.Visible = False
End If
End Sub
Private Sub Cmdorder_Click()
Dim I As Integer
Dim Cost As Single
Dim Rtn As Integer
Dim PizzaString As String
If PizzaSize < 0 Then
MsgBox "You must choose a size", vbOKOnly + vbInformation,
"Error"
Exit Sub
End If
Cost = SizeCost(PizzaSize)

ONLINE HR MANAGEMENT SYSTEM

For I = 0 To NumberPizza - 1
If Check1(I).Value = vbChecked Then
PizzaString = PizzaString + "1"
Cost = (Cost + PizzaCost(I)) * Val(Combo1(I).Text)
Else
PizzaString = PizzaString + "0"
End If
Next I
choice = PizzaString
TotalCost = (((Cost * TaxRate) / 100) + Cost)
total = TotalCost + temptop
Lblpay.Caption = "You have to pay"
LBLCOST1.Caption = Format(total, "0.00")
lblcurrency.Caption = "INR (including tax)"
temp = total
PictContinue.Visible = True
End Sub
Private Sub cmdTop_Click()
If PizzaSize < 0 Then
MsgBox "You must choose a size", vbOKOnly + vbInformation,
"Error"
Exit Sub
End If
frmPizza.Visible = False

ONLINE HR MANAGEMENT SYSTEM

frmTop.Visible = True
costSize = costSize + SizeCost(PizzaSize)
End Sub
Private Sub Form_Load()
PizzaSize = -1
PizzaCost(0)
PizzaCost(1)
PizzaCost(2)
PizzaCost(3)
PizzaCost(4)
PizzaCost(5)

=
=
=
=
=
=

0
40
85
40
80
85

'Size cost
SizeCost(0) = 100
SizeCost(1) = 200
SizeCost(2) = 300
'Tax rate
TaxRate = 13.5
PictContinue.Visible = False
fraSize.Visible = False
cmdTop.Visible = False
Cmdorder.Visible = False
End Sub

Private Sub optSize_Click(Index As Integer)

PizzaSize = Index
End Sub

ONLINE HR MANAGEMENT SYSTEM

Private Sub PicBack_Click()
frmPizza.Visible = False
frmMenu.Visible = True
End Sub

Private Sub Picrefresh_Click()

LBLCOST1.Caption = ""
Lblpay.Caption = ""
lblcurrency.Caption = ""
PictContinue.Visible = False
fraSize.Visible = False
cmdTop.Visible = False
Cmdorder.Visible = False
Dim I As Integer
Dim J As Integer
For I = 0 To NumberPizza - 1
Check1(I).Value = vbUnchecked
Next I
For J = 0 To 2
optSize(J).Value = False
Next J
temptop = 0#
TotalCost = 0#
costSize = 0#

temp = 0#

ONLINE HR MANAGEMENT SYSTEM

PizzaSize = -1
End Sub
Private Sub PictContinue_Click()
frmPizza.Visible = False
frmCheckout.Visible = True
End Sub

ONLINE HR MANAGEMENT SYSTEM

6. frmTop

ONLINE HR MANAGEMENT SYSTEM

SOURCE CODE:
Option Explicit
Dim ToppingCost(11) As Single
Dim Cost As Integer
Private Const NumberToppings = 12
Public temp As Single
Public Function getval() As Single
getval = temp
End Function
Private Sub chkTop_Click(Index As Integer)
If chkTop(Index) = vbChecked Then
picOK.Visible = True
Else
picOK.Visible = False
End If
End Sub
Private Sub Form_Load()
PictContinue.Visible = False
picOK.Visible = False
ToppingCost(0)
ToppingCost(1)
ToppingCost(2)
ToppingCost(3)
ToppingCost(4)

=
=
=
=
=

30
30
30
30
30

ONLINE HR MANAGEMENT SYSTEM

ToppingCost(5) = 30
ToppingCost(6) = 50
ToppingCost(7) = 50
ToppingCost(8) = 50
ToppingCost(9) = 50
ToppingCost(10) = 50
ToppingCost(11) = 50
End Sub
Private Sub picOK_Click()
Dim Message As String
Dim I As Integer
Dim ToppingString As String
For I = 0 To NumberToppings - 1
If chkTop(I).Value = vbChecked Then
Message = Message + chkTop(I).Caption + vbCr
ToppingString = ToppingString + "1"
Cost = Cost + ToppingCost(I)
Else
ToppingString = ToppingString + "0"
End If
Next I
LBL.Caption = "Topping(s) cost: "
Lblcosttop.Caption = Format(Cost, "0.00")
lblINR.Caption = "INR"
temp = Cost
PictContinue.Visible = True
End Sub

ONLINE HR MANAGEMENT SYSTEM

Private Sub picCancel_Click()
frmTop.Visible = False
frmPizza.Visible = True
End Sub
Private Sub Picrefresh_Click()
LBL.Caption = ""
Lblcosttop.Caption = ""
Dim I As Integer
For I = 0 To NumberToppings - 1
chkTop(I).Value = vbUnchecked
Next I
Cost = 0
End Sub
Private Sub PictContinue_Click()
frmTop.Visible = False
frmPizza.Visible = True
Picrefresh_Click
frmPizza.cmdTop.Visible = False
frmPizza.fraSize.Visible = False
frmPizza.temptop = frmPizza.temptop + getval
frmPizza.tempShow
frmPizza.PictContinue.Visible = True
End Sub

7. frmPasta

ONLINE HR MANAGEMENT SYSTEM

SOURCE CODE:
Option Explicit
Dim PastaCost(5) As Single

ONLINE HR MANAGEMENT SYSTEM

Dim TaxRate As Single
Dim TotalCost As Single
Private Const NumberPasta = 6
Public temp As Single
Dim choice As Single
Public Function meal() As Single
meal = choice
End Function
Public Function getval() As Single
getval = temp
End Function
Private Sub Check1_Click(Index As Integer)
If Check1(Index) = vbChecked Then
Cmdorder.Visible = True
Cmdorder.SetFocus
Else
Cmdorder.Visible = False
End If
End Sub
Private Sub Cmdorder_Click()
Dim I As Integer
Dim Cost As Single
Dim Rtn As Integer
Dim PastaString As String
For I = 0 To NumberPasta - 1
If Check1(I).Value = vbChecked Then
PastaString = PastaString + "1"

ONLINE HR MANAGEMENT SYSTEM

Cost = (Cost + PastaCost(I)) * Val(Combo1(I).Text)
Else
PastaString = PastaString + "0"
End If
Next I
choice = PastaString
TotalCost = (((Cost * TaxRate) / 100) + Cost)
Lblpay.Caption = "You have to pay"
LBLCOST3.Caption = Format(TotalCost, "0.00")
lblCurrency.Caption = "INR (including tax)"
temp = TotalCost
PicCon.Visible = True
End Sub
Private Sub Form_Load()
'Pasta cost
PastaCost(0) = 55
PastaCost(1) = 65
PastaCost(2) = 85
PastaCost(3) = 100
PastaCost(4) = 125
PastaCost(5) = 135
'Tax rate
TaxRate = 13.5
Cmdorder.Visible = False
PicCon.Visible = False
End Sub
Private Sub PicBack_Click()
frmPasta.Visible = False

ONLINE HR MANAGEMENT SYSTEM

frmMenu.Visible = True
End Sub
Private Sub PicCon_Click()
frmPasta.Visible = False
frmCheckout.Visible = True
End Sub
Private Sub Picrefresh_Click()
Lblpay.Caption = ""
LBLCOST3.Caption = ""
lblCurrency.Caption = ""
Cmdorder.Visible = False
PicCon.Visible = False
Dim I As Integer
For I = 0 To NumberPasta - 1
Check1(I).Value = vbUnchecked
Next I
TotalCost = 0#
temp = 0#
End Sub

ONLINE HR MANAGEMENT SYSTEM

8. frmSoup

ONLINE HR MANAGEMENT SYSTEM

SOURCE CODE:
Option Explicit
Dim SBCost(5) As Single
Dim TaxRate As Single
Dim TotalCost As Single
Private Const NumberSB = 6
Public temp As Single
Dim choice As Single
Public Function meal() As Single
meal = choice
End Function

Public Function getval() As Single

getval = temp
End Function
Private Sub Check1_Click(Index As Integer)
If Check1(Index) = vbChecked Then
Cmdorder.Visible = True
Cmdorder.SetFocus
Else

ONLINE HR MANAGEMENT SYSTEM

Cmdorder.Visible = False
End If
End Sub
Private Sub Cmdorder_Click()
Dim I As Integer
Dim Cost As Single
Dim Rtn As Integer
Dim SBString As String
For I = 0 To NumberSB - 1
If Check1(I).Value = vbChecked Then
SBString = SBString + "1"
Cost = (Cost + SBCost(I)) * Val(Combo1(I).Text)
Else
SBString = SBString + "0"
End If
Next I
choice = SBString
TotalCost = ((Cost * TaxRate) / 100) + Cost
Lblpay.Caption = "You have to pay"
LBLCOST3.Caption = Format(TotalCost, "0.00")
lblcurrency.Caption = "INR (including tax)"
temp = TotalCost
PictContinue.Visible = True
End Sub

Private Sub Form_Load()

SBCost(0) = 99
SBCost(1) = 65
SBCost(2) = 75
SBCost(3) = 80
SBCost(4) = 199
SBCost(5) = 49
'Tax rate
TaxRate = 13.5
Cmdorder.Visible = False
PictContinue.Visible = False

ONLINE HR MANAGEMENT SYSTEM

End Sub
Private Sub PicBack_Click()
frmSoup.Visible = False
frmMenu.Visible = True
End Sub
Private Sub Picrefresh_Click()
LBLCOST3.Caption = ""
Lblpay.Caption = ""
lblcurrency.Caption = ""
Cmdorder.Visible = False
PictContinue.Visible = False
Dim I As Integer
For I = 0 To NumberSB - 1
Check1(I).Value = vbUnchecked
Next I
TotalCost = 0#
temp = 0#
End Sub
Private Sub PictContinue_Click()
frmSoup.Visible = False
frmCheckout.Visible = True
End Sub

9. frmDessert

ONLINE HR MANAGEMENT SYSTEM

SOURCE CODE:
Option Explicit
Dim DessertCost(5) As Single
Dim TaxRate As Single
Dim TotalCost As Single
Private Const NumberDessert = 6
Public temp As Single
Dim choice As Single
Public Function meal() As Single
meal = choice
End Function

Public Function getval() As Single

ONLINE HR MANAGEMENT SYSTEM

getval = temp
End Function

Private Sub Check1_Click(Index As Integer)

If Check1(Index) = vbChecked Then
Cmdorder.Visible = True
Cmdorder.SetFocus
Else
Cmdorder.Visible = False
End If
End Sub

Private Sub Cmdorder_Click()

Dim I As Integer
Dim Cost As Single
Dim Rtn As Integer
Dim DessertString As String
For I = 0 To NumberDessert - 1
If Check1(I).Value = vbChecked Then
DessertString = DessertString + "1"
Cost = (Cost + DessertCost(I)) * Val(Combo1(I).Text)
Else
DessertString = DessertString + "0"

End If
Next I

ONLINE HR MANAGEMENT SYSTEM

choice = DessertString
TotalCost = (((Cost * TaxRate) / 100) + Cost)
Lblpay.Caption = "You have to pay"
LBLCOST4.Caption = Format(TotalCost, "0.00")
LblINR.Caption = "INR (including tax)"
temp = TotalCost
PictContinue.Visible = True
End Sub

Private Sub Form_Load()

'Dessert cost
DessertCost(0)
DessertCost(1)
DessertCost(2)
DessertCost(3)
DessertCost(4)
DessertCost(5)

=
=
=
=
=
=

55
65
85
115
125
135

'Tax rate
TaxRate = 13.5

Cmdorder.Visible = False
PictContinue.Visible = False
End Sub

Private Sub PicBack_Click()

frmDessert.Visible = False
frmMenu.Visible = True

ONLINE HR MANAGEMENT SYSTEM

End Sub

Private Sub Picrefresh_Click()

LBLCOST4.Caption = ""
Lblpay.Caption = ""
LblINR.Caption = ""
Cmdorder.Visible = False
PictContinue.Visible = False
Dim I As Integer
For I = 0 To NumberDessert - 1
Check1(I).Value = vbUnchecked
Next I
TotalCost = 0#
temp = 0#
End Sub

Private Sub PictContinue_Click()

frmDessert.Visible = False
frmCheckout.Visible = True
End Sub

10. frmDrink

ONLINE HR MANAGEMENT SYSTEM

SOURCE CODE:
Option Explicit
Dim DrinkCost(5) As Single
Dim TaxRate As Single
Dim TotalCost As Single
Private Const NumberDrink = 6
Public temp As Single
Dim choice As Single
Public Function meal() As Single
meal = choice
End Function

Public Function getval() As Single

ONLINE HR MANAGEMENT SYSTEM

getval = temp
End Function
Private Sub Check1_Click(Index As Integer)
If Check1(Index) = vbChecked Then
Cmdorder.Visible = True
CmdOrder.SetFocus
Else
Cmdorder.Visible = False
End If
End Sub
Private Sub Cmdorder_Click()
Dim I As Integer
Dim Cost As Single
Dim Rtn As Integer
Dim DrinkString As String
For I = 0 To NumberDrink - 1
If Check1(I).Value = vbChecked Then
DrinkString = DrinkString + "1"
Cost = (Cost + DrinkCost(I)) * Val(Combo1(I).Text)
Else
DrinkString = DrinkString + "0"
End If
Next I

choice = DrinkString

ONLINE HR MANAGEMENT SYSTEM

TotalCost = (((Cost * TaxRate) / 100) + Cost)
Lblpay.Caption = "You have to pay"
LBLCOST5.Caption = Format(TotalCost, "0.00")
lblcurrency.Caption = "INR (including tax)"
temp = TotalCost
PictContinue.Visible = True
End Sub
Private Sub Form_Load()
DrinkCost(0)
DrinkCost(1)
DrinkCost(2)
DrinkCost(3)
DrinkCost(4)
DrinkCost(5)

=
=
=
=
=
=

129
45
99
40
35
55

'Tax rate
TaxRate = 13.5
Cmdorder.Visible = False
PictContinue.Visible = False
End Sub

Private Sub PicBack_Click()

frmDrink.Visible = False
frmDessert.Visible = True
End Sub

Private Sub Picrefresh_Click()

LBLCOST5.Caption = ""

ONLINE HR MANAGEMENT SYSTEM

Lblpay.Caption = ""
lblcurrency.Caption = ""
Cmdorder.Visible = False
PictContinue.Visible = False
Dim I As Integer
For I = 0 To NumberDrink - 1
Check1(I).Value = vbUnchecked
Next I
TotalCost = 0#
temp = 0#
End Sub

Private Sub PictContinue_Click()

frmDrink.Visible = False
frmCheckout.Visible = True
End Sub

11. frmCheckout

ONLINE HR MANAGEMENT SYSTEM

ONLINE HR MANAGEMENT SYSTEM

SOURCE CODE:
Option Explicit
Public total As Single
Dim tempCost As Single
Public a As Single

Public Function gettotal() As Single

gettotal = total
End Function

Private Sub OptDeliver_Click()

a = (tempCost + (tempCost * 20) / 100)
Label1.Caption = Format(a, "0.00")
Label3.Caption = "INR"
total = a
End Sub

Private Sub Form_Load()

tempCost = frmPizza.getval + frmDessert.getval +
frmDrink.getval + frmSoup.getval + frmPasta.getval
End Sub

ONLINE HR MANAGEMENT SYSTEM

Private Sub OptPick_Click()

a = tempCost
Label1.Caption = Format(a, "0.00")
Label3.Caption = "INR"
total = a
End Sub

Private Sub picChk_Click()

If ((OptDeliver.Value = False) And (OptPick.Value = False)) Then
MsgBox "Please SELECT Pickup/Delivery",
vbOKOnly+vbExclamation,""
Else
frmCheckout.Visible = False
frmPayment.Visible = True
End If
End Sub

Private Sub picMenu_Click()

frmMenu.Visible = True
frmCheckout.Visible = False
End Sub

ONLINE HR MANAGEMENT SYSTEM

12. frmNewCustomer

SOURCE
CODE:
Private Sub cmdCancel_Click()
'Cancel new customer addition and return to order form
denPizza.rscomCustomers.CancelUpdate
denPizza.rscomOrders.CancelUpdate
Unload frmNewCustomer
End Sub

ONLINE HR MANAGEMENT SYSTEM

Private Sub cmdSave_Click()
'Save entered information and return to order form
Dim Desc As String, AllOK As Boolean
AllOK = True
If txtFirstName.Text = "" Then AllOK = False
If txtLastName.Text = "" Then AllOK = False
If txtAddress.Text = "" Then AllOK = False
If txtCity.Text = "" Then AllOK = False
If txtState.Text = "" Then AllOK = False
If txtZip.Text = "" Then AllOK = False
If Not (AllOK) Then
MsgBox "All text boxes require an entry.", vbOKOnly +
vbInformation, "Information Missing"
txtFirstName.SetFocus
Exit Sub
End If
'Rebind fields
denPizza.rscomCustomers.Update
Set txtFirstName.DataSource = denPizza
Set txtFirstName.DataSource = denPizza
Set txtLastName.DataSource = denPizza
Set txtAddress.DataSource = denPizza
Set txtCity.DataSource = denPizza
Set txtState.DataSource = denPizza
Set txtZip.DataSource = denPizza

ONLINE HR MANAGEMENT SYSTEM

Set txtFirstName.DataSource = denPizza
Set txtFirstName.DataSource = denPizza
Set txtLastName.DataSource = denPizza
Set txtAddress.DataSource = denPizza
Set txtCity.DataSource = denPizza
Set txtState.DataSource = denPizza
Set txtZip.DataSource = denPizza
Set txtComment.DataSource = denPizza
NewCustomer = True
Unload frmNewCustomer
End Sub
Private Sub Form_Activate()
denPizza.rscomCustomers.AddNew
txtPhoneNumber.Text = frmPayment.medPhone.Text
txtFirstName.SetFocus
End Sub
Private Sub txtAddress_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then txtCity.SetFocus
End Sub
Private Sub txtCity_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then txtState.SetFocus
End Sub

Private Sub txtFirstName_KeyPress(KeyAscii As Integer)

ONLINE HR MANAGEMENT SYSTEM

If KeyAscii = vbKeyReturn Then txtLastName.SetFocus
End Sub

Private Sub txtLastName_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyReturn Then txtAddress.SetFocus
End Sub

Private Sub txtState_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyReturn Then txtZip.SetFocus
End Sub

Private Sub txtZip_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyReturn Then cmdSave.SetFocus
End Sub

ONLINE HR MANAGEMENT SYSTEM

13. frmPayment

ONLINE HR MANAGEMENT SYSTEM

SOURCE CODE:
Option Explicit
Dim OrderNumber As Integer
Dim temporder As Integer

Public Function thank() As Integer

thank = temporder
End Function
Private Sub cmdComplete_Click()
OrderNumber = OrderNumber + 1
Temporder=OrderNumber
denPizza.rscomOrders.Fields("PhoneNumber") =
medPhone.Text
denPizza.rscomOrders.Fields("OrderDate") =
lblDate.Caption
denPizza.rscomOrders.Fields("OrderTime") =
lblTime.Caption
denPizza.rscomOrders.Fields("TotalCost") =
Label17.Caption
denPizza.rscomOrders.Fields("Pizza_type") =
frmPizza.meal
denPizza.rscomOrders.Fields("Pasta_type") =
frmPasta.meal

ONLINE HR MANAGEMENT SYSTEM

denPizza.rscomOrders.Fields("Soup_Bread_type") =
frmSoup.meal
denPizza.rscomOrders.Fields("Dessert_type") =
frmDessert.meal
denPizza.rscomOrders.Fields("Drink_Beverage_type") =
frmDrink.meal
denPizza.rscomOrders.Fields("Delivery") =
frmCheckout.OptDeliver.Value
denPizza.rscomOrders.Update

frmPayment.Caption = "Order #" + Format(OrderNumber,

"0000")
cmdFind.Enabled = False
cmdComplete.Enabled = False
txtFirstName.Visible = False
txtLastName.Visible = False
txtAddress.Visible = False
txtCity.Visible = False
txtState.Visible = False
txtZip.Visible = False
txtComment.Visible = False
medPhone.Text = "__________"
medPhone.Enabled = False
fraPay.Enabled = False
fraCOD.Enabled = False
fraCC.Enabled = False
fraDC.Enabled = False
fraNB.Enabled = False

ONLINE HR MANAGEMENT SYSTEM

End Sub
Private Sub cmdFind_Click()
Dim L As Integer
'Check phone number validity (at least that it has enough
characters)
medPhone.PromptInclude = False
L = Len(medPhone.Text)
medPhone.PromptInclude = True

If L <> 10 Then
MsgBox "Phone number requires 10 digits.",
vbExclamation + vbOKOnly, "Phone Number Error"
medPhone.SetFocus
Exit Sub
End If
denPizza.rscomCustomers.MoveFirst
denPizza.rscomCustomers.Find "PhoneNumber = '" +
medPhone.Text + "'", 0, adSearchForward
If Not (denPizza.rscomCustomers.EOF) Then
cmdFind.Enabled = False
medPhone.Enabled = False
txtFirstName.Visible = True
txtLastName.Visible = True
txtAddress.Visible = True
txtCity.Visible = True
txtState.Visible = True
txtZip.Visible = True

ONLINE HR MANAGEMENT SYSTEM

txtComment.Visible = True
Else
frmNewCustomer.Show vbModal
End If
cmdComplete.Enabled = False
fraPay.Enabled = True
End Sub

Private Sub cmdPrivacy_Click()

frmPayment.Visible = False
frmThank.Visible= True
End Sub
Private Sub cmdCOD_Click()
If txtCaptcha.Text = "overlooks" Then
MsgBox ("Your order has been processed. Please keep
the amount payable ready in CASH")
Else: MsgBox "Text mismatch! Try again!", vbCritical,
"ERROR!!!"
End If
cmdComplete.Enabled = True
cmdComplete.SetFocus
End Sub

Private Sub cmdCredit_Click()

Dim AllOK As Boolean
AllOK = True

ONLINE HR MANAGEMENT SYSTEM

If TxtCno.Text = "" Then AllOK = False
If TxtCname.Text = "" Then AllOK = False
If ComboCmonth.Text = "" Then AllOK = False
If ComboCmonth.Text = "Month" Then AllOK = False
If ComboCyear.Text = "" Then AllOK = False
If ComboCyear.Text = "Year" Then AllOK = False
If TxtCCW.Text = "" Then AllOK = False

If Not (AllOK) Then

MsgBox "All * fields are required", vbOKOnly +
vbInformation, "Information Missing"
Exit Sub
End If
Dim Credit As String
Credit = "https://www.paypal.com/"
Call Shell("explorer.exe " & Credit, vbNormalFocus)
cmdComplete.Enabled = True
cmdComplete.SetFocus
End Sub
Private Sub cmdDebit_Click()
Dim AllOK As Boolean
AllOK = True
If TxtDno.Text = "" Then AllOK = False
If TxtDname.Text = "" Then AllOK = False
If ComboDmonth.Text = "" Then AllOK = False
If ComboDmonth.Text = "Month" Then AllOK = False

ONLINE HR MANAGEMENT SYSTEM

If ComboDyear.Text = "" Then AllOK = False
If ComboDyear.Text = "Year" Then AllOK = False
If Not (AllOK) Then
MsgBox "All * fields are required", vbOKOnly +
vbInformation, "Information Missing"
Exit Sub

End If
Dim pay As String
pay = "https://www.paypal.com/"
Call Shell("explorer.exe " & pay, vbNormalFocus)
cmdComplete.Enabled = True
End Sub
Private Sub cmdNB_Click()
Select Case Combobank.ListIndex
Case 0
Dim Web0 As String
Web0 =
"https://www.axisbiconnect.co.in/BankAway/web/L00
1/retail/jsp/ebpp/RetShoppingMallSignOn.aspx?
RequestId=43388401"
Call Shell("explorer.exe " & Web0, vbNormalFocus)
Case 1
Dim Web1 As String
Web1 =
"https://starconnectcbs.bankofindia.com/BankAway
Retail/

ONLINE HR MANAGEMENT SYSTEM

(S(yx3mqo45vlakzz55rzfytf45))/web/L001/retail/jsp
/user/RetailSignOn.aspx?RequestId=55748892"
Call Shell("explorer.exe " & Web1, vbNormalFocus)
Case 2
Dim Web2 As String
Web2 =
"https://www.citibank.co.in/ibank/login/IQPin1.jsp"
Call Shell("explorer.exe " & Web2, vbNormalFocus)

Case 3
Dim Web3 As String
Web3 =
"https://netbanking.hdfcbank.com/netbanking/"
Call Shell("explorer.exe " & Web3, vbNormalFocus)
Case 4
Dim Web4 As String
Web4 = "https://infinity.icicibank.co.in/BANKAWAY?
Action.RetUser.Init.001=Y&AppSignonBankId=ICI&A
ppType=corporate&abrdPrf=N"
Call Shell("explorer.exe " & Web4, vbNormalFocus)
Case 5
Dim Web5 As String
Web5 =
"https://ibank.standardchartered.co.in/nfs/ddpaym
ents_redirection_login.htm"
Call Shell("explorer.exe " & Web5, vbNormalFocus)
Case 6
Dim Web6 As String
Web6 = "https://www.onlinesbi.com/retail/login.htm#"

ONLINE HR MANAGEMENT SYSTEM

Call Shell("explorer.exe " & Web6, vbNormalFocus)
Case Else
MsgBox "Please select your bank to proceed",
vbCritical + vbOKOnly, "Error"
End Select
cmdComplete.Enabled = True
cmdComplete.SetFocus
End Sub
Private Sub Form_Load()
Dim tempCost As Single
Open App.Path + "\pizza.ini" For Input As #45
Input #45, OrderNumber
Close 45
frmPayment.Caption = "Order #" + Format(OrderNumber,
"0000")
NewCustomer = False
tempCost = frmCheckout.gettotal
Label17.Caption = Format(tempCost, "0.00")
Label18.Caption = "INR"
'Open database
denPizza.conPizza.Open
"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security
Info=False;Data Source=" + App.Path + "\PizzaDB.mdb"
'Open customers and orders recordset
denPizza.rscomCustomers.Open "SELECT * FROM
Customers"
denPizza.rscomOrders.Open "SELECT * FROM Orders"

ONLINE HR MANAGEMENT SYSTEM

'Bind controls
Set txtFirstName.DataSource = denPizza
Set txtFirstName.DataSource = denPizza
Set txtLastName.DataSource = denPizza
Set txtAddress.DataSource = denPizza
Set txtCity.DataSource = denPizza
Set txtState.DataSource = denPizza
Set txtZip.DataSource = denPizza

Set txtComment.DataSource = denPizza

fraPay.Enabled = False
fraCOD.Enabled = False
fraCC.Enabled = False
fraDC.Enabled = False
fraNB.Enabled = False
lblTime.Visible = False
End Sub

Private Sub optCOD_Click()

fraCOD.Enabled = True
fraCC.Enabled = False
fraDC.Enabled = False
fraNB.Enabled = False
End Sub

ONLINE HR MANAGEMENT SYSTEM

Private Sub optCredit_Click()
fraCOD.Enabled = False
fraCC.Enabled = True
fraDC.Enabled = False
fraNB.Enabled = False
End Sub
Private Sub optDebit_Click()
fraCOD.Enabled = False

fraCC.Enabled = False
fraDC.Enabled = True
fraNB.Enabled = False
End Sub
Private Sub optNB_Click()
fraCOD.Enabled = False
fraCC.Enabled = False
fraDC.Enabled = False
fraNB.Enabled = True
End Sub
Private Sub NewOrder()
denPizza.rscomOrders.AddNew
lblDate.Caption = Format(Now, "dd/mm/yy")
lblTime.Caption = Format(Now, "hh:mm:ss")
medPhone.SetFocus

ONLINE HR MANAGEMENT SYSTEM

End Sub
Private Sub Form_Activate()
If Not (NewCustomer) Then
Call NewOrder
Else
NewCustomer = False
cmdFind_Click

End If
End Sub
Private Sub medPhone_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
cmdFind_Click
End If
End Sub
Private Sub TxtCno_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then TxtCname.SetFocus
End Sub
Private Sub TxtCname_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then ComboCmonth.SetFocus
End Sub
Private Sub ComboCmonth_KeyPress(KeyAscii As Integer)

ONLINE HR MANAGEMENT SYSTEM

If KeyAscii = vbKeyReturn Then ComboCyear.SetFocus
End Sub
Private Sub ComboCyear_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then TxtCCW.SetFocus
End Sub

Private Sub ComboCCW_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyReturn Then cmdCredit.SetFocus
End Sub

Private Sub TxtDno_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyReturn Then TxtDname.SetFocus
End Sub
Private Sub TxtDname_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then ComboDmonth.SetFocus
End Sub

Private Sub ComboDmonth_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyReturn Then ComboDyear.SetFocus
End Sub
Private Sub ComboDyear_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then TxtDCW.SetFocus

ONLINE HR MANAGEMENT SYSTEM

End Sub
Private Sub ComboDCW_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then cmdDebit.SetFocus
End Sub

14. frmPrivacy

SOURCE CODE:
Private Sub PicBack_Click()
frmPrivacy.Visible = False
frmPayment.Visible = True
End Sub

ONLINE HR MANAGEMENT SYSTEM

ONLINE HR MANAGEMENT SYSTEM

15. frmThank

SOURCE CODE:
Private Sub picExit_Click()
Open App.Path + "\pizza.ini" For Output As #1
Write #1, frmPayment.thank
Close 1
Unload Me
End Sub

ONLINE HR MANAGEMENT SYSTEM

CONCLUSION
After reviewing our work, the conclusion is that after many adjustments the
systemworks. As good as it is now, there can still be ground for more improvements.
However in the time was given that four persons can work on this project, the overall
results are satisfactory in our opinion. The report covers the entire course of the
project and results are there were needed. This conclusion chapter is more a
description of the process rather than a summary to give all results and facts. In
introduction, the problem description is given along with a brief outline of our
proposed system. Our main goal is to give a clear understanding what we are doing,
together with the given problems. The approach in the following pages gives the
explanation how we are going to work with the problems that have arisenand future
planning. In snapshots and coding the full design of the system is discussed and
specified. Various specifications of the system but also the users are specified. We
evaluated the system by testing the application and making people work with the
system other than us. We did not perform interviews or step by step evaluation with
the people other than us, we just showed the system and asked for feedback.
Basically we treated people who we asked to give feedback as customers. Finally
comesour conclusion, as said before the conclusion in this report is not a summary of
results and facts. In the report all aspects are given clear explanation, hence the
conclusion would just be a simple summary. The conclusion as it is nowhopefully
gives a understanding in the steps taken to make the report.

ONLINE HR MANAGEMENT SYSTEM

FUTURE SCOPE
The present system is developed as a food ordering system with online access.
It can be integrated into various websites. In future, we would like to develop it
as web applications for PCs and portable devices like cell phones with wap, gprs
or 3g connections for various platforms and get it connected to Google Analytics
to monitor website traffic. We would also like to incorporate voice recognition
technology in this system so that it responds to voice commands accurately.

REFERENCES
WEBSITES:

www.dominos.co.in
www.pizzahut.com
www.scribd.com
en.wikipedia.org
msdn.microsoft.com
www.smartdraw.com
www.pixlr.com

BOOKS:

Information Practices by Sumitra Arora, published by

Dhanpat Rai & Co.

ONLINE HR MANAGEMENT SYSTEM

Beginning Visual Basic 6 Database Programming by John

Connell, published by Apress L.P.