在此单元里已经加了ＤＢ，ＡＤＯＤＢ单元，其实语句调用都没问题就是 注释的两行出错了．
错误信息：[Error] ReaderInfoAdd.pas(126): Undeclared identifier: 'ftimage'
不知adostoredproc调用存储过程中image类型怎么定义的．
请哪位高手帮忙指点一下．注释的两行到底错在哪里？
try
with datamoduleado.ADOStoredProc1 do
begin
close;
procedurename:='Insert_ReadersInfo';
parameters.Clear ;
parameters.CreateParameter('@ReadID',ftstring,pdinput,10,0);
parameters.CreateParameter('@RName',ftstring,pdinput,10,0);
parameters.CreateParameter('@RSex',ftstring,pdinput,2,0);
parameters.CreateParameter('@RDept',ftstring,pdinput,30,0);
parameters.CreateParameter('@RAddress',ftstring,pdinput,50,0);
parameters.CreateParameter('@RTel',ftstring,pdinput,20,0);
parameters.CreateParameter('@REmail',ftstring,pdinput,30,0);
／／ parameters.CreateParameter('@RPhoto',ftimage,pdinput,16,0);
parameters.ParamByName('@ReadID').Value :=trim(ReadIDEdit.Text) ;
parameters.ParamByName('@RName').Value :=trim(RNameEdit.Text) ;
if femaleRadioButton.Checked then
parameters.ParamByName('@RSex').Value :='女';
if maleRadioButton.Checked then
Parameters.ParamByName('@RSex').Value :='男';
Parameters.ParamByName('@RDept').Value :=trim(RDeptEdit.Text) ;
parameters.ParamByName('@RAddress').Value :=trim(RAddressEdit.Text) ;
parameters.ParamByName('@RTel').Value :=trim(RTelMaskEdit.Text);
parameters.ParamByName('@REmail').Value :=trim(REmailEdit.Text) ;
parameters.ParamByName('@RBirthDate').Value :=strtodate(RBirthDateMaskEdit.Text);
／／ parameters.ParamByName('@RPhoto').Value :=RPhotoImage.Transparent ;
prepared;
execproc;
end;
except
begin
messagedlg('数据添加失败',mterror,[mbok],0);
exit;
end;
close;
end;
