对image类型
procedure Tzp.FlatButton1Click(Sender: TObject);
begin
form4.ryADOTable1.Edit;
form4.ryADOTable1.FieldByName('人员照片').Assign(Image1.Picture);
if(application.MessageBox('是否确认调入照片?','确认调入'
mb_yesno+mb_iconquestion)<>idno)
then
begin
form4.ryADOTable1.Post;
close;
end
else
form4.ryADOTable1.Cancel;
end;