1 |
|
unit DataAccess; |
2 |
|
interface |
3 |
|
|
4 |
< |
uses TypeDefs, Classes, StrUtils, SysUtils; |
4 |
> |
uses TypeDefs, Classes, StrUtils, SysUtils, _MetaManager; |
5 |
|
|
6 |
|
type |
7 |
|
TDataAccess = class |
13 |
|
FDataOS: TDataOS; |
14 |
|
FLevelNumber: Integer; |
15 |
|
FChangeRights: TChangeRights; |
16 |
+ |
FMeta: TMetaManager; |
17 |
|
procedure SetDataOS(DataOS: TDataOS); |
18 |
|
public |
19 |
|
property ConnectionID: Integer read FConnectionID; |
22 |
|
property DataOS: TDataOS read FDataOS write SetDataOS; |
23 |
|
property LevelNumber: Integer read FLevelNumber; |
24 |
|
property ChangeRights: TChangeRights read FChangeRights; |
25 |
+ |
property MetaData: TMetaManager read FMeta; |
26 |
|
|
27 |
|
constructor Create(FileName: String; ConnectionID: Integer; var Msg: TStatusMessages); virtual; abstract; |
28 |
|
procedure Close; virtual; abstract; |