Group_01/D7DJjinchao
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-19 10:10:19 +08:00
parent c87a4e6b1e
commit fc7e64bb1f
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1426,6 +1426,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Top = 381
Width = 90
Height = 33
AutoSize = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
@ -1539,6 +1540,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Top = 415
Width = 90
Height = 33
AutoSize = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32

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

@ -1235,6 +1235,7 @@ begin
FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0);
FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0);
FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0);
FieldByName('MJBZD').Value := StrToFloatdef(trim(MJBZD.Text), 0);
FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ;
if Trim(MJFK.Text) <> '' then
begin
@ -2921,6 +2922,7 @@ begin
MJQty1.Text := Trim(ADOTmp.fieldbyname('MJQty1').AsString);
MJQty2.Text := Trim(ADOTmp.fieldbyname('MJQty2').AsString);
MJQty3.Text := Trim(ADOTmp.fieldbyname('MJQty3').AsString);
MJBZD.Text := Trim(ADOTmp.fieldbyname('MJBZD').AsString);
MJQty4.Text := Trim(ADOTmp.fieldbyname('MJQty4').AsString);
MJMaoZ.Text := Trim(ADOTmp.fieldbyname('MJMaoZ').AsString);
Label15.Caption := Trim(CDS_MJID.fieldbyname('MJID').AsString);