Group_01/D7DJmingsheng
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

重量不能小于0

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-02-05 17:22:58 +08:00
parent 112de07f06
commit 72c0f0ea85
1 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
检验管理/U_MJManageNewFDNew.pas
View File

@ -2,7 +2,7 @@ unit U_MJManageNewFDNew;
interface interface
uses uses
Windows, Messages, SysUtils, Variants, math, Classes, Graphics, Controls, Windows, Messages, SysUtils, Variants, math, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, Forms, Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel, cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel,
@ -1885,6 +1885,11 @@ begin
application.MessageBox('长度或者重量不能都为零！', '提示信息', 0); application.MessageBox('长度或者重量不能都为零！', '提示信息', 0);
exit; exit;
end; end;
if (strtofloatdef(trim(mjqty4.Text), 0) <= 0) then
begin
if Application.MessageBox('净重小于0，确认提交嘛', '提示', 32 + 4) <> IDYES then
Exit;
end;
if trim(MJXH.text) = '' then if trim(MJXH.text) = '' then
begin begin
@ -3741,21 +3746,21 @@ procedure TfrmMJManageNewFDNewSF.Button14Click(Sender: TObject);
var var
FMJID1: string; FMJID1: string;
mzlen, jzlen: Double; mzlen, jzlen: Double;
fPrintFile: string; fPrintFile: string;
mvalue: Double; mvalue: Double;
mvalue1: integer; mvalue1: integer;
i: Integer; i: Integer;
begin begin
begin begin
// Y1 := false; // Y1 := false;
PState := 33; PState := 33;
// if Edit9.text <> '' then // if Edit9.text <> '' then
// begin // begin
if (strtofloatdef(trim(MJMaoZ.Text), 0) <= 0) or (strtofloatdef(trim(MJQty4.Text), 0) <= 0) then if (strtofloatdef(trim(MJMaoZ.Text), 0) <= 0) or (strtofloatdef(trim(MJQty4.Text), 0) <= 0) then
begin begin
application.MessageBox('重量不能为零！', '提示信息', 0); application.MessageBox('重量不能为零！', '提示信息', 0);
exit; exit;
end; end;
// end; // end;
with ADOQuery1 do with ADOQuery1 do
@ -3822,7 +3827,7 @@ begin
end; end;
if Trim(FAPID) = '' then if Trim(FAPID) = '' then
Exit; Exit;
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);
exit; exit;