~

打卷检验管理/U_OrderInPut.pas

@@ -1,7 +1,7 @@
 unit U_OrderInPut;
 
 interface
-
+                                              
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,

打卷检验管理/U_ProductOrderNewList.dfm

@@ -20,8 +20,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1349
-    Height = 62
+    Width = 1366
     AutoSize = True
     ButtonHeight = 30
     ButtonWidth = 95
@@ -118,67 +117,66 @@ object frmProductOrderNewList: TfrmProductOrderNewList
       AutoSize = True
       Caption = #25764#38144#23436#25104
       ImageIndex = 86
-      Wrap = True
       OnClick = TNoWCClick
     end
     object TBExport: TToolButton
-      Left = 0
-      Top = 30
+      Left = 678
+      Top = 0
       AutoSize = True
       Caption = #23548#20986
       ImageIndex = 75
       OnClick = TBExportClick
     end
     object TFJ: TToolButton
-      Left = 63
-      Top = 30
+      Left = 741
+      Top = 0
       AutoSize = True
       Caption = #25351#31034#21333#38468#20214
       ImageIndex = 57
       OnClick = TFJClick
     end
     object TBPrint: TToolButton
-      Left = 162
-      Top = 30
+      Left = 840
+      Top = 0
       AutoSize = True
       Caption = #25171#21360
       ImageIndex = 12
       OnClick = TBPrintClick
     end
     object ToolButton8: TToolButton
-      Left = 225
-      Top = 30
+      Left = 903
+      Top = 0
       AutoSize = True
       Caption = #30452#25509#25171#21360
       ImageIndex = 23
       OnClick = ToolButton8Click
     end
     object ToolButton4: TToolButton
-      Left = 312
-      Top = 30
+      Left = 990
+      Top = 0
       AutoSize = True
       Caption = #24322#24120#25968#25454
       ImageIndex = 2
       OnClick = ToolButton4Click
     end
     object ToolButton5: TToolButton
-      Left = 399
-      Top = 30
+      Left = 1077
+      Top = 0
       Caption = #30133#28857#31649#29702
       ImageIndex = 132
       OnClick = ToolButton5Click
     end
     object ToolButton6: TToolButton
-      Left = 494
-      Top = 30
+      Left = 1172
+      Top = 0
       AutoSize = True
       Caption = #26085#24535
       ImageIndex = 72
       OnClick = ToolButton6Click
     end
     object ToolButton7: TToolButton
-      Left = 557
-      Top = 30
+      Left = 1235
+      Top = 0
       AutoSize = True
       Caption = #37325#36830
       ImageIndex = 73
@@ -186,8 +184,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
       OnClick = ToolButton7Click
     end
     object TBClose: TToolButton
-      Left = 620
-      Top = 30
+      Left = 1298
+      Top = 0
       AutoSize = True
       Caption = #20851#38381
       ImageIndex = 55
@@ -196,8 +194,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
   end
   object Panel1: TPanel
     Left = 0
-    Top = 62
-    Width = 1349
+    Top = 32
+    Width = 1366
     Height = 40
     Align = alTop
     BevelInner = bvRaised
@@ -513,8 +511,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
   end
   object cxGrid1: TcxGrid
     Left = 0
-    Top = 125
-    Width = 1349
+    Top = 95
+    Width = 1366
     Height = 333
     Align = alTop
     TabOrder = 3
@@ -793,6 +791,13 @@ object frmProductOrderNewList: TfrmProductOrderNewList
       object Tv1Column9: TcxGridDBColumn
         Caption = #32568#21495
         DataBinding.FieldName = 'GH'
+        HeaderAlignmentHorz = taCenter
+      end
+      object Tv1Column10: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'MPRTSCTeBieNote'
+        HeaderAlignmentHorz = taCenter
+        Width = 80
       end
     end
     object cxGrid1Level1: TcxGridLevel
@@ -903,8 +908,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
   end
   object cxSplitter1: TcxSplitter
     Left = 0
-    Top = 458
-    Width = 1349
+    Top = 451
+    Width = 1366
     Height = 8
     HotZoneClassName = 'TcxMediaPlayer9Style'
     AlignSplitter = salBottom
@@ -912,8 +917,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
   end
   object Panel2: TPanel
     Left = 0
-    Top = 466
-    Width = 1349
+    Top = 459
+    Width = 1366
     Height = 256
     Align = alBottom
     Caption = 'Panel2'
@@ -921,7 +926,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
     object cxGrid2: TcxGrid
       Left = 1
       Top = 1
-      Width = 970
+      Width = 987
       Height = 254
       Align = alClient
       TabOrder = 0
@@ -1248,7 +1253,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
       end
     end
     object GroupBox1: TGroupBox
-      Left = 971
+      Left = 988
       Top = 1
       Width = 377
       Height = 254
@@ -1277,8 +1282,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
   end
   object cxTabControl1: TcxTabControl
     Left = 0
-    Top = 102
-    Width = 1349
+    Top = 72
+    Width = 1366
     Height = 23
     Align = alTop
     TabOrder = 2
@@ -1291,7 +1296,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
       #20840#37096)
     OnChange = cxTabControl1Change
     ClientRectBottom = 23
-    ClientRectRight = 1349
+    ClientRectRight = 1366
     ClientRectTop = 19
   end
   object cxGridPopupMenu1: TcxGridPopupMenu

打卷检验管理/U_ProductOrderNewList.pas

@@ -181,6 +181,7 @@ type
     Label13: TLabel;
     GH: TEdit;
     Tv1Column9: TcxGridDBColumn;
+    Tv1Column10: TcxGridDBColumn;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);