product.pas

Rave Report 查看器,格式转换器,Rave生成的Ndr中文会乱码,用这个查看Ndr文件不会有乱码

unit Product;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, DB, ADODB, StdCtrls,jpeg, ImgList, ActnList;

type
  TfmProduct = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    qProduct: TADOQuery;
    Button1: TButton;
    ImageList1: TImageList;
    Panel3: TPanel;
    ListView1: TListView;
    Sourimg: TImage;
    Image1: TImage;
    ActionList1: TActionList;
    InitimgList: TAction;

    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure InitimgListExecute(Sender: TObject);
  private
    { Private declarations }
    imgList:TListview;
  public
    { Public declarations }
  end;

var
  fmProduct: TfmProduct;

implementation

uses Query, ProductDetail;

{$R *.dfm}

procedure TfmProduct.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=caFree;
end;

procedure TfmProduct.Button1Click(Sender: TObject);
var imgfile:string;
    i:integer;
    img:Timage;
    bmp:Tbitmap;
    jpg:Tjpegimage;
    nod:Tlistitem;
    ms:Tmemorystream;
begin
           ms:=Tmemorystream.Create;
           sourimg:=Timage.Create(nil);
           img:=Timage.Create(nil);
           bmp:=Tbitmap.Create;
           jpg:=Tjpegimage.Create;

  
    self.qProduct.Active :=true;
    self.ListView1.Clear;
    if self.qProduct.RecordCount>0 then
      begin
           self.qProduct.First;
           for i:=0 to self.qProduct.RecordCount -1 do
              begin
                    imgFile:=dmquery.imgFile +'\'+self.qProduct.fieldbyname('imgfile').AsString  ;


                    jpg.LoadFromFile(imgFile);

                    sourimg.Picture.Bitmap.Assign(jpg);
                    img.Width:=100;
                    img.Height :=100;
                    img.Stretch :=true;
                    img.Canvas.StretchDraw(Rect(0,0,img.Width,img.Height),sourimg.Picture.Graphic);
                     bmp.Assign(img.Picture.Graphic);
                     bmp.SaveToStream(ms);
                 //bmp:= dmquery.getBmp(imgfile);
                   self.ImageList1.Add(bmp,bmp);
                    nod:=self.ListView1.Items.Add;
                    nod.Caption:=self.qProduct.fieldbyname('imgfile').AsString;
                   nod.ImageIndex:=i;

                    self.qProduct.Next;

     end;
    end;
    img.Free;
    sourimg.Free;
    bmp.Free;
    jpg.Free;
    ms.Free;
end;

procedure TfmProduct.ListView1DblClick(Sender: TObject);
var nod:Tlistitem;
    s:string;
    form:TfmProductDetail;
begin
    nod:=self.ListView1.Selected;
    if nod<>nil then
       begin
            s:=dmquery.imgFile+'\'+trim(nod.Caption);
            form:=TfmProductDetail.Create(nil);
            form.imgProduct.Picture.LoadFromFile(s);
           // dmquery.setFormCaption(Form); 
            form.ShowModal;


       end;

end;

procedure TfmProduct.InitimgListExecute(Sender: TObject);
begin
     imgList.Clear;
     
end;

end.