From bd54e6dede305391261d188167d2d4a59efcd030 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Wed, 3 Dec 2025 09:29:09 +0800 Subject: [PATCH] ~ --- 打卷检验管理/U_ProductOrderNewList.dfm | 24 ++++++++++++------------ 打卷检验管理/U_ProductOrderNewList.pas | 4 ++-- 2 files changed, 14 insertions(+), 14 deletions(-) diff --git a/打卷检验管理/U_ProductOrderNewList.dfm b/打卷检验管理/U_ProductOrderNewList.dfm index abf95d1..fae63bd 100644 --- a/打卷检验管理/U_ProductOrderNewList.dfm +++ b/打卷检验管理/U_ProductOrderNewList.dfm @@ -118,19 +118,19 @@ object frmProductOrderNewList: TfrmProductOrderNewList AutoSize = True Caption = #25764#38144#23436#25104 ImageIndex = 86 - Wrap = True OnClick = TNoWCClick end object TBExport: TToolButton - Left = 0 - Top = 30 + Left = 678 + Top = 0 AutoSize = True Caption = #23548#20986 ImageIndex = 75 + Wrap = True OnClick = TBExportClick end object TFJ: TToolButton - Left = 63 + Left = 0 Top = 30 AutoSize = True Caption = #25351#31034#21333#38468#20214 @@ -138,7 +138,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList OnClick = TFJClick end object TBPrint: TToolButton - Left = 162 + Left = 99 Top = 30 AutoSize = True Caption = #25171#21360 @@ -146,7 +146,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList OnClick = TBPrintClick end object ToolButton4: TToolButton - Left = 225 + Left = 162 Top = 30 AutoSize = True Caption = #24322#24120#25968#25454 @@ -154,14 +154,14 @@ object frmProductOrderNewList: TfrmProductOrderNewList OnClick = ToolButton4Click end object ToolButton5: TToolButton - Left = 312 + Left = 249 Top = 30 Caption = #30133#28857#31649#29702 ImageIndex = 132 OnClick = ToolButton5Click end object ToolButton6: TToolButton - Left = 419 + Left = 356 Top = 30 AutoSize = True Caption = #26085#24535 @@ -169,7 +169,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList OnClick = ToolButton6Click end object ToolButton7: TToolButton - Left = 482 + Left = 419 Top = 30 AutoSize = True Caption = #37325#36830 @@ -178,7 +178,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList OnClick = ToolButton7Click end object ToolButton8: TToolButton - Left = 545 + Left = 482 Top = 30 AutoSize = True Caption = #20837#24211#30721#21333 @@ -186,7 +186,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList OnClick = ToolButton8Click end object ToolButton9: TToolButton - Left = 632 + Left = 569 Top = 30 AutoSize = True Caption = #25171#21360#28151#33394#30721#21333 @@ -194,7 +194,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList OnClick = ToolButton9Click end object TBClose: TToolButton - Left = 743 + Left = 680 Top = 30 AutoSize = True Caption = #20851#38381 diff --git a/打卷检验管理/U_ProductOrderNewList.pas b/打卷检验管理/U_ProductOrderNewList.pas index 250ccdf..dab9fa5 100644 --- a/打卷检验管理/U_ProductOrderNewList.pas +++ b/打卷检验管理/U_ProductOrderNewList.pas @@ -1271,7 +1271,7 @@ var begin if Order_Main.IsEmpty then Exit; - fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ɫ뵥.rmf'; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ɫ뵥.rmf'; begin with ADOQueryTemp do @@ -1303,7 +1303,7 @@ begin begin RM1.LoadFromFile(fPrintFile); RM1.ShowReport; - end + end else begin Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0);