详细工料--本期实耗数量，批复状态应不可编辑。

DataModules/LeafXmjGlDm.pas

@@ -46,6 +46,8 @@ type
 
     function AddLeafXmjGl(AXmjID, AGLID: Integer): TLeafXmjGlRecord;
     procedure DeleteLeafXmjGl(AXmjID, AGLID: Integer);
+
+    property ProjectData: TObject read FProjectData;
   end;
 
 implementation

Frames/LeafXmjGlFme.pas

@@ -23,10 +23,15 @@ type
   public
     constructor Create(ALeafXmjGlData: TLeafXmjGlData);
     destructor Destroy; override;
+
+    procedure ResetViewControl;
   end;
 
 implementation
 
+uses
+  ProjectData;
+
 {$R *.dfm}
 
 { TLeafXmjGlFrame }
@@ -44,4 +49,10 @@ begin
   inherited;
 end;
 
+procedure TLeafXmjGlFrame.ResetViewControl;
+begin
+  with TProjectData(FLeafXmjGlData.ProjectData) do
+    saLeafXmjGL.Columns.ColumnByName('UsedQuantity').ReadOnly := StageDataReadOnly;
+end;
+
 end.