1:如何通过按钮进行图片的一张张浏览??用上一页和下一页2个按钮。
2:如何对报表中的某一行信息进行打印啊???怎么做
谢谢~~

解决方案 »

  1.   

    1.
    将图片放到数据库中,然后,加上一个dbimage控件,加两个按钮,上一页、下一页,控制数据库中记录的移动,就可以了。
    2
    不知道,关注
      

  2.   

    //存入数据库之前将图片显示出来
    procedure TForm4.SpeedButton1Click(Sender: TObject);
    begin
      if self.OpenPictureDialog1.Execute then
        self.Image1.Picture.Bitmap.LoadFromFile(self.OpenPictureDialog1.FileName);
    end;
    //存入数据库
    var
    im:Tmemorystream;
    begin
    dm.Table2.Open;//bm是一个datamodule
    dm.Table2.Append;
    im:=TMemoryStream.Create;
    form4.Image1.Picture.Bitmap.SaveToStream(im);
    im.Position:=0;
    TBlobField(dm.Table2.FieldByName('照片')).LoadFromStream(im);
    dm.Table2.Post;
    end;
    然后在显示图片界面,加一个dbimage与存图片的数据库关联起来,就可以了