From 8ca3a179be953206c7e238bc585b2c31bd8625a6 Mon Sep 17 00:00:00 2001
From: "DESKTOP-E401PHE\\Administrator" <rightsoft@163.com>
Date: Tue, 22 Jul 2025 16:58:40 +0800
Subject: [PATCH] =?UTF-8?q?=E9=BB=98=E8=AE=A4=E6=A0=87=E7=AD=BE=E8=AE=BE?=
 =?UTF-8?q?=E7=BD=AE?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 打卷检验管理/U_OrderInPut.pas | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/打卷检验管理/U_OrderInPut.pas b/打卷检验管理/U_OrderInPut.pas
index fbaecb7..ccaf019 100644
--- a/打卷检验管理/U_OrderInPut.pas
+++ b/打卷检验管理/U_OrderInPut.pas
@@ -510,7 +510,7 @@ begin
   end;
 
   if PState = 0 then
-  begin                                                  
+  begin
     OrdDate.DateTime := SGetServerDateTime(ADOTemp);
     DlyDate.DateTime := OrdDate.DateTime;
     OrdDefDate1.DateTime := OrdDate.DateTime;
@@ -855,7 +855,7 @@ begin
           FieldByName('JIAZhong').Value := StrToFloatdef((JIAZhong.Text), 0);
           FieldByName('Szhiguan').Value := StrToFloatdef((Szhiguan.Text), 0);
           FieldByName('SLBName').Value := ExtractFileName(trim(SLBName.Text));
-          FieldByName('SLBName').Value := '����������ǩ.rmf';
+
           Post;
         end;
         Order_Sub.Edit;
@@ -1076,7 +1076,10 @@ begin
   begin
 
   end;
-
+  if Trim(SLBName.Text) = '' then
+  begin
+    SLBName.text := '����������ǩ.rmf';
+  end;                                        
   if SaveData() then
   begin
     Application.MessageBox('����ɹ���', '��ʾ', 0);