数据查询 (50分)

  • 主题发起人 主题发起人 向你学习
  • 开始时间 开始时间

向你学习

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;
 
这样用不行
必须要有SQL语句。
 
在每次使用open、close之间都应该再写一次SQL语句。
 
回答你的短信息提问:

Parameters.ParamByName('delerq').value:=strtodate(formatdatetime('yyyy-mm-dd',deledate));
 
你的datetimepicker1.date;就是我的deledate
 
是不是要加上with Form1?
 
多人接受答案了。
 
除了在线寻呼里告诉你的外,DateTimePicker的Kind属性设为dtkDate,其它的张老大差不多都说完了
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
337
import
I
I
回复
0
查看
664
import
I
后退
顶部