diff --git a/检验管理英文版/U_GetDllForm.pas b/检验管理英文版/U_GetDllForm.pas
index 0793cc7..84a9b89 100644
--- a/检验管理英文版/U_GetDllForm.pas
+++ b/检验管理英文版/U_GetDllForm.pas
@@ -61,7 +61,7 @@ begin
   IsDelphiLanguage := Language;
 
   Application := TApplication(App);
-  DCurHandle := 0;
+  DCurHandle := 0;                        
 
 
    //��ֵ�����ַ���
diff --git a/检验管理英文版/U_MJManageNewFDNew.dfm b/检验管理英文版/U_MJManageNewFDNew.dfm
index b7c6cfc..829116e 100644
--- a/检验管理英文版/U_MJManageNewFDNew.dfm
+++ b/检验管理英文版/U_MJManageNewFDNew.dfm
@@ -1,8 +1,8 @@
 object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
-  Left = 210
-  Top = 115
+  Left = 272
+  Top = 169
   Width = 1378
-  Height = 754
+  Height = 856
   Caption = 'Fabric inspection'
   Color = clBtnFace
   Font.Charset = GB2312_CHARSET
@@ -20,8 +20,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
   object cxGrid3: TcxGrid
     Left = 0
     Top = 87
-    Width = 214
-    Height = 628
+    Width = 409
+    Height = 730
     Align = alLeft
     TabOrder = 0
     object Tv3: TcxGridDBTableView
@@ -123,10 +123,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
   end
   object ScrollBox1: TScrollBox
-    Left = 905
+    Left = 946
     Top = 87
-    Width = 457
-    Height = 628
+    Width = 416
+    Height = 730
     Align = alClient
     Color = clWhite
     ParentColor = False
@@ -974,10 +974,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
   end
   object Panel2: TPanel
-    Left = 428
+    Left = 421
     Top = 87
-    Width = 477
-    Height = 628
+    Width = 525
+    Height = 730
     Align = alLeft
     BevelInner = bvRaised
     BevelOuter = bvLowered
@@ -990,8 +990,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     ParentFont = False
     TabOrder = 2
     object Label9: TLabel
-      Left = 152
-      Top = 78
+      Left = 407
+      Top = 520
       Width = 11
       Height = 19
       Caption = 'M'
@@ -1001,11 +1001,12 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
       OnClick = Label9Click
     end
     object Label3: TLabel
-      Left = 144
-      Top = 383
+      Left = 150
+      Top = 289
       Width = 22
       Height = 20
       Caption = 'cm'
@@ -1017,8 +1018,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       ParentFont = False
     end
     object Label4: TLabel
-      Left = 152
-      Top = 185
+      Left = 400
+      Top = 489
       Width = 22
       Height = 19
       Caption = 'KG'
@@ -1028,10 +1029,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
     end
     object Label5: TLabel
-      Left = 8
-      Top = 77
+      Left = 263
+      Top = 527
       Width = 33
       Height = 19
       Caption = 'Qty'
@@ -1041,10 +1043,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
     end
     object Label6: TLabel
-      Left = 8
-      Top = 383
+      Left = 2
+      Top = 295
       Width = 45
       Height = 16
       Caption = 'Width'
@@ -1057,7 +1060,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object Label11: TLabel
       Left = 8
-      Top = 185
+      Top = 249
       Width = 33
       Height = 19
       Caption = 'G.W'
@@ -1067,10 +1070,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
     end
     object Label10: TLabel
-      Left = 8
-      Top = 296
+      Left = 16
+      Top = 381
       Width = 72
       Height = 32
       Caption = 'Quality '#13#10'goods'
@@ -1080,10 +1084,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
     end
     object Label12: TLabel
-      Left = 92
-      Top = 296
+      Left = 100
+      Top = 381
       Width = 80
       Height = 28
       Caption = 'Defective '#13#10'goods'
@@ -1093,6 +1098,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
     end
     object Label13: TLabel
       Left = 382
