Group_DJD/D7DJfengqingyu
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

调整

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-02-05 17:15:52 +08:00
parent cc18d47f61
commit 066cf5b40e
2 changed files with 42 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1551,6 +1551,19 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label68: TLabel
Left = 352
Top = 388
Width = 84
Height = 20
Caption = #37325#37327#20301#25968
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object MJFK: TEdit object MJFK: TEdit
Left = 51 Left = 51
Top = 341 Top = 341
@ -2164,7 +2177,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object MJCWS: TEdit object MJCWS: TEdit
Left = 293 Left = 293
Top = 381 Top = 381
Width = 90 Width = 52
Height = 36 Height = 36
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -2185,6 +2198,21 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
TabOrder = 39 TabOrder = 39
OnClick = GHWCClick OnClick = GHWCClick
end end
object MJZWS: TEdit
Left = 437
Top = 381
Width = 52
Height = 36
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -28
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 40
OnClick = Edit1Click
OnKeyPress = MJstr3KeyPress
end
end end
object MovePanel1: TMovePanel object MovePanel1: TMovePanel
Left = 1158 Left = 1158

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

@ -332,6 +332,8 @@ type
ToolButton1: TToolButton; ToolButton1: TToolButton;
ToolButton5: TToolButton; ToolButton5: TToolButton;
QryCheckNet: TADOQuery; QryCheckNet: TADOQuery;
Label68: TLabel;
MJZWS: TEdit;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -652,7 +654,8 @@ begin
begin begin
if trim(Edit9.Text) = '¡Ì' then if trim(Edit9.Text) = '¡Ì' then
begin begin
MJMaoZ.Text := format('%.' + trim(fxsws1) + 'f', [i1 / 100000]); // MJMaoZ.Text := format('%.' + trim(fxsws1) + 'f', [i1 / 100000]);
MJMaoZ.Text := format('%.' + trim(MJZWS.text) + 'f', [i1 / 100000]);
end; end;
end; end;
end; end;
@ -1285,7 +1288,8 @@ begin
FieldByName('baoNO').Value := Trim(baono.text); FieldByName('baoNO').Value := Trim(baono.text);
FieldByName('baoID').Value := Trim(baoID.Text); FieldByName('baoID').Value := Trim(baoID.Text);
end; end;
FieldByName('MJCWS').Value := Trim(MJCWS.text);
FieldByName('MJZWS').Value := Trim(MJZWS.Text);
Post; Post;
end; end;
if PState = 1 then if PState = 1 then
@ -1784,6 +1788,10 @@ begin
begin begin
MJCWS.text := '1'; MJCWS.text := '1';
end; end;
if trim(MJZWS.text) = '' then
begin
MJZWS.text := '1';
end;
if trim(MJXH.text) = '0' then if trim(MJXH.text) = '0' then
begin begin
application.MessageBox('¾íºÅ²»ÄÜΪ0', 'Ìáʾ'); application.MessageBox('¾íºÅ²»ÄÜΪ0', 'Ìáʾ');
@ -2548,7 +2556,8 @@ begin
if TryStrToFloat(MJQty3.Text, FReal) = False then if TryStrToFloat(MJQty3.Text, FReal) = False then
Exit; Exit;
jz := StrToFloat(MJMaoZ.Text) - StrToFloat(MJQty3.Text); jz := StrToFloat(MJMaoZ.Text) - StrToFloat(MJQty3.Text);
MJQty4.Text := format('%.' + trim(fxsws1) + 'f', [jz]); // MJQty4.Text := format('%.' + trim(fxsws1) + 'f', [jz]);
MJQty4.Text := format('%.' + trim(MJZWS.text) + 'f', [jz]);
end end
else else
begin begin
@ -2675,6 +2684,7 @@ begin
end; end;
fxsws := Trim(ADOTmp.fieldbyname('xsws').AsString); fxsws := Trim(ADOTmp.fieldbyname('xsws').AsString);
MJCWS.Text := Trim(ADOTmp.fieldbyname('xsws').AsString); MJCWS.Text := Trim(ADOTmp.fieldbyname('xsws').AsString);
MJZWS.Text := Trim(ADOTmp.fieldbyname('xsws1').AsString);
fxsws1 := Trim(ADOTmp.fieldbyname('xsws1').AsString); fxsws1 := Trim(ADOTmp.fieldbyname('xsws1').AsString);
baoNO.Text := Trim(ADOTmp.fieldbyname('maxBaoNO').AsString); baoNO.Text := Trim(ADOTmp.fieldbyname('maxBaoNO').AsString);
if GetLSNo(ADOCmd, FBaoID, 'BI', 'WFB_MJJY', 3, 1) = False then if GetLSNo(ADOCmd, FBaoID, 'BI', 'WFB_MJJY', 3, 1) = False then