真的没人会么？ (0分)

我想统计库中某一数值型字段(chzf)，条件是按日期统计。
var s1:string;
with query1 do
s1:=datetostr(datetimepicker1.date);
begin
close;
sql.clear;
sql.add('select * from tel where chzf=cast("s1" as date)');
open;
end;
库中本来有符合条件的记录，可就是显示不出来。
另外我想制作一个象database form wizard中两个列表框，一个显示数据库字段，
鼠标双点或按》按钮，即可将字段移入另一个列表框中，这如何制作。
以上问题如能得到您的帮助，在下定会感激涕零。

我不清楚有cast这个函数。
它有什么用的？
试试这样：
sql.add('select * from tel where chzf='''+s1+'''');

太小气了吧，0分！难怪看的人多回复的人少！看来今天又要学雷锋了！
1.
var s1:string;
with query1 do
s1:=datetostr(datetimepicker1.date);
begin
close;
sql.clear;
sql.add('select * from tel where chzf=:v_date);
ParamByName('v_date').AsString := s1;
open;
end;
2.简单啊，如List1和List2，双击List1的话就将双击的那一栏的内容（字段名）保存到
一变量中，然后删除这一栏，然后List2.Add(变量)；就行了。