Group_01/D7DJrongchuang
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-12-03 09:29:09 +08:00
parent 5476d983e5
commit bd54e6dede
2 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
打卷检验管理/U_ProductOrderNewList.dfm
View File

@ -118,19 +118,19 @@ object frmProductOrderNewList: TfrmProductOrderNewList
AutoSize = True AutoSize = True
Caption = #25764#38144#23436#25104 Caption = #25764#38144#23436#25104
ImageIndex = 86 ImageIndex = 86
Wrap = True
OnClick = TNoWCClick OnClick = TNoWCClick
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 0 Left = 678
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 75 ImageIndex = 75
Wrap = True
OnClick = TBExportClick OnClick = TBExportClick
end end
object TFJ: TToolButton object TFJ: TToolButton
Left = 63 Left = 0
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25351#31034#21333#38468#20214 Caption = #25351#31034#21333#38468#20214
@ -138,7 +138,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
OnClick = TFJClick OnClick = TFJClick
end end
object TBPrint: TToolButton object TBPrint: TToolButton
Left = 162 Left = 99
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
@ -146,7 +146,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
OnClick = TBPrintClick OnClick = TBPrintClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 225 Left = 162
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #24322#24120#25968#25454 Caption = #24322#24120#25968#25454
@ -154,14 +154,14 @@ object frmProductOrderNewList: TfrmProductOrderNewList
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 312 Left = 249
Top = 30 Top = 30
Caption = #30133#28857#31649#29702 Caption = #30133#28857#31649#29702
ImageIndex = 132 ImageIndex = 132
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object ToolButton6: TToolButton object ToolButton6: TToolButton
Left = 419 Left = 356
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #26085#24535 Caption = #26085#24535
@ -169,7 +169,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
OnClick = ToolButton6Click OnClick = ToolButton6Click
end end
object ToolButton7: TToolButton object ToolButton7: TToolButton
Left = 482 Left = 419
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #37325#36830 Caption = #37325#36830
@ -178,7 +178,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
OnClick = ToolButton7Click OnClick = ToolButton7Click
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 545 Left = 482
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #20837#24211#30721#21333 Caption = #20837#24211#30721#21333
@ -186,7 +186,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
OnClick = ToolButton8Click OnClick = ToolButton8Click
end end
object ToolButton9: TToolButton object ToolButton9: TToolButton
Left = 632 Left = 569
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360#28151#33394#30721#21333 Caption = #25171#21360#28151#33394#30721#21333
@ -194,7 +194,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
OnClick = ToolButton9Click OnClick = ToolButton9Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 743 Left = 680
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381

4
打卷检验管理/U_ProductOrderNewList.pas
View File

@ -1271,7 +1271,7 @@ var
begin begin
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
Exit; Exit;
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\살<EFBFBD>쯤데.rmf'; fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\쇱駱살<EFBFBD>쯤데.rmf';
begin begin
with ADOQueryTemp do with ADOQueryTemp do
@ -1303,7 +1303,7 @@ begin
begin begin
RM1.LoadFromFile(fPrintFile); RM1.LoadFromFile(fPrintFile);
RM1.ShowReport; RM1.ShowReport;
end end
else else
begin begin
Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0); Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);