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