请问以下SQL语句有什么问题?
 self.searchsystem_query.SQL.Add('select * from phar_inout_detail,phar_medi_main where phar_inout_detail.wm_main_id=:wm_main_id  and phar_inout_detail.medino=phar_medi_main.medino  union all');self.searchsystem_query.SQL.Add('select * from Phar_Spirit_InOut_Detail,phar_medi_main  where  Phar_Spirit_InOut_Detail.wm_main_id=:wm_main_id and Phar_Spirit_InOut_Detail.medino=phar_medi_main.medino union all');
  
self.searchsystem_query.ParamByName('wm_main_id').AsString:=trim(self.Edit2.Text);
 
老是提示“ALL”附近有语法错误!