@@ -1136,8 +1142,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Visible = False
     end
     object Label22: TLabel
-      Left = 144
-      Top = 424
+      Left = 151
+      Top = 332
       Width = 43
       Height = 20
       Caption = 'g/'#13217
@@ -1149,8 +1155,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       ParentFont = False
     end
     object Label23: TLabel
-      Left = 8
-      Top = 423
+      Left = 2
+      Top = 337
       Width = 54
       Height = 16
       Caption = 'Weight'
@@ -1176,8 +1182,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Visible = False
     end
     object Label26: TLabel
-      Left = 8
-      Top = 339
+      Left = 16
+      Top = 424
       Width = 72
       Height = 32
       Caption = 'Paper '#13#10'delivery'
@@ -1187,6 +1193,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
     end
     object Label29: TLabel
       Left = 228
@@ -1203,8 +1210,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Visible = False
     end
     object Label30: TLabel
-      Left = 8
-      Top = 113
+      Left = 232
+      Top = 577
       Width = 44
       Height = 19
       Caption = 'Tare'
@@ -1214,10 +1221,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
     end
     object Label31: TLabel
       Left = 152
-      Top = 149
+      Top = 248
       Width = 22
       Height = 19
       Caption = 'KG'
@@ -1229,8 +1237,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       ParentFont = False
     end
     object Label32: TLabel
-      Left = 8
-      Top = 149
+      Left = 248
+      Top = 264
       Width = 33
       Height = 19
       Caption = 'N.W'
@@ -1240,10 +1248,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
     end
     object Label33: TLabel
-      Left = 152
-      Top = 114
+      Left = 376
+      Top = 578
       Width = 22
       Height = 19
       Caption = 'KG'
@@ -1253,10 +1262,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
     end
     object Label34: TLabel
-      Left = 90
-      Top = 342
+      Left = 98
+      Top = 427
       Width = 48
       Height = 14
       Caption = 'Copies'
@@ -1266,10 +1276,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
     end
     object Label36: TLabel
       Left = 8
-      Top = 1
+      Top = 2
       Width = 45
       Height = 32
       Caption = 'Roll '#13#10'NO.'
@@ -1282,10 +1293,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object Label37: TLabel
       Left = 8
-      Top = 41
-      Width = 36
+      Top = 47
+      Width = 54
       Height = 32
-      Caption = 'Lot '#13#10'NO.'
+      Caption = 'Order '#13#10'NO.'
       Font.Charset = ANSI_CHARSET
       Font.Color = clBlue
       Font.Height = -16
@@ -1294,8 +1305,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       ParentFont = False
     end
     object Label39: TLabel
-      Left = 8
-      Top = 221
+      Left = 256
+      Top = 573
       Width = 99
       Height = 16
       Caption = 'Coefficient'
@@ -1305,6 +1316,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
     end
     object Label40: TLabel
       Left = 220
@@ -1335,8 +1347,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Visible = False
     end
     object Label28: TLabel
-      Left = 10
-      Top = 260
+      Left = 258
+      Top = 612
       Width = 36
       Height = 32
       Caption = 'Bale'#13#10'NO.'
@@ -1346,10 +1358,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
     end
     object Label53: TLabel
-      Left = 168
-      Top = 5
+      Left = 8
+      Top = 88
       Width = 88
       Height = 20
       Caption = 'Customer'
@@ -1361,8 +1374,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       ParentFont = False
     end
     object Label55: TLabel
-      Left = 208
-      Top = 141
+      Left = 528
+      Top = 109
       Width = 55
       Height = 20
       Caption = 'Color'
@@ -1372,10 +1385,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
     end
     object Label57: TLabel
-      Left = 152
-      Top = 41
+      Left = 541
+      Top = 9
       Width = 121
       Height = 40
       Caption = 'Chinese '#13#10'description'
@@ -1385,10 +1399,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
     end
     object Label58: TLabel
-      Left = 183
-      Top = 97
+      Left = 563
+      Top = 65
       Width = 88
       Height = 20
       Caption = 'Style NO'
