默认标签设置

打卷检验管理/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);