向
向你学习
Unregistered / Unconfirmed
GUEST, unregistred user!
with data.DataModule1.pjjhok do
begin
sql.clear;
sql.add('select pjjh.pjmc,pjjh.rq,pjjh.pch,pjmc.pjlbbm,pjmc.pjlbmc,pjjh.sl,pjjh.dj from pjjh pjjh,pjmc pjmc');
sql.add('where pjjh.rq>=:_qcrq and pjjh.rq<=:_zzrq');
if form6.Edit1.Text<>'' then
begin
sql.add('and pch=:_pch');
close;
parambyname('_qcrq').asdate:=datetimepicker1.date;
parambyname('_zzrq').asdate:=datetimepicker2.date;
$%@!$#为什么总说我没定义,我这么用对吗,datetimepicker这么用DATE对不对
parambyname('_pch').asstring:=edit1.text;
open;
end
else
begin
close;
parambyname('_qcrq').asdate:=datetimepicker1.date;
parambyname('_zzrq').asdate:=datetimepicker2.date;
open;
end
end;
begin
sql.clear;
sql.add('select pjjh.pjmc,pjjh.rq,pjjh.pch,pjmc.pjlbbm,pjmc.pjlbmc,pjjh.sl,pjjh.dj from pjjh pjjh,pjmc pjmc');
sql.add('where pjjh.rq>=:_qcrq and pjjh.rq<=:_zzrq');
if form6.Edit1.Text<>'' then
begin
sql.add('and pch=:_pch');
close;
parambyname('_qcrq').asdate:=datetimepicker1.date;
parambyname('_zzrq').asdate:=datetimepicker2.date;
$%@!$#为什么总说我没定义,我这么用对吗,datetimepicker这么用DATE对不对
parambyname('_pch').asstring:=edit1.text;
open;
end
else
begin
close;
parambyname('_qcrq').asdate:=datetimepicker1.date;
parambyname('_zzrq').asdate:=datetimepicker2.date;
open;
end
end;