Group_99/D7DJjinchao
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-10-14 14:37:49 +08:00
parent 0baafeefab
commit 00f54c2e8c
3 changed files with 27 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
复合检验管理/TradeManage.dof
View File

@ -136,6 +136,3 @@ ProductVersion=1.0.0.0
Comments= Comments=
[Excluded Packages] [Excluded Packages]
c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package
[HistoryLists\hlUnitAliases]
Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

20
复合检验管理/U_MJManageNewFDNew.dfm
View File

@ -47,7 +47,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 0 Left = 0
Top = 87 Top = 87
Width = 425 Width = 425
Height = 628 Height = 636
Align = alLeft Align = alLeft
TabOrder = 0 TabOrder = 0
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
@ -191,8 +191,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 1151 Left = 1151
Top = 87 Top = 87
Width = 201 Width = 209
Height = 628 Height = 636
Align = alClient Align = alClient
Color = clWhite Color = clWhite
ParentColor = False ParentColor = False
@ -1043,7 +1043,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 425 Left = 425
Top = 87 Top = 87
Width = 512 Width = 512
Height = 628 Height = 636
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -2296,7 +2296,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 937 Left = 937
Top = 87 Top = 87
Width = 214 Width = 214
Height = 628 Height = 636
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -2305,7 +2305,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 2 Left = 2
Top = 2 Top = 2
Width = 210 Width = 210
Height = 303 Height = 311
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
@ -2413,7 +2413,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Panel8: TPanel object Panel8: TPanel
Left = 2 Left = 2
Top = 305 Top = 313
Width = 210 Width = 210
Height = 28 Height = 28
Align = alBottom Align = alBottom
@ -2428,7 +2428,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object AOrdDefNote1: TRichEdit object AOrdDefNote1: TRichEdit
Left = 2 Left = 2
Top = 333 Top = 341
Width = 210 Width = 210
Height = 293 Height = 293
Align = alBottom Align = alBottom
@ -2641,7 +2641,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1352 Width = 1360
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -2814,7 +2814,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object Panel6: TPanel object Panel6: TPanel
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1352 Width = 1360
Height = 57 Height = 57
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised

20
复合检验管理/U_MJManageNewFDNew.pas
View File

@ -670,7 +670,7 @@ begin
begin begin
try try
Tp := GetProcAddress(Th, 'CommOpen'); Tp := GetProcAddress(Th, 'CommOpen');
if Tp <> nil then if Tp <> nil then
begin begin
Tf := TMyFunc(Tp); Tf := TMyFunc(Tp);
newh := Tf(self.Handle, 'Comm1', 500, 1); newh := Tf(self.Handle, 'Comm1', 500, 1);
@ -1782,11 +1782,25 @@ begin
application.MessageBox('长度或者重量不能都为零！', '提示信息', 0); application.MessageBox('长度或者重量不能都为零！', '提示信息', 0);
exit; exit;
end; end;
if (strtofloatdef(trim(MJMaoZ.Text), 0) <10) or (strtofloatdef(trim(mjqty4.Text), 0) <10) then // if (strtofloatdef(trim(MJMaoZ.Text), 0) < 10) or (strtofloatdef(trim(mjqty4.Text), 0) < 10) then
// begin
// application.MessageBox('重量不能小于10！', '提示信息', 0);
// exit;
// end;
if (strtofloatdef(trim(MJMaoZ.Text), 0) < 10) then
begin begin
application.MessageBox('重量不能小于10！', '提示信息', 0); application.MessageBox('毛重不能小于10！', '提示信息', 0);
exit; exit;
end; end;
if (Trim(Edit9.Text) = '√') then
begin
if (strtofloatdef(trim(mjqty4.Text), 0) < 10) then
begin
application.MessageBox('净重不能小于10！', '提示信息', 0);
exit;
end;
end;
if Trim(FAPID) = '' then if Trim(FAPID) = '' then
Exit; Exit;