默认隐藏ID类

Frames/BillsCompileFme.dfm

@@ -714,6 +714,7 @@ object BillsCompileFrame: TBillsCompileFrame
         Font.Style = []
         FieldName = 'ID'
         Width = 50
+        Visible = False
         ReadOnly = True
       end
       item
@@ -733,6 +734,7 @@ object BillsCompileFrame: TBillsCompileFrame
         Font.Style = []
         FieldName = 'ParentID'
         Width = 50
+        Visible = False
         ReadOnly = True
       end
       item
@@ -752,6 +754,7 @@ object BillsCompileFrame: TBillsCompileFrame
         Font.Style = []
         FieldName = 'NextSiblingID'
         Width = 50
+        Visible = False
         ReadOnly = True
       end>
     Grid = zgBillsCompile