; end
else
begin
if (strtodatetime(DBExj.Text)<=strtodatetime((datetostr(now())+' '+DBEshangji.Text))) then
begin
DM.ADOTjggl.Prior;
DM.ADOTgl.FieldByName('结算').AsFloat:=sswu(jgjs(DBEsj.Text,datetostr(now())+' '+DBExiaji.Text,DBEsdjg.Text))+sswu(jgjs(datetostr(now())+' '+DBExiaji.Text,DBExj.Text,DBEmrjg.text));
ok:='ok';
break;
end;
end;
end;
end;
end;
DM.ADOTjggl.Next;
until DM.ADOTjggl.Eof;
//情况1 **()
if ok='' then
begin
DM.ADOTgl.FieldByName('结算').AsFloat:=sswu(jgjs(DBEsj.Text,DBExj.Text,DBEmrjg.text));
