MDI dışına QuickReport

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
RewriteRule
Üye
Mesajlar: 43
Kayıt: 01 Eki 2007 02:06

MDI dışına QuickReport

Mesaj gönderen RewriteRule »

Merhaba arkadaşlar,

Şirket içindeki şubelerdeki envanter yönetimini sağlamak için bir program geliştiriyorum. Bir şubeden diğerine taşınan malın mukavelesini QuickReport'la geliştirdim. Program MDI kullanarak çalışıyor ve Formları kullanım anında yarattırıyorum. Ancak Raporu basacağımda QReport Formunu yarattırıp PreviewModal ile açtıramıyorum.

Kod: Tümünü seç

      procedure TfrBrowse.SpeedButton1Click(Sender: TObject);
      var
       frDocument: TfrDocument;
       MyValue1: String;
      begin
      if frProducts.DBGrid1.SelectedIndex > -1 then
       begin
         MyValue1 := IntToStr(frBrowse.DBGrid2.DataSource.DataSet.FieldByName('ONHAND_MOVEMENT_ID').AsInteger);
         dmAll.Location_Onhand.FilterSQL := 'ONHAND_MOVEMENT_ID = ''' + MyValue1 + '''';
         dmAll.Location_Onhand.Filtered  := True;
         frDocument := TfrDocument.Create(Application);
         frDocument.QuickRep1.PreviewModal;
       end;
      end;
Kullanıcı avatarı
aslangeri
Moderator
Mesajlar: 4322
Kayıt: 26 Ara 2003 04:19
Konum: Ankara
İletişim:

Mesaj gönderen aslangeri »

s.a.
açtıramıyorum derken hiç bir hareket olmuyormu yoksa rapor geliyor ama modal mı olmuyor. yoksa boş bir rapor mu geliyor.
previewmodal yapmadan önce qr nin dataset bağlantısını manuel atayın bi.
kolay gelsin.
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
RewriteRule
Üye
Mesajlar: 43
Kayıt: 01 Eki 2007 02:06

Mesaj gönderen RewriteRule »

Merhaba,

Evet herhangi bir hareket olmuyor. Dataset'i de manuel olarak bağladım. Yine herhangi bir hareket yok. :(
Kullanıcı avatarı
aslangeri
Moderator
Mesajlar: 4322
Kayıt: 26 Ara 2003 04:19
Konum: Ankara
İletişim:

Mesaj gönderen aslangeri »

s.a
peki preview deyince geliyormu.
birde qr yi koyduğunuz formdamı mdi
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
RewriteRule
Üye
Mesajlar: 43
Kayıt: 01 Eki 2007 02:06

Mesaj gönderen RewriteRule »

aslangeri sorunu çözdüm, bazı kodları başka yere aldım (Create ve Preview dışındakileri). Bu defa da rapor ilk sefer çalışınca görülüyor, diğer çalışmalarında görünmüyor.
Kullanıcı avatarı
aslangeri
Moderator
Mesajlar: 4322
Kayıt: 26 Ara 2003 04:19
Konum: Ankara
İletişim:

Mesaj gönderen aslangeri »

yazdır düğmesinin kodlarına break point koyup satır satır çalıştırarak bir kontrol et.
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
RewriteRule
Üye
Mesajlar: 43
Kayıt: 01 Eki 2007 02:06

Mesaj gönderen RewriteRule »

trace edince herhangi bir sorun görünmüyor. çünkü ilk raporu başarıyla veriyor. 2. rapordan itibaren boş sayfa geliyor. QReport1'in bulunduğu formun OnClose event'i şu şekilde:

Kod: Tümünü seç

procedure TfrDocument.FormClose(Sender: TObject; var Action: TCloseAction);
var
  i: integer;
begin
  try
    for i := Screen.FormCount - 1 downto 0 do
      if Screen.Forms[i].ClassName = 'TQRStandardPreview' then
      begin
        Screen.Forms[i].Close;
      end;
  except
    ShowMessage('Please close all existing reports');
  end;
  //Action := caFree;
end;
Cevapla