Question

delphi如何实现查询功能,求高手

begin
adotable1.close;
datasource1.DataSet:=adoquery1;
if trim(Edit1.Text)<>''
then
begin adoquery1.close;
adoquery1.sql.clear;
adoquery1.SQL.Add('select * from 销售记录表 ');
if combobox1.text = '按商品编号查询' then
adoquery1.sql.add(' where 产品编号 like '''+'%'+Edit1.text+'%'+'''');
if combobox1.text = '按商品名称查询' then
adoquery1.sql.add(' where 产品名称 like '''+'%'+Edit1.text+'%'+'''');
if combobox1.text = '按售货员查询' then
adoquery1.sql.add(' where 售货员 like '''+'%'+Edit1.text+'%'+'''');
if combobox1.text = '按超市名称查询' then
adoquery1.sql.add(' where 超市名称 like '''+'%'+Edit1.Text+'''');
adoquery1.open;
end;
求高手帮我看看这个程序有问题没，在运行的时候Edit1当中不能输入东西，不知道为什么？？

Answer 1

edit1不能输入东西去看看属性设置对不对（例如readonly和maxlength....）
if trim(Edit1.Text)<>'' 的end;在哪？

追问

这句我是看书上敲上去的，没看懂，求解释

追答

应该是：假如Edit1有字符输入，同时combobox1选择了 '按商品编号查询'，就往数据库加入两条数据：'select * from 销售记录表 '和' where 产品编号 like '''+'%'+Edit1.text+'%'+''''

Answer 2

Edit1 ReadOnly 是不是设置为TRUE 了.
或者Enable 设置为false 了 , 检查一下.

Answer 3

看看edit的enable是否设置为true。
你这段代码是写在什么事件里？
代码其他没什么问题。只是后面几个if最好写成else if （注意else if 前面那句不能有分号）。

Answer 4

edit1有个属性enable 可能是你不小心改成false,你看看

Answer 5

语法不严格！容易产生SQL注入攻击