Context Navigation

UAttendance.pas

Last change on this file was 4, checked in by chronos, 13 years ago
Modified: Project now user ChronisPlatform package.
File size: 854 bytes

Line
1	unit UAttendance;
2
3	{$mode delphi}
4
5	interface
6
7	uses
8	Classes, SysUtils;
9
10	type
11	THoliday = class
12	Id: Integer;
13	Name: string;
14	Date: TDate;
15	end;
16
17	TOperation = class
18	Id: string;
19	Name: string;
20	end;
21
22	TUser = class
23	Id: string;
24	Login: string;
25	Password: string;
26	FirstName: string;
27	SecondName: string;
28	CardId: string;
29	Enabled: string;
30	end;
31
32	TTerminalProtocol = class
33	Name: string;
34	end;
35
36	TTerminal = class
37	Id: string;
38	Name: string;
39	IPAddress: string;
40	Port: string;
41	Protocol: TTerminalProtocol;
42	end;
43
44	TUserPassage = class
45	Id: Integer;
46	Terminal: TTerminal;
47	User: TUser;
48	Time: TDateTime;
49	Operation: TOperation;
50	end;
51
52	TUserPresence = class
53	Id: Integer;
54	User: TUser;
55	TimeFrom: TDateTime;
56	TimeTo: TDateTime;
57	end;
58
59
60	implementation
61
62	end.
63

Note: See TracBrowser for help on using the repository browser.