一个学生管理系统,添家新学生时,我要上传照片,代码如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
 if not OpenPictureDialog1.Execute then exit;  
  Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
  adotable1.Open;
  adotable1.Insert;
  ADOTable1.FieldByName('相片').AsString:=OpenPictureDialog1.FileName;
  adotable1.Post;
  adotable1.Close;
end;
然后我在浏览学生时希望通过dbnavigator在dbgrid中指针移动来显示每个学生的照片,代码如下:
begin
  if FileExists(ADOTable1.FieldByName('相片').AsString) then
     Image1.Picture.LoadFromFile(ADOTable1.FieldByName('F_Photo').AsString);
end;
但是我浏览该学生时并没有图片显示出来??请高手指点??