窗体上放两个datetimepicker控件，名为DTP1，DTP2。
PROCEDURE FORM1.BITBTN1ONCLICK(SENDOR);
BEGIN
IF DTP1.DATE<DTP2.DATE THEN
BEGIN
APPLICATION.MESSAGE('起始日期应小于终止日期!','提示信息',48);
EXIT;
END;
TRY
QUERY1.CLOSE;
QUERY1.SQL.CLEAR;
QUERY1.SQL.ADD('SELECT * FROM MYTABLE WHERE RQ1>=:RQ1 AND RQ2<=:RQ2');
QUERY1.PARAMBYNAME('RQ1').ASDATE:=DTP1.DATE;
QUERY1.PARAMBYNAME('RQ2').ASDATE:=DTP2.DATE;
QUERY1.OPEN;
EXCEPT
ON E:EXCEPTION DO SHOEMESSAGE('读取数据失败!'+#13+#13+E.MESSAGE);
END;
END;
