diff --git a/检验管理/U_MJManageNewFDNew.pas b/检验管理/U_MJManageNewFDNew.pas index bb49f2f..41d1f4d 100644 --- a/检验管理/U_MJManageNewFDNew.pas +++ b/检验管理/U_MJManageNewFDNew.pas @@ -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;