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;