|

楼主 |
发表于 2010-3-18 15:49:28
|
显示全部楼层
Query1.Close;
Query1.CommandText := 'insert into QJXGJL (DYBH,SQBH,XM,GH,XJZL,KSRQ,KSSJ,JSRQ,JSSJ,XJYY,SJHJ,XGSJ) values (:a0,:a1,:a2,:a3,:a4,:a5,:a6,:a7,:a8,:a9,:a10,:a12) ';
Query1.Params.ParamByName('a0').AsInteger := DataSetBroker1.DataSet.FieldByName('BH').AsInteger;
Query1.Params.ParamByName('a1').AsString := DataSetBroker1.DataSet.FieldByName('SQBH').AsString;
Query1.Params.ParamByName('a2').AsString := DataSetBroker1.DataSet.FieldByName('XM').AsString;
Query1.Params.ParamByName('a3').AsString := DataSetBroker1.DataSet.FieldByName('GH').AsString;
Query1.Params.ParamByName('a4').AsString := DataSetBroker1.DataSet.FieldByName('XJZL').AsString;
Query1.Params.ParamByName('a5').AsString := SysUtils.FormatDateTime('yyyy-mm-dd 00:00:00.000',DataSetBroker1.DataSet.FieldByName('KSRQ').AsDateTime);
Query1.Params.ParamByName('a6').AsString := SysUtils.FormatDateTime('tt',DataSetBroker1.DataSet.FieldByName('KSSJ').AsDateTime);
Query1.Params.ParamByName('a7').AsString :=SysUtils.FormatDateTime('yyyy-mm-dd 00:00:00.000',DataSetBroker1.DataSet.FieldByName('JSRQ').AsDateTime);
Query1.Params.ParamByName('a8').AsString := SysUtils.FormatDateTime('tt',DataSetBroker1.DataSet.FieldByName('JSSJ').AsDateTime);
Query1.Params.ParamByName('a9').AsString := DataSetBroker1.DataSet.FieldByName('XJYY').AsString;
Query1.Params.ParamByName('a10').AsInteger:= DataSetBroker1.DataSet.FieldByName('SJHJ').AsInteger;
Query1.Params.ParamByName('a12').AsDate := date + 1;
Query1.Execute; |
|