~

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

@@ -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
@@ -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;
 
@@ -3437,7 +3442,7 @@ begin
       Exit;
     end;
   end;
-    if (tsflag = True) then
+  if (tsflag = True) then
   begin
     with ADOQuery1 do
     begin