@@ -1398,10 +1413,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
     end
     object Label59: TLabel
-      Left = 208
-      Top = 229
+      Left = 528
+      Top = 197
       Width = 55
       Height = 20
       Caption = 'Label'
@@ -1411,10 +1427,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
     end
     object Label60: TLabel
-      Left = 189
-      Top = 186
+      Left = 509
+      Top = 154
       Width = 88
       Height = 20
       Caption = 'Color NO'
@@ -1424,10 +1441,50 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
+    end
+    object Label54: TLabel
+      Left = 8
+      Top = 129
+      Width = 54
+      Height = 32
+      Caption = 'Batch '#13#10'NO.'
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clBlue
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label56: TLabel
+      Left = 8
+      Top = 168
+      Width = 45
+      Height = 32
+      Caption = 'Loom '#13#10'NO.'
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clBlue
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label62: TLabel
+      Left = 8
+      Top = 214
+      Width = 45
+      Height = 16
+      Caption = 'Shift'
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clBlue
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
     end
     object MJFK: TEdit
-      Left = 51
-      Top = 377
+      Left = 58
+      Top = 282
       Width = 90
       Height = 41
       Font.Charset = GB2312_CHARSET
@@ -1441,8 +1498,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       OnKeyPress = MJstr3KeyPress
     end
     object MJLen: TEdit
-      Left = 57
-      Top = 73
+      Left = 304
+      Top = 515
       Width = 90
       Height = 36
       Font.Charset = GB2312_CHARSET
@@ -1452,6 +1509,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Style = [fsBold]
       ParentFont = False
       TabOrder = 4
+      Visible = False
       OnChange = MJLenChange
       OnClick = Edit1Click
       OnKeyDown = MJQty4KeyDown
@@ -1459,9 +1517,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object MJMaoZ: TEdit
       Left = 57
-      Top = 181
-      Width = 90
-      Height = 36
+      Top = 243
+      Width = 91
+      Height = 34
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -28
@@ -1489,8 +1547,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       OnClick = BTPrintClick
     end
     object Edit3: TEdit
-      Left = 52
-      Top = 290
+      Left = 60
+      Top = 375
       Width = 39
       Height = 43
       Font.Charset = GB2312_CHARSET
@@ -1502,12 +1560,13 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       ReadOnly = True
       TabOrder = 11
       Text = #8730
+      Visible = False
       OnClick = Edit3Click
       OnKeyPress = MJstr3KeyPress
     end
     object Edit4: TEdit
-      Left = 130
-      Top = 290
+      Left = 138
+      Top = 375
       Width = 40
       Height = 43
       Font.Charset = GB2312_CHARSET
@@ -1518,6 +1577,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       ParentFont = False
       ReadOnly = True
       TabOrder = 12
+      Visible = False
       OnClick = Edit4Click
       OnKeyPress = MJstr3KeyPress
     end
@@ -1539,8 +1599,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       OnKeyPress = MJstr3KeyPress
     end
     object MJSJKZ: TEdit
-      Left = 51
-      Top = 418
+      Left = 58
+      Top = 326
       Width = 90
       Height = 41
       Font.Charset = GB2312_CHARSET
@@ -1572,8 +1632,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       OnKeyPress = MJstr3KeyPress
     end
     object Edit6: TEdit
-      Left = 52
-      Top = 333
+      Left = 60
+      Top = 418
       Width = 40
       Height = 43
       Font.Charset = GB2312_CHARSET
@@ -1584,7 +1644,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       ParentFont = False
       ReadOnly = True
       TabOrder = 14
-      Text = #8730
+      Visible = False
       OnClick = Edit6Click
       OnKeyPress = MJstr3KeyPress
     end
@@ -1606,8 +1666,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       OnKeyPress = MJstr3KeyPress
     end
     object MJQty3: TEdit
-      Left = 57
-      Top = 109
+      Left = 281
+      Top = 573
       Width = 90
       Height = 36
       Font.Charset = GB2312_CHARSET
