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 object frmClothHCList: TfrmClothHCList
Left = 266 Left = 623
Top = 564 Top = 453
Width = 1179 Width = 1179
Height = 705 Height = 705
Caption = #26816#39564#25351#31034#21333#26597#35810 Caption = #26816#39564#25351#31034#21333#26597#35810

4
检验管理/U_MJManageNewFDNew.dfm
View File

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

54
检验管理/U_MJManageNewFDNew.pas
View File

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