一个学生管理系统,添家新学生时,我要上传照片,代码如下:
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;
但是我浏览该学生时并没有图片显示出来??请高手指点??
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;
但是我浏览该学生时并没有图片显示出来??请高手指点??
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货