M
mytouching
Unregistered / Unconfirmed
GUEST, unregistred user!
我想实现一个日期时间的范围查询。我用了两个DateTimePicker控件，但是我查询的时候系统也不
报错，也能显示出DBGRID的字段，但就是显示不出值啊，这到底是怎么回事啊，难道是paradox的错？？？
代码如下
procedure TForm1.Button1Click(Sender: TObject);
BEGIN
IF DTP1.DATE<DTP2.DATE THEN
BEGIN
SHOwMESSAGE('起始日期应小于终止日期!');
EXIT;
END;
QUERY1.CLOSE;
QUERY1.SQL.CLEAR;
QUERY1.SQL.ADD('SELECT * FROM reservat WHERE card_exp>=:RQ1 AND card_exp<=:RQ2');
QUERY1.PARAMBYNAME('RQ1').AsDate:=DTP1.DATE;
QUERY1.PARAMBYNAME('RQ2').AsDate:=DTP2.DATE;
query1.Prepare;
QUERY1.OPEN;
end;
我用的是(D6+PARADOX)
报错，也能显示出DBGRID的字段，但就是显示不出值啊，这到底是怎么回事啊，难道是paradox的错？？？
代码如下
procedure TForm1.Button1Click(Sender: TObject);
BEGIN
IF DTP1.DATE<DTP2.DATE THEN
BEGIN
SHOwMESSAGE('起始日期应小于终止日期!');
EXIT;
END;
QUERY1.CLOSE;
QUERY1.SQL.CLEAR;
QUERY1.SQL.ADD('SELECT * FROM reservat WHERE card_exp>=:RQ1 AND card_exp<=:RQ2');
QUERY1.PARAMBYNAME('RQ1').AsDate:=DTP1.DATE;
QUERY1.PARAMBYNAME('RQ2').AsDate:=DTP2.DATE;
query1.Prepare;
QUERY1.OPEN;
end;
我用的是(D6+PARADOX)