//保存图片到图片表
if Trim(TextBox6.Text)<>'' then //图片有装入才能保存
begin
srm:=TMemoryStream.Create;
ADOquery1.Close;
ADOquery1.SQL.Clear;
ADOquery1.SQL.Add('delete from zx_tpb where bt=:bt');
ADOquery1.Parameters.ParamByName('bt').Value:=Trim(TextBox1.Text);
ADOquery1.ExecSQL;
ADOquery1.Close;
ADOquery1.SQL.Clear;
ADOquery1.SQL.Add('insert into zx_tpb (bt,tp) values (:bt,:tp)');
ADOquery1.Parameters.ParamByName('bt').Value:=Trim(TextBox1.Text);
Image3.Bitmap.SaveToStream(srm);
srm.Position := 0;
if srm.Size > 0 then
adoquery1.Parameters.ParamByName('tp').LoadFromStream(srm,ftblob); //图片
adoquery1.ExecSQL;
end;