Group_01/D7DJbulaikeyi
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

默认标签设置

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-07-22 16:58:40 +08:00
parent e56172f814
commit 8ca3a179be
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
打卷检验管理/U_OrderInPut.pas
View File

@ -510,7 +510,7 @@ begin
end; end;
if PState = 0 then if PState = 0 then
begin begin
OrdDate.DateTime := SGetServerDateTime(ADOTemp); OrdDate.DateTime := SGetServerDateTime(ADOTemp);
DlyDate.DateTime := OrdDate.DateTime; DlyDate.DateTime := OrdDate.DateTime;
OrdDefDate1.DateTime := OrdDate.DateTime; OrdDefDate1.DateTime := OrdDate.DateTime;
@ -855,7 +855,7 @@ begin
FieldByName('JIAZhong').Value := StrToFloatdef((JIAZhong.Text), 0); FieldByName('JIAZhong').Value := StrToFloatdef((JIAZhong.Text), 0);
FieldByName('Szhiguan').Value := StrToFloatdef((Szhiguan.Text), 0); FieldByName('Szhiguan').Value := StrToFloatdef((Szhiguan.Text), 0);
FieldByName('SLBName').Value := ExtractFileName(trim(SLBName.Text)); FieldByName('SLBName').Value := ExtractFileName(trim(SLBName.Text));
FieldByName('SLBName').Value := '²¼À³¿ËÒÁ±êÇ©.rmf';
Post; Post;
end; end;
Order_Sub.Edit; Order_Sub.Edit;
@ -1076,7 +1076,10 @@ begin
begin begin
end; end;
if Trim(SLBName.Text) = '' then
begin
SLBName.text := '²¼À³¿ËÒÁ±êÇ©.rmf';
end;
if SaveData() then if SaveData() then
begin begin
Application.MessageBox('±£´æ³É¹¦£¡', 'Ìáʾ', 0); Application.MessageBox('±£´æ³É¹¦£¡', 'Ìáʾ', 0);