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

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-07-23 14:38:41 +08:00
parent eb438efb02
commit 3c6344e2cb
2 changed files with 69 additions and 95 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

82
检验管理/U_MJManageNewFDNew.dfm
View File

@ -1,6 +1,6 @@
object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 311 Left = 343
Top = 138 Top = 281
Width = 1366 Width = 1366
Height = 738 Height = 738
Caption = #25104#21697#26816#39564 Caption = #25104#21697#26816#39564
@ -186,9 +186,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
end end
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 774 Left = 770
Top = 87 Top = 87
Width = 576 Width = 580
Height = 612 Height = 612
Align = alClient Align = alClient
Color = clWhite Color = clWhite
@ -1040,7 +1040,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object Panel2: TPanel object Panel2: TPanel
Left = 545 Left = 545
Top = 87 Top = 87
Width = 209 Width = 205
Height = 612 Height = 612
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
@ -1063,7 +1063,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label3: TLabel object Label3: TLabel
Left = 144 Left = 144
Top = 422 Top = 427
Width = 26 Width = 26
Height = 22 Height = 22
Caption = 'cm' Caption = 'cm'
@ -1102,7 +1102,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label6: TLabel object Label6: TLabel
Left = 8 Left = 8
Top = 422 Top = 427
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #24133#23485 Caption = #24133#23485
@ -1128,7 +1128,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label10: TLabel object Label10: TLabel
Left = 8 Left = 8
Top = 343 Top = 358
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #27491#21697 Caption = #27491#21697
@ -1141,7 +1141,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label12: TLabel object Label12: TLabel
Left = 92 Left = 92
Top = 343 Top = 358
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #27425#21697 Caption = #27425#21697
@ -1194,7 +1194,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label22: TLabel object Label22: TLabel
Left = 144 Left = 144
Top = 459 Top = 460
Width = 36 Width = 36
Height = 22 Height = 22
Caption = 'g/'#13217 Caption = 'g/'#13217
@ -1207,7 +1207,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label23: TLabel object Label23: TLabel
Left = 8 Left = 8
Top = 458 Top = 459
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #20811#37325 Caption = #20811#37325
@ -1219,22 +1219,21 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
ParentFont = False ParentFont = False
end end
object Label27: TLabel object Label27: TLabel
Left = 20 Left = 113
Top = 745 Top = 290
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #36192#36865 Caption = #21152#38271
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clBlue Font.Color = clBlue
Font.Height = -20 Font.Height = -20
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False
end end
object Label26: TLabel object Label26: TLabel
Left = 8 Left = 8
Top = 383 Top = 390
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #20986#32440 Caption = #20986#32440
@ -1313,7 +1312,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label34: TLabel object Label34: TLabel
Left = 90 Left = 90
Top = 386 Top = 393
Width = 40 Width = 40
Height = 19 Height = 19
Caption = #20221#25968 Caption = #20221#25968
@ -1378,7 +1377,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label45: TLabel object Label45: TLabel
Left = 8 Left = 8
Top = 262 Top = 260
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #21253#21495 Caption = #21253#21495
@ -1391,7 +1390,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label28: TLabel object Label28: TLabel
Left = 8 Left = 8
Top = 300 Top = 291
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #31354#20056 Caption = #31354#20056
@ -1404,7 +1403,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object MJFK: TEdit object MJFK: TEdit
Left = 51 Left = 51
Top = 416 Top = 421
Width = 90 Width = 90
Height = 32 Height = 32
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1467,7 +1466,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Edit3: TEdit object Edit3: TEdit
Left = 52 Left = 52
Top = 333 Top = 348
Width = 39 Width = 39
Height = 35 Height = 35
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1484,7 +1483,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Edit4: TEdit object Edit4: TEdit
Left = 134 Left = 134
Top = 333 Top = 348
Width = 40 Width = 40
Height = 35 Height = 35
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1517,7 +1516,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object MJSJKZ: TEdit object MJSJKZ: TEdit
Left = 51 Left = 51
Top = 453 Top = 454
Width = 90 Width = 90
Height = 32 Height = 32
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1531,10 +1530,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
object MJQty2: TEdit object MJQty2: TEdit
Left = 69 Left = 116
Top = 736 Top = 312
Width = 90 Width = 82
Height = 35 Height = 33
AutoSize = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -27 Font.Height = -27
@ -1542,7 +1542,6 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 17 TabOrder = 17
Visible = False
OnChange = MJQty2Change OnChange = MJQty2Change
OnClick = Edit1Click OnClick = Edit1Click
OnKeyDown = MJQty4KeyDown OnKeyDown = MJQty4KeyDown
@ -1550,7 +1549,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Edit6: TEdit object Edit6: TEdit
Left = 52 Left = 52
Top = 377 Top = 384
Width = 40 Width = 40
Height = 35 Height = 35
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1618,7 +1617,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 132 Left = 132
Top = 378 Top = 385
Width = 45 Width = 45
Height = 35 Height = 35
Style = csDropDownList Style = csDropDownList
@ -1708,7 +1707,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object baoNo: TEdit object baoNo: TEdit
Left = 57 Left = 57
Top = 254 Top = 252
Width = 90 Width = 90
Height = 35 Height = 35
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1745,10 +1744,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnClick = Button7Click OnClick = Button7Click
end end
object Edit5: TEdit object Edit5: TEdit
Left = 58 Left = 8
Top = 292 Top = 312
Width = 90 Width = 69
Height = 35 Height = 33
AutoSize = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -27 Font.Height = -27
@ -1762,8 +1762,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
object ComboBox3: TComboBox object ComboBox3: TComboBox
Left = 156 Left = 151
Top = 254 Top = 252
Width = 45 Width = 45
Height = 35 Height = 35
Style = csDropDownList Style = csDropDownList
@ -1787,7 +1787,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
'100') '100')
end end
object Edit13: TEdit object Edit13: TEdit
Left = 156 Left = 151
Top = 217 Top = 217
Width = 40 Width = 40
Height = 35 Height = 35
@ -1805,8 +1805,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
end end
object MovePanel1: TMovePanel object MovePanel1: TMovePanel
Left = 869 Left = 757
Top = 91 Top = 83
Width = 351 Width = 351
Height = 238 Height = 238
BevelInner = bvLowered BevelInner = bvLowered
@ -2055,7 +2055,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
end end
object Panel7: TPanel object Panel7: TPanel
Left = 754 Left = 750
Top = 87 Top = 87
Width = 20 Width = 20
Height = 612 Height = 612

