~

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