在线等待，数据查询问题，很急，100分。不够我再加！！

Question

在执行之前，把SQL语句ShowMessage出来，并粘贴到SQL中运行一下，看看是什么问题。这是最基本的调试手段。

Answer 1

参看程序后至少下句where后少一空格
        bm_Form.Query1.SQL.Add('select * from bmk1.dbf where'+form9.Memo1.lines.Strings[0]);        bm_Form.Query1.SQL.Add('select * from bmk1.dbf where '+form9.Memo1.lines.Strings[0]);同意 stella53(慕蓉云风）的看法，只不过ShowMessage不能超过255字符
建议写 SQL 时多用几句 ADD调试时采用 TMEMO 控件，如 Memo1.Lines:=Query1.SQL 会看得清楚些。