我不知道代码怎么写，写拉有问题，所以想请问个位大侠帮帮忙。
查询代码：procedure TForm1.Button6Click(Sender: TObject);
var
choice,content,SQLWhere:string;
begin
choice:=ComboBox1.text;
content:=edit1.text;
case ComboBox1.ItemIndex of
0:SQLWhere:='where'+'编号'+ content;
1:SQLWhere:='where'+'姓名'+ content;
2:SQLWhere:='where'+'性别'+ content;
3:SQLWhere:='where'+'单位部门'+ content;
4:SQLWhere:='where'+'住址'+ content;
5:SQLWhere:='where'+'类别'+ content;
end;
if content='' then
begin
Application.Messagebox('请输入查询内容！','提示',Mb_OK+Mb_iconinformation);
exit;
end;
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.clear;
Form1.ADOQuery1.SQL.add('select * from sydz where '+choice+'like :content');
Form1.ADOQuery1.Parameters.ParamByName('content').Value:='%+edit1.text+'%';
Form1.ADOQuery1.Open;
end;
但不知道为什么运行起来没问题但一查询就不行拉，还有的代码我就不会拉。
我是用SQL+Delphi7.0做的，谢谢！