query2.Close;
query2.SQL.Clear;
query2.SQL.Add('insert into GZ_ZhiWuBZ(date,type,zhiji) values(:a,:b,:c)');
query2.Parameters.ParamByName('a').Value:=DateToStr(DateTimePicker1.Date);
query2.Parameters.ParamByName('b').Value:=query.fieldbyname('type').AsString;
query2.Parameters.ParamByName('c').Value:=query.fieldbyname('zhiji').AsString;
query2.ExecSQL;
query2.SQL.Clear;
query2.SQL.Add('insert into GZ_ZhiWuBZ(date,type,zhiji) values(:a,:b,:c)');
query2.Parameters.ParamByName('a').Value:=DateToStr(DateTimePicker1.Date);
query2.Parameters.ParamByName('b').Value:=query.fieldbyname('type').AsString;
query2.Parameters.ParamByName('c').Value:=query.fieldbyname('zhiji').AsString;
query2.ExecSQL;
改为query2.Parameters.ParamByName('a').AsString
其他几个也这样改下试下!