From 2793786a07414903113607d68c75e3510d9fcc8d Mon Sep 17 00:00:00 2001
From: "DESKTOP-E401PHE\\Administrator" <rightsoft@163.com>
Date: Fri, 1 Aug 2025 14:42:57 +0800
Subject: [PATCH] ~

---
 复合检验管理/U_JYOrderCDOne.pas | 41 ++++++++++++++++++---------------
 1 file changed, 23 insertions(+), 18 deletions(-)

diff --git a/复合检验管理/U_JYOrderCDOne.pas b/复合检验管理/U_JYOrderCDOne.pas
index 1fbe3b8..de637d6 100644
--- a/复合检验管理/U_JYOrderCDOne.pas
+++ b/复合检验管理/U_JYOrderCDOne.pas
@@ -6,7 +6,7 @@ uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
   cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
-  cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,                 
+  cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
   cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
   cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
   RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
@@ -436,42 +436,48 @@ end;
 
 procedure TfrmJYOrderCDOne.InitSum();
 var
-  sumP, sumLen, sumMZ, sumJZ: double;
+  sumP: integer;
+  sumLen, sumJZ, sumMZ: double;
+  mrecNo: integer;
 begin
   if Order_Main.IsEmpty then
     exit;
+
+  mrecNo := Order_Main.RecNo;
   try
+    tv1.BeginUpdate();
+    Order_Main.DisableControls;
+
     sumP := 0;
     sumLen := 0;
     sumMZ := 0;
     sumJZ := 0;
     with Order_Main do
     begin
-      DisableControls;
-      First;
+      Order_Main.first;
       while not eof do
       begin
-        if Fieldbyname('ssel').AsBoolean then
+        if Order_Main.FieldByName('ssel').AsBoolean then
         begin
+
           sumP := sumP + 1;
           sumLen := RoundFloat(sumLen + Order_Main.fieldbyname('mjlen').AsFloat, 2);
           sumMZ := sumMZ + Order_Main.fieldbyname('mjmaoz').AsFloat;
           sumJZ := sumJZ + Order_Main.fieldbyname('mjqty4').AsFloat;
         end;
-
         next;
       end;
-      EnableControls;
+      label22.Caption := 'ƥ��:' + floattostr(sumP);
+      label21.Caption := '����:' + floattostr(sumLen);
+      label20.Caption := '�:' + floattostr(sumMZ);
+      label23.Caption := '����:' + floattostr(sumJZ);
     end;
+  finally
+    Order_Main.RecNo := mrecNo;
+    Order_Main.EnableControls;
+    tv1.EndUpdate;
+  end;                                        
 
-    label22.Caption := 'ƥ��:' + floattostr(sumP);
-    label21.Caption := '����:' + floattostr(sumLen);
-    label20.Caption := '�:' + floattostr(sumMZ);
-    label23.Caption := '����:' + floattostr(sumJZ);
-    Order_Main.Locate('mjid', fid, []);
-  except
-    application.MessageBox('����ʧ�ܣ�', '��ʾ��Ϣ', 0);
-  end;
 end;
 
 procedure TfrmJYOrderCDOne.InitForm();
@@ -1636,12 +1642,11 @@ begin
       Open;
     end;
   end;
-  if (trim(ComboBox1.Text) = '����ķ����뵥') or (trim(ComboBox1.Text) = '����ķ����뵥(����)')
-   or (trim(ComboBox1.Text) = '����ķ����뵥(����)') or (trim(ComboBox1.Text) = '����ķ����뵥(ë��)') then
+  if (trim(ComboBox1.Text) = '����ķ����뵥') or (trim(ComboBox1.Text) = '����ķ����뵥(����)') or (trim(ComboBox1.Text) = '����ķ����뵥(����)') or (trim(ComboBox1.Text) = '����ķ����뵥(ë��)') then
   begin
     with ADOQueryTemp do
     begin
-      Close;                                
+      Close;
       sql.Clear;
       sql.add('exec P_Print_CKMDYDL_PY ');
       SQL.Add('@ZRow =25');