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

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

@ -694,11 +694,11 @@ var
Th: Thandle; Th: Thandle;
begin begin
// closeCom(FComFile); // closeCom(FComFile);
Th := LoadLibrary(Pchar(trim(DllNameT))); Th := LoadLibrary(Pchar(trim(DllNameT)));
if Th > 0 then if Th > 0 then
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);
@ -1235,6 +1235,7 @@ 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);
FieldByName('MJBZD').Value := StrToFloatdef(trim(MJBZD.Text), 0);
FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ; FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ;
if Trim(MJFK.Text) <> '' then if Trim(MJFK.Text) <> '' then
begin begin
@ -1244,7 +1245,7 @@ begin
begin begin
FieldByName('MJMaoZ').Value := StrToFloat(MJMaoZ.Text) + fjz + StrToFloatdef(trim(MJBZD.Text), 0); FieldByName('MJMaoZ').Value := StrToFloat(MJMaoZ.Text) + fjz + StrToFloatdef(trim(MJBZD.Text), 0);
end; end;
if Trim(MJSJKZ.Text) <> '' then if Trim(MJSJKZ.Text) <> '' then
begin begin
FieldByName('MJSJKZ').Value := MJSJKZ.Text; FieldByName('MJSJKZ').Value := MJSJKZ.Text;
end; end;
@ -2921,6 +2922,7 @@ begin
MJQty1.Text := Trim(ADOTmp.fieldbyname('MJQty1').AsString); MJQty1.Text := Trim(ADOTmp.fieldbyname('MJQty1').AsString);
MJQty2.Text := Trim(ADOTmp.fieldbyname('MJQty2').AsString); MJQty2.Text := Trim(ADOTmp.fieldbyname('MJQty2').AsString);
MJQty3.Text := Trim(ADOTmp.fieldbyname('MJQty3').AsString); MJQty3.Text := Trim(ADOTmp.fieldbyname('MJQty3').AsString);
MJBZD.Text := Trim(ADOTmp.fieldbyname('MJBZD').AsString);
MJQty4.Text := Trim(ADOTmp.fieldbyname('MJQty4').AsString); MJQty4.Text := Trim(ADOTmp.fieldbyname('MJQty4').AsString);
MJMaoZ.Text := Trim(ADOTmp.fieldbyname('MJMaoZ').AsString); MJMaoZ.Text := Trim(ADOTmp.fieldbyname('MJMaoZ').AsString);
Label15.Caption := Trim(CDS_MJID.fieldbyname('MJID').AsString); Label15.Caption := Trim(CDS_MJID.fieldbyname('MJID').AsString);