优化部分功能

DataModules/BillsCompileDm.pas

@@ -162,13 +162,13 @@ end;
 procedure TBillsCompileData.ExpandXmjNode;
 var
   iIndex: Integer;
-  stnNode: TsdIDTreeNode;
+  stnNode: TBillsIDTreeNode;
 begin
   for iIndex := 0 to BillsCompileTree.Count - 1 do
   begin
-    stnNode := BillsCompileTree.Items[iIndex];
+    stnNode := TBillsIDTreeNode(BillsCompileTree.Items[iIndex]);
     if (stnNode.ParentID <> -1) then
-      stnNode.Parent.Expanded := stnNode.Rec.ValueByName('B_Code').AsString = '';
+      stnNode.Parent.Expanded := stnNode.Rec.B_Code.AsString = '';
   end;
 end;
 

DataModules/BillsMeasureDm.pas

@@ -634,13 +634,13 @@ end;
 procedure TBillsMeasureData.ExpandXmjNode;
 var
   iIndex: Integer;
-  stnNode: TsdIDTreeNode;
+  stnNode: TBillsIDTreeNode;
 begin
   for iIndex := 0 to BillsMeasureTree.Count - 1 do
   begin
     stnNode := BillsMeasureTree.Items[iIndex];
     if (stnNode.ParentID <> -1) then
-      stnNode.Parent.Expanded := stnNode.Rec.ValueByName('B_Code').AsString = '';
+      stnNode.Parent.Expanded := stnNode.Rec.B_Code.AsString = '';
   end;
 end;
 
@@ -778,7 +778,7 @@ procedure TBillsMeasureData.ExpandCurPhase;
 var
   iIndex: Integer;
   stnNode: TsdIDTreeNode;
-  StageRec: TsdDataRecord;
+  StageRec: TStageRecord;
 begin
   for iIndex := 0 to BillsMeasureTree.Count - 1 do
   begin
@@ -786,7 +786,7 @@ begin
     StageRec := TBillsIDTreeNode(stnNode).StageRec;
     if (stnNode.ParentID <> -1) then
       if Assigned(StageRec) then
-        stnNode.Expanded := StageRec.ValueByName('GatherTotalPrice').AsFloat <> 0
+        stnNode.Expanded := StageRec.GatherTotalPrice.AsFloat <> 0
       else
         stnNode.Expanded := False;
   end;