Group_DJD/D7DJailisi
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-09-23 15:54:28 +08:00
parent adb939ac97
commit f8986d5f2f
3 changed files with 31 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
检验管理/U_ClothHCList.dfm
View File

@ -1,6 +1,6 @@
object frmClothHCList: TfrmClothHCList
Left = 266
Top = 564
Left = 623
Top = 453
Width = 1179
Height = 705
Caption = #26816#39564#25351#31034#21333#26597#35810

4
检验管理/U_MJManageNewFDNew.dfm
View File

@ -1,6 +1,6 @@
object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 237
Top = 384
Left = 301
Top = 406
Width = 1545
Height = 738
Caption = #25104#21697#26816#39564

54
检验管理/U_MJManageNewFDNew.pas
View File

@ -389,10 +389,10 @@ begin
MJLen.Text := format('%.0f', [i1 / 100000 - 0.5])
else
MJLen.Text := format('%.' + trim(fxsws) + 'f', [i1 / 100000]);
if i2 = 0 then
Label9.Caption := 'M'
else
Label9.Caption := 'Y';
// if i2 = 0 then
// Label9.Caption := 'M'
// else
// Label9.Caption := 'Y';
if trim(fxsws) = '-1' then
edit1.Text := format('%.0f', [i1 / 100000 - 0.5])
else
@ -2402,20 +2402,20 @@ end;
procedure TfrmMJManageNewFDNewSF.Label9Click(Sender: TObject);
begin
// if trim(Label9.Caption) = 'M' then
// begin
// Label9.Caption := 'Y';
// Label19.Caption := 'Y';
// Label20.Caption := 'Y';
// Label7.Caption := 'Y';
// end
// else
// begin
// Label9.Caption := 'M';
// Label19.Caption := 'M';
// Label20.Caption := 'M';
// Label7.Caption := 'M';
// end;
if trim(Label9.Caption) = 'M' then
begin
Label9.Caption := 'Y';
Label19.Caption := 'Y';
Label20.Caption := 'Y';
Label7.Caption := 'Y';
end
else
begin
Label9.Caption := 'M';
Label19.Caption := 'M';
Label20.Caption := 'M';
Label7.Caption := 'M';
end;
end;
procedure TfrmMJManageNewFDNewSF.Button2Click(Sender: TObject);
@ -2544,15 +2544,15 @@ begin
fOrderUnit := uppercase(Trim(ADOTmp.fieldbyname('OrderUnit').AsString));
// if fOrderUnit = 'Y' then
// begin
// Label9.Caption := 'Y';
// end
// else
// begin
// Label9.Caption := 'M'
// end;
Label9.Caption := fOrderUnit;
if fOrderUnit = 'Y' then
begin
Label9.Caption := 'Y';
end
else
begin
Label9.Caption := 'M'
end;
//Label9.Caption := fOrderUnit;
if FDC <> 0 then
begin