Date1 and Date2 的参数 如何传？ 在线的等待；）

Question

SN:  [email protected]
 
我的博客：http://oliver2010.blogcn.com
 
=========================================================
谢谢：）
我已经看了Grecee的Delphi程序设计；）
基本语法都了解一点；）
我就是想做一个期间设定的传参数用Date1Date2传
=====================================
下面是AP上的sql语句
===========================================
SELECT a.orderNo,a.seqNo,a.unit,b.color,b.orderW,c.jobNO,c.jobType,c.lotQ,d.USEQTY
FROM   dye a,Dyecolor b,jobcard c,jobcardused d
where  a.SERIES=b.SERIES(+)
and b.STUFFNO=c.STUFFNO(+)
and c.SERIES=d.SERIES(+)
and a.CREATEDATE between :Date1 and :Date2 
===============================================
 
================================================
下面是客户端的
===============================================
procedure TF_ReportMainReport.OrderCardStatisClick(Sender: TObject);
begin
  inherited;
  if not assigned(F_Qry_OrderCard_Statistic_Period) then
  Application.CreateForm(TF_Qry_OrderCard_Statistic_Period,F_Qry_OrderCard_Statistic_Period);
  if not Assigned(F_RpReportJobCard) then
  Application.CreateForm(TF_RpReportJobCard,F_RpReportJobCard);
  F_RpReportJobCard.PrintOrderCardStatistic;
end;
=====================================
procedure TF_RpReportJobCard.PrintOrderCardStatistic;
begin
  with F_Qry_OrderCard_Statistic_Period do
  begin
    if Execute then
    begin
      //if Not Assigned(F_WaitForm) then
     // Application.Createform(TF_WaitForm,F_WaitForm);
    {
    with DMRpNew.cdsOrderCardStatistic do
    begin
      Close;
      DataRequest(F_Qry_OrderCard_Statistic_Period.aInput);
      OPen;
    end;   }
      DMRpNew.cdsOrderCardStatistic.Close;
      DMRpNew.cdsOrderCardStatistic.Params[0].AsDate:=F_Qry_OrderCard_Statistic_Period.Start_Date.Date;
      DMRpNew.cdsOrderCardStatistic.Params[1].AsDate:=F_Qry_OrderCard_Statistic_Period.End_Date.Date;
      DMRpNew.cdsOrderCardStatistic.Open;
     GetRpInfoEx('Static1207',DM.RpServer);
     //DMRpNew.cdsOrderCardStatistic.Open;
     ppOrderCardStatistic.print;
end;
  end;
  end;
 
=======================================================================
 
 
============================
他在这里报错的
=========================
   DMRpNew.cdsOrderCardStatistic.Params[0].AsDate:=F_Qry_OrderCard_Statistic_Period.Start_Date.Date;
      DMRpNew.cdsOrderCardStatistic.Params[1].AsDate:=F_Qry_OrderCard_Statistic_Period.End_Date.Date;
 
===============================================

Answer 1

Params[0]
Params[1]
需要申明吗？

Answer 2

DMRpNew.cdsOrderCardStatistic.Params[0].value:=F_Qry_OrderCard_Statistic_Period.Start_Date.Date;
      DMRpNew.cdsOrderCardStatistic.Params[1].value:=F_Qry_OrderCard_Statistic_Period.End_Date.Date;//用value好了。
 sp_PartMoney.connection:=con1;
 sp_PartMoney.close;
 sp_PartMoney.parameters.refresh;
 sp_PartMoney.Parameters.ParamByName('@dtmBgnDate').Value := BgnDate1.Date;
  sp_PartMoney.Parameters.ParamByName('@dtmEndDate').Value := EndDate1.Date;
  sp_PartMoney.ExecProc;