72
检验管理/U_MJManageNewFDNew.pas
View File

@ -985,54 +985,28 @@ begin
end end
else else
begin begin
if trim(fOrderUnit) <> 'KG' then // if trim(fOrderUnit) <> 'KG' then
MFMJLen := StrToFloatdef(trim(MJLen.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc // MFMJLen := StrToFloatdef(trim(MJLen.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc
else // else
MFMJLen := StrToFloatdef(trim(MJLen.Text), 0) + fjc; // MFMJLen := StrToFloatdef(trim(MJLen.Text), 0) + fjc;
MFMJLen := StrToFloatdef(trim(MJLen.Text), 0) + StrToFloatdef(trim(MJQty2.Text), 0);
end; end;
if Edit5.Text <> '' then if Edit5.Text <> '' then
begin begin
// if fxsws = '1' then i := StrToFloatdef(trim(MJLen.Text), 0) * StrToFloatdef(trim(Edit5.Text), 0) + StrToFloatdef(trim(MJQty2.Text), 0); //+ fjc
// begin
// i := StrToFloatdef(trim(MJLen.Text), 0) * StrToFloatdef(trim(Edit5.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc;
// MFMJLen := FloatToStr(RoundTo(i, -1));
// end;
// if fxsws = '2' then
// begin
// i := StrToFloatdef(trim(MJLen.Text), 0) * StrToFloatdef(trim(Edit5.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc;
// MFMJLen := FloatToStr(RoundTo(i, -2));
// end;
// if fxsws = '3' then
// begin
// i := StrToFloatdef(trim(MJLen.Text), 0) * StrToFloatdef(trim(Edit5.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc;
// MFMJLen := FloatToStr(RoundTo(i, -3));
// end;
i := StrToFloatdef(trim(MJLen.Text), 0) * StrToFloatdef(trim(Edit5.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc;
MFMJLen := StrToFloat(format('%.' + trim(fxsws) + 'f', [i])); MFMJLen := StrToFloat(format('%.' + trim(fxsws) + 'f', [i]));
// FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen.Text), 0) * StrToFloatdef(trim(Edit5.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc
end end
else else
begin begin
if trim(fOrderUnit) <> 'KG' then // if trim(fOrderUnit) <> 'KG' then
MFMJLen := StrToFloatdef(trim(MJLen.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc // MFMJLen := StrToFloatdef(trim(MJLen.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc
else // else
MFMJLen := StrToFloatdef(trim(MJLen.Text), 0) + fjc; // MFMJLen := StrToFloatdef(trim(MJLen.Text), 0) + fjc;
MFMJLen := StrToFloatdef(trim(MJLen.Text), 0) + StrToFloatdef(trim(MJQty2.Text), 0);
// FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen.Text), 0) + fjc;
end; end;
// if Label9.Caption = 'M' then
// begin
// X := FieldByName('MJLen').Value / 0.9144;
// FieldByName('MJLen1').Value := format('%.' + trim(fxsws) + 'f', [X]);
// end
// else
// begin
// Y := FieldByName('MJLen').Value * 0.9144;
// FieldByName('MJLen1').Value := format('%.' + trim(fxsws) + 'f', [Y]);
// end;
if Label9.Caption = 'M' then if Label9.Caption = 'M' then
begin begin
FieldByName('MJLen').Value := MFMJLen; FieldByName('MJLen').Value := MFMJLen;
@ -1047,16 +1021,16 @@ begin
FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0); FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0);
FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0); FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0);
FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0); FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0);
if trim(fOrderUnit) = 'KG' then // if trim(fOrderUnit) = 'KG' then
begin // begin
FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjZ; // FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjZ;
FieldByName('MJMaoZ').Value := StrToFloatdef(trim(MJMaoZ.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjZ; // FieldByName('MJMaoZ').Value := StrToFloatdef(trim(MJMaoZ.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjZ;
end // end
else // else
begin // begin
FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ; FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ;
FieldByName('MJMaoZ').Value := StrToFloatdef(trim(MJMaoZ.Text), 0) + fjZ; FieldByName('MJMaoZ').Value := StrToFloatdef(trim(MJMaoZ.Text), 0) + fjZ;
end; // end;
if Trim(MJFK.Text) <> '' then if Trim(MJFK.Text) <> '' then
begin begin
@ -1749,7 +1723,7 @@ begin
begin begin
MJMaoZ.Text := ''; MJMaoZ.Text := '';
MJQty1.Text := ''; MJQty1.Text := '';
MJQty2.Text := ''; // MJQty2.Text := '';
Label15.Caption := ''; Label15.Caption := '';
MJQty4.Text := ''; MJQty4.Text := '';
@ -2544,7 +2518,7 @@ begin
FJZ := ADOTmp.fieldbyname('jiazhong').AsFloat; FJZ := ADOTmp.fieldbyname('jiazhong').AsFloat;
FJC := ADOTmp.fieldbyname('jiachang').AsFloat; FJC := ADOTmp.fieldbyname('jiachang').AsFloat;
FDC := StrToFloatDef(ADOTmp.fieldbyname('DC').asstring, 0); FDC := StrToFloatDef(ADOTmp.fieldbyname('DC').asstring, 0);
MJQty2.text := floattostr(ADOTmp.fieldbyname('jiachang').AsFloat);
fbaotype := Trim(ADOTmp.fieldbyname('baotype').AsString); fbaotype := Trim(ADOTmp.fieldbyname('baotype').AsString);
fbaosx := Trim(ADOTmp.fieldbyname('baosx').AsString); fbaosx := Trim(ADOTmp.fieldbyname('baosx').AsString);
fOrderUnit := uppercase(Trim(ADOTmp.fieldbyname('OrderUnit').AsString)); fOrderUnit := uppercase(Trim(ADOTmp.fieldbyname('OrderUnit').AsString));