Formdandan quick report ile verdiği siparişlerin yazıcıdan dökümünü almasını sağlıyorum.Yalnız anlamadığım taraf 2. forumdan önizleme bölümüne geçince kaydın gözükmemesi.
Quick report'un hasdetail özelliğini true yaptım.
Adotable ile nesneleri qrdbtext 'le ekledim.
Yani aşağıdaki kodu sildim.Aşağıdaki kodu kullanmamın nedenide programdan çıkışta table'ı boşaltmak.Belki ondan olur diye denedim.Kayıdı çıkışta sildirmeden programı kapatıp yeniden açtığımda kayıtların gözükmesi.Yani Qucik reportda yeni kaydın gözükmemesi.
Programı açıp kapatınca gözükmesinin nedeni için aklıma dataset'i açıp kapatmak geldi.Önizleme formunun showunda
datasource1.dataset.active:=false;
datasource1.dataset.active:=true;
adatable1.close,
adotable1.open;
Kod: Tümünü seç
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if adotable1.RecordCount<>0 then
begin
while not adotable1.Eof do
begin
adotable1.Delete;
end;
end;
end;