Question

delphi数据库开发，动态sql,

delphi数据库开发，动态sql,
select odrbno,delno,pdctno,units,qtyu,delchar,indate From ppcchxxb
where (delno like 'T%' or qtyu<0)
--and indate>='2010-10-01' and indate<='2010-11-02'
and pdctno like '%jm1%'

上面这段代码，我想通过点击窗体上的“查询”按钮，让结果显示在DBGrid1中，
（窗体中以加好DBGrid1,ADOQuery1,DataSource1,等）
“查询”按钮onclick应该怎么写：
像这样子的：
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.Sql.Add..................
ADOQuery1.Open;

Answer 1

var
tmpSql: string;
begin
tmpSql := 'select odrbno,delno,pdctno,units,qtyu,delchar,indate From ppcchxxb ' +
' where (delno like ''T%'' or qtyu<0) and indate>=''2010-10-01''' +
' and indate<=''2010-11-02'' and pdctno like ''%jm1%''';
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.Sql.Add(tmpSql)
ADOQuery1.Open;
end;
如果你里边的条件是动态的话，比如时间，则只需将里边的日期换成你选择的比如:
tmpSql := 'select odrbno,delno,pdctno,units,qtyu,delchar,indate From ppcchxxb ' +
' where (delno like ''T%'' or qtyu<0) and indate>=''' +
formatdatetime('yyyy-mm-dd', datetimepicker1.datetime) + '''' +
' and indate<=''2010-11-02'' and pdctno like ''%jm1%''';

追问

var
tmpSql: string;
///////////////////////////////为什么定义变量啊，不要定义变量可不可以？

追答

可以~~直接写ADOQuery1.Sql.Add( 'select odrbno,delno,pdctno,units,qtyu,delchar,indate From ppcchxxb ' +
' where (delno like ''T%'' or qtyu=''' +
formatdatetime('yyyy-mm-dd', datetimepicker1.datetime) + '''' +
' and indate<=''2010-11-02'' and pdctno like ''%jm1%''');
就可以了

追问

先谢谢了。
delphi中如果我再加入DateTimePicker控件，代码怎么加？

追答

ADOQuery1.Sql.Add( 'select odrbno,delno,pdctno,units,qtyu,delchar,indate From ppcchxxb ' +
' where (delno like ''T%'' or qtyu=''' +
formatdatetime('yyyy-mm-dd', datetimepicker1.datetime) + '''' +
' and indate<=''‘ +
formatdatetime('yyyy-mm-dd', datetimepicker2.datetime) + ''' and pdctno like ''%jm1%''');

追问

ADOQuery9.Close;
ADOQuery9.SQL.Clear;
ADOQuery9.SQL.Add('select odrbno,delno,pdctno,units,qtyu,delchar,indate from ppcchxxb');
ADOQuery9.SQL.Add('where (delno like ''T%'' or qtyu=''' + formatdatetime('yyyy-mm-dd', datetimepicker1.datetime) + '''' +'and indate<=''' +
formatdatetime('yyyy-mm-dd', datetimepicker2.datetime) + ''' and pdctno like ''%jm1%''');
ADOQuery9.Open;
帮看

追答

ADOQuery9.Close;
ADOQuery9.SQL.Clear;
ADOQuery9.SQL.Add('select odrbno,delno,pdctno,units,qtyu,delchar,indate from ppcchxxb');
ADOQuery9.SQL.Add(' where (delno like ''T%'' or qtyu=''' +
formatdatetime('yyyy-mm-dd', datetimepicker1.datetime) + '''' +' and indate<=''' +
formatdatetime('yyyy-mm-dd', datetimepicker2.datetime) + ''' and pdctno like ''%jm1%''');
ADOQuery9.Open;
你这个是什么问题呀，我看着好像没什么问题呀，报错吗？错误信息是什么？

Answer 2

adoquery1.sql.text := 'select odrbno,delno,pdctno,units,qtyu,delchar,indate From ppcchxxb
where (delno like '''+'T'+'%'' or qtyu<0)
--and indate>=''2010-10-01'' and indate<=''2010-11-02''
and pdctno like ''%'+'jm1'+'%''';