Quick Report

[husonet]

QuickReport la tek bir kayıt yazdırmak istiyorum neler yapmam gerekli yardımcı olursanız sevinirim unutmadan ilk defa QuickReport kullanıyorum.


İyi Çalışmalar.

Veritabanım : Access, Bileşenim : AdoDataSet1

[husonet]

Arkadaşlar bu olayı çözdüm yalnız kafama takılan bir konu var. Ben bunu ikitane dataset kullanarak çözdüm anaformdan tablonun field ini alıyorum rapar vereceğim sayfada sql ile arattırıp yazacıdan çıktı alıyorum sizce yöntemim doğrumu.

Kod

Kod: Tümünü seç

  
procedure TEtiketBasFrm.QuickRep1StartPage(Sender: TCustomQuickRep);
var
    str:string;
begin
    STR := CariKartlarFrm.ADODataSet1.FieldByName('CariKod').AsString;
    AdoDataSet1.Close;
    AdoDataSet1.CommandText := 'Select * from Cari Where CariKod = "'+STR+'"';
    AdoDataSet1.Open;
//    Str:= CariKartlarFrm.ADODataSet1.FieldByName('CariKod').AsString;
 //   AdoDataSet1.Locate('CariKod', CariKartlarFrm.ADODataSet1.FieldByName('CariKod').AsString,[lopartialkey]);

end;

Eleştrilerinizi bekliyorum.

İyi Çalışmalar ve İyi Ramazanlar.

[rsimsek]

QuickRep in OnNeedData ında basılmasını istediğin kayıt numarasını yada kodunu daha önce public bir değişkene atıp, tablodaki ile kontrol ettirirsen sadece o kaydı yazmış olursun.

Kod: Tümünü seç

procedure TfrmRapor.QuickRep1NeedData(Sender: TObject;
  var MoreData: Boolean);
begin
  MoreData := Kayit_No = tblTablo1Kayit_No.Value;
end;

sadece şartı sağlıyan kayıt(lar)ı yazar.

[mussimsek]

Merhaba,

bence de en güzeli normal dataset ile rapor datasetini ayrı tutup, 2 dataset kullanmak.

QR'de normal ayarları yap, dataset olarak rapor Adodataset'ini ayarla. Daha sonra bu AdoDataset'te sadece istediğin kaydı seç, yani yazdırmak istediğin bir kaydı.

Kolay gelsin.

[mehmet_turecan_cakmak]

selamlar...

husonet bey sadece tek kaydı yazdırmak istiyorsanız quick report un datasetini bağlamamanız yeterli olacaktır...
eğer datasetini bağlarsanız yüm kayıtları yazdırmış olursunuz...

kolay gele...