新手，请教问题！谢谢！

[DTopNil]

通过单击 BitBtn2 按钮实现图片保存进数据库，
但是保存好以后，如果再次单击此按钮还会在数据库中添加新纪录，
保存同样的一张图片。

请问我怎样解决这个问题，不让同样的图片第二次保存进数据库中。

代码如下：

procedure TAddPicForm.BitBtn2Click(Sender: TObject);
begin

if (OpenPictureDialog1.FileName <>'') then
begin
DataModule5.ADOQuery1.Insert;
DataModule5.ADOQuery1.FieldByName('代表照片路径').AsString := OpenPictureDialog1.FileName;
DataModule5.ADOQuery1.FieldByName('代表照片').Assign(image1.Picture);
DataModule5.ADOQuery1.Post;
end
else
MessageDlg('请先选择照片！',mtError,[mbOK],0);

end;

[frogshero]

看看代表照片路径中是否已存在OpenPictureDialog1.FileName

[DTopNil]

代码：

procedure TAddPicForm.BitBtn1Click(Sender: TObject);//打开图片按钮
begin
OpenPictureDialog1.Execute;
image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

procedure TAddPicForm.BitBtn2Click(Sender: TObject);//保存图片按钮
begin

if (OpenPictureDialog1.FileName <>'') then
begin
DataModule5.ADOQuery1.Insert;
DataModule5.ADOQuery1.FieldByName('法人代表照片路径').AsString := OpenPictureDialog1.FileName;
DataModule5.ADOQuery1.FieldByName('法人代表照片').Assign(image1.Picture);
DataModule5.ADOQuery1.Post;
end
else
MessageDlg('请先选择照片！',mtError,[mbOK],0);

end;


请问怎么解决这个问题？

[things]

if (OpenPictureDialog1.FileName <>'') then
begin
if DataModule5.ADOQuery1.locate('法人代表照片路径',OpenPictureDialog1.FileName, []) then
begin
showmessage('照片已存在！');
exit;
end;
DataModule5.ADOQuery1.Insert;
........

[AirPaper]

在插入前先查询一下数据库中各记录的'代表照片路径'字段是否有跟OpenPictureDialog1.FileName重复的，如没有再插入新记录。。。