代码大全

Employee.Name := InputName;

Empployee.Address := InputAddress;

Employee.Phone := InputPhone;

Supervisor.Title := InputTitle;

Supervisor.Department := InputDepartment;

Supervisor.Bonus := InputBonus;

Basic

NewName = OldName

NewAddress = OldAddress

NewPhone = OldPhone

NewSSN = OldSSN

NewSex = OldSex

NewSalary = OldSalary

NumWithholdings

NewNumWithholdings = OldNumWithholdings

' swap new and old employee data

PrevOldName = OldName

PrevOldAddress = OldAddress

PrevOldPhone = OldPhoe

PrevOldSSN = OldSSN

PrevOldSex = OldSex

PrevOldsalary = OldSalary

OldName = NewName

OldAddress = NewAddress

OldPhone = NewPhone

OldSSN = NewSSN