@@ -1617,14 +1677,15 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Style = [fsBold]
       ParentFont = False
       TabOrder = 5
+      Visible = False
       OnChange = MJQty3Change
       OnClick = Edit1Click
       OnKeyDown = MJQty4KeyDown
       OnKeyPress = MJstr3KeyPress
     end
     object MJQty4: TEdit
-      Left = 57
-      Top = 145
+      Left = 290
+      Top = 244
       Width = 90
       Height = 36
       Font.Charset = GB2312_CHARSET
@@ -1634,14 +1695,15 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Style = [fsBold]
       ParentFont = False
       TabOrder = 7
+      Visible = False
       OnChange = MJQty4Change
       OnClick = Edit1Click
       OnKeyDown = MJQty4KeyDown
       OnKeyPress = MJQty4KeyPress
     end
     object ComboBox1: TComboBox
-      Left = 132
-      Top = 334
+      Left = 140
+      Top = 419
       Width = 45
       Height = 40
       Style = csDropDownList
@@ -1656,6 +1718,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       ParentFont = False
       TabOrder = 15
       Text = '1'
+      Visible = False
       Items.Strings = (
         '1'
         '2'
@@ -1663,8 +1726,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
         '4')
     end
     object MJStr4: TEdit
-      Left = 57
-      Top = 37
+      Left = 58
+      Top = 125
       Width = 90
       Height = 36
       Font.Charset = GB2312_CHARSET
@@ -1680,8 +1743,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       OnKeyPress = MJstr3KeyPress
     end
     object MJXH: TEdit
-      Left = 57
-      Top = 1
+      Left = 58
+      Top = 2
       Width = 90
       Height = 36
       Font.Charset = GB2312_CHARSET
@@ -1695,8 +1758,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       OnKeyPress = MJstr3KeyPress
     end
     object kmxs: TEdit
-      Left = 109
-      Top = 217
+      Left = 357
+      Top = 569
       Width = 90
       Height = 36
       Font.Charset = GB2312_CHARSET
@@ -1706,6 +1769,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Style = [fsBold]
       ParentFont = False
       TabOrder = 9
+      Visible = False
       OnClick = Edit1Click
       OnKeyDown = MJQty4KeyDown
       OnKeyPress = MJstr3KeyPress
@@ -1728,8 +1792,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       OnKeyPress = MJstr3KeyPress
     end
     object baoNo: TEdit
-      Left = 57
-      Top = 253
+      Left = 305
+      Top = 605
       Width = 90
       Height = 36
       Font.Charset = GB2312_CHARSET
@@ -1739,6 +1803,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Style = [fsBold]
       ParentFont = False
       TabOrder = 6
+      Visible = False
       OnClick = Edit1Click
       OnKeyPress = MJstr3KeyPress
     end
@@ -1765,9 +1830,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       TabOrder = 20
       OnClick = Button7Click
     end
-    object KH: TBtnEditA
-      Left = 279
-      Top = 0
+    object PM: TBtnEditA
+      Left = 599
+      Top = 12
       Width = 145
       Height = 37
       AutoSize = False
@@ -1778,10 +1843,12 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Style = []
       ParentFont = False
       TabOrder = 21
+      Visible = False
+      OnKeyPress = MJstr3KeyPress
     end
-    object PM: TBtnEditA
-      Left = 279
-      Top = 44
+    object YS: TBtnEditA
+      Left = 599
+      Top = 100
       Width = 145
       Height = 37
       AutoSize = False
@@ -1792,11 +1859,12 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Style = []
       ParentFont = False
       TabOrder = 22
+      Visible = False
       OnKeyPress = MJstr3KeyPress
     end
-    object YS: TBtnEditA
-      Left = 279
-      Top = 132
+    object HX: TBtnEditA
+      Left = 599
+      Top = 56
       Width = 145
       Height = 37
       AutoSize = False
@@ -1807,11 +1875,12 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Style = []
       ParentFont = False
       TabOrder = 23
+      Visible = False
       OnKeyPress = MJstr3KeyPress
     end
