097715 / Исходники / Магазин бытовой техники / Data

//Модуль данных - связь бизнес-уровня и графического интерфейса
unit Data;

interface

uses
SysUtils, Classes, BoldUMLModelLink, BoldUMLRose98Link, BoldHandle,
BoldPersistenceHandle, BoldPersistenceHandleFile,
BoldPersistenceHandleFileXML, BoldAbstractModel, BoldModel, BoldHandles,
BoldRootedHandles, BoldAbstractListHandle, BoldCursorHandle,
BoldListHandle, BoldSubscription, BoldSystemHandle, BusinessClasses;

type
TDataShop = class(TDataModule)
BoldSystemHandleShop: TBoldSystemHandle;
BoldSystemTypeInfoHandleShop: TBoldSystemTypeInfoHandle;
ListShopName: TBoldListHandle;
ShopModel: TBoldModel;
BoldPersistenceHandleFileXMLShop: TBoldPersistenceHandleFileXML;
BoldUMLRoseLinkShop: TBoldUMLRoseLink;
ListAdmin: TBoldListHandle;
ListOtdels: TBoldListHandle;
ListGroups: TBoldListHandle;
ListOtdelGroups: TBoldListHandle;
ListBases: TBoldListHandle;
ListOtdelsGroupTovar: TBoldListHandle;
ListShop: TBoldListHandle;
ListShopOtdel: TBoldListHandle;
ListBaseGroup: TBoldListHandle;
ListBaseGroupTovar: TBoldListHandle;
ListTovar: TBoldListHandle;
ListShopBase: TBoldListHandle;
ListBaseTovar: TBoldListHandle;
ListProdazha: TBoldListHandle;
ListZakupka: TBoldListHandle;
ListGroupTovar: TBoldListHandle;
ListProdazhaOtchet: TBoldListHandle;
ListZakupkaOtchet: TBoldListHandle;
private
{ Private declarations }
public
{ Public declarations }
end;

var
DataShop: TDataShop;

implementation

{$R *.dfm}

end.