~

打卷检验管理/U_MJManageNewFDNew.dfm

@@ -985,7 +985,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     TabOrder = 2
     object Label9: TLabel
       Left = 152
-      Top = 78
+      Top = 114
       Width = 15
       Height = 22
       Caption = 'M'
@@ -999,7 +999,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object Label3: TLabel
       Left = 144
-      Top = 383
+      Top = 416
       Width = 26
       Height = 22
       Caption = 'cm'
@@ -1012,7 +1012,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object Label4: TLabel
       Left = 152
-      Top = 185
+      Top = 221
       Width = 28
       Height = 22
       Caption = 'KG'
@@ -1025,7 +1025,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object Label5: TLabel
       Left = 8
-      Top = 77
+      Top = 113
       Width = 42
       Height = 20
       Caption = #38271#24230
@@ -1038,7 +1038,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object Label6: TLabel
       Left = 8
-      Top = 383
+      Top = 416
       Width = 42
       Height = 20
       Caption = #24133#23485
@@ -1051,7 +1051,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object Label11: TLabel
       Left = 8
-      Top = 185
+      Top = 221
       Width = 42
       Height = 20
       Caption = #27611#37325
@@ -1064,7 +1064,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object Label10: TLabel
       Left = 8
-      Top = 296
+      Top = 329
       Width = 42
       Height = 20
       Caption = #27491#21697
@@ -1077,7 +1077,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object Label12: TLabel
       Left = 92
-      Top = 296
+      Top = 329
       Width = 40
       Height = 19
       Caption = #27425#21697
@@ -1130,7 +1130,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object Label22: TLabel
       Left = 144
-      Top = 424
+      Top = 451
       Width = 36
       Height = 22
       Caption = 'g/'#13217
@@ -1143,7 +1143,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object Label23: TLabel
       Left = 8
-      Top = 423
+      Top = 450
       Width = 42
       Height = 20
       Caption = #20811#37325
@@ -1169,7 +1169,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object Label26: TLabel
       Left = 8
-      Top = 339
+      Top = 372
       Width = 42
       Height = 20
       Caption = #20986#32440
@@ -1196,7 +1196,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object Label30: TLabel
       Left = 8
-      Top = 113
+      Top = 149
       Width = 42
       Height = 20
       Caption = #30382#37325
@@ -1209,7 +1209,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object Label31: TLabel
       Left = 152
-      Top = 149
+      Top = 185
       Width = 28
       Height = 22
       Caption = 'KG'
@@ -1222,7 +1222,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object Label32: TLabel
       Left = 8
-      Top = 149
+      Top = 185
       Width = 42
       Height = 20
       Caption = #20928#37325
@@ -1235,7 +1235,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object Label33: TLabel
       Left = 152
-      Top = 114
+      Top = 150
       Width = 28
       Height = 22
       Caption = 'KG'
@@ -1248,7 +1248,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object Label34: TLabel
       Left = 90
-      Top = 342
+      Top = 375
       Width = 40
       Height = 19
       Caption = #20221#25968
@@ -1287,7 +1287,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object Label39: TLabel
       Left = 8
-      Top = 221
+      Top = 257
       Width = 42
       Height = 20
       Caption = #31995#25968
@@ -1326,7 +1326,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object Label28: TLabel
       Left = 10
-      Top = 260
+      Top = 295
       Width = 42
       Height = 20
       Caption = #21253#21495
@@ -1337,24 +1337,38 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Style = [fsBold]
       ParentFont = False
     end
+    object Label53: TLabel
+      Left = 12
+      Top = 73
+      Width = 34
+      Height = 32
+      Caption = #26579#21378#13#10#32568#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
     object MJFK: TEdit
       Left = 51
-      Top = 377
+      Top = 410
       Width = 90
-      Height = 41
+      Height = 34
+      AutoSize = False
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -32
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
-      TabOrder = 16
+      TabOrder = 15
       OnClick = MJXHClick
       OnKeyPress = MJstr3KeyPress
     end
     object MJLen: TEdit
       Left = 57
-      Top = 73
+      Top = 109
       Width = 90
       Height = 36
       Font.Charset = GB2312_CHARSET
@@ -1371,7 +1385,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object MJMaoZ: TEdit
       Left = 57
-      Top = 181
+      Top = 217
       Width = 90
       Height = 36
       Font.Charset = GB2312_CHARSET
@@ -1387,9 +1401,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object BTPrint: TButton
       Left = 10
-      Top = 460
+      Top = 480
       Width = 171
-      Height = 93
+      Height = 73
       Caption = #25552#20132
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
@@ -1397,12 +1411,12 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
-      TabOrder = 19
+      TabOrder = 18
       OnClick = BTPrintClick
     end
     object Edit3: TEdit
       Left = 52
-      Top = 290
+      Top = 323
       Width = 39
       Height = 43
       Font.Charset = GB2312_CHARSET
@@ -1419,7 +1433,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object Edit4: TEdit
       Left = 130
-      Top = 290
+      Top = 323
       Width = 40
       Height = 43
       Font.Charset = GB2312_CHARSET
@@ -1452,16 +1466,17 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object MJSJKZ: TEdit
       Left = 51
-      Top = 418
+      Top = 445
       Width = 90
-      Height = 41
+      Height = 34
+      AutoSize = False
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -32
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
-      TabOrder = 18
+      TabOrder = 17
       OnClick = MJXHClick
       OnKeyPress = MJstr3KeyPress
     end
@@ -1476,7 +1491,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
-      TabOrder = 17
+      TabOrder = 16
       OnChange = MJQty2Change
       OnClick = Edit1Click
       OnKeyDown = MJQty4KeyDown
