~

打卷检验管理/U_JYOrderCDOne.dfm

@@ -1103,6 +1103,12 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
         HeaderAlignmentHorz = taCenter
         Width = 60
       end
+      object Tv1Column5: TcxGridDBColumn
+        Caption = #25351#31034#21333#20811#37325
+        DataBinding.FieldName = 'PRTKZ'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
     end
     object cxGrid1Level1: TcxGridLevel
       GridView = Tv1

打卷检验管理/U_JYOrderCDOne.pas

@@ -225,6 +225,7 @@ type
     Tv1Column2: TcxGridDBColumn;
     Tv1Column3: TcxGridDBColumn;
     Tv1Column4: TcxGridDBColumn;
+    Tv1Column5: TcxGridDBColumn;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -1620,7 +1621,30 @@ begin
       Open;                                                             
     end;
   end;
+  if (trim(ComboBox1.Text) = '¼ìÑéÂëµ¥(ÂëÊý)') then                
+  begin
+    with ADOQueryTemp do
+    begin                                               
+      Close;
+      sql.Clear;
+      sql.add('exec P_Print_CKMDYDL_Y ');
+      sql.add('@DName=' + quotedstr(Trim(DCode)));
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp, CDS_HZ);
+    SInitCDSData20(ADOQueryTemp, CDS_HZ);
 
+    with ADOQueryPrint do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Do_PrintMd_HZ ');
+      sql.add('@mainID=' + quotedstr(Trim('')));
+      sql.add(',@DName=' + quotedstr(Trim(DCode)));
+      sql.add(',@flag=''2'' ');
+      Open;
+    end;
+  end;
   if (trim(ComboBox1.Text) = 'ά¿ÆÂëµ¥') then
   begin
     with ADOQueryTemp do

打卷检验管理/U_MJManageNewFDNew.dfm

@@ -71,6 +71,14 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
         item
           Kind = skCount
           Column = v3Column1
+        end
+        item
+          Kind = skSum
+          Column = Tv3Column7
+        end
+        item
+          Kind = skSum
+          Column = Tv3Column6
         end>
       DataController.Summary.SummaryGroups = <>
       OptionsCustomize.ColumnFiltering = False
@@ -131,7 +139,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
         Width = 40
       end
       object v3Column2: TcxGridDBColumn
-        Caption = #25968#37327
+        Caption = #31859#25968
         DataBinding.FieldName = 'MJLen'
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
@@ -139,6 +147,22 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
         Styles.Header = cxStyle3
         Width = 42
       end
+      object Tv3Column6: TcxGridDBColumn
+        Caption = #30721#25968
+        DataBinding.FieldName = 'YMJlen'
+        HeaderAlignmentHorz = taCenter
+        Styles.Content = cxStyle3
+        Styles.Header = cxStyle3
+        Width = 42
+      end
+      object Tv3Column7: TcxGridDBColumn
+        Caption = #30721#23610#38271#24230
+        DataBinding.FieldName = 'MCMJlen'
+        HeaderAlignmentHorz = taCenter
+        Styles.Content = cxStyle3
+        Styles.Header = cxStyle3
+        Width = 47
+      end
       object v3Column4: TcxGridDBColumn
         Caption = #27611#37325
         DataBinding.FieldName = 'MJMaoZ'

打卷检验管理/U_MJManageNewFDNew.pas

@@ -314,6 +314,8 @@ type
     SpeedButton96: TSpeedButton;
     SpeedButton97: TSpeedButton;
     Button8: TButton;
+    Tv3Column6: TcxGridDBColumn;
+    Tv3Column7: TcxGridDBColumn;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);