Group_99/D7DJwenyuan
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-09-29 09:27:53 +08:00
parent eedb221e4d
commit bb22952f38
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
打卷检验管理/U_MJManageNewFDNew.pas
View File

@ -1714,7 +1714,7 @@ var
mvalue1: integer; mvalue1: integer;
i: Integer; i: Integer;
begin begin
S1 := false; S1 := false;
if (strtofloatdef(trim(MJLen.Text), 0) = 0) and (strtofloatdef(trim(mjqty4.Text), 0) = 0) then if (strtofloatdef(trim(MJLen.Text), 0) = 0) and (strtofloatdef(trim(mjqty4.Text), 0) = 0) then
begin begin
application.MessageBox('长度或者重量不能都为零！', '提示信息', 0); application.MessageBox('长度或者重量不能都为零！', '提示信息', 0);
@ -1730,11 +1730,15 @@ begin
// application.MessageBox('长度超出200不能提交', '提示'); // application.MessageBox('长度超出200不能提交', '提示');
exit; exit;
end; end;
if (strtofloatdef(trim(MJMaoZ.Text), 0) > 100) then
begin
exit;
end;
if Trim(Edit14.Text) = '' then if Trim(Edit14.Text) = '' then
begin begin
end end
else else
begin begin
if (strtofloatdef(trim(MJMaoZ.Text), 0) < 5) or (strtofloatdef(trim(MJQty4.Text), 0) < 5) then if (strtofloatdef(trim(MJMaoZ.Text), 0) < 5) or (strtofloatdef(trim(MJQty4.Text), 0) < 5) then
begin begin