mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-16 16:25:54 +01:00
46 lines
1.9 KiB
ObjectPascal
46 lines
1.9 KiB
ObjectPascal
|
{ }
|
||
|
|
{******************************************************************************}
|
||
|
|
{ }
|
||
|
|
{ Licensed under the Apache License, Version 2.0 (the "License"); }
|
||
|
|
{ you may not use this file except in compliance with the License. }
|
||
|
|
{ You may obtain a copy of the License at }
|
||
|
|
{ }
|
||
|
|
{ http://www.apache.org/licenses/LICENSE-2.0 }
|
||
|
|
{ }
|
||
|
|
{ Unless required by applicable law or agreed to in writing, software }
|
||
|
|
{ distributed under the License is distributed on an "AS IS" BASIS, }
|
||
|
|
{ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. }
|
||
|
|
{ See the License for the specific language governing permissions and }
|
||
|
|
{ limitations under the License. }
|
||
|
|
{ }
|
||
|
|
{******************************************************************************}
|
||
|
|
|
||
|
|
unit Sample.Data.Employee;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
Sample.Data.Address;
|
||
|
|
|
||
|
|
type
|
||
|
|
TEmployee = class(TObject)
|
||
|
|
strict private
|
||
|
|
fName: String;
|
||
|
|
fHireDate: TDate;
|
||
|
|
fPhone: String;
|
||
|
|
fId: Int64;
|
||
|
|
fSalary: Double;
|
||
|
|
fAddress: TAddress;
|
||
|
|
public
|
||
|
|
property Id: Int64 read fId write fId;
|
||
|
|
property Name: String read fName write fName;
|
||
|
|
property Phone: String read fPhone write fPhone;
|
||
|
|
property HireDate: TDate read fHireDate write fHireDate;
|
||
|
|
property Salary: Double read fSalary write fSalary;
|
||
|
|
property Address: TAddress read fAddress write fAddress;
|
||
|
|
end;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
end.
|