with maindm.Qryorder do begin Close; sql.Clear; sql.Text := ' exec 存储过程名称 '; ExecSQL; myhs.warn1('费用同步成功!'); end;sql