~

复合检验管理/U_OrderInPut.dfm

@@ -96,8 +96,8 @@ object frmOrderInPut: TfrmOrderInPut
       Visible = False
     end
     object Label10: TLabel
-      Left = 563
-      Top = 67
+      Left = 707
+      Top = 59
       Width = 66
       Height = 12
       Caption = #21512' '#21516' '#21495#65306
@@ -164,8 +164,8 @@ object frmOrderInPut: TfrmOrderInPut
       Visible = False
     end
     object Label2: TLabel
-      Left = 561
-      Top = 46
+      Left = 705
+      Top = 38
       Width = 60
       Height = 12
       Caption = #24320'   '#21098#65306
@@ -331,8 +331,8 @@ object frmOrderInPut: TfrmOrderInPut
       Visible = False
     end
     object Label21: TLabel
-      Left = 383
-      Top = 44
+      Left = 647
+      Top = 12
       Width = 67
       Height = 12
       Caption = #33337'    '#26679#65306
@@ -345,8 +345,8 @@ object frmOrderInPut: TfrmOrderInPut
       Visible = False
     end
     object Label22: TLabel
-      Left = 387
-      Top = 68
+      Left = 651
+      Top = 36
       Width = 67
       Height = 12
       Caption = #23553'    '#26465#65306
@@ -568,8 +568,8 @@ object frmOrderInPut: TfrmOrderInPut
       OnDblClick = Label37DblClick
     end
     object Label38: TLabel
-      Left = 568
-      Top = 40
+      Left = 712
+      Top = 32
       Width = 67
       Height = 12
       Caption = #28907'    '#37329#65306
@@ -831,6 +831,19 @@ object frmOrderInPut: TfrmOrderInPut
       Font.Style = [fsBold]
       ParentFont = False
     end
+    object Label56: TLabel
+      Left = 384
+      Top = 50
+      Width = 65
+      Height = 12
+      Caption = #20844#21496#25260#22836#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
     object OrderNo: TEdit
       Tag = 2
       Left = 96
@@ -841,8 +854,8 @@ object frmOrderInPut: TfrmOrderInPut
     end
     object ConNo: TEdit
       Tag = 2
-      Left = 628
-      Top = 64
+      Left = 772
+      Top = 56
       Width = 100
       Height = 18
       TabOrder = 3
@@ -1045,8 +1058,8 @@ object frmOrderInPut: TfrmOrderInPut
     end
     object MPRTKaiJian: TBtnEditC
       Tag = 2
-      Left = 626
-      Top = 43
+      Left = 770
+      Top = 35
       Width = 100
       Height = 20
       Hint = 'MPRTKaiJian/'#24320#21098
@@ -1057,8 +1070,8 @@ object frmOrderInPut: TfrmOrderInPut
     end
     object MPRTChuanY: TBtnEditC
       Tag = 2
-      Left = 450
-      Top = 41
+      Left = 714
+      Top = 9
       Width = 100
       Height = 20
       Hint = 'MPRTChuanY/'#33337#26679
@@ -1070,8 +1083,8 @@ object frmOrderInPut: TfrmOrderInPut
     end
     object MPRTYaoFeng: TBtnEditC
       Tag = 2
-      Left = 451
-      Top = 64
+      Left = 715
+      Top = 32
       Width = 100
       Height = 20
       Hint = 'MPRTYaoFeng/'#23553#26465
@@ -1260,8 +1273,8 @@ object frmOrderInPut: TfrmOrderInPut
     end
     object MPRTTangJin: TBtnEditC
       Tag = 2
-      Left = 630
-      Top = 34
+      Left = 774
+      Top = 26
       Width = 100
       Height = 20
       Hint = 'MPRTTangJin/'#28907#37329
@@ -1345,13 +1358,12 @@ object frmOrderInPut: TfrmOrderInPut
     end
     object SYRName: TBtnEditC
       Tag = 2
-      Left = 594
-      Top = 406
+      Left = 450
+      Top = 44
       Width = 99
       Height = 20
       Hint = 'SYRName/'#20844#21496#21488#22836
       TabOrder = 29
-      Visible = False
       OnBtnUpClick = SYRNameBtnUpClick
       OnBtnDnClick = CustomerNoNameBtnDnClick
     end

复合检验管理/U_OrderInPut.pas

@@ -191,6 +191,7 @@ type
     RMBMPExport1: TRMBMPExport;
     Tv1Column1: TcxGridDBColumn;
     Tv1Column2: TcxGridDBColumn;
+    Label56: TLabel;
     procedure TBCloseClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure TBSaveClick(Sender: TObject);
@@ -1462,9 +1463,9 @@ begin
       V1Note.Caption := '英文名称';
       fnote := True;
     {  if Trim(DParameters1)<>'高权限' then
-      begin
+      begin                                                            
         TBAdd.Visible:=False;
-        TBEdit.Visible:=false;
+        TBEdit.Visible:=false;                               
         TBDel.Visible:=false;
         TBSave.Visible:=false;
       end;   }