-    object HX: TBtnEditA
-      Left = 279
-      Top = 88
+    object SH: TBtnEditA
+      Left = 599
+      Top = 144
       Width = 145
       Height = 37
       AutoSize = False
@@ -1822,26 +1891,12 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Style = []
       ParentFont = False
       TabOrder = 24
-      OnKeyPress = MJstr3KeyPress
-    end
-    object SH: TBtnEditA
-      Left = 279
-      Top = 176
-      Width = 145
-      Height = 37
-      AutoSize = False
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -28
-      Font.Name = #23435#20307
-      Font.Style = []
-      ParentFont = False
-      TabOrder = 25
+      Visible = False
       OnKeyPress = MJstr3KeyPress
     end
     object SLbName: TFTComboBox
-      Left = 278
-      Top = 220
+      Left = 598
+      Top = 188
       Width = 185
       Height = 32
       Font.Charset = GB2312_CHARSET
@@ -1852,16 +1907,33 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       ItemHeight = 24
       ItemIndex = 0
       ParentFont = False
-      TabOrder = 26
+      TabOrder = 25
       Text = #36890#29992#26631#31614
+      Visible = False
       Items.Strings = (
         #36890#29992#26631#31614
         #36890#29992#26631#31614'('#37325#37327')'
         #36890#29992#26631#31614'('#38271#24230')')
     end
     object Button9: TButton
-      Left = 403
-      Top = 0
+      Left = 723
+      Top = -32
+      Width = 65
+      Height = 38
+      Caption = 'Ssel'
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = 20
+      Font.Name = #24494#36719#38597#40657
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 26
+      Visible = False
+      OnClick = Button9Click
+    end
+    object Button10: TButton
+      Left = 723
+      Top = 10
       Width = 65
       Height = 38
       Caption = 'Ssel'
@@ -1872,11 +1944,12 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Style = [fsBold]
       ParentFont = False
       TabOrder = 27
-      OnClick = Button9Click
+      Visible = False
+      OnClick = Button10Click
     end
-    object Button10: TButton
-      Left = 403
-      Top = 42
+    object Button11: TButton
+      Left = 723
+      Top = 96
       Width = 65
       Height = 38
       Caption = 'Ssel'
@@ -1887,11 +1960,12 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Style = [fsBold]
       ParentFont = False
       TabOrder = 28
-      OnClick = Button10Click
+      Visible = False
+      OnClick = Button11Click
     end
-    object Button11: TButton
-      Left = 403
-      Top = 128
+    object Button121: TButton
+      Left = 723
+      Top = 144
       Width = 65
       Height = 38
       Caption = 'Ssel'
@@ -1902,11 +1976,12 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Style = [fsBold]
       ParentFont = False
       TabOrder = 29
-      OnClick = Button11Click
+      Visible = False
+      OnClick = Button121Click
     end
-    object Button121: TButton
-      Left = 403
-      Top = 176
+    object Button13: TButton
+      Left = 723
+      Top = 56
       Width = 65
       Height = 38
       Caption = 'Ssel'
@@ -1917,26 +1992,88 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Style = [fsBold]
       ParentFont = False
       TabOrder = 30
-      OnClick = Button121Click
+      Visible = False
+      OnClick = Button13Click
     end
-    object Button13: TButton
-      Left = 403
-      Top = 88
-      Width = 65
-      Height = 38
-      Caption = 'Ssel'
+    object dingdanhao: TEdit
+      Left = 58
+      Top = 43
+      Width = 90
+      Height = 36
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
-      Font.Height = 20
-      Font.Name = #24494#36719#38597#40657
+      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 = 31
-      OnClick = Button13Click
+      OnClick = MJXHClick
+      OnExit = MJStr4Exit
+      OnKeyPress = MJstr3KeyPress
+    end
+    object KH: TEdit
+      Left = 97
+      Top = 83
+      Width = 90
+      Height = 36
+      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 = 32
+      OnClick = MJXHClick
+    end
+    object Loom: TEdit
+      Left = 58
+      Top = 166
+      Width = 90
+      Height = 36
+      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 = 33
+      OnClick = MJXHClick
+    end
+    object shift: TEdit
+      Left = 58
+      Top = 205
+      Width = 90
+      Height = 36
+      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 = 34
+      OnClick = MJXHClick
+    end
+    object Radio_type: TRadioGroup
+      Left = 193
+      Top = 8
+      Width = 312
+      Height = 207
+      Caption = 'type'
+      Items.Strings = (
+        'ROLL WISE FABRIC WEIGHT'
+        'RIB'
+        'COLLAR'
+        'TAPE'
+        'TRIMS')
+      TabOrder = 35
     end
   end
   object MovePanel1: TMovePanel
-    Left = 930
+    Left = 986
     Top = 91
     Width = 339
     Height = 236
@@ -2186,19 +2323,20 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
   end
   object Panel7: TPanel
-    Left = 214
+    Left = 409
     Top = 87
-    Width = 214
-    Height = 628
+    Width = 12
+    Height = 730
     Align = alLeft
     BevelInner = bvRaised
     BevelOuter = bvLowered
     TabOrder = 1
+    Visible = False
     object cxGrid2: TcxGrid
       Left = 2
       Top = 2
-      Width = 210
-      Height = 303
+      Width = 8
+      Height = 405
       Align = alClient
       TabOrder = 0
       object Tv2: TcxGridDBTableView
@@ -2306,8 +2444,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object Panel8: TPanel
       Left = 2
-      Top = 305
-      Width = 210
+      Top = 407
+      Width = 8
       Height = 28
       Align = alBottom
       Font.Charset = GB2312_CHARSET
@@ -2321,8 +2459,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object AOrdDefNote1: TRichEdit
       Left = 2
-      Top = 333
-      Width = 210
+      Top = 435
+      Width = 8
       Height = 293
       Align = alBottom
       Font.Charset = GB2312_CHARSET
@@ -2337,8 +2475,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
   end
   object Panel3: TPanel
-    Left = 626
-    Top = 344
+    Left = 618
+    Top = 320
     Width = 353
     Height = 334
     BevelInner = bvRaised
@@ -2850,7 +2988,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Visible = False
     end
     object Label48: TLabel
-      Left = 294
+      Left = 310
       Top = 30
       Width = 96
       Height = 18
@@ -2861,6 +2999,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Name = 'Microsoft JhengHei'
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
     end
     object Label51: TLabel
       Left = 1190
@@ -2890,8 +3029,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       ParentFont = False
     end
     object Label43: TLabel
-      Left = 428
-      Top = 30
+      Left = 1340
+      Top = 22
       Width = 146
       Height = 18
       Caption = 'Chinese column label'
@@ -2901,9 +3040,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Name = 'Microsoft JhengHei'
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
     end
     object Label61: TLabel
-      Left = 609
+      Left = 545
       Top = 31
       Width = 72
       Height = 16
@@ -3009,7 +3149,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       OnClick = Edit10Click
     end
     object Edit11: TEdit
-      Left = 265
+      Left = 281
       Top = 27
       Width = 28
       Height = 27
@@ -3022,6 +3162,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       ParentFont = False
       ReadOnly = True
       TabOrder = 5
+      Visible = False
       OnClick = Edit11Click
     end
     object Edit12: TEdit
@@ -3062,8 +3203,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
         'Input')
     end
     object Edit5: TEdit
