Mustafa973
Aktif Üye
- Mesajlar
- 126
Arkadaşlar yaptığım programda kayıtları raporluyorum fakat resim isminde bir klasörde kayıtlı resimlerde sorun var;
Şöyle her resmi TC kimlik no ile resim adlı klasöre kaydettim veritabanından kayırlar sorgulayıp rapora aktarıyor fakat resim olarak tüm kayıtlaa aynı resim geliyor.
Yazdığım kod aşağıdaki gibi nerede eksik var yardım ederseniz sevinirim.
procedure TFormRaporlama.BitBtn39Click(Sender: TObject);
var yol,cumle:string;
begin
yol:=ExtractFilePath(Application.ExeName);
ADOQuerytekrapor.Close;
ADOQuerytekrapor.SQL.Clear;
ADOQuerytekrapor.SQL.text:='SELECT * FROM genelbilgileri' ;
ADOQuerytekrapor.Open;
if FileExists(yol+'resim\'+FormRaporlama.ADOQuerytekraportckimlikno.AsString+'.jpg') then
Formraporizle.QRImage1.Picture.LoadFromFile(yol+'resim\'+ADOQuerytekraportckimlikno.AsString+'.jpg');
Formraporizle.QuickRep1.PreviewModal;
Şöyle her resmi TC kimlik no ile resim adlı klasöre kaydettim veritabanından kayırlar sorgulayıp rapora aktarıyor fakat resim olarak tüm kayıtlaa aynı resim geliyor.
Yazdığım kod aşağıdaki gibi nerede eksik var yardım ederseniz sevinirim.
procedure TFormRaporlama.BitBtn39Click(Sender: TObject);
var yol,cumle:string;
begin
yol:=ExtractFilePath(Application.ExeName);
ADOQuerytekrapor.Close;
ADOQuerytekrapor.SQL.Clear;
ADOQuerytekrapor.SQL.text:='SELECT * FROM genelbilgileri' ;
ADOQuerytekrapor.Open;
if FileExists(yol+'resim\'+FormRaporlama.ADOQuerytekraportckimlikno.AsString+'.jpg') then
Formraporizle.QRImage1.Picture.LoadFromFile(yol+'resim\'+ADOQuerytekraportckimlikno.AsString+'.jpg');
Formraporizle.QuickRep1.PreviewModal;