@@ -1484,7 +1499,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object Edit6: TEdit
       Left = 52
-      Top = 333
+      Top = 366
       Width = 40
       Height = 43
       Font.Charset = GB2312_CHARSET
@@ -1494,7 +1509,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Style = [fsBold]
       ParentFont = False
       ReadOnly = True
-      TabOrder = 14
+      TabOrder = 13
       Text = #8730
       OnClick = Edit6Click
       OnKeyPress = MJstr3KeyPress
@@ -1518,7 +1533,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object MJQty3: TEdit
       Left = 57
-      Top = 109
+      Top = 145
       Width = 90
       Height = 36
       Font.Charset = GB2312_CHARSET
@@ -1535,7 +1550,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object MJQty4: TEdit
       Left = 57
-      Top = 145
+      Top = 181
       Width = 90
       Height = 36
       Font.Charset = GB2312_CHARSET
@@ -1552,7 +1567,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object ComboBox1: TComboBox
       Left = 132
-      Top = 334
+      Top = 367
       Width = 45
       Height = 40
       Style = csDropDownList
@@ -1565,7 +1580,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       ItemHeight = 32
       ItemIndex = 0
       ParentFont = False
-      TabOrder = 15
+      TabOrder = 14
       Text = '1'
       Items.Strings = (
         '1'
@@ -1575,9 +1590,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object MJStr4: TEdit
       Left = 57
-      Top = 37
+      Top = 39
       Width = 90
-      Height = 36
+      Height = 34
+      AutoSize = False
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -28
@@ -1607,9 +1623,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object kmxs: TEdit
       Left = 57
-      Top = 217
+      Top = 253
       Width = 90
-      Height = 36
+      Height = 34
+      AutoSize = False
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -28
@@ -1621,27 +1638,12 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       OnKeyDown = MJQty4KeyDown
       OnKeyPress = MJstr3KeyPress
     end
-    object MJstr5: TEdit
-      Left = 285
-      Top = 322
-      Width = 90
-      Height = 41
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -32
-      Font.Name = #23435#20307
-      Font.Style = [fsBold]
-      ParentFont = False
-      TabOrder = 13
-      OnClick = MJXHClick
-      OnExit = MJStr4Exit
-      OnKeyPress = MJstr3KeyPress
-    end
     object baoNo: TEdit
       Left = 57
-      Top = 253
+      Top = 288
       Width = 90
-      Height = 36
+      Height = 34
+      AutoSize = False
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -28
@@ -1671,9 +1673,27 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
-      TabOrder = 20
+      TabOrder = 19
       OnClick = Button7Click
     end
+    object MJstr5: TEdit
+      Left = 57
+      Top = 74
+      Width = 90
+      Height = 34
+      AutoSize = False
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -28
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      ParentFont = False
+      TabOrder = 20
+      OnClick = MJXHClick
+      OnExit = MJStr4Exit
+      OnKeyPress = MJstr3KeyPress
+    end
   end
   object MovePanel1: TMovePanel
     Left = 634
@@ -2086,8 +2106,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
   end
   object Panel3: TPanel
-    Left = 634
-    Top = 328
+    Left = 635
+    Top = 320
     Width = 353
     Height = 334
     BevelInner = bvRaised

打卷检验管理/U_MJManageNewFDNew.pas

@@ -208,7 +208,6 @@ type
     v3Column5: TcxGridDBColumn;
     kmxs: TEdit;
     Label39: TLabel;
-    MJstr5: TEdit;
     Label40: TLabel;
     Label41: TLabel;
     Edit8: TEdit;
@@ -262,6 +261,8 @@ type
     RM3: TRMGridReport;
     Edit5: TEdit;
     Label43: TLabel;
+    Label53: TLabel;
+    MJstr5: TEdit;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
@@ -2501,6 +2502,7 @@ begin
     Edit3.Text := '¡Ì';
     Edit4.Text := '';
     MJStr4.Text := Trim(ADOTmp.fieldbyname('Prtgh').AsString);
+    MJStr5.Text := Trim(ADOTmp.fieldbyname('Prtrcgh').AsString);
   end
   else
   begin
@@ -2730,6 +2732,7 @@ begin
   Label15.Caption := Trim(CDS_MJID.fieldbyname('MJID').AsString);
   MJLen.Text := Trim(ADOTmp.fieldbyname('MJLen').AsString);
   MJstr4.Text := Trim(ADOTmp.fieldbyname('MJstr4').AsString);
+  MJstr5.Text := Trim(ADOTmp.fieldbyname('MJstr5').AsString);
   MJXH.Text := Trim(ADOTmp.fieldbyname('MJXH').AsString);
   baono.Text := Trim(ADOTmp.fieldbyname('baono').AsString);
   baoid.Text := Trim(ADOTmp.fieldbyname('baoid').AsString);

打卷检验管理/U_OrderInPut.dfm

@@ -1817,6 +1817,12 @@ object frmOrderInPut: TfrmOrderInPut
         HeaderAlignmentHorz = taCenter
         Width = 60
       end
+      object Tv1Column2: TcxGridDBColumn
+        Caption = #26579#21378#32568#21495
+        DataBinding.FieldName = 'Prtrcgh'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
     end
     object cxGrid1Level1: TcxGridLevel
       GridView = Tv1

打卷检验管理/U_OrderInPut.pas

@@ -192,6 +192,7 @@ type
     ToolButton4: TToolButton;
     QryCheckNet: TADOQuery;
     Tv1Column1: TcxGridDBColumn;
+    Tv1Column2: TcxGridDBColumn;
     procedure TBCloseClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure TBSaveClick(Sender: TObject);