~

打卷检验管理/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=

打卷检验管理/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

打卷检验管理/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;