-      Left = 399
-      Top = 26
+      Left = 1311
+      Top = 18
       Width = 28
       Height = 27
       Font.Charset = GB2312_CHARSET
@@ -3075,10 +3216,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       ParentFont = False
       ReadOnly = True
       TabOrder = 9
+      Visible = False
       OnClick = Edit5Click
     end
     object Edit13: TEdit
-      Left = 578
+      Left = 514
       Top = 25
       Width = 28
       Height = 27
@@ -3095,8 +3237,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
   end
   object cxStyleRepository1: TcxStyleRepository
-    Left = 732
-    Top = 144
+    Left = 980
+    Top = 120
     PixelsPerInch = 96
     object cxStyle1: TcxStyle
       AssignedValues = [svColor, svFont]
diff --git a/检验管理英文版/U_MJManageNewFDNew.pas b/检验管理英文版/U_MJManageNewFDNew.pas
index 9334a04..491f196 100644
--- a/检验管理英文版/U_MJManageNewFDNew.pas
+++ b/检验管理英文版/U_MJManageNewFDNew.pas
@@ -268,7 +268,6 @@ type
     Label58: TLabel;
     Label59: TLabel;
     Label60: TLabel;
-    KH: TBtnEditA;
     PM: TBtnEditA;
     YS: TBtnEditA;
     HX: TBtnEditA;
@@ -281,6 +280,14 @@ type
     Button13: TButton;
     Label61: TLabel;
     Edit13: TEdit;
+    Label54: TLabel;
+    dingdanhao: TEdit;
+    KH: TEdit;
+    Loom: TEdit;
+    Label56: TLabel;
+    shift: TEdit;
+    Label62: TLabel;
+    Radio_type: TRadioGroup;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
@@ -1091,7 +1098,7 @@ begin
       begin
         FieldByName('MJFK').Value := MJFK.Text;
       end;
-      if Trim(MJMaoZ.Text) <> '' then
+      if Trim(MJMaoZ.Text) <> '' then                  
       begin
         FieldByName('MJMaoZ').Value := StrToFloat(MJMaoZ.Text) + fjz;
       end;
@@ -1100,14 +1107,16 @@ begin
         FieldByName('MJSJKZ').Value := MJSJKZ.Text;
       end;
       FieldByName('MJType').Value := '';
-      if Trim(Edit3.Text) <> '' then
-      begin
-        FieldByName('MJType').Value := '��Ʒ';
-      end;
-      if Trim(Edit4.Text) <> '' then
-      begin
-        FieldByName('MJType').Value := '��Ʒ';
-      end;
+//      if Trim(Edit3.Text) <> '' then
+//      begin
+//        FieldByName('MJType').Value := '��Ʒ';
+//      end;
+//      if Trim(Edit4.Text) <> '' then
+//      begin
+//        FieldByName('MJType').Value := '��Ʒ';
+//      end;
+
+      FieldByName('MJType').Value := Trim(Radio_type.Items.Strings[Radio_type.ItemIndex]);
       FieldByName('MJStr1').Value := Trim(Label13.Caption);
 
       if Trim(FMJID) = '' then
@@ -1774,9 +1783,9 @@ begin
 
   Label16.Caption := '';
   BTAdd.Click;
-  MJLen.SetFocus;
+  MJMaoZ.SetFocus;
 //  MJQty4.OnClick(MJQty4);
-  MJLen.OnClick(Mjlen);
+  MJMaoZ.OnClick(MJMaoZ);
 
 end;
 
@@ -2473,7 +2482,7 @@ begin
     begin
       fRollType := trim(ADOTmp.fieldbyname('Orddefstr15').AsString);
     end;
-                                         
+
     Label24.Visible := True;
     Label24.Caption := 'Order NO.:' + Trim(ADOTmp.fieldbyname('OrderNoM').AsString);
     Label38.Visible := True;
@@ -2489,7 +2498,7 @@ begin
     end;
     PM.Text := Trim(ADOTmp.fieldbyname('PRTCodeName').AsString);
     KH.Text := Trim(ADOTmp.fieldbyname('CustomerNoName').AsString);
-    YS.Text := Trim(ADOTmp.fieldbyname('PRTColor').AsString);                  
+    YS.Text := Trim(ADOTmp.fieldbyname('PRTColor').AsString);
     HX.Text := Trim(ADOTmp.fieldbyname('PRTHX').AsString);
     SH.Text := Trim(ADOTmp.fieldbyname('SOrddefstr1').AsString);
     FAPID := Trim(ADOTmp.fieldbyname('SubId').AsString);