DM.Tape_info.Close;
DM.Tape_info.SQL.Clear;
DM.Tape_info.SQL.Add('select * from where Tape_id='''+Trim(Edit1.Text)+'''');
DM.Tape_info.Open;
-------------------------------------------
老提示说"关健字"where"附近有语法错误"