Arsip: Masalah DbXpress dan QuickReport

 
user image
more 15 years ago

sepoix

Dear master, saya menggunakan dbXpress di delphi 7 dan Quickreport 4,pada saat mau mencetak data dengan menggunakan query misalkan querynya "SELECT SUM(jumlah) as Total FROM penjualan" kemudian menggunakan QRDBTEXT untuk menampilan hasil query 'TOTAL' ke dalam quickreport,Saya sudah set dataSet dan Datafieldnya sesuai dgn komponen dan nama fieldnya (TOTAL),tapi Hasil query tsb tidak tampil di quickreport malah yang nampil hanya tulisan 'TOTAL'.Untuk sementara saya menggunakan cara menambahkan baris di ONPrint value := namafieldnya, dan hasilnya tampil di quickreport. Apakah ini bugs dari dbExpress dan quickReport atau ada settingan yang belum pas. terimakasih
user image
more 15 years ago

ichan29

sebenernya anda kurang begitu lengkap menjelaskan, apakah ada QRBand-nya, lalu type QRBand-nya apa... jika asumsi sudah ada semua sesuai dg kebutuhan, pastikan Query itu anda letakkan di Events BeforePrint dan AfterPrint utk menetralkan lg
user image
more 15 years ago

sepoix

bang ichan, terimakasih atas responsenya. Untuk pemanggilan reportnya seperti ini : SQLText1= "SELECT SUM(jumlah) as Total FROM penjualan" penjualan.Data := Report1Q.DataRequest(SQLText1); penjualan.Open; if penjualan.RecordCount > 0 then begin try EstateSumR := TEstateSumR.Create(Self); EstateSumR.Preview; EstateSumR.Free; except end; end untuk field total saya taro di QrBand detail dataset di quickreportnya := penjualan jadi saya tidak meletakan querynya di events BeforePrint atau AfterPrint terimakasih
user image
more 15 years ago

ichan29

@sepoix: coba Query yg km tuli itu pindahkan ke FormReportnya, lalu di QuickReportnya pindahkan query km itu ke beforeprint, misalnya: Form1 sebagai pemanggil FormReport,
procedure TfmREstateSumR.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
   quSQL.SQL.Text:= 'SELECT SUM(jumlah) as Total FROM penjualan';
   quSQL.Open;
   if quSQL.RecordCount > 0 then  //kondisi ini terserah dikau
      QRDBText1.DataField:= 'Total'
   else QRDBText1.DataField:= '';
end;
procedure TfmREstateSumR.QuickRep1AfterPrint(Sender: TObject);
begin
   QRDBText1.DataField:= '';
end;
Lalu di Formpemanggil Report, km isikan utk manggil form reportnya:
EstateSumR := TEstateSumR.Create(Self);
EstateSumR.QuickReport.Preview;
EstateSumR.Free; 
user image
more 15 years ago

sepoix

bang Ichan, hal yang saya lakukan sekarang hampir sama dengan apa yang bang ichan kasih kesaya,hanya saja Querynya tidak saya taro di beforePrint dan tetap di form pemanggil.dan untuk field Total saya difine di procedure TEstateSumR.TOTALPrint(sender: TObject; var Value: String); begin value := FormatFloat('#,##0.0',D0000.FeatRegSumRptTOTAL.AsFloat); Vn_Total := Vn_Total + D0000.FeatRegSumRptTOTAL.AsFloat; Vn_GrandTotal := Vn_GrandTotal + Vn_Total; end; kalau saya pake BDE hal ini tidak terjadi,field total bisa langsung menampilkan datanya. saya sudah coba juga di Dbexpress4 D2007 dengan Quick report 5.02 hasilnya tetep sama. terimakasih
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com