Rave de SQL sartlandirma

[ikra]

öncelikle selamlar...

arkadaslar RAVE raporunda her hangi bir sekilde IF cümlesi kullanmak mümkün mü dür? runtime dizayn degil. rave ile dizayn edilmis bir rav dosyasi...

söyle ki, eger kayit tarihi var ise yani tarih field i bos degil ise, atiyorum isci 01.01.2005 tarihinden beri kayitli... böyle bir yazi yazacak. fakat her hangi bir tarih yok ise o zaman hic bir sey yazmayacak.

bir de resim dosyalarini bir klasör icinde tutup resimlerin isimlerini db de kayit ediyorum. rave de ise resim eklemek istedigimizde ya tam adresi FILELINK olarak vermeliyim yada resmi db ye yükleyip oradan DataField olarak ayarlamaliyim ki göstersin.

her iscinin kendi fotografi var. ben iscilerin foto larinin path larini db den okutarak rave de nasil FILELINK verebilirim?

simdiden tesekkür ediyorum...
saygilar...

[dynamo]

resim dosyalarini bir klasör icinde tutup resimlerin isimlerini db de kayit ediyorum.her iscinin kendi fotografi var. ben iscilerin foto larinin path larini db den okutarak rave de nasil FILELINK verebilirim?

tabloda NO,AD ve RESIM fieldleri var.RESIM fieldi string yapıda ve Resimler klasöründe bulunan resimlerin pathi tutuluyor.
resim dosyaları 90*70 piksel boyutunda.

.jpg uzantılı resimleri neden göstermiyor.???

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, RpDefine, RpBase, RpSystem, StdCtrls,JPEG;

type
  TForm1 = class(TForm)
    Button1: TButton;
    RvSystem1: TRvSystem;
    Query1: TQuery;
    procedure Button1Click(Sender: TObject);
    procedure RvSystem1Print(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.RvSystem1Print(Sender: TObject);
var resimBmp: TBitMap;
    resimJpg:TJPEGImage;
    Stream: TMemoryStream;
    resim_yol:string;
    ImgExt:string;
    i:Double;
begin
   with Sender as TBaseReport do begin
     SetFont('Arial', 15);
     NewLine;
     PrintCenter('Personel Bilgi Formu', 4);
     NewLine;
     ClearTabs;
     SetTab(0.2, pjLeft, 1.7, 0, 0, 0);
     SetTab(1.9, pjLeft, 2.1, 0, 0, 0);
     SetTab(4.0, pjLeft, 2.5, 0, 0, 0);
     SetFont('Arial', 10);
     Bold := True;
     UnderLine:=True;
     PrintTab('No');
     PrintTab('Ad');
     PrintTab('Resim');
     Bold := False;
     UnderLine:=False;
     i:=0;
     while not query1.Eof do begin
       If LinesLeft < 1 then NewPage;
       PrintXY(0.2,0.9+i,query1.FieldByName('No').Text);
       PrintXY(1.9,0.9+i,query1.FieldByName('Ad').Text);
       resim_yol:=query1.FieldByName('Resim').Text;
       ImgExt:=ExtractFileExt(resim_yol);
       //bitmap resim göster
       if ImgExt='.bmp' then begin
         resimBmp := TBitmap.Create;
         try
           resimBmp.LoadFromFile(resim_yol);
           PrintBitmap(4.0,0.7+i,1,1,resimBmp);
         finally
           resimBmp.Free;
         end;
       end;
       //jpeg resim göster
       if (ImgExt='.jpg') or (ImgExt='.jpeg') then begin
         resimJpg:= TJPEGImage.Create;
         Stream := TMemoryStream.Create;
         try
           resimJpg.LoadFromFile(resim_yol);
           resimJpg.SaveToStream(Stream);
           Stream.Position := 0;
           PrintImageRect(4.0,0.7+i,1,1,Stream,'jpg');
         finally
           resimJpg.Free;
           Stream.Free;
         end;
       end;  
       i:=i+1.5;
       NewLine;
       query1.Next;
     end;
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  rvsystem1.Execute;
end;

end.