批量插入功能，部位处可右键新增一行

Forms/BatchInsertBillsFrm.dfm

@@ -319,6 +319,10 @@ object BatchInsertBillsForm: TBatchInsertBillsForm
         Visible = True
       end
       item
+        Item = MainForm.dxbtnInsertRow
+        Visible = True
+      end
+      item
         Item = MainForm.dxbtnDeleteRow
         Visible = True
       end
@@ -426,6 +430,12 @@ object BatchInsertBillsForm: TBatchInsertBillsForm
       OnExecute = actnDeleteRowExecute
       OnUpdate = actnDeleteRowUpdate
     end
+    object actnInsertRow: TAction
+      Caption = #26032#22686
+      ImageIndex = 2
+      OnExecute = actnInsertRowExecute
+      OnUpdate = actnInsertRowUpdate
+    end
   end
   object dxpmBills: TdxBarPopupMenu
     BarManager = MainForm.dxBarManager

Forms/BatchInsertBillsFrm.pas

@@ -40,6 +40,7 @@ type
     actnInsertCol: TAction;
     dxpmBills: TdxBarPopupMenu;
     actnDeleteRow: TAction;
+    actnInsertRow: TAction;
     procedure zgPositionCustomPaste(Sender: TObject; ABounds: TRect;
       ASourSheet: TZjSheet);
     procedure zgBillsCustomPaste(Sender: TObject; ABounds: TRect;
@@ -61,6 +62,8 @@ type
     procedure FormResize(Sender: TObject);
     procedure actnDeleteRowExecute(Sender: TObject);
     procedure actnDeleteRowUpdate(Sender: TObject);
+    procedure actnInsertRowExecute(Sender: TObject);
+    procedure actnInsertRowUpdate(Sender: TObject);
   private
     FInsertType: TInsertType;
     FBillsCompileData: TBillsCompileData;
@@ -459,9 +462,10 @@ end;
 
 procedure TBatchInsertBillsForm.dxpmInsertBillsPopup(Sender: TObject);
 begin
-  dxpmInsertBills.ItemLinks[6].Visible := (dxpmInsertBills.Tag = 1);
+  dxpmInsertBills.ItemLinks[7].Visible := (dxpmInsertBills.Tag = 1);
   SetDxBtnAction(actnInsertCol, MainForm.dxbtnInsertCol);
   SetDxBtnAction(actnDeleteRow, MainForm.dxbtnDeleteRow);
+  SetDxBtnAction(actnInsertRow, MainForm.dxbtnInsertRow);
 end;
 
 procedure TBatchInsertBillsForm.actnInsertColExecute(Sender: TObject);
@@ -509,4 +513,14 @@ begin
   TAction(Sender).Visible := dxpmInsertBills.Tag = 0;
 end;
 
+procedure TBatchInsertBillsForm.actnInsertRowExecute(Sender: TObject);
+begin
+  zgPosition.InsertRow(zgPosition.CurRow);
+end;
+
+procedure TBatchInsertBillsForm.actnInsertRowUpdate(Sender: TObject);
+begin   
+  TAction(Sender).Visible := dxpmInsertBills.Tag = 0;
+end;
+
 end.

Forms/MainFrm.dfm

@@ -1223,6 +1223,13 @@ object MainForm: TMainForm
       Visible = ivAlways
       ImageIndex = 6
     end
+    object dxbtnInsertRow: TdxBarButton
+      Caption = #26032#22686
+      Category = 2
+      Hint = #26032#22686
+      Visible = ivAlways
+      ImageIndex = 2
+    end
   end
   object Images: TImageList
     DrawingStyle = dsTransparent

Forms/MainFrm.pas

@@ -183,6 +183,7 @@ type
     dxbtnExportBillsPosExcelData: TdxBarButton;
     actnExportBillsPosExcelData: TAction;
     dxbtnDeleteRow: TdxBarButton;
+    dxbtnInsertRow: TdxBarButton;
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure jtsProjectsChange(Sender: TObject; NewTab: Integer;