| 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; |