From 656c3d61b31a6870bae0f7a15ebd91197fc5beda Mon Sep 17 00:00:00 2001
From: "DESKTOP-E401PHE\\Administrator" <rightsoft@163.com>
Date: Sat, 30 Aug 2025 16:57:23 +0800
Subject: [PATCH] ~

---
 打卷检验管理/TradeManage.dof        |  2 +-
 打卷检验管理/U_MJManageNewFDNew.dfm |  2 +-
 打卷检验管理/U_MJManageNewFDNew.pas | 31 +++++++++++++++++------------
 3 files changed, 20 insertions(+), 15 deletions(-)

diff --git a/打卷检验管理/TradeManage.dof b/打卷检验管理/TradeManage.dof
index 77cb865..32cab34 100644
--- a/打卷检验管理/TradeManage.dof
+++ b/打卷检验管理/TradeManage.dof
@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\�������Ŀ����\��Ŀ����\��Դ\����������\testDll.exe
+HostApplication=D:\Dp7Repo\��Ŀ����\D7DJwenyuan\����������\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=
diff --git a/打卷检验管理/U_MJManageNewFDNew.dfm b/打卷检验管理/U_MJManageNewFDNew.dfm
index 2a67766..b5307ef 100644
--- a/打卷检验管理/U_MJManageNewFDNew.dfm
+++ b/打卷检验管理/U_MJManageNewFDNew.dfm
@@ -62,7 +62,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
         Options.Editing = False
         Styles.Content = cxStyle4
         Styles.Header = cxStyle4
-        Width = 40
+        Width = 53
       end
       object v3Column2: TcxGridDBColumn
         Caption = #25968#37327
diff --git a/打卷检验管理/U_MJManageNewFDNew.pas b/打卷检验管理/U_MJManageNewFDNew.pas
index 6977682..d74f3cc 100644
--- a/打卷检验管理/U_MJManageNewFDNew.pas
+++ b/打卷检验管理/U_MJManageNewFDNew.pas
@@ -1,6 +1,6 @@
 unit U_MJManageNewFDNew;
 
-interface                                                     
+interface
 
 uses
   Windows, Messages, SysUtils, Variants, math, Classes, Graphics, Controls,
@@ -547,7 +547,7 @@ begin
       else
         Label9.Caption := 'Y';
 //      edit1.Text := format('%.' + trim(fxsws) + 'f', [i1 / 100000]);
-      if S1 = true then
+      if (S1 = true) and (StrToFloatDef((MJLen.Text), 0) < 200) then
       begin
         if i1 = 0 then
         begin
@@ -734,7 +734,7 @@ begin
   InitJP();
   with ADOTmp do
   begin
-    Close;
+    Close;                      
     sql.Clear;
     sql.Add('select BanZu from SY_User where UserId=''' + Trim(DCode) + '''');
     Open;
@@ -748,13 +748,13 @@ begin
     if trim(DllName) <> '' then
       OpenCom(DllName);
     if trim(JCYDLL) <> '' then
-      OpenCom(JCYDLL);                             
+      OpenCom(JCYDLL);
     Edit7.Visible := true;
     Label35.Visible := true;
-    Edit9.Visible := true;                         
+    Edit9.Visible := true;
     Label44.Visible := true;
   end;
-  S1 := False;                           
+  S1 := False;
   tsflag := true;
 end;
 
@@ -1711,7 +1711,7 @@ 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);
@@ -1722,6 +1722,11 @@ begin
     application.MessageBox('���Ȳ���', '��ʾ');
     exit;
   end;
+  if (strtofloatdef(trim(MJLen.Text), 0) > 200) or (strtofloatdef(trim(MJLen1.Text), 0) > 200) then
+  begin
+    application.MessageBox('���ȳ���200�����ύ', '��ʾ');
+    exit;
+  end;
   if Trim(FAPID) = '' then
     Exit;
 
@@ -1784,7 +1789,7 @@ begin
   if (tsflag = True) then
   begin
     with ADOQuery1 do
-    begin                                               
+    begin
       Close;
       sql.Clear;
       sql.Add('select * from WFB_MJJY where mainid=''' + Fmainid + '''  and banno=''' + Trim(Banno.text) + ''' and banflag=''1'' ');
@@ -1802,7 +1807,7 @@ begin
         begin
           application.MessageBox('�Ѿ�����İ��ǩ�������ύ����Ҫ��ѡ���壡', '��ʾ��Ϣ', 0);
           Exit;
-        end;             
+        end;
 
         tsflag := False;
       end;
@@ -2491,7 +2496,7 @@ begin
   if Key = #13 then
   begin
     Button3.Click;
-  end;                                 
+  end;
 end;
 
 procedure TfrmMJManageNewFDNewSF.Edit1Click(Sender: TObject);
@@ -3437,10 +3442,10 @@ begin
       Exit;
     end;
   end;
-    if (tsflag = True) then
+  if (tsflag = True) then
   begin
     with ADOQuery1 do
-    begin                                               
+    begin
       Close;
       sql.Clear;
       sql.Add('select * from WFB_MJJY where mainid=''' + Fmainid + '''  and banno=''' + Trim(Banno.text) + ''' and banflag=''1'' ');
@@ -3458,7 +3463,7 @@ begin
         begin
           application.MessageBox('�Ѿ�����İ��ǩ�������ύ����Ҫ��ѡ���壡', '��ʾ��Ϣ', 0);
           Exit;
-        end;             
+        end;
 
         tsflag := False;
       end;