取消 20米以下不让出标签的限制

2025-12-05 11:39:25 +08:00 · 2025-12-05 11:39:25 +08:00 · efea4acbf2
commit efea4acbf2
parent eab3c696ec
3 changed files with 127 additions and 25 deletions
--- a/打卷检验管理/TradeManage.skincfg
+++ b/打卷检验管理/TradeManage.skincfg
@ -0,0 +1,50 @@
+[ExpressSkins]
+Default=1
+ShowNotifications=1
+Enabled=1
+dxSkinBlack=0
+dxSkinBlue=0
+dxSkinBlueprint=0
+dxSkinCaramel=0
+dxSkinCoffee=0
+dxSkinDarkRoom=0
+dxSkinDarkSide=0
+dxSkinDevExpressDarkStyle=0
+dxSkinDevExpressStyle=0
+dxSkinFoggy=0
+dxSkinGlassOceans=0
+dxSkinHighContrast=0
+dxSkiniMaginary=0
+dxSkinLilian=0
+dxSkinLiquidSky=0
+dxSkinLondonLiquidSky=0
+dxSkinMcSkin=0
+dxSkinMetropolis=0
+dxSkinMetropolisDark=0
+dxSkinMoneyTwins=0
+dxSkinOffice2007Black=0
+dxSkinOffice2007Blue=0
+dxSkinOffice2007Green=0
+dxSkinOffice2007Pink=0
+dxSkinOffice2007Silver=0
+dxSkinOffice2010Black=0
+dxSkinOffice2010Blue=0
+dxSkinOffice2010Silver=0
+dxSkinOffice2013DarkGray=0
+dxSkinOffice2013LightGray=0
+dxSkinOffice2013White=0
+dxSkinPumpkin=0
+dxSkinSeven=0
+dxSkinSevenClassic=0
+dxSkinSharp=0
+dxSkinSharpPlus=0
+dxSkinSilver=0
+dxSkinSpringTime=0
+dxSkinStardust=0
+dxSkinSummer2008=0
+dxSkinTheAsphaltWorld=0
+dxSkinsDefaultPainters=1
+dxSkinValentine=0
+dxSkinVS2010=0
+dxSkinWhiteprint=0
+dxSkinXmas2008Blue=0
--- a/打卷检验管理/U_MJManageNewFDNew.dfm
+++ b/打卷检验管理/U_MJManageNewFDNew.dfm
@ -1,6 +1,6 @@
 object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
-  Left = 274
-  Top = 227
+  Left = 174
+  Top = 24
  Width = 1366
  Height = 824
  Caption = #25104#21697#26816#39564
@ -1195,8 +1195,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
      Visible = False
    end
    object Label30: TLabel
-      Left = 20
-      Top = 151
+      Left = 204
+      Top = 191
      Width = 42
      Height = 20
      Caption = #30382#37325
@ -2774,7 +2774,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
      Visible = False
    end
    object Label44: TLabel
-      Left = 134
+      Left = 118
      Top = 30
      Width = 60
      Height = 19
@ -2816,7 +2816,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
      Visible = False
    end
    object Label48: TLabel
-      Left = 331
+      Left = 355
      Top = 30
      Width = 60
      Height = 19
@ -2856,7 +2856,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
      ParentFont = False
    end
    object Label43: TLabel
-      Left = 432
+      Left = 448
      Top = 30
      Width = 80
      Height = 19
@ -2895,7 +2895,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
      ParentFont = False
    end
    object Label66: TLabel
-      Left = 544
+      Left = 552
      Top = 32
      Width = 40
      Height = 19
@ -2908,7 +2908,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
      ParentFont = False
    end
    object Label67: TLabel
-      Left = 238
+      Left = 214
      Top = 26
      Width = 30
      Height = 28
@ -2920,6 +2920,19 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
      Font.Style = [fsBold]
      ParentFont = False
    end
+    object Label68: TLabel
+      Left = 286
+      Top = 29
+      Width = 30
+      Height = 28
+      Caption = #38271#24230#13#10#38480#21046
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -14
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
    object BTAdd: TButton
      Left = 1070
      Top = 8
@ -2980,7 +2993,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
      OnClick = Edit7Click
    end
    object Edit9: TEdit
-      Left = 102
+      Left = 86
      Top = 27
      Width = 28
      Height = 27
@ -3014,7 +3027,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
      OnClick = Edit10Click
    end
    object Edit11: TEdit
-      Left = 302
+      Left = 326
      Top = 27
      Width = 28
      Height = 27
@ -3067,7 +3080,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
        #25163#36755)
    end
    object Edit5: TEdit
-      Left = 403
+      Left = 419
      Top = 26
      Width = 28
      Height = 27
@ -3083,7 +3096,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
      OnClick = Edit5Click
    end
    object Edit13: TEdit
-      Left = 516
+      Left = 524
      Top = 26
      Width = 28
      Height = 27
@ -3099,7 +3112,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
      OnClick = Edit13Click
    end
    object Edit14: TEdit
-      Left = 206
+      Left = 182
      Top = 27
      Width = 28
      Height = 27
@ -3114,10 +3127,26 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
      Text = #8730
      OnClick = Edit14Click
    end
+    object Edit15: TEdit
+      Left = 254
+      Top = 30
+      Width = 28
+      Height = 27
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -19
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      ReadOnly = True
+      TabOrder = 12
+      Text = #8730
+      OnClick = Edit15Click
+    end
  end
  object Panel1: TPanel
-    Left = 200
-    Top = 196
+    Left = 344
+    Top = 188
    Width = 641
    Height = 209
    Color = clSkyBlue
@ -3170,8 +3199,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
    end
  end
  object Panel4: TPanel
-    Left = 216
-    Top = 252
+    Left = 608
+    Top = 284
    Width = 641
    Height = 209
    Color = clSkyBlue
--- a/打卷检验管理/U_MJManageNewFDNew.pas
+++ b/打卷检验管理/U_MJManageNewFDNew.pas
@ -292,6 +292,8 @@ type
    Edit13: TEdit;
    Label67: TLabel;
    Edit14: TEdit;
+    Edit15: TEdit;
+    Label68: TLabel;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TBCloseClick(Sender: TObject);
@ -359,6 +361,7 @@ type
    procedure Button5Click(Sender: TObject);
    procedure Edit13Click(Sender: TObject);
    procedure Edit14Click(Sender: TObject);
+    procedure Edit15Click(Sender: TObject);
  private
    { Private declarations }
    FInt, PState, PrintInt, SCInitGrid, FState, FCK, FPSXZ: Integer;
@ -1714,22 +1717,30 @@ var
  mvalue1: integer;
  i: Integer;
 begin
-  S1 := false;                                      
+  S1 := false;
  if (strtofloatdef(trim(MJLen.Text), 0) = 0) and (strtofloatdef(trim(mjqty4.Text), 0) = 0) then
  begin
    application.MessageBox('长度或者重量不能都为零！', '提示信息', 0);
    exit;
  end;
-  if (strtofloatdef(trim(MJLen.Text), 0) < 20) or (strtofloatdef(trim(MJLen1.Text), 0) < 20) then
+  if Trim(Edit15.Text) = '' then
  begin
+
+  end
+  else
+  begin
+    if (strtofloatdef(trim(MJLen.Text), 0) < 20) or (strtofloatdef(trim(MJLen1.Text), 0) < 20) then
+    begin
 //    application.MessageBox('长度不足20', '提示');
-    exit;
-  end;
-  if (strtofloatdef(trim(MJLen.Text), 0) > 200) or (strtofloatdef(trim(MJLen1.Text), 0) > 200) then
-  begin
+      exit;
+    end;
+    if (strtofloatdef(trim(MJLen.Text), 0) > 200) or (strtofloatdef(trim(MJLen1.Text), 0) > 200) then
+    begin
 //    application.MessageBox('长度超出200不能提交', '提示');
-    exit;
+      exit;
+    end;
  end;
+
  if (strtofloatdef(trim(MJMaoZ.Text), 0) > 100) then
  begin
    exit;
@ -3906,5 +3917,17 @@ begin
  end;
 end;

+procedure TfrmMJManageNewFDNewSF.Edit15Click(Sender: TObject);
+begin
+  if Trim(Edit15.Text) = '' then
+  begin
+    Edit15.Text := '¡Ì';
+  end
+  else
+  begin
+    Edit15.Text := '';
+  end;
+end;
+
 end.