Group_99/D7myTuoxuan
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-09-15 14:57:04 +08:00
parent cb67231fec
commit 11ca45eac1
2 changed files with 33 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.dfm
View File

@ -21,8 +21,8 @@ object frmMarkingInspection: TfrmMarkingInspection
object cxGrid3: TcxGrid object cxGrid3: TcxGrid
Left = 911 Left = 911
Top = 89 Top = 89
Width = 455 Width = 463
Height = 667 Height = 675
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
@ -119,7 +119,7 @@ object frmMarkingInspection: TfrmMarkingInspection
Left = 0 Left = 0
Top = 89 Top = 89
Width = 405 Width = 405
Height = 667 Height = 675
Align = alLeft Align = alLeft
TabOrder = 1 TabOrder = 1
object SpeedButton13: TSpeedButton object SpeedButton13: TSpeedButton
@ -478,7 +478,7 @@ object frmMarkingInspection: TfrmMarkingInspection
Left = 405 Left = 405
Top = 89 Top = 89
Width = 212 Width = 212
Height = 667 Height = 675
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -513,7 +513,7 @@ object frmMarkingInspection: TfrmMarkingInspection
object Label5: TLabel object Label5: TLabel
Left = 19 Left = 19
Top = 104 Top = 104
Width = 40 Width = 36
Height = 23 Height = 23
Caption = #38271#24230 Caption = #38271#24230
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -526,7 +526,7 @@ object frmMarkingInspection: TfrmMarkingInspection
object Label11: TLabel object Label11: TLabel
Left = 19 Left = 19
Top = 386 Top = 386
Width = 40 Width = 36
Height = 23 Height = 23
Caption = #27611#37325 Caption = #27611#37325
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -539,7 +539,7 @@ object frmMarkingInspection: TfrmMarkingInspection
object Label10: TLabel object Label10: TLabel
Left = 11 Left = 11
Top = 485 Top = 485
Width = 40 Width = 36
Height = 23 Height = 23
Caption = #27491#21697 Caption = #27491#21697
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -552,7 +552,7 @@ object frmMarkingInspection: TfrmMarkingInspection
object Label12: TLabel object Label12: TLabel
Left = 118 Left = 118
Top = 485 Top = 485
Width = 40 Width = 36
Height = 22 Height = 22
Caption = #27425#21697 Caption = #27425#21697
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -565,7 +565,7 @@ object frmMarkingInspection: TfrmMarkingInspection
object Label26: TLabel object Label26: TLabel
Left = 11 Left = 11
Top = 538 Top = 538
Width = 40 Width = 36
Height = 22 Height = 22
Caption = #20986#32440 Caption = #20986#32440
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -578,7 +578,7 @@ object frmMarkingInspection: TfrmMarkingInspection
object Label30: TLabel object Label30: TLabel
Left = 19 Left = 19
Top = 292 Top = 292
Width = 40 Width = 36
Height = 23 Height = 23
Caption = #30382#37325 Caption = #30382#37325
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -604,7 +604,7 @@ object frmMarkingInspection: TfrmMarkingInspection
object Label32: TLabel object Label32: TLabel
Left = 19 Left = 19
Top = 339 Top = 339
Width = 40 Width = 36
Height = 23 Height = 23
Caption = #20928#37325 Caption = #20928#37325
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -630,7 +630,7 @@ object frmMarkingInspection: TfrmMarkingInspection
object Label34: TLabel object Label34: TLabel
Left = 118 Left = 118
Top = 538 Top = 538
Width = 40 Width = 36
Height = 22 Height = 22
Caption = #20221#25968 Caption = #20221#25968
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -643,7 +643,7 @@ object frmMarkingInspection: TfrmMarkingInspection
object Label36: TLabel object Label36: TLabel
Left = 19 Left = 19
Top = 13 Top = 13
Width = 40 Width = 36
Height = 23 Height = 23
Caption = #21367#21495 Caption = #21367#21495
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -656,7 +656,7 @@ object frmMarkingInspection: TfrmMarkingInspection
object Label37: TLabel object Label37: TLabel
Left = 19 Left = 19
Top = 58 Top = 58
Width = 40 Width = 36
Height = 23 Height = 23
Caption = #32568#21495 Caption = #32568#21495
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -669,7 +669,7 @@ object frmMarkingInspection: TfrmMarkingInspection
object Label38: TLabel object Label38: TLabel
Left = 19 Left = 19
Top = 433 Top = 433
Width = 40 Width = 36
Height = 23 Height = 23
Caption = #31995#25968 Caption = #31995#25968
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -682,7 +682,7 @@ object frmMarkingInspection: TfrmMarkingInspection
object Label6: TLabel object Label6: TLabel
Left = 19 Left = 19
Top = 245 Top = 245
Width = 40 Width = 36
Height = 23 Height = 23
Caption = #25918#30721 Caption = #25918#30721
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -695,7 +695,7 @@ object frmMarkingInspection: TfrmMarkingInspection
object Label14: TLabel object Label14: TLabel
Left = 19 Left = 19
Top = 148 Top = 148
Width = 40 Width = 36
Height = 23 Height = 23
Caption = #38376#24133 Caption = #38376#24133
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -708,7 +708,7 @@ object frmMarkingInspection: TfrmMarkingInspection
object Label16: TLabel object Label16: TLabel
Left = 19 Left = 19
Top = 196 Top = 196
Width = 40 Width = 36
Height = 23 Height = 23
Caption = #20811#37325 Caption = #20811#37325
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1223,7 +1223,7 @@ object frmMarkingInspection: TfrmMarkingInspection
Left = 617 Left = 617
Top = 89 Top = 89
Width = 294 Width = 294
Height = 667 Height = 675
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1232,7 +1232,7 @@ object frmMarkingInspection: TfrmMarkingInspection
Left = 2 Left = 2
Top = 2 Top = 2
Width = 290 Width = 290
Height = 379 Height = 387
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
@ -1331,7 +1331,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object AOrdDefNote1: TRichEdit object AOrdDefNote1: TRichEdit
Left = 2 Left = 2
Top = 381 Top = 389
Width = 290 Width = 290
Height = 284 Height = 284
Align = alBottom Align = alBottom
@ -1348,14 +1348,14 @@ object frmMarkingInspection: TfrmMarkingInspection
object Panel5: TPanel object Panel5: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1366 Width = 1374
Height = 89 Height = 89
Align = alTop Align = alTop
TabOrder = 0 TabOrder = 0
object Panel6: TPanel object Panel6: TPanel
Left = 1 Left = 1
Top = 31 Top = 31
Width = 1364 Width = 1372
Height = 57 Height = 57
Align = alClient Align = alClient
BevelInner = bvRaised BevelInner = bvRaised
@ -1513,7 +1513,7 @@ object frmMarkingInspection: TfrmMarkingInspection
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1364 Width = 1372
Height = 30 Height = 30
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 119 ButtonWidth = 119

8
染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.pas
View File

@ -1117,6 +1117,7 @@ var
mvalue: Double; mvalue: Double;
i: Integer; i: Integer;
begin begin
BTPrint.Enabled := False;
Panel6.SetFocus; Panel6.SetFocus;
if CheckData('提交') = False then if CheckData('提交') = False then
exit; exit;
@ -1134,7 +1135,10 @@ begin
if not ADOTmp.IsEmpty then if not ADOTmp.IsEmpty then
begin begin
if Application.MessageBox('当前卷号已存在，是否继续保存？', '提示', 32 + 4) <> IDYES then if Application.MessageBox('当前卷号已存在，是否继续保存？', '提示', 32 + 4) <> IDYES then
begin
BTPrint.Enabled := True;
Exit; Exit;
end;
end; end;
end; end;
@ -1159,6 +1163,7 @@ begin
FFFMJID := ''; FFFMJID := '';
InitCDGridID(); InitCDGridID();
InitCDGrid(); InitCDGrid();
BTPrint.Enabled := True;
// if FYXJL = '米数' then // if FYXJL = '米数' then
// begin // begin
// MJLen.SetFocus; // MJLen.SetFocus;
@ -1192,6 +1197,7 @@ begin
if ADOQueryPrint.IsEmpty then if ADOQueryPrint.IsEmpty then
begin begin
application.MessageBox('标签内容未找到！', '提示信息', MB_ICONERROR); application.MessageBox('标签内容未找到！', '提示信息', MB_ICONERROR);
BTPrint.Enabled := True;
exit; exit;
end; end;
try try
@ -1207,6 +1213,7 @@ begin
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3); Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
except except
application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR); application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
BTPrint.Enabled := True;
exit; exit;
end; end;
ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('LBName').AsString) + '.rmf', ADOTmp); ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('LBName').AsString) + '.rmf', ADOTmp);
@ -1230,6 +1237,7 @@ begin
else else
begin begin
Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0); Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
BTPrint.Enabled := True;
end; end;
end; end;