DELPHIÖе÷ÓôøÓÐÈÕÆÚÐͲÎÊýµÄ´æ´¢¹ý³Ì

SQL code:
CREATE PROCEDURE ºÏ¼Æ
@date1 datetime,@date2 datetime

AS select top 20 a.ÎïÁÏ´úÂë,sum(a.×ÜÊýÁ¿)as ÊýÁ¿ºÏ¼Æ,sum(a.×ܽð¶î)as ½ð¶îºÏ¼Æ,a.ÎïÁÏÃû³Æ,a.ÐͺŠfrom
(SELECT dbo.sbilldet.itemno AS ÎïÁÏ´úÂë, SUM(dbo.sbilldet.qty) AS ×ÜÊýÁ¿ ,
SUM(dbo.sbilldet.sellsum) AS ×ܽð¶î, dbo.itemdata.itemname AS ÎïÁÏÃû³Æ,
dbo.itemdata.descript AS ÐͺÅ,dbo.sbillmst.carddt as ÈÕÆÚ
from dbo.sbilldet INNER JOIN
dbo.sbillmst ON dbo.sbilldet.sysno = dbo.sbillmst.sysno INNER JOIN
dbo.enterprise ON dbo.sbillmst.compno = dbo.enterprise.compno INNER JOIN
dbo.itemdata ON dbo.sbilldet.itemno = dbo.itemdata.itemno
GROUP BY dbo.sbilldet.itemno, dbo.itemdata.itemname, dbo.itemdata.descript,
dbo.sbillmst.carddt, dbo.sbillmst.ischeck
HAVING (SUM(dbo.sbilldet.qty) >= 0) AND (dbo.sbillmst.ischeck = 1) AND
(dbo.sbillmst.carddt >=@date1 AND
dbo.sbillmst.carddt <= @date2)) a
group by a.ÎïÁÏ´úÂë,a.ÎïÁÏÃû³Æ,a.ÐͺÅ
order by ÊýÁ¿ºÏ¼Æ desc
GO


---------------------
Delphi(Pascal) code:
procedure TForm1.Button1Click(Sender: TObject);
begin
if datetimepicker1.Date >datetimepicker2.Date then
begin
showmessage('¿ªÊ¼ÈÕÆÚ´óÓÚÖÕÖ¹ÈÕÆÚ');
datetimepicker1.SetFocus ;
exit