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