bantu aku ngebuat laporan bulanan donk. yg kl dimasukin tgl awl n tgl akhir (tdatetimerpicker-maaf lp namanya :lol: )trus langsung di cetak pake quick report. bingung banget... udah di cari-cari gak ada... tolong bantu secepatnya ya... plissss.. thx buanget nget-nget... :?:

hampir semua orang butuh cepat... ngga' cuman anda... mau cepat tanpa dasar yg kuat ujung2nya gigit jari :mrgreen: laporan yg anda inginkan (date-range) bisa dibuat cepat & mudah menggunakan SQL-Query... tinggal SELECT xxx FROM xxx WHERE DateField Between :StartDateRange and :EndDataRange terus tinggal dicetak pake QR

:roll: :shock: :lol:

:evil: twwwink.... twwwink ... :shock: mongggo dulu donk ... jangan to-the-point

enakan pake filter az jadi laporannya gak hanya bisa perbulan bisa perminggu/perhari pake cara seperti Suhu @delphiExpert juga bisa, atw pake Query Select xxx From xxx Where tanggal>=:awal and tanggal<=:Akhir; nb: awal adalah parameters tanggal; jadi @ Shefy buat 2 Tdatetimepicker (awal dan akhir); Contoh coding: Query1.Close; Query1.SQL.text:='Select * From transaksi Where TglTransaksi>=:awal and <=:akhir'; Query1.ParamByName('Awal').AsDateTime:=DatetimePicker1.Datetime; Query1.ParamByName('Akhir').AsDateTime:=DatetimePicker2.Datetime; Query1.Prepare; Query1.Open; Smoga Membantu :shock:

itu cara bagus juga. tapi tanggal awal dan akhir harus selalu ada datanya. coba cara ini. buatkan form dan siapkan edit1 untuk awal dan edit2 untuk akhir Contoh coding: var t : string; begin t := ''; if edit1.text<>'' then t:= t+' and awal>='''+Edit1.text+''''; if edit2.text<>'' then t:= t+' and akhir<='''+Edit2.text+''''; if t<>'' then t:=' WHERE '+copy(t, 6, length(t)-5); Query1.Close; Query1.SQL.text:='Select * From transaksi '+t; Query1.Open; semoga bermanfaat

wuihhh cepeeeettt bgt yach .... :D