默认标签设置

打卷检验管理/U_OrderInPut.pas

@@ -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);