重构树相关

Units/BillsTree.pas

@@ -77,9 +77,6 @@ type
   private
     FStageRec: TStageRecord;
   public
-    function UpLevel: Boolean; override;
-    function DownLevel: Boolean; override;
-
     // Cache Data
     property StageRec: TStageRecord read FStageRec write FStageRec;
   end;
@@ -357,30 +354,4 @@ begin
     FCompileTree.DoOnReCalcNode(ANode);
 end;
 
-{ TMeasureBillsIDTreeNode }
-
-function TMeasureBillsIDTreeNode.DownLevel: Boolean;
-var
-  iOrgParentID: Integer;
-begin
-  iOrgParentID := ParentID;
-  Result := inherited DownLevel;
-
-  if not Result then Exit;
-  TMeasureBillsIDTree(Owner).DoOnReCalcNode(ParentID);
-  TMeasureBillsIDTree(Owner).DoOnReCalcNode(iOrgParentID);
-end;
-
-function TMeasureBillsIDTreeNode.UpLevel: Boolean;
-var
-  iOrgParentID: Integer;
-begin
-  iOrgParentID := ParentID;
-  Result := inherited UpLevel;
-
-  if not Result then Exit;
-  TMeasureBillsIDTree(Owner).DoOnReCalcNode(iOrgParentID);
-  TMeasureBillsIDTree(Owner).DoOnReCalcNode(ParentID);
-end;
-
 end.