【搞定】报错,请帮我看看错在哪里**

Jsun2007

代码
unit ZCT2;

interface

uses
  Business.System, Business.Model, Business.Forms, GGHSK, Business.Data;

type
  TZCT2 = class(TForm)
    FuncBroker: TFuncBroker;
    InfoBrokerYWXX1: TInfoBroker;
    ControlBar: TControlBar;
    DataNavigator: TDataNavigator;
    Panel: TPanel;
    DocViewYWXX1_SJWG1: TDocView;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    DataSetBroker1: TDataSetBroker;
    GroupBox1: TGroupBox;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    DateTimePicker1: TDateTimePicker;
    Button1: TButton;
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation

procedure TZCT2.RadioButton1Click(Sender: TObject);
var
lBiz,Value: String;
begin
   lBiz := 'Biz:\SCZYCX\DICT\QJGGCS.ParamGroup\GZCJ.Param';
   Value := '咀一工区';
   TGGHSK.SetParamValueString(Context,Value,lBiz);
   DataSetBroker1.dataset.Refresh;
end;

procedure TZCT2.RadioButton2Click(Sender: TObject);
var
lBiz,Value: String;
begin
   lBiz := 'Biz:\SCZYCX\DICT\QJGGCS.ParamGroup\GZCJ.Param';
   Value := '咀二工区';
   TGGHSK.SetParamValueString(Context,Value,lBiz);
   DataSetBroker1.dataset.Refresh;

end;

procedure TZCT2.RadioButton3Click(Sender: TObject);
var
lBiz,Value: String;
begin
   lBiz := 'Biz:\SCZYCX\DICT\QJGGCS.ParamGroup\BC.Param';
   Value := '早班';
   TGGHSK.SetParamValueString(Context,Value,lBiz);
   DataSetBroker1.dataset.Refresh;

end;



procedure TZCT2.RadioButton4Click(Sender: TObject);
var
lBiz,Value: String;
begin
   lBiz := 'Biz:\SCZYCX\DICT\QJGGCS.ParamGroup\BC.Param';
   Value := '中班';
   TGGHSK.SetParamValueString(Context,Value,lBiz);
   DataSetBroker1.dataset.Refresh;

end;

procedure TZCT2.Button1Click(Sender: TObject);
var
lBiz,Value: String;
begin
   lBiz := 'Biz:\SCZYCX\DICT\QJGGCS.ParamGroup\CXQSSJ.Param';
   Value := SysUtils.FormatDateTime('yyyy-mm-dd',DateTimePicker1.Date);
   TGGHSK.SetParamValueString(Context,Value,lBiz);
   DataSetBroker1.dataset.Refresh;

end;

end.

Jsun2007

怎么把截图发上来?

alang

http://bbs.justep.com/forum.php?mod=viewthread&tid=9082

Jsun2007

报错显示

Jsun2007

请帮我看看程序问题出在哪里

alang

直接把图贴出来，注意文件名要小写

alang

看看你发往服务端的SQL语句吧，肯定有月份>12  或者 <0 的情况

Jsun2007

是FormatDateTime的问题吗

Jsun2007

我的ＳＱＬ：
SELECT T_PUD_TRACK_WORKBILL.F_WORKBILL_ID,
       T_PUD_TRACK_WORKBILL.F_WORKSHOP_NAME,
       T_PUD_TRACK_WORKBILL.F_WORKCENTER_NAME,
       T_PUD_TRACK_WORKBILL.F_WORKCENTER_ID,
       T_PUD_TRACK_WORKBILL.F_TYPE_WORKCENTER_NAME,
       T_PUD_TRACK_WORKBILL.F_TYPE_WORKCENTER_ID,
       T_PUD_TRACK_WORKBILL.F_SHIFT_DATE,
       T_PUD_TRACK_WORKBILL.F_SHIFT_NAME,
       T_PUD_TRACK_WORKBILL.F_TEAM_NAME,
       T_PUD_TRACK_WORKBILL.F_BRAND_NAME,
       T_PUD_TRACK_PRODUCED.F_PRODUCED_GOOD,
       T_PUD_TRACK_PRODUCED.F_PRODUCED_REJECT,
       dcs_produce_record.F_WORKBILL_ID,
       dcs_produce_record.qty_good,
       dcs_produce_record.qty_reject
  FROM T_PUD_TRACK_WORKBILL,
       T_PUD_TRACK_PRODUCED,
       dcs_produce_record
WHERE T_PUD_TRACK_PRODUCED.F_WORKBILL_ID =
       T_PUD_TRACK_WORKBILL.F_WORKBILL_ID
   AND T_PUD_TRACK_WORKBILL.F_WORKBILL_ID =
       dcs_produce_record.F_WORKBILL_ID
   AND T_PUD_TRACK_WORKBILL.F_WORKSHOP_NAME = &[Biz:\SCZYCX\DICT\QJGGCS.ParamGroup\GZCJ.Param]
   and T_PUD_TRACK_WORKBILL.F_SHIFT_NAME =&[Biz:\SCZYCX\DICT\QJGGCS.ParamGroup\BC.Param]
   and T_PUD_TRACK_WORKBILL.F_SHIFT_DATE =&[Biz:\SCZYCX\DICT\QJGGCS.ParamGroup\CXQSSJ.Param]

alang

问题就出在这里了，不要用字符串对参数赋值，这里是日期，就应该直接用日期赋值，类似
lParam.Value := datetimepicker1.date;