Question

delphi中，如何在SQL中使用编辑框中输入的参数？

首先声明，本人小白一个，接触DELPHI才2天，基本语言几乎都不会，我是照着网上的操作成功建立了一个数据库连接然后query并用DB GRID显示出来，现在我的要求是新增一个编辑框和按钮，用户在使用时需要在编辑框里输入条件，作为SQL语句中where后面的参数值，然后点击按钮执行查询，输出到DBGRID显示

Answer 1

一般来说有两种方式：
Qry 为Tquery 类型
1、拼接字串方式：
qry.sql.clear;
qry.sql.add('select * from aa where id='''+ trim(edit1.text)+''''); //假定edit1.text是数字
qry.prepared;
qry.open();
2、传参方式
qry.sql.clear;
qry.sql.add('select * from aa where id=:id');
Qry.parambyname('id):=trim(edit1.text);
qry.prepared;
qry.open;
3、按你的要求也可以这样：
qry.sql.clear;
qry.sql.add('select * from aa ');
qry.sql.add('where '+Trim(edit1.text));// 假定 edit1.text 是个有效条件，这种方法不好因为 如果edit1.text是无效条件，会导致程序出错！
qry.prepared;
qry.open();

简单手工写的，可能不准确，手头没有DELPHI。。

追问

我用的ADO控件，直接写的SQL代码，能不能用参数？？

追答

当然可以！

追问

我不会代码，我想问的是在ADO的控件中设置param的值为什么时才能与edit1.text的值绑定？在SQL中使用:1作为参数，然后按钮应该如何设置...

追答

那个param不是那么用的……那是用作后端存储过程传的参数……

追问

如果我定义parameter为确定的值，就能正常查询，
object ADOQuery1: TADOQuery
Active = True
Connection = ADOConnection1
CursorType = ctStatic
Parameters =
Prepared = True
SQL.Strings = (**************）
..............

追答

应该是value:=trim(edit1.text)
这个不需要单引号……

追问

这个是控件属性，value后必须直接连等号，否则会提示没有找到等号

追答

哦忘了你是在控件属性里……
你试试
value=trim(edit1.text) 吧
不过我估计不行，因为parameter是在运行时就初始化静态传递的，而你这个是要变化的，即EDIT的内容变化后，根本不能传递给adoquery
你不用编程方法，只用参数设置，这种理念是不对的！

Answer 2

在按钮的click事件中增加代码，处理查询条件，形式如下：where TableName.FieldName1 = '条件值'　and / or TableName.FieldName = '条件值'（条件值来源于用户在编辑框中的输入），在query执行查询时，要Select TableName.FieldName1, TableName.FieldName2,...From TableName 后增加查询条件，查询结果就是过滤后的数据集。

Answer 3

不推荐用参数，直接拼凑SQL语句吧，好调试