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