Measure/DataModules/StandardBillsDm.pas

unit StandardBillsDm;

interface

uses
  SysUtils, Classes, ADODB, DB, DBClient, Provider, sdIDTree,
  UtilMethods, sdDB, sdProvider;

type
  TStandardBillsData = class(TDataModule)
    sdpStdBills: TsdADOProvider;
    sddStdBills: TsdDataSet;
    sdvStdBills: TsdDataView;
  private
    FBillsTree: TsdIDTree;

    procedure CreateBillsTree;
    procedure OpenConnetion(AConnection: TADOConnection);
    procedure ExpandFirstNode;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;

    procedure Open(AConnection: TADOConnection);
    procedure CalcCacheData(ANode:TsdIDTreeNode; AOrder: Integer; AParentPath: String);

    property BillsTree: TsdIDTree read FBillsTree;
  end;

implementation

{$R *.dfm}

{ TStandardBillsData }

procedure TStandardBillsData.CalcCacheData(ANode: TsdIDTreeNode;
  AOrder: Integer; AParentPath: String);
var
  sNodePath: string;
begin
  if not Assigned(ANode) then Exit;

  ANode.Rec.ValueByName('BillsLevel').AsInteger := ANode.Level + 1;
  ANode.Rec.ValueByName('BillsOrder').AsInteger := AOrder;
  if AParentPath = '' then
    sNodePath := IntToStr(ANode.ID)
  else
    sNodePath := AParentPath + '.' + IntToStr(ANode.ID);
  ANode.Rec.ValueByName('FullPath').AsString := sNodePath;
  ANode.Rec.ValueByName('IsLeaf').AsBoolean := not ANode.HasChildren;

  CalcCacheData(ANode.FirstChild, 1, sNodePath);
  CalcCacheData(ANode.NextSibling, AOrder + 1, AParentPath);
end;

constructor TStandardBillsData.Create(AOwner: TComponent);
begin
  inherited;
  CreateBillsTree;
end;

procedure TStandardBillsData.CreateBillsTree;
begin
  FBillsTree := TsdIDTree.Create;
  FBillsTree.KeyFieldName := 'ID';
  FBillsTree.ParentFieldName := 'ParentID';
  FBillsTree.NextSiblingFieldName := 'NextID';
  FBillsTree.AutoExpand := False;
end;

destructor TStandardBillsData.Destroy;
begin
  FBillsTree.Free;
  inherited;
end;

procedure TStandardBillsData.ExpandFirstNode;
begin
  if FBillsTree.FirstNode <> nil then
    FBillsTree.FirstNode.Expand;
end;

procedure TStandardBillsData.Open(AConnection: TADOConnection);
begin
  OpenConnetion(AConnection);
  FBillsTree.DataView := sdvStdBills;
  ExpandFirstNode;
end;

procedure TStandardBillsData.OpenConnetion(AConnection: TADOConnection);
begin
  sdpStdBills.Connection := AConnection;
  sdpStdBills.TableName := 'BillsTree';
  sddStdBills.Open;
  sdvStdBills.Open;
  sddStdBills.AddIndex('idxID', 'ID');
  sddStdBills.AddIndex('sdxCode', 'Code');
  sddStdBills.AddIndex('sddBCode', 'B_Code